Carta De Correção

[Ricardo Menon Luchesi]

Pessoal

 

Estou testando a Carta de Correção do ACBRDEMO e está dando a seguinte mensagem 

 

    Project ACBrNfe_demo.exe raised exception class EACBrNfeException with message "

 

 

 

    Antes  aparece a tela

 

   Ambiente : 1

   Versão Aplicativo :

   Status Codigo : 0

   Status Descrição

 

Obrigado,

[ricardo_casc]

Está sem a imagem

[Ricardo Menon Luchesi]

ME DESCULPE MAS NAO ENTENDI

[Ricardo Menon Luchesi]

Alguem poderia me ajudar ?

[Juliomar Marchetti]

Precisamos de mais informações pra saber o problema! 

já verificou conexão? seu certificado está ok? sua internet também está ok?

cadeia de certificados? 

[Ricardo Menon Luchesi]

JUliomar

 

   deu um outro erro agora "Falha na Validacao dos Dados do envio do evento ", segue abaixo como estou fazendo 

 

procedure TFrmConsNFVendas.rzbtbtn4Click(Sender: TObject);

var

 Numerolote      : Integer;

 DataHoraEvento  : TDateTime;

 NumeroProtocolo : string;

 XMLCCe          : string;

 CodigoStatus    : Integer;

 MotivoStatus    : string;

 

 

begin

 

  NumeroLote := StrToInt(FormatDateTime('yymmddhhmm', NOW));

 

  acbrnfe.EventoNFe.evento.Clear;

  acbrnfe.EventoNFe.idLote := Numerolote;

 

with ACBrNFe.EventoNFe.Evento.Add do

begin

  infEvento.chNFe      := edChave.text;

  infEvento.CNPJ       := '61246245000198';

  infEvento.dhEvento   := Now;

  infEvento.tpEvento   := teCCe;

  infEvento.nSeqEvento := 25019;

  infEvento.detEvento.xCorrecao := 'Nr. de Volumes 12';

end;

 

 

 

  if ACBrNFe.EnviarEventoNFe(NumeroLote) then

begin

  with ACBrNFe.WebServices.EnvEvento do

  begin

    if not(EventoRetorno.retEvento.Items[0].RetInfEvento.cStat in [135, 136]) then

    begin

      raise EDatabaseError.CreateFmt(

        'Ocorreu o seguinte erro ao enviar a carta de correção:'  + sLineBreak +

        'Código:%d' + sLineBreak +

        'Motivo: %s', [

          EventoRetorno.retEvento.Items[0].RetInfEvento.cStat,

          EventoRetorno.retEvento.Items[0].RetInfEvento.xMotivo

      ]);

    end;

 

    // retornos

    DataHoraEvento  := EventoRetorno.retEvento.Items[0].RetInfEvento.dhRegEvento;

    NumeroProtocolo := EventoRetorno.retEvento.Items[0].RetInfEvento.nProt;

    XMLCCe          := EventoRetorno.retEvento.Items[0].RetInfEvento.XML;

    CodigoStatus    := EventoRetorno.retEvento.Items[0].RetInfEvento.cStat;

    MotivoStatus    := EventoRetorno.retEvento.Items[0].RetInfEvento.xMotivo;

  end;

end

else

begin

  with ACBrNFe.WebServices.EnvEvento do

  begin

    raise Exception.Create(

      'Ocorreram erros ao enviar a Carta de Correção:' + sLineBreak +

      'Lote: '     + IntToStr(EventoRetorno.idLote) + sLineBreak +

      'Ambiente: ' + TpAmbToStr(EventoRetorno.tpAmb) + sLineBreak +

      'Orgao: '    + IntToStr(EventoRetorno.cOrgao) + sLineBreak +

      sLineBreak +

      'Status: '   + IntToStr(EventoRetorno.cStat) + sLineBreak +

      'Motivo: '   + EventoRetorno.xMotivo

    );

  end;

end;

[Juliomar Marchetti]

veja

http://www.regys.com.br/como-enviar-uma-carta-de-correcao-utilizando-o-acbrnfe/

[Ricardo Menon Luchesi]

juliomar

  

foi exatamente este exemplo que peguei e esta dando este erro 

 

  Falha na validacao dos dados do envio do evento 

the attribute "ID"  with value  ID110110351476124500019855001000025019100400000125019  failed to parse

[joemil]

e eu nao estou conseguindo imprimir a Carta de Correcao:

 

         // CARREGA O XML DA NFE
         dmDados.NFe.NotasFiscais.Clear;
         dmDados.NFe.NotasFiscais.LoadFromFile(dmDados.PastaXML(sqlvendasNF_Data.value) + Chave + '-nfe.xml');


         // CARREGA O XML DA CCE
         Arquivo := dmDados.PastaXML(sqlvendasNF_Data.value) + fNFe_Impressao.ListBox1.Items[fNFe_Impressao.ListBox1.ItemIndex];
         ShowMessage(Arquivo);
         dmDados.NFe.EventoNFe.Evento.Clear;
         dmDados.NFe.EventoNFe.LerXML(Arquivo);
         dmDados.NFe.ImprimirEvento;

da o erro:

 

[Ricardo Menon Luchesi]

juliomar

 

  Tem alguma posição quanto ao problema acima ?

 

Obrigado,

[joemil]

copiei esse codigo do exemplo. no exemplo funciona, mas no meu sistema nao. alguma sugestao?

