Histórico da Página

...

Portuguese

Pagetitle

	PE01NFESEFAZ - Manipulação em dados do produto
	PE01NFESEFAZ - Manipulação em dados do produto

Descrição:

Ponto de entrada localizado na função XmlNfeSef do rdmake NFESEFAZ. Através deste ponto é possível realizar manipulações nos dados do produto, mensagens adicionais, destinatário, dados da nota, pedido de venda ou compra, antes da 
montagem do XML, no momento da transmissão da NFe.

Programa Fonte:

NFESEFAZ.PRW

Sintaxe:

PE01NFESEFAZ - Manipulação em dados do produto ( [ aParam ] ) --> aRetorno

Parâmetros:

Nome

Tipo

Descrição

Default

Possição no Array

Obrigatório

Referência

		Default
aParam	Array of Record	aProd := PARAMIXB[1] cMensCli := PARAMIXB[2] cMensFis := PARAMIXB[3] aDest := PARAMIXB[4] aNota := PARAMIXB[5] aInfoItem := PARAMIXB[6] aDupl := PARAMIXB[7] aTransp := PARAMIXB[8] aEntrega := PARAMIXB[9] aRetirada := PARAMIXB[10] aVeiculo := PARAMIXB[11] aReboque := PARAMIXB[12] aNfVincRur:= PARAMIXB[13] aEspVol := PARAMIXB[14] aNfVinc := PARAMIXB[15] aDetPag := PARAMIXB[16] aObsCont:= PARAMIXB[17] aProcRef := PARAMIXB[18] aMed := PARAMIXB[19] aLote := PARAMIXB[20]

aProcRef	Array of Record		18
		nProc
		indProc
		tpAto
aMed	Array of Record		19
		Lote	1
		qLote	2
		dtFab	3
		dtVal	4
		vPMC	5
		cProdANVISA	6
		MotivoIsencao	7
aLote	Array of Record		20
		nLote	1
		qLote	2
		dFab	3
		dVal	4
		cAgreg	5

Retorno:

aRetorno

//O retorno deve ser exatamente nesta ordem e passando o conteúdo completo dos arrays
//pois no rdmake nfesefaz é atribuido o retorno completo para as respectivas variáveis
//Ordem:
// aRetorno[1] -> aProd
// aRetorno[2] -> cMensCli
// aRetorno[3] -> cMensFis
// aRetorno[4] -> aDest
// aRetorno[5] -> aNota
// aRetorno[6] -> aInfoItem
// aRetorno[7] -> aDupl
// aRetorno[8] -> aTransp
// aRetorno[9] -> aEntrega
// aRetorno[10] -> aRetirada
// aRetorno[11] -> aVeiculo
// aRetorno[12] -> aReboque
// aRetorno[13] -> aNfVincRur
// aRetorno[14] -> aEspVol
// aRetorno[15] -> aNfVinc
// aRetorno[16] -> AdetPag
// aRetorno[17] -> aObsCont
// aRetorno[[1818] -> aProcRef
// aRetorno[19] -> aProcRef

Observações

> aMed
// aRetorno[20] -> aLote

Bloco de código

title	Exemplo
linenumbers	true

#include "protheus.ch"
USER FUNCTION PE01NFESEFAZ()
Local aProd		:= PARAMIXB[1]
Local cMensCli	:= PARAMIXB[2]
Local cMensFis	:= PARAMIXB[3]
Local aDest		:= PARAMIXB[4] 
Local aNota   	:= PARAMIXB[5]
Local aInfoItem	:= PARAMIXB[6]
Local aDupl		:= PARAMIXB[7]
Local aTransp	:= PARAMIXB[8]
Local aEntrega	:= PARAMIXB[9]
Local aRetirada	:= PARAMIXB[10]
Local aVeiculo	:= PARAMIXB[11]
Local aReboque	:= PARAMIXB[12]
Local aNfVincRur:= PARAMIXB[13]
Local aEspVol   := PARAMIXB[14]
Local aNfVinc   := PARAMIXB[15]
Local AdetPag  	:= PARAMIXB[16]
Local aObsCont  := PARAMIXB[17]
Local aProcRef  := PARAMIXB[18]
Local aMed		:= PARAMIXB[19]
Local aLote		:= PARAMIXB[20]

