单档——状态码显示设置，状态码更改链表更新

最新推荐文章于 2023-12-18 15:10:20 发布

weixin_30896763

最新推荐文章于 2023-12-18 15:10:20 发布

阅读量83

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/xiaoli9627/p/6841139.html

本文介绍了一种在特定状态下隐藏部分功能，并在状态改变时同步更新数据库中相关字段的方法。通过具体的编程实例展示了如何根据不同状态码进行权限控制及数据更新。

范例（cxmt631），状态码显示设置（某状态下不显示某些状态码，即有些状态是不可直接更改的为另一种状态的），更改完状态码后同步更新数据表的指定字段；

1）在cxmt631_statechange 中的statechange.before_menu 下，置入程序：

    
      #add-point:menu前 name="statechange.before_menu"
 
      CASE g_xmabuc_m.xmabucstus
           WHEN "X"
                 CALL cl_set_act_visible("report,factory,Load,pass,valid",FALSE)
           WHEN "01"
                 CALL cl_set_act_visible("Loading,pass",FALSE)
           WHEN "02"
                 CALL cl_set_act_visible("pass",FALSE)
           WHEN "03"
                CALL cl_set_act_visible("report",FALSE)
           WHEN "04"
              CALL cl_set_act_visible("factory,report",FALSE)
      END CASE
      #end add-point

以上的report、factory等，为功能编号，具体见azzi850；

01、02、03、04、X，为状态码编码；

2）每一个状态更改时都同时更新数据表的相关字段，同样是在cxmt631_statechange 下：

ON ACTION invalid
         IF cl_auth_chk_act("invalid") THEN
            LET lc_state = "X"
            #add-point:action控制 name="statechange.invalid"
            update xmabuc_t set xmabuc004 = lc_state where xmabucdocno = g_xmabuc_m.xmabucdocno and xmabucent = g_enterprise
            if not cl_null(g_xmabuc_m.xmabuc009) then
                update xmen_t set xmenua003 = lc_state where xmenent = g_enterprise and xmendocno = g_xmabuc_m.xmabuc009
            end if
            #end add-point
         END IF
         EXIT MENU
      ON ACTION report
         IF cl_auth_chk_act("report") THEN
            LET lc_state = "01"
            #add-point:action控制 name="statechange.report"
            update xmabuc_t set xmabuc004 = lc_state where xmabucdocno = g_xmabuc_m.xmabucdocno and xmabucent = g_enterprise
            if not cl_null(g_xmabuc_m.xmabuc009) then
                update xmen_t set xmenua003 = lc_state where xmenent = g_enterprise and xmendocno = g_xmabuc_m.xmabuc009
            end if
            #end add-point
         END IF
         EXIT MENU

      ON ACTION factory
         IF cl_auth_chk_act("factory") THEN
            LET lc_state = "02"
            #add-point:action控制 name="statechange.factory"
            update xmabuc_t set xmabuc004 = lc_state where xmabucdocno = g_xmabuc_m.xmabucdocno and xmabucent = g_enterprise
            if not cl_null(g_xmabuc_m.xmabuc009) then
                update xmen_t set xmenua003 = lc_state where xmenent = g_enterprise and xmendocno = g_xmabuc_m.xmabuc009
            end if
            #end add-point
         END IF
         EXIT MENU

      ON ACTION loading
         IF cl_auth_chk_act("loading") THEN
            LET lc_state = "03"
            #add-point:action控制 name="statechange.loading"
            update xmabuc_t set xmabuc004 = lc_state where xmabucdocno = g_xmabuc_m.xmabucdocno and xmabucent = g_enterprise
            if not cl_null(g_xmabuc_m.xmabuc009) then
                update xmen_t set xmenua003 = lc_state where xmenent = g_enterprise and xmendocno = g_xmabuc_m.xmabuc009
            end if
            #end add-point
         END IF
         EXIT MENU

      ON ACTION pass
         IF cl_auth_chk_act("pass") THEN
            LET lc_state = "04"
            #add-point:action控制 name="statechange.pass"
            update xmabuc_t set xmabuc004 = lc_state where xmabucdocno = g_xmabuc_m.xmabucdocno and xmabucent = g_enterprise
            if not cl_null(g_xmabuc_m.xmabuc009) then
                update xmen_t set xmenua003 = lc_state where xmenent = g_enterprise and xmendocno = g_xmabuc_m.xmabuc009
            end if
            #end add-point
         END IF
         EXIT MENU

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