Código Delphi [-]StringReplace((CurrToStrF(Percepcion,ffFixed,2)), '.', '', [rfReplaceAll])
StringReplace((CurrToStrF(Percepcion,ffFixed,2)), '.', '', [rfReplaceAll])