How to create editable ALV grid/list

Hi,
I want to create editable ALV grid/list so that user can modify the data in the ALV.
And when user presses save button data will get saved in Z table.
I dont know how to create editable ALV so could anybody please help me regarding this?
Thanks & regards,
Sameer Dhuke

HI
check the demo programs BCALV_FULLSCREEN_GRID_EDIT
BCALV_GRID_EDIT
BCALV_TEST_GRID_EDIT_01
BCALV_TEST_GRID_EDITABLE
REUSE_ALV_GRID EDITABLE
ALV Grid editable fields
Just to make things a bit easy
In the layout,there is a property called edit, make it 'X' for the particular field whichever you want to make editable.
Hope this helps,
Suruchi
Message was edited by:
Suruchi Mahajan

Similar Messages

How to create 2 ALV output lists in a single output?

Hi guys...
My clients requirement is to create 2 ALV output lists in a single output list.how can i do this?i mean which function module i can use for this requirement?please help me out...
Regards..

*& Report ZLCL_ALV_INT_INVOICE                                        *
REPORT ZLCL_ALV_INT_INVOICE                    .
DATA: O_CONT1 TYPE REF TO CL_GUI_CUSTOM_CONTAINER,
      O_CONT2 TYPE REF TO CL_GUI_CUSTOM_CONTAINER,
      O_GRID1 TYPE REF TO CL_GUI_ALV_GRID,
      O_GRID2 TYPE REF TO CL_GUI_ALV_GRID.
DATA: IT_VBRK LIKE VBRK OCCURS 1 WITH HEADER LINE.
DATA: IT_VBRP LIKE VBRP OCCURS 1 WITH HEADER LINE.
DATA: WA_VBRK LIKE VBRK.
*--Layout
DATA: WA_LAYO TYPE LVC_S_LAYO.
      CLASS LCL_BILLING DEFINITION
CLASS LCL_BILLING DEFINITION.
PUBLIC SECTION.
    CLASS-METHODS: HANDLE_HOTSPOT_CLICK
             FOR EVENT HOTSPOT_CLICK
             OF CL_GUI_ALV_GRID
             IMPORTING E_ROW_ID.
ENDCLASS.                    "LCL_BILLING DEFINITION
      CLASS LCL_BILLING IMPLEMENTATION
CLASS LCL_BILLING IMPLEMENTATION.
METHOD HANDLE_HOTSPOT_CLICK.
    IF NOT E_ROW_ID IS INITIAL.
*--Reading selected billing docno
      READ TABLE IT_VBRK INTO WA_VBRK INDEX E_ROW_ID-INDEX.
*--GETTING BILLING DOC ITEMS
      REFRESH IT_VBRP.
      SELECT *
        FROM VBRP
        INTO TABLE IT_VBRP
        WHERE VBELN = WA_VBRK-VBELN.
      CALL SCREEN 200.
    ENDIF.
ENDMETHOD.                    "HANDLE_HOTSPOT_CLICK
ENDCLASS.                    "LCL_BILLING IMPLEMENTATION
SELECT-OPTIONS: S_VBELN FOR IT_VBRK-VBELN.
START-OF-SELECTION.
PERFORM GET_DATA.
SET SCREEN 100.
*&      Form GET_DATA
      text
FORM GET_DATA .
*--billing header data
SELECT *
    FROM VBRK
    INTO TABLE IT_VBRK
    WHERE VBELN IN S_VBELN.
IF SY-SUBRC <> 0.
    MESSAGE I000(Z00) WITH 'No Data Found'.
ENDIF.
EXIT.
ENDFORM.                    " GET_DATA
*&      Module STATUS_0100 OUTPUT
      text
MODULE STATUS_0100 OUTPUT.
SET PF-STATUS 'MENU'.
ENDMODULE.                 " STATUS_0100 OUTPUT
*&      Module USER_COMMAND_0100 INPUT
      text
MODULE USER_COMMAND_0100 INPUT.
CASE SY-UCOMM.
    WHEN 'BACK'.
      PERFORM EXIT_PROGRAM.
ENDCASE.
ENDMODULE.                 " USER_COMMAND_0100 INPUT
*&      Module PBO_100 OUTPUT
      text
MODULE PBO_100 OUTPUT.
IF O_CONT1 IS INITIAL.
    CREATE OBJECT O_CONT1
      EXPORTING
        CONTAINER_NAME              = 'VBRK_CONT'
      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 I000(Z00) WITH 'Error in container'.
      EXIT.
    ENDIF.
    CREATE OBJECT O_GRID1
      EXPORTING
         I_PARENT          = O_CONT1
      EXCEPTIONS
        ERROR_CNTL_CREATE = 1
        ERROR_CNTL_INIT   = 2
        ERROR_CNTL_LINK   = 3
        ERROR_DP_CREATE   = 4
        OTHERS            = 5
    IF SY-SUBRC <> 0.
      MESSAGE I000(Z00) WITH 'Error in Grid'.
      EXIT.
    ENDIF.
ENDIF.
*--Layout for 1st grid
WA_LAYO-KEYHOT = 'X'.
WA_LAYO-GRID_TITLE = 'Billing Document Header Data'.
CALL METHOD O_GRID1->SET_TABLE_FOR_FIRST_DISPLAY
    EXPORTING
      I_STRUCTURE_NAME              = 'VBRK'
      IS_LAYOUT                     = WA_LAYO
    CHANGING
      IT_OUTTAB                     = IT_VBRK[]
    EXCEPTIONS
      INVALID_PARAMETER_COMBINATION = 1
      PROGRAM_ERROR                 = 2
      TOO_MANY_LINES                = 3
      OTHERS                        = 4.
IF SY-SUBRC <> 0.
    MESSAGE I000(Z00) WITH 'Error in showing grid'.
    EXIT.
