Falha Na Função Lerxml - Ct-E 2.00

[Fernando Dutra]

Bom Dia Pessoal, tudo bem?

 

Eu encontrei uma falha na função "LerXml" da Unit pcteCTeR, para o CT-e 2.00. No momento que leio o xml para enviar para email, ele acaba não colocando as informações das Unidades de Transportes. Abaixo segue a alteração que fiz para que o problema fosse solucionado. 

 

 

//Código Antigo

while Leitor.rExtrai(2, 'infNFe', '', i01 + 1) <> '' do

 

//Código Novo

while Leitor.rExtrai(3, 'infNFe', '', i01 + 1) <> '' do

 

 

 

Favor revisar o ítem acima. Espero ter ajudado. Obrigado!

[Fernando Dutra]

Efetuando mais testes, achei em mais dois pontos problemas parecidos que seguem abaixo. O número do grupo está errado. Especificamente no Grupo da TAG <infCTeNorm>. Caso esteja fazendo algo de forma equivocada favor me comunicar. Obrigado!

 

 

//Código Antigo  

i02 := 0;

while Leitor.rExtrai(5, 'infUnidCarga', '', i02 + 1) <> '' do

begin

  CTe.infCTeNorm.infDoc.infNF[i01].infUnidCarga.Add;

  CTe.infCTeNorm.infDoc.infNF[i01].infUnidCarga[i02].tpUnidCarga := StrToUnidCarga(ok, Leitor.rCampo(tcStr, 'tpUnidCarga'));

  CTe.infCTeNorm.infDoc.infNF[i01].infUnidCarga[i02].idUnidCarga := Leitor.rCampo(tcStr, 'idUnidCarga');

  CTe.infCTeNorm.infDoc.infNF[i01].infUnidCarga[i02].qtdRat      := Leitor.rCampo(tcDe2, 'qtdRat');

 

  i03 := 0;

  while Leitor.rExtrai(6, 'lacUnidCarga', '', i03 + 1) <> '' do

  begin

    CTe.infCTeNorm.infDoc.infNF[i01].infUnidCarga[i02].lacUnidCarga.Add;

    CTe.infCTeNorm.infDoc.infNF[i01].infUnidCarga[i02].lacUnidCarga[i03].nLacre := Leitor.rCampo(tcStr, 'nLacre');

    inc(i03);

  end;

  

//Código Novo

i02 := 0;

while Leitor.rExtrai(4, 'infUnidCarga', '', i02 + 1) <> '' do

begin

  CTe.infCTeNorm.infDoc.infNF[i01].infUnidCarga.Add;

  CTe.infCTeNorm.infDoc.infNF[i01].infUnidCarga[i02].tpUnidCarga := StrToUnidCarga(ok, Leitor.rCampo(tcStr, 'tpUnidCarga'));

  CTe.infCTeNorm.infDoc.infNF[i01].infUnidCarga[i02].idUnidCarga := Leitor.rCampo(tcStr, 'idUnidCarga');

  CTe.infCTeNorm.infDoc.infNF[i01].infUnidCarga[i02].qtdRat      := Leitor.rCampo(tcDe2, 'qtdRat');

 

  i03 := 0;

  while Leitor.rExtrai(5, 'lacUnidCarga', '', i03 + 1) <> '' do

  begin

     CTe.infCTeNorm.infDoc.infNF[i01].infUnidCarga[i02].lacUnidCarga.Add;

     CTe.infCTeNorm.infDoc.infNF[i01].infUnidCarga[i02].lacUnidCarga[i03].nLacre := Leitor.rCampo(tcStr, 'nLacre');

     inc(i03);

  end;

[Italo Giurizzato Junior]

Boa tarde Fernando,

 

Alterações realizadas e disponibilizadas.

 

Muito obrigado pela colaboração.

[Fernando Dutra]

Eu que agradeço muito Ítalo. Vocês são sempre muito prestativos. Espero estar ajudando de alguma forma. Obrigado!

[easysoft]

Bom DIa Amigos,

 

Em meus testes na versão 2.00 estou alimentando corretamente os dados da TAG <infUnidCarga> para Notas Fiscais,e me ocorre o seguinte erro:

 

O elemento 'infUnidCarga' é inesperado, de acordo com o modelo de conteúdo do elemento pai 'infNF'.

Esperado: infUnidTransp.

 

Pensei que pudesse ser a atualização como nosso amigo Fernando relatou nesse tópico, porém a minha versão já está com essas modificações e ainda me aparece o erro acima, pelo que entendi, o componente diz que não foi passado nada nessa TAG.

 

Podem me ajudar nesse caso?

 

Ats.

Editado 13 Novembro, 2013 por easysoft

[Italo Giurizzato Junior]

Boa tarde Easysoft,

 

Segundo o Manual do CT-e versão 2.00, páginas 138 e 139 temos a TAG infUnidCarga como sendo filha da infUnidTransp.

 

Sendo assim deve-se informar primeiro o tipo da unidade de transporte (rpUnidTransp) e a identificação da unidade de transporte (idUnidTransp) e depois as informações das unidades de carga - TAG: infUnidCarga

[americasoft]

Italo,

 

Identificamos que o parametro "TAgParada" nao esta funcionando corretamente, e ao ler as informações da tag "rem" na versao 1.04, não esta trazendo alguns campos.

 

Para funcionar corretamente, foi necessário no .inc, retirar o parâmetro TAGParada.

 

 

Em uma outra implementação que eu estava fazendo, pude perceber que esse novo parametro, não estava tão certo, e fiz algumas mudanças, vou encaminhar para que possam analisar para se possível liberar aos demais.

 

 

Editado 18 Dezembro, 2013 por americasoft

[Italo Giurizzato Junior]

Boa tarde Thiago,

 

Poste aqui no fórum como anexo ou envie para mim por e-mail somente os arquivos alterados.