Este ponto de entrada foi disponibilizado no ano passado para que seja possível manipular os vetores antes da transmissão da NF-e sem a necessidade de customizar o fonte NFESEFAZ.PRW facilitando o processo de atualização desse RDMake. Segue um exemplo de uso:
/*
———————————————————
PE01NFESEFAZ
———————————————————
Parametros :ParamIXB
ParamIXB[01] aProd
ParamIXB[02] cMensCli
ParamIXB[03] cMensFis
ParamIXB[04] aDest
ParamIXB[05] aNota
ParamIXB[06] aInfoItem
ParamIXB[07] aDupl
ParamIXB[08] aTransp
ParamIXB[09] aEntrega
ParamIXB[10] aRetirada
ParamIXB[11] aVeiculo
ParamIXB[12] aReboque
———————————————————
Partida : NFESEFAZ (P.E.)
———————————————————
*/
****************************
User Function PE01NFESEFAZ()
****************************
aRet := ParamIXB
cTipo := If(aRet[5, 4] = “1”, “S”, “E”) //Tipo de Nota: 1 – Saída, 2 – Entrada
cDoc := aRet[5, 2] //Número da Nota
cSerie := aRet[5, 1] //Série da Nota
If cTipo = “S”
For I := 1 To Len(aRet[01])
// Adiciona os números dos lotes na mensagem complementar da NF-e.
If !Empty(aRet[01, I, 19])
aRet[02] += ” – ITEM “+AllTrim(Str(aRet[01, I, 1]))+”: “+AllTrim(aRet[01, I, 2])+” LOTE “+AllTrim(aRet[01, I, 19])
EndIf
Next
EndIf
Return(aRet)
One thought on “Ponto de Entrada para NFESEFAZ”