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

Similar Messages

How to make a entire column editable in an ALV grid

Hi all,
 I am trying to make a column editable in an ALV grid. For that I wrote the following code. In the below code I have set the 'edit' field of ls_fcat to 'X'. But Iam getting Runtime error. Can anyone help in resolving this problem or suggest any method to make a column editable in an ALV grid.
form prepare_fc changing go_fieldcat type lvc_t_fcat.
data: ls_fcat type lvc_s_fcat.
refresh: go_fieldcat.
clear: ls_fcat.
ls_fcat-reptext = ' Safety Stock Figures'.
ls_fcat-coltext = 'Safety Stock Figures'.
ls_fcat-fieldname = 'EISBE'.
ls_fcat-ref_table = 'IMAT'.
ls_fcat-edit = 'X'.
modify go_fieldcat from ls_fcat.
APPEND LS_FCAT TO GO_FIELDCAT.
endform.
Thanks & Regards,
Vishnu Priya.

ls_fcat-edit = 'X'.
is correct only.
have a look into this code
struct_grid_lset TYPE lvc_s_layo,
i_grid_fcat TYPE lvc_t_fcat
DATA ls_fcat TYPE lvc_s_fcat.
CLEAR ls_fcat.
ls_fcat-fieldname = 'MONTH'.
ls_fcat-ref_table = 'TYPE'.
ls_fcat-ref_field = 'C'.
 ls_fcat-edit = 'X'.
ls_fcat-coltext = text-030."Month
ls_fcat-seltext = text-030.
APPEND ls_fcat TO p_i_grid_fcat.
CLEAR ls_fcat.
ls_fcat-fieldname = 'YEAR'.
ls_fcat-ref_table = 'TYPE'.
ls_fcat-ref_field = 'C'.
ls_fcat-coltext = text-031."Year
ls_fcat-seltext = text-031.
APPEND ls_fcat TO p_i_grid_fcat.
CALL METHOD o_grid->set_table_for_first_display
 EXPORTING
 i_bypassing_buffer = space
 is_variant = ws_f_grid_disvar
 i_save = ws_c_grid_save
 is_layout = struct_grid_lset
 CHANGING
 it_outtab = i_grid_outs[]
 it_fieldcatalog = i_grid_fcat[]
 it_sort = i_sort_fcat. " Period
Also Check this code.Another way using field symbols.
i_fieldcat TYPE lvc_t_fcat,
 w_layout TYPE lvc_s_layo ,
 w_variant TYPE disvariant.
FIELD-SYMBOLS : <lfs_fieldcat> TYPE lvc_s_fcat.
*Default display
LOOP AT p_fieldcat ASSIGNING <lfs_fieldcat>.
 CASE <lfs_fieldcat>-fieldname.
 WHEN 'GL_ACCT'.
 <lfs_fieldcat>-coltext = text-050.
 <lfs_fieldcat>-no_out = ' '.
 <lfs_fieldcat>-scrtext_l = text-050.
 <lfs_fieldcat>-edit = 'X'.
WHEN OTHERS.
 ENDCASE.
ENDLOOP.
Hope this helps.

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

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

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.

One editable cell in alv grid using function module

Hello all,
Any one have an idea how to make a single editable cell in alv grid using function module, i mean to say
with out using object oriented programming.
Regards,
Prakash

Hi,
Using ALV List display it is possible.
Try this.
TYPE-POOLS:SLIS.
DATA: X_FIELDCAT TYPE SLIS_FIELDCAT_ALV.
DATA: IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.
DATA:IT_EVENTS TYPE SLIS_T_EVENT.
data: begin of it_chg occurs 0,
 index type sy-tabix,
 end of it_chg.
DATA: X_EVENTS TYPE SLIS_ALV_EVENT.
DATA: BEGIN OF ITAB OCCURS 0,
 NAME(10) TYPE C,
 ZTERM TYPE C,
 END OF ITAB.
