duvida com cancelamento

[felipeiw]

Pessoal estou com uma duvida na rotina abaixo, onde tento pegar o status do cte:

    ACBrCTe.Conhecimentos.Clear;
    ACBrCTe.Conhecimentos.LoadFromFile(DiretorioXML,False);
    ACBrCTe.WebServices.Consulta.CTeChave := CdsFretesCHAVE.Value;
    ACBrCTe.WebServices.Consulta.Executar;

nos ctes cancelados esta retornando cStat, esta retornando o codigo 239, porem esse codigo tem haver com Cabeçalho - Versão do arquivo XML não suportada

o cancelando no sefaz esta sendo feito, mas nao consigo pegar o retorno correto para cancelar no meu sistema.

obrigado

 

[wagner_fix]

Boa tarde,

Você está informando ao componente a versão 3.0?

   ACBrCTe1.EventoCTe.VersaoDF                      := ve300;
   ACBrCTe1.EventoCTe.Versao                        := '3.00';
 

Grato,

Wagner

[felipeiw]

Ola wagner mt obrigado pela resposta

estou informando dessa maneira:

ACBrCTe1.Configuracoes.Geral.VersaoDF := ve300;

Abs

 

 

[BigWings]

12 minutos atrás, felipeiw disse:

Ola wagner mt obrigado pela resposta

estou informando dessa maneira:

ACBrCTe1.Configuracoes.Geral.VersaoDF := ve300;

Abs

Não cheguei a verificar mas é possível que o componente esteja alterando a versão assim que você carrega um XML da versão 2.00 para ele.

Faça o teste e tente fazer o cancelamento informando apenas a chave do CTe e o protocolo de autorização do mesmo.

[wagner_fix]

@felipeiw mas no caso do cancelamento é um evento por isso, passa o parâmetro que eu te indiquei acima...

Abraço,

Wagner

[Leandro Miler Santana]

Verifique se a tag no seu componente Visual, não está marcada para versão 2.0. 

Pode ser que no desenvolvimento do projeto você setou esta opção, e em algum lugar do seu sistema ele ainda esteja puxando o dado configurado em tempo de design.

[felipeiw]

muito obrigado pela ajuda amigos, funcionou da seguinte maneira:

    ACBrCTe.WebServices.Consulta.CTeChave := CFretesCHAVE.Value;
    ACBrCTe.WebServices.Consulta.Executar;

    for i := 0 to ACBrCTe.WebServices.Consulta.procEventoCTe.Count - 1 do
    begin
      if (ACBrCTe.WebServices.Consulta.procEventoCTe.Items.RetEventoCTe.InfEvento.tpEvento = teCancelamento) then
      begin
        if (ACBrCTe.WebServices.Consulta.procEventoCTe.Items.RetEventoCTe.retEvento.Count > 0) then
        begin
          if (ACBrCTe.WebServices.Consulta.procEventoCTe.Items.RetEventoCTe.retEvento.Items[0].RetInfEvento.cStat = 135) then
            xnotcan := True
        end;
      end;
    end;
  end;