mas ele esta em branco.
minha rotina esta assim:
fprincipal.ACBrNFe1.NotasFiscais.LoadFromFile(ASParams.Arquivo);
fprincipal.ACBrNFe1.NotasFiscais.GerarNFe;
try
fprincipal.ACBrNFe1.Enviar(1,false,true);
if (fprincipal.ACBrNFe1.NotasFiscais.Items[0].Confirmada = true) then
begin
fprincipal.ACBrNFe1.DANFE := fprincipal.ACBrDanfe1;
fprincipal.ACBrDanfe1.Logo := ASParams.Logotipo;
fprincipal.ACBrDanfe1.PathPDF := ASParams.DirPDF;
fprincipal.ACBrNFe1.NotasFiscais.Items[0].ImprimirPDF;
end
else ufuncoes.gravar_log(IntToStr(fprincipal.ACBrNFe1.NotasFiscais.Items[0].cStat)+#13#10+sFile+#13#10+'Nota não Confirmada',ASParams.Usuario);
except on E: Exception do
begin
if ((erro = false) and (fprincipal.ACBrNFe1.WebServices.Enviar.cStat <> 204)) then ufuncoes.gravar_log('999'+#13#10+e.Message+#13#10+IntToStr(fprincipal.ACBrNFe1.WebServices.Enviar.cStat),ASParams.Usuario);
if ((erro = false) and (fprincipal.ACBrNFe1.WebServices.Enviar.cStat = 204)) then
begin
sMsg := IntToStr(fprincipal.ACBrNFe1.WebServices.Enviar.cStat)+#13#10+sFile+#13#10+
fprincipal.ACBrNFe1.WebServices.Enviar.xMotivo+#13#10+
fprincipal.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.nProt;
ufuncoes.gravar_log(sMsg,ASParams.Usuario);
end;
erro := true;
end;
end;
anteriormente esse protocolo aparecia