Local aRetorno		:= {}
Local cMsg			:= ""
cMsg := 'Produto: '+aProd[1][4] + CRLF
cMsg += 'Mensagem da nota: '+cMensCli + CRLF
cMsg += 'Mensagem padrao: '+cMensFis + CRLF
cMsg += 'Destinatario: '+aDest[2] + CRLF   
cMsg += 'Numero da nota: '+aNota[2] + CRLF
cMsg += 'Pedido: ' +aInfoItem[1][1]+ 'Item PV: ' +aInfoItem[1][2]+ 'Codigo do Tes: ' +aInfoItem[1][3]+ 'Quantidade de itens no pedido: ' +aInfoItem[1][4] + CRLF
cMsg += 'Existe Duplicata ' + If( len(aDupl) > 0, "SIM", "NAO" )  + CRLF
cMsg += 'Existe Transporte ' + If( len(aTransp) > 0, "SIM", "NAO" ) + CRLF
cMsg += 'Existe Entrega ' + If( len(aEntrega) > 0, "SIM", "NAO" ) + CRLF
cMsg += 'Existe Retirada ' + If( len(aRetirada) > 0, "SIM", "NAO" ) + CRLF
cMsg += 'Existe Veiculo ' + If( len(aVeiculo) > 0, "SIM", "NAO" ) + CRLF
cMsg += 'Placa Reboque: ' + IIf(len(aReboque)> 0,aReboque[1],"NAO")+ 'Estado Reboque:' + IIf(len(aReboque) > 1, aReboque[2],"NAO")+ 'RNTC:' + IIf(len(aReboque) >2,aReboque[3],"NAO") + CRLF
cMsg += 'Nota Produtor Rural Referenciada: ' + If( len(aVeiculo) > 0, "SIM", "SEM NOTA REF." ) + CRLF
cMsg += 'Especie Volume: ' + If( len(aEspVol) > 0, "SIM", "NAO" ) + CRLF
cMsg += 'NF Vinculada: ' + If( len(aNfVinc) > 0, "SIM", "NAO" ) + CRLF
 
Alert(cMsg)
//O retorno deve ser exatamente nesta ordem e passando o conteúdo completo dos arrays
//pois no rdmake nfesefaz é atribuido o retorno completo para as respectivas variáveis
//Ordem:
//		aRetorno[1] -> aProd
//		aRetorno[2] -> cMensCli
//		aRetorno[3] -> cMensFis
//		aRetorno[4] -> aDest
//		aRetorno[5] -> aNota
//		aRetorno[6] -> aInfoItem
//		aRetorno[7] -> aDupl
//		aRetorno[8] -> aTransp
//		aRetorno[9] -> aEntrega
//		aRetorno[10] -> aRetirada
//		aRetorno[11] -> aVeiculo
//		aRetorno[12] -> aReboque
//		aRetorno[13] -> aNfVincRur
//      aRetorno[14] -> aEspVol
//      aRetorno[1415] -> aEspVolaNfVinc
//      aRetorno[16] -> AdetPag
//      aRetorno[1517] -> aObsCont  
//      aRetorno[18] -> aNfVincaProcRef
//      aRetorno[19] -> aMed
//      aRetorno[1620] -> AdetPagaLote

aadd(aRetorno,aProd) 
aadd(aRetorno,cMensCli)
aadd(aRetorno,cMensFis)
aadd(aRetorno,aDest)
aadd(aRetorno,aNota)
aadd(aRetorno,aInfoItem)
aadd(aRetorno,aDupl)
aadd(aRetorno,aTransp)
aadd(aRetorno,aEntrega)
aadd(aRetorno,aRetirada)
aadd(aRetorno,aVeiculo)
aadd(aRetorno,aReboque)
aadd(aRetorno,aNfVincRur)
aadd(aRetorno,aEspVol)
aadd(aRetorno,aNfVinc)
aadd(aRetorno,AdetPag)
aadd(aRetorno,aObsCont)
aadd(aRetorno,aProcRef)
aadd(aRetorno,aMed)
aadd(aRetorno,aLote)
 

RETURN aRetorno

Variáveis

Nome

Tipo

Escopo

Pode Alterar

descrição

Array of Record

Global

Não

...

Páginas filhas

Versões comparadas

Versão antiga 9

Nova versão Atual

Chave