PERFORM FILL_TABLE.
loop at itab where zterm = 'A'.
it_chg-index = sy-tabix + 3.
" addition 3 IS FOR FIELD LABELS
append it_chg.
clear it_chg.
endloop.
DATA:L_POS TYPE I VALUE 1.
CLEAR: L_POS.
L_POS = L_POS + 1.
**fieldcatalog
X_FIELDCAT-FIELDNAME = 'NAME'.
X_FIELDCAT-TABNAME = 'ITAB'.
X_FIELDCAT-COL_POS = L_POS.
X_FIELDCAT-OUTPUTLEN = '10'.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
L_POS = L_POS + 1.
X_FIELDCAT-FIELDNAME = 'ZTERM'.
X_FIELDCAT-TABNAME = 'ITAB'.
X_FIELDCAT-COL_POS = L_POS.
X_FIELDCAT-OUTPUTLEN = '10'.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
**events
REFRESH:IT_EVENTS.
CLEAR:X_EVENTS,IT_EVENTS.
X_EVENTS-NAME = SLIS_EV_END_OF_LIST.
X_EVENTS-FORM = 'MODIFY_LIST'.
APPEND X_EVENTS TO IT_EVENTS.
CLEAR X_EVENTS.
END-OF-SELECTION.
data lv_repid type sy-repid.
lv_repid = sy-repid.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
 EXPORTING
 I_CALLBACK_PROGRAM = lv_REPID
 IT_FIELDCAT = IT_FIELDCAT
 IT_EVENTS = IT_EVENTS
 TABLES
 T_OUTTAB = ITAB
 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.
*& Form FILL_TABLE
 text
FORM FILL_TABLE.
ITAB-NAME = 'AAA'.
ITAB-ZTERM = 'A'.
APPEND ITAB.
clear itab.
ITAB-NAME = 'ABC'.
ITAB-ZTERM = 'B'.
APPEND ITAB.
clear itab.
ITAB-NAME = 'TEST'.
ITAB-ZTERM = 'C'.
APPEND ITAB.
clear itab.
ITAB-NAME = 'BBB'.
ITAB-ZTERM = 'D'.
APPEND ITAB.
clear itab.
ITAB-NAME = '123'.
ITAB-ZTERM = 'E'.
APPEND ITAB.
clear itab.
ITAB-NAME = 'GEN'.
ITAB-ZTERM = 'A'.
APPEND ITAB.
clear itab.
ITAB-NAME = 'ALV'.
ITAB-ZTERM = 'F'.
APPEND ITAB.
clear itab.
ITAB-NAME = 'ALVTEST'.
ITAB-ZTERM = 'A'.
APPEND ITAB.
clear itab.
ENDFORM. "FILL_TABLE
*& Form MODIFY_LIST
 text
FORM MODIFY_LIST.
data: l_lines type i.
describe table itab lines l_lines.
L_LINES = L_LINES + 3.
"because we have 3 lines extra occupied by lables.
"if we have header,i mean top of page add the no.of lines
"how many ever top of page have + 3 for labels.
DO L_LINES TIMES.
 read table it_chg with key INDEX = sy-index.
 if sy-subrc = 0.
**This code is for reading the out put line
**and modify accordinlg to our requiremnet.
**don't chnage this.
 READ LINE SY-INDEX INDEX SY-LSIND.
 IF SY-SUBRC = 0.
 MODIFY LINE SY-INDEX INDEX SY-LSIND
 FIELD FORMAT ITAB-NAME INPUT.
 ENDIF.
 ENDIF.
ENDDO.
ENDFORM. "MODIFY_LIST

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.

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

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 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

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

Fit the ALV grid to the monitor size

Hi all,
Please let me know how i can fit the ALV grid to the monitor size of the user. That is The grids should be layered and expanded to the full width of the users monitor.
Thanks in advance
Jey Sabith Ebron

Hi Jey,
You can fit ALV grid to monitor size by defining the container as docking container.
In this case, you neednot create a custom container .
You can use the following code:
CONSTANTS: lc_height TYPE i VALUE 1200.
DATA: go_container TYPE REF TO cl_gui_docking_container,
 go_alv_tree TYPE REF TO cl_gui_alv_tree.
 CREATE OBJECT go_container
 EXPORTING
 repid = sy-repid
 dynnr = sy-dynnr
 side = 2 " Top
 extension = lc_height
 metric = 1 " Pixel
 EXCEPTIONS
 cntl_error = 1
 cntl_system_error = 2
 create_error = 3
 lifetime_error = 4
 lifetime_dynpro_dynpro_link = 5
 OTHERS = 6.
 IF sy-subrc <> 0.
 MESSAGE x398(00) WITH 'ERROR'(100).
 ENDIF.
