Negative AMOUT issue

Hello.

I am loading list of invoices into the database. some of the records have minus at the wrong place.

For example instead of -1245.00 I get 12345.00-

How can I address the issue?

Hi Mark

Please try the following calculation.

var
  S: string;
  Len: Integer;
begin
  S:= [AMOUNT];
  Len := Length(S);
  if ((Len > 0) and (S[Len] = '-')) then
    Result := '-' + Copy(S, 1, Len - 1)
  else
    Result := S;  
end;