Componente Alterando Tag <Uf> Ao Carregar Xml

[ncc.star]

Quando carrega um XML de um MDF-e a tag <UF> do veículo (tração ou reboque) está sendo alterada para a mesma UF do proprietário.

 

Exemplo:

 

<prop>

    <CPF>0000000000</CPF>

    <RNTRC>00000000</RNTRC>

    <xNome>XXXXXXXXX</xNome>

    <IE>ISENTO</IE>

    <UF>PA</UF>

    <tpProp>2</tpProp>

</prop>

<condutor>

    <xNome>XXXXXXXXXXX</xNome>

    <CPF>11111111111</CPF>

</condutor>

<tpRod>03</tpRod>

<tpCar>00</tpCar>

<UF>SP</UF>

</veicTracao>

 

Depois que carrega o XML no componente, ele altera para:

 

<prop>

    <CPF>0000000000</CPF>

    <RNTRC>00000000</RNTRC>

    <xNome>XXXXXXXXX</xNome>

    <IE>ISENTO</IE>

    <UF>PA</UF>

    <tpProp>2</tpProp>

</prop>

<condutor>

    <xNome>XXXXXXXXXXX</xNome>

    <CPF>11111111111</CPF>

</condutor>

<tpRod>03</tpRod>

<tpCar>00</tpCar>

<UF>PA</UF>

</veicTracao>

 

Isso acontece quando o componente lê o XML ele está buscando o primeiro campo UF que encontra.

 

[Italo Giurizzato Junior]

Boa tarde ncc,

 

Favor atualizar os fontes e testar novamente.

[ncc.star]

Olá Ítalo, o campo UF está retornando agora '<U'

 

Para o Veículo Tração, acho que teve um pequeno engano, é só alterar o parâmetro copy posição inicial de 1 para 5.

 

copy(Leitor.rExtrai(3, 'UF', '', 2), 1, 2);

para

copy(Leitor.rExtrai(3, 'UF', '', 2), 5, 2);

 

Já para o veículo reboque está errado porque está trazendo a UF do Veículo Tração. 

[Italo Giurizzato Junior]

Boa tarde ncc,

 

Fiz a correção sugerida, mas não sei se vai resolver por completo.

 

Acredito que o problema só será resolvido de forma definitiva fazendo uma alteração na function que lê o conteúdo de uma TAG.

 

Como essa function é utilizada por diversos componentes, essa alteração tem que ser feita com muito cuidado, para não afetar os demais componentes.

[ncc.star]

Olá Italo.

 

Deu problema dessa forma. Usando o rExtrai ele limpa os dados do proprietário e condutor que vem logo abaixo.

Como alternativa eu pensei de fazer dessa forma:

copy(Leitor.Grupo,(Pos('</tpCar>', Leitor.Grupo)+12),2);

 

Eu sei que essa não é a maneira ideal de resolver isso, mas foi o que eu pensei até a gente achar uma solução melhor.

[Italo Giurizzato Junior]

Boa tarde ncc,

 

Vou estudar o caso e buscar uma solução mais elegante.

[ncc.star]

Olá Italo.

 

Depois que atualizei os fontes, ao carregar o XML percebi que nos dados do proprietário do VeicReboque está vindo os dados do proprietário do VeicTracao.

 

Para corrigir, alterei a linha ~240 de 

 

if Leitor.rExtrai(3, 'prop') <> '' then

 

para

 

if Leitor.rExtrai(4, 'prop') <> '' then

 

 

Só que essa modificação pra ficar correta, depende da alteração que eu sugeri anteriormente.

 

Até a gente não achar uma solução melhor, não dá para deixar da forma que eu sugeri para trazer os dados corretamente?

 

Anexei pmdfeMDFeR.pas para você poder analisar.

 

 

 

 

 

 

 

pmdfeMDFeR.pas

[Italo Giurizzato Junior]

Bom dia ncc,

 

Vou analisar e assim que possível disponibilizar.