Jump to content
Notícias do ACBr

click.png click.png click.png

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

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.