菜单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.return1
                            DISPLAY BY NAME g_xmda_m.xmdaua012
                            
                            SELECT xmdtua001 INTO g_xmda_m.xmdaua012_desc FROM xmdt_t
                                WHERE xmdtdocno=g_xmda_m.xmdaua012
                            DISPLAY BY NAME g_xmda_m.xmdaua012_desc
                        
                        NEXT FIELD xmdaua012                     #返回原欄位
                        
                    END INPUT
                    
                BEFORE DIALOG 
                    CALL cl_set_comp_entry("xmdaua012",TRUE)
                    #重新導回資料到正確位置上
                    CALL DIALOG.setCurrentRow("s_detail1",g_idx_group.getValue("'1','2',"))      
                    CALL DIALOG.setCurrentRow("s_detail2",g_idx_group.getValue("'3',"))
                    CALL DIALOG.setCurrentRow("s_detail3",g_idx_group.getValue("'4',"))
                    CALL DIALOG.setCurrentRow("s_detail4",g_idx_group.getValue("'5',"))
                    CALL DIALOG.setCurrentRow("s_detail5",g_idx_group.getValue("'6',"))
                    CALL DIALOG.setCurrentRow("s_detail6",g_idx_group.getValue(""))
                    
                    ON ACTION controlf
                        CALL cl_set_focus_form(ui.Interface.getRootNode()) RETURNING g_fld_name,g_frm_name
                        CALL cl_fldhelp(g_frm_name,g_fld_name,g_lang)
                    
                    ON ACTION controlr
                        CALL cl_show_req_fields()
                    
                    ON ACTION controls
                        IF g_header_hidden THEN
                        CALL gfrm_curr.setElementHidden("vb_master",0)
                        CALL gfrm_curr.setElementImage("controls","small/arr-u.png")
                        LET g_header_hidden = 0     #visible
                        ELSE
                        CALL gfrm_curr.setElementHidden("vb_master",1)
                        CALL gfrm_curr.setElementImage("controls","small/arr-d.png")
                        LET g_header_hidden = 1     #hidden     
                        END IF
                    
                    ON ACTION accept
                        IF NOT cl_null(g_xmda_m.xmdaua012) THEN
                            INITIALIZE g_chkparam.* TO NULL
                            LET g_chkparam.arg1 = g_xmda_m.xmdaua012
                            IF cl_chk_exist("cv_xmdtdocno") THEN 
                                LET g_xmda_m.xmdaua013 = g_user
                                LET g_xmda_m.xmdaua014 = cl_get_current()
                                UPDATE xmda_t SET xmdaua012=g_xmda_m.xmdaua012,
                                                    xmdaua013=g_xmda_m.xmdaua013,
                                                    xmdaua014=g_xmda_m.xmdaua014
                                    WHERE xmdaent=g_enterprise AND xmdasite=g_site AND xmdadocno=g_xmda_m.xmdadocno
                                DISPLAY BY NAME g_xmda_m.xmdaua013,g_xmda_m.xmdaua014
                                SELECT ooag011 INTO g_xmda_m.xmdaua013_desc FROM ooag_t WHERE ooag001=g_xmda_m.xmdaua013
                                DISPLAY BY NAME g_xmda_m.xmdaua013_desc                                
                            END IF 
                        END IF
                        
                        ACCEPT DIALOG
                    
                    ON ACTION cancel      #在dialog button (放棄)
                        #add-point:input段cancel name="input.cancel"
                        
                        #end add-point  
                        LET INT_FLAG = TRUE 
                        LET g_detail_idx  = 1
                        LET g_detail_idx2 = 1
                        #各個page指標
                        LET g_detail_idx_list[1] = 1 
                        LET g_detail_idx_list[2] = 1
                        LET g_detail_idx_list[3] = 1
                        LET g_detail_idx_list[4] = 1
                        LET g_detail_idx_list[5] = 1
                        LET g_detail_idx_list[6] = 1
                        
                        CALL g_curr_diag.setCurrentRow("s_detail1",1)    
                        CALL g_curr_diag.setCurrentRow("s_detail2",1)
                        CALL g_curr_diag.setCurrentRow("s_detail3",1)
                        CALL g_curr_diag.setCurrentRow("s_detail4",1)
                        CALL g_curr_diag.setCurrentRow("s_detail5",1)
                        CALL g_curr_diag.setCurrentRow("s_detail6",1)
                        
                        EXIT DIALOG
                    
                    ON ACTION close       #在dialog 右上角 (X)
                        #add-point:input段close name="input.close"
                        
                        #end add-point  
                        LET INT_FLAG = TRUE 
                        EXIT DIALOG
                    
                    ON ACTION exit        #toolbar 離開
                        #add-point:input段exit name="input.exit"
                        
                        #end add-point
                        LET INT_FLAG = TRUE 
                        LET g_detail_idx  = 1
                        LET g_detail_idx2 = 1
                        #各個page指標
                        LET g_detail_idx_list[1] = 1 
                        LET g_detail_idx_list[2] = 1
                        LET g_detail_idx_list[3] = 1
                        LET g_detail_idx_list[4] = 1
                        LET g_detail_idx_list[5] = 1
                        LET g_detail_idx_list[6] = 1
                        
                        CALL g_curr_diag.setCurrentRow("s_detail1",1)    
                        CALL g_curr_diag.setCurrentRow("s_detail2",1)
                        CALL g_curr_diag.setCurrentRow("s_detail3",1)
                        CALL g_curr_diag.setCurrentRow("s_detail4",1)
                        CALL g_curr_diag.setCurrentRow("s_detail5",1)
                        CALL g_curr_diag.setCurrentRow("s_detail6",1)
                        
                        EXIT DIALOG
                    
                    #交談指令共用ACTION
                    &include "common_action.4gl" 
                        CONTINUE DIALOG 
                END DIALOG
                #170608 by ljr e
               #END add-point
               
            END IF

 

这DIALOG段落内容可参考axmt500_input 下的axmt500.input.other 段落；

 

 

 

转载于:https://www.cnblogs.com/xiaoli9627/p/6972164.html