Capturing the ALV Grid Event

Hi Experts,
I am working on ALV Grid , Data is Displayed in Grid well , But Can Any one please tell me how can i capture the event (back,exit and cancel) which is persent on standard toolbar on ALV Gried output .
Rgds,
Premraj

Hello PremRaj ,
Please find an dummy program to capture the events below:
TYPE-POOLS slis.
DATA: ITAB_EVENTS TYPE slis_t_event,
 WA_EVENTS TYPE SLIS_ALV_EVENT.
DATA: IT_END TYPE SLIS_T_LISTHEADER,
 WA_END TYPE SLIS_LISTHEADER.
** This function module will get all the events present in alv into internal table itab_events*
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
EXPORTING
I_LIST_TYPE = 0
IMPORTING
 ET_EVENTS = ITAB_EVENTS
EXCEPTIONS
LIST_TYPE_WRONG = 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.
** With this read table statement itab_events is read for the desired event*+
READ TABLE itAB_eventS INTO wa_eventS WITH KEY name = 'END_OF_LIST'.
wa_eventS-form = 'END'.
MODIFY itAB_eventS FROM wa_eventS INDEX sy-tabix.
CLEAR wa_eventS.
*Pass the ITAB_EVENTS created in this Function Module
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
 IT_EVENTS = ITAB_EVENTS
IMPORTING
 E_EXIT_CAUSED_BY_CALLER =
 ES_EXIT_CAUSED_BY_USER =
 TABLES
 t_outtab = it_tab
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.
*READ TABLE itAB_eventS INTO wa_eventS WITH KEY name = 'END_OF_LIST'.
wa_eventS-form = 'END'.
MODIFY itAB_eventS FROM wa_eventS INDEX sy-tabix.
CLEAR wa_eventS.
*in these statements ,the second line will automatically try to call subroutine with name end.
FORM END.
WA_END-TYP = 'S'.
WA_END-KEY = TEXT-004.
WA_END-INFO = SY-DATUM.
APPEND WA_end TO IT_END.
CLEAR WA_END.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
 it_list_commentary = IT_END
I_LOGO =
I_END_OF_LIST_GRID =
I_ALV_FORM =
ENDFORM.
Hope it helps you.
Thanks Mansi
Code Formatted by: Alvaro Tejada Galindo on Jan 8, 2009 11:02 AM
Edited by: MANSI ASNANI on Jan 9, 2009 7:31 AM

Similar Messages

Wrong messagetype while processing in an alv grid event

Hello,
a brief discription of my problem:
I am processing a standard SAP form "PERIODE_PRUEFEN" which calls the function "READ_CUSTOMIZED_MESSAGE". The routine is called inside an event-handler of the ALV Grid event 'user_command'. The messagetype is selected from a customising table 'T100C'. Despite the messagetype 'W' the program is always aborted with an 'E' message.
What I have tried so far:
1. I debugged the SAP standard transaction 'fb08' which runs exactly the same functions with the same values and it works.
2. I changed the messagetype in the debugger - no success
3. I searched the SAP notes, but theres nothing about my problem
I guess the problem is somewhere in the ALV Grid event, because this is the only difference between the SAP standard an my program. Maybe the message is processed wrong while beeing called within an event.
It would be great to get some useful hints to solve this problem

Hi,
The ABAP runtime environment handles messages according to the type declared in the MESSAGE statement and the context in which the message was sent.
The behaviour of message type 'W' in a dialog is different from a report program.
Run demo program DEMO_MESSAGES, select Main Program, Type 'W' and execute. You will get an error message instead of warning message.
This behaviour is well documeneted in the on-line help for MESSAGE statement.
Regards,
Rao A

How to get the alv grid report in another screen when double click on basic

Hi.
I have created an alv report using class cl_gui_alv_grid.I got another report in the same screen,when double clicked on basic list(using double_click event).I want to get this report in another screen.What i have to do?(In classical reports i worked with sy-lsind = 1 ,but how to do here?)
How to set color to the selected rows in the alv grid report?I worked with change_data_from_inside method of cl_gui_alv_grid.But it didn't work out..
With Regards,
Ramana.

On double click event . you will have to call another screen say 9000.
now within screen 900 PBO.. you will have to prepare the fieldcatalog/layout.. and the table to be displayed there.
in PAI of screen 9000, you can return to the original ALV.
method double_click.
call screen 9000.
endmethod.
" now in PBO create a module display_alv2
module display_alv2.
'prepare the fieldcat/layout info for new alv
'add the data to the new ALV table
'instantiate the grid call.. etc
'call the ALV
endmodule
"in PAI
module exit.
case sy-ucomm.
when 'ENT1'.
leave to screen 0.
endcase.
endmodule
while preparing the field catalog you can mention the EMPHASIZE field, whish will give color to tht column
E.g
*--Service Order
    ls_fieldcat-tabname   = 'IT_FINAL_VALID'.
    ls_fieldcat-fieldname = 'AUFNR'.
    ls_fieldcat-scrtext_m = 'Service Order'.
    ls_fieldcat-ref_table = 'AUFK'.
    ls_fieldcat-ref_field = 'AUFNR'.
    ls_fieldcat-col_pos   = 1.
    ls_fieldcat-outputlen = 12.
    ls_fieldcat-emphasize = 'C400'. "This will add color to the cell
    APPEND ls_fieldcat TO fcat_valid.
Hope this helps.

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

Allow to erase values under the input-check of the ALV Grid Control

Hi, 
in my ALV Grid I do have a cell which automatically checks the values entered by the user. When the user does not enter the values belonging to the DDIC Domain Value Range of the data element, the cell is rendered with a red border and an ALV error message comes up telling the user to enter the correct values from the F4 help.
In general, this is really great, but in case the user needs to erase the value, this automatical ALV Grid error message keeps popping up asking him to enter at least one value from the value range.
(I assume this is due to the fact that the Domain value range does not contain the value 'empty'.)
 
I would like to keep the functionality of checking the entered value but want to switch off the error message in case nothing was entered. How can I achive this?
 
This is what I did so far: 
1. Upon initializing ALV Grid, I define the field catalog like this: 
ls_fieldcat-fieldname = 'REACTION'. "#EC NOTEXT 
ls_fieldcat-edit = abap_true. 
ls_fieldcat-coltext = 'Reaction'. "#EC NOTEXT 
ls_fieldcat-outputlen = '8'. "#EC NOTEXT 
 
* This forces the user to set at least one value; not allowing him to delete it!! 
ls_fieldcat-ref_table = 'CRMS_ES_FOREIGN_ATTRIBUTE'. "#EC NOTEXT 
ls_fieldcat-ref_field = 'REACTION'. 
ls_fieldcat-key = abap_true. 
 
ls_fieldcat-checktable = '!'. 
ls_fieldcat-f4availabl = 'X'. "shows the handle for F4 help 
ls_fieldcat-col_id = 7.
 
(I would assume here that the ls_fieldcat - structure would allow an additional field which allows empty values, but I could not find one!) 
 