ENDIF.
*-Setting the focus on the grid
CALL METHOD CL_GUI_CONTROL=>SET_FOCUS
    EXPORTING
      CONTROL           = O_GRID1 "Grid control object
    EXCEPTIONS
      CNTL_ERROR        = 1
      CNTL_SYSTEM_ERROR = 2
      OTHERS            = 3.
IF SY-SUBRC <> 0.
    MESSAGE I000(Z00) WITH 'Error in setting focus'.
ENDIF.
*--Event handler registration
SET HANDLER LCL_BILLING=>HANDLE_HOTSPOT_CLICK FOR O_GRID1.
ENDMODULE.                 " PBO_100 OUTPUT
*&      Module STATUS_0200 OUTPUT
      text
MODULE STATUS_0200 OUTPUT.
SET PF-STATUS 'MENU'.
ENDMODULE.                 " STATUS_0200 OUTPUT
*&      Module USER_COMMAND_0200 INPUT
      text
MODULE USER_COMMAND_0200 INPUT.
CASE SY-UCOMM.
    WHEN 'BACK'.
      LEAVE TO SCREEN 100.
ENDCASE.
ENDMODULE.                 " USER_COMMAND_0200 INPUT
*&      Module PBO_200 OUTPUT
      text
MODULE PBO_200 OUTPUT.
IF O_CONT2 IS INITIAL.
    CREATE OBJECT O_CONT2
        EXPORTING
        CONTAINER_NAME              = 'VBRP_CONT'
    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 I000(Z00) WITH 'Error in container'.
      EXIT.
    ENDIF.
    CREATE OBJECT O_GRID2
      EXPORTING
        I_PARENT          = O_CONT2
      EXCEPTIONS
        ERROR_CNTL_CREATE = 1
        ERROR_CNTL_INIT   = 2
        ERROR_CNTL_LINK   = 3
        ERROR_DP_CREATE   = 4
        OTHERS            = 5.
    IF SY-SUBRC <> 0.
      MESSAGE I000(Z00) WITH 'Error in grid linking'.
      EXIT.
    ENDIF.
    CALL METHOD O_GRID2->SET_TABLE_FOR_FIRST_DISPLAY
      EXPORTING
        I_STRUCTURE_NAME              = 'VBRP'
      CHANGING
        IT_OUTTAB                     = IT_VBRP[]
      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.
    ENDIF.
ELSE.
*--refreshing the alv grid with the latest content of the internal table
*--which is linked
    CALL METHOD O_GRID2->REFRESH_TABLE_DISPLAY
      EXCEPTIONS
        FINISHED = 1
        OTHERS   = 2.
    IF SY-SUBRC <> 0.
      MESSAGE I000(Z00) WITH 'Error in Refreshing gird'.
    ENDIF.
ENDIF.
ENDMODULE.                 " PBO_200 OUTPUT
*&      Form EXIT_PROGRAM
      text
FORM EXIT_PROGRAM .
*--Deallocating the memory
IF NOT O_CONT2 IS INITIAL.
    CALL METHOD O_CONT2->FREE
      EXCEPTIONS
        CNTL_ERROR        = 1
        CNTL_SYSTEM_ERROR = 2
        OTHERS            = 3.
    IF SY-SUBRC <> 0.
      MESSAGE I000(Z00) WITH 'Error in deallocating memory'.
      EXIT.
    ENDIF.
    CLEAR: IT_VBRP,
           IT_VBRP[].
    FREE: IT_VBRP,
           IT_VBRP[].
ENDIF.
IF NOT O_CONT1 IS INITIAL.
    CALL METHOD O_CONT1->FREE
      EXCEPTIONS
        CNTL_ERROR        = 1
        CNTL_SYSTEM_ERROR = 2
        OTHERS            = 3.
    IF SY-SUBRC <> 0.
      MESSAGE I000(Z00) WITH 'Error in deallocating memory'.
      EXIT.
    ENDIF.
    CLEAR: IT_VBRK,
           IT_VBRK[].
    FREE: IT_VBRK,
           IT_VBRK[].
ENDIF.
*--Cearing the buffered content
CALL METHOD CL_GUI_CFW=>FLUSH
    EXCEPTIONS
      CNTL_SYSTEM_ERROR = 1
      CNTL_ERROR        = 2
      OTHERS            = 3.
IF SY-SUBRC <> 0.
    MESSAGE I000(Z00) WITH 'Error in clearing Buffer'.
    EXIT.
ENDIF.
LEAVE PROGRAM.
ENDFORM.                    " EXIT_PROGRAM
SCREEN 100
PROCESS BEFORE OUTPUT.
MODULE STATUS_0100.
MODULE PBO_100.
PROCESS AFTER INPUT.
MODULE USER_COMMAND_0100.
SCREEN200
PROCESS BEFORE OUTPUT.
MODULE STATUS_0200.
MODULE PBO_200.
PROCESS AFTER INPUT.
MODULE USER_COMMAND_0200.

Editable ALV-Grid Using Class

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

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

Editable ALV Grid: Append new rows

Hi All,
I have developed a report which will displays output in editable ALV grid list. Users can modify the values in output and save. These values will be stored in one custom table.
My requirement is whenever user clicks on '+' mark (Create entries or Append or Copy: Standard toolbar) report should allow to enter new entries and save. How do I capture the selected function code? why becuase i need to display one value from the custom table in that added new row...
Regards,
Ramesh.

Hi Ramesh,
please check changed data event.....
please go through the reference link......
https://wiki.sdn.sap.com/wiki/display/Snippets/UpdatingtheInternalTable-AfterEditinALVusingFunctionModules
Regards,
Venkat

How can we find out data in an editable ALV grid has been changed or not?

