* * ------------------------------------------------------------------------- * 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')