[Ricardo Menon Luchesi]

JUliomar

 

  tem alguma sugestão pois ja tentei de tudo e nao estou conseguindo

 

Obrigado

[Juliomar Marchetti]

Bom a primeira coisa a observar a pasta de schemas estão certas e atualizadas?

[Ricardo Menon Luchesi]

Juliomar

 

    coloquei a pasta referente o SCHEMA no ACBrNfe1.PathSchemas e rodei novamente

 

    aparece : Ambiente : 1

                   Versao Aplicativo :

                   Status Codigo : 0

                   Status Descrição :

 

 

   dei OK e aparece outra tela  sem nada escrito só da para digitar OK

 

Obrigado

[Ricardo Menon Luchesi]

estou com o seguinte problema no envio da carta de correção

 

 

   Ocorreu o seguinte erro ao enviar a carta de correção 

   Codigo : 494

  Motivo : rejeicao chave de acesso inexistente para o tpEvento que exige a existencia da Nf-e

 

segue como estou fazendo :

 

  NumeroLote := StrToInt(FormatDateTime('yymmddhhmm', NOW));

 

  acbrnfe.EventoNFe.evento.Clear;

  acbrnfe.EventoNFe.idLote := Numerolote;

 

with ACBrNFe.EventoNFe.Evento.Add do

begin

  infEvento.chNFe      := edChave.text;

  infEvento.CNPJ       := '61246245000198';

  infEvento.dhEvento   := Now;

  infEvento.tpEvento   := teCCe;

  infEvento.nSeqEvento := 1;

  infEvento.detEvento.xCorrecao := 'Nr. de Volumes 12';

end;

 

 

 

  if ACBrNFe.EnviarEventoNFe(NumeroLote) then

begin

  with ACBrNFe.WebServices.EnvEvento do

  begin

    if not(EventoRetorno.retEvento.Items[0].RetInfEvento.cStat in [135, 136]) then

    begin

      raise EDatabaseError.CreateFmt(

        'Ocorreu o seguinte erro ao enviar a carta de correção:'  + sLineBreak +

        'Código:%d' + sLineBreak +

        'Motivo: %s', [

          EventoRetorno.retEvento.Items[0].RetInfEvento.cStat,

          EventoRetorno.retEvento.Items[0].RetInfEvento.xMotivo

      ]);

    end;

 

    // retornos

    DataHoraEvento  := EventoRetorno.retEvento.Items[0].RetInfEvento.dhRegEvento;

    NumeroProtocolo := EventoRetorno.retEvento.Items[0].RetInfEvento.nProt;

    XMLCCe          := EventoRetorno.retEvento.Items[0].RetInfEvento.XML;

    CodigoStatus    := EventoRetorno.retEvento.Items[0].RetInfEvento.cStat;

    MotivoStatus    := EventoRetorno.retEvento.Items[0].RetInfEvento.xMotivo;

  end;

end

else

begin

  with ACBrNFe.WebServices.EnvEvento do

  begin

    raise Exception.Create(

      'Ocorreram erros ao enviar a Carta de Correção:' + sLineBreak +

      'Lote: '     + IntToStr(EventoRetorno.idLote) + sLineBreak +

      'Ambiente: ' + TpAmbToStr(EventoRetorno.tpAmb) + sLineBreak +

      'Orgao: '    + IntToStr(EventoRetorno.cOrgao) + sLineBreak +

      sLineBreak +

      'Status: '   + IntToStr(EventoRetorno.cStat) + sLineBreak +

      'Motivo: '   + EventoRetorno.xMotivo

    );

  end;

end;

[Italo Giurizzato Junior]

Boa noite Ricardo,

 

Veja o motivo da rejeição:

 

 Chave de acesso inexistente para o tpEvento que exige a existencia da Nf-e

 

Segundo a SEFAZ você enviar um evento de Carta de Correção para uma NF-e que nem sequer foi emitida.

[joemil]

ainda nao consegui imprimir. da o mesmo erro. os arquivos sao:

 

F:\joemil\Sistemas\_ControlFacil\NFE\2014-07\51140703806553000124550010000004391000004395-nfe.xml

F:\joemil\Sistemas\_ControlFacil\NFE\2014-07\5114070380655300012455001000000439100000439511011001-procEventoNFe.xml

 

e na imagem abaixo podemos ver q os arquivos estao na pasta:

 

Editado 23 Julho, 2014 por joemil

[Ricardo Menon Luchesi]

Italo

 

  Ok, agora não está gravando.

 

Obrigado,

[Ricardo Menon Luchesi]

Italo,

 

   eu consigo abrir e imprimir este XML, como faço com a DANFE ?

 

att,

[Italo Giurizzato Junior]

Boa tarde Ricardo,

 

Tente desta forma:

 

     // Carrega no Componente a NFe salvo em Arquivo XML (<chave>-nfe.xml)

     ACBrNFe.NotasFiscais.Clear;

     ACBrNFe.NotasFiscais.LoadFromFile(NomeArquivo);

 

     // Carrega no Componente o Evento salvo em Arquivo XML (<chave>-procEventoNFe.xml)

     ACBrNFe.EventoNFe.Evento.Clear;

     ACBrNFe.EventoNFe.LerXML(NomeEvento);

 

     // Imprime o Evento

     ACBrNFe.ImprimirEvento;