T100菜单ACTION控制栏位字段编辑,点击菜单ACTION才能编辑指定的栏位

范例(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.
  • 24
    点赞
  • 22
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值