CREATE OBJECT go_alv_tree
 EXPORTING
 parent = go_container
 node_selection_mode = cl_gui_column_tree=>node_sel_mode_single
 item_selection = c_x
 no_toolbar = ''
 EXCEPTIONS
 cntl_error = 1
 cntl_system_error = 2
 create_error = 3
 lifetime_error = 4
 illegal_node_selection_mode = 5
 failed = 6
 illegal_column_name = 7.
IF sy-subrc <> 0.
 MESSAGE x398(00) WITH 'ERROR'.
ENDIF.
Code above is for ALV tree.
You can define any ALV grid object using docking container.
This will solve your problem.
Let me know if you face any issues.
Thanks,
Nisha Vengal.

Urgent : how to select the rows in the ALV Grid Control

How to select the rows in the ALV Grid control,
I am facing the situation where i need to select the row/rows in the Grid control and then to lock the entries,
If anyone have the solution please help me out
Its very Urgent

Hi Bharath,
Go through this hope u can understand.
SEL_MODE. Selection mode, determines how rows can be selected. Can have the following values:
A Multiple columns, multiple rows with selection buttons.
B Simple selection, listbox, Single row/column
C Multiple rows without buttons
D Multiple rows with buttons and select all ICON
Setting and getting selected rows (Columns) and read line contents
You can read which rows of the grid that has been selected, and dynamic select rows of the grid using methods get_selected_rows and set_selected_rows. There are similar methods for columns.
Note that the grid table always has the rows in the same sequence as displayed in the grid, thus you can use the index of the selected row(s) to read the information in the rows from the table. In the examples below the grid table is named gi_sflight.
Data declaration:
DATA:
Internal table for indexes of selected rows
gi_index_rows TYPE lvc_t_row,
Information about 1 row
g_selected_row LIKE lvc_s_row.
Example 1: Reading index of selected row(s) and using it to read the grid table
CALL METHOD go_grid->get_selected_rows
 IMPORTING
 et_index_rows = gi_index_rows.
DESCRIBE TABLE gi_index_rows LINES l_lines.
IF l_lines = 0.
 CALL FUNCTION 'POPUP_TO_DISPLAY_TEXT'
 EXPORTING
 textline1 = 'You must choose a valid line'.
 EXIT.
ENDIF.
LOOP AT gi_index_rows INTO g_selected_row.
 READ TABLE gi_sflight INDEX g_selected_row-index INTO g_wa_sflight.
 ENDIF.
ENDLOOP.
Example 2: Set selected row(s).
DESCRIBE TABLE gi_index_rows LINES l_lines.
IF l_lines > 0.
 CALL METHOD go_grid->set_selected_rows
 exporting
 it_index_rows = gi_index_rows.
ENDIF.
Reward points if helpful.
Thanks
Naveen khan

How to make the editable col. in alv grid scrollable?

friends,
    i have made the last col. in my alv grid editable..even though i have declared it as char of length 255, it's showing only 50 characters in the grid..but when i try to type beyond 50 characters, it's not allowing...how to make it scrollable so that it extends beyond 50 char. and capture all the characters typed in that col.? pl suggest..thanks all..
Sathish. R

Hi, u can extend the length of your last field.
LOOP AT t_fieldcat INTO ls_fcat.
    CASE ls_fcat-fieldname.
      WHEN text-001.
        ls_fcat-outputlen = c_10.                    "10
      WHEN text-002.
        ls_fcat-outputlen = c_20.                    "20
      WHEN text-003.                                  "your lastfield
        ls_fcat-outputlen = c_255.                  "255
            "do nothing
    ENDCASE.
*fixed column
    ls_fcat-fix_column = c_x.
*changes to take effect
    MODIFY t_fieldcat FROM ls_fcat.
    IF sy-subrc = 0.
      "do nothing
    ENDIF.
    CLEAR ls_fcat.
ENDLOOP.

Editing of the ALV grids

Similar Messages

Maybe you are looking for