ALV Report with layout SAP ABAP





*&---------------------------------------------------------------------*
*& Report  ZALV_NER
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZALV_NER.

TYPE-POOLS: SLIS.

DATA: IT_MARA TYPE TABLE OF MARA.

DATA: WA_MARA TYPE MARA.


DATA: IT_FCAT TYPE SLIS_T_FIELDCAT_ALV.
DATA: WA_FCAT TYPE SLIS_FIELDCAT_ALV.

DATA: WA_LAYOUT TYPE SLIS_LAYOUT_ALV.


PARAMETERS: P_MTART TYPE MARA-MTART.


START-OF-SELECTION.



PERFORM GET_DATA.

PERFORM CREATE_FIELDCAT.

PERFORM CREATE_LAYOUT.

PERFORM DISPALY_DATA.

*&---------------------------------------------------------------------*
*&      Form  GET_DATA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
form GET_DATA .



SELECT * FROM MARA INTO TABLE IT_MARA UP TO 100 ROWS
   WHERE MTART = P_MTART.

endform.                    " GET_DATA
*&---------------------------------------------------------------------*
*&      Form  CREATE_FIELDCAT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
form CREATE_FIELDCAT .

DATA: V_POS TYPE I.

V_POS = 1.

WA_FCAT-COL_POS = V_POS.
WA_FCAT-FIELDNAME = 'MATNR'.
WA_FCAT-SELTEXT_M = 'MATERIAL NO'.
WA_FCAT-HOTSPOT = 'X'.

APPEND WA_FCAT TO IT_FCAT.
CLEAR WA_FCAT.


  V_POS = V_POS.

  WA_FCAT-COL_POS = V_POS.
  WA_FCAT-FIELDNAME = 'MTART'.
  WA_FCAT-SELTEXT_M = 'MATERIAL TYPE'.


  APPEND WA_FCAT TO IT_FCAT.
  CLEAR WA_FCAT.


  V_POS = V_POS.

  WA_FCAT-COL_POS = V_POS.
  WA_FCAT-FIELDNAME = 'MBRSH'.
  WA_FCAT-SELTEXT_M = 'COMPANY'.


  APPEND WA_FCAT TO IT_FCAT.
  CLEAR WA_FCAT.



  V_POS = V_POS.

  WA_FCAT-COL_POS = V_POS.
  WA_FCAT-FIELDNAME = 'MEINS'.
  WA_FCAT-SELTEXT_M = 'UNIT'.


  APPEND WA_FCAT TO IT_FCAT.
  CLEAR WA_FCAT.




endform.                    " CREATE_FIELDCAT
*&---------------------------------------------------------------------*
*&      Form  CREATE_LAYOUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
form CREATE_LAYOUT .

WA_LAYOUT-ZEBRA = 'X'.

WA_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.
WA_LAYOUT-EDIT = 'X'.
WA_LAYOUT-NO_VLINE = 'X'.
WA_LAYOUT-NO_HLINE = 'X'.



endform.                    " CREATE_LAYOUT
*&---------------------------------------------------------------------*
*&      Form  DISPALY_DATA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
form DISPALY_DATA .


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           = ' '
*   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                         = WA_LAYOUT
   IT_FIELDCAT                       = IT_FCAT
*   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
          .
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.


endform.                    " DISPALY_DATA

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