2. For my ALV Grid instance, I am registering the F4 during initialization: 
call method gr_fkt_grid->register_f4_for_fields 
 exporting 
 it_f4 = lt_f4. 
 
 ls_f4-fieldname = 'REACTION'. "EC SYNTCHAR 
 ls_f4-register = abap_true. 
 insert ls_f4 into table lt_f4. 
 call method gr_fkt_grid->register_f4_for_fields 
 exporting 
 it_f4 = lt_f4. 
 
3. Then I am setting the handler while initializing: 
 set handler lr_grid_event_receiver->handle_f4 
 for all instances. 
 
4. I also have checking methods in PAI for the ALV cells, but they do not apply in this case, 
 since ALV itself performs this check described above. I cannot see a chance for 
 interfering myself in PAI. 
 
Does anyone have an idea how I could prevent the ALV Grid of bringing up the message "Enter a valid value" and 
allowing to delete the cell content while keeping its checks in case the user enters a wrong value? 
 
Thank you very much, 
regards, 
Konrad 

Hi Konrad,
Inside the handler method for event DATA_CHANGED, always suppress the error log by calling method activate_display_protocol with dialog = ''.
Whenever u need error log call method display_protocol based on ok_code(sy-ucomm).
Ex:
method data_changed. " Handler method for event 'DATA_CHANGED'
*Suppressing error log
 call method g_o_grid->activate_display_protocol " Always suppress error log when grid is changed
 exporting
 i_dialog = ''.
 if er_data_changed->mt_protocol[] is not initial.
 if ok_code = 'BACK' or ok_code = 'SAVE'. " Based on ok_code display error log
*Display error log
 call method er_data_changed->display_protocol.
 endif.
 endif.
endmethod. "data_changed
Might solve ur problem
Thanks,
Edited by: Sap Fan on Oct 14, 2009 5:35 AM

ALV Grid: event for user return in ALV Grid Control

Hi developers,
i'm wanna do something after a user has pressed the return button in a alv grid control. For that i need probably a event. But i can not find a proper event in the documentation. Could one of you guys help me?
Best regards christian

Hi Christian
ALV grid is an encapsulated object, so it seems there is no way, you ought to implement the data_changed event. So if you want to make bulk data input and after trigger the event by pressing the return key, you should make the ALV Grid get your changes after pressing the key but not after a cell change of a modified cell.
To set this attribute:
CALL METHOD gr_alvgrid->register_edit_event
EXPORTING i_event_id = cl_gui_alv_grid=>mc_evt_enter .
This way "data_changed" event will be triggered whenever you press the return key while editing.
For some more information you can also refer to the tutorial <a href="https://www.sdn.sap.comhttp://www.sdn.sap.comhttp://www.sdn.sap.com/irj/servlet/prt/portal/prtroot/com.sap.km.cm.docs/documents/a1-8-4/an%20easy%20reference%20for%20alv%20grid%20control.pdf">"An Easy Reference for ALV Grid Control"</a>.
Regards
*--Serdar <a href="https://www.sdn.sap.com:443http://www.sdn.sap.comhttp://www.sdn.sap.com/irj/servlet/prt/portal/prtroot/com.sap.sdn.businesscard.sdnbusinesscard?u=qbk%2bsag%2bjiw%3d">[ BC ]</a>

ALV Grid event handlers

Hello Friends;
I have a problem with event handlers. I have defined events for double_click, data_change and hotspot_click. At first run of the program everything runs fine but when I make a change at the screen (like pressing Enter or entering a value at a screen field) the handlers seem to be called a couple of times. For example at a hotspot click I call an accounting document display and when I want to return with back button the program seems to be stuck at document display. Actually it calls event handler over and over again. How can I solve this problem? Can refreshing grid be a solution?
Thx in advance
Ali

Hello Ali
The problem is that after handling the hotspot event the current cell is still on the field with the hotspot. Thus, when you push ENTER the ALV grid checks the current cell which has a hotspot defined which, in turn, raises event HOTSPOT_CLICK.
Therefore, you have to move the current cell to another cell that has no hotspot defined. Have a look at the implementation of the event handler method. The hotspot is on field KUNNR. After calling transaction XD03 I shift the current cell to field BUKRS.
If you comment these lines you will see the same behaviour of the report as you described.
*& Report ZUS_SDN_TWO_ALV_GRIDS
REPORT ZUS_SDN_ALVGRID_EVENTS.
DATA:
gd_okcode TYPE ui_func,
gt_fcat TYPE lvc_t_fcat,
go_docking TYPE REF TO cl_gui_docking_container,
go_grid1 TYPE REF TO cl_gui_alv_grid.
DATA:
gt_knb1 TYPE STANDARD TABLE OF knb1.
PARAMETERS:
p_bukrs TYPE bukrs DEFAULT '1000' OBLIGATORY.
* CLASS lcl_eventhandler DEFINITION
CLASS lcl_eventhandler DEFINITION.
PUBLIC SECTION.
 CLASS-METHODS:
 handle_hotspot_click FOR EVENT hotspot_click OF cl_gui_alv_grid
 IMPORTING
 e_row_id
 e_column_id
 es_row_no
 sender.
ENDCLASS. "lcl_eventhandler DEFINITION
* CLASS lcl_eventhandler IMPLEMENTATION
CLASS lcl_eventhandler IMPLEMENTATION.
METHOD handle_hotspot_click.
* define local data
 DATA:
 ls_knb1 TYPE knb1,
 ls_col_id type lvc_s_col.
 READ TABLE gt_knb1 INTO ls_knb1 INDEX e_row_id-index.
 CHECK ( ls_knb1-kunnr IS NOT INITIAL ).
 SET PARAMETER ID 'KUN' FIELD ls_knb1-kunnr.
 SET PARAMETER ID 'BUK' FIELD ls_knb1-bukrs.
 CALL TRANSACTION 'XD03' AND SKIP FIRST SCREEN.
* Set active cell to field BUKRS otherwise the focus is still on
* field KUNNR which will always raise event HOTSPOT_CLICK
 ls_col_id-fieldname = 'BUKRS'.
 CALL METHOD go_grid1->set_current_cell_via_id
 EXPORTING
 IS_ROW_ID = e_row_id
 IS_COLUMN_ID = ls_col_id.
ENDMETHOD. "handle_hotspot_click
ENDCLASS. "lcl_eventhandler IMPLEMENTATION
START-OF-SELECTION.
SELECT * FROM knb1 INTO TABLE gt_knb1
 WHERE bukrs = p_bukrs.
* Create docking container
CREATE OBJECT go_docking
 EXPORTING
 parent = cl_gui_container=>screen0
 ratio = 90
 EXCEPTIONS
 OTHERS = 6.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
* Create ALV grid
CREATE OBJECT go_grid1
 EXPORTING
 i_parent = go_docking
 EXCEPTIONS
 OTHERS = 5.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
* Set event handler
SET HANDLER:
 lcl_eventhandler=>handle_hotspot_click FOR go_grid1.
