Modificação na Importação do XML

[magnosystem]

Fiz uma modificação na rotina LERXML pois estava dando erro durante a importação da nota em alguns arquivos XML. A modificação é pequena e não altera em nada a lógica da aplicação. Segue abaixo o código:

    Try

       nItem := StrToInt(copy(ItensTemp,Pos('nItem=',ItensTemp)   + 7,Pos('">',ItensTemp)-(Pos('nItem=',ItensTemp)+7)));

    Except

       nItem := StrToInt(StringReplace(copy(ItensTemp,Pos('nItem=',ItensTemp)+7,Pos('">',ItensTemp)-(Pos('nItem=',ItensTemp)+7)), '" xmlns="http://www.portalfiscal.inf.br/nfe', '', [rfReplaceAll, rfIgnoreCase]));

    end; // Coloquei esse try except


    Itens     := StringReplace(Itens, ItensTemp, '',[]);

    ItensTemp := copy(Itens,Pos('',Itens)+6)-Pos('

[André Ferreira de Moraes]

Poste um XML que estava com problema para que possamos analisar sua alteração.

[magnosystem]

Tenho somente um aqui. Mas clientes meus tiveram o mesmo problema com diversos fornecedores.

Segue em anexo:

stock.xml

[André Ferreira de Moraes]

Então, o XML que vc enviou não é válido baseado nos schemas fornecidos pela receita, pois a tag nitem não tem xmlns="http://www.portalfiscal.inf.br/nfe"

Irei verificar se é possível criar outro modo de ler a tag nitem, pois com sua alteração irá funcionar apenas para XMLs que possuam xmlns="http://www.portalfiscal.inf.br/nfe" e pode ser que existam outras coisas que os fornecedores do seu cliente estejam informando nesta tag.

[magnosystem]

Ótimo. Mas só para constar. Depois que fiz esta atualização já fazem uns dois meses que não dá mais este erro. Esta atualização já está em umas quinze empresas.

[André Ferreira de Moraes]

Enviei para o SVN uma correção para tentar resolver este problema.

Por favor teste e poste os resultados.

[magnosystem]

OK, deu certo. Falta agora você fazer estas modificações no mesmo arquivo da pasta PCN, visto que só foi feito no arquivo da pasta PCN2