Hi Experts,
How can we find out whether a data in an editable ALV grid has been changed or not.
I am using the
FM -> REUSE_ALV_GRID_DISPLAY_LVC
for ALV display.
I have to chekc whther data has been changed or not befor saving. if changed then only i want to
SAVE
. I cannot use the internal table comparison method for this purpose also i am not using OOP ALV.
So kindly sugest me an alternative.
Thanks and Regards,
Shahana

Hi,
Thanks for your answer. I already saw this post.
See this method.
CALL METHOD reuse_alv_grid->check_changed_data
IMPORTING
e_valid = lv_check.
This will update the internal table with the edited values. Then we can go for internal table comparison.
But my scenario will not allow me for itab comparisons.I just want to know the ALV data has been changed or not.
Regards,
Shahana

Editable field in ALV GRID/LIST

Hi All,
I developed an alv program in which 10 rows is there. In alv grid/list first column is check box. I want 1,5 and 10th row is editable for first column (check box) while rest is not editable. Can you please give solution for same. Please tell me simple method not oops methos
coz I have taken FM REUSE_ALV_GRID_DISPLAY or REUSE_ALV_LIST_DISPLAY.
Thanks,
Rakesh

goto se38.
BCALVEDIT*
press F4
many examples are there..
BCALV_GRID_EDIT try this...

How to Transfer Data from editable ALV grid control to internal table?

Hi,
Can anyone give me a simple example by which I can transfer data from editable alv grid control back to the internal table. The ALV has been created by OO approach.
I would appreciate if the solution is provided without handling any events.
Regards,
Auro

Hello Auro
You simply need to call method <b>go_grid->check_changed_data</b> at PAI of the dynpro displaying the ALV grid. If data have been changed on the editable ALV grid then this method will raise event DATA_CHANGED. If you do not want or need to handle this event (e.g. for validating the edited values) then you do not define any event handler method.
Regards
Uwe

Enter Key Event in Editable ALV Grid

Hi all,
I am trying to create and editable ALV grid using the REUSE ALV FM.
On the grid after changing a value, if I press enter key the pai is not triggered. I have tried the various example programs (BCALV*) but could not find anything relevant.
Basically I need similar functionality to normal module pool programming as in validations on screen done when enter key is pressed after screen entry.
Is it possible to capture the Enter keypress on the ALV grid?

Hello Preet
I can only tell you how I would solve this using the ALV grid control (CL_GUI_ALV_GRID) because I have abandoned using ALV function modules.
The problem with running through PAI is whether the focus (i.e. the cursor) is still on the control or already on the (surrounding) main program. If the control has the focus, you do not run through PAI.
I would add a "Refresh" button to the toolbar of the ALV list. Normally, this button is already there or you only have to make it visible.
When the user pushes this button you catch the corresponding user-command and call the CHECK_DATA_CHANGED method to see if values have been changed on the editable grid. If so, the previous method will fire event DATA_CHANGED.
Now, in the event handler method (e.g. HANDLE_DATA_CHANGED) you receive as input a data change object (CL_ALV_CHANGED_DATA_PROTOCOL). This object contains all changed values. These values you will need to make your checks.
I assume that the logic will be similar using ALV function modules.
Regards
Uwe

How can we modify alv output list

Hi
this is fazil.
Please tell me any body How can we modify alv output list.
Thanks & Regards
Fazil
[email protected]

Fazil,
check the program,
You can find the code in this program 'BCALV_FIELDCAT_TEST'
*& Report BCALV_FIELDCAT_TEST                                         *
This report allows to modify the fieldcatalog of a corresponding
output table and to view the effects of your changes directly.
Note that for some changes you need to newly display the whole
ALV Grid Control, e.g., DDIC-Fields are read only the first time
you call SET_READY_FOR_FIRST_DISPLAY.
Note also that not all scenarios can be tested since the output
table does not comprise all fields to test available features
of the fieldcatalog. Copy this program and extend the output
table accordingly if you want to test such a special feature.
(The field CARRNAME in 'gt_sflight' was added to test field REF_FIELD
and TXT_FIELD of the fieldcatalog - see what happens if you
calculate subtotals by carrier-id).
report bcalvt_fieldcatalog           .
data: ok_code               type sy-ucomm,
      save_ok_code          type sy-ucomm,
fieldcatalog for output table
      gt_fieldcat           type lvc_t_fcat,
fieldcatalog for fieldcatalog itself:
      gt_fcatfcat           type lvc_t_fcat,
      gs_fcatlayo           type lvc_s_layo.
Output table
data: begin of gt_sflight occurs 0.
data: carrname type s_carrname.
        include structure sflight.
data: end of gt_sflight.
data: g_max type i value 100.
data: g_all type c value SPACE.
Controls to display gt_sflight and corresponding fieldcatalog
data: g_docking type ref to cl_gui_docking_container,
      g_alv     type ref to cl_gui_alv_grid.
data: g_custom_container type ref to cl_gui_custom_container,
      g_editable_alv     type ref to cl_gui_alv_grid.
LOCAL CLASS Definition
class lcl_event_receiver definition.
public section.
    methods handle_data_changed
      for event data_changed of cl_gui_alv_grid
      importing er_data_changed.
endclass.
class lcl_event_receiver implementation.
method handle_data_changed.
at the time being, no checks are made...
endmethod.
endclass.
data: event_receiver type ref to lcl_event_receiver.
end-of-selection.
set screen 100.
*&      Module STATUS_0100 OUTPUT
      text
module status_0100 output.
set pf-status 'BASIC'.
set titlebar 'BASICTITLE'.
create ALV Grid Control in the first run
if g_docking is initial.
    perform create_and_init_controls.
endif.
endmodule.                             " STATUS_0100 OUTPUT
*&      Module USER_COMMAND_0100 INPUT
      text
