In my previous articles we have seen some basic reports in SAP and some basic operations that we can perform on the SAP tables and reports. In this article we will see how can we show data of detail database table in SAP. Below is the Program that can be used to show data of detail database table in SAP.
REPORT ZBILL_ALV_REPORT_1.
TABLES: ZBILL_DESC.
*TABLES ZBILL.
*---Calling the type pool SLIS to inherit all of its fields-----
TYPE-POOLS SLIS.
" ---- WORK-AREA AND INTERNAL TABLE DECLARATION ----
DATA: WA_BILLDESC TYPE ZBILL_DESC,
IT_BILLDESC TYPE ZBILL_DESC OCCURS 0.
* IT_BILLDESC TYPE ZBILL_DESC OCCURS 0 WITH HEADER LINE.
DATA: REP_ID TYPE SY-REPID VALUE SY-REPID.
DATA:
*-----DECLARING THE FIELD CATALOG WORK AREA & INTERNAL TABLE-----------*
WA_FCAT TYPE SLIS_FIELDCAT_ALV,
IT_FCAT TYPE SLIS_T_FIELDCAT_ALV,
*-----DECLARING THE WORK AREA OF ALV LAYOUT----------------------------*
WA_LAYOUT TYPE SLIS_LAYOUT_ALV,
*-----DECLARING THE WORK AREA & INTERNAL TABLE FOR TOP OF PAGE---------*
WA_TOP TYPE SLIS_LISTHEADER,
IT_TOP TYPE SLIS_T_LISTHEADER.
SELECTION-SCREEN BEGIN OF BLOCK A WITH FRAME TITLE TEXT-001.
PARAMETERS: P_DOC_ID TYPE ZBILL_DESC-DOC_ID OBLIGATORY.
PARAMETERS: P_BILL_N TYPE ZBILL-BILNO OBLIGATORY.
SELECTION-SCREEN END OF BLOCK A.
START-OF-SELECTION. " for selection of data from database.
PERFORM GET_BILLS.
*END-OF-SELECTION.
PERFORM ALV_LAYOUT.
PERFORM ALV_FIELD_CATALOG.
PERFORM ALV_GRID_DISPLAY.
TOP-OF-PAGE.
PERFORM TOP_OF_BILL.
*&---------------------------------------------------------------------*
*& Form GET_BILLS
*&---------------------------------------------------------------------*
* Selection of BILL table data
*----------------------------------------------------------------------*
FORM GET_BILLS.
* SELECT * INTO CORRESPONDING FIELDS OF TABLE IT_BILL FROM ZBILL.
SELECT * INTO CORRESPONDING FIELDS OF TABLE IT_BILLDESC FROM ZBILL_DESC WHERE DOC_ID = P_DOC_ID.
IF SY-SUBRC = 0.
SORT IT_BILLDESC.
ELSE.
MESSAGE 'Bill Detail''s doesn''t exist' TYPE 'I'.
ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form alv_field_catalog
*&---------------------------------------------------------------------*
* Preparing ALV field catalog
*----------------------------------------------------------------------*
FORM ALV_FIELD_CATALOG.
DATA LV_COL TYPE I VALUE 0.
IF NOT IT_BILLDESC IS INITIAL.
LV_COL = 1 + LV_COL.
WA_FCAT-COL_POS = LV_COL. "COLUMN POSITION
WA_FCAT-FIELDNAME = 'PRO_ID'. "TECHNICAL FIELD NAME
WA_FCAT-TABNAME = 'IT_BILLDESC'. "OUTPUT TABLE NAME
WA_FCAT-SELTEXT_L = 'Product Id'. "FIELD TEXT
APPEND WA_FCAT TO IT_FCAT. "PREPARING THE FIELDCAT TABLE
CLEAR WA_FCAT.
LV_COL = 1 + LV_COL.
WA_FCAT-COL_POS = LV_COL. "COLUMN POSITION
WA_FCAT-FIELDNAME = 'PRO_NAM'. "TECHNICAL FIELD NAME
WA_FCAT-TABNAME = 'IT_BILLDESC'. "OUTPUT TABLE NAME
WA_FCAT-SELTEXT_L = 'Name'. "FIELD TEXT
APPEND WA_FCAT TO IT_FCAT. "PREPARING THE FIELDCAT TABLE
CLEAR WA_FCAT.
LV_COL = 1 + LV_COL.
WA_FCAT-COL_POS = LV_COL. "COLUMN POSITION
WA_FCAT-FIELDNAME = 'PRO_QTY'. "TECHNICAL FIELD NAME
WA_FCAT-TABNAME = 'IT_BILLDESC'. "OUTPUT TABLE NAME
WA_FCAT-SELTEXT_L = 'Quantity'. "FIELD TEXT
APPEND WA_FCAT TO IT_FCAT. "PREPARING THE FIELDCAT TABLE
CLEAR WA_FCAT.
LV_COL = 1 + LV_COL.
WA_FCAT-COL_POS = LV_COL. "COLUMN POSITION
WA_FCAT-FIELDNAME = 'PRO_AMT'. "TECHNICAL FIELD NAME
WA_FCAT-TABNAME = 'IT_BILLDESC'. "OUTPUT TABLE NAME
WA_FCAT-SELTEXT_L = 'AMOUNT'. "FIELD TEXT
WA_FCAT-DO_SUM = 'X'.
APPEND WA_FCAT TO IT_FCAT. "PREPARING THE FIELDCAT TABLE
CLEAR WA_FCAT.
ENDIF.
ENDFORM. " end alv_field_catalog
*&---------------------------------------------------------------------*
*& Form alv_layout
*&---------------------------------------------------------------------*
* Preparing the ALV Layout
*----------------------------------------------------------------------*
FORM ALV_LAYOUT.
WA_LAYOUT-ZEBRA = 'X'. "CALLING THE ZEBRA LAYOUT
WA_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.
ENDFORM.
FORM TOP_OF_BILL.
REFRESH IT_TOP.
WA_TOP-TYP = 'H'. "HEADER TYPE
WA_TOP-INFO = 'Technocrats Club'. "HEADER TEXT
APPEND WA_TOP TO IT_TOP.
CLEAR WA_TOP.
WA_TOP-TYP = 'S'. "NORMAL LINE TYPE
WA_TOP-KEY = 'Document ID:'. "NORMAL LINE TEXT
WA_TOP-INFO = P_DOC_ID.
APPEND WA_TOP TO IT_TOP.
CLEAR WA_TOP.
WA_TOP-TYP = 'S'. "NORMAL LINE TYPE
WA_TOP-KEY = 'Bill No.:'. "NORMAL LINE TEXT
WA_TOP-INFO = P_BILL_N.
APPEND WA_TOP TO IT_TOP.
CLEAR WA_TOP.
WA_TOP-TYP = 'S'. "NORMAL LINE TYPE
WA_TOP-KEY = 'Report:'. "NORMAL LINE TEXT
WA_TOP-INFO = SY-REPID.
APPEND WA_TOP TO IT_TOP.
CLEAR WA_TOP.
WA_TOP-TYP = 'S'.
WA_TOP-KEY = 'User:'.
WA_TOP-INFO = SY-UNAME.
APPEND WA_TOP TO IT_TOP.
CLEAR WA_TOP.
DATA: DATUM TYPE C LENGTH 10. " CONVERT DATE TO EXTERNAL.
WRITE SY-DATUM TO DATUM.
WA_TOP-TYP = 'S'.
WA_TOP-KEY = 'Date:'.
WA_TOP-INFO = DATUM.
APPEND WA_TOP TO IT_TOP.
CLEAR WA_TOP.
DATA : S_TIME TYPE C LENGTH 20. "TIME CONVERSION TO EXTERNAL
WRITE SY-UZEIT TO S_TIME.
WA_TOP-TYP = 'S'.
WA_TOP-KEY = 'Time:'.
WA_TOP-INFO = S_TIME.
APPEND WA_TOP TO IT_TOP.
CLEAR WA_TOP.
"-CALLING FUNCTION MODULE FOR DISPLAYING TOP OF PAGE-------------------*
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
IT_LIST_COMMENTARY = IT_TOP "PASSING THE INTERNAL TABLE
I_LOGO = 'ENJOYSAP_LOGO'
* I_END_OF_LIST_GRID =
* I_ALV_FORM =
.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form alv_grid_display
*&---------------------------------------------------------------------*
* Preparing the final output by using Grid Display
*----------------------------------------------------------------------*
FORM ALV_GRID_DISPLAY.
IF NOT IT_BILLDESC IS INITIAL AND NOT IT_FCAT IS INITIAL.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = SY-REPID
* I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
I_CALLBACK_TOP_OF_PAGE = 'TOP_OF_BILL'
IS_LAYOUT = WA_LAYOUT
IT_FIELDCAT = IT_FCAT
I_GRID_TITLE = 'Bill Details'
TABLES
T_OUTTAB = IT_BILLDESC.
IF SY-SUBRC <> 0.
* Implement suitable error handling here
ENDIF.
ENDIF.
ENDFORM.
Output:
