REPORT ZRD.
TABLES: EKKO, VBAK.
PARAMETERS: RAD1 RADIOBUTTON GROUP GP1 USER-COMMAND 123,
RAD2 RADIOBUTTON GROUP GP1.
SELECT-OPTIONS: S_VBELN FOR VBAK-VBELN MODIF ID 111,
S_KUNNR FOR VBAK-KUNNR MODIF ID 111,
S_EBELN FOR EKKO-EBELN MODIF ID QQQ,
E_BUKRS FOR EKKO-BUKRS MODIF ID QQQ.
AT SELECTION-SCREEN OUTPUT.
IF RAD1 EQ 'X'.
LOOP AT SCREEN.
IF SCREEN-GROUP1 = 'QQQ'.
SCREEN-INVISIBLE = 1.
SCREEN-INPUT = 0.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDIF.
IF RAD2 EQ 'X'.
LOOP AT SCREEN.
IF SCREEN-GROUP1 = '111'.
SCREEN-INVISIBLE = 1.
SCREEN-INPUT = 0.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDIF.
TABLES: EKKO, VBAK.
PARAMETERS: RAD1 RADIOBUTTON GROUP GP1 USER-COMMAND 123,
RAD2 RADIOBUTTON GROUP GP1.
SELECT-OPTIONS: S_VBELN FOR VBAK-VBELN MODIF ID 111,
S_KUNNR FOR VBAK-KUNNR MODIF ID 111,
S_EBELN FOR EKKO-EBELN MODIF ID QQQ,
E_BUKRS FOR EKKO-BUKRS MODIF ID QQQ.
AT SELECTION-SCREEN OUTPUT.
IF RAD1 EQ 'X'.
LOOP AT SCREEN.
IF SCREEN-GROUP1 = 'QQQ'.
SCREEN-INVISIBLE = 1.
SCREEN-INPUT = 0.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDIF.
IF RAD2 EQ 'X'.
LOOP AT SCREEN.
IF SCREEN-GROUP1 = '111'.
SCREEN-INVISIBLE = 1.
SCREEN-INPUT = 0.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDIF.
input:
REPORT ZR_H109_PERNER_DOWN.
TABLES PERNR.
SELECTION-SCREEN BEGIN OF BLOCK PART2 WITH FRAME TITLE TEXT-T01.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS : RAD1 RADIOBUTTON GROUP G1 USER-COMMAND 123 DEFAULT 'X'.
SELECTION-SCREEN COMMENT (20) TEXT-001.
PARAMETERS : RAD2 RADIOBUTTON GROUP G1.
SELECTION-SCREEN COMMENT (20) TEXT-002.
PARAMETERS : RAD3 RADIOBUTTON GROUP G1.
SELECTION-SCREEN COMMENT (20) TEXT-003.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK PART2.
SELECTION-SCREEN BEGIN OF BLOCK PART1 WITH FRAME TITLE TEXT-T02.
PARAMETERS : F_PATH TYPE STRING MODIF ID M1.
SELECTION-SCREEN END OF BLOCK PART1.
SELECTION-SCREEN BEGIN OF BLOCK PART3 WITH FRAME TITLE TEXT-T03.
PARAMETERS : S_PATH TYPE STRING MODIF ID M2.
SELECTION-SCREEN END OF BLOCK PART3.
*********************************************************************************
* SELECTION-SCREEN
******************************************************************************
AT SELECTION-SCREEN OUTPUT.
CASE 'X'.
WHEN RAD1.
LOOP AT SCREEN.
IF SCREEN-GROUP1 = 'M1' OR SCREEN-GROUP1 = 'M2'.
SCREEN-ACTIVE = 0.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
WHEN RAD2.
LOOP AT SCREEN.
IF SCREEN-GROUP1 = 'M2'.
SCREEN-INPUT = 0.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
WHEN RAD3.
LOOP AT SCREEN.
IF SCREEN-GROUP1 = 'M1'.
SCREEN-INPUT = 0.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
ENDCASE.
output:
REPORT ZR_H109_PERNER_DOWN.
TABLES PERNR.
SELECTION-SCREEN BEGIN OF BLOCK PART2 WITH FRAME TITLE TEXT-T01.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS : RAD1 RADIOBUTTON GROUP G1 USER-COMMAND 123 DEFAULT 'X'.
SELECTION-SCREEN COMMENT (20) TEXT-001.
PARAMETERS : RAD2 RADIOBUTTON GROUP G1.
SELECTION-SCREEN COMMENT (20) TEXT-002.
PARAMETERS : RAD3 RADIOBUTTON GROUP G1.
SELECTION-SCREEN COMMENT (20) TEXT-003.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK PART2.
SELECTION-SCREEN BEGIN OF BLOCK PART1 WITH FRAME TITLE TEXT-T02.
PARAMETERS : F_PATH TYPE STRING MODIF ID M1.
SELECTION-SCREEN END OF BLOCK PART1.
SELECTION-SCREEN BEGIN OF BLOCK PART3 WITH FRAME TITLE TEXT-T03.
PARAMETERS : S_PATH TYPE STRING MODIF ID M2.
SELECTION-SCREEN END OF BLOCK PART3.
*********************************************************************************
* SELECTION-SCREEN
******************************************************************************
AT SELECTION-SCREEN OUTPUT.
CASE 'X'.
WHEN RAD1.
LOOP AT SCREEN.
IF SCREEN-GROUP1 = 'M1' OR SCREEN-GROUP1 = 'M2'.
SCREEN-ACTIVE = 0.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
WHEN RAD2.
LOOP AT SCREEN.
IF SCREEN-GROUP1 = 'M2'.
SCREEN-INPUT = 0.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
WHEN RAD3.
LOOP AT SCREEN.
IF SCREEN-GROUP1 = 'M1'.
SCREEN-INPUT = 0.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
ENDCASE.
output:
No comments:
Post a Comment