ALV GRID ONE LINE EDIT

Hi,
I have a ALV grid where I have a column as a editable. Now the problem is ALV grid is displaying 2 rows and only first line should be editable. Any idea how to do.
KK.

Hi,
1. * Type of final output table
TYPES : BEGIN OF ty_output.
 INCLUDE STRUCTURE zjay_alv.
For cell editing and displaying cell as push button
TYPES : cellstyles TYPE lvc_t_styl ,
 END OF ty_output.
data itab2 TYPE STANDARD TABLE OF ty_output.
2. w_layout-stylefname = 'CELLSTYLES' ."
3. CLEAR : wa2, w_style.
 READ TABLE itab2 INTO wa2 index 2.
 IF sy-subrc EQ 0.
 w_style-fieldname = 'ERSDA'.
 w_style-style = cl_gui_alv_grid=>mc_style_disabled.
 REFRESH wa2-cellstyles.
 APPEND w_style TO wa2-cellstyles.
 MODIFY itab2 FROM wa2 TRANSPORTING cellstyles
 WHERE matnr = wa2-matnr.
 ENDIF.
4. CALL METHOD o_grid->set_table_for_first_display
 EXPORTING
 is_layout = w_layout
 CHANGING
 it_outtab = itab2
 it_fieldcatalog = i_fieldcat.
Kindly reward points by clicking the star on the left of reply,if it helps.

Similar Messages

ALV Grid Insert Line - Dumps only on certain computers

We have some ALV Grids in our program. Every time i open one my computer the first cell is marked, so the insert line function just adds another line. But on an other computer, the frist cell is somehow not marked, which leads to a dump on inserting a line, cause the return parameter for the row_idx is not filled. First i thought it's the user, but it isn't.
So i guess that the GUI might be at fault, how could i determin the differences? Or is there a setting for that?
Edited by: Robert Graf on Oct 30, 2008 1:35 PM

Hello Robert
When you open the SAP LogonPad then you find a symbol in the left upper corner. Click on it (left mouse) and choose function "About SAP Logon..." (Über SAP Logon...).
Then you see the exact version, build and patch-level of your SAP-GUI.
Regards
Uwe

ALV grid total line customizing

Dear Masters,
I need a solution for my problem. I need to modify sorting of subtotal and grand total based on currency which criteria i create myself. The standard alv output sort total by currency based on alpahabetical order, e.g: AUD, EUR, IDR, USD. I need to change the sorting into IDR, USD, AUD, EUR. How can i do it in alv grid?
I also like to add new line after grand total line, which is grand total in Local Currency, in this case, in IDR, which rate given. I can get the figure of subtotal, but i don't know how to append new line after grand total line output in alv standard.
Need your suggestion.
Many thanks,
Tiara

Hi,
I have used object oriented ALV. You can remove final total line and have sub total lines. Code below can help you.
1) Fieldcatalog you can do sum for currency values
2) Sort Build you can have sub totals.
3) layout_init you can remove final total line.
4) CALL METHOD grid->set_table_for_first_display you can pass above structure for excepted Result.
fieldcatalog_init
FORM fieldcatalog_init USING lt_fieldcatalog TYPE lvc_t_fcat
 value(field_name) value(field_type) value(field_text) value(field_key).
DATA: ls_fieldcatalog TYPE lvc_s_fcat.
CLEAR ls_fieldcatalog.
ls_fieldcatalog-fieldname = field_name.
ls_fieldcatalog-datatype = field_type.
ls_fieldcatalog-reptext = field_text.
ls_fieldcatalog-coltext = field_text.
ls_fieldcatalog-seltext = field_text.
ls_fieldcatalog-tooltip = field_text.
ls_fieldcatalog-key = field_key.
IF field_type = 'CURR'.
 ls_fieldcatalog-do_sum = 'X'.
ENDIF.
APPEND ls_fieldcatalog TO lt_fieldcatalog.
ENDFORM. "fieldcatalog_init
sort_build
FORM sort_build USING lt_sort TYPE lvc_t_sort.
DATA: ls_sort TYPE lvc_s_sort.
ls_sort-fieldname = 'BUKRS'. "Fieldname on which to sort
ls_sort-subtot = 'X'.
ls_sort-up = 'X'. "Sort Ascending
APPEND ls_sort TO lt_sort.
IF p_comp <> 'X'.
 ls_sort-fieldname = 'LIFNR'. "Fieldname on which to sort
 ls_sort-subtot = 'X'.
 ls_sort-up = 'X'. "Sort Ascending
 APPEND ls_sort TO lt_sort.
