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 | 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" EndIf EndIf IF cParam == "INICIALIZA_EVENTOS" msginfo("Entrou no ponto de entrada 'INICIALIZA_EVENTOS'") ENDIF IF cParam == PE_ALT_PARC msginfo("Entrou no ponto de entrada 'PE_ALT_PARC'") ENDIF If cParam == "EVENTOS_NAO_GERADOS" //disponível para alteração a variável cEventosNaoGerados EndIf Do Case Case 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. lDLoopEEQ:= .T. EndIf Case cParam == "AF200VALID_VALCAMPO" If nTipoDet == 6 //exclusão //não permite excluir EndIf Case cParam == "PE_VALIDA" nTipo:= ParamIXB[2] //é o mesmo conteúdo da variável nTipoDet //não permite excluir EndIf
nTipo:= ParamIXB[2] MsgInfo("Alteração da parcela de câmbio", "Aviso") EndIf Case cParam == "GRV_ITEM_CAMBIO" /* //processamento customizado EndIf */ Case cParam == "INC_CAMBIO" MsgInfo("Ponto de Entrada EECAF200 INC_CAMBIO", "INC_CAMBIO") Case 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 EndCase 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 | () | Eventos de chamada do Ponto de EntradaNil | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Variáveis |
| |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Programa Fonte | EECAF200.PRW |