INTERACTIVE -ALV REPORT

*&---------------------------------------------------------------------*
*& Report  ZALV_P
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZALV_P.


TYPE-POOLS : SLIS.

TABLES: MARA.


types : BEGIN OF TY_MARA,
       MATNR TYPE MARA-MATNR,
        MTART TYPE MARA-MTART,
        MBRSH TYPE MARA-MBRSH,
        MEINS TYPE MARA-MEINS,
       END OF TY_MARA.

 DATA: IT_MARA TYPE TABLE OF TY_MARA,
       WA_MARA TYPE TY_MARA.

 DATA: IT_FIELDCAT TYPE  SLIS_T_FIELDCAT_ALV,
       WA_FIELDCAT  LIKE LINE OF IT_FIELDCAT.




PARAMETER: P_MATNR TYPE MARA-MATNR.


START-OF-SELECTION.


  SELECT MATNR MTART MBRSH MEINS FROM MARA INTO TABLE IT_MARA UP TO 50 ROWS WHERE MATNR = P_MATNR.

   WA_FIELDCAT-COL_POS = 1.
    WA_FIELDCAT-FIELDNAME = 'MATNR'.
    WA_FIELDCAT-TABNAME = 'IT_MARA'.
    WA_FIELDCAT-SELTEXT_M = ' MATERIAL NO '.
    WA_FIELDCAT-KEY = 'X'.
    WA_FIELDCAT-HOTSPOT = 'X'.

    APPEND WA_FIELDCAT TO IT_FIELDCAT.
    CLEAR WA_FIELDCAT.

    WA_FIELDCAT-COL_POS = 2.
    WA_FIELDCAT-FIELDNAME = 'MTART'.
    WA_FIELDCAT-TABNAME = 'IT_MARA'.
    WA_FIELDCAT-SELTEXT_M = ' MATERIAL TYPE '.
*    WA_FIELDCAT-KEY = 'X'.
*    WA_FIELDCAT-HOTSPOT = 'X'.

    APPEND WA_FIELDCAT TO IT_FIELDCAT.
    CLEAR WA_FIELDCAT.

     WA_FIELDCAT-COL_POS = 3.
    WA_FIELDCAT-FIELDNAME = 'MBRSH'.
    WA_FIELDCAT-TABNAME = 'IT_MARA'.
    WA_FIELDCAT-SELTEXT_M = ' INDUSTRY SEC '.
*    WA_FIELDCAT-KEY = 'X'.
*    WA_FIELDCAT-HOTSPOT = 'X'.

    APPEND WA_FIELDCAT TO IT_FIELDCAT.
    CLEAR WA_FIELDCAT.

     WA_FIELDCAT-COL_POS = 4.
    WA_FIELDCAT-FIELDNAME = 'MEINS'.
    WA_FIELDCAT-TABNAME = 'IT_MARA'.
    WA_FIELDCAT-SELTEXT_M = ' BASE OF UNIT'.
*    WA_FIELDCAT-KEY = 'X'.
*    WA_FIELDCAT-HOTSPOT = 'X'.

    APPEND WA_FIELDCAT TO IT_FIELDCAT.
    CLEAR WA_FIELDCAT.




    CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
     EXPORTING
*       I_INTERFACE_CHECK                 = ' '
*       I_BYPASSING_BUFFER                = ' '
*       I_BUFFER_ACTIVE                   = ' '
       I_CALLBACK_PROGRAM                = SY-REPID
*       I_CALLBACK_PF_STATUS_SET          = ' '
       I_CALLBACK_USER_COMMAND           = 'USER_COMMAND '
*       I_CALLBACK_TOP_OF_PAGE            = ' '
*       I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
*       I_CALLBACK_HTML_END_OF_LIST       = ' '
*       I_STRUCTURE_NAME                  =
*       I_BACKGROUND_ID                   = ' '
*       I_GRID_TITLE                      =
*       I_GRID_SETTINGS                   =
*       IS_LAYOUT                         =
       IT_FIELDCAT                       = IT_FIELDCAT
*       IT_EXCLUDING                      =
*       IT_SPECIAL_GROUPS                 =
*       IT_SORT                           =
*       IT_FILTER                         =
*       IS_SEL_HIDE                       =
*       I_DEFAULT                         = 'X'
*       I_SAVE                            = ' '
*       IS_VARIANT                        =
*       IT_EVENTS                         =
*       IT_EVENT_EXIT                     =
*       IS_PRINT                          =
*       IS_REPREP_ID                      =
*       I_SCREEN_START_COLUMN             = 0
*       I_SCREEN_START_LINE               = 0
*       I_SCREEN_END_COLUMN               = 0
*       I_SCREEN_END_LINE                 = 0
*       I_HTML_HEIGHT_TOP                 = 0
*       I_HTML_HEIGHT_END                 = 0
*       IT_ALV_GRAPHICS                   =
*       IT_HYPERLINK                      =
*       IT_ADD_FIELDCAT                   =
*       IT_EXCEPT_QINFO                   =
*       IR_SALV_FULLSCREEN_ADAPTER        =
*     IMPORTING
*       E_EXIT_CAUSED_BY_CALLER           =
*       ES_EXIT_CAUSED_BY_USER            =
      TABLES
        T_OUTTAB                          = IT_MARA
     EXCEPTIONS
       PROGRAM_ERROR                     = 1
       OTHERS                            = 2
              .


    FORM USER_COMMAND USING R_UCOMM LIKE SY-UCOMM

            RS_SELFIELD TYPE SLIS_SELFIELD.

      CASE  R_UCOMM.
        WHEN '&IC1'.

          READ TABLE IT_MARA INTO WA_MARA INDEX RS_SELFIELD-TABINDEX.


    IF SY-SUBRC =  0.

      SET PARAMETER ID 'MAT' FIELD WA_MARA-MATNR.

      CALL TRANSACTION 'MM01' AND SKIP FIRST SCREEN.

    ENDIF.

      ENDCASE.

      ENDFORM.




