Q5/ws_objects/Ew_bsnobj.pbl.src/f_getstringformat.srf

$PBExportHeader$f_getstringformat.srf
global type f_getstringformat from function_object
end type

forward prototypes
global function string f_getstringformat (integer arg_type, decimal arg_qty)
end prototypes

global function string f_getstringformat (integer arg_type, decimal arg_qty);String rst_format
IF Mod(arg_qty,1) = 0 THEN
	IF arg_type = 0 THEN
		rst_format = '#####0'
	ELSE
		rst_format = '#,##0'
	END IF
ELSE
	IF arg_type = 0 THEN
		rst_format = '#####0.####'
	ELSE
		rst_format = '#,##0.####'
	END IF
END IF

return rst_format

end function