module user_command_0100 input.
save_ok_code = ok_code.
clear ok_code.
case save_ok_code.
    when 'SUBMIT'.
set the frontend fieldcatalog
ATTENTION: DDIC-Fields are not updated using this method!
(see 'RESTART')
      call method g_alv->set_frontend_fieldcatalog
           exporting
             it_fieldcatalog = gt_fieldcat.
      call method g_alv->refresh_table_display.
      call method cl_gui_cfw=>flush.
    when 'RESTART'.
Destroy the control currently visible and display it again
using the changed fieldcatalog.
      perform restart_sflight.
    when '&ALL'.
      perform switch_visibility.
endcase.
endmodule.                             " USER_COMMAND_0100 INPUT
*&      Form CREATE_AND_INIT_CONTROLS
      text
--> p1        text
<-- p2        text
form create_and_init_controls.
create object g_docking
      exporting
           dynnr = '100'
           extension = 150
           side = cl_gui_docking_container=>dock_at_bottom.
create object g_alv
      exporting
           i_parent = g_docking.
create object g_custom_container
      exporting
           container_name = 'CC_0100_FIELDCAT'.
create object g_editable_alv
      exporting
           i_parent = g_custom_container.
register events
create object event_receiver.
set handler event_receiver->handle_data_changed for g_editable_alv.
call method g_editable_alv->register_edit_event
                exporting
                   i_event_id = cl_gui_alv_grid=>mc_evt_modified.
perform build_fieldcatalogs changing gt_fieldcat gt_fcatfcat.
perform modify_fieldcatalog changing gt_fcatfcat.
perform select_data.                 "CHANGING gt_sflight
call method g_alv->set_table_for_first_display
          changing
               it_outtab       = gt_sflight[]
               it_fieldcatalog = gt_fieldcat[].
optimize column width of grid displaying fieldcatalog
gs_fcatlayo-cwidth_opt = 'X'.
Get fieldcatalog of table sflight - alv might have
modified it after passing.
call method g_alv->get_frontend_fieldcatalog
            importing et_fieldcatalog = gt_fieldcat[].
call method cl_gui_cfw=>flush.
Display fieldcatalog of table sflight:
call method g_editable_alv->set_table_for_first_display
          exporting
               is_layout       = gs_fcatlayo
          changing
               it_outtab       = gt_fieldcat[]
               it_fieldcatalog = gt_fcatfcat[].
register events
create object event_receiver.
set handler event_receiver->handle_data_changed for g_editable_alv.
endform.                               " CREATE_AND_INIT_CONTROLS
*&      Form restart_sflight
      text
--> p1        text
<-- p2        text
form restart_sflight.
data: ls_fieldcat type lvc_s_fcat.
free g_docking and thus g_alv
call method g_docking->free.
clear g_docking.
clear g_alv.
create new instances
create object g_docking
      exporting
           dynnr = '100'
           extension = 150
           side = cl_gui_docking_container=>dock_at_bottom.
create object g_alv
      exporting
           i_parent = g_docking.
This is an internal method to invalidate all fields in the fieldcat
loop at gt_fieldcat into ls_fieldcat.
    clear ls_fieldcat-tech_comp.
    modify gt_fieldcat from ls_fieldcat.
endloop.
Newly display the list with current fieldcatalog.
call method g_alv->set_table_for_first_display
          changing
               it_outtab       = gt_sflight[]
               it_fieldcatalog = gt_fieldcat.
Get fieldcatalog - it might be changed by ALV in the last call
call method g_alv->get_frontend_fieldcatalog
          importing
               et_fieldcatalog = gt_fieldcat[].
call method g_editable_alv->refresh_table_display.
call method cl_gui_cfw=>flush.
endform.                               " restart_sflight
*&      Form select_data
      text
--> p1        text
<-- p2        text
form select_data.
data: lt_sflight type table of sflight with header line,
        ls_scarr type scarr.
select data of sflight
select * from sflight into table lt_sflight up to g_max rows.
copy data to gt_sflight and update CARRNAME
loop at lt_sflight.
    move-corresponding lt_sflight to gt_sflight.
    select single * from scarr into ls_scarr
       where carrid = gt_sflight-carrid.
    gt_sflight-carrname = ls_scarr-carrname.
    append gt_sflight.
endloop.
endform.                               " select_data
*&      Form BUILD_FIELDCATALOGS
      text
     <--P_GT_FIELDCAT text
     <--P_GT_FCATFCAT text
form build_fieldcatalogs changing p_fieldcat type lvc_t_fcat
                                  p_fcatfcat type lvc_t_fcat.
data: ls_fcat     type lvc_s_fcat.
Fieldcatalog for table SFLIGHT: p_fieldcat
generate fieldcatalog automatically
call function 'LVC_FIELDCATALOG_MERGE'
      exporting
           i_structure_name       = 'SFLIGHT'
        I_CLIENT_NEVER_DISPLAY = 'X'
       changing
            ct_fieldcat            = p_fieldcat[]
   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.
shift all column positions to the right except for MANDT
loop at p_fieldcat into ls_fcat.
    if ls_fcat-fieldname ne 'MANDT'.
      add 1 to ls_fcat-col_pos.
      if ls_fcat-fieldname = 'CARRID'.
        ls_fcat-txt_field = 'CARRNAME'."link CARRNAME to CARRID
      endif.
      modify p_fieldcat from ls_fcat.
    endif.