* Build fieldcatalog and set hotspot for field KUNNR
PERFORM build_fieldcatalog_knb1.
* Display data
CALL METHOD go_grid1->set_table_for_first_display
 CHANGING
 it_outtab = gt_knb1
 it_fieldcatalog = gt_fcat
 EXCEPTIONS
 OTHERS = 4.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
* Link the docking container to the target dynpro
CALL METHOD go_docking->link
 EXPORTING
 repid = syst-repid
 dynnr = '0100'
* CONTAINER =
 EXCEPTIONS
 OTHERS = 4.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
* ok-code field = GD_OKCODE
CALL SCREEN '0100'.
END-OF-SELECTION.
*& Module STATUS_0100 OUTPUT
* text
MODULE status_0100 OUTPUT.
SET PF-STATUS 'STATUS_0100'.
* SET TITLEBAR 'xxx'.
ENDMODULE. " STATUS_0100 OUTPUT
*& Module USER_COMMAND_0100 INPUT
* text
MODULE user_command_0100 INPUT.
CASE gd_okcode.
 WHEN 'BACK' OR
 'END' OR
 'CANC'.
 SET SCREEN 0. LEAVE SCREEN.
 WHEN OTHERS.
ENDCASE.
CLEAR: gd_okcode.
ENDMODULE. " USER_COMMAND_0100 INPUT
*& Form BUILD_FIELDCATALOG_KNB1
* text
* --> p1 text
* <-- p2 text
FORM build_fieldcatalog_knb1 .
* define local data
DATA:
 ls_fcat TYPE lvc_s_fcat.
CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
 EXPORTING
* I_BUFFER_ACTIVE =
 i_structure_name = 'KNB1'
* I_CLIENT_NEVER_DISPLAY = 'X'
* I_BYPASSING_BUFFER =
* I_INTERNAL_TABNAME =
 CHANGING
 ct_fieldcat = gt_fcat
 EXCEPTIONS
 inconsistent_interface = 1
 program_error = 2
 OTHERS = 3.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
READ TABLE gt_fcat INTO ls_fcat
 WITH KEY fieldname = 'KUNNR'.
IF ( syst-subrc = 0 ).
 ls_fcat-hotspot = abap_true.
 MODIFY gt_fcat FROM ls_fcat INDEX syst-tabix.
ENDIF.
ENDFORM. " BUILD_FIELDCATALOG_KNB1
Regards
Uwe

How to implement functionkeys on the ALV GRID tool bar

Hello All,
I need to implement functionkeys(Ex.given below) to the standard buttons like Ascending order etc. on the ALVGRID Tool Bar . I have implementedObject orient concept( Methods) to display the out put.I tried by using set pf-status but it is not comming.
Ex:
ALV Grid Toll Bar Buttons ( Func.Keys )
Print Preview ( CtrlShiftF10)
Sort in Ascending order ( Ctrl+F6 )
Thanks in Advance.
Vijay
Edited by: Vijay Reddy on Aug 19, 2008 10:12 AM
Edited by: Vijay Reddy on Aug 19, 2008 10:13 AM

Hi,
check this code,
REPORT zcl_timesheet_approval MESSAGE-ID zcl_msg.
* CLASS L_CL_EVENTS DEFINITION *
* Class for inserting buttons on the toolbar *
CLASS l_cl_events 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 .
ENDCLASS. " L_CL_EVENTS DEFINITION
* CLASS L_CL_EVENTS IMPLEMENTATION *
* Implementation of class L_CL_EVENTS *
CLASS l_cl_events IMPLEMENTATION.
METHOD toolbar.
 PERFORM event_toolbar USING e_object.
ENDMETHOD. " TOOLBAR
METHOD user_command.
 PERFORM event_ucomm USING e_ucomm.
ENDMETHOD. " USER_COMMAND
ENDCLASS. " L_CL_EVENTS IMPLEMENTATION
CONSTANTS:
 c_boolean_yes(1) TYPE c " Boolean - yes
 VALUE 'X',
 c_approve_status(1) TYPE c " Approval status
 VALUE 'A',
 c_rej_status(1) TYPE c " Rejected status
 VALUE 'R',
 c_save_status(1) TYPE c " Save status
 VALUE 'S',
 c_fcode_approve(7) TYPE c " Function code - APPROVE
 VALUE 'APPROVE',
 c_fcode_rej(6) TYPE c " Function code - REJECT
 VALUE 'REJECT',
 c_fcode_back(4) TYPE c " Function code - BACK
 VALUE 'BACK',
 c_fcode_onli(4) TYPE c " Function code - EXECUTE
 VALUE 'ONLI',
 c_fcode_exit(4) TYPE c " Function code - EXIT
 VALUE 'EXIT',
 c_fcode_cancel(6) TYPE c " Function code - CANCEL
 VALUE 'CANCEL',
 c_zero(1) TYPE c " Constant value 0
 VALUE '0',
 c_alv_scr(7) TYPE c " GUI status : ALV screen
 VALUE 'ALV_SCR'.
* Field-string declarations...........................................
DATA:
* Field-string to build fieldcat.
 fs_fcat TYPE lvc_s_fcat,
* Field-string for t_temp
 fs_temp TYPE type_s_temp.
* Working variables...................................................
* Internal table declarations........................................
DATA:
* Internal table to build fieldcat.
 t_fcat TYPE lvc_t_fcat,
* For ALV ...........................................................
DATA:
* To create instance for cl_gui_custom_container
g_grid TYPE REF TO cl_gui_custom_container,
* To create instance for cl_gui_alv_grid
g_alv TYPE REF TO cl_gui_alv_grid,
* To create instance for l_cl_events
g_events TYPE REF TO l_cl_events,
* To assign name for custom container
g_container TYPE scrfname VALUE 'CONTAINER',
* To assign layout
g_fcatlayo TYPE lvc_s_layo.
* AT SELECTION-SCREEN EVENT *
AT SELECTION-SCREEN.
* To perform user actions on the selection screen
PERFORM user_command.
* MODULE STATUS_0100 OUTPUT *
* This module will create the objects for the instance and display *
* the records *
MODULE status_0100 OUTPUT.
SET PF-STATUS c_alv_scr.
PERFORM set_titlebar USING w_display.
* If program executed in foreground.
IF sy-batch IS INITIAL.
* If g_grid is empty.
 IF g_grid IS INITIAL.
* To create object for instance grid
 CREATE OBJECT g_grid
 EXPORTING
 container_name = g_container.
* To create object for object grid
 CREATE OBJECT g_alv
 EXPORTING
 i_parent = g_grid.
 ELSE.
* IF W_SUBMIT EQ
 CALL METHOD g_alv->refresh_table_display.
 ENDIF. " IF G_GRID IS INITIAL
ENDIF. " IF SY-BATCH IS INITIAL
REFRESH t_fcat.
* If w_display eq 'X' .
IF w_display EQ c_boolean_yes.
* To display all records except saved data
 PERFORM display_allrecords.
ENDIF. " IF W_FLAG EQ C_BOOLEAN_YES
IF w_submit EQ c_boolean_yes.
* To display submitted records
 PERFORM submitted_records.
