Correção no ACBrHTMLtoXML.pas

[Earmarques]

Pessoal, estava testando o exemplo que recupera o XML 2.0, adicionado recentemente e nã estava gravando os impostos dos items no XML gerado. Daí percebi, procurando no código, que temos o código desse jeito:

          vBC   := ConverteStrToNumero(LerCampo(Grupo,'Base de Cálculo do ICMS Normal'));

          vBC   := ConverteStrToNumero(LerCampo(Grupo,'Base de Cálculo'));

          pICMS := ConverteStrToNumero(LerCampo(Grupo,'Alíquota do ICMS Normal'));

          pICMS := ConverteStrToNumero(LerCampo(Grupo,'Alíquota'));

          vICMS := ConverteStrToNumero(LerCampo(Grupo,'Valor do ICMS Normal'));

          vICMS := ConverteStrToNumero(LerCampo(Grupo,'Valor'));

De tal forma que os campos vBC, pICMS e vICMS estavam capturando corretamente na primeira linha, mas na segunda linha era atribuído valor 0. Só comentei e deu tudo certo.

          vBC   := ConverteStrToNumero(LerCampo(Grupo,'Base de Cálculo do ICMS Normal'));

          //vBC   := ConverteStrToNumero(LerCampo(Grupo,'Base de Cálculo'));

          pICMS := ConverteStrToNumero(LerCampo(Grupo,'Alíquota do ICMS Normal'));

          //pICMS := ConverteStrToNumero(LerCampo(Grupo,'Alíquota'));

          vICMS := ConverteStrToNumero(LerCampo(Grupo,'Valor do ICMS Normal'));

          //vICMS := ConverteStrToNumero(LerCampo(Grupo,'Valor'));

Agradeço aos colegas que desenvolveram esse exemplo, que é uma baita "mão na roda".