Descrição: | Disponibilizado o ponto de entrada EICDI158 que possibilita a manipulação das validações da geração e estorno da nota fiscal de despesa. |
Localização: | Atualizações/ Desembaraço/ Recebimento de Importação |
Exemplos: |
User Function eicdi158()
Local cParam
If ValType(ParamIXB) == "A"
cParam:= ParamIXB[1]
Else
cParam:= ParamIXB
EndIf Do Case
Case cParam == "DI158_NFVAL_INI"
if nTipoOperacao == 1
MSGALERT("Passou por aqui INI nopc = 1")
lRetDI158Val := .F.
ElseIf nTipoOperacao == 2
MSGALERT("Passou por aqui INI nopc = 2")
lRetDI158Val := .T.
EndIf
Case cParam == "DI158_NFVAL_FIM"
if nTipoOperacao == 1
MSGALERT("Passou por aqui FIM nopc = 1")
lRetDI158Val := .F.
ElseIf nTipoOperacao == 2
MSGALERT("Passou por aqui FIM nopc = 2")
lRetDI158Val := .T.
EndIf
EndCase Return
|
Parâmetros:
| Nome | Tipo | Descrição | Obrigatório | "DI158_NFVAL_INI" | Caracter | Executado antes das validações padrão, se retornar .F. aborta a operação e não passa pelas validações padrão do sistema, se retornar .T. segue para as validações padrão do sistema. |
| | "DI158_NFVAL_FIM" | Caracter | Executado após as validações padrão, se retornar .F. aborta a operação, se retornar .T. finaliza a operação |
|
|
| Variáveis: | | Nome | Tipo | Escopo | Pode Alterar | Descrição |
|---|
lRetDI158Val | Lógico | Private | Sim | Retorna .t. para continuar a operação ou .f. para abortar a operação | | nTipoOperacao | Númerico | Private | Não | Variável que determina a operação da validação da nota, onde 0=Validação do campo, 1=Validação na geração da nota e 2=Validação no estorno da nota. |
|
| Programa Fonte: | EICDI158.PRW |