EICDI158 - Geração de nota fiscal de despesa

Ponto de Entrada

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. Usado no ponto de entrada com os parâmetros DI158_NFVAL_INI e DI158_NFVAL_FIM.
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. Disponível no ponto de entrada com os parâmetros DI158_NFVAL_INI e DI158_NFVAL_FIM.
cCampoDI158Val	Caracter	Private	Não	Variável que contém o campo que será validado pela função padrão. Disponível no ponto de entrada com os parâmetros DI158_NFVAL_INI e DI158_NFVAL_FIM.

Programa Fonte:

EICDI158.PRW

Exemplo: