Pesquisar na Comunidade
Showing results for tags 'pcnleitor'.
Encontrado 2 registros
-
O commit revision 10822, na tentativa de melhorar ou otimizar o código, introduziu um BUG na leitura de alguns XMLs. Considerando o XML que contenham ' misturado com ", a leitura por exemplo da versao=, retorna http://www.portalfiscal.inf.br/nfe, que é um valor errado para o atributo Sugestão, voltar o código antigo iPos1 := Pos('"' , ConteudoTag); iPos2 := Pos('''', ConteudoTag); if iPos1 <> 0 then Aspas := '"'; if (iPos2 <> 0) and (iPos2 < iPos1) then Aspas := ''''; ou otimizando um pouquinho, iPos1 := Pos('"' , ConteudoTag); iPos2 := Pos('''', ConteudoTag); if (iPos2 <> 0) and (iPos2 < iPos1) then Aspas := '''' else Aspas := '"';
-
Srs, Uso delphi 7 e acabo de finalizar a conversão para o trunk2. Detectei um problema que foi necessário alterar a unit pcnLeitor na função function TLeitor.rAtributo(Atributo: string): variant; Segue em anexo a unit original e a que tive que alterar. AlteracaoACBR.txt