CN22设置网络系统状态或用户状态 - BAPI_BUS2002_SET_STATUS

绝地灬酷狼 2023-06-29 10:39 10阅读 0赞

BAPI: BAPI\_BUS2002\_SET\_STATUS

具体用法注意事项可以参看BAP参考文档

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dhbmdsZWk4ODA1MjY_size_16_color_FFFFFF_t_70][]

调用BAPI之前，首先调用BAPI\_PS\_INITIALIZATION

调用BAPI之后，如果调用成功，首先执行操作CALL FUNCTION 'BAPI\_PS\_PRECOMMIT'.

然后再      CALL FUNCTION 'BAPI\_TRANSACTION\_COMMIT'  
                    EXPORTING  
                       wait = 'X'.

METHOD mt_set_network_sys_status.
    
    *The following system statuses are supported for the network header:
    *•'REL' Released (I0002) set
    *•'LKD' Locked (I0043) set/revoke
    *•'TECO' Technically completed (I0045) set/revoke
    *•'CLSD' Closed (I0046) set/revoke
    *•'AALK' Account Assignment locked (I0064) set/revoke
    *•'DLFL' Deletion flag (I0076) set/revoke
    
        DATA: lv_aufnr      TYPE bapi_network_list-network,
              lv_sys_status TYPE bapi_system_status-system_status,
              ls_return     TYPE bapireturn1,
              lt_result     TYPE TABLE OF bapi_status_result,
              lv_message    TYPE string.
    
        CLEAR: es_return.
    
        CHECK iv_aufnr IS NOT INITIAL AND iv_sys_status IS NOT INITIAL.
    
        lv_aufnr = |{ iv_aufnr ALPHA = IN }|.
    
        lv_sys_status = iv_sys_status.
    
        CALL FUNCTION 'BAPI_PS_INITIALIZATION'.
    
        CALL FUNCTION 'BAPI_BUS2002_SET_STATUS'
          EXPORTING
            number            = lv_aufnr
    *       UNDO_SYSTEM_STATUS             =
    *       UNDO_USER_STATUS  =
            set_system_status = lv_sys_status
    *       SET_USER_STATUS   =
          IMPORTING
            return            = es_return
          TABLES
    *       I_ACTIVITY_SYSTEM_STATUS       =
    *       I_ACTIVITY_USER_STATUS         =
            e_result          = lt_result.
    
        IF es_return-type CA 'AEX'.
          lv_message = es_return-message.
        ENDIF.
    
        IF lv_message IS INITIAL.
          CALL FUNCTION 'BAPI_PS_PRECOMMIT'.
          CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
            EXPORTING
              wait = 'X'.
          es_return-type = 'S'.
          es_return-message = '系统状态更新成功'.
        ELSE.
          CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
          IF iv_popup_flag = 'X'.
            MESSAGE i001(00) WITH '网络系统状态更新失败，请到CN22中手动设置删除状态，网络号' lv_aufnr DISPLAY LIKE 'E'.
          ENDIF.
        ENDIF.
    
      ENDMETHOD.

上述代码，传入参数如下

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dhbmdsZWk4ODA1MjY_size_16_color_FFFFFF_t_70 1][]

***效果如下***：

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dhbmdsZWk4ODA1MjY_size_16_color_FFFFFF_t_70 2][]

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dhbmdsZWk4ODA1MjY_size_16_color_FFFFFF_t_70 3][]

[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dhbmdsZWk4ODA1MjY_size_16_color_FFFFFF_t_70]: https://img-blog.csdnimg.cn/20200111203051120.jpg?x-oss-process=image/watermark,type_ZmFuZ3poZW5naGVpdGk,shadow_10,text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dhbmdsZWk4ODA1MjY=,size_16,color_FFFFFF,t_70
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dhbmdsZWk4ODA1MjY_size_16_color_FFFFFF_t_70 1]: https://img-blog.csdnimg.cn/20200111203410356.jpg?x-oss-process=image/watermark,type_ZmFuZ3poZW5naGVpdGk,shadow_10,text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dhbmdsZWk4ODA1MjY=,size_16,color_FFFFFF,t_70
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dhbmdsZWk4ODA1MjY_size_16_color_FFFFFF_t_70 2]: https://img-blog.csdnimg.cn/20200111193658672.jpg?x-oss-process=image/watermark,type_ZmFuZ3poZW5naGVpdGk,shadow_10,text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dhbmdsZWk4ODA1MjY=,size_16,color_FFFFFF,t_70
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dhbmdsZWk4ODA1MjY_size_16_color_FFFFFF_t_70 3]: https://img-blog.csdnimg.cn/20200111193712509.jpg?x-oss-process=image/watermark,type_ZmFuZ3poZW5naGVpdGk,shadow_10,text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dhbmdsZWk4ODA1MjY=,size_16,color_FFFFFF,t_70