>I have a need to display a numeric field on the report with options to have no decimals, 2 decimals, 3 decimals or more.
>Currently I'm using the format mask in the field expression to do this but unable to put a iif() condition on the format mask to dynamically change the format mask based on a public variable to decide on how many decimal points the format mask should have.
>
>Is there a way to do this?
>
>Thanks in advance.
>Yau

This works for us. Put it in a calling prg or in a procedure file.

*
* -------------------------------------------------------------------------
*
PROCEDURE lNumFormat
*
lParameters mNum
*
* Format the number so that only what is needed shows.
* if it is zero then a blank is returned.
* If a number is 4.00 then it is formatted to 4
* If a number is 4.50 then it is formatted to 4.5
*
if mNum = 0
  RETURN ''
endif
if int(mNum) = mNum
  RETURN transform(mNum,'999999')
endif
if int(mNum*10) = mNum*10
  RETURN transform(mNum,'9999.9')
endif
RETURN transform(mNum,'999.99')