----
SAVE AND ACTIVE.






EXECUTE










Comments

Post a Comment

Popular posts from this blog

FOR ALL ENTRIES (FAE) -4 TABLES USING ALV_GRID_DISPLAY

Image
*&---------------------------------------------------------------------* *& Report  ZFAE_ALV *& *&---------------------------------------------------------------------* *& *& *&---------------------------------------------------------------------* REPORT   ZFAE_ALV. TYPE-POOLS: SLIS. TYPES:  BEGIN  OF  TY_VBAK,         VBELN  TYPE  VBAK-VBELN,         ERNAM  TYPE  VBAK-ERNAM,         KUNNR  TYPE  VBAK-KUNNR,        END  OF  TY_VBAK.  TYPES:  BEGIN  OF  TY_VBAP,          VBELN  TYPE  VBAP-VBELN,          POSNR  TYPE  VBAP-POSNR,          MATNR  TYPE  VBAP-MATNR,         END  OF  TY_VBAP.  TYPES:BEGIN  OF  TY_MARA,        MATNR  TYPE  MARA-MATNR,        MBRSH  TYPE  MARA-MBRSH,         END  OF  TY_MARA.  TYPES:  BEGIN  OF  TY_MAKT,         MATNR  TYPE  MAKT-MATNR,         MAKTX  TYPE  MAKT-MAKTX,          END  OF  TY_MAKT.  TYPES:BEGIN  OF  TY_FINAL,          VBELN  TYPE  VBAK-VBELN,         ERNAM  TYPE  VBAK-ERNAM,     
Read more

RADIO-BUTTONS IN BASIC REPORT

Image
*&---------------------------------------------------------------------* *& Report  ZSAPRADIO *& *&---------------------------------------------------------------------* *& *& *&---------------------------------------------------------------------* REPORT   ZSAPRADIO. TYPES:  BEGIN  OF  TY_VBAK,         VBELN  TYPE  VBAK-VBELN,         ERDAT  TYPE  VBAK-ERDAT,         VKORG  TYPE  VBAK-VKORG,        END  OF  TY_VBAK. TYPES:  BEGIN  OF  TY_VBAP,         VBELN  TYPE  VBAP-VBELN,         POSNR  TYPE  VBAP-POSNR,         MATNR  TYPE  VBAP-MATNR,         MATKL  TYPE  VBAP-MATKL,        END  OF  TY_VBAP. DATA:IT_VBAK  TYPE  TABLE  OF  TY_VBAK,       WA_VBAK  TYPE  TY_VBAK,         IT_VBAP  TYPE  TABLE  OF  TY_VBAP,       WA_VBAP  TYPE  TY_VBAP. SELECTION-SCREEN  BEGIN  OF  SCREEN  100. SELECT-OPTIONS  : S_VBELN  FOR  WA_VBAK-VBELN. SELECTION-SCREEN  END  OF  SCREEN  100. SELECTION-SCREEN  BEGIN  OF  SCREEN  200. SELECT-O
Read more

MODULE POOL -TABLE CONTROL_1:

Image
DECLARE  TABLES NAME AND STRUCTURE AND INTERNAL TABLES AND WORK AREA   CREATE SCREEN 9001 CLICK LAYOUT SEE THAT LAYOUT PAGE THEN WE DO THAT LIKE CLICK WIZARD AND DRAG INTO SCREEN  WE GET SCREEN LIKE SO AFTER WE CAN CREATE THAT STEPS  AFTER WE SEE SCREEN DESIGN IN AUTOMATICALLY IN TABLE CONTROL  SAVE AND CHECK AND ACTIVE  THEN MOVE TO BACK WE SEE THAT AUTOMATIC CODING WILL APPEAR   ENTER CALL SCREEN 9001. GO TO SCREEN 9001. THEN WE CAN FETCH DATA FROM PROGRAM SO    WE CAN CREATE MODULE   AND DESCRIBED ALL CODE IN SIDE OF MODULE. WE CAN GO TO  PAI SIDE  CLICK THAT MODULE AND ENTER  THAT CODING . AFTER SAVE AND ACTIVE PROGRAM  THEN WE CREATE T.CODE IN Z OR Y HERE I CAN CREATE T.CODE LIKE ZTABCLA AFTER WA CAN  GO TO NEW SCREEN 
Read more