endloop.
create a new line for CARRNAME in p_fieldcat
clear ls_fcat.
ls_fcat-fieldname = 'CARRNAME'.
ls_fcat-ref_table = 'SCARR'.
ls_fcat-col_pos = 1.
insert new line before CARRID (do not forget MANDT!).
insert ls_fcat into p_fieldcat index 1.
Fieldcatalog for table LVC_T_FCAT:p_fcatfcat
Generate fieldcatalog of fieldcatalog structure.
This fieldcatalog is used to display fieldcatalog 'p_fieldcat'
on the top of the screen.
call function 'LVC_FIELDCATALOG_MERGE'
      exporting
           i_structure_name       = 'LVC_S_FCAT'
        I_CLIENT_NEVER_DISPLAY = 'X'
       changing
            ct_fieldcat            = p_fcatfcat[]
   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.
Hide all fields that are not documented (valid for release 4.6A)
perform hide_fields changing p_fcatfcat.
endform.                               " BUILD_FIELDCATALOGS
*&      Module EXIT_PROGRAM INPUT
      text
module exit_program input.
leave program.
endmodule.                             " EXIT_PROGRAM INPUT
*&      Form MODIFY_FIELDCATALOG
      text
     <--P_GT_FCATFCAT text
form modify_fieldcatalog changing p_fcatfcat type lvc_t_fcat.
data ls_fcat type lvc_s_fcat.
loop at p_fcatfcat into ls_fcat.
    ls_fcat-coltext = ls_fcat-fieldname.
    ls_fcat-edit = 'X'.
    if ls_fcat-fieldname = 'COL_POS' or ls_fcat-fieldname = 'FIELDNAME'.
      ls_fcat-key = 'X'.
    endif.
    modify p_fcatfcat from ls_fcat.
endloop.
endform.                               " MODIFY_FIELDCATALOG
form hide_fields changing p_fieldcat type lvc_t_fcat.
data: ls_fcat type lvc_s_fcat.
Only show documented fields of fieldcatalog.
For a documentation choose "Help->Application Help" in the menu.
loop at p_fieldcat into ls_fcat.
    if not (
         ls_fcat-fieldname eq 'CFIELDNAME'
    or   ls_fcat-fieldname eq 'COL_POS'
    or   ls_fcat-fieldname eq 'COLDDICTXT'
    or   ls_fcat-fieldname eq 'COLTEXT'
    or   ls_fcat-fieldname eq 'CURRENCY'
    or   ls_fcat-fieldname eq 'DD_OUTLEN'
    or   ls_fcat-fieldname eq 'DECIMALS_O'
    or   ls_fcat-fieldname eq 'DECMLFIELD'
    or   ls_fcat-fieldname eq 'DO_SUM'
    or   ls_fcat-fieldname eq 'DRAGDROPID'
    or   ls_fcat-fieldname eq 'EDIT_MASK'
    or   ls_fcat-fieldname eq 'EMPHASIZE'
    or   ls_fcat-fieldname eq 'EXPONENT'
    or   ls_fcat-fieldname eq 'FIELDNAME'
    or   ls_fcat-fieldname eq 'HOTSPOT'
    or   ls_fcat-fieldname eq 'ICON'
    or   ls_fcat-fieldname eq 'INTLEN'
    or   ls_fcat-fieldname eq 'INTTYPE'
    or   ls_fcat-fieldname eq 'JUST'
    or   ls_fcat-fieldname eq 'KEY'
    or   ls_fcat-fieldname eq 'LOWERCASE'
    or   ls_fcat-fieldname eq 'LZERO'
    or   ls_fcat-fieldname eq 'NO_OUT'
    or   ls_fcat-fieldname eq 'NO_SIGN'
    or   ls_fcat-fieldname eq 'NO_SUM'
    or   ls_fcat-fieldname eq 'NO_ZERO'
    or   ls_fcat-fieldname eq 'OUTPUTLEN'
    or   ls_fcat-fieldname eq 'QFIELDNAME'
    or   ls_fcat-fieldname eq 'QUANTITY'
    or   ls_fcat-fieldname eq 'REF_FIELD'
    or   ls_fcat-fieldname eq 'REF_TABLE'
    or   ls_fcat-fieldname eq 'REPREP'
    or   ls_fcat-fieldname eq 'REPTEXT'
    or   ls_fcat-fieldname eq 'ROLLNAME'
    or   ls_fcat-fieldname eq 'ROUND'
    or   ls_fcat-fieldname eq 'ROUNDFIELD'
    or   ls_fcat-fieldname eq 'SCRTEXT_L'
    or   ls_fcat-fieldname eq 'SCRTEXT_M'
    or   ls_fcat-fieldname eq 'SCRTEXT_S'
    or   ls_fcat-fieldname eq 'SELDDICTXT'
    or   ls_fcat-fieldname eq 'SELTEXT'
    or   ls_fcat-fieldname eq 'SP_GROUP'
    or   ls_fcat-fieldname eq 'SYMBOL'
    or   ls_fcat-fieldname eq 'TECH'
    or   ls_fcat-fieldname eq 'TIPDDICTXT'
    or   ls_fcat-fieldname eq 'TOOLTIP'
    or   ls_fcat-fieldname eq 'TXT_FIELD' ).
      ls_fcat-tech = 'X'.
    endif.
    modify p_fieldcat from ls_fcat.
endloop.
endform.
form switch_visibility.
data: lt_fcatfcat type lvc_t_fcat,
        ls_fcat type lvc_s_fcat.
call method g_editable_alv->get_frontend_fieldcatalog
             importing ET_FIELDCATALOG = lt_fcatfcat.
if not g_all is initial.
     perform hide_fields changing lt_fcatfcat.
     g_all = SPACE.
else.
    loop at lt_fcatfcat into ls_fcat.
       if ls_fcat-tech eq 'X'.
           ls_fcat-tech = SPACE.
           ls_fcat-no_out = 'X'.
           modify lt_fcatfcat from ls_fcat.
       endif.
    endloop.
    g_all = 'X'.
endif.
call method g_editable_alv->set_frontend_fieldcatalog
            exporting it_fieldcatalog = lt_fcatfcat.
