Error negativos

[elguille]

He tenido que cambiar la funcion que esta en uverifactuFuncs

Código Delphi [-]
function value(n:string):currency;
begin
      // para compatibilidad con los strings values que llegan de verifactu y usan el "." en lugar de la "," decimal
      n:=StringReplace( n,'.',',',[rfReplaceAll, rfIgnoreCase]);

      if n=''  then result:=0
      else
      result:=strtofloat( n );
end;

por esta (cortesia IA)

Código Delphi [-]
function value(n: string): currency;
var
  fSettings: TFormatSettings;
  tempFloat: Double;
begin
  fSettings := FormatSettings;
  fSettings.DecimalSeparator := ',';
  fSettings.ThousandSeparator := '.';

  n := Trim(n);
  if n = '' then
    Result := 0
  else
  begin
    n := StringReplace(n, '.', ',', [rfReplaceAll, rfIgnoreCase]);
    if TryStrToFloat(n, tempFloat, fSettings) then
      Result := tempFloat
    else
      Result := 0;
  end;
end;

porque daba errores con numeros negativos y ciertas configuraciones regionales.

[seccion_31]

hombre, con negativos, no da error. Si no esto seria imposible.

Ahora bien, con ciertas configuraciones regionales no lo discuto.

gracias por el aporte, voy a reemplazar la funcion con tu codigo.