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

Image
SAP MM Tables Link and Flow MM flow is processing  between business organisation and Vendor: 1...Purchase Requisition --- T.code ---ME51 2...Source List -----T.code-----ME41 3...Request for Quation (RFQ)---T.code--ME21N  (To Vendor) 4...Purchase Order  ---- T.code ----ME21N (To Vendor) 5...Goods Receipt-------T.code....MIGO       (Tables:  MKPF, MSEG) 6...Invoice Verification----T.code...MIRO       (Tables: BKPF , BSEG) 7...Vendor Payment----T.code...FB60 (FI - Account Payable)
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, ...
Read more

ALV-LIGHT_SET

Image
REPORT  ZLIGHT_SET. TYPE-POOLS: SLIS. TYPES: BEGIN OF TY_VBAK,         VBELN TYPE VBAK-VBELN,         ERNAM TYPE VBAK-ERNAM,         NETWR TYPE VBAK-NETWR,         LIGHTS TYPE  C,       END OF TY_VBAK.  DATA: IT_VBAK TYPE  TABLE OF TY_VBAK,        WA_VBAK TYPE TY_VBAK. DATA: WA_LAYOUT TYPE  SLIS_LAYOUT_ALV ,        IT_FCAT   TYPE  SLIS_T_FIELDCAT_ALV ,         WA_FCAT LIKE LINE OF IT_FCAT.  SELECT-OPTIONS : S_VBELN FOR WA_VBAK-VBELN. START-OF-SELECTION.    SELECT VBELN ERNAM NETWR FROM VBAK           INTO TABLE IT_VBAK UP TO 10 ROWS. LOOP AT  IT_VBAK INTO WA_VBAK. IF  WA_VBAK-ERNAM = 'BOLLINGER'.    WA_VBAK-LIGHTS = 1. MODIFY IT_VBAK FROM WA_VBAK TRANSPORTING LIGHTS.    ELSEIF  WA_VBAK-E...
Read more