ENDIF.
ls_sort-fieldname = 'WAERS'. "Fieldname on which to sort
ls_sort-subtot = 'X'.
ls_sort-up = 'X'. "Sort Ascending
APPEND ls_sort TO lt_sort.
ENDFORM. "sort_build
layout_init
FORM layout_init USING ls_layout TYPE lvc_s_layo.
DATA lv_date(10) TYPE c.
WRITE sy-datum TO lv_date.
IF p_line = 'X'.
 CONCATENATE 'Line Item wise Report as on' lv_date INTO w_string2 SEPARATED BY space.
ELSEIF p_vend = 'X'.
 CONCATENATE 'Vendor Summary Report as on' lv_date INTO w_string2 SEPARATED BY space.
ELSEIF p_comp = 'X'.
 CONCATENATE 'Company Summary Report as on' lv_date INTO w_string2 SEPARATED BY space.
ENDIF.
ls_layout-zebra = 'X'.
ls_layout-grid_title = w_string2.
ls_layout-sel_mode = 'A'.
ls_layout-no_merging = 'X'.
ls_layout-cwidth_opt = 'X'.
ls_layout-no_totline = 'X'.
IF p_line = 'X'.
 ls_layout-ctab_fname = 'COLINFO'.
ENDIF.
ENDFORM. "layout_init
 CALL METHOD grid->set_table_for_first_display
 EXPORTING
 is_layout = gs_layout
 is_variant = va_layout "&see below
 i_save = 'A' "&see below
 i_default = ''
 CHANGING
 it_outtab = it_apout[]
 it_fieldcatalog = gt_fieldcatalog
 it_sort = gt_sort.
Edited by: Himanshu Dave on May 11, 2009 2:33 PM

ALV Grid Details Screen Editable

Hi All,
I have requirement to Edit the ALV grid.
ie I have ALV grid , after selecting (highlighting a line ), the user will go to the details screen, i need to be the details screen
should be editable. Please give info about this.
Thanks
aRs

My problem is if you put details screen also displayed in horizontal way. I need to display the fields in vertical order.and it should editable
If you press details icon the grid, you see the selected records displays like the following , but i need to editable
eg.
Number     : XXXXXX
Desc        :   XXXXXXXXXXXXXXXXX
Name        : XXXXXXXXXXXXXXXXX
Thanks
aRs

ALV grid case-sensitive edit field

Hello,
i've a editable field on a alv grid.
The field is case-sensitive in the domain.
But when i enter a field an click rturn, the letters get uppercase.
What's the problem?
Best regards,
TomSd

Hi,
Add the attribute lowercase = 'X' while preapring field catalog for this field.
Regards,
Gopi.
Reward points if helpfull.

ALV Grid fields from editable to non-editable mode

Hi,
I am displaying my data through ALV Grid. In my grid the non-key fields are in editable mode.
When I edit any of the editable fields and place the cursor on other field the field which I have edited should become disable(non-editable). Again if I want to edit the same field which is now in non-editable mode should again change to editable mode when the cursor is placed on it.
Thanks & Regards,
Adithya M.

Hi Adithya,
I am confused by your statement "place the cursor on other field the field which I have edited should become disable" -- are you stating that this is the requirement or what is currently happening with your program. The way the edit fields should work by default is they are editable at all times unless you tell it otherwise.
If you are saying your requirement is to change the field to disabled once the field is edited (runtime change), first you want to handle the event on data changed then within your method of handling on data changed, you can disable the field from being edited by using cell styles and changing the value to disabled.
If you look at program BCALV_GRID_EDIT,
You will find code where it disables the field for edit using Cell Style -- this will give you an idea how Cell Style controls editable fields and display fields:
        ls_cell-style = cl_gui_alv_grid=>mc_style_enabled.
        ls_cell-maxlen = 4.
        ls_cell-fieldname = 'CARRNAME'.
        append ls_cell to gt_sflight-cell.
