REPORT ZMM_D003.
*变量定义
INCLUDE ZDEFINITION.
*按钮捕获
INCLUDE Z_PRO_UCOMM.
*数据提取
INCLUDE Z_GET_DATA_TMP.
*ALV
INCLUDE Z_GET_ALV.
*功能键触发
INCLUDE Z_GET_UCOMM_PRINT_BIPI.
INITIALIZATION.
PERFORM GET_INCN_ID. "选择界面通知
AT SELECTION-SCREEN.
PERFORM F_PRO_UCOMM. "捕获按钮
CLEAR SY-UCOMM.
AT SELECTION-SCREEN OUTPUT.
PERFORM GET_SCREEN.
START-OF-SELECTION.
IF P11 = 'X' OR P22 = 'X' OR P55 = 'X'.
PERFORM GET_DATA. "数据提取
PERFORM GET_DATA_TABLS. "自建表数据提取
IF IT_TAB[] IS INITIAL AND IT_ZMM017_TMP[] IS INITIAL.
MESSAGE S011(ZMM_MSG) WITH '' DISPLAY LIKE 'E'.
ELSE.
CALL SCREEN 9001.
ENDIF.
ENDIF.
IF P77 = 'X'.
PERFORM GET_DATA_TABLS. "自建表数据提取
IF IT_ZMM017_TMP[] IS INITIAL.
MESSAGE S011(ZMM_MSG) WITH '' DISPLAY LIKE 'E'.
ELSE.
CALL SCREEN 9002.
ENDIF.
ENDIF.
END-OF-SELECTION.
SAP-领料单代码
最新推荐文章于 2024-06-14 11:01:38 发布