Header in alv grid using class

Hello All,
    I developed alv grid using class method.
First I created CREATE OBJECT GR_CCONTAINER
then CREATE OBJECT GR_ALVGRID
then PERFORM FIELD_CATALOG TABLES GT_FIELDCAT----
for field catalog
    PERFORM LAYOUT CHANGING GS_LAYOUT.----
for header
    p_gs_layout-grid_title = 'class method'.
p_gs_layout-sel_mode = 'D'.
APPEND P_GS_LAYOUT TO IT_LAYOUT.
and finally CALL METHOD GR_ALVGRID->SET_TABLE_FOR_FIRST_DISPLAY
the report is cooming fine but in header it comes only "class method".
but i need also
1. reporting date
2. reporting time.
   can any body tell me how i can i put 2 more heading line
Thanks,
Rakesh

Hi Dude,
Please refer the below link how to handle the header in alv using abap oo
https://www.sdn.sap.com/irj/scn/wiki?path=/display/snippets/abapObjects-ALVModel-UsingHeaderand+Footer
Hope it clears,..............
Thanks & Regards
Ramakrishna Pathi

Similar Messages

Is it possbile to create ALV Grid using Class & without using SE51

Is it possible to create a alv grid using Class, with out using the screen painter(SE51).

Hi Preethi,
It is possible to creat ALV grid using class, provided u have to create a custom control in the screen dialog.
Try with the foll code. This is an example for flight detail.
DATA: container TYPE REF TO cl_gui_custom_container,
      alv_con TYPE REF TO cl_gui_alv_grid.
data : it_sflight like table of wa with header line,
       g_fieldcat type lvc_t_fcat.