This specific code will set the field disabled when the program is first exectued, in your case if you need to do this at run time, after someone edits the field, you need to implement handling the event on data changed, in the same program you will find:
method handle_data_changed.
   perform data_changed using er_data_changed.
endmethod.
It is within this method that you can disable a field for editing.
However, once it is disabled you will not get back into the handle_data_changed method. I'm not sure I understand your statement "Again if I want to edit the same field which is now in non-editable mode should again change to editable mode when the cursor is placed on it." Why would you want the user to be able to edit something, then show it disabled, then let them click on it and edit it again? Why not just leave it in edit mode? Maybe if I understand the requirement better, I can answer this portion of the question.
If this is based on security or changing from edit to display for the entire grid, you can run the same program mentioned above and click on the Change/Display button in the top left to see how it enables and disables the entire grid for editing.
Cheers,
Bonnie

Powl- how to make one line editable for 'Insert line' button

Hi,
I have a powl in which I have two buttons of 'Insert Line' & 'Save'.
Now in my result table - c_result_tab - I need to give one editable line, in which user can enter new record.
& after entering it when they click on 'SAVE' i'll append the record in c_result_tab.
Now my Que is - How to give Editable Line in ALV Display table of POWL, where User can enter New Record ??
or is there any other std. procedure, like popup or something - which can help to enter record in same format as c_result_tab.??

z-order for what? the Canvas class itself? It's AWT, so why would they be adding to that? For Graphics? That's not really needed, since to paint you have to override paint in a subclassed component and in there by definition you can fully control your painting.

ALV grid disply with edit columns in output

Hi all,
i am using CALL METHOD MY_GRID->SET_TABLE_FOR_FIRST_DISPLAY
to display the output in alv format.there is 3 edit columns in output display.
if i fill one field & then put 'ENTER' then other two fields of that row should be filled with the appropriate data from the program.still control should be in output display.
which method i should use to go inside the program when i put 'ENTER' on any field of ALV output disply & how to use those methods inside the program.
i need some materials regarding OOPS (class, method ) . now i want to put OOPS concept in alv display.
correct answers will be rewarded.
Thanks & regards

Hi,
Check,
OOPS
http://help.sap.com/saphelp_nw2004s/helpdata/en/ce/b518b6513611d194a50000e8353423/frameset.htm
ABAP Objects
https://www.sdn.sap.com/irj/sdn/go/portal/prtroot/docs/webcontent/uuid/35eaef9c-0b01-0010-dd8b-e3b0f9ed7ccb#section7 [original link is broken]
check the below links lot of info and examples r there for OOPS
http://www.sapgenie.com/abap/OO/index.htm
http://www.geocities.com/victorav15/sapr3/abap_ood.html
http://www.brabandt.de/html/abap_oo.html
http://www.sapgenie.com/abap/OO/
http://www.sapgenie.com/abap/OO/index.htm
http://help.sap.com/saphelp_nw04/helpdata/en/c3/225b5654f411d194a60000e8353423/content.htm
http://www.esnips.com/doc/375fff1b-5a62-444d-8ec1-55508c308b17/prefinalppt.ppt
Reward if helpful.

Multiple Lines in a Single ALV Grid Cell

Is there any way to Display Multiple Lines in a Single ALV Grid Cell.
This can be accomplished by Sorting the First 3 fields and Make it Looks like below displayed format.
But My problem is while downloading also it should be Displayed in the same format.
All inputs are highly appreciated.

there was a post similar to this some days back... search it..
any ways...
what u can do is...
arrange ur final internal table so that it will look like same line...
like...lets say ur internal table is :
A1 B1 C1 D1 123
A1 B1 C2 D2 123
A1 B2 C1 D1 123
A1 B2 C2 D2 123
and u can rearrange ur table to be like
A1 B1 C1 D1 123
C2 D2 123
A1 B2 C1 D1 123
C2 D2 123
what i mean to say is dont pass the fields if they are same in the previous line... try it out..
and then pass it two ur ALV.
it will look like they are in one line
Edited by: soumya prakash mishra on Jun 17, 2009 1:31 PM

ALV Grid editable fields

Hello,
I got a dynpro with 3 ALV grids. I edit a value of grid 3, then I execute a pushbutton of grid 1. The value of grid 3 is resetted then.
What should I do to keep the value?
Reward points guaranteed.
Regards
René

Sounds like the event handler method for event data_changed is not being fired. In one of my programs, I am registering the "ENTER" key, the user must hit enter after editing the field to fire the data_changed event.
* Set for first display
 call method alv_grid->set_table_for_first_display
 exporting
 is_layout = lt_layout
 it_toolbar_excluding = lt_exclude
 changing
 it_outtab = ialv[]
 it_fieldcatalog = fieldcat[].
* If cancelling points, register "ENTER" as event
* and create the event receiver
 call method alv_grid->register_edit_event
 exporting
 i_event_id = cl_gui_alv_grid=>mc_evt_enter.
* create Event Receiver
 create object event_receiver.
* handler for ALV grid
 set handler event_receiver->handle_data_changed for alv_grid.
Do this records the changes that the user has made. I believe that this must be done before you start the processing of the button on Grid1.
Regards,
Rich Heilman

ALV Grid Editable

How to make the ALV grid data as editable ?
Regards
Badari

In the field catalog, set the EDIT field to X for whichever field you want to be editable.
Regards,
Ravi
Note : Please mark all the helpful answers

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

Reg: CheckBox in ALV Grid Display

Hi all,
My requirement is to display checkbox field in ALV Grid which is editable.
And i also need to get all the records that i have selected in ALV grid.
How can i do it. Kindly Help me with sample codes.
Its Urgent.
<REMOVED BY MODERATOR>
Regards
Naveen
Edited by: Alvaro Tejada Galindo on Feb 18, 2008 5:41 PM

Hi,
First declare ur itab with the first field of length 1 char,
Dont mention dat in the field cat.
Give that field name and itab name in the layout.
as
is_layout-box_fieldname = 'CHECK'.
is_layout-box_tabname = 'IT_FINAL'.
u can dispaly ur checkbox in the output dispaly.
now to read the selected checkboxes u need to read the display with the syntax..
first describe the table + headre length = w_count.
FORM sub_read_checkbox.
DATA: w_cbox TYPE char1.
REFRESH : it_mail,it_text,it_selected.
REFRESH : it_selected.
DO w_count TIMES.
 READ LINE sy-index FIELD VALUE : is_final-cbox INTO w_cbox.
 IF w_cbox = c_x.
 READ TABLE it_header INTO is_header WITH KEY lifnr = is_header-lifnr
 u_r = is_header-u_r.
 IF sy-subrc = 0.
 APPEND is_header TO it_selected .
 CLEAR: is_header,w_cbox.
 ENDIF.
 ENDIF.
ENDDO.
endform.
This serves ur purpose.
Regards............

Disabling push button column cell on alv grid control (OOABAP)

Hello All,
I have a requirement where I need to add one column as pushbutton in alv grid display. I have done that and it's triggering button_click event also. The problem here is that I want the few push button cells of that column to be disbaled (depending on my requirement). I tried using a internal table lvc_t_styl and adding a field of same lvc_t_styl in my main internal table. This works for all other fields (e.g disbaling checkbox in alv grid and other editable fields) but not for push buttons. My exact requirement is that I want some of the cells of pushbutton column to be grayed out (made inactive). Can anyone tell me how to do that. Thanks.
Note:Helpful answers will be duly rewarded.
null

Hi,
I had the same problem.
what I did I just added the cl_gui_alv_grid=>mc_style_button at each row of the data table instead of adding it at the field catalog level.
Hope this solve your problem.
Thanks,
Harish

Display only cell in ALV Grid in OO

Hi Folks,
Hope someone can help me with this little issue. I have a series of columns in my ALV grid that are editable, but I need to a) make some of the cells on specific lines uneditable and b) display time based fields on this line as blank (presently they shoe 00:00:00).
For problem a) I have set the layout style frame as 'cellstyles'
 es_layout-stylefname = 'CELLSTYLES'.
I have also set the edit flag in the field catalog for the individual columns to 'X' eg
 WHEN 'CUSTTS_DATE_N'.
 ls_fieldcat-edit = 'X'.
