Estou tentando enviar uma carta de correção pelo acbrmonitor e recebo a seguinte mensagem: Nenhuma CC-e adicionada ao lote
Estou enviando o arquivo e codificação
Obrigado
Raul Muñoz
//codificação.
_prot := '';
_hora := '';
AssignFile(_CCeNew,edtpathLogs.Text + '\CCeTemp.ini');
Rewrite(_CCeNew);
WriteLn(_CCeNew,'NFE.CARTADECORRECAO(');
writeLn(_CCenew,'[CCE]');
WriteLn(_CCeNew,'idlote=' + DataModule1.IBodFaturaNUM_NF.AsString + DataModule1.IBOdFatura_CCESEQUENCIA.AsString); //[identificacao]
writeLn(_CCeNew,'[EVENTO=00' +DataModule1.IBOdFatura_CCESEQUENCIA.AsString + ']');
writeLn(_CCeNew,'chNFe=' + DataModule1.IBodFaturaNFE_CHAVE.AsString) ;
writeLn(_CCeNew,'cOrgao=' + Copy(DB_CodCid.Text,1,2));
writeln(_CCeNew,'CNPJ=' + Limpa_Str(DB_CNPJ.Text));
writeln(_CCeNew,'dtEvento=' + FormatDateTime('dd/mm/yyyy HH:MM:SS',Now));
writeLn(_CCeNew,'nSeqEvento=' + DataModule1.IBOdFatura_CCESEQUENCIA.AsString);
writeLn(_CCeNew,'xCorrecao="' + DataModule1.IBOdFatura_CCECORRECAO.AsString + '")');
CloseFile(_CCeNew);
//abrindo arquivo
AssignFile(_NfeEnt,edtpathLogs.Text + '\entnfe.txt');
Rewrite(_NfeEnt);
WriteLn(_NfeEnt,'Nfe.CartadeCorrecao("' + edtpathLogs.Text + '\CCeTemp.ini'+'")');
CloseFile(_NfeEnt);
_hora := '';
_Prot := '';
_Ok := '';
AssignFile(_NfeSAI,edtpathLogs.Text + '\sainfe.txt');
Reset(_NfeSAI);
readLn(_NfeSAI,_linha);
if _ok = 'OK' Then
Begin
if Copy(_Linha,1,5) = 'nProt' Then _Prot := Copy(_linha,7,(Length(_Linha)-7));
if Copy(_linha,1,5) = 'dhReg' Then _hora := Copy (_linha,13,(Length(_Linha)-7));
End;
CloseFile(_NfeSai);
DeleteFile(edtpathLogs.Text + '\sainfe.txt' );
CCeTemp.ini