Histórico da Página
...
Descrição | EECAF200 - Manutenção do Câmbio | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Observações | Utilizado para alteração do status no controle de câmbio e do embarque após a liquidação | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Exemplos | #DEFINE ENTER Chr(10) + Chr(13) User Function EECAF200() Local cParam := Ifif(Type("ParamIxb") = "A", ParamIxb[1], Ifif(Type("ParamIxb") = "C", ParamIxb, "")) If if cParam == "PE_STATUS" MsgInfoMsgInfo("Entrou no ponto de entrada", 'PE_STATUS' .") Ifif EEC->(RecLock("EEC",.f.)) M->EEC_STATUS := "A" EndIf EndIf endif elseif IF cParam == "INICIALIZA_EVENTOS" msginfomsginfo("Entrou no ponto de entrada", 'INICIALIZA_EVENTOS' ") lGrvCamCon := .F. ENDIF IF elseif cParam == "PE_ALT_PARC" msginfomsginfo("Entrou no ponto de entrada", 'PE_ALT_PARC' ") ENDIF If elseif cParam == "EVENTOS_NAO_GERADOS" //disponível para alteração a variável cEventosNaoGerados EndIf Do Case Caseelseif 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. EndIfendif Caseelseif cParam == "AF200VALID_VALCAMPO" Ifif nTipoDet == 6 //exclusão //não permite excluir endif Caseelseif cParam == "PE_VALIDA" nTipo nTipo:= ParamIXB[2] //é o mesmo conteúdo da variável nTipoDet if nTipo == 6 //ou nTipoDet == 6; exclusão //não permite excluir endif Caseelseif cParam == "ANTES_GRV_TMP" nTipo nTipo:= ParamIXB[2] if nTipo == 5 MsgInfo("Alteração da parcela de câmbio", " AvisoANTES_GRV_TMP") EndIfendif Caseelseif cParam == "GRV_ITEM_CAMBIO" /* if Empty(EEQ->EEQ_DTCE) .And. !Empty(TMP->EEQ_DTCE) //processamento customizado EndIf endif */ MsgInfo("Ponto de entrada EECAF200 GRV_ITEM_CAMBIO", "GRV_ITEM_CAMBIO") Caseelseif cParam == "INC_CAMBIO" MsgInfoMsgInfo("Ponto de Entrada EECAF200 INC_CAMBIO", "INC_CAMBIO") Caseelseif cParam == "PE_GERPARC" MsgInfoMsgInfo("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 endifEndCase Return Nil | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Preview | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Veja também | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Idioma | Português(Brasil) | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Versões | Microsiga_Protheus12 | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Sistemas Operacionais Suportados | Todos | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Compatível com as Bases de Dados | Todas | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Updates | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Parâmetros |
| ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Retorno | Nil | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Variáveis |
| ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Programa Fonte | EECAF200.PRW |