And coded:
 gwa_stylerow-fieldname = 'CUSTTS_DATE_N'.
 gwa_stylerow-style = cl_gui_alv_grid=>mc_style_disabled.
 APPEND gwa_stylerow TO gt_stylerow.
 wa_delivery_list-cellstyle[] = gt_stylerow[].
 APPEND wa_delivery_list TO it_delivery_list.
Yet, the ALV cells are still being displayed as editable. Can't for the life of me figure out what's missing. The only other thought I had around this is that the wa_delivery_list-cellstyle table is being set in the data extraction code, before the ALV grid is built, and that the cell formats are being overwritten/on not being called by the field catalog entries. Any thoughts on how to make these fields/cells display only when the ALV is first displayed would be greatly appreciated.
As for option b) I'm clueless, as the cell style commands are not being picked up (see problem a.). Again any thoughts would be appreciated, and points will be rewarded for solutions/suggestions that lead to solutions.
Cheers,
Stephen Keam

Hello Stephen
I have created a simple report ZUS_SDN_ALV_EDITABLE_1B which shows how to use editability on cell level.
The crucial parts of the coding for your requirements are shown below, followed by the entire report.
READ TABLE gt_fcat INTO ls_fcat
 WITH KEY fieldname = 'UPTIM'.
IF ( syst-subrc = 0 ).
 DELETE gt_fcat INDEX syst-tabix.
 ls_fcat-no_zero = abap_true. " suppresses 00:00:00
 INSERT ls_fcat INTO gt_fcat INDEX 7.
ENDIF.
*& Form SET_CELL_EDITABLE
* text
* --> p1 text
* <-- p2 text
FORM set_cell_editable .
* define local data
DATA: ld_idx TYPE i,
 ls_outtab TYPE ty_s_outtab,
 ls_style TYPE lvc_s_styl.
LOOP AT gt_outtab INTO ls_outtab.
 ld_idx = syst-tabix.
 REFRESH: ls_outtab-celltab.
 " NOTE: if you change the year of column ERDAT to 2008 then two columns will become non-editable
 IF ( ls_outtab-erdat+0(4) = '2008' ).
 CLEAR: ls_style.
 ls_style-fieldname = 'UPDAT'.
 ls_style-style = cl_gui_alv_grid=>mc_style_disabled.
 INSERT ls_style INTO TABLE ls_outtab-celltab.
 CLEAR: ls_style.
 ls_style-fieldname = 'UPTIM'.
 ls_style-style = cl_gui_alv_grid=>mc_style_disabled.
 INSERT ls_style INTO TABLE ls_outtab-celltab.
 ELSE.
 ENDIF.
 MODIFY gt_outtab FROM ls_outtab INDEX ld_idx
 TRANSPORTING celltab.
ENDLOOP.
ENDFORM. " SET_CELL_EDITABLE
*& Report ZUS_SDN_ALV_EDITABLE
*& Thread: Display only cell in ALV Grid in OO
*& <a class="jive_macro jive_macro_thread" href="" __jive_macro_name="thread" modifiedtitle="true" __default_attr="765083"></a>
* Flow logic of screen '100' (no elements, ok-code => gd_okcode ):
**PROCESS BEFORE OUTPUT.
** MODULE STATUS_0100.
**PROCESS AFTER INPUT.
** MODULE USER_COMMAND_0100.
*& GUI-Status: ok-codes BACK, EXIT, CANC
REPORT zus_sdn_alv_editable_1b.
TYPE-POOLS: abap.
CONSTANTS:
gc_tabname TYPE tabname VALUE 'KNB1'.
TYPES: BEGIN OF ty_s_outtab.
INCLUDE TYPE knb1 AS knb1.
TYPES: celltab TYPE lvc_t_styl.
TYPES: END OF ty_s_outtab.
TYPES: ty_t_outtab TYPE STANDARD TABLE OF ty_s_outtab
 WITH DEFAULT KEY.
