Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 6

changes.mady.by.user Bruno Consoline Osmak Ribeiro

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Marcio Rogerio Menon

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Produto:

TOTVS Backoffice

Linha de Produto:

Linha Protheus

Segmento:

Backoffice

Módulo:SIGAFAT - Faturamento
Função:MATA461 - Geração Preparação de Documento de saídaSaída

02. DESCRIÇÃO

Este Ponto de entrada é chamado após a Gravacao gravação da Nota Fiscal de Saída, e fora da transação.

Aviso
titleImportante
  • Ao executar a geração do documento Documento de saída Saída a partir da função MaNfs2Nfs, a tabela SF2 não estará mais posicionada ao acionar este ponto de entradaserá necessário fazer o posicionamento nas tabelas SF2 e SD2 manualmente via customização.

03. SINTAXE

M460FIM - ( <cNumNFS>, <cSerieNFS>,  <cClieFor>, <cLoja> )

...

NomeTipoDescriçãoDefaultObrigatórioReferência
cArqProccNumNFSCaractereNome do arquivo processadoNumeração da NF

X
cXmlProccSerieNFSCaractereXML ProcessadoNumeração da série da NF

X
cMsgcClieForCaractereMensagem processadaCliente/Fornecedor da NF

X
lErrocLojaLógicoCaractereLoja da NFIndica se contém erro no processamento

X


05. RETORNO

Não há dados a serem retornados.

...

Bloco de código
languagevb
themeMidnight
firstline1
titleMA411LOG
linenumberstrue
#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