Problema na manifestação do CTe

[Geraldo Lahass Junior]

o realizar a manifestação de desacordo do CTe, estão me dando a seguinte mensagem.

Abaixo a programação que estou fazendo:

[BigWings]

2 minutos atrás, Geraldo Lahass Junior disse:

Veja se está configurando o componente para a versão 4.00 do CTe.

ACBrCTe1.Configuracoes.Geral.VersaoDF := pcteConversaoCTe.ve400;

[Geraldo Lahass Junior]

Bom dia!

Fiz o ajuste, mas o erro permanece o mesmo erro.

[Juliomar Marchetti]

47 minutos atrás, Geraldo Lahass Junior disse:

Bom dia!

Fiz o ajuste, mas o erro permanece o mesmo erro.

 

tu deve configurar tudo antes e depois só emitir e gerar o documento

[Geraldo Lahass Junior]

A configuração está sendo feita toda antes mesmo.

[Geraldo Lahass Junior]

Em 23/04/2024 at 13:59, Juliomar Marchetti disse:

tu deve configurar tudo antes e depois só emitir e gerar o documento

Agora está dando este erro. Não sei se alguém já passou por este problema.

[Geraldo Lahass Junior]

4 minutos atrás, Geraldo Lahass Junior disse:

Agora está dando este erro. Não sei se alguém já passou por este problema.

 

Tentando pelo browser.

[Italo Giurizzato Junior]

Boa tarde Geraldo,

Essa URL é da versão 3.00 que foi desativado.

Você precisa configurar o componente para a versão 4.00, caso contrario não vai funcionar.

[Geraldo Lahass Junior]

14 minutos atrás, Italo Giurizzato Junior disse:

Boa tarde Geraldo,

Essa URL é da versão 3.00 que foi desativado.

Você precisa configurar o componente para a versão 4.00, caso contrario não vai funcionar.

Mas está configurado conforme abaixo:

ACTe.EventoCTe.Evento.Clear;
    with ACTe.EventoCTe.Evento.Add do
    begin
      infEvento.nSeqEvento     := 1;
      InfEvento.cOrgao         := StrToInt(Copy(sChave,1,2));
      infEvento.tpAmb          := taProducao;
      infEvento.chCTe          := sChave;
      infEvento.CNPJ           := TUtils.ValidaCFPCNPJ(sCNPJ);
      infEvento.dhEvento       := now;

      if cbbManifesto.ItemIndex = 0 then
      begin
        infEvento.tpEvento       := tePrestDesacordo;
        infEvento.detEvento.xOBS := Trim(edtJustificativa.Text);
        sManifestacao := 'SERVICO EM DESACORDO';
      end
      else
        infEvento.tpEvento       := teManifDestConfirmacao;
    end;

    try
      ACTe.Configuracoes.Geral.VersaoDF := pcteConversaoCTe.ve400;
      ACTe.Configuracoes.Geral.Salvar := True;
      ACTe.Configuracoes.Arquivos.Salvar := True;
      ACTe.Configuracoes.Arquivos.PathSalvar := sDiretorio;
      ACTe.Configuracoes.WebServices.UF := TUtils.UF(StrToInt(Copy(sChave,1,2)));
      ACTe.EnviarEvento(iNumeroLote);
    except
      on E: Exception do
      begin
        if Pos('CARREGADA', UpperCase(E.Message)) = 0 then
        begin
          TUtils.ExibeMensagem(btrOk, E.Message, btfOk, Application.Title, tmErro);
          Inc(iErros);
          Exit;
        end;
      end;
    end;

[BigWings]

Certifique-se de que:

- Está com os fontes atualizados, e executou o ACBrInstall_Trunk2.exe após a atualização.

- Se existe um arquivo ACBrCTeServicos.ini desatualizado no diretório da aplicação. Se tiver, remova.

 

[Italo Giurizzato Junior]

Geraldo,

Complementando o que o @BigWings já lhe passou, uma coisa é a configuração no Object Inspector outra coisa é existir uma linha de configuração que esteja mudando a configuração do Object Inspector.