DATA:
gd_okcode TYPE ui_func,
gd_repid TYPE syst-repid,
gt_fcat TYPE lvc_t_fcat,
gs_layout TYPE lvc_s_layo,
gs_variant TYPE disvariant,
go_docking TYPE REF TO cl_gui_docking_container,
go_grid TYPE REF TO cl_gui_alv_grid.
DATA:
gs_outtab TYPE ty_s_outtab,
gt_outtab TYPE ty_t_outtab,
gt_outtab_pbo TYPE ty_t_outtab.
DATA:
gd_answer TYPE c.
* CLASS lcl_eventhandler DEFINITION
CLASS lcl_eventhandler DEFINITION.
PUBLIC SECTION.
 CLASS-METHODS:
 handle_data_changed
 FOR EVENT data_changed OF cl_gui_alv_grid
 IMPORTING er_data_changed.
ENDCLASS. "lcl_eventhandler DEFINITION
* CLASS lcl_eventhandler IMPLEMENTATION
CLASS lcl_eventhandler IMPLEMENTATION.
METHOD handle_data_changed.
 " Just trigger PAI followed by PBO
 CALL METHOD cl_gui_cfw=>set_new_ok_code
 EXPORTING
 new_code = 'REFRESH'
* IMPORTING
* rc =
ENDMETHOD. "handle_data_changed
ENDCLASS. "lcl_eventhandler IMPLEMENTATION
START-OF-SELECTION.
SELECT * FROM (gc_tabname) INTO CORRESPONDING FIELDS
 OF TABLE gt_outtab UP TO 99 ROWS.
gt_outtab_pbo = gt_outtab. " set PBO data
PERFORM init_controls.
* ok-code field = GD_OKCODE
CALL SCREEN '0100'.
END-OF-SELECTION.
*& Form INIT_CONTROLS
* text
* --> p1 text
* <-- p2 text
FORM init_controls .
* 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_grid
 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.
" NOTE: not required
* set handler:
* lcl_eventhandler=>handle_data_changed for go_grid.
* Build fieldcatalog and set hotspot for field KUNNR
PERFORM build_fieldcatalog.
PERFORM set_layout_and_variant.
PERFORM set_cell_editable.
*§3.Optionally register ENTER to raise event DATA_CHANGED.
* (Per default the user may check data by using the check icon).
CALL METHOD go_grid->register_edit_event
 EXPORTING
 i_event_id = cl_gui_alv_grid=>mc_evt_enter.
SET HANDLER: lcl_eventhandler=>handle_data_changed FOR go_grid.
* Display data
CALL METHOD go_grid->set_table_for_first_display
 EXPORTING
 is_layout = gs_layout
 is_variant = gs_variant
 i_save = 'A'
 CHANGING
 it_outtab = gt_outtab
 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.
* NOTE:
* Documenation of I_SAVE ("An Easy Reference for ALV Grid Control")
*I_SAVE
*Determines the options available to the user for saving a layout:
*? 'X': global saving only
*? 'U': user-specific saving only
*? 'A': corresponds to 'X' and 'U'
*? SPACE: no saving
* Link the docking container to the target dynpro
gd_repid = syst-repid.
CALL METHOD go_docking->link
 EXPORTING
 repid = gd_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.
ENDFORM. " INIT_CONTROLS
*& 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.
" NOTE: retrieve changed data from frontend (grid control) into
" the backend (itab in ABAP)
go_grid->check_changed_data( ).
CASE gd_okcode.
 WHEN 'BACK' OR
 'EXIT' OR
 'CANC'.
 SET SCREEN 0. LEAVE SCREEN.
 WHEN 'REFRESH'.
 PERFORM set_cell_editable.
 " NOTE: Refresh required
 CALL METHOD go_grid->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.
 WHEN 'SAVE'.
 IF ( gt_outtab = gt_outtab_pbo ).
 MESSAGE 'No data changed' TYPE 'S'.
 ELSE.
 CLEAR: gd_answer.
 CALL FUNCTION 'POPUP_TO_CONFIRM'
 EXPORTING
* TITLEBAR = ' '
* DIAGNOSE_OBJECT = ' '
 text_question = 'Save data?'
* TEXT_BUTTON_1 = 'Ja'(001)
* ICON_BUTTON_1 = ' '
* TEXT_BUTTON_2 = 'Nein'(002)
* ICON_BUTTON_2 = ' '
* DEFAULT_BUTTON = '1'
* DISPLAY_CANCEL_BUTTON = 'X'
* USERDEFINED_F1_HELP = ' '
* START_COLUMN = 25
* START_ROW = 6
* POPUP_TYPE =
* IV_QUICKINFO_BUTTON_1 = ' '
* IV_QUICKINFO_BUTTON_2 = ' '
 IMPORTING
 answer = gd_answer
