Histórico da Página

User Function EECAF200()

Local cParam := if(Type("ParamIxb") = "A", ParamIxb[1], if(Type("ParamIxb") = "C", ParamIxb, ""))

If cParam == "PE_STATUS"

   MsgInfo("Entrou no ponto de entrada", 'PE_STATUS')

If EEC->(RecLock("EEC",.f.))

   M->EEC_STATUS := "A"
   M->EEC_STTDES := "STATUS TESTE"

EndIf

ElseIf cParam == "INICIALIZA_EVENTOS"

   MsgInfo("Entrou no ponto de entrada", 'INICIALIZA_EVENTOS')
   lGrvCamCon := .F.

ElseIf cParam == "PE_ALT_PARC"

   Msginfo("Entrou no ponto de entrada", 'PE_ALT_PARC')

ElseIf cParam == "EVENTOS_NAO_GERADOS"

   //disponível para alteração a variável cEventosNaoGerados

ElseIf cParam == "AF200DPARC_PARCELA_CAMBIO"

   /* Exemplo de uso do ponto de entrada no momento da exclusão da parcela de câmbio, quando retirada a data do embarque.
   A variável lDLoopEEQ indica se o programa deverá esquivar da exclusão do registro. */
If EEQ->EEQ_EVENT == "120"

   lDLoopEEQ:= .T.

EndIf

ElseIf cParam == "AF200VALID_VALCAMPO"

If nTipoDet == 6 //exclusão

   //não permite excluir
   lSair:= .T.
   lRet:= .F.

EndIf

ElseIf cParam == "PE_VALIDA"

   nTipo:= ParamIXB[2] //é o mesmo conteúdo da variável nTipoDet
If nTipo == 6 //ou nTipoDet == 6; exclusão

   //não permite excluir
   //Return .F. //pode retornar .F. ou alterar a variável lRet
lRet:= .F.

EndIf

Elseif cParam == "ANTES_GRV_TMP"

   nTipo:= ParamIXB[2]
If nTipo == 5

   MsgInfo("Alteração da parcela de câmbio", "ANTES_GRV_TMP")

Endif

Elseif cParam == "GRV_ITEM_CAMBIO"

   /*
If Empty(EEQ->EEQ_DTCE) .And. !Empty(TMP->EEQ_DTCE)

   //processamento customizado

EndIf */
   MsgInfo("Ponto de entrada EECAF200 GRV_ITEM_CAMBIO", "GRV_ITEM_CAMBIO")

ElseIf cParam == "INC_CAMBIO"

   MsgInfo("Ponto de Entrada EECAF200 INC_CAMBIO", "INC_CAMBIO")

ElseIf cParam == "PE_GERPARC"

   MsgInfo("Ponto de Entrada EECAF200 PE_GERPARC", "PE_GERPARC")

   //customização após a gravação das parcelas de câmbio (EEQ)

   //EEQ->(DBSeek(xFilial() + M->EEC_PREEMB))

   //Looping na tabela EEQ para customização das parcelas de câmbio geradas para o processo de embarque

Elseif cParam == "VALIDA_PARCELA"

   cMsg := "Variáveis com dados da parcela a ser gerada " + ENTER
   cMsg += "nValParPE = " + Alltrim(str(nValParPE)) + ENTER
   cMsg += "cCondPagtoPE = " + cCondPagtoPE + ENTER
   cMsg += "dDtBasePE = " + dtoc(dDtBasePE) + ENTER
   cMsg += "cEventoPE = " + cEventoPE + ENTER
   cMsg += "cFornecedorPE = " + cFornecedorPE + ENTER
   cMsg += "cLojaPE = " + cLojaPE + ENTER
   cMsg += "cEmpresaPE = " + cEmpresaPE + ENTER
   cMsg += "cNrInvoPE = " + cNrInvoPE + ENTER
   cMsg += "cNatPE = " + cNatPE + ENTER
   MsgInfo(cMsg,"VALIDA_PARCELA")




Elseif cParam == "PE_ENCHOICE_EEQ"

         If ParamIXB[2] == 5

            MsgInfo("Entrou no Ponto de Entrada PE_ENCHOICE_EEQ", "Alteração")

         ElseIf ParamIXB[2] == 3

            MsgInfo("Entrou no Ponto de Entrada PE_ENCHOICE_EEQ", "Visualização")

         ElseIf ParamIXB[2] == 4

            MsgInfo( "Entrou no Ponto de Entrada PE_ENCHOICE_EEQ", "Inclusão")

         ElseIf ParamIXB[2] == 98

            MsgInfo( "Entrou no Ponto de Entrada PE_ENCHOICE_EEQ", "Estorno da Liquidação")

         ElseIf ParamIXB[2] == 99

            MsgInfo( "Entrou no Ponto de Entrada PE_ENCHOICE_EEQ","Liquidação")

         ElseIf ParamIXB[2] == 97

            MsgInfo("Entrou no Ponto de Entrada PE_ENCHOICE_EEQ","Baixa Gerencial")

         EndIf

            aDel(aMostra, AScan(aMostra, "EEQ_FOLOJA"))

            aDel(aMostra, AScan(aMostra, "EEQ_CORR"))

            aDel(aMostra, AScan(aMostra, "EEQ_OBS"))

            aSize(aMOSTRA, Len(aMostra)-3)




            ADel(aALTERA, AScan(aALTERA, "EEQ_BANC"))

            ADel(aALTERA, AScan(aALTERA, "EEQ_AGEN"))

            ADel(aALTERA, AScan(aALTERA, "EEQ_NCON"))

            aSize(aAltera, Len(aAltera)-3)

EndIf

Return Nil