Cross Segmentos - Backoffice Protheus - SIGAFAT - Ponto de Entrada M460FIM

Exemplo de uso abaixo:

#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/fornecedor 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/fornecedor 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