ENDIF. " IF W_SUBMIT EQ C_BOOLEAN_YES
ENDMODULE. " STATUS_0100 OUTPUT
* MODULE USER_COMMAND_0100 INPUT *
* To perform user actions in the screen 100 *
MODULE user_command_0100 INPUT.
* To update the data in the ALV grid
PERFORM check_changed_data.
w_okcode = ok_code.
CLEAR ok_code.
CASE w_okcode.
 WHEN c_fcode_back.
 LEAVE TO SCREEN 0.
 WHEN c_fcode_exit OR c_fcode_cancel.
 LEAVE PROGRAM.
ENDCASE. " CASE W_OKCODE
ENDMODULE. " USER_COMMAND_0100
* FORM BUILD_FCAT *
* To build the field catalog giving managers comment in editable mode *
* -->PR_Tabname type lvc_tname *
* -->PR_Fieldname type lvc_fname *
* -->PR_Coltext type lvc_txtcol *
* -->PR_Colpos type lvc_colpos *
FORM build_fcat USING pr_tabname TYPE lvc_tname
 pr_fieldname TYPE lvc_fname
 pr_coltext TYPE lvc_txtcol
 pr_colpos TYPE lvc_colpos.
CLEAR fs_fcat.
fs_fcat-tabname = pr_tabname.
fs_fcat-fieldname = pr_fieldname.
fs_fcat-coltext = pr_coltext.
fs_fcat-col_pos = pr_colpos.
IF fs_fcat-fieldname EQ 'MNGCOMMENT'.
 fs_fcat-edit = c_boolean_yes.
 fs_fcat-lowercase = c_boolean_yes.
 fs_fcat-dd_outlen = 60.
ELSE.
 fs_fcat-edit = space.
ENDIF. " IF FS_FCAT-FIELDNAME...
APPEND fs_fcat TO t_fcat.
ENDFORM. " BUILD_FCAT
* FORM BUILD_FCATD *
* To build fieldcatalog in the display mode *
* -->pr_Tabname type lvc_tname *
* -->pr_Fieldname type lvc_fname *
* -->pr_Coltext type lvc_txtcol *
* -->pr_Colpos type lvc_colpos *
FORM build_fcatd USING pr_tabname TYPE lvc_tname
 pr_fieldname TYPE lvc_fname
 pr_coltext TYPE lvc_txtcol
 pr_colpos TYPE lvc_colpos .
CLEAR fs_fcat.
fs_fcat-tabname = pr_tabname.
fs_fcat-fieldname = pr_fieldname.
fs_fcat-coltext = pr_coltext.
fs_fcat-col_pos = pr_colpos.
fs_fcat-edit = space.
APPEND fs_fcat TO t_fcat.
ENDFORM. " BUILD_FCATD
* FORM ALV_DISPLAY *
* To display data in ALV *
* --> pr_table type standard table *
* --> pr_fcat type lvc_t_fcat *
FORM alv_display USING pr_table TYPE STANDARD TABLE
 pr_fcat TYPE lvc_t_fcat .
* Local data declaration....
DATA: lt_exclude TYPE ui_functions.
* To exclude buttons on the ALV grid
PERFORM exclude_tb_functions CHANGING lt_exclude.
* To display ALV
CALL METHOD g_alv->set_table_for_first_display
 EXPORTING
 i_default = space
 is_layout = g_fcatlayo
 it_toolbar_excluding = lt_exclude
 CHANGING
 it_outtab = pr_table[]
 it_fieldcatalog = pr_fcat[].
ENDFORM. " ALV_DISPLAY
* FORM EVENT_TOOLBAR *
* Setting toolbar in the alv grid *
* -->E_OBJECT TYPE REF TO CL_ALV_EVENT_TOOLBAR_SET *
FORM event_toolbar USING e_object
 TYPE REF TO cl_alv_event_toolbar_set.
* Local declaration for the button.
DATA: ls_toolbar TYPE stb_button.
* To add Approve button
ls_toolbar-function = c_fcode_approve.
ls_toolbar-butn_type = c_zero.
ls_toolbar-text = text-001.
APPEND ls_toolbar TO e_object->mt_toolbar.
* To add Reject button
CLEAR ls_toolbar.
ls_toolbar-function = c_fcode_rej.
ls_toolbar-butn_type = c_zero.
ls_toolbar-text = text-013.
APPEND ls_toolbar TO e_object->mt_toolbar.
ENDFORM. " EVENT_TOOLBAR
* FORM EXCLUDE_TB_FUNCTIONS *
* To exclude buttons from ALV grid *
* <--> PR_EXCLUDE TYPE UI_FUNCTIONS *
FORM exclude_tb_functions CHANGING pr_exclude TYPE ui_functions.
* Local data declaration...
DATA ls_exclude TYPE ui_func.
* To remove the buttons on the ALV grid.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_copy_row.
APPEND ls_exclude TO pr_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_delete_row.
APPEND ls_exclude TO pr_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_append_row.
APPEND ls_exclude TO pr_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_insert_row.
APPEND ls_exclude TO pr_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_move_row.
APPEND ls_exclude TO pr_exclude.
ENDFORM. " EXCLUDE_TB_FUNCTIONS
* FORM EVENT_UCOMM *
* After Input in the ALV grid,if user select record and press *
* approve or reject then the record will get updated *
* --> PR_ucomm type sy-ucomm *
FORM event_ucomm USING pr_ucomm LIKE sy-ucomm.
CASE pr_ucomm.
* If e_ucomm contains 'APP' i.e.function code for Approve button
 WHEN c_fcode_approve. " To approve selected record
 PERFORM app_timesheet USING c_approve_status.
* If e_ucomm contains 'REJ' i.e. function code for Reject
 WHEN c_fcode_rej. " To reject selected record
 PERFORM app_timesheet USING c_rej_status.
ENDCASE. " CASE E_UCOMM
ENDFORM. " EVENT_UCOMM
* FORM APP_TIMESHEET *
* To get the selected records and update the records in database *
* --> pr_status type char01 *
FORM app_timesheet USING pr_status TYPE char01 .
* Local data declaration......
DATA:
 lt_marked_rows TYPE lvc_t_roid, " Table to get rowid
 l_fs_marked_row LIKE LINE OF lt_marked_rows.
 " Field-string for lt_marked_rows
* To get all the selected rows in the table lt_marked_rows
CALL METHOD g_alv->get_selected_rows
 IMPORTING
 et_row_no = lt_marked_rows.
* Reading each row id and updating the database.
LOOP AT lt_marked_rows INTO l_fs_marked_row.
* Reading the table t_timesheet with rowid
 READ TABLE t_timesheet INTO fs_timesheet INDEX
 l_fs_marked_row-row_id.
* If record is there in the table.
 IF sy-subrc EQ 0.
 CLEAR fs_timesheet-appstatus.
 GET PARAMETER ID 'ZEMPID' FIELD w_empid.
