Cancelamento Ct-e

[Werner_Marques]

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?

[Italo Giurizzato Junior]

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.

[Werner_Marques]

Boa tarde Italo 

Desculpa a demora para responder, mais revir todo o meu código e conseguir resolver o problema. Umas das configurações do componente que verifiquei foi essa :

ACBrCTe1.Configuracoes.WebServices.Visualizar   := True

Agradeço a atenção.