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>>>>