Scribd Logo
Upload

Welcome to Scribd!

  • 3 views

    source+code

    Uploaded by

    preeeti250

    Copyright:

    © All Rights Reserved
    Download as DOCX, PDF, TXT or read online from Scribd

    source+code

    Uploaded by

    preeeti250
    3 views3 pages

    Copyright

    © © All Rights Reserved

    Available Formats

    DOCX, PDF, TXT or read online from Scribd

    Did you find this document useful?

    Is this content inappropriate?

    Copyright:

    © All Rights Reserved
    Download as DOCX, PDF, TXT or read online from Scribd
    Download as docx, pdf, or txt
    3 views3 pages

    source+code

    Uploaded by

    preeeti250

    Copyright:

    © All Rights Reserved
    Download as DOCX, PDF, TXT or read online from Scribd
    Download as docx, pdf, or txt
    You are on page 1of 3

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

    *& 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.

    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 SKIP 2.

    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.

    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.

    You might also like

    pFad - Phonifier reborn

    Pfad - The Proxy pFad of © 2024 Garber Painting. All rights reserved.

    Note: This service is not intended for secure transactions such as banking, social media, email, or purchasing. Use at your own risk. We assume no liability whatsoever for broken pages.


    Alternative Proxies:

    Alternative Proxy

    pFad Proxy

    pFad v3 Proxy

    pFad v4 Proxy