****EXE PROGRAM-****
REPORT ZREPORT .
***TABLE WORK AREA****
TABLES:KNA1,VBAK.
***INTERNAL TABLE***
DATA:ITAB TYPE VBAK OCCURS 0,
****LOGIC FOR CUTOM CONTROL OF SCREEN 100 ****
CONTAINER TYPE SCRFNAME VALUE 'LVCONTROL',
CUST TYPE REF TO CL_GUI_CUSTOM_CONTAINER,
TREE TYPE REF TO CL_GUI_ALV_TREE_SIMPLE,
CL_GUI_ALV_TREE_SIMPLE,
FCAT TYPE LVC_T_FCAT,
***DECLARE FOR THE INTERNL TABLE BODY AND WORK AREA***
SORT_B TYPE LVC_T_SORT,
SORT_W TYPE LVC_S_SORT.
CALL SCREEN 100.
FORM COL_HEAD.
***CALL FUNCTION LVC_FIELDCATLOG_MERGE'
CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
EXPORTING
I_STRUCTURE_NAME = 'VBAK'
CHANGING
ct_fieldcat = FCAT.
ENDFORM.
***SUBROUTINE FOR OUTPUT
FORM OUTPUT.
SELECT * FROM VBAK INTO TABLE ITAB WHERE KUNNR = KNA1-KUNNR.
ENDFORM.
****SUBROUTINE SORTING****
FORM SORT.
****FIRST COLUM HEAD
SORT_W-SPOS = 1.
SORT_W-FIELDNAME = 'VBELN'.
APPEND SORT_W TO SORT_B.
***SECOND COLUMN HEAD
SORT_W-SPOS = 2.
SORT_W-FIELDNAME = 'ERDAT'.
APPEND SORT_W TO SORT_B.
***THIRD COLUMN HEAD
SORT_W-SPOS = 3.
SORT_W-FIELDNAME = 'ERNAM'.
APPEND SORT_W TO SORT_B.
***FOURTH COLUMN HEAD
SORT_W-SPOS = 4.
SORT_W-FIELDNAME = 'NETWR'.
APPEND SORT_W TO SORT_B.
ENDFORM.
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
module USER_COMMAND_0100 input.
****LOGIC FOR DISPLAY AND EXIT**
CASE SY-UCOMM.
WHEN 'DISPLAY'.
****PERFORM FOR CALLSUB
PERFORM CALLSUB.
WHEN 'EXIT'.
LEAVE PROGRAM.
ENDCASE.
endmodule. " USER_COMMAND_0100 INPUT
****SUBROUTINE FOR THE TO CALL PREVIESLY DEFINED SUBROTINES***
FORM CALLSUB.
PERFORM COL_HEAD.
PERFORM OUTPUT.
PERFORM SORT.
****LOGIC FOR DISPLAY THE LOCATION***
IF CUST IS INITIAL.
CREATE OBJECT CUST
EXPORTING
CONTAINER_NAME = CONTAINER.
CREATE OBJECT TREE
EXPORTING
I_PARENT = CUST.
CALL METHOD TREE->SET_TABLE_FOR_FIRST_DISPLAY
CHANGING
IT_OUTTAB = ITAB
IT_FIELDCATALOG = FCAT
IT_SORT = SORT_B.
ENDIF.
The previous post has covered the aspect of BADI IMPLEMENTATION at the same blog.
RELATED POSTS
ALV INTERACTIVE REPORT SAMPLE CODE
INTERACTIVE REPORT SAMPLE CODE 2
ALV SAMPLE CODE OUTPUT TO EXCEL SHEET
ALV LIST OBJECT ORIENTED STYLE
REPORT ZREPORT .
***TABLE WORK AREA****
TABLES:KNA1,VBAK.
***INTERNAL TABLE***
DATA:ITAB TYPE VBAK OCCURS 0,
****LOGIC FOR CUTOM CONTROL OF SCREEN 100 ****
CONTAINER TYPE SCRFNAME VALUE 'LVCONTROL',
CUST TYPE REF TO CL_GUI_CUSTOM_CONTAINER,
TREE TYPE REF TO CL_GUI_ALV_TREE_SIMPLE,
CL_GUI_ALV_TREE_SIMPLE,
FCAT TYPE LVC_T_FCAT,
***DECLARE FOR THE INTERNL TABLE BODY AND WORK AREA***
SORT_B TYPE LVC_T_SORT,
SORT_W TYPE LVC_S_SORT.
CALL SCREEN 100.
FORM COL_HEAD.
***CALL FUNCTION LVC_FIELDCATLOG_MERGE'
CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
EXPORTING
I_STRUCTURE_NAME = 'VBAK'
CHANGING
ct_fieldcat = FCAT.
ENDFORM.
***SUBROUTINE FOR OUTPUT
FORM OUTPUT.
SELECT * FROM VBAK INTO TABLE ITAB WHERE KUNNR = KNA1-KUNNR.
ENDFORM.
****SUBROUTINE SORTING****
FORM SORT.
****FIRST COLUM HEAD
SORT_W-SPOS = 1.
SORT_W-FIELDNAME = 'VBELN'.
APPEND SORT_W TO SORT_B.
***SECOND COLUMN HEAD
SORT_W-SPOS = 2.
SORT_W-FIELDNAME = 'ERDAT'.
APPEND SORT_W TO SORT_B.
***THIRD COLUMN HEAD
SORT_W-SPOS = 3.
SORT_W-FIELDNAME = 'ERNAM'.
APPEND SORT_W TO SORT_B.
***FOURTH COLUMN HEAD
SORT_W-SPOS = 4.
SORT_W-FIELDNAME = 'NETWR'.
APPEND SORT_W TO SORT_B.
ENDFORM.
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
module USER_COMMAND_0100 input.
****LOGIC FOR DISPLAY AND EXIT**
CASE SY-UCOMM.
WHEN 'DISPLAY'.
****PERFORM FOR CALLSUB
PERFORM CALLSUB.
WHEN 'EXIT'.
LEAVE PROGRAM.
ENDCASE.
endmodule. " USER_COMMAND_0100 INPUT
****SUBROUTINE FOR THE TO CALL PREVIESLY DEFINED SUBROTINES***
FORM CALLSUB.
PERFORM COL_HEAD.
PERFORM OUTPUT.
PERFORM SORT.
****LOGIC FOR DISPLAY THE LOCATION***
IF CUST IS INITIAL.
CREATE OBJECT CUST
EXPORTING
CONTAINER_NAME = CONTAINER.
CREATE OBJECT TREE
EXPORTING
I_PARENT = CUST.
CALL METHOD TREE->SET_TABLE_FOR_FIRST_DISPLAY
CHANGING
IT_OUTTAB = ITAB
IT_FIELDCATALOG = FCAT
IT_SORT = SORT_B.
ENDIF.
The previous post has covered the aspect of BADI IMPLEMENTATION at the same blog.
RELATED POSTS
ALV INTERACTIVE REPORT SAMPLE CODE
INTERACTIVE REPORT SAMPLE CODE 2
ALV SAMPLE CODE OUTPUT TO EXCEL SHEET
ALV LIST OBJECT ORIENTED STYLE
No comments :
Post a Comment