source+code

*&---------------------------------------------------------------------*
*& Report ZDDYNAMIC
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ZDDYNAMIC.
TYPES : BEGIN OF TY_VBAK,
KUNNR TYPE VBAK-KUNNR,
VBELN TYPE VBAK-VBELN,
ERDAT TYPE VBAK-ERDAT,
ERNAM TYPE VBAK-ERNAM,
END OF TY_VBAK.
DATA : IT_VBAK TYPE TABLE OF TY_VBAK,
WA_VBAK TYPE TY_VBAK.
SELECTION-SCREEN BEGIN OF BLOCK BK1 WITH FRAME TITLE T1.
SELECTION-SCREEN BEGIN OF LINE.
* DESIGN FIRST RADIO BUTTON.
SELECTION-SCREEN POSITION 05.
PARAMETERS P_RB1 RADIOBUTTON GROUP GP1 USER-COMMAND FC1.
SELECTION-SCREEN COMMENT 07(15) TEXT-001.
* DESIGN SECOND RADIO BUTTON.
PARAMETERS P_RB2 RADIOBUTTON GROUP GP1 DEFAULT 'X'.
SELECTION-SCREEN COMMENT 52(15) TEXT-002.
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN SKIP 2.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 06(18) TEXT-003 MODIF ID A1.
PARAMETERS P_D1 TYPE VBAK-KUNNR MODIF ID A1.
SELECTION-SCREEN COMMENT 51(20) TEXT-004 MODIF ID B1.
PARAMETERS P_D2 TYPE VBAK-VBELN MODIF ID B1.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK BK1.
START-OF-SELECTION.
IF P_RB1 = 'X'.
SELECT KUNNR VBELN ERDAT ERNAM FROM VBAK INTO TABLE IT_VBAK WHERE KUNNR = P_D1.
ELSEIF P_RB2 = 'X'.
SELECT KUNNR VBELN ERDAT ERNAM FROM VBAK INTO TABLE IT_VBAK WHERE VBELN = P_D2.
ENDIF.
IF IT_VBAK IS NOT INITIAL.
LOOP AT IT_VBAK INTO WA_VBAK.
WRITE :/ WA_VBAK-KUNNR, WA_VBAK-VBELN, WA_VBAK-ERDAT, WA_VBAK-ERNAM.
ENDLOOP.
ENDIF.
AT SELECTION-SCREEN OUTPUT.
IF P_RB1 = 'X'.
LOOP AT SCREEN.
IF SCREEN-GROUP1 = 'B1'.
SCREEN-ACTIVE = 0.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ELSEIF P_RB2 = 'X'.
LOOP AT SCREEN.
IF SCREEN-GROUP1 = 'A1'.
SCREEN-ACTIVE = 0.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDIF.

source+code

Uploaded by

Document Informationclick to expand document information

Document Informationclick to expand document information

Copyright:

Available Formats

source+code

Uploaded by

Document Information

Copyright

Available Formats

Share this document

Share or Embed Document

Sharing Options

Did you find this document useful?

Is this content inappropriate?

Copyright:

Available Formats

source+code

Uploaded by

Copyright:

Available Formats

*&---------------------------------------------------------------------*

*& Report ZDDYNAMIC

TYPES : BEGIN OF TY_VBAK,

KUNNR TYPE VBAK-KUNNR,

VBELN TYPE VBAK-VBELN,

ERDAT TYPE VBAK-ERDAT,

ERNAM TYPE VBAK-ERNAM,

DATA : IT_VBAK TYPE TABLE OF TY_VBAK,

WA_VBAK TYPE TY_VBAK.

SELECTION-SCREEN BEGIN OF BLOCK BK1 WITH FRAME TITLE T1.

SELECTION-SCREEN BEGIN OF LINE.

* DESIGN FIRST RADIO BUTTON.

SELECTION-SCREEN POSITION 05.

PARAMETERS P_RB1 RADIOBUTTON GROUP GP1 USER-COMMAND FC1.

SELECTION-SCREEN COMMENT 07(15) TEXT-001.

* DESIGN SECOND RADIO BUTTON.

SELECTION-SCREEN POSITION 50.

PARAMETERS P_RB2 RADIOBUTTON GROUP GP1 DEFAULT 'X'.

SELECTION-SCREEN COMMENT 52(15) TEXT-002.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 06(18) TEXT-003 MODIF ID A1.

SELECTION-SCREEN POSITION 25.

PARAMETERS P_D1 TYPE VBAK-KUNNR MODIF ID A1.

SELECTION-SCREEN COMMENT 51(20) TEXT-004 MODIF ID B1.

SELECTION-SCREEN POSITION 72.

PARAMETERS P_D2 TYPE VBAK-VBELN MODIF ID B1.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK BK1.

ELSEIF P_RB2 = 'X'.

IF IT_VBAK IS NOT INITIAL.

LOOP AT IT_VBAK INTO WA_VBAK.

WRITE :/ WA_VBAK-KUNNR, WA_VBAK-VBELN, WA_VBAK-ERDAT, WA_VBAK-ERNAM.

ELSEIF P_RB2 = 'X'.

You might also like

&---------------------------------------------------------------------