XML CTe Saída erro "Argument out of range"

[Gabryel Frk]

Ao tentar:

    if ACBrCTe.Conhecimentos.Items[0].CTe.ide.modelo = 67 then
    begin

       //procedimtnos aqui
    end;

Ocorre o erro citado no início já na primeira linha do if.

Alguém já passou por isso?

 

Att;

teste.xml

[Juliana Tamizou]

Bom dia.

O mesmo também acontece no demo do componente?

Att.

[Gabryel Frk]

Bom dia.

Abri o ACBrCTe - Programa de Exemplo

Fui na aba Consulta, após em Consultar carregando XML, selecionei o XML enviado acima e retornou:

"ERRO - Nenhum CT-e ou Chave Informada!"

 

Att.
 

[BigWings]

Pra carregar o XML no componente, primeiro precisa configurar o modelo:

ACBrCTe1.Configuracoes.Geral.ModeloDF := moCTeOS;
ACBrCTe1.Conhecimentos.Clear;
if ACBrCTe1.Conhecimentos.LoadFromFile(sPathArquivo) then
  ShowMessage('XML carregado, modelo ' + IntToStr(ACBrCTe1.Conhecimentos[0].CTe.ide.modelo));

 

[Fabio Franzini - Compsoft]

Acredito que o XML não esta sendo carregado, Utilize o retorno da função Loadfromfile ... para ver se retorna True.. Caso Retorne False o componente não esta sendo carregado, provavelmente erro no XML. 

[Gabryel Frk]

Bom dia,

estou fazendo desta forma:

ACBrCte.Conhecimentos.LoadFromFile(dir);

if ACBrCTe.Conhecimentos.Items[0].CTe.ide.modelo = 67 then
begin
   ACBrCTe.Conhecimentos.Clear;
   ACBrCTe.Configuracoes.Geral.ModeloDF := moCTeOS;
   ACBrCTe.Conhecimentos.LoadFromFile(dir);
   versaoCte  := ACBrCTe.Conhecimentos.Items[0].CTe.infCTe.versao.ToString;
end;

 

porém ja me gera o erro Antes de entrar na condição... a linha para no if ...

[Gabryel Frk]

fiz o exemplo citado pelo colega acima e realmente não carrega.

ACBrCTe.Configuracoes.Geral.ModeloDF := moCTeOS;
ACBrCTe.Conhecimentos.Clear;
if ACBrCTe.Conhecimentos.LoadFromFile(dir) then
 ShowMessage('XML carregado, modelo ' + IntToStr(ACBrCTe.Conhecimentos[0].CTe.ide.modelo));

 

Neste caso o erro é do arquivo XML?

[BigWings]

3 minutos atrás, gxf disse:

Neste caso o erro é do arquivo XML?

Como foi gerado esse XML?

Esse encoding UTF-16 não é suportado pelo componente.

[Gabryel Frk]

1 minuto atrás, BigWings disse:

Como foi gerado esse XML?

Esse encoding UTF-16 não é suportado pelo componente.

é um xml de um cliente. não teria como lhe confirmar como foi gerado.

[Gabryel Frk]

Abri o arquivo com o bloco de notas, e salvei com a codificação UTF-8.

Desta forma passou sem erros.

Haveria alguma forma de fazer isso sem tem que alterar o arquivo?

Att.

[BigWings]

5 minutos atrás, gxf disse:

Haveria alguma forma de fazer isso sem tem que alterar o arquivo?

Não, o MOC determina que a codificação do arquivo deve ser UTF-8.

Logo usar UTF-16 no XML torna ele inválido.

[Gabryel Frk]

5 minutos atrás, BigWings disse:

Não, o MOC determina que a codificação do arquivo deve ser UTF-8.

Logo usar UTF-16 no XML torna ele inválido.

Entendi. Muito obrigado pela ajuda!

 

Agradeço a atenção de todos que ajudaram.

 

Att;

[Juliana Tamizou]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.