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)