* Changing the appstatus.
 fs_timesheet-appstatus = pr_status.
 fs_timesheet-approvedby = w_empid.
* Updating the database table.
 UPDATE zcl_timesheet FROM fs_timesheet.
 IF sy-subrc EQ 0.
 fs_temp-empid = fs_timesheet-empid.
 fs_temp-workdate = fs_timesheet-workdate.
 fs_temp-linenum = fs_timesheet-linenum.
 append fs_temp to t_temp.
 ENDIF. " IF SY-SUBRC EQ 0.
 ENDIF. " IF SY-SUBRC EQ 0
ENDLOOP. " LOOP AT LT_MARKED_ROWS...
perform delete_data .
PERFORM refresh_table USING pr_status.
ENDFORM. " APP_TIMESHEET
* FORM CHECK_CHANGED_DATA *
* To change the data *
* No parameters are passsed to this subroutine *
FORM check_changed_data .
* To change the data.
CALL METHOD g_alv->check_changed_data.
ENDFORM. " CHECK_CHANGED_DATA
* FORM REFFRESH_TABLE *
* To refresh output table and issue message according p_status *
* -->PR_STATUS TYPE CHAR01 *
FORM refresh_table USING pr_status TYPE char01.
* To refresh output table.
CALL METHOD g_alv->refresh_table_display.
* Depending upon pr_status message is given.
IF pr_status EQ c_approve_status.
 MESSAGE s001.
ELSE.
 MESSAGE s002.
ENDIF. " IF P_STATUS EQ C_APPROVE_STATUS
ENDFORM. " REFRESH_TABLE
* FORM SET_TITLEBAR *
* To set titlebar on the screen 100. *
* -->PR_STATUS TYPE CHAR01 *
FORM set_titlebar USING pr_status TYPE char01.
* If pr_status eq 'X'.
IF pr_status EQ c_boolean_yes.
 SET TITLEBAR c_alv_scr WITH text-017.
ELSE.
 SET TITLEBAR c_alv_scr WITH text-018.
ENDIF. " IF P_STATUS EQ C_BOOLEAN_YES
ENDFORM. " SET_TITLEBAR
* FORM USER_COMMAND *
* According to sy-ucomm the action is performed in the screen 100 *
* No parameters are passsed to this subroutine *
FORM user_command .
CASE sy-ucomm.
* If p_app is selected, submitted data will be displayed for approval
 WHEN c_fcode_onli OR c_fcode_approve.
 CLEAR sy-ucomm.
* To display the submitted records.
 IF p_app EQ c_boolean_yes.
 w_submit = c_boolean_yes.
* To get submitted records
 PERFORM get_data.
 ENDIF. " IF P_APP EQ C_BOOLEAN_YES
* To display all records according to selection.
 IF p_disp EQ c_boolean_yes.
 w_display = c_boolean_yes.
* To display
 PERFORM display_all.
 CLEAR w_display.
 ENDIF. " IF P_DISP EQ C_BOOLEAN_YES
 IF p_sdn EQ c_boolean_yes.
 PERFORM GET_GRAPH.
 ENDIF.
ENDCASE. " CASE SY-UCOMM
ENDFORM. " USER_COMMAND
* FORM DISPLAY_ALLRECORDS *
* To display all the records in the display mode *
* No parameters are passsed to this subroutine *
FORM display_allrecords .
CLEAR w_display.
PERFORM build_fcatd USING 'T_TIME' 'WORKDATE' text-002 '1'.
PERFORM build_fcatd USING 'T_TIME' 'EMPID' text-009 '2'.
PERFORM build_fcatd USING 'T_TIME' 'PROJECTID' text-003 '3'.
PERFORM build_fcatd USING 'T_TIME' 'PROJECTNAME' text-004 '4'.
PERFORM build_fcatd USING 'T_TIME' 'OBJECTID' text-005 '5'.
PERFORM build_fcatd USING 'T_TIME' 'OBJECTNAME' text-006 '6'.
PERFORM build_fcatd USING 'T_TIME' 'ACTIVITYID' text-007 '7'.
PERFORM build_fcatd USING 'T_TIME' 'ACTIVITYNAME' text-008 '8'.
PERFORM build_fcatd USING 'T_TIME' 'TIMEWORKED' text-010 '9'.
PERFORM build_fcatd USING 'T_TIME' 'DESCRIPTION' text-011 '10'.
PERFORM build_fcatd USING 'T_TIME' 'APPSTATUS' text-012 '11'.
PERFORM build_fcatd USING 'T_TIME' 'BILLSTATUS' text-016 '12'.
PERFORM build_fcatd USING 'T_TIME' 'SDNSTATUS' text-019 '13'.
PERFORM build_fcatd USING 'T_TIME' 'MNGCOMMENT' text-014 '14'.
PERFORM alv_display USING t_time t_fcat.
ENDFORM. " DISPLAY_ALLRECORDS
* FORM SUBMITTED_RECORDS *
* To display submitted records for the manager to approve *
* No parameters are passsed to this subroutine *
FORM submitted_records .
CLEAR w_submit.
* To create object for instance g_events
CREATE OBJECT g_events.
* If w_first equal to space
IF w_first IS INITIAL.
 SET HANDLER g_events->toolbar
 FOR g_alv.
 w_first = c_boolean_yes.
ENDIF. " IF W_FIRST IS INITIAL..
SET HANDLER g_events->user_command
 FOR g_alv.
g_fcatlayo-sel_mode = c_approve_status.
REFRESH t_fcat.
* to fill ur field cat table.
ENDFORM. " SUBMITTED_RECORDS
* FORM DELETE_DATA *
* This form is used to delete thedata from output table after updating *
* the database *
* No parameters are passsed to this subroutine *
form delete_data .
 loop at t_temp into fs_temp.
 loop at t_timesheet into fs_timesheet where
 empid = fs_temp-empid
 and workdate = fs_temp-workdate
 and linenum = fs_temp-linenum.
 delete t_timesheet index sy-tabix.
 endloop. " LOOP AT T_TEMP INTO FS_TEMP
 endloop . " LOOP AT T_TIMESHEET INTO FS_T..
endform. " DELETE_DATA
Hope it helps you.
Regards
Manjari.

ALV Grid Event Problem

Hi,
I have a dialog that contains an ALV grid and three buttons. When the ALV grid is created, it's parent is specified as a custom container.
Container
data : g_custom_container type ref to cl_gui_custom_container.
ALV Grid
data : g_grid             type ref to cl_gui_alv_grid.
    create object g_custom_container
           exporting container_name = p_cont_name.
    create object g_grid
           exporting i_parent = g_custom_container
           I_APPL_EVENTS = 'X'.
I would like the user to be able to just hit enter to accept the values displayed in the ALV. My problem is that when the dialog is created, the ALV has focus so the event isn't getting to the PAI of the dialog. If I click the mouse outside of the ALV to take focus away from the ALV, hitting the enter key does trigger the correct event in the dialog PAI. How can I either set the focus outside of the ALV when the dialog loads, or make the ALV forward the event to the dialog.
Thank you very much for any isight you can lend!
John Richason

