abap模拟MMBE的屏幕选择

发布时间 2023-03-29 21:46:01作者: 往事只能回味---
*&---------------------------------------------------------------------*
*& Report  ZMMBE1
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT zmmbe1.

TABLES t001w.
TABLES t001l.
TABLES lfa1.
TABLES rmmmb.

SELECTION-SCREEN BEGIN OF BLOCK one WITH FRAME TITLE text-001.

PARAMETERS matnr TYPE mara-matnr.
SELECT-OPTIONS werks FOR t001w-werks.
SELECT-OPTIONS lgort FOR t001l-lgort.
SELECT-OPTIONS lifnr FOR lfa1-lifnr.

SELECTION-SCREEN END OF BLOCK one.



SELECTION-SCREEN BEGIN OF BLOCK two WITH FRAME TITLE text-002.

PARAMETERS p1 TYPE char1 AS CHECKBOX DEFAULT 'X'.
PARAMETERS p2 TYPE char1 AS CHECKBOX DEFAULT 'X'.

SELECTION-SCREEN END OF BLOCK two.


SELECTION-SCREEN BEGIN OF BLOCK three WITH FRAME TITLE text-003.

SELECT-OPTIONS kzson FOR rmmmb-kzson.
PARAMETERS bb TYPE char3 DEFAULT 1 VISIBLE LENGTH 3.
PARAMETERS dw TYPE char3 VISIBLE LENGTH 3.

PARAMETERS p3 TYPE char1 AS CHECKBOX DEFAULT 'X'.
PARAMETERS p4 TYPE char1 AS CHECKBOX DEFAULT ''.

SELECTION-SCREEN BEGIN OF BLOCK f4 WITH FRAME TITLE text-004.
PARAMETERS p5 TYPE char1 AS CHECKBOX DEFAULT 'X'.
PARAMETERS p6 TYPE char1 AS CHECKBOX DEFAULT 'X'.
PARAMETERS p7 TYPE char1 AS CHECKBOX DEFAULT 'X'.
PARAMETERS p8 TYPE char1 AS CHECKBOX DEFAULT 'X'.
PARAMETERS p9 TYPE char1 AS CHECKBOX DEFAULT 'X'.
SELECTION-SCREEN END OF BLOCK f4.


SELECTION-SCREEN END OF BLOCK three.



SELECTION-SCREEN BEGIN OF BLOCK f5 WITH FRAME TITLE text-005.

SELECT-OPTIONS kzson2 FOR rmmmb-kzson.

SELECTION-SCREEN END OF BLOCK f5.