Histórico da Página

...

Em que ponto será chamado:
1. TMSA050TudOK - Consistência Geral da rotina.
  - Na rotina de validação geral da Nota Fiscal de Cliente a ser incluída ou alterada.
2. TMSA050NF - Validação geral e da existência da Série e da Nota Fiscal.
  - Na rotina de verificação da existência da Nota Fiscal de Cliente na base de dados, chamada pela rotina de Geração de Cobrança de Serviço Adicional (TMSA853).

02. Parâmetros

Nome	Tipo	Descrição	Default	Obrigatório
PARAMIXB[1]	Caractere	Filial de Origem (DTC_FILORI)	M->DTC_FILORI	x
PARAMIXB[2]	Caractere	Número da Nota Fiscal do Cliente	GDFieldGet( 'DTC_NUMNFC', n )	x
PARAMIXB[3]	Caractere	Número de Série da Nota Fiscal do Cliente	GDFieldGet( 'DTC_SERNFC', n )	x
PARAMIXB[4]	Caractere	Código do Cliente	M->DTC_CLIREM	x
PARAMIXB[5]	Caractere	Loja do Cliente	M->DTC_LOJREM	x
PARAMIXB[6]	Caractere	Código do Produto	GdFieldGet( 'DTC_CODPRO', n )	x

TMA050NFC.PRW

Bloco de código

#INCLUDE "PROTHEUS.CH"

...




//--------------------------------------------------

...


/*/{Protheus.doc} TMA050NFC()

...



Realiza validações especifica da Nota Fiscal de Cliente

...


de acordo com a regra de negócio do usuário.

...



@since  08/02/2021

...


@version 1.0

...

/*/

...


//---------------------------------------------------

...



User Function TMA050NFC()

...



Local lRet        := .T.

...


Local

...

 l050TdOk    := FwIsInCallStack("TMSA050TudOK")

...


Local lTMS50NF    := FwIsInCallStack("TMSA050NF")

...



Local cFilOri    := PARAMIXB[1]

...


Local cNumNFC    := PARAMIXB[2]

...


Local

...

 cSerNFC    := PARAMIXB[3]

...


Local cCodCli

...

 := PARAMIXB[4]

...


Local cLojCli

...

 := PARAMIXB[5]

...


Local cCodPro

...

 := PARAMIXB[6]

...



If //Validações Especificas do Usuário

...


     lRet := .F.

...


EndIf

...



Return lRet

...

...