You can create a formula. It should look something like this:
local NumberVar n := {SO_SalesOrderWrk.UnitPrice};
NumberVar Zeros;
StringVar Frctn;
Frctn := ToText (n - (Truncate (n)), 6);
if Frctn[8] <> ""0"" then Zeros := 6
else if Frctn[7] <> ""0"" then Zeros := 5
else if Frctn[6] <> ""0"" then Zeros := 4
else if Frctn[5] <> ""0"" then Zeros := 3
else if Frctn[4] <> ""0"" then Zeros := 2
else if Frctn[3] <> ""0"" then Zeros := 1
else Zeros := 0;
if Zeros>2 then
totext(n,Zeros)
else
totext(n,2)