Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Nuria Fauró Campos

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.

01. DADOS GERAIS

Produto:

TOTVS Backoffice

Linha de Produto:

Linha Protheus

Segmento:

Backoffice

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

02. DESCRIÇÃO

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

Aviso
titleImportante
  • Ao executar a geração do Documento de Saída a partir da função MaNfs2Nfs, será necessário fazer o posicionamento nas tabelas SF2 e SD2 manualmente via customização.

03. SINTAXE

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

04. PARÂMETROS

NomeTipoDescriçãoDefaultObrigatórioReferência
cNumNFSCaractereNumeração da NF

X
cSerieNFSCaractereNumeração da série da NF

X
cClieForCaractereCliente/Fornecedor da NF

X
cLojaCaractereLoja da NF

X


05. RETORNO

Não há dados a serem retornados.

06. EXEMPLO


Bloco de código
languagevb
themeMidnight
firstline1
titleMA411LOG
linenumberstrue
#INCLUDE 'PROTHEUS.CH'
#INCLUDE "FWMVCDEF.CH"

//*****************************************************************************
// Ponto de entrada M460FIM - Gravação da NF saida
//
Composition Setup
import.css=/download/attachments/327912/newLayout.css
Ponto-de-Entrada: M460FIM - Gravação da NF saida
Portuguese
Pagetitle
M460FIM - Gravação da NF saidaM460FIM - Gravação da NF saida
Abrangências: Advanced Protheus 6.09 , Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Microsiga Protheus 10
Versões: Todas
Compatível Países: Brasil
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Espanhol , Inglês
Descrição: 
Este P.E.
e'
é chamado
apos
após a
Gravacao
gravação da NF de
Saida,
Saída e fora da transação.
Programa Fonte 
MATA461.PRW
Sintaxe

M460FIM - Gravação da NF saida ( < UPAR> ) --> URET

Parâmetros: NomeTipoDescriçãoDefaultObrigatórioReferênciaUPARArray of RecordNenhum.X Retorno URET(qualquer) Nenhum.

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