Boa tarde pessoal,
modifiquei o componente acbraac,
basicamente troquei:
if AECF.ValorGT <> RoundTo( ValorGT, -2 ) then
POR
if AECF.ValorGT <> ValorGT then
FUNÇÃO COMPLETA
function TACBrAAC.VerificarGTECF(const NumeroSerie : String ;
var ValorGT : Double) : Integer ;
// Retornos:
// 0 = Tudo OK
// -1 = NumSerie não encontrado
// -2 = GT não confere
var
AECF : TACBrAACECF ;
ValorGTNovo : Double ;
begin
Result := 0;
VerificaReCarregarArquivo;
AECF := AchaECF( NumeroSerie );
if not Assigned( AECF ) then
Result := -1
else
// if AECF.ValorGT <> RoundTo( ValorGT, -2 ) then
if AECF.ValorGT <> ValorGT then
begin
ValorGT := AECF.ValorGT;
Result := -2;
if Assigned( fsOnVerificarRecomporValorGT ) then
begin
ValorGTNovo := AECF.ValorGT;
fsOnVerificarRecomporValorGT( NumeroSerie, ValorGTNovo );
if ValorGTNovo <> AECF.ValorGT then
begin
AtualizarValorGT( NumeroSerie, ValorGTNovo );
Result := 0;
end ;
end ;
end ;
end ;
agora esta funcionando, não o que isso poderá causar em outros sistemas....
Favor avaliarem