Hi John, are you working with an editable ALV grid? If so, the code below will allow an event to be fired when the user hits enter after the data has been changed.
           call method alv_grid->register_edit_event
                        exporting
                           i_event_id = cl_gui_alv_grid=>mc_evt_enter.
You then need to create an event handler to handle the event being fired when the data is changed.
*   create Event Receiver
          create object event_receiver.
*   handler for ALV grid
          set handler event_receiver->handle_data_changed for alv_grid.
REgards,
Rich Heilman

Editing of the ALV grids

hi Experts!!
i am working in the editing of the ALV grids using objects..when we edit the alv i want the same to be update to the DB tables..i tryied most of the methods like GET_CEL_VALUES(this i m getting only cursor value)/ get_changed valuse and also demo perog BCALVEDIT_04 but its not working..i am not understanding how to code. plz suggest me on this that is there any good procedure which i can follwo,,plz replyem...

Hi Mahesh,
The major difference between editable and non-editable ALV Grid is "registering edit event".
In your program you might not have registered your ALV Grid as editable. You can try using below code for the same.
Registering edit event
 call method w_grid->register_edit_event
 exporting
 i_event_id = cl_gui_alv_grid=>mc_evt_modified
 exceptions
 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.
Note: w_grid is ref to cl_gui_alv_grid.
Best Regards
Ali S

How to send the ALV GRID output to spool by using the print button in std t

How to send the ALV GRID output to spool by using the print button in standard tool bar.
We have created a button in the va02 transaction. If user click on the button the new screen will be display on that screen we are populating the alv grid output using the oops concept. But i am unable to send the output to spool using the print button in the standard tool bar.
I am able to display the Print parameter dialog box but i am not able to send it to spool.
Kindly help.
Thanks In Advance.
G.V.Ramana

Hi Shaik,
There is not properties button in my print screen.
MODULE user_command_0900 INPUT.
 WHEN 'EXCEL'.
 PERFORM excel_download.
 WHEN 'PRI'.
 PERFORM print_output.
form Print_output.
CALL FUNCTION 'RSPO_LIST_LAYOUT_FITS'
 EXPORTING
 columns = 80
 device = 'ANY '
 lines = 65
 maxpenality = 1999
 TABLES
 layouts = lt_layouts1
 EXCEPTIONS
 unknown_device = 1
 OTHERS = 2.
 IF sy-subrc = 0.
 LOOP AT lt_layouts1.
 IF lt_layouts1-penality < 1000 AND
 lt_layouts1-penality < l_min_penality.
 l_layout = lt_layouts1-layout.
 l_min_penality = lt_layouts1-penality.
 ENDIF.
 ENDLOOP.
 IF NOT l_layout IS INITIAL.
 CALL FUNCTION 'GET_PRINT_PARAMETERS'
 EXPORTING
 mode = 'CURRENT'
 line_size = 80 "#EC *
 new_list_id = l_new_list_id
 no_dialog = l_no_dialog
 layout = l_layout
 IMPORTING
 out_archive_parameters = rs_arc_params
 out_parameters = rs_pri_params
 valid = l_valid
 EXCEPTIONS
 archive_info_not_found = 1
 invalid_print_params = 2
 invalid_archive_params = 3
 OTHERS = 4.
 IF sy-subrc NE 0. " INS SLIN
 ENDIF. " INS SLIN
 IF rs_pri_params-linsz LT 80 OR
 rs_pri_params-linsz LT gt_stack-s_lprint-width.
 gt_stack-print_line_break = 'X'.
 ELSE.
 CLEAR gt_stack-print_line_break.
 ENDIF.
 IF l_valid NE 'X'.
 rs_pri_params = ls_pri_params_sav.
 rs_arc_params = ls_arc_params_sav.
 ENDIF.
 ENDIF.
 ENDIF.
endform. " Print_output
 CALL METHOD gv_cost_tot_alv_grand->set_table_for_first_display
 EXPORTING
 is_layout = gs_layout_cost_tot_grand
 CHANGING
 it_fieldcatalog = gt_fcat_cost_tot_grand[]
 it_outtab = gt_cost_tot_grand[].
Please check my code

How to increase the alv grid size dynamically

Hi all,
I have to develop the report with the following requirement:
I have to take bwkey from t001k on basis of bukrs and bwkey. this bukrs and bwkey are entered in selection-screen.
I have to select matnr, lbkum, salk3 from mbew on basis of bwkey in selection-screen.(this is select options)
now the ouput should be as follows:
for example :
                    ef01                efo2               ef03
matnr     lbkum salk3 lbkum    salk3      lbkum salk3         total
700001     3       4            0        0            0            0                    7
700010     0       0            2       1             0            0                    3
The output should be as mentioned above.
In the above output,
in the first record for 700001, the total of 3 and 4 is displayed as total 7 and
for 700010 , it is displayed as 3.
the get the output as above in the alv grid,
I have taken bwkeys in t001k and remaining fields from mbew and joined them in final internal table.
now in the final table ifinal, i have the following fields,
matnr lbkum salk3 bwkey total.
now when i want to display the output, it is displaying as normal output like
mantr bwkey lbkum salk3 total
700001 etap   3         4      7
700002 etap   1        2       3
but i want to display in the first mentioned format.
so i tried to attach the bwkey values in it001k(this is internal table for t001k) for the final field catalog so that this bwkeys are displayed as column headings in the final output. but it is not displaying.
Please suggest me the solution to display the output in the above first mentioned
format as soon as possible
points will be awarded.
thanking u in advance.
A.Srinivas

hi ,
u can set the row count to any number , here I am setting it to 5 using the method set_visible_row_count
1 Change the visible row count to u20185u2019
DATA lo_cmp_usage TYPE REF TO if_wd_component_usage.
lo_cmp_usage =   wd_this->wd_cpuse_alv( ).
IF lo_cmp_usage->has_active_component( ) IS INITIAL.
    lo_cmp_usage->create_component( ).