* TABLES
* PARAMETER =
 EXCEPTIONS
 text_not_found = 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.
 IF ( gd_answer = '1' ). " yes
 MESSAGE 'Data successfully saved' TYPE 'S'.
 gt_outtab_pbo = gt_outtab. " update PBO data !!!
 ELSE.
 MESSAGE 'Action cancelled by user' TYPE 'S'.
 ENDIF.
 ENDIF.
 WHEN OTHERS.
ENDCASE.
CLEAR: gd_okcode.
ENDMODULE. " USER_COMMAND_0100 INPUT
*& Form BUILD_FIELDCATALOG
* text
* --> p1 text
* <-- p2 text
FORM build_fieldcatalog .
* define local data
DATA:
 ls_fcat TYPE lvc_s_fcat.
CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
 EXPORTING
* I_BUFFER_ACTIVE =
 i_structure_name = gc_tabname
* 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.
ls_fcat-edit = abap_true.
MODIFY gt_fcat FROM ls_fcat
 TRANSPORTING edit
 WHERE ( key NE abap_true ).
READ TABLE gt_fcat INTO ls_fcat
 WITH KEY fieldname = 'UPTIM'.
IF ( syst-subrc = 0 ).
 DELETE gt_fcat INDEX syst-tabix.
 ls_fcat-no_zero = abap_true. " suppresses 00:00:00
 INSERT ls_fcat INTO gt_fcat INDEX 7.
ENDIF.
READ TABLE gt_fcat INTO ls_fcat
 WITH KEY fieldname = 'UPDAT'.
IF ( syst-subrc = 0 ).
 DELETE gt_fcat INDEX syst-tabix.
 INSERT ls_fcat INTO gt_fcat INDEX 7.
ENDIF.
LOOP AT gt_fcat INTO ls_fcat.
 ls_fcat-col_pos = syst-tabix.
 MODIFY gt_fcat FROM ls_fcat INDEX syst-tabix.
 IF ( syst-tabix > 10 ).
 DELETE gt_fcat INDEX syst-tabix.
 ENDIF.
ENDLOOP.
ENDFORM. " BUILD_FIELDCATALOG
*& Form SET_LAYOUT_AND_VARIANT
* text
* --> p1 text
* <-- p2 text
FORM set_layout_and_variant .
CLEAR: gs_layout,
 gs_variant.
gs_layout-cwidth_opt = abap_true.
gs_layout-zebra = abap_true.
*§3.Provide the fieldname of the celltab field by using field
* STYLEFNAME of the layout structure.
gs_layout-stylefname = 'CELLTAB'.
gs_variant-report = syst-repid.
gs_variant-handle = 'GRID'.
ENDFORM. " SET_LAYOUT_AND_VARIANT
*& Form SET_CELL_EDITABLE
* text
* --> p1 text
* <-- p2 text
FORM set_cell_editable .
* define local data
DATA: ld_idx TYPE i,
 ls_outtab TYPE ty_s_outtab,
 ls_style TYPE lvc_s_styl.
LOOP AT gt_outtab INTO ls_outtab.
 ld_idx = syst-tabix.
 REFRESH: ls_outtab-celltab.
 IF ( ls_outtab-erdat+0(4) = '2008' ).
 CLEAR: ls_style.
 ls_style-fieldname = 'UPDAT'.
 ls_style-style = cl_gui_alv_grid=>mc_style_disabled.
 INSERT ls_style INTO TABLE ls_outtab-celltab.
 CLEAR: ls_style.
 ls_style-fieldname = 'UPTIM'.
 ls_style-style = cl_gui_alv_grid=>mc_style_disabled.
 INSERT ls_style INTO TABLE ls_outtab-celltab.
 ELSE.
 ENDIF.
 MODIFY gt_outtab FROM ls_outtab INDEX ld_idx
 TRANSPORTING celltab.
ENDLOOP.
ENDFORM. " SET_CELL_EDITABLE
Regards
Uwe

ALV GRID ONE LINE EDIT

Similar Messages

Maybe you are looking for