Jump to content
Notícias do ACBr

logo_acbr_paygo.png

TEF ACBr PayGo
Seja um revendedor e ofereça uma solução completa para seu cliente.


Saiba mais

beneficios.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png click.png click.png

Erro emissão carta de correção do CTE


Vicente Malagoni
  • Este tópico foi criado há 658 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui

Recommended Posts

  • Consultores

Bom dia Vicente,

A mensagem de erro de validação é clara, você não esta informando o elemento infCorrecao.

No programa exemplo do componente não existe um botão referente a CC-e do CT-e.

Favor anexar em um arquivo TXT a rotina que você alimenta o componente com as informações para a CC-e.

  • Like 1
Consultor SAC ACBr Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Link to comment
Share on other sites

1 hora atrás, Italo Jurisato Junior disse:

Bom dia Vicente,

A mensagem de erro de validação é clara, você não esta informando o elemento infCorrecao.

No programa exemplo do componente não existe um botão referente a CC-e do CT-e.

Favor anexar em um arquivo TXT a rotina que você alimenta o componente com as informações para a CC-e.

 

Segue abaixo o código:


   CTE.EventoCTe.Evento.Clear;
   CTE.EventoCTe.idLote := StrToInt(idLote);
   with CTE.EventoCTe.Evento.Add do
      begin
      infEvento.tpEvento := teCCe;
      infEvento.chCTe := Chave;
      infEvento.cOrgao := StrToInt(codOrgao);
      infEvento.CNPJ   := CNPJ;
      infEvento.dhEvento := now;
      infEvento.nSeqEvento := StrToInt(nSeqEvento);
      infEvento.detEvento.xOBS:= Correcao;
      end;
   CTE.EnviarEvento(StrToInt(idLote));
   MemoResp.Lines.Text := UTF8Encode(CTE.WebServices.EnvEvento.RetWS);
//   LoadXML(WBResposta.lines, WebBrowser1);

   CTE.EventoCTe.GerarXML;
   arquivo:=CTE.EventoCTe.ObterNomeArquivo(teCCe);
   CTE.ImprimirEvento;

 

Link to comment
Share on other sites

  • Consultores

Boa tarde Vicente,

A sua rotina esta incompleta, veja este exemplo:

 ACBrCTe.EventoCTe.Evento.Clear;

 with ACBrCTe.EventoCTe.Evento.New do
 begin
   infevento.chCTe              := Chave;
   infEvento.CNPJ               := CNPJ;
   infEvento.dhEvento           := now;
   infEvento.tpEvento           := teCCe;
   infEvento.nSeqEvento         := Sequencia;
   infEvento.detEvento.xCondUso := '';

   ACBrCTe.EventoCTe.Evento.Items[0].InfEvento.detEvento.infCorrecao.Clear;

   with ACBrCTe.EventoCTe.Evento.Items[0].InfEvento.detEvento.infCorrecao.New do
   begin
     grupoAlterado   := Grupo;
     campoAlterado   := Campo;
     valorAlterado   := Conteudo;
     nroItemAlterado := NumItem;
   end;
 end;

 ACBrCTe.EnviarEvento(idLote);

 // Imprime o Evento
 PathArquivo := ACBrCTe.Configuracoes.Arquivos.GetPathCTe(DataEmissao);
 ACBrCTe.Configuracoes.Arquivos.PathEvento := PathArquivo;
 dhEvento := ACBrCTe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.dhRegEvento;

 PathEvento := ACBrCTe.Configuracoes.Arquivos.GetPathEvento(teCCe, '', dhEvento);
 NomeEvento := PathEvento + '\' + '110110' + Chave + '01' + '-procEventoCTe.xml';

 ACBrCTe.EventoCTe.Evento.Clear;
 ACBrCTe.EventoCTe.LerXML(NomeEvento);
 ACBrCTe.ImprimirEvento;

Para mais informações sobre o grupo infCorrecao: página 107 do Manual do CT-e versão 3.00a Visão Geral que esta disponível em nossa biblioteca de documentos.

 

  • Like 1
Consultor SAC ACBr Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Link to comment
Share on other sites

Em 04/10/2019 at 13:23, Italo Jurisato Junior disse:

Boa tarde Vicente,

A sua rotina esta incompleta, veja este exemplo:

 ACBrCTe.EventoCTe.Evento.Clear;

 with ACBrCTe.EventoCTe.Evento.New do
 begin
   infevento.chCTe              := Chave;
   infEvento.CNPJ               := CNPJ;
   infEvento.dhEvento           := now;
   infEvento.tpEvento           := teCCe;
   infEvento.nSeqEvento         := Sequencia;
   infEvento.detEvento.xCondUso := '';

   ACBrCTe.EventoCTe.Evento.Items[0].InfEvento.detEvento.infCorrecao.Clear;

   with ACBrCTe.EventoCTe.Evento.Items[0].InfEvento.detEvento.infCorrecao.New do
   begin
     grupoAlterado   := Grupo;
     campoAlterado   := Campo;
     valorAlterado   := Conteudo;
     nroItemAlterado := NumItem;
   end;
 end;

 ACBrCTe.EnviarEvento(idLote);

 // Imprime o Evento
 PathArquivo := ACBrCTe.Configuracoes.Arquivos.GetPathCTe(DataEmissao);
 ACBrCTe.Configuracoes.Arquivos.PathEvento := PathArquivo;
 dhEvento := ACBrCTe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.dhRegEvento;

 PathEvento := ACBrCTe.Configuracoes.Arquivos.GetPathEvento(teCCe, '', dhEvento);
 NomeEvento := PathEvento + '\' + '110110' + Chave + '01' + '-procEventoCTe.xml';

 ACBrCTe.EventoCTe.Evento.Clear;
 ACBrCTe.EventoCTe.LerXML(NomeEvento);
 ACBrCTe.ImprimirEvento;

Para mais informações sobre o grupo infCorrecao: página 107 do Manual do CT-e versão 3.00a Visão Geral que esta disponível em nossa biblioteca de documentos.

 

Bom dia

Fiz a implementação da rotina, agora esta enviando a Carta de Correção Certinho. 

Muito Obrigado pela ajuda.

  • Like 1
Link to comment
Share on other sites

  • Este tópico foi criado há 658 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui
Guest
This topic is now closed to further replies.
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.