VL06O/VL06I菜单栏增加按钮

VL06O/VL06I菜单栏增加按钮

增强方式：隐式增强

步骤

VL06O-列出出库交货-输入条件-执行-系统-状态-双击GUI状态（VL06I状态-STANDARD_INBOUND）
（因为一个功能代码可能在多个GUI状态使用，所以会有个弹框提醒）

编辑-增加按钮

如果激活后在前台还是没有看到新增按钮，右键菜单栏-活动功能-非活动功能从，选择新增按钮，复制

SE20-增强实施


在FROM最下面创建隐式增强（触发VL06O，VL06I）

"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""$"$\SE:(1) Form USER_COMMAND, End                                                                                                                            A
*$*$-Start: (1)---------------------------------------------------------------------------------$*$*
ENHANCEMENT 3  VLR_SFWS_LV50QI08.    "active version
 if if_ucomm = 'ZPRINT'.
   if sy-tcode = 'VL06O'.
  DATA:LT_TAB TYPE STANDARD TABLE OF lipov,
       LS_TAB TYPE lipov.

  DATA:LV_MSG TYPE CHAR100.

    LOOP AT GT_OUTTAB WHERE SELKZ = 'X'. "被选择的数据
      MOVE-CORRESPONDING GT_OUTTAB TO LS_TAB.
      APPEND LS_TAB TO LT_TAB.
      CLEAR:LS_TAB.
    ENDLOOP.

     CALL FUNCTION 'ZWM_VL06O_PRINT'
       TABLES
         IT_PRINT_DATA          = GT_OUTTAB
      EXCEPTIONS
        NO_SELECTED_DATA       = 1
        OTHERS                 = 2
      .
   elseif sy-tcode = 'VL06I'. 

    LOOP AT GT_OUTTAB WHERE SELKZ = 'X'. "被选择的数据
      MOVE-CORRESPONDING GT_OUTTAB TO LS_TAB.
      APPEND LS_TAB TO LT_TAB.
      CLEAR:LS_TAB.
    ENDLOOP.

     CALL FUNCTION 'ZWM_VL06I_PRINT'
       EXPORTING
         I_HEAD        = LT_LIKP1
         I_ITEM        = LT_LIPS1.
   endif.
 endif.

ENDENHANCEMENT.
*$*$-End:   (1)---------------------------------------------------------------------------------$*$*

效果

参考链接