Histórico da Página

#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 aRetorno  := {}
Local cMsg      := ""

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)

// Ajuste na aDetPag
AdetPag  := {}

aadd(aDetPag,;
				{"14",;// Forma de pagamento
				 470.00,;// Valor do Pagamento
				0.00})//Troco 

aadd(aDetPag,;

{"

03",; //

Forma

de

pagamento

550.00,; //

Valor

do

Pagamento
20.00,; //Troco
"1",; // Tipo de Integração para pagamento //Opcional se levar deverá preencher os itens abaixo com valor ou "".
"32331472001195",; //CNPJ da Credenciadora de cartão de crédito e/ou débito // Opcional
"01",; //Bandeira da operadora de cartão de crédito e/ou débito //opcional
"123456"}) //Número de autorização da operação cartão de crédito e/ou débito //opcional

				20.00})//Troco
				
aadd(aRetorno,aDetPag)

RETURN aRetorno

Return