Boa tarde, estou com um problema em meu cliente, pois o mesmo ao tentar importar um arquivo xml do site da sefaz esta retornando o seguinte erro eSISTEMA: -2146697210. LINE: 0
Chave do arquivo xml : 23131110395985000155550050000627451977578276
consultando no site da sefaz essa nota possui 92 itens, nao sei se pode estar influenciando....
desde de ja agradeço a ajuda.
debugando vi que ele entra em um loop infinito nessa parte da Unit ACBrUtil.pas
function StripHTML(const AHTMLString : AnsiString) : AnsiString;
var
PosIniTag, PosFimTag ,HTMLSize : Integer;
begin
Result := '' ;
HTMLSize := Length( AHTMLString ) ;
PosFimTag := 0 ;
PosIniTag := Pos('<', String(AHTMLString)) ;
while PosIniTag > 0 do begin
Result := Result + copy(AHTMLString, PosFimTag + 1, (PosIniTag - PosFimTag-1 ) );
PosFimTag := PosEx( '>', String(AHTMLString), PosIniTag ) ;
if PosFimTag = 0 then
PosFimTag := PosIniTag-1
else
PosIniTag := PosEx( '<', String(AHTMLString), PosFimTag )
end ;
Result := Result + copy(AHTMLString, PosFimTag+1, HTMLSize ) ;
end;
agradeço a todos