范例(axmt500):
目的,控制新增的栏位(价格清单2),需点击菜单栏“修改价格清单2”才能对相应的栏位进行编辑修改,并记录修改人、日期;
1)在规格上增加新ACTION——action_modify_xmdaua012,修改价格清单2;并在azzi903上把ACTION添加到菜单栏;
2)在单头栏位开启设定中【 axmt500_set_entry(p_cmd)】对“价格清单2”栏位进行关闭,不允许编辑:
CALL cl_set_comp_entry("xmdaua012",FALSE) #170608 by ljr
3)在单头栏位关闭设定中【 axmt500_set_no_entry(p_cmd)】对“价格清单2”栏位进行关闭, 不允许编辑:
CALL cl_set_comp_entry("xmdaua012",FALSE) #170608 by ljr
4)在ui_dialog中,ON ACTION action_modify_xmdaua012 下编辑程序:
#應用 a43 樣板自動產生(Version:4) ON ACTION action_modify_xmdaua012 LET g_action_choice="action_modify_xmdaua012" IF cl_auth_chk_act("action_modify_xmdaua012") THEN #add-point:ON ACTION action_modify_xmdaua012 name="menu.action_modify_xmdaua012" #170608 by ljr s DIALOG ATTRIBUTES(UNBUFFERED,FIELD ORDER FORM) INPUT g_xmda_m.xmdaua012 FROM xmdaua012 ATTRIBUTES(WITHOUT DEFAULTS) ON ACTION controlp INFIELD xmdaua012 INITIALIZE g_qryparam.* TO NULL LET g_qryparam.state = 'i' LET g_qryparam.reqry = FALSE CALL cq_xmdtdoocno() #呼叫開窗 #DISPLAY g_qryparam.return1 TO xmdaua012 #顯示到畫面上 LET g_xmda_m.xmdaua012 = g_qryparam.