/* Paste the code the PBO
    CREATE OBJECT container
      EXPORTING
        container_name              = 'C_SPFLI'. "Specify the container name which u created in the dialog screen.
    CREATE OBJECT alv_con
      EXPORTING
        i_parent          = container.
/* Use the foll. to dislay the report
CALL METHOD cl_grid->set_table_for_first_display
        EXPORTING
         I_STRUCTURE_NAME              = 'SFLIGHT'
        CHANGING
          it_outtab                     = it_sflight[]
          IT_FIELDCATALOG               = g_fieldcat.
First create the container and then place the ALV in the container and for dislaying pass the necessary table.
Hope this will useful for u.
Get back if u r unable to do it.
Regards
Router

Editable ALV-Grid Using Class

Hi experts.....
I like to know How to create Editable ALV Grid using Class...
Also i like to to know how to add The contains to Z-Table...
Whether we can delete ALV grid contents........
...Thanks
..Ashish

Hello Ashish
You may want to have a look at thread Select Row in OO-ALV programmatically
Regards
Uwe

Coulmn validation on ALV Grid (using Classes)

Hi All,
I'm creating a ALV Grid using calsses. I want to check the column value of Grid and raise some errror message. How to do this.
Regards
Jaker.

have a look at sample report BCALV_EDIT_03

ALV Grid using classes

Hi gurus,
 can anyone send me sample code to develop a repot using classes with all possibilities i.e, using events and interactive, pop-up.
Best answers wil be rewarded.
Regards,
alson

REPORT zex35 MESSAGE-ID zsmg NO STANDARD PAGE HEADING.
INCLUDE <icon>.
CLASS myclass DEFINITION DEFERRED.
TABLES: vbak,kna1.
TYPE-POOLS: slis,sdydo.
DATA: BEGIN OF jtab OCCURS 0,
 ch(1),
 vbeln LIKE vbak-vbeln,
 erdat LIKE vbak-erdat,
 kunnr LIKE vbak-kunnr,
 ernam LIKE vbak-ernam,
 netwr LIKE vbak-netwr,
 knumv LIKE vbak-knumv,
 bstnk LIKE vbak-bstnk,
 ktext LIKE vbak-ktext,
 styletable TYPE lvc_t_styl,
 rowcolor(4),
 cellcolor TYPE lvc_t_scol,
 ptype_dd_hndl TYPE int4 ,
 END OF jtab.
DATA : ejtab LIKE jtab OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF vjtab OCCURS 0,
 vbeln LIKE vbak-vbeln,
 erdat LIKE vbak-erdat,
 kunnr LIKE vbak-kunnr,
 ernam LIKE vbak-ernam,
 netwr LIKE vbak-netwr,
 knumv LIKE vbak-knumv,
 bstnk LIKE vbak-bstnk,
 ktext LIKE vbak-ktext,
 END OF vjtab.
DATA: alv TYPE scrfname VALUE 'ALV',
 obj_c_container_alv TYPE REF TO cl_gui_custom_container,
 obj_grid TYPE REF TO cl_gui_alv_grid,
 obj_myclass TYPE REF TO myclass,
 i_fieldcat TYPE lvc_t_fcat,
 wa_fieldcat LIKE LINE OF i_fieldcat,
 ei_fieldcat TYPE lvc_t_fcat,
 ewa_fieldcat LIKE LINE OF i_fieldcat,
 gs_layout TYPE lvc_s_layo.
DATA: l_rows TYPE lvc_t_row.
DATA : modi TYPE lvc_s_modi ,
 rowid TYPE i,
 ind TYPE i,
 wjtab LIKE jtab,
 it_exclude TYPE ui_functions,
 it_sort TYPE lvc_t_sort,
 it_filt TYPE lvc_t_filt,
 gi_index_rows TYPE lvc_t_row,
 g_selected_row LIKE lvc_s_row.
DATA: ls_edit TYPE lvc_s_styl,
 lt_edit TYPE lvc_t_styl.
DATA: ls_outtab LIKE LINE OF jtab.
CALL SCREEN 100.
 CLASS MYCLASS DEFINITION
CLASS myclass DEFINITION.
PUBLIC SECTION.
 METHODS:
 toolbar FOR EVENT toolbar OF cl_gui_alv_grid IMPORTING e_object
 e_interactive,
 user_command FOR EVENT user_command OF cl_gui_alv_grid IMPORTING
 e_ucomm.
 after_user_command FOR EVENT BEFORE_user_command OF cl_gui_alv_grid
 IMPORTING
 e_ucomm,
 handle_change_click
 FOR EVENT data_changed OF cl_gui_alv_grid IMPORTING
 er_data_changed.
 handle_change_click
 FOR EVENT data_changed OF cl_gui_alv_grid IMPORTING
 er_data_changed.
ENDCLASS.
 CLASS MYCLASS IMPLEMENTATION
CLASS myclass IMPLEMENTATION.
METHOD toolbar.
 DATA: ls_toolbar TYPE stb_button.
 CLEAR ls_toolbar.
 MOVE 3 TO ls_toolbar-butn_type.
 APPEND ls_toolbar TO e_object->mt_toolbar.
 CLEAR ls_toolbar.
 MOVE 'BACK' TO ls_toolbar-function.
 MOVE icon_previous_object TO ls_toolbar-icon.
 MOVE 'BACK' TO ls_toolbar-text.
 MOVE ' ' TO ls_toolbar-disabled.
 APPEND ls_toolbar TO e_object->mt_toolbar.
 CLEAR ls_toolbar.
 MOVE 'CLEA' TO ls_toolbar-function.
 MOVE icon_refresh TO ls_toolbar-icon.
 MOVE 'CLEAR' TO ls_toolbar-text.
 MOVE ' ' TO ls_toolbar-disabled.
 APPEND ls_toolbar TO e_object->mt_toolbar.
 CLEAR ls_toolbar.
 MOVE 'TEXT' TO ls_toolbar-function.
 MOVE icon_display TO ls_toolbar-icon.
 MOVE 'READ' TO ls_toolbar-text.
 MOVE ' ' TO ls_toolbar-disabled.
 APPEND ls_toolbar TO e_object->mt_toolbar.
 CLEAR ls_toolbar.
 MOVE 'INSERT' TO ls_toolbar-function.
 MOVE icon_display TO ls_toolbar-icon.
 MOVE 'INSERT' TO ls_toolbar-text.
 MOVE ' ' TO ls_toolbar-disabled.
 APPEND ls_toolbar TO e_object->mt_toolbar.
 CLEAR ls_toolbar.
 MOVE 'FCAT' TO ls_toolbar-function.
 MOVE icon_display TO ls_toolbar-icon.
 MOVE 'FCAT' TO ls_toolbar-text.
 MOVE ' ' TO ls_toolbar-disabled.
 APPEND ls_toolbar TO e_object->mt_toolbar.
ENDMETHOD.
METHOD after_user_command.
 CASE e_ucomm.
 WHEN '&LOCAL&INSERT_ROW'.
 PERFORM insert_data.
 ENDCASE.
ENDMETHOD.
METHOD user_command.
 CASE e_ucomm.
 WHEN 'BACK'.
 LEAVE PROGRAM.
 WHEN 'INSERT'.
 PERFORM insert_data.
 WHEN 'FCAT'.
 PERFORM fcat_change.
 ENDCASE.
ENDMETHOD.
METHOD handle_change_click.
 LOOP AT er_data_changed->mt_mod_cells INTO modi.
 rowid = modi-row_id.
 READ TABLE jtab INTO wjtab INDEX rowid.
WJTAB-VBELN = MODI-VALUE.
 MODIFY jtab FROM wjtab INDEX rowid.
 ENDLOOP.
ENDMETHOD.
ENDCLASS.
*& Module STATUS_0100 OUTPUT
MODULE status_0100 OUTPUT.
CASE sy-ucomm.
 WHEN 'EXIT'.
 LEAVE PROGRAM.
 WHEN 'DISPLAY'.
 SELECT vbeln erdat kunnr ernam netwr knumv bstnk ktext
 FROM vbak INTO CORRESPONDING FIELDS OF TABLE vjtab
 WHERE vbeln LT '0000000500'.
 PERFORM display1.
 WHEN 'EXIT'.
 LEAVE PROGRAM.
ENDCASE.
ENDMODULE. " STATUS_0100 OUTPUT
*& Form display1
FORM display1.
CREATE OBJECT obj_c_container_alv
 EXPORTING
 container_name = alv.
IF obj_grid IS INITIAL.
 CREATE OBJECT obj_grid
 EXPORTING
 i_parent = obj_c_container_alv.
 CREATE OBJECT obj_myclass.
 SET HANDLER obj_myclass->toolbar FOR obj_grid.
 SET HANDLER obj_myclass->user_command FOR obj_grid.
 SET HANDLER obj_myclass->handle_change_click FOR obj_grid.
 gs_layout-sel_mode = 'C'.
 gs_layout-cwidth_opt = 'X'.
 gs_layout-smalltitle = 'X'.
 gs_layout-grid_title = 'ALV TITLE'.
 gs_layout-no_headers = 'X'.
 gs_layout-stylefname = 'STYLETABLE'.
 gs_layout-no_hgridln = 'X'.
 gs_layout-no_vgridln = 'X'.
 gs_layout-NO_ROWMARK = 'X'.
 gs_layout-no_toolbar = 'X'.
 gs_layout-info_fname = 'ROWCOLOR'.
 gs_layout-ctab_fname = 'CELLCOLOR'.
 LOOP AT vjtab.
 jtab-vbeln = vjtab-vbeln.
 jtab-erdat = vjtab-erdat.
 jtab-kunnr = vjtab-kunnr.
 jtab-ernam = vjtab-ernam.
 jtab-netwr = vjtab-netwr.
 jtab-knumv = vjtab-knumv.
 jtab-bstnk = vjtab-bstnk.
 jtab-ktext = vjtab-ktext.
 APPEND jtab.
 CLEAR jtab.
 ENDLOOP.
 PERFORM build_fieldcat.
 PERFORM exclude_toolbaricons CHANGING it_exclude.
 PERFORM sort_table CHANGING it_sort.
 PERFORM filter_table CHANGING it_filt.
 PERFORM rowcolor.
 PERFORM colcolor.
 PERFORM drilldown_values.
 CALL METHOD obj_grid->set_table_for_first_display
 EXPORTING
 i_structure_name = 'JTAB'
 is_layout = gs_layout
 it_toolbar_excluding = it_exclude
 CHANGING
 it_outtab = jtab[]
 it_sort = it_sort
 it_filter = it_filt
 it_fieldcatalog = i_fieldcat.
ELSE .
 CALL METHOD obj_grid->refresh_table_display.
ENDIF.
ENDFORM. " display1
*& Form SAVE_DATA
FORM save_data.
ENDFORM. " SAVE_DATA
*& Form INSERT_DATA
FORM insert_data.
DATA:l_lines TYPE i.
REFRESH gi_index_rows.
CLEAR g_selected_row.
DATA ls_listrow LIKE LINE OF jtab .
CALL METHOD obj_grid->get_selected_rows
 IMPORTING
 et_index_rows = gi_index_rows.
READ TABLE gi_index_rows INTO g_selected_row INDEX 1.
ind = g_selected_row-index + 1.
INSERT INITIAL LINE INTO jtab INDEX ind.
READ TABLE jtab INDEX ind.
CLEAR ls_edit.
ls_edit-fieldname = 'VBELN'.
ls_edit-style = cl_gui_alv_grid=>mc_style_disabled.
INSERT ls_edit INTO TABLE lt_edit.
CLEAR ls_edit.
ls_edit-fieldname = 'ERDAT'.
ls_edit-style = cl_gui_alv_grid=>mc_style_enabled.
INSERT ls_edit INTO TABLE lt_edit.
CLEAR ls_edit.
ls_edit-fieldname = 'KUNNR'.
ls_edit-style = cl_gui_alv_grid=>mc_style_enabled.
INSERT ls_edit INTO TABLE lt_edit.
CLEAR ls_edit.
ls_edit-fieldname = 'ERNAM'.
ls_edit-style = cl_gui_alv_grid=>mc_style_enabled.
INSERT ls_edit INTO TABLE lt_edit.
CLEAR ls_edit.
ls_edit-fieldname = 'NETWR'.
ls_edit-style = cl_gui_alv_grid=>mc_style_enabled.
INSERT ls_edit INTO TABLE lt_edit.
CLEAR ls_edit.
ls_edit-fieldname = 'KNUMV'.
ls_edit-style = cl_gui_alv_grid=>mc_style_enabled.
INSERT ls_edit INTO TABLE lt_edit.
CLEAR ls_edit.
ls_edit-fieldname = 'BSTNK'.
ls_edit-style = cl_gui_alv_grid=>mc_style_enabled.
INSERT ls_edit INTO TABLE lt_edit.
CLEAR ls_edit.
ls_edit-fieldname = 'KTEXT'.
ls_edit-style = cl_gui_alv_grid=>mc_style_enabled.
INSERT ls_edit INTO TABLE lt_edit.
CLEAR : ls_outtab.
INSERT LINES OF lt_edit INTO TABLE ls_outtab-styletable.
MODIFY jtab INDEX ind FROM ls_outtab TRANSPORTING
 styletable .
CALL METHOD obj_grid->refresh_table_display.
GS_LAYOUT-STYLEFNAME = 'STYLETABLE'.
REFRESH : lt_edit.
ENDFORM. " INSERT_DATA
*& Form FCAT_CHANGE
FORM fcat_change.
DATA ls_fcat TYPE lvc_s_fcat .
DATA lt_fcat TYPE lvc_t_fcat .
DATA ls_layout TYPE lvc_s_layo .
CALL METHOD obj_grid->get_frontend_fieldcatalog
IMPORTING
et_fieldcatalog = lt_fcat[] .
LOOP AT lt_fcat INTO ls_fcat .
 IF ls_fcat-fieldname = 'ERNAM' .
 ls_fcat-coltext = 'MYNAME'.
 ls_fcat-no_out = 'X'.
 MODIFY lt_fcat FROM ls_fcat .
 ENDIF .
ENDLOOP .
CALL METHOD obj_grid->set_frontend_fieldcatalog
EXPORTING
it_fieldcatalog = lt_fcat[] .
CALL METHOD obj_grid->get_frontend_layout
IMPORTING
es_layout = ls_layout .
ls_layout-grid_title = 'Changed ALV Grid Title' .
ls_layout-zebra = 'X' .
CALL METHOD obj_grid->set_frontend_layout
EXPORTING
is_layout = ls_layout .
LOOP AT jtab.
 IF jtab-netwr > '400.00'.
 CLEAR ls_edit.
 ls_edit-fieldname = 'ERDAT'.
 ls_edit-style = cl_gui_alv_grid=>mc_style_disabled.
 INSERT ls_edit INTO TABLE lt_edit.
 CLEAR : ls_outtab.
 INSERT LINES OF lt_edit INTO TABLE ls_outtab-styletable.
 MODIFY jtab INDEX sy-tabix FROM ls_outtab TRANSPORTING
 styletable .
 ENDIF.
ENDLOOP.
LOOP AT jtab.
 IF jtab-netwr LE '400.00'.
 ejtab-vbeln = jtab-vbeln.
 ejtab-erdat = jtab-erdat.
 ejtab-kunnr = jtab-kunnr.
 ejtab-ernam = jtab-ernam.
 ejtab-netwr = jtab-netwr.
 ejtab-knumv = jtab-knumv.
 ejtab-bstnk = jtab-bstnk.
 ejtab-ktext = jtab-ktext.
 APPEND ejtab.
 CLEAR ejtab.
 ENDIF.
ENDLOOP.
PERFORM ebuild_fieldcat.
CALL METHOD obj_grid->set_table_for_first_display
 EXPORTING
 i_structure_name = 'EJTAB'
 is_layout = gs_layout
 it_toolbar_excluding = it_exclude
 CHANGING
 it_outtab = ejtab[]
 it_sort = it_sort
 it_filter = it_filt
 it_fieldcatalog = ei_fieldcat.
ENDFORM. " FCAT_CHANGE
*& Form exclude_toolbaricons
FORM exclude_toolbaricons CHANGING pt_exclude TYPE ui_functions.
DATA ls_exclude TYPE ui_func.
ls_exclude = cl_gui_alv_grid=>mc_fc_maximum .
APPEND ls_exclude TO pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_minimum .
APPEND ls_exclude TO pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_subtot .
APPEND ls_exclude TO pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_find .
APPEND ls_exclude TO pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_sum .
APPEND ls_exclude TO pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_average .
APPEND ls_exclude TO pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_mb_sum .
APPEND ls_exclude TO pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_mb_subtot.
APPEND ls_exclude TO pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_insert_row .
APPEND ls_exclude TO pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_delete_row .
APPEND ls_exclude TO pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_move_row .
APPEND ls_exclude TO pt_exclude.
ENDFORM. " exclude_toolbaricons
*& Form sort_table
FORM sort_table CHANGING pt_sort TYPE lvc_t_sort.
DATA ls_sort TYPE lvc_s_sort .
ls_sort-spos = '1' .
ls_sort-fieldname = 'VBELN' .
ls_sort-up = 'X' .
ls_sort-down = space .
APPEND ls_sort TO pt_sort .
ls_sort-spos = '2' .
ls_sort-fieldname = 'KUNNR' .
ls_sort-up = space .
ls_sort-down = 'X' .
APPEND ls_sort TO pt_sort .
ENDFORM. " sort_table
*& Form filter_table
FORM filter_table CHANGING pt_filt TYPE lvc_t_filt.
DATA ls_filt TYPE lvc_s_filt .
ls_filt-fieldname = 'VBELN' .
ls_filt-sign = 'E' .
ls_filt-option = 'BT' .
ls_filt-low = '0000000010' .
ls_filt-high = '0000000100' .
APPEND ls_filt TO pt_filt .
ENDFORM. " filter_table
*& Form ROWCOLOR
FORM rowcolor.
CLEAR wjtab.
LOOP AT jtab INTO wjtab.
 IF wjtab-netwr LE '400.00'.
 wjtab-rowcolor = 'C611'.
 ENDIF.
 MODIFY jtab FROM wjtab.
ENDLOOP.
ENDFORM. " ROWCOLOR
*& Form colcolor
FORM colcolor.
DATA ls_cellcolor TYPE lvc_s_scol .
CLEAR ls_cellcolor.
READ TABLE jtab INDEX 8 .
ls_cellcolor-fname = 'KUNNR' .
ls_cellcolor-color-col = '0' .
ls_cellcolor-color-int = '0' .
APPEND ls_cellcolor TO jtab-cellcolor .
MODIFY jtab INDEX 8 .
CLEAR ls_cellcolor.
READ TABLE jtab INDEX 13 .
ls_cellcolor-fname = 'NETWR' .
ls_cellcolor-color-col = '5' .
ls_cellcolor-color-int = '1' .
APPEND ls_cellcolor TO jtab-cellcolor .
MODIFY jtab INDEX 13 .
ENDFORM. " colcolor
*& Form DRILLDOWN_VALUES
FORM drilldown_values.
DATA lt_ddval TYPE lvc_t_drop .
DATA ls_ddval TYPE lvc_s_drop .
ls_ddval-handle = '1' .
ls_ddval-value = 'JFK-12' .
APPEND ls_ddval TO lt_ddval .
ls_ddval-handle = '1' .
ls_ddval-value = 'JSF-44' .
APPEND ls_ddval TO lt_ddval .
ls_ddval-handle = '1' .
ls_ddval-value = 'KMDA-53' .
APPEND ls_ddval TO lt_ddval .
ls_ddval-handle = '1' .
ls_ddval-value = 'SS3O/N' .
APPEND ls_ddval TO lt_ddval .
CALL METHOD obj_grid->set_drop_down_table
EXPORTING
it_drop_down = lt_ddval .
ENDFORM. " DRILLDOWN_VALUES
*& Form BUILD_FIELDCAT
 text
--> p1 text
<-- p2 text
FORM build_fieldcat.
CLEAR i_fieldcat[].
*CLEAR wa_fieldcat.
*wa_fieldcat-col_pos = 1.
*wa_fieldcat-fieldname = 'CH'.
**wa_fieldcat-tabname = 'JTAB'.
*wa_fieldcat-outputlen = '2'.
**wa_fieldcat-coltext = 'CHECKBOX'.
*wa_fieldcat-checkbox = 'X'.
*wa_fieldcat-edit = 'X'.
*APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = 2.
wa_fieldcat-fieldname = 'VBELN'.
wa_fieldcat-tabname = 'JTAB'.
*wa_fieldcat-outputlen = '10'.
wa_fieldcat-coltext = 'SALES ORDER'.
*wa_fieldcat-CHECKBOX = 'X'.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = 4.
wa_fieldcat-fieldname = 'KUNNR'.
wa_fieldcat-tabname = 'JTAB'.
wa_fieldcat-outputlen = '20'.
wa_fieldcat-coltext = 'CUSTOMER NO'.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = 3.
wa_fieldcat-fieldname = 'ERDAT'.
wa_fieldcat-tabname = 'JTAB'.
*wa_fieldcat-outputlen = '8'.
wa_fieldcat-coltext = 'DATE'.
wa_fieldcat-edit = 'X'.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = 5.
wa_fieldcat-fieldname = 'ERNAM'.
wa_fieldcat-tabname = 'JTAB'.
*wa_fieldcat-outputlen = '12'.
wa_fieldcat-coltext = 'NAME'.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = 6.
wa_fieldcat-fieldname = 'NETWR'.
wa_fieldcat-tabname = 'JTAB'.
*wa_fieldcat-outputlen = '15'.
wa_fieldcat-coltext = 'NET WEIGHT'.
wa_fieldcat-edit = 'X'.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = 7.
wa_fieldcat-fieldname = 'KNUMV'.
wa_fieldcat-tabname = 'JTAB'.
*wa_fieldcat-outputlen = '10'.
wa_fieldcat-coltext = 'DOC COND'.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = 8.
wa_fieldcat-fieldname = 'BSTNK'.
wa_fieldcat-tabname = 'JTAB'.
*wa_fieldcat-outputlen = '20'.
wa_fieldcat-coltext = 'CUST PO'.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = 9.
wa_fieldcat-fieldname = 'KTEXT'.
wa_fieldcat-tabname = 'JTAB'.
*wa_fieldcat-outputlen = '40'.
wa_fieldcat-coltext = 'SEARCH TERM FOR PRODUCT PROPOSAL'.
wa_fieldcat-edit = 'X'.
wa_fieldcat-drdn_field = 'PTYP_DD_HNDL'.
APPEND wa_fieldcat TO i_fieldcat.
ENDFORM. " BUILD_FIELDCAT
*& Form ebuild_fieldcat
 text
--> p1 text
<-- p2 text
FORM ebuild_fieldcat.
CLEAR ei_fieldcat[].
CLEAR ewa_fieldcat.
ewa_fieldcat-col_pos = 1.
ewa_fieldcat-fieldname = 'CH'.
*ewa_fieldcat-tabname = 'JTAB'.
ewa_fieldcat-outputlen = '2'.
*ewa_fieldcat-coltext = 'CHECKBOX'.
ewa_fieldcat-checkbox = 'X'.
ewa_fieldcat-edit = 'X'.
APPEND ewa_fieldcat TO ei_fieldcat.
CLEAR ewa_fieldcat.
ewa_fieldcat-col_pos = 2.
ewa_fieldcat-fieldname = 'VBELN'.
ewa_fieldcat-tabname = 'JTAB'.
*ewa_fieldcat-outputlen = '10'.
ewa_fieldcat-coltext = 'SALES ORDER'.
*ewa_fieldcat-CHECKBOX = 'X'.
APPEND ewa_fieldcat TO ei_fieldcat.
CLEAR ewa_fieldcat.
ewa_fieldcat-col_pos = 4.
ewa_fieldcat-fieldname = 'KUNNR'.
ewa_fieldcat-tabname = 'JTAB'.
ewa_fieldcat-outputlen = '20'.
ewa_fieldcat-coltext = 'CUSTOMER NO'.
APPEND ewa_fieldcat TO ei_fieldcat.
CLEAR ewa_fieldcat.
ewa_fieldcat-col_pos = 3.
ewa_fieldcat-fieldname = 'ERDAT'.
ewa_fieldcat-tabname = 'JTAB'.
*ewa_fieldcat-outputlen = '8'.
ewa_fieldcat-coltext = 'DATE'.
ewa_fieldcat-edit = 'X'.
APPEND ewa_fieldcat TO ei_fieldcat.
CLEAR ewa_fieldcat.
ewa_fieldcat-col_pos = 5.
ewa_fieldcat-fieldname = 'ERNAM'.
ewa_fieldcat-tabname = 'JTAB'.
*ewa_fieldcat-outputlen = '12'.
ewa_fieldcat-coltext = 'NAME'.
ewa_fieldcat-edit = 'X'.
APPEND ewa_fieldcat TO ei_fieldcat.
CLEAR ewa_fieldcat.
ewa_fieldcat-col_pos = 6.
ewa_fieldcat-fieldname = 'NETWR'.
ewa_fieldcat-tabname = 'JTAB'.
*ewa_fieldcat-outputlen = '15'.
ewa_fieldcat-coltext = 'NET WEIGHT'.
ewa_fieldcat-edit = 'X'.
APPEND ewa_fieldcat TO ei_fieldcat.
CLEAR ewa_fieldcat.
ewa_fieldcat-col_pos = 7.
ewa_fieldcat-fieldname = 'KNUMV'.
ewa_fieldcat-tabname = 'JTAB'.
*ewa_fieldcat-outputlen = '10'.
ewa_fieldcat-coltext = 'DOC COND'.
ewa_fieldcat-edit = 'X'.
APPEND ewa_fieldcat TO ei_fieldcat.
CLEAR ewa_fieldcat.
ewa_fieldcat-col_pos = 8.
ewa_fieldcat-fieldname = 'BSTNK'.
ewa_fieldcat-tabname = 'JTAB'.
*ewa_fieldcat-outputlen = '20'.
ewa_fieldcat-coltext = 'CUST PO'.
APPEND ewa_fieldcat TO ei_fieldcat.
CLEAR ewa_fieldcat.
ewa_fieldcat-col_pos = 9.
ewa_fieldcat-fieldname = 'KTEXT'.
ewa_fieldcat-tabname = 'JTAB'.
*ewa_fieldcat-outputlen = '40'.
ewa_fieldcat-coltext = 'SEARCH TERM FOR PRODUCT PROPOSAL'.
ewa_fieldcat-edit = 'X'.
ewa_fieldcat-drdn_field = 'PTYP_DD_HNDL'.
APPEND ewa_fieldcat TO ei_fieldcat.
ENDFORM. " ebuild_fieldcat

List header for alv grid using abap objects

Hai all,
I have displayed alv grid in container control using abap objects i.e. using method set_table_for_first_display.
now i need to display list header for this alv grid.
please help me how to create with a sample coding.
Thanks and regards,
Prabu S.

Create a splitter using CL_GUI_EASY_SPLITTER_CONTAINER with a top and bottom half. Put the alv grid in the bottom half. Use cl_dd_document (documented in help.sap.com ) to build the header in the top half. Use events on CL_GUI_ALV_GRID to handle the top-of-list printing.
Or, if available, use CL_SALV_TABLE, and read the documentation on that. When I needed a header for my report, that's what I did. There's plenty of good documentation about if you'll search for it.
matt

ALV grid using classes(displaying subtotals groupwise in ALV grid control)

Hello ,
please can any body help me its urgent tome.
displaying subtotals groupwise ..say for ex..
cost group costelement amount
10 101 100.00
10 102 200.00
10 103 300.00
20 104 400.00
20 105 500.00
20 106 600.00
 101 100.00
 102 200.00
 103 300.00
10 600.00
 104 400.00
 105 500.00
 106 600.00
20 1500.00
In ALV grid control using classes.
Thanks in Advance

Hi alson,
MODULE pbo OUTPUT.
SET PF-STATUS 'MAIN100'.
IF g_custom_container IS INITIAL.
CREATE OBJECT g_custom_container
EXPORTING container_name = g_container.
CREATE OBJECT grid1
EXPORTING i_parent = g_custom_container.
CALL METHOD grid1->set_table_for_first_display
EXPORTING IS_LAYOUT = it_LAY
CHANGING it_fieldcatalog = fieldcat
it_sort = it_sort
it_outtab = itab[].
ENDIF.
ENDMODULE. " PBO OUTPUT
keep the below code
CALL METHOD grid1->set_table_for_first_display
EXPORTING IS_LAYOUT = it_LAY
CHANGING it_fieldcatalog = fieldcat
it_sort = it_sort
it_outtab = itab[].
here
IF pdel = 'X'.
*BEGIN OF CHANGES BY VINAY DASARI
PERFORM get_data.
CALL METHOD grid1->set_table_for_first_display
EXPORTING IS_LAYOUT = it_LAY
CHANGING it_fieldcatalog = fieldcat
it_sort = it_sort
it_outtab = itab[].
ENDIF.

Selecting rows in ALV Grid using Classes

I am displaying the output in ALV grid format.
Now i am using cl_gui_alv_grid->Get_selected_ROWS to get the row index selected by User and on clicking a button it will take us to another screen which will hold the values of the selected row.
Problem Faced: But when we again go back to the first screen and select another row or same rows and click this button the selected rows index remains initial, that value is not getting captured.
I cleared the parameters and refershed grid also.
But the problem is not yet solved.
Please Give me the solution.
Regards,
Balaji.

Hi Lavanya,
I did debugging also.
First time Get_Selected_rows is working fine.
But Second time it is failed.

Refreshing of ALV Grid(using class)

Hi all,
In my program, i found that the ALV grid is displaying the same data for different criteria's. when debugging i found that the data is populated correctly in the output table that is passed to the method SET_TABLE_FOR_FIRST_DISPLAY according to the criteria's, yet i could only see the grid with the previous data.Please suggest on what could be done to correct this.
Thanks,
saran

Hi Saran,
There is a lifetime attribute that you have to set .
Set this when you create object container at the first time .
Here is the sample syntax :
Variable definition
DATA: grid_pr1 TYPE REF TO cl_gui_alv_grid,
      g_cconth TYPE REF TO cl_gui_custom_container,
      gs_layout2 TYPE lvc_s_layo,
      it_alv TYPE lvc_t_fcat .
DATA: it_pr1 type table of ZP119H. " custom structure
Create the object
IF g_cconth is INITIAL.
    CREATE OBJECT g_cconth
       EXPORTING
          container_name = 'CCONTH'
          lifetime = g_cconth->lifetime_dynpro.
    CREATE OBJECT grid_pr1
       EXPORTING
         i_parent = g_cconth .
    CALL METHOD grid_pr1->set_table_for_first_display
      EXPORTING
        is_layout            = gs_layout2
      CHANGING
        it_outtab            = it_pr1
        it_fieldcatalog      = it_alv.
ENDIF. " g_cconth
Message was edited by:
        TUWUHSIH WINEDYA

Changing Values on ALV Grid (using Classes)

Hi all,
 I have ALV Grid output, on which ZMENG (Target Qty) column is editable. So user will enter in value in ZMENG column and press ENTER. Then TOTAL column should be populated with ZMENG * NETWR columns. I have tried with changing/ entering values with char data type columns like MAKTX etc.. Its working fine with them. But when I entered in value in ZMENG, the actual value which I have entered is not flowing into LS_GOOD-VALUE. For char data types its been populated with user entered values.
 Can anyone please tell why its not happening with Quantity or Currency fields.
method handle_data_changed.
 DATA: ls_good TYPE lvc_s_modi,
 l_netwr TYPE vbap-netwr,
 l_total TYPE vbap-netwr,
 l_zmeng TYPE vbap-zmeng.
 LOOP AT er_data_changed->mt_good_cells INTO ls_good.
 CASE ls_good-fieldname.
 WHEN 'ZMENG'.
 <<<<l_zmeng = ls_good-value.>>>>
 call method er_data_changed->get_cell_value
 exporting i_row_id = ls_good-row_id
 i_fieldname = 'NETWR'
 importing e_value = l_netwr.
 l_total = l_zmeng * l_netwr.
 call method er_data_changed->modify_cell
 exporting i_row_id = ls_good-row_id
 i_fieldname = 'TOTAL'
 i_value = l_total.
 ENDCASE.
ENDLOOP.
ENDMETHOD.
Fieldcatlog for Quantity field:
l_fcat-tabname = 'IT_VBAP'.
l_fcat-fieldname = 'ZMENG'.
l_fcat-coltext = 'Qty'.
l_fcat-outputlen = 17.
l_fcat-edit = 'X'.
APPEND l_fcat TO ct_fcat.
CLEAR l_fcat.

Hi Jaker
Try calling cl_gui_alv_Grid->refresh_table_display.
refresh table display when ever the qty is changed.
It should work.
Venkat.

&RNT_PREV ( ALV GRID USING Classes )

Hi,
I am using the above function code to display print preview . I am able to display that successfully, but the 'Question' I have here is Can i customize the Print Preview.
For Example if i have 10 rows in the Data and i select a Few rows and display only those rows in Print Preview.
Please suggest.
Thanks in Advance.
Tarun

Yes
You can look at the code post by this SDN user and study it.
http://forums.sdn.sap.com/post!reply.jspa?messageID=10986911

Abt alv grid using classes for tree structure

hi to all,
please giv me reply asap.
thanks n regards
satya

Hi,
Please check the link below :
<a href="http://www.sapdev.co.uk/reporting/alv/alvtree.htm">http://www.sapdev.co.uk/reporting/alv/alvtree.htm</a>
Thanks,
Sriram Ponna.

ALV grid using oops concepts

HI all,
 Is it necessary to use container for ALV grid using classes.If not then please help me with a sample code.

REPORT z_alv_using_oops_conepts MESSAGE-ID z_OOPS.
TABLES: ekko, ekpo.
CLASS lcl_event_receiver DEFINITION DEFERRED.
DATA: ok_code TYPE sy-ucomm,
 gx_fcat1 TYPE lvc_s_fcat,
 gt_fcat1 TYPE STANDARD TABLE OF lvc_s_fcat,
 gx_fcat2 TYPE lvc_s_fcat,
 gt_fcat2 TYPE STANDARD TABLE OF lvc_s_fcat,
 gx_layout1 TYPE lvc_s_layo,
 gx_layout2 TYPE lvc_s_layo,
 gx_variant TYPE disvariant,
 g_custom_container1 TYPE REF TO cl_gui_custom_container,
 g_custom_container2 TYPE REF TO cl_gui_custom_container,
 grid1 TYPE REF TO cl_gui_alv_grid,
 grid2 TYPE REF TO cl_gui_alv_grid,
 g_container1 TYPE scrfname VALUE 'MAIN_REPORT_LIST',
 g_container2 TYPE scrfname VALUE 'SECOND_REPORT_LIST',
 gv_event_rec1 TYPE REF TO lcl_event_receiver,
 gv_event_rec2 TYPE REF TO lcl_event_receiver,
 gv_repid TYPE sy-repid,
 gt_final1 TYPE STANDARD TABLE OF ekko,
 gt_final2 TYPE STANDARD TABLE OF ekpo,
 gt_final3 TYPE STANDARD TABLE OF ekpo,
 gx_final TYPE ekko,
 gx_final1 TYPE ekpo.
INITIALIZATION.
SELECTION-SCREEN *
SELECTION-SCREEN BEGIN OF BLOCK blk3 WITH FRAME .
SELECT-OPTIONS:
 s_ebeln FOR ekko-ebeln obligatory,
 s_ebelp FOR ekpo-ebelp,
 s_bukrs FOR ekko-bukrs,
 s_bsart FOR ekko-bsart.
SELECTION-SCREEN END OF BLOCK blk3.
LOCAL CLASSES: Definition
*===============================================================
class lcl_event_receiver: local class to
 define and handle own functions.
Definition:
~~~~~~~~~~~
CLASS lcl_event_receiver DEFINITION.
PUBLIC SECTION.
 METHODS:
 hotspot_click1
 FOR EVENT hotspot_click OF cl_gui_alv_grid
 IMPORTING e_row_id
 e_column_id,
 hotspot_click2
 FOR EVENT hotspot_click OF cl_gui_alv_grid
 IMPORTING e_row_id
 e_column_id.
PRIVATE SECTION.
ENDCLASS. "lcl_event_receiver DEFINITION
 CLASS lcl_event_receiver IMPLEMENTATION
CLASS lcl_event_receiver IMPLEMENTATION.
METHOD hotspot_click1.
 DATA: lv_tabix TYPE sy-tabix,
 lx_final TYPE ekko.
 READ TABLE gt_final1 INTO gx_final INDEX e_row_id.
 IF sy-subrc = 0.
 gt_final3 = gt_final2.
 DELETE gt_final3 WHERE ebeln NE gx_final-ebeln.
 IF NOT g_custom_container2 IS INITIAL.
 CALL METHOD grid2->refresh_table_display.
 CALL METHOD grid1->refresh_table_display.
 ENDIF.
 ELSE.
 MESSAGE s000 WITH text-003.
 LEAVE LIST-PROCESSING.
 ENDIF.
ENDMETHOD. "hotspot_click1
METHOD hotspot_click2.
 READ TABLE gt_final3 INTO gx_final1 INDEX e_row_id.
 IF sy-subrc = 0.
 SET PARAMETER ID 'BES' FIELD gx_final-ebeln.
 CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN.
 ENDIF.
ENDMETHOD. "button_click1
ENDCLASS. "lcl_event_receiver IMPLEMENTATION
START-OF-SELECTION *
START-OF-SELECTION.
SELECT * FROM ekko INTO TABLE gt_final1 WHERE ebeln IN s_ebeln
 AND bukrs IN s_bukrs
 AND bsart IN s_bsart.
IF sy-subrc = 0.
 SELECT * FROM ekpo INTO TABLE gt_final2 FOR ALL ENTRIES IN gt_final1
 WHERE ebeln = gt_final1-ebeln
 AND ebelp IN s_ebelp.
 IF sy-subrc = 0.
 gt_final3 = gt_final2.
 ENDIF.
ENDIF.
PERFORM sub_get_fieldcat CHANGING gt_fcat1.
PERFORM sub_get_fieldcat CHANGING gt_fcat2.
END-OF-SELECTION *
END-OF-SELECTION.
PERFORM display_process.
CALL SCREEN 9000.
MODULE pbo OUTPUT
MODULE pbo OUTPUT.
SET PF-STATUS 'MAIN100'.
gx_layout1-grid_title = 'Purchase Order Header'.
gx_layout1-zebra = 'X'.
gx_layout1-info_fname = 'COLOR_LINE'.
gx_layout1-sel_mode = 'X'.
gx_layout2-grid_title = 'Purchase Order Items'.
gx_layout2-zebra = 'X'.
gx_layout1-stylefname = 'CB'.
gs_layout1-excp_led = gc_check.
gs_layout1-excp_group = gc_check.
gv_repid = sy-repid.
gx_variant-report = gv_repid.
READ TABLE gt_final1 INTO gx_final INDEX 1.
IF sy-subrc = 0.
 DELETE gt_final3 WHERE ebeln NE gx_final-ebeln.
ENDIF.
IF g_custom_container1 IS INITIAL.
 CREATE OBJECT g_custom_container1
 EXPORTING
 container_name = g_container1.
 CREATE OBJECT grid1
 EXPORTING
 i_parent = g_custom_container1.
 CALL METHOD grid1->set_table_for_first_display
 EXPORTING
 is_layout = gx_layout1
 is_variant = gx_variant
 i_save = 'U'
 i_default = 'X'
 i_structure_name = 'EKKO'
 CHANGING
 it_outtab = gt_final1
 it_fieldcatalog = gt_fcat1.
 CALL METHOD cl_gui_control=>set_focus
 EXPORTING
 control = grid1.
ENDIF.
IF g_custom_container2 IS INITIAL.
 CREATE OBJECT g_custom_container2
 EXPORTING
 container_name = g_container2.
 CREATE OBJECT grid2
 EXPORTING
 i_parent = g_custom_container2.
 CALL METHOD grid2->set_table_for_first_display
 EXPORTING
 is_layout = gx_layout2
 is_variant = gx_variant
 i_save = 'U'
 i_default = 'X'
 i_structure_name = 'EKPO'
 CHANGING
 it_outtab = gt_final3
 it_fieldcatalog = gt_fcat2.
 CALL METHOD cl_gui_control=>set_focus
 EXPORTING
 control = grid2.
ENDIF.
CREATE OBJECT gv_event_rec1.
SET HANDLER gv_event_rec1->hotspot_click1 FOR grid1.
CREATE OBJECT gv_event_rec2.
SET HANDLER gv_event_rec1->hotspot_click2 FOR grid2.
IF gt_final2 IS INITIAL.
 MESSAGE i000 WITH 'No Items exist for the Purchase Order'.
ENDIF.
ENDMODULE. "PBO OUTPUT
 MODULE PAI INPUT *
MODULE pai INPUT.
To react on oi_custom_events:
CALL METHOD cl_gui_cfw=>dispatch.
CASE ok_code.
 WHEN 'EXIT'.
 PERFORM exit_program.
 LEAVE PROGRAM.
 WHEN 'BACK'.
 LEAVE TO SCREEN 0.
 WHEN 'CANCEL'.
 LEAVE TO SCREEN 0.
ENDCASE.
CLEAR ok_code.
ENDMODULE. "PAI INPUT
 FORM EXIT_PROGRAM *
FORM exit_program.
CALL METHOD grid1->free.
CALL METHOD grid2->free.
CALL METHOD cl_gui_cfw=>flush.
IF sy-subrc NE 0.
 CALL FUNCTION 'POPUP_TO_INFORM'
 EXPORTING
 titel = gv_repid
 txt2 = sy-subrc
 txt1 = 'Error in Flush'(009).
ENDIF.
ENDFORM. "EXIT_PROGRAM
*& Form display_process
 text
--> p1 text
<-- p2 text
FORM display_process .
DATA: a LIKE sy-ucomm.
DO 100 TIMES.
 DO 300 TIMES.
 GET TIME.
 ENDDO.
 a(3) = sy-index.a+3 = '%'.
 CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
 EXPORTING
 percentage = sy-index
 text = a.
ENDDO.
ENDFORM. " display_process
*& Form sub_get_fieldcat
 text
 <--P_GT_FCAT1 text
FORM sub_get_fieldcat CHANGING lt_fcat TYPE lvc_t_fcat.
gx_fcat1-fieldname = 'EBELN'.
gx_fcat1-tabname = 'gt_final1'.
gx_fcat1-hotspot = 'X'.
APPEND gx_fcat1 TO lt_fcat.
ENDFORM. " sub_get_fieldcat

Error whil adding Header to the ALV grid using OO

Hi Guys,
 I want to display the Header for the ALV grid using Splitter .
when i am doing like that .I am getting a screen on the top of that screen I am getting a EMPTY screen .I don't know why likat.
What i need is just to display a Grid with header?Can anybody Please help me reagarding this problem.
the Code is Below.
*& Report Z_TEST_PGM
REPORT Z_TEST_PGM NO STANDARD PAGE HEADING
 LINE-SIZE 120 MESSAGE-ID zotc.
Tables : CKMLMV003 , CKMLMV001.
TYPE-POOLS: slis.
Types : Begin of t_CKMLMV003_out,
 WERKS type CKMLMV003-WERKS,
 MATNR type CKMLMV003-MATNR,
 MISCH_VERH type CKMLMV003-MISCH_VERH,
 KALNR_BAL type CKMLMV003-KALNR_BAL,
 GJAHR type CKMLMV003-GJAHR,
 PERIO type CKMLMV003-PERIO,
 MGTYP type CKMLMV003-MGTYP,
 End of t_CKMLMV003_out,
 Begin of t_CKMLMV001_out,
 MATNR type CKMLMV001-MATNR,
 KALNR type CKMLMV001-KALNR,
 LIFNR_ND type CKMLMV001-LIFNR_ND,
 EKORG_ND type CKMLMV001-EKORG_ND,
 End of t_CKMLMV001_out,
 Begin of t_CKMLMV003_Temp,
 MATNR type CKMLMV003-MATNR,
 GJAHR type CKMLMV003-GJAHR,
 PERIO type CKMLMV003-PERIO,
 End of t_CKMLMV003_Temp,
 Begin of t_Final_out,
 MATNR type CKMLMV003-MATNR,
 GJAHR type CKMLMV003-GJAHR,
 PERIO type CKMLMV003-PERIO,
 WERKS type CKMLMV003-WERKS,
 LIFNR_ND1 type CKMLMV001-LIFNR_ND,
 MISCH_VERH1 type CKMLMV003-MISCH_VERH,
 LIFNR_ND2 type CKMLMV001-LIFNR_ND,
 MISCH_VERH2 type CKMLMV003-MISCH_VERH,
 LIFNR_ND3 type CKMLMV001-LIFNR_ND,
 MISCH_VERH3 type CKMLMV003-MISCH_VERH,
 LIFNR_ND4 type CKMLMV001-LIFNR_ND,
 MISCH_VERH4 type CKMLMV003-MISCH_VERH,
 LIFNR_ND5 type CKMLMV001-LIFNR_ND,
 MISCH_VERH5 type CKMLMV003-MISCH_VERH,
 LIFNR_ND6 type CKMLMV001-LIFNR_ND,
 MISCH_VERH6 type CKMLMV003-MISCH_VERH,
 LIFNR_ND7 type CKMLMV001-LIFNR_ND,
 MISCH_VERH7 type CKMLMV003-MISCH_VERH,
 LIFNR_ND8 type CKMLMV001-LIFNR_ND,
 MISCH_VERH8 type CKMLMV003-MISCH_VERH,
 LIFNR_ND9 type CKMLMV001-LIFNR_ND,
 MISCH_VERH9 type CKMLMV003-MISCH_VERH,
 LIFNR_ND10 type CKMLMV001-LIFNR_ND,
 MISCH_VERH10 type CKMLMV003-MISCH_VERH,
 LIFNR_ND11 type CKMLMV001-LIFNR_ND,
 MISCH_VERH11 type CKMLMV003-MISCH_VERH,
 LIFNR_ND12 type CKMLMV001-LIFNR_ND,
 MISCH_VERH12 type CKMLMV003-MISCH_VERH,
 LIFNR_ND13 type CKMLMV001-LIFNR_ND,
 MISCH_VERH13 type CKMLMV003-MISCH_VERH,
 End of t_Final_out,
 Begin of t_Final_out1,
 MATNR type CKMLMV003-MATNR,
 GJAHR type CKMLMV003-GJAHR,
 PERIO type CKMLMV003-PERIO,
 LIFNR_ND1 type CKMLMV001-LIFNR_ND,
 MISCH_VERH1 type CKMLMV003-MISCH_VERH,
 LIFNR_ND2 type CKMLMV001-LIFNR_ND,
 MISCH_VERH2 type CKMLMV003-MISCH_VERH,
 LIFNR_ND3 type CKMLMV001-LIFNR_ND,
 MISCH_VERH3 type CKMLMV003-MISCH_VERH,
 LIFNR_ND4 type CKMLMV001-LIFNR_ND,
 MISCH_VERH4 type CKMLMV003-MISCH_VERH,
 LIFNR_ND5 type CKMLMV001-LIFNR_ND,
 MISCH_VERH5 type CKMLMV003-MISCH_VERH,
 LIFNR_ND6 type CKMLMV001-LIFNR_ND,
 MISCH_VERH6 type CKMLMV003-MISCH_VERH,
 LIFNR_ND7 type CKMLMV001-LIFNR_ND,
 MISCH_VERH7 type CKMLMV003-MISCH_VERH,
 LIFNR_ND8 type CKMLMV001-LIFNR_ND,
 MISCH_VERH8 type CKMLMV003-MISCH_VERH,
 LIFNR_ND9 type CKMLMV001-LIFNR_ND,
 MISCH_VERH9 type CKMLMV003-MISCH_VERH,
 LIFNR_ND10 type CKMLMV001-LIFNR_ND,
 MISCH_VERH10 type CKMLMV003-MISCH_VERH,
 LIFNR_ND11 type CKMLMV001-LIFNR_ND,
 MISCH_VERH11 type CKMLMV003-MISCH_VERH,
 LIFNR_ND12 type CKMLMV001-LIFNR_ND,
 MISCH_VERH12 type CKMLMV003-MISCH_VERH,
 LIFNR_ND13 type CKMLMV001-LIFNR_ND,
 MISCH_VERH13 type CKMLMV003-MISCH_VERH,
 End of t_Final_out1.
 Global Structures *
Data : i_CKMLMV003_str type t_CKMLMV003_out,
 i_CKMLMV001_str type t_CKMLMV001_out,
 i_Final_str type t_Final_out,
 i_Final_str1 type t_Final_out,
 i_CKMLMV003_Temp type t_CKMLMV003_Temp.
 Global Internal Tables *
Data : i_CKMLMV003_out type standard table of t_CKMLMV003_out,
 i_CKMLMV001_out type standard table of t_CKMLMV001_out,
 i_Final_out type standard table of t_Final_out,
 i_Final_out1 type standard table of t_Final_out.
ALV Report Internal tables *
DATA : t_fieldcatalog TYPE slis_t_fieldcat_alv,
 s_fieldcatalog TYPE slis_fieldcat_alv,
 t_basic_fieldcatalog TYPE slis_t_fieldcat_alv,
 s_basic_fieldcatalog TYPE slis_fieldcat_alv,
 t_sort TYPE slis_t_sortinfo_alv,
 v_repid TYPE sy-repid.
*ALV Header declarations
Data: t_header type slis_t_listheader,
 i_header_str type slis_listheader,
 i_line_event_str TYPE slis_alv_event,
 i_events TYPE slis_t_event,
 wa_layout type slis_layout_alv.
Data : grid1 type ref to cl_gui_alv_grid,
 g_custom_container1 type ref to cl_gui_custom_container,
 grid2 type ref to cl_gui_alv_grid,
 g_custom_container2 type ref to cl_gui_custom_container,
 i_FCAT TYPE LVC_T_FCAT,
 i_FCAT_str type lvc_s_fcat,
Structure for layout
 i_layout_s TYPE lvc_s_layo,
 gt_final1 type table of t_Final_out.
DATA: CCCONTAINER1 TYPE SCRFNAME VALUE 'CCCONTAINER1',
 CCCONTAINER2 TYPE SCRFNAME VALUE 'CCCONTAINER2',
 G_PARENT_TOP TYPE REF TO CL_GUI_CONTAINER ,
 G_SPLITTER TYPE REF TO CL_GUI_SPLITTER_CONTAINER,
 G_DYNDOC_ID TYPE REF TO CL_DD_DOCUMENT,
 G_PARENT_GRID TYPE REF TO CL_GUI_CONTAINER.
 Global Variables *
Data :cnt(4) type n value '0',
 g_plant type CKMLMV003-WERKS ,
 g_QuanTStr type CKMLMV003-MGTYP ,
 g_PurchOrg type CKMLMV001-EKORG_ND,
 flag type n value '0',
 g_cnt6 type n value '0',
 g_cnt7 type n value '0',
 g_cnt8 type n value '0',
 g_cnt9 type n value '0',
 g_cnt10 type n value '0',
 g_cnt11 type n value '0',
 g_cnt12 type n value '0',
 g_cnt13 type n value '0'.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-011.
SELECTION-SCREEN: BEGIN OF LINE.
SELECTION-SCREEN COMMENT 2(20) TEXT-006 for field s_matnr.
Select-Options : S_MATNR for CKMLMV003-MATNR .
SELECTION-SCREEN: END OF LINE.
SELECTION-SCREEN: BEGIN OF LINE.
SELECTION-SCREEN COMMENT 2(20) TEXT-007 for field S_WERKS.
SELECT-OPTIONS:S_WERKS for CKMLMV003-WERKS Default '2003'.
SELECTION-SCREEN: END OF LINE.
SELECTION-SCREEN: BEGIN OF LINE.
SELECTION-SCREEN COMMENT 2(20) TEXT-008 for field S_GJAHR.
SELECT-OPTIONS:S_GJAHR for CKMLMv003-GJAHR default Sy-DATUM(4) .
SELECTION-SCREEN: END OF LINE.
SELECTION-SCREEN: BEGIN OF LINE.
SELECTION-SCREEN COMMENT 2(20) TEXT-009 for field S_PERIO.
SELECT-OPTIONS:S_PERIO for CKMLMV003-PERIO .
SELECTION-SCREEN: END OF LINE.
SELECTION-SCREEN: BEGIN OF LINE.
SELECTION-SCREEN COMMENT 2(25) TEXT-010 for field P_MGTYP.
Parameters : P_MGTYP type CKMLMV003-MGTYP .
SELECTION-SCREEN: END OF LINE.
SELECTION-SCREEN END OF BLOCK b1 .
At Selection-Screen on s_matnr .
Perform Validate_MatNumber.
At Selection-Screen on s_werks .
Perform Validate_CostingPlant.
At Selection-Screen on s_GJAHR .
Perform Validate_FiscalYear.
At Selection-Screen on s_PERIO .
Perform Validate_Period.
At Selection-Screen on p_MGTYP .
Perform Validate_QuantityStrType.
*& Form Validate_MatNumber
 text
Form Validate_MatNumber.
DATA l_MATNR TYPE CKMLMV003-MATNR.
IF NOT S_MATNR[] IS INITIAL .
 CLEAR L_MATNR.
 SELECT single MATNR FROM CKMLMV003
 INTO l_MATNR
 WHERE MATNR = s_MATNR-LOW or MATNR = s_MATNR-HIGH.
 ENDSELECT.
 IF sy-subrc NE 0.
 MESSAGE e999 WITH
 'Enter a Valid Material Number'(001).
 ENDIF.
ENDIF.
ENDFORM. "Validate_MatNumber
*& Form Validate_CostingPlant
 text
Form Validate_CostingPlant.
DATA l_werks TYPE CKMLMV003-WERKS.
IF NOT S_WERKS[] IS INITIAL .
 CLEAR L_WERKS.
 SELECT single WERKS FROM T001W
 INTO l_WERKS
 WHERE WERKS = s_WERKS-low or WERKS = s_WERKS-high.
 ENDSELECT.
 IF sy-subrc NE 0.
 MESSAGE e999 WITH
 'Enter a Valid Costing Plant'(002).
 ENDIF.
ENDIF.
ENDFORM. "Validate_CostingPlant
*& Form Validate_FiscalYear
 text
Form Validate_FiscalYear.
DATA l_GJAHR TYPE CKMLMV003-GJAHR.
IF NOT S_GJAHR-low IS INITIAL or S_GJAHR-high IS INITIAL.
 CLEAR L_GJAHR.
 SELECT SINGLE GJAHR FROM CKMLMV003
 INTO l_GJAHR
 WHERE GJAHR LE sy-DATUM(4) .
 IF NOT S_GJAHR-low LE sy-DATUM(4) or S_GJAHR-high LE sy-DATUM(4).
 MESSAGE e999 WITH
 'Enter a Valid Fiscal year'(003).
 ENDIF.
ENDIF.
ENDFORM. "Validate_FiscalYear
*& Form Validate_Period
 text
Form Validate_Period.
DATA l_PERIO TYPE CKMLMV003-PERIO.
IF NOT S_PERIO[] IS INITIAL .
 CLEAR L_PERIO.
 SELECT single PERIO FROM CKMLMV003
 INTO l_PERIO
 WHERE PERIO GE 1 and PERIO LE 12 .
 ENDSELECT.
 IF sy-subrc NE 0.
 MESSAGE e999 WITH
 'Enter a Valid Period'(004).
 ENDIF.
ENDIF.
ENDFORM. "Validate_Period
*& Form Validate_QuantityStrType
 text
Form Validate_QuantityStrType.
DATA l_MGTYP TYPE CKMLMV003-MGTYP.
IF NOT p_MGTYP IS INITIAL.
 CLEAR L_MGTYP.
 SELECT SINGLE MGTYP FROM CKMLMV003
 INTO l_MGTYP
 WHERE MGTYP = p_MGTYP .
 IF sy-subrc NE 0.
 MESSAGE e999 WITH
 'Enter a Valid Quantity Structure Type'(005).
 ENDIF.
ENDIF.
ENDFORM. "Validate_QuantityStrType
INITIALIZATION of Fields
Class LCL_EVENT_HANDLER DEFINITION.
Public section.
 Methods:
 TOP_OF_PAGE for Event TOP_OF_PAGE OF CL_GUI_ALV_GRID
 IMPORTING E_DYNDOC_ID.
ENDCLASS. "LCL_EVENT_HANDLER DEFINITION
CLASS LCL_EVENT_HANDLER IMPLEMENTATION.
METHOD TOP_OF_PAGE.
Top-of-page event 
PERFORM EVENT_TOP_OF_PAGE USING G_DYNDOC_ID.
ENDMETHOD. "top_of_page
ENDCLASS. "LCL_EVENT_HANDLER IMPLEMENTATION
Data : G_HANDLER TYPE REF TO LCL_EVENT_HANDLER.
Initialization.
v_repid = sy-repid.
Start-of-Selection.
Perform get_CKMLMV003.
Perform get_CKMLMV001.
Perform Get_Finaldata.
Perform Layout_FieldCatalog.
call screen '101'.
Perform ALVGrid_Final_Display.
*& Form Layout_FieldCatalog
 text
Form Layout_FieldCatalog.
s_fieldcatalog-col_pos = 1.
s_fieldcatalog-fieldname = 'MATNR'.
s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
s_fieldcatalog-seltext_l = Text-024.
append s_fieldcatalog to t_fieldcatalog.
clear s_fieldcatalog.
s_fieldcatalog-col_pos = 2.
s_fieldcatalog-fieldname = 'GJAHR'.
s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
s_fieldcatalog-seltext_l = Text-012.
append s_fieldcatalog to t_fieldcatalog.
clear s_fieldcatalog.
s_fieldcatalog-col_pos = 3.
s_fieldcatalog-fieldname = 'PERIO'.
s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
s_fieldcatalog-seltext_l = Text-013.
append s_fieldcatalog to t_fieldcatalog.
clear s_fieldcatalog.
s_fieldcatalog-col_pos = 4.
s_fieldcatalog-fieldname = 'WERKS'.
s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
s_fieldcatalog-seltext_l = Text-025.
append s_fieldcatalog to t_fieldcatalog.
clear s_fieldcatalog.
s_fieldcatalog-col_pos = 5.
s_fieldcatalog-fieldname = 'LIFNR_ND1'.
s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
s_fieldcatalog-seltext_l = Text-014.
append s_fieldcatalog to t_fieldcatalog.
clear s_fieldcatalog.
s_fieldcatalog-col_pos = 6.
s_fieldcatalog-fieldname = 'MISCH_VERH1'.
s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
s_fieldcatalog-seltext_l = Text-015.
append s_fieldcatalog to t_fieldcatalog.
clear s_fieldcatalog.
s_fieldcatalog-col_pos = 7.
s_fieldcatalog-fieldname = 'LIFNR_ND2'.
s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
s_fieldcatalog-seltext_l = Text-016.
append s_fieldcatalog to t_fieldcatalog.
clear s_fieldcatalog.
s_fieldcatalog-col_pos = 8.
s_fieldcatalog-fieldname = 'MISCH_VERH2'.
s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
s_fieldcatalog-seltext_l = Text-017.
append s_fieldcatalog to t_fieldcatalog.
clear s_fieldcatalog.
s_fieldcatalog-col_pos = 9.
s_fieldcatalog-fieldname = 'LIFNR_ND3'.
s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
s_fieldcatalog-seltext_l = Text-018.
append s_fieldcatalog to t_fieldcatalog.
clear s_fieldcatalog.
s_fieldcatalog-col_pos = 10.
s_fieldcatalog-fieldname = 'MISCH_VERH3'.
s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
s_fieldcatalog-seltext_l = Text-019.
append s_fieldcatalog to t_fieldcatalog.
clear s_fieldcatalog.
s_fieldcatalog-col_pos = 11.
s_fieldcatalog-fieldname = 'LIFNR_ND4'.
s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
s_fieldcatalog-seltext_l = Text-020.
append s_fieldcatalog to t_fieldcatalog.
clear s_fieldcatalog.
s_fieldcatalog-col_pos = 12.
s_fieldcatalog-fieldname = 'MISCH_VERH4'.
s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
s_fieldcatalog-seltext_l = Text-021.
append s_fieldcatalog to t_fieldcatalog.
clear s_fieldcatalog.
s_fieldcatalog-col_pos = 13.
s_fieldcatalog-fieldname = 'LIFNR_ND5'.
s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
s_fieldcatalog-seltext_l = Text-022.
append s_fieldcatalog to t_fieldcatalog.
clear s_fieldcatalog.
s_fieldcatalog-col_pos = 14.
s_fieldcatalog-fieldname = 'MISCH_VERH5'.
s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
s_fieldcatalog-seltext_l = Text-023.
append s_fieldcatalog to t_fieldcatalog.
clear s_fieldcatalog.
if g_cnt6 <> '0'.
 s_fieldcatalog-col_pos = 14.
 s_fieldcatalog-fieldname = 'LIFNR_ND6'.
 s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
 s_fieldcatalog-NO_OUT = 'X'.
 s_fieldcatalog-seltext_l = Text-022.
 append s_fieldcatalog to t_fieldcatalog.
 clear s_fieldcatalog.
 s_fieldcatalog-col_pos = 15.
 s_fieldcatalog-fieldname = 'MISCH_VERH6'.
 s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
 s_fieldcatalog-NO_OUT = 'X'.
 s_fieldcatalog-seltext_l = Text-023.
 append s_fieldcatalog to t_fieldcatalog.
 clear s_fieldcatalog.
ENDIF.
if g_cnt7 <> '0'.
 s_fieldcatalog-col_pos = 16.
 s_fieldcatalog-fieldname = 'LIFNR_ND7'.
 s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
 s_fieldcatalog-NO_OUT = 'X'.
 s_fieldcatalog-seltext_l = Text-022.
 append s_fieldcatalog to t_fieldcatalog.
 clear s_fieldcatalog.
 s_fieldcatalog-col_pos = 17.
 s_fieldcatalog-fieldname = 'MISCH_VERH7'.
 s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
 s_fieldcatalog-NO_OUT = 'X'.
 s_fieldcatalog-seltext_l = Text-023.
 append s_fieldcatalog to t_fieldcatalog.
 clear s_fieldcatalog.
ENDIF.
if g_cnt8 <> '0'.
 s_fieldcatalog-col_pos = 18.
 s_fieldcatalog-fieldname = 'LIFNR_ND8'.
 s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
 s_fieldcatalog-NO_OUT = 'X'.
 s_fieldcatalog-seltext_l = Text-022.
 append s_fieldcatalog to t_fieldcatalog.
 clear s_fieldcatalog.
 s_fieldcatalog-col_pos = 19.
 s_fieldcatalog-fieldname = 'MISCH_VERH8'.
 s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
 s_fieldcatalog-NO_OUT = 'X'.
 s_fieldcatalog-seltext_l = Text-023.
 append s_fieldcatalog to t_fieldcatalog.
 clear s_fieldcatalog.
ENDIF.
if g_cnt9 <> '0'.
 s_fieldcatalog-col_pos = 20.
 s_fieldcatalog-fieldname = 'LIFNR_ND9'.
 s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
 s_fieldcatalog-NO_OUT = 'X'.
 s_fieldcatalog-seltext_l = Text-022.
 append s_fieldcatalog to t_fieldcatalog.
 clear s_fieldcatalog.
 s_fieldcatalog-col_pos = 21.
 s_fieldcatalog-fieldname = 'MISCH_VERH9'.
 s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
 s_fieldcatalog-NO_OUT = 'X'.
 s_fieldcatalog-seltext_l = Text-023.
 append s_fieldcatalog to t_fieldcatalog.
 clear s_fieldcatalog.
ENDIF.
if g_cnt10 <> '0'.
 s_fieldcatalog-col_pos = 22.
 s_fieldcatalog-fieldname = 'LIFNR_ND10'.
 s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
 s_fieldcatalog-NO_OUT = 'X'.
 s_fieldcatalog-seltext_l = Text-022.
 append s_fieldcatalog to t_fieldcatalog.
 clear s_fieldcatalog.
 s_fieldcatalog-col_pos = 23.
 s_fieldcatalog-fieldname = 'MISCH_VERH10'.
 s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
 s_fieldcatalog-NO_OUT = 'X'.
 s_fieldcatalog-seltext_l = Text-023.
 append s_fieldcatalog to t_fieldcatalog.
 clear s_fieldcatalog.
ENDIF.
if g_cnt11 <> '0'.
 s_fieldcatalog-col_pos = 24.
 s_fieldcatalog-fieldname = 'LIFNR_ND11'.
 s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
 s_fieldcatalog-NO_OUT = 'X'.
 s_fieldcatalog-seltext_l = Text-022.
 append s_fieldcatalog to t_fieldcatalog.
 clear s_fieldcatalog.
 s_fieldcatalog-col_pos = 25.
 s_fieldcatalog-fieldname = 'MISCH_VERH11'.
 s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
 s_fieldcatalog-NO_OUT = 'X'.
 s_fieldcatalog-seltext_l = Text-023.
 append s_fieldcatalog to t_fieldcatalog.
 clear s_fieldcatalog.
ENDIF.
if g_cnt12 <> '0'.
 s_fieldcatalog-col_pos = 26.
 s_fieldcatalog-fieldname = 'LIFNR_ND12'.
 s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
 s_fieldcatalog-NO_OUT = 'X'.
 s_fieldcatalog-seltext_l = Text-022.
 append s_fieldcatalog to t_fieldcatalog.
 clear s_fieldcatalog.
 s_fieldcatalog-col_pos = 27.
 s_fieldcatalog-fieldname = 'MISCH_VERH12'.
 s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
 s_fieldcatalog-NO_OUT = 'X'.
 s_fieldcatalog-seltext_l = Text-023.
 append s_fieldcatalog to t_fieldcatalog.
 clear s_fieldcatalog.
ENDIF.
if g_cnt13 <> '0'.
 s_fieldcatalog-col_pos = 29.
 s_fieldcatalog-fieldname = 'LIFNR_ND13'.
 s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
 s_fieldcatalog-NO_OUT = 'X'.
 s_fieldcatalog-seltext_l = Text-022.
 append s_fieldcatalog to t_fieldcatalog.
 clear s_fieldcatalog.
 s_fieldcatalog-col_pos = 30.
 s_fieldcatalog-fieldname = 'MISCH_VERH13'.
 s_fieldcatalog-tabname = 'I_FINAL_OUT1'.
 s_fieldcatalog-NO_OUT = 'X'.
 s_fieldcatalog-seltext_l = Text-023.
 append s_fieldcatalog to t_fieldcatalog.
 clear s_fieldcatalog.
ENDIF.
ENDFORM. "Layout_FieldCatalog
*& Form get_CKMLMV003
 text
Form get_CKMLMV003.
Select WERKS
 MATNR
 MISCH_VERH
 KALNR_BAL
 GJAHR
 PERIO
 MGTYP
 from CKMLMV003
 into table i_CKMLMV003_out
 Where ( MATNR in s_MATNR and
 WERKS in s_WERKS and
 GJAHR in s_GJAHR and
 PERIO in s_PERIO and
 MGTYP = p_MGTYP ).
Sort i_CKMLMV003_out by MATNR KALNR_BAL.
ENDFORM. "get_CKMLMV003
*& Form get_CKMLMV001
 text
Form get_CKMLMV001.
If Not i_CKMLMV003_out is Initial.
 Select MATNR
 KALNR
 LIFNR_ND
 EKORG_ND
 from CKMLMV001
 into Table i_CKMLMV001_out
 for all entries in i_CKMLMV003_out
 Where ( KALNR = i_CKMLMV003_out-KALNR_BAL
 and WERKS = i_CKMLMV003_out-WERKS
 and MATNR = i_CKMLMV003_out-MATNR ).
 sort i_CKMLMV001_out by MATNR KALNR.
ENDIF.
ENDFORM. "get_CKMLMV001
*& Form Get_Finaldata
 text
Form Get_Finaldata.
Loop at i_CKMLMV001_out into i_CKMLMV001_str.
 Loop at i_CKMLMV003_out into i_CKMLMV003_str.
 If ( i_CKMLMV001_str-KALNR = i_CKMLMV003_str-KALNR_BAL and i_CKMLMV003_str-MATNR = i_CKMLMV001_str-MATNR ) .
 If ( flag = 0 ).
 g_plant = i_CKMLMV003_str-WERKS.
 g_PurchOrg = i_CKMLMV001_str-EKORG_ND.
 g_quantstr = i_CKMLMV003_str-MGTYP.
 flag = 1.
 ENDIF.
 Move i_CKMLMV003_str-MATNR to i_Final_str-MATNR.
 Move i_CKMLMV003_str-WERKS to i_Final_str-WERKS.
 Move i_CKMLMV003_str-GJAHR to i_Final_str-GJAHR.
 Move i_CKMLMV003_str-PERIO to i_Final_str-PERIO.
 Move i_CKMLMV003_str-MISCH_VERH to i_Final_str-MISCH_VERH1.
 Move i_CKMLMV001_str-LIFNR_ND to i_Final_str-LIFNR_ND1.
 Move-Corresponding i_CKMLMV003_str to i_CKMLMV003_temp.
 Append i_Final_str to i_Final_out.
 Clear : i_CKMLMV003_str .
 ENDIF.
 ENDLOOP.
 Clear : i_CKMLMV001_str , i_Final_str , i_CKMLMV003_temp.
ENDLOOP.
Sort i_Final_out by WERKS MATNR GJAHR PERIO .
Loop at i_Final_out into i_Final_str.
 if i_Final_str-MATNR = i_Final_str1-MATNR and i_Final_str-GJAHR = i_Final_str1-GJAHR and i_Final_str-PERIO = i_Final_str1-PERIO and i_Final_str-WERKS = i_Final_str1-WERKS.
 cnt = cnt + 1.
 Case cnt.
 When 2.
 Move i_Final_str-MISCH_VERH1 to i_Final_str1-MISCH_VERH2.
 Move i_Final_str-LIFNR_ND1 to i_Final_str1-LIFNR_ND2.
 When 3.
 Move i_Final_str-MISCH_VERH1 to i_Final_str1-MISCH_VERH3.
 Move i_Final_str-LIFNR_ND1 to i_Final_str1-LIFNR_ND3.
 When 4.
 Move i_Final_str-MISCH_VERH1 to i_Final_str1-MISCH_VERH4.
 Move i_Final_str-LIFNR_ND1 to i_Final_str1-LIFNR_ND4.
 When 5.
 Move i_Final_str-MISCH_VERH1 to i_Final_str1-MISCH_VERH5.
 Move i_Final_str-LIFNR_ND1 to i_Final_str1-LIFNR_ND5.
 When 6.
 Move i_Final_str-MISCH_VERH1 to i_Final_str1-MISCH_VERH6.
 Move i_Final_str-LIFNR_ND1 to i_Final_str1-LIFNR_ND6.
 g_cnt6 = 1.
 When 7.
 Move i_Final_str-MISCH_VERH1 to i_Final_str1-MISCH_VERH7.
 Move i_Final_str-LIFNR_ND1 to i_Final_str1-LIFNR_ND7.
 g_cnt7 = 1.
 When 8.
 Move i_Final_str-MISCH_VERH1 to i_Final_str1-MISCH_VERH8.
 Move i_Final_str-LIFNR_ND1 to i_Final_str1-LIFNR_ND8.
 g_cnt8 = 1.
 When 9.
 Move i_Final_str-MISCH_VERH1 to i_Final_str1-MISCH_VERH9.
 Move i_Final_str-LIFNR_ND1 to i_Final_str1-LIFNR_ND9.
 g_cnt9 = 1.
 When 10.
 Move i_Final_str-MISCH_VERH1 to i_Final_str1-MISCH_VERH10.
 Move i_Final_str-LIFNR_ND1 to i_Final_str1-LIFNR_ND10.
 g_cnt10 = 1.
 When 11.
 Move i_Final_str-MISCH_VERH1 to i_Final_str1-MISCH_VERH11.
 Move i_Final_str-LIFNR_ND1 to i_Final_str1-LIFNR_ND11.
 g_cnt11 = 1.
 When 12.
 Move i_Final_str-MISCH_VERH1 to i_Final_str1-MISCH_VERH12.
 Move i_Final_str-LIFNR_ND1 to i_Final_str1-LIFNR_ND12.
 g_cnt12 = 1.
 When 13.
 Move i_Final_str-MISCH_VERH1 to i_Final_str1-MISCH_VERH13.
 Move i_Final_str-LIFNR_ND1 to i_Final_str1-LIFNR_ND13.
 g_cnt13 = 1.
 ENDCASE.
 ELSE.
 if cnt GE 1 .
 append i_Final_str1 to i_Final_out1.
 Clear : i_Final_str1.
 ENDIF.
 Move-Corresponding i_Final_str to i_Final_str1.
 cnt = 0.
 cnt = cnt + 1.
 ENDIF.
 Clear : i_Final_str.
Endloop.
append i_Final_str1 to i_Final_out1.
 if i_Final_str-MATNR = i_Final_str1-MATNR and i_Final_str-GJAHR = i_Final_str1-GJAHR and i_Final_str-PERIO = i_Final_str1-PERIO .
 cnt = cnt + 1.
 Case cnt.
 When 2.
 Move i_Final_str-MISCH_VERH1 to i_Final_str1-MISCH_VERH2.
 Move i_Final_str-LIFNR_ND1 to i_Final_str1-LIFNR_ND2.
 When 3.
 Move i_Final_str-MISCH_VERH1 to i_Final_str1-MISCH_VERH3.
 Move i_Final_str-LIFNR_ND1 to i_Final_str1-LIFNR_ND3.
 When 4.
 Move i_Final_str-MISCH_VERH1 to i_Final_str1-MISCH_VERH4.
 Move i_Final_str-LIFNR_ND1 to i_Final_str1-LIFNR_ND4.
 When 5.
 Move i_Final_str-MISCH_VERH1 to i_Final_str1-MISCH_VERH5.
 Move i_Final_str-LIFNR_ND1 to i_Final_str1-LIFNR_ND5.
 ENDCASE.
**Move-Corresponding i_Final_str to i_Final_str1.
 ELSE.
 if cnt GE 1 .
 append i_Final_str1 to i_Final_out1.
 Clear : i_Final_str1.
 ENDIF.
 Move-Corresponding i_Final_str to i_Final_str1.
 cnt = 0.
 cnt = cnt + 1.
 ENDIF.
 Clear : i_Final_str.
Endloop.
append i_Final_str1 to i_Final_out1.
ENDFORM. "Get_Finaldata
*& Form top_of_page
 text
Form top_of_page.
clear t_header.
refresh t_header.
i_header_str-typ = 'H'.
I_header_Str-info = Text-035.
append I_header_str to t_header.
clear I_header_str.
Date
I_header_str-typ = 'S'.
I_header_str-key = Text-036.
CONCATENATE sy-datum+6(2) '.'
sy-datum+4(2) '.'
sy-datum(4) INTO I_header_str-info. "todays date
append I_header_str to t_header.
clear: I_header_str.
i_header_str-typ = 'S'.
I_header_Str-Key = 'Quantity Structure Type :'.
I_header_Str-info = g_QuantStr.
append I_header_str to t_header.
clear I_header_str.
i_header_str-typ = 'S'.
I_header_Str-Key = 'Purchase Org :'.
I_header_Str-info = g_PurchOrg.
append I_header_str to t_header.
clear I_header_str.
i_header_str-typ = 'S'.
I_header_Str-Key = 'Plant :'.
I_header_Str-info = g_Plant.
append I_header_str to t_header.
clear I_header_str.
CLEAR i_line_event_str.
i_line_event_str-name = 'TOP_OF_PAGE'.
APPEND i_line_event_str TO i_events.
call function 'REUSE_ALV_COMMENTARY_WRITE'
 EXPORTING
 it_list_commentary = t_header.
i_logo = 'Z_LOGO'.
ENDFORM. "top_of_page
*& ALVGrid_Final_Display
Form ALVGrid_Final_Display.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 i_callback_program = v_repid
 i_DEFAULt = c_valx
 i_callback_top_of_page = 'TOP_OF_PAGE'
 i_Save = c_valx
 it_fieldcat = t_fieldcatalog
 it_sort = t_sort
 it_events = I_events
 TABLES
 t_outtab = i_final_out1.
ENDFORM. "ALVGrid_Final_Display
*& Form ALVGRID_OO_Display
 text
Form ALVGRID_OO_Display.
i_FCAT_str-col_pos = 1.
i_FCAT_str-fieldname = 'MATNR'.
i_FCAT_str-tabname = 'I_FINAL_OUT1'.
i_fcat_str-seltext = 'MATERIAL'.
i_fcat_str-scrtext_m = Text-024.
append i_FCAT_str to i_FCAT.
clear i_FCAT_str.
i_FCAT_str-col_pos = 2.
i_FCAT_str-fieldname = 'GJAHR'.
i_FCAT_str-tabname = 'I_FINAL_OUT1'.
i_fcat_str-scrtext_m = Text-012.
append i_FCAT_str to i_FCAT.
clear i_FCAT_str.
i_FCAT_str-col_pos = 3.
i_FCAT_str-fieldname = 'PERIO'.
i_FCAT_str-tabname = 'I_FINAL_OUT1'.
i_fcat_str-scrtext_m = Text-013.
append i_FCAT_str to i_FCAT.
clear i_FCAT_str.
i_FCAT_str-col_pos = 4.
i_FCAT_str-fieldname = 'WERKS'.
i_FCAT_str-tabname = 'I_FINAL_OUT1'.
i_FCAT_str-scrtext_m = Text-025.
append i_FCAT_str to i_FCAT.
clear i_FCAT_str.
i_FCAT_str-col_pos = 5.
i_FCAT_str-fieldname = 'LIFNR_ND1'.
i_FCAT_str-tabname = 'I_FINAL_OUT1'.
i_fcat_str-scrtext_m = Text-014.
append i_FCAT_str to i_FCAT.
clear i_FCAT_str.
i_FCAT_str-col_pos = 6.
i_FCAT_str-fieldname = 'MISCH_VERH1'.
i_FCAT_str-tabname = 'I_FINAL_OUT1'.
i_FCAT_str-scrtext_m = Text-015.
append i_FCAT_str to i_FCAT.
clear i_FCAT_str.
i_FCAT_str-col_pos = 7.
i_FCAT_str-fieldname = 'LIFNR_ND2'.
i_FCAT_str-tabname = 'I_FINAL_OUT1'.
i_FCAT_str-scrtext_m = Text-016.
append i_FCAT_str to i_FCAT.
clear i_FCAT_str.
i_FCAT_str-col_pos = 8.
i_FCAT_str-fieldname = 'MISCH_VERH2'.
i_FCAT_str-tabname = 'I_FINAL_OUT1'.
i_FCAT_str-scrtext_m = Text-017.
append i_FCAT_str to i_FCAT.
clear i_FCAT_str.
i_FCAT_str-col_pos = 9.
i_FCAT_str-fieldname = 'LIFNR_ND3'.
i_FCAT_str-tabname = 'I_FINAL_OUT1'.
i_FCAT_str-scrtext_m = Text-018.
append i_FCAT_str to i_FCAT.
clear i_FCAT_str.
i_FCAT_str-col_pos = 10.
i_FCAT_str-fieldname = 'MISCH_VERH3'.
i_FCAT_str-tabname = 'I_FINAL_OUT1'.
i_FCAT_str-scrtext_m = Text-019.
append i_FCAT_str to i_FCAT.
clear i_FCAT_str.
i_FCAT_str-col_pos = 11.
i_FCAT_str-fieldname = 'LIFNR_ND4'.
i_FCAT_str-tabname = 'I_FINAL_OUT1'.
i_FCAT_str-scrtext_m = Text-020.
append i_FCAT_str to i_FCAT.
clear i_FCAT_str.
i_FCAT_str-col_pos = 12.
i_FCAT_str-fieldname = 'MISCH_VERH4'.
i_FCAT_str-tabname = 'I_FINAL_OUT1'.
i_FCAT_str-scrtext_m = Text-021.
append i_FCAT_str to i_FCAT.
clear i_FCAT_str.
i_FCAT_str-col_pos = 13.
i_FCAT_str-fieldname = 'LIFNR_ND5'.
i_FCAT_str-tabname = 'I_FINAL_OUT1'.
i_FCAT_str-scrtext_m = Text-022.
append i_FCAT_str to i_FCAT.
clear i_FCAT_str.
i_FCAT_str-col_pos = 14.
i_FCAT_str-fieldname = 'MISCH_VERH5'.
i_FCAT_str-tabname = 'I_FINAL_OUT1'.
i_FCAT_str-scrtext_m = Text-023.
append i_FCAT_str to i_FCAT.
clear i_FCAT_str.
 if g_cnt6 <> '0'.
 i_FCAT_str-col_pos = 15.
 i_FCAT_str-fieldname = 'LIFNR_ND6'.
 i_FCAT_str-tabname = 'I_FINAL_OUT1'.
 s_fieldcatalog-NO_OUT = 'X'.
 i_FCAT_str-scrtext_m = Text-022.
 append i_FCAT_str to i_FCAT.
 clear i_FCAT_str.
 i_FCAT_str-col_pos = 16.
 i_FCAT_str-fieldname = 'MISCH_VERH6'.
 i_FCAT_str-tabname = 'I_FINAL_OUT1'.
 s_fieldcatalog-NO_OUT = 'X'.
 i_FCAT_str-scrtext_m = Text-023.
 append i_FCAT_str to i_FCAT.
 clear i_FCAT_str.
ENDIF.
*if not grid1 is Initial.
If sy-SUBRC = 0.
Call Method grid1->set_table_for_first_display
 CHANGING
 it_outtab = i_final_out1[]
 it_fieldcatalog = I_FCAT
 EXCEPTIONS
 Invalid_parameter_combination = 1
 program_error = 2
 too_many_lines = 3
 Others = 4.
If sy-subrc <> 0.
ENDIF.
CALL METHOD G_DYNDOC_ID->INITIALIZE_DOCUMENT
 EXPORTING
 BACKGROUND_COLOR = CL_DD_AREA=>COL_TEXTAREA.
Processing events 
CALL METHOD GRID1->LIST_PROCESSING_EVENTS
 EXPORTING
 I_EVENT_NAME = 'TOP_OF_PAGE'
 I_DYNDOC_ID = G_DYNDOC_ID.
Call Method grid2->set_table_for_first_display
 CHANGING
 it_outtab = i_final_out1[]
 it_fieldcatalog = I_FCAT
 EXCEPTIONS
 Invalid_parameter_combination = 1
 program_error = 2
 too_many_lines = 3
 Others = 4.
If sy-subrc <> 0.
ENDIF.
 ENDIF.
ENDIF.
Endform. "ALVGRID_OO_Display
Form EVENT_TOP_OF_PAGE using DG_DYNDOC_ID
 TYPE REF TO CL_DD_DOCUMENT.
DATA : DL_TEXT(255) TYPE C.
CALL METHOD DG_DYNDOC_ID->ADD_TEXT
 EXPORTING
 TEXT = 'Flight Details'
 SAP_STYLE = CL_DD_AREA=>HEADING
 SAP_FONTSIZE = CL_DD_AREA=>LARGE
 SAP_COLOR = CL_DD_AREA=>LIST_HEADING_INT.
Endform.
*& Module STATUS_0101 OUTPUT
 text
MODULE STATUS_0101 OUTPUT.
SET PF-STATUS 'xxxxxxxx'.
SET TITLEBAR 'xxx'.
SET PF-STATUS 'STATUS'.
SET TITLEBAR 'TITLE'.
Create Object G_DYNDOC_ID
 EXPORTING STYLE = 'ALV_GRID'.
if g_custom_container1 is initial .
 create object g_custom_container1
 Exporting
 Container_name = CCCONTAINER1
 Exceptions
 cntl_error = 1
 cntl_system_error = 2
 create_error = 3
 lifetime_error = 4
 Others = 5.
 Create Object G_SPLITTER
 Exporting PARENT = g_custom_container1.
CALL METHOD G_SPLITTER->GET_CONTAINER
 EXPORTING
 ROW = 1
 COLUMN = 1
 RECEIVING
 CONTAINER = G_PARENT_TOP.
*Assigning the Part 2 to GRID
CALL METHOD G_SPLITTER->GET_CONTAINER
 EXPORTING
 ROW = 2
 COLUMN = 1
 RECEIVING
 CONTAINER = g_parent_grid.

Hi,
Check if any event is triggered from the event handler class, upon selection.
Usually, the events are handled on double click or on hotspot etc.
Regards,
Satish Kanteti

How to place header and footer in OO-ALV program using class

How to place header and footer in OO-ALV program using class tell me wat r the class we shold use and their attributes as well

Hi Venkatesh,
Take a look at this how to [ABAP Objects - ALV Model - Using Header and Footer|https://wiki.sdn.sap.com/wiki/x/xdw]
it's explaining how to define the classes and use it for display an ALV with Header and Footer.
Regards,
Marcelo Ramos

Header in alv grid using class

Similar Messages

Maybe you are looking for