ENDIF.
DATA lo_interfacecontroller TYPE REF TO iwci_salv_wd_table .
lo_interfacecontroller =   wd_this->wd_cpifc_alv( ).
    DATA lo_value TYPE REF TO cl_salv_wd_config_table.
    lo_value = lo_interfacecontroller->get_model(
    lo_value->if_salv_wd_table_settings~set_visible_row_count( '5' ).
u can also go thru this useful links for CONFIGUIRING ALV :
http://www.sdn.sap.com/irj/sdn/go/portal/prtroot/docs/library/uuid/40794172-b95a-2910-fb98-b86d8a0918b4;jsessionid=(J2EE3417400)ID0488867050DB10849380333905377829End
SAP List Viewer (ALV) [original link is broken]
Configuring ALV
http://www.sdn.sap.com/irj/sdn/go/portal/prtroot/docs/library/uuid/1190424a-0801-0010-84b5-ef03fd2d33d9?overridelayout=true
http://www.sdn.sap.com/irj/scn/go/portal/prtroot/docs/library/uuid/db22242d-0701-0010-28a2-aeaa1fefd706;jsessionid=(J2EE3414800)ID0133346050DB00727847586176044227End?overridelayout=true&bcsi_scan_06B6B0A4B65849C2=0
I hope it shud solve ur query.
regards,
amit

Hi iam getting the alv grid data in excel format but iam facing one problem

hi iam getting the alv grid data in excel format but iam facing one problem ,
i.e., i want it read only but iam getting it in edit mode i use layout default in excel iam getting in xl directly but in edit mode but i need it in read only mode
what i have to do for that and bdy knows reply me i need it urgently.

there's always edit-mode if you choose excel-inplace - but noone can modify/rewrite the data
A.

ALV OO and refreshing the ALV grid

Hi,
i have some problems with my ALV 00 program.
On screen 1 i have to fill in a material number.
For that material i'm getting some data and show in screen 2 in a ALV grid.
Via BACK-button i'm getting back to screen 1 and can fill in another material number.
But the 2nd (and 3rd, etc) time i fill a material, the ALV grid data from material 1 is shown. Even if the internal table I_ALV where the data is, is changed.
What should i do ?
I have initialized the customer container and the grid, but that didn't solved the problem.
regards,
Hans

Hi,
Try clearing and refreshing the alv grid data table in screen 2.
Check with this code. this code is working fine. If we go back and change the input, it is showing the output corresponding to the second input only.
Have you use this method?
 GR_ALVGRID->REFRESH_TABLE_DISPLAY
TYPE-POOLS : SLIS.
* Tables *
TABLES:
VBRK,
VBRP.
* Parameters and select options OR SELECTION SCREEN
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS:
 S_VBELN FOR VBRK-VBELN.
SELECTION-SCREEN END OF BLOCK B1.
* Internal Tables *
* work areas
DATA: BEGIN OF IT_VBRP OCCURS 0,
 VBELN LIKE VBRK-VBELN,
 POSNR LIKE VBRP-POSNR,
 UEPOS LIKE VBRP-UEPOS,
 FKIMG LIKE VBRP-FKIMG,
 NETWR LIKE VBRP-NETWR,
 MEINS LIKE VBRP-MEINS.
DATA : END OF IT_VBRP.
* Variables *
DATA : GR_ALVGRID TYPE REF TO CL_GUI_ALV_GRID,
 GC_CUSTOM_CONTROL_NAME TYPE SCRFNAME VALUE 'CC_ALV',
 GR_CCONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER,
 GT_FIELDCAT TYPE LVC_T_FCAT,
 GS_LAYOUT TYPE LVC_S_LAYO,
 V_FLAG VALUE 'X'.
* Start of Program *
* INITIALIZATION. *
INITIALIZATION.
S_VBELN-LOW = 1.
S_VBELN-HIGH = 1000000000.
S_VBELN-OPTION = 'EQ'.
S_VBELN-SIGN = 'I'.
APPEND S_VBELN.
* SELECTION-SCREEN *
AT SELECTION-SCREEN.
PERFORM VALIDATION.
* START-OF-SELECTION *
START-OF-SELECTION.
PERFORM GET_DATA.
CALL SCREEN 0100.
* END-OF-SELECTION *
END-OF-SELECTION.
* TOP-OF-PAGE *
TOP-OF-PAGE.
* END-OF-PAGE *
END-OF-PAGE.
* AT USER-COMMAND *
*& Form VALIDATION
* text
* --> p1 text
* <-- p2 text
FORM VALIDATION .
SELECT SINGLE VBELN
FROM VBRK
INTO VBRK-VBELN
WHERE VBELN IN S_VBELN.
IF SY-SUBRC <> 0.
 MESSAGE E000 WITH 'no billing documents found'.
ENDIF.
ENDFORM. " VALIDATION
*& Form GET_DATA
* text
* --> p1 text
* <-- p2 text
FORM GET_DATA .
SELECT VBELN
 POSNR
 UEPOS
 FKIMG
 NETWR
 MEINS
FROM VBRP
INTO TABLE IT_VBRP
WHERE VBELN IN S_VBELN.
ENDFORM. " GET_DATA
*& Module DISPLAY_ALV OUTPUT
* text
MODULE DISPLAY_ALV OUTPUT.
IF V_FLAG = 'X'.
 PERFORM DISPLAY_ALV.
 PERFORM PREPARE_FIELD_CATALOG CHANGING GT_FIELDCAT.
 PERFORM PREPARE_LAYOUT CHANGING GS_LAYOUT.
 CALL METHOD GR_ALVGRID->SET_TABLE_FOR_FIRST_DISPLAY
 EXPORTING
* I_BUFFER_ACTIVE =
* I_BYPASSING_BUFFER =
* I_CONSISTENCY_CHECK =
* I_STRUCTURE_NAME = 'VBRP'
* IS_VARIANT =
* I_SAVE =
* I_DEFAULT = 'X'
 IS_LAYOUT = GS_LAYOUT
* IS_PRINT =
* IT_SPECIAL_GROUPS =
* IT_TOOLBAR_EXCLUDING =
* IT_HYPERLINK =
* IT_ALV_GRAPHICS =
* IT_EXCEPT_QINFO =
 CHANGING
 IT_OUTTAB = IT_VBRP[]
 IT_FIELDCATALOG = GT_FIELDCAT
* IT_SORT =
* IT_FILTER =
 EXCEPTIONS
 INVALID_PARAMETER_COMBINATION = 1
 PROGRAM_ERROR = 2
 TOO_MANY_LINES = 3
 OTHERS = 4
 IF SY-SUBRC <> 0.
 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 CALL METHOD GR_ALVGRID->SET_READY_FOR_INPUT
 EXPORTING
 I_READY_FOR_INPUT = 1.
 ELSE.
 CALL METHOD GR_ALVGRID->REFRESH_TABLE_DISPLAY
* EXPORTING
* IS_STABLE =
* I_SOFT_REFRESH =
 EXCEPTIONS
 FINISHED = 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.
 ENDIF.
 CLEAR V_FLAG.
ENDIF.
ENDMODULE. " DISPLAY_ALV OUTPUT
*& Form DISPLAY_ALV
* text
* --> p1 text
* <-- p2 text
FORM DISPLAY_ALV .
IF GR_ALVGRID IS INITIAL.
 CREATE OBJECT GR_ALVGRID
 EXPORTING
* I_SHELLSTYLE = 0
* I_LIFETIME =
 I_PARENT = GR_CCONTAINER
* I_APPL_EVENTS = space
* I_PARENTDBG =
* I_APPLOGPARENT =
* I_GRAPHICSPARENT =
* I_NAME =
 EXCEPTIONS
 ERROR_CNTL_CREATE = 1
 ERROR_CNTL_INIT = 2
 ERROR_CNTL_LINK = 3
 ERROR_DP_CREATE = 4
 OTHERS = 5
 IF SY-SUBRC <> 0.
 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.
ENDIF.
ENDFORM. " DISPLAY_ALV
*& Form PREPARE_FIELD_CATALOG
* text
* <--P_GT_FIELDCAT text
FORM PREPARE_FIELD_CATALOG CHANGING P_GT_FIELDCAT TYPE LVC_T_FCAT.
DATA : LS_FCAT TYPE LVC_S_FCAT,
 L_POS TYPE I.
L_POS = L_POS + 1.
LS_FCAT-FIELDNAME = 'VBELN'.
LS_FCAT-TABNAME = 'IT_VBRP'.
LS_FCAT-COL_POS = L_POS.
LS_FCAT-SCRTEXT_M = 'Billing Document'.
LS_FCAT-OUTPUTLEN = '10'.
APPEND LS_FCAT TO P_GT_FIELDCAT.
CLEAR LS_FCAT.
L_POS = L_POS + 1.
LS_FCAT-FIELDNAME = 'POSNR'.
LS_FCAT-TABNAME = 'IT_VBRP'.
LS_FCAT-COL_POS = L_POS.
LS_FCAT-SCRTEXT_M = 'Billing Item'.
LS_FCAT-OUTPUTLEN = '6'.
APPEND LS_FCAT TO P_GT_FIELDCAT.
CLEAR LS_FCAT.
L_POS = L_POS + 1.
LS_FCAT-FIELDNAME = 'UEPOS'.
LS_FCAT-TABNAME = 'IT_VBRP'.
LS_FCAT-COL_POS = L_POS.
LS_FCAT-SCRTEXT_M = 'Higher Level Item'.
LS_FCAT-OUTPUTLEN = '6'.
APPEND LS_FCAT TO P_GT_FIELDCAT.
CLEAR LS_FCAT.
L_POS = L_POS + 1.
LS_FCAT-FIELDNAME = 'FKIMG'.
LS_FCAT-TABNAME = 'IT_VBRP'.
LS_FCAT-COL_POS = L_POS.
LS_FCAT-SCRTEXT_M = 'Invoice Quantity'.
LS_FCAT-OUTPUTLEN = '13'.
APPEND LS_FCAT TO P_GT_FIELDCAT.
CLEAR LS_FCAT.
L_POS = L_POS + 1.
LS_FCAT-FIELDNAME = 'NETWR'.
LS_FCAT-TABNAME = 'IT_VBRP'.
LS_FCAT-COL_POS = L_POS.
LS_FCAT-SCRTEXT_M = 'Net Value'.
LS_FCAT-OUTPUTLEN = '15'.
APPEND LS_FCAT TO P_GT_FIELDCAT.
CLEAR LS_FCAT.
L_POS = L_POS + 1.
LS_FCAT-FIELDNAME = 'MEINS'.
LS_FCAT-TABNAME = 'IT_VBRP'.
LS_FCAT-COL_POS = L_POS.
LS_FCAT-SCRTEXT_M = 'Unit of Measure'.
LS_FCAT-OUTPUTLEN = '3'.
APPEND LS_FCAT TO P_GT_FIELDCAT.
CLEAR LS_FCAT.
L_POS = L_POS + 1.
ENDFORM. " PREPARE_FIELD_CATALOG
*& Form PREPARE_LAYOUT
* text
* <--P_GS_LAYOUT text
FORM PREPARE_LAYOUT CHANGING P_GS_LAYOUT TYPE LVC_S_LAYO.
P_GS_LAYOUT-ZEBRA = 'X'.
P_GS_LAYOUT-GRID_TITLE = 'INVOICE DETAILS'.
P_GS_LAYOUT-SMALLTITLE = 'X'.
P_GS_LAYOUT-EDIT = 'X'.
ENDFORM. " PREPARE_LAYOUT
*& Module STATUS_0100 OUTPUT
* text
MODULE STATUS_0100 OUTPUT.
SET PF-STATUS 'CANCEL'.
* SET TITLEBAR 'xxx'.
ENDMODULE. " STATUS_0100 OUTPUT
*& Module USER_COMMAND_0100 INPUT
* text
MODULE USER_COMMAND_0100 INPUT.
CASE SY-UCOMM.
 WHEN 'BACK'.
 LEAVE TO SCREEN 0.
 WHEN 'CANCEL'.
 LEAVE TO SCREEN 0.
 WHEN 'EXIT'.
 CALL TRANSACTION 'SE38'.
 WHEN 'CHANGE'.
 IF GR_ALVGRID->IS_READY_FOR_INPUT( ) = 0.
 CALL METHOD GR_ALVGRID->SET_READY_FOR_INPUT
 EXPORTING
 I_READY_FOR_INPUT = 1.
 ELSE.
 CALL METHOD GR_ALVGRID->SET_READY_FOR_INPUT
 EXPORTING
 I_READY_FOR_INPUT = 0.
 ENDIF.
ENDCASE.
Regards,
Aswin

Can we disable the default push buttons on the ALV Grid

Hi,
    Can we disable the default push buttons on the ALV
Grid Control...
    If so, pls send me the procedure...
thanks and regards
   raghu

Hi,
In the PBO:
PERFORM f9100_exclude_functions USING :
                         i_exclude[] '&CHECK',
                         i_exclude[] '&REFRESH',
                         i_exclude[] '&LOCAL&CUT' ,
                         i_exclude[] '&LOCAL&COPY',
                         i_exclude[] '&LOCAL&PASTE',
                         i_exclude[] '&LOCAL&PASTE_NEW_ROW',
                         i_exclude[] '&LOCAL&UNDO' ,
                         i_exclude[] '&LOCAL&APPEND',
                         i_exclude[] '&LOCAL&INSERT_ROW',
                         i_exclude[] '&LOCAL&DELETE_ROW',
                         i_exclude[] '&SORT_ASC',
                         i_exclude[] '&SORT_DSC',
                         i_exclude[] '&FIND',
                         i_exclude[] '&SUMC',
                         i_exclude[] '&SUBTOT',
                         i_exclude[] '&MINIMUM',
                         i_exclude[] '&MAXIMUM' ,
                         i_exclude[] '&VGRID' ,
                         i_exclude[] '&VEXCEL' ,
                         i_exclude[] '&VCRYSTAL',
                         i_exclude[] '&HTML',
                         i_exclude[] '&MAINTAIN',
                         i_exclude[] '&SAVE',
                         i_exclude[] '&GRAPH',
                         i_exclude[] '&HELP',
                         i_exclude[] '&ALL' ,
                         i_exclude[] '&SAL' .
*                         i_exclude[] '&EXCLALLFC'.
*&      Form f9100_exclude_functions
* This form exclude buttons from the toolbar.
*      -->P_IEXCLUDE text
*      -->P_1150   text
FORM f9100_exclude_functions USING   pexclude LIKE i_exclude
                               value(pfunction).
DATA: l_exclude TYPE ui_func.
l_exclude = pfunction.
APPEND l_exclude TO pexclude.
ENDFORM.                    " f9100_exclude_functions
This will exculde the default push buttons.
Let us know if it works for you.
Regards,
Anjali

Capturing the ALV Grid Event

Similar Messages

Maybe you are looking for