Jump to content

click.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

click.png

click.png

Cancelamento Ct-e


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

Recommended Posts

  • Membros Pro

Boa tarde 

Estou com um problema no cancelamento do Ct-e, sempre que tento cancelar não tenho retorno da SEFAZ, só que ao consultar o CT no portal está cancelado e no sistema não obtenho nenhum retorno ou resposta. 

Segue abaixo todo o código de  como esta sendo cancelado:

   OpenDialog1.Title := 'Selecione o CTe a ser Cancelado';
   OpenDialog1.DefaultExt := '*-cte.xml';
   OpenDialog1.Filter := 'Arquivos CTe (*-cte.xml)|*-cte.xml|Arquivos XML (*.xml)|*.xml|Todos os Arquivos (*.*)|*.*';
   OpenDialog1.InitialDir := ACBrCTe1.Configuracoes.Arquivos.PathSalvar;

   if OpenDialog1.Execute then begin

       ACBrCTe1.Conhecimentos.Clear;
       ACBrCTe1.Conhecimentos.LoadFromFile(OpenDialog1.FileName);

       if not(InputQuery('Cancelamento do CTe:', 'Justificativa', vAux))
          then exit;

       ACBrCTe1.EventoCTe.Evento.Clear;
       ACBrCTe1.Configuracoes.Arquivos.PathSalvar  := 'c:\sis\cte\xml_emitente\';
       ACBrCTe1.Configuracoes.Arquivos.PathSchemas := 'c:\sis\cte\xml_schemas\';

       with ACBrCTe1.EventoCTe.Evento.Add do begin
         infEvento.nSeqEvento      := 1; // Para o Evento de Cancelamento: nSeqEvento sempre = 1
         infEvento.chCTe           := Copy(ACBrCTe1.Conhecimentos.Items[0].CTe.infCTe.Id, 4, 44);
         infEvento.CNPJ            := qrempresa.fieldbyname('nr_cgc').asstring;
         infEvento.dhEvento        := now;
         infEvento.tpEvento        := teCancelamento;
         infEvento.detEvento.xJust := trim(vAux);
         infEvento.detEvento.nProt := ACBrCTe1.Conhecimentos.Items[0].CTe.procCTe.nProt;
       end;


       iLote := 1; // Numero do Lote do Evento
       ACBrCTe1.EnviarEvento(iLote);
       MemoResp.Lines.Text :=  UTF8Encode(ACBrCTe1.WebServices.EnvEvento.RetWS);
       LoadXML(MemoResp, WBResposta);

       ShowMessage(IntToStr(ACBrCTe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.cStat));
       ShowMessage(ACBrCTe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.nProt);

   end;

Alguém poderia me ajudar?

Link to comment
Share on other sites

  • Consultores

Boa noite Werner,

Você configurou o componente para salvar os arquivos?

Configuracoes.Arquivos.Salvar := True;

Se sim, favor anexar os arquivos:

*-ped-eve.xml

*-eve.xml

*-procEventoCTe.xml

que são gerados após a execução do método EnviarEvento.

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

×
×
  • 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.