Baixei hoje a versão mais atual do ACBrHTMLtoXML , e o campo "Valor do ICMS" , do total da nota vem zerado...
Gostaria de saber como faço para corrigir, se posso alterar o fonte eu mesmo, e comitar, ou se alguem que modificou o codigo e causou este problema pode corrigir. anteriormente funcionava.
Segue a chave da nfe para o teste:
52110701545045000295550010000067971000067941
O erro parece ser na seguinte função:
function LerCampo(Texto, NomeCampo: string; Tamanho : Integer = 0): string;
var
ConteudoTag: string;
inicio, fim: integer;
begin
NomeCampo := UpperCase(Trim(NomeCampo));
inicio := pos(NomeCampo, UpperCase(Texto));
if inicio = 0 then
ConteudoTag := ''
else
begin
inicio := inicio + Length(NomeCampo);
if Tamanho > 0 then
fim := Tamanho
else
begin
Texto := copy(Texto,inicio,length(Texto));
inicio := 0;
fim := pos('|&|',Texto)-1;
end;
ConteudoTag := trim(copy(Texto, inicio, fim));
end;
try
result := ConteudoTag;
except
raise Exception.Create('Conteúdo inválido. '+ConteudoTag);
end;
end;
no campo TEXTO que é passado como parametro o VALOR DO ICMS aparece corretamente, mas a função não retorna o valor.
Obrigado.