TMA050NFC - Validação especifica da Nota Fiscal de Cliente de acordo com a regra de negócio do usuário

CONTEÚDO

Descrição
Parâmetros
Programa Fonte
1. Exemplo
Exemplo da chamada

01. Descrição

Validação especifica da Nota Fiscal de Cliente de acordo com a regra de negócio do usuário.

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

03. Programa Fonte

TMA050NFC.PRW

Exemplo:

TMA050NFC

#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

04. Exemplo da chamada

...

lRet := ExecBlock( 'TMA050NFC', .F., .F., { M->DTC_FILORI, cNumNFC, cSerNFC, M->DTC_CLIREM, M->DTC_LOJREM, cCodPro } )