call method g_editable_alv->refresh_table_display.
endform.
Don't forget to rewaard if useful..

Mandatory Fields on Editable ALV Grid

Hi. I am using oops method to make an editable ALV grid.
How do I sent some columns for mandatory data entry?
Here are my declarations
gs_layout TYPE lvc_s_layo, "Layout declaration
go_grid TYPE REF TO cl_gui_alv_grid, "Grid
go_custom_container TYPE REF TO cl_gui_custom_container,"Container
go_fieldcat type lvc_t_fcat, "Field Catalog
Thanks,
Shareen

Hi Shareen Hegde ,
Try this program.
report zshail_alv_new .
tables: sflight.
type-pools: icon.
data: pt_sort type lvc_t_sort.
data: my_column type table of lvc_s_ceno with header line.
data: t_hype type LVC_T_HYPE.
class shail_event definition.
public section.
methods:
handle_toolbar for event toolbar of cl_gui_alv_grid
importing e_object e_interactive,
handle_user_command for event user_command of cl_gui_alv_grid importing
e_ucomm,
handle_contextmenu_request for event context_menu_request of
cl_gui_alv_grid importing e_object.
endclass.
class shail_event implementation.
method handle_toolbar.
perform handler_toolbar using e_object e_interactive.
endmethod.
method handle_user_command.
perform handler_user_command using e_ucomm.
endmethod.
method handle_contextmenu_request.
perform handler_contextmenu_request using e_object.
endmethod.
endclass.
data: go_container type ref to cl_gui_custom_container,
      go_grid type ref to cl_gui_alv_grid,
      field_catalog type lvc_t_fcat,
      layout type lvc_s_layo.
data: begin of itab occurs 0.
include structure sflight.
data: end of itab.
data: obj type ref to shail_event.
data: button_exclude type ui_functions.
start-of-selection.
call screen 200.
*&      Module STATUS_0100 OUTPUT
      text
module status_0100 output.
SET PF-STATUS 'xxxxxxxx'.
SET TITLEBAR 'xxx'.
if go_container is initial.
create object go_container
exporting
   PARENT                      =
    container_name              = 'ALV_CONTAINER'
   STYLE                       =
   LIFETIME                    = lifetime_default
   REPID                       =
   DYNNR                       =
   NO_AUTODEF_PROGID_DYNNR     =
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 ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif.
create object go_grid
exporting
   I_SHELLSTYLE      = 0
   I_LIFETIME        =
    i_parent          = go_container
   I_APPL_EVENTS     = space
   I_PARENTDBG       =
   I_APPLOGPARENT    =
   I_GRAPHICSPARENT =
   I_USE_VARIANT_CLASS = SPACE
   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.
create object obj.
set handler obj->handle_toolbar for go_grid.
set handler obj->handle_user_command for go_grid.
set handler obj->handle_contextmenu_request for go_grid.
select * from sflight into corresponding fields of table itab.
perform catalog_fill changing field_catalog.
perform layout_fill changing layout.
perform prepare_sort_table changing pt_sort.
call method go_grid->set_table_for_first_display
exporting
   I_BYPASSING_BUFFER            =
   I_BUFFER_ACTIVE               =
   I_CONSISTENCY_CHECK           =
   I_STRUCTURE_NAME              = 'SFLIGHT'
   IS_VARIANT                    =
   I_SAVE                        =
   I_DEFAULT                     = 'X'
    is_layout                     = layout
   IS_PRINT                      =
   IT_SPECIAL_GROUPS             =
    it_toolbar_excluding          = button_exclude
    IT_HYPERLINK                  = t_hype
   IT_ALV_GRAPHICS               =
   IT_EXCEPT_QINFO               =
changing
    it_outtab                     = itab[]
    it_fieldcatalog               = field_catalog
    it_sort                       = pt_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.
endif.
else.
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.
endif.
endmodule.                 " STATUS_0100 OUTPUT
*&      Module USER_COMMAND_0100 INPUT
      text
module user_command_0100 input.
case sy-ucomm.
when 'BACK'.
LEAVE TO SCREEN 0.
endcase.
endmodule.                 " USER_COMMAND_0100 INPUT
*&      Form CATALOG_FILL
      text
     <--P_FIELD_CATALOG text
form catalog_fill changing p_field_catalog.
data ls_fcat type lvc_s_fcat .
ls_fcat-fieldname = 'CARRID' .
ls_fcat-inttype = 'C' .
ls_fcat-outputlen = '20' .
ls_fcat-coltext = 'Carrier ID' .
ls_fcat-web_field = 'carrid_handle'.
ls_fcat-edit = 'X'.
*ls_fcat-emphasize = 'C310'.   "needed for column coloring
append ls_fcat to field_catalog .
clear ls_fcat .
ls_fcat-fieldname = 'FLDATE' .
ls_fcat-ref_table = 'SFLIGHT' .
ls_fcat-ref_table = 'FLDATE' .
ls_fcat-outputlen = '20' .
ls_fcat-coltext = 'Flight Date' .
ls_fcat-web_field = 'fldate_handle'.
append ls_fcat to field_catalog .
clear ls_fcat .
ls_fcat-fieldname = 'PRICE' .
ls_fcat-ref_table = 'SFLIGHT' .
ls_fcat-ref_table = 'PRICE' .
ls_fcat-outputlen = '20' .
ls_fcat-coltext = 'Airfare' .
append ls_fcat to field_catalog .
clear ls_fcat .
ls_fcat-fieldname = 'SEATSMAX' .
ls_fcat-ref_table = 'SFLIGHT' .
ls_fcat-ref_table = 'SEATSMAX' .
ls_fcat-outputlen = '20' .
ls_fcat-coltext = 'Maximum seats' .
append ls_fcat to field_catalog .
endform.                    " CATALOG_FILL
*&      Form LAYOUT_FILL
      text
     <--P_LAYOUT text
