Linha Microsiga Protheus

Árvore de páginas

01. DADOS GERAIS


Linha de Produto:Microsiga Protheus®
Segmento:Serviços
Módulo:Fiscal

02. DESCRIÇÃO

Efetua a validação no cabeçalho da Nota Fiscal de Entrada através da Rotina MATA910.

03. ESPECIFICAÇÃO

Este ponto de entrada para validação das informações do cabeçalho no documento de entrada manual:

NomeTipoDescrição
dDEmissaoDataData de emissão da Nota Fiscal
cTipoArray of RecordTipo da Nota Fiscal
cNFiscalArray of RecordNúmero da Nota Fiscal
cEspecieArray of RecordEspécie da Nota Fiscal
cA100ForArray of RecordFornecedor da Nota Fiscal
cLojaArray of RecordLoja da Nota Fiscal


04. EXEMPLO DE UTILIZAÇÃO


MAT910OK
#Include "Protheus.ch"
#Include "TopConn.ch"

User Function MAT910OK() 

Local dDEmissao := ParamixB[1] //Data de emissao da Nota Fiscal
Local cTipo 	:= ParamixB[2] //Tipo da Nota Fiscal    
Local cNFiscal 	:= ParamixB[3] //Numero da Nota Fiscal
Local cEspecie 	:= ParamixB[4] //Especie da Nota Fiscal
Local cA100For	:= ParamixB[5] //Fornecedor da Nota Fiscal
Local cLoja		:= ParamixB[6] //Loja da Nota Fiscal
Local lRet		:= .F.
Local aArea		:=  GetArea()	

If Alltrim(cEspecie) == "NF"		   
	lRet :=	.T.	
Else	   
	Alert("Especie invalida " +cEspecie+". A epecie digitada deve ser NF")       	
EndIf

Alert("Ponto de Entrada MAT910OK")              

RestArea (aArea)

Return lRet


05. INFORMAÇÕES ADICIONAIS

Não Há