Histórico da Página

...

Descrição

EICAP100 - Eventos de câmbio

Observações

Parâmetros para customização da rotina de Cambio de Importação

Exemplos

#INCLUDE "PROTHEUS.CH"

User Function EICAP100()

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

If cParam == "MOVI_LIMITE_FIN"
MsgInfo("Entrou no ponto de entrada 'MOVI_LIMITE_FIN'.")
lMoviFin := .F.
EndIF

IF cParam == "VALID_VINCULACAO"
msginfo("Entrou no ponto de entrada 'VALID_VINCULACAO'")
lRetvalid := .F.
ENDIF

IF cParam == "VALIDA_TELA_CAMBIO"
IF lInvDifere
EasyHelp("Existe divergência entre os valores","Aviso")
ELSE
EasyHelp("NÃO existe divergência entre os valores","Aviso")
ENDIF
ENDIF

IF cParam == "MANUT_SWA"

msginfo("Entrou no ponto de entrada 'MANUT_SWA'")
lSair := .T.
ENDIF

Return nil

User FUNCTION FADTMOV()

If MsgYesNo("Está utilizando a data base " + DTOC(DDATABASE) + ", deseja continuar?")
lRet := .T.
Else
lRet := .F.
EndIF

Return lRet

Preview

Veja também

Idioma

Português(Brasil)

Versões

Microsiga_Protheus11 e Microsiga_Protheus12

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Updates

Parâmetros

Nome	Tipo	Descrição	Default	Obrigatório	Referência
MOVI_LIMITE_FIN	Carácter	Permite a alteração para pular a validação da data do parâmetro MV_DATAFIN, assim fazendo a liquidação do controle do cambio.
ARRAYSWB	Carácter	Permite adicionar campos customizados nos arrays aSWB (para ser exibido na tela) e aGet_SWB (para ser editável).
VALID_VINCULACAO	Carácter	Permite a customização da validação de vinculação de adiantamento no controle de câmbio
CONFIRMA_EXCLUIR	Carácter	Permite a confirmação da exclusão do titulo no controle de câmbio
VALIDA_TELA_CAMBIO	Carácter	Permite alterar o valor da pergunta referente a divergêngia entre o valor total das invoices e o valor das parcelas. Se a pergunta é confirmada, o câmbio será gravado mesmo com divergência, caso cancelada, o câmbio não será gravado. Neste ponto de entrada, a variável lRetVal é igual a .T. ao confirmar a gravação com divergêngia, .F. (False) caso cancelar. Se essa variável, por exemplo, é alterada para .T. no ponto de entrada, o câmbio será gravado independentemente da escolha do usuário na pergunta. A variável lInvDifere é igual a .T. se existe diferença entre o valor total das invoices e o valor total das parcelas do câmbio.

Retorno

NIL

Eventos de chamada do Ponto de Entrada

Variáveis

Nome	Tipo	Escopo	Pode Alterar	Descrição
lRetvalid	Booleana	Private	Sim	Variável que controla a validação da vinculação de adiantamento do controle de câmbio
nManut	Numérico	Private	Sim	Código da operação a ser realizada (Inclusão, Alteração, Exclusão, Liquidação, Estorno da Liquidação, etc)
lExcluiu	Booleana	Private	Sim	Variável responsável para verificar se o titulo posicionado foi excluido
lRetVal	Booleana	Private	Sim	Se .T., o câmbio será gravado independentemente se haver divergência ou não de valores, Se .F., o cambio não será gravado.
lInvDifere	Booleana	Private	Sim	lInvDifere é .T. se existe divergência entre o valor total das invoices e o valor total das parcelas, .F. caso contrário. Essa variável não tem efeito ao alterá-la, pois seu objetivo é de apenas leitura.

Programa Fonte

EICAP100.PRW

...

Árvore de páginas

Versões comparadas

Versão antiga 8

Nova versão 9

Chave