form layout_fill changing p_layout type lvc_s_layo.
p_layout-zebra = 'X' .
p_layout-grid_title = 'Flights' .
p_layout-smalltitle = 'X' .
p_layout-no_merging = 'X'.
*p_layout-sel_mode = 'A'.
*p_layout-info_fname = 'rowcolor'.
endform.                    " LAYOUT_FILL
*&      Form exclude_std_buttons
      text
     <--P_BUTTON_EXCLUDE text
form exclude_std_buttons changing p_button_exclude type ui_functions.
the various buttons are details,sort asc,sort desc,find,set filter,
total, subtotal,
print,view,export,changelayout,display graphic, eu documentation
MC_FC_DETAIL,MC_FC_FIND,MC_FC_FILTER,MC_FC_GRAPHIC,MC_FC_SORT_ASC,
MC_FC_SORT_DSC,MC_FC_SUBTOT,MC_FC_SUM,MC_FC_PC_FILE,MC_FC_VIEWS
data: ls_exclude type ui_func.
ls_exclude = cl_gui_alv_grid=>mc_fc_detail.
append ls_exclude to p_button_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_find.
append ls_exclude to p_button_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_filter.
append ls_exclude to p_button_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_graph.
append ls_exclude to p_button_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_sort_asc.
append ls_exclude to p_button_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_sort_dsc.
append ls_exclude to p_button_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_subtot.
append ls_exclude to p_button_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_sum.
append ls_exclude to p_button_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_print.
append ls_exclude to p_button_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_views.
append ls_exclude to p_button_exclude.
endform.                    " exclude_std_buttons
*&      Form handle_toolbar
      text
     -->P_E_OBJECT text
     -->P_E_INTERACTIVE text
     -->P_ENDMETHOD text
form handler_toolbar using    p_e_object type ref to
cl_alv_event_toolbar_set
                             p_e_interactive                   .
data: ls_toolbar type stb_button.
clear ls_toolbar.
move 'PER' to ls_toolbar-function. "#EC NOTEXT
move icon_display_text to ls_toolbar-icon.
move 'Test Info'(201) to ls_toolbar-quickinfo.
move 'Test Info'(201) to ls_toolbar-text.
move ' ' to ls_toolbar-disabled. "#EC NOTEXT
append ls_toolbar to p_e_object->mt_toolbar.
endform.                    " handle_toolbar
*&      Form handle_user_command
      text
     -->P_E_UCOMM text
form handler_user_command using    p_e_ucomm.
case p_e_ucomm.
when 'PER'.
perform selected_columns.
when 'CREA'.
message i001(zmess).
endcase.
endform.                    " handle_user_command
*&      Form prepare_sort_table
      text
     <--P_PT_SORT text
form prepare_sort_table changing p_pt_sort type lvc_t_sort.
data: ls_sort type lvc_s_sort.
ls_sort-spos = '1'.
ls_sort-fieldname = 'FLDATE'.
ls_sort-up = space.
ls_sort-down = 'X'.
append ls_sort to p_pt_sort.
endform.                    " prepare_sort_table
*&      Form handler_contextmenu_request
      text
     -->P_E_OBJECT text
form handler_contextmenu_request using    p_e_object type ref to
cl_ctmenu.
*CALL METHOD p_e_object->hide_functions
EXPORTING
   fcodes = LT_FCODES
CALL METHOD p_e_object->clear
*break-point.
CALL METHOD p_e_object->add_function
EXPORTING
    fcode       = 'CREA'
    text        = 'Add Function'
   ICON        =
   FTYPE       =
   DISABLED    =
   HIDDEN      =
   CHECKED     =
   ACCELERATOR =
endform.                    " handler_contextmenu_request
*&      Form selected_columns
      text
--> p1        text
<-- p2        text
form selected_columns.
CALL METHOD go_grid->get_selected_cells_id
   IMPORTING
     ET_CELLS = my_column[]
loop at my_column.
this will specify the id of the selected cell
message i001(zmess) with my_column-row_id.
message i002(zmess) with my_column-col_id.
endloop.
endform.                    " selected_columns
*&      Form display_values
      text
     -->P_ROW_ID text
*&      Form prepare_hyp_tab
      text
     <--P_T_HYPE text
form prepare_hyp_tab changing p_t_hype type lvc_t_hype.
endform.                    " prepare_hyp_tab
*&      Module STATUS_0200 OUTPUT
      text
module STATUS_0200 output.
SET PF-STATUS 'xxxxxxxx'.
SET TITLEBAR 'xxx'.
endmodule.                 " STATUS_0200 OUTPUT
*&      Module USER_COMMAND_0200 INPUT
      text
module USER_COMMAND_0200 input.
CASE SY-UCOMM.
WHEN 'NEXT'.
CALL SCREEN 100.
WHEN 'EXIT'.
LEAVE PROGRAM.
ENDCASE.
endmodule.                 " USER_COMMAND_0200 INPUT
Good Luck and REWARD ME for the same
Thanks
Ashok.N

Retrieve changed record from editable alv grid

hello,
      i am new to alv grid... i am facing some problems working on it... plz help me solve my problems...
      i have created an alv grid displaying the timesheet of some employee's...
      the worktime cells are editable and rest of the information is read only...
      the worktime is changed and then a SAVE button is pushed...
      how do i retrieve the changed time into my internal table?
      once i update the internal table, i can modify the database table...
thank you.

Hi,
Refer this program:-
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
     i_callback_program                = v_rep_id       " report id
     i_callback_pf_status_set          = 'PF'           " for PF-STATUS
     i_callback_user_command           = 'USER_COMMAND' " for User-Command
     is_layout                         = wa_layout      " for layout
     it_fieldcat                       = it_field       " field catalog
     it_sort                           = it_sort        " sort info
    TABLES
      t_outtab                          = it_final      " internal table
   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 pf
