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