Cancelamento (Nenhum Conhecimento Informado)

[FabioMachado]

Não consigo fazer o cancelamento do CT-e segue código.

 

procedure TfrmCTe.btnCancelaNFeClick(Sender: TObject);
var
 vAux, MemoResp : String;
begin
  if (Trim(objCTE_CHAVE_ACESSO.Text) = '') then begin
    MessageDlg('CTe não foi autorizada', mtInformation, [mbOK], 0);
    objCTE_CHAVE_ACESSO.SetFocus;
    Exit;
  end;

  if (objCTE_Numero_LOTE.EditValue = 0) then begin
    MessageDlg('Entre com o número do lote', mtInformation, [mbOK], 0);
    objCTE_Numero_LOTE.SetFocus;
    Exit;
  end;

  if (Trim(objCTE_MOTIVO_CANCELAMENTO.Text) = '') then begin
    MessageDlg('Entre com o motivo do cancelamento', mtInformation, [mbOK], 0);
    objCTE_MOTIVO_CANCELAMENTO.SetFocus;
    Exit;
  end;

 ACBrCTe1.Conhecimentos.Clear;
 OpenDialog1.Title := 'Selecione o CTe';
 OpenDialog1.DefaultExt := '*'+objCTE_CHAVE_ACESSO.Text+'*-cte.xml';
 OpenDialog1.Filter := 'Arquivos CTe ('+objCTE_CHAVE_ACESSO.Text+'-cte.xml)|'+
   objCTE_CHAVE_ACESSO.Text+'-cte.xml|Arquivos XML (*' +
   '.xml)|'+objCTE_CHAVE_ACESSO.Text+'.xml';
 OpenDialog1.InitialDir := ACBrCTe1.Configuracoes.Geral.PathSalvar;


 if OpenDialog1.Execute then
  begin

   ACBrCTe1.Conhecimentos.LoadFromFile(OpenDialog1.FileName);
   ACBrCTe1.Cancelamento(objCTE_MOTIVO_CANCELAMENTO.Text);

   objCTE_PROTOCOLO_CANCELAMENTO.Text:=
     ACBrCTe1.WebServices.Cancelamento.Protocolo;
   ShowMessage(IntToStr(ACBrCTe1.WebServices.Cancelamento.cStat));
   ShowMessage(ACBrCTe1.WebServices.Cancelamento.Protocolo);

  end;

end;

[Italo Giurizzato Junior]

Bom dia Fabio,

 

Você não vai conseguir cancelar mesmo, principalmente se você já esta emitindo na versão 2.00

 

Pelo simples fato que agora o cancelamento é por evento.

 

Favor estudar o arquivo texto chamado: Cancelamento_por_evento que encontra-se na pasta: ...\Exemplos\ACBrCTe.

[dirlenio]

Italo, Bom dia.

Enviei o evento em um cliente, não apareceu nenhuma mensagem nem de erro nem de retorno.

Segue o código, o que estou errando??

 

      ACBrCTe1.EventoCTe.Evento.Clear;

      idLote := 1; //STRTOINT(sConhecimento);

      with ACBrCTe1.EventoCTe.Evento.Add do

      begin

       infevento.chCTe           := sChave;

       infEvento.CNPJ            := TiraPontos(edtEmitCNPJ.text);

       infEvento.dhEvento        := now;

       infEvento.tpEvento        := teCancelamento;

       infEvento.detEvento.xJust := trim(VAUX);

       infEvento.detEvento.nProt := sProtocolo;

       InfEvento.cOrgao          := ACBrCTe1.Configuracoes.WebServices.UFCodigo;

       ACBrCTe1.EnviarEventoCTe(idLote);

[Italo Giurizzato Junior]

Bom dia dirlenio,

 

Você configurou o componente para salvar os XMLs em disco?

 

Se sim, verifique se foi salvo os arquivos:

 

*-ped-evento.xml

*-eve.xml

*-procEventoCTe.xml

[dirlenio]

Bom dia, agora deu erro, mais o estranho que coloquei pra compilar no passo a passo e o ACBRCteutil não compila parte desse arquivo, ele começa no 2:begin

dessa linha pra cima não passa pelo debug. obs.: atualizei o acbr agora pela manhã

 

  Schema.remove('http://www.portalfiscal.inf.br/cte');

 

  case Tipo of

   1: begin

       Schema.add('http://www.portalfiscal.inf.br/cte'

          DFeUtil.SeSenao(DFeUtil.EstaVazio(APathSchemas),

          PathWithDelim(ExtractFileDir(application.ExeName))+'Schemas\',

          PathWithDelim(APathSchemas))+'cteModalAereo_v' + CTeModalAereo + '.xsd');

      end;

   2: begin

       Schema.add('http://www.portalfiscal.inf.br/cte'

          DFeUtil.SeSenao(DFeUtil.EstaVazio(APathSchemas),

          PathWithDelim(ExtractFileDir(application.ExeName))+'Schemas\',

          PathWithDelim(APathSchemas))+'cteModalAquaviario_v' + CTeModalAqua + '.xsd');

      end;

   3: begin

       Schema.add('http://www.portalfiscal.inf.br/cte'

          DFeUtil.SeSenao(DFeUtil.EstaVazio(APathSchemas),

          PathWithDelim(ExtractFileDir(application.ExeName))+'Schemas\',

          PathWithDelim(APathSchemas))+'cteModalDutoviario_v' + CTeModalDuto + '.xsd');

      end;