*       SUB-ROUTINE PF IS USED TO SET THE PF-STATUS OF THE SCREEN
*       ON WHICH THE ALV GRID IS DISPLAYED
*       -->RT_EXTAB
FORM pf USING rt_extab TYPE slis_t_extab.
SET PF-STATUS 'ZTG_STAT'.
ENDFORM.                    "pf
*&      Form USER_COMMAND
*       SUB-ROUTINE USER_COMMAND IS USED TO HANDLE THE USER ACTION
*       AND EXECUTE THE APPROPIATE CODE
*      -->LV_OKCODE   used to capture the function code
*                     of the user-defined push-buttons
*      -->L_SELFIELD   text
FORM user_command USING lv_okcode LIKE sy-ucomm l_selfield TYPE slis_selfield.
* assign the function code to variable v_okcode
lv_okcode = sy-ucomm.
* handle the code execution based on the function code encountered
CASE lv_okcode.
* when the function code is SAVE then save records into internal table
    WHEN 'SAVE'.
* to reflect the data changed into internal table
      DATA : ref_grid TYPE REF TO cl_gui_alv_grid. "new
      IF ref_grid IS INITIAL.
        CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
          IMPORTING
            e_grid = ref_grid.
      ENDIF.
      IF NOT ref_grid IS INITIAL.
        CALL METHOD ref_grid->check_changed_data.
      ENDIF.
"now at this time you have modified internal table
* refresh the ALV Grid output from internal table
      l_selfield-refresh = c_check.
"alv output is refreshed as per changes in internal table
"now you can include code to modify your ztable from internal table
ENDCASE.
ENDFORM.                    "USER_COMMAND
Regards,
Tarun

Mark fields (columns) in editable ALV Grid as mandatory

Hi,
could you please help me to set up a column in an editable alv grid as mandatory? I had a look in several references and also did not find anything in the fieldcatalog structure.
Best regards,
Fabian

Hello Fabian
Here is some coding to explain what I meant.
*& Report ZUS_SDN_ALV_ERROR_LOG
REPORT zus_sdn_alv_error_log.
DATA:
er_data_changed    TYPE REF TO cl_alv_changed_data_protocol.
START-OF-SELECTION.
* Dynpro is empty (contains no elements)
CALL SCREEN '0100'.
END-OF-SELECTION.
*&      Module PBO_0100 OUTPUT
*       text
MODULE pbo_0100 OUTPUT.
* Event DATA_CHANGED was fired due to changes in the editable ALV grid
IF ( er_data_changed IS BOUND ).
* User did not change any values
ELSE.
    CREATE OBJECT er_data_changed
*      EXPORTING
*        I_CONTAINER =
*        I_CALLING_ALV = <your ALV grid instance>
ENDIF.
* That is how your code probably looks like
* LOOP AT gt_outtab INTO gs_outtab.
*    IF ( gs_outtab-obligatory IS INITIAL ).
*      CALL METHOD go_alvlog->add_protocol_entry
*        EXPORTING
*          i_msgid     = '00'
*          i_msgty     = 'E'
*          i_msgno     = '398'
*          I_MSGV1     = 'Field OBLIGATORY must not be empty'
**          I_MSGV2     =
**          I_MSGV3     =
**          I_MSGV4     =
*          i_fieldname = 'OBLIGATORY'
**          I_ROW_ID    =
*          I_TABIX     = syst-tabix
*    ENDIF.
* ENDLOOP.
* Generate a protocol for testing purposes
DO 5 TIMES.
    CALL METHOD er_data_changed->add_protocol_entry
      EXPORTING
        i_msgid     = '00'
        i_msgty     = 'E'
        i_msgno     = '398'
        i_msgv1     = 'Field OBLIGATORY must not be empty'
*          I_MSGV2     =
*          I_MSGV3     =
*          I_MSGV4     =
        i_fieldname = 'OBLIGATORY'
        i_row_id    = syst-index
        i_tabix     = syst-index
ENDDO.
CALL METHOD er_data_changed->display_protocol
*    EXPORTING
*      I_CONTAINER =
ENDMODULE.                 " PBO_0100 OUTPUT
Please note that this report dumps as soon as you close the log popup. However, this will not happen within your event handler method.
Regards
Uwe

Urgent : Problem with Editable ALV Grid for Quantity and Currency Fields

Hi All,
I am using Editable ALV Grid display and have quantity and value as editable fields in the display.
When user changes these values these values are not changing properly .
For the quantity field the domain is MENG13 with 3 deciamal places and here if we enter 500 it takes it as 0.500 .
The same problem is for the currency field. Here the Domain is WERT7 with 3 decimal places.
Here also it takes last 2 digits after decimal places by default.
Please advice how to get proper values in this case from ALV editable fields.
Thanks and Regards
Harshad
Edited by: Harshad Rahirkar on Dec 25, 2007 7:39 AM

for all the currency field , it will display like that only.
u have to manipulate uin program before displaying.
if they are giving 500, in program multiply with 100 and move it to table.
when u are getting from table, divinde and display.
this is what I am doing.
Reward if helpfull.

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

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

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

How to create more than 21 lists in interactive reports

hello everyone,
I am new to ABAP as well as this site. Kindly help, I want to know how to create more than 21 lists in interactive reports.
Also, how can i create them without using WHEN 1, wHEN 2 and so on...
Kindly help.
thank you

Hello,
Using Intracive Reports its not possible to cretate more than 21 lists.
But its possible to create more than 21 using ALV concept.
for sample ALV u can serch in SDN.
Regards,
Anil.

How to create editable ALV grid/list

Similar Messages

Maybe you are looking for