Histórico da Página

• Ao executar a geração do documento de saída a partir da função MaNfs2Nfs, a tabela SF2 não estará mais posicionada ao acionar este ponto de entrada.

#INCLUDE 'PROTHEUS.CH'
#INCLUDE "FWMVCDEF.CH"

//*****************************************************************************
// Ponto de entrada M460FIM - Gravação da NF saida
// Este P.E. é chamado após a gravação da NF de Saída e fora da transação.
//#Par01    - PARAMIXB[1] - Número da NF 
//#Par02    - PARAMIXB[2] - Série da NF
//#Par03    - PARAMIXB[3] - Cliente da NF
//#Par03    - PARAMIXB[4] - Loja da NF
//*Return   - Sem nenhuma retorno 
//*****************************************************************************

User Function M460FIM()

	Local cNumNFS	:= PARAMIXB[1] // Número da NF 
	Local cSerieNFS	:= PARAMIXB[2] // Série da NF 
	Local cClieFor	:= PARAMIXB[3] // Cliente da NF
	Local cLoja		:= PARAMIXB[4] // Loja da NF

	If cClieFor == "ZZZ010" .And. cLoja == "02"
		Alert("NF gerada para o cliente:" + cClieFor + " e loja:"+ cLoja)
	EndIf

Return