Cancelamento da CTe

[José de Paiva Neto]

Ola a todos. Comecei a ver o manual do CTe, gostaria de saber qual web service e qual .xsd que é necessario para realizar o retorno do cancelamento. Esta meio confuso no manual... Obrigado

[Joabe Anderson da Silva]

33 minutos atrás, José de Paiva Neto disse:

Ola a todos. Comecei a ver o manual do CTe, gostaria de saber qual web service e qual .xsd que é necessario para realizar o retorno do cancelamento. Esta meio confuso no manual... Obrigado

Segue o exemplo do demo.

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;

   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            := edtEmitCNPJ.Text;
     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);
   memoRespWS.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;

 

[José de Paiva Neto]

Agradeço a sua ajuda, mas não me ajudou na minha pergunta. Qual webservice(nome do webservice) devo utilizar? obrigado.

[Juliomar Marchetti]

Certo a pergunta é você usa o componente do ACBrCTe?

[José de Paiva Neto]

a

Editado 23 Novembro, 2016 por José de Paiva Neto