LOCAL llRetVal >> >>DO CASE >> CASE "amount"$LOWER(THIS.COMMENT) OR "amt"$LOWER(THIS.COMMENT) >> THIS.INPUTMASK = goApp.GetSetting("General", "Amount Format", "99,99,99,999.99") >> THIS.Format = goApp.GetSetting("General", "Amount Format", "99R99R99R999.99") >> >>... >>ENDCASE >> >>IF THIS.PARENT.BASECLASS = "Column" >> THIS.PARENT.INPUTMASK = THIS.INPUTMASK >> THIS.PARENT.Format = THIS.Format >>ENDIF >>>>
LOCAL llRetVal >>> >>>DO CASE >>> CASE "amount"$LOWER(THIS.COMMENT) OR "amt"$LOWER(THIS.COMMENT) >>> THIS.INPUTMASK = goApp.GetSetting("General", "Amount Format", "99,99,99,999.99") >>> >>> CASE "quantity"$LOWER(THIS.COMMENT) OR "qty"$LOWER(THIS.COMMENT) >>> THIS.INPUTMASK = goApp.GetSetting("General", "Quantity Format", "9,99,99,999.999") >>> >>> CASE "rate"$LOWER(THIS.COMMENT) >>> THIS.INPUTMASK = goApp.GetSetting("General", "Rate Format", "99,99,999.9999") >>>ENDCASE >>> >>>IF THIS.PARENT.CLASS = "Column" >>> THIS.PARENT.INPUTMASK = THIS.INPUTMASK >>>ENDIF >>> >>>llRetVal = DODEFAULT() >>> >>>RETURN llRetVal>>>