[Acbrmonitor - Sainfe.txt - Não Consigo Fazer A Leitura]

Na maioria das vezes não consigo fazer a leitura do retorno arquivo sainfe.txt, na rotina fazendo um loop de 10 vezes  com intervalo de 2 segundos não consigo fazer a leitura, criei uma opção de le.r o xml e assim consigo atualizar os dados no sistema.

 

vocês alguma dica para conseguir fazer esse leitura ?

 

Raul Muñoz

 

 

 

 

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

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

[Erro Na Leitura Do Arquivo Sainfe.txt]

Em alguns casos não consigo ler o arquivo de retorno SAINFE.TXT, mudei a configuração para fazer algumas tentativas e não tive exito.

 

Sem ler automaticamente o arquivo, não consigo atualizar os meus arquivos.

 

O que posso fazer para conseguir ler esse arquivo apos a validação da nfe e a impressão da Danfe.

 

Raul Muñoz

[Não Cria Tag De Ipi Acbrmonitor]

No arquivo de texto indicado a tag [iPI001] não é gerado no nfe.xml, invalidando a nfe.

 

Segue anexo arquivo de entrada e xml gerado pelo ACBRMOnitor.

 

Raul 

35130863950604000119550010000081251000081256-nfe.xml

NFETEMP.INI

[Campos De Envio Para Strib E Pis E Cofins]

Estou começando a usar o acbrmonitor e no exemplo de criação do xlm existem diversos campos não declarados, como STrib, ICMS da Strib, % Pis, % Cofins.

 

Raul Muñoz