Carta De Correção - Nenhuma Cc-E Adicionada Ao Lote

[Munoz]

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

[André Ferreira de Moraes]

O correto é [EVENTO001] e não [EVENTO=001]