Histórico da Página
...
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
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 |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas