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 na inclusão e no estorno de uma 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

Case cParam == "DI158NFDGera_aNFDItem"

aNFDItem = {}

EndCase

Return

Parâmetros:

Nome	Tipo	Descrição
"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
"DI158NFDGera_aNFDCapa"	Caracter	Executado após a definição dos campos de capa da NF, possibilitando editar ou incluir valores na variável aNFDCapa
"DI158NFDGera_aNFDItem"	Caracter	Executado dentro do loop de itens da nota fiscal onde é possível acessar os dados dos itens da nota.

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.
aNFDCapa	Caracter	Private	Sim	A variável contém todos os campos que serão integrados na capa da nota fiscal (tabela SF1).
Variáveis utilizadas pelo parâmetro "DI158NFDGera_aNFDItem".
aNFDItem	Array	Private	Sim	A variável aNFDItem está dentro do loop que percorre os itens da nota fiscal dessa forma é possível acessar os itens que serão inseridos no array de itens da nota aNFDDetail que será usado no execauto a gerar a nota de despesa.
aNFDDetail	Array	Private	Sim	Variável que terá todos os itens da nota e será usada para gerar a pré nota através do execauto.
aRecsWD	Array	Private	Sim	A variável aRecsWD que também está dentro do loop de itens da nota fiscal grava o recno da tabela SWD referente ao item e o recno referente a work de itens WorkWD, com ele é possível acessar o item na tabela SWD e na WorkWD. Essa variável é usada após gerar a nota via execauto para atualizar alguns campos da tabela SWD e para gerar um novo registro na tabela de work WorkWD1.

Programa Fonte:

EICDI158.PRW