@Celso, bom dia!
Fiz uma pequena revisão apenas na function GerarNFeINI encontrei os seguinte:
Bloco de Identificação
INIRec.WriteString( 'Identificacao','idDest' , DestinoOperacaoToStr(TpcnDestinoOperacao(Ide.idDest))); // Adicionado
INIRec.WriteString( 'Identificacao','indFinal',ConsumidorFinalToStr(TpcnConsumidorFinal(Ide.indFinal))); // Adicionado
INIRec.WriteString( 'Identificacao','indPres', PresencaCompradorToStr(TpcnPresencaComprador(Ide.indPres))); // Adicionado
Bloco Destinatário
INIRec.WriteString( 'Destinatario','IM' ,Dest.IM); // Adicionado
Adicionado o Bloco do NVE do Produto
for N:=0 to Prod.NVE.Count-1 do
begin
if Prod.NVE.Items[N].NVE <> '' then
begin
with Prod.NVE.Items[N] do
begin
sSecao := 'NVE'+IntToStrZero(I+1,3)+IntToStrZero(N+1,3);
INIRec.WriteString(sSecao,'NVE',NVE);
end;
end else Break;
end;
Bloco Adições da Declaração de Importação
INIRec.WriteFloat( sSecao,'nDraw' ,nDraw); // Adicionado
Bom, de imediato foram esses os campos que não encontrei nos códigos
Anexei toda a unit mas só modifiquei a function GerarNFeINI, qq coisa após sua revisão me avise de algum problema.
DoACBrNFeUnit.pas