ALV Layout saving option

In my alv report , I am not able to enable the layout save toolbar .. The toolbar is not visible . Also, I want to know how we can put horizontal and vertical line in alv and also How to display Documentation help in ALV . Can anybody pls answer to my questions .. I am not a beginner in ALV. But not an expert too .. Pls help me ..
Thanking u in advance ..

No i am not getting vertical lines also ..
form call_alv.
gs_print-no_print_selinfos = 'X'.
gs_print-prnt_info = space.
gs_print-no_print_listinfos = 'X'.
gs_print-reserve_lines = 1.
gs_layout-colwidth_optimize = ''.
gs_layout-no_hline = 'X'.
gs_layout-no_vline = 'X' .
ABAP List Viewer
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
    EXPORTING
      i_callback_program = g_repid
      i_structure_name   = 'ITAB1'
      is_layout          = gs_layout
      it_fieldcat        = gt_fieldcat[]
      it_sort            = gt_sort[]
      it_events          = gt_events[]
      is_print           = gs_print
      i_save             = 'A'
    TABLES
      t_outtab           = itab1
    EXCEPTIONS
      program_error      = 1
      OTHERS             = 2.
endform.
FORM build_layout.
gs_layout-no_input          = ''.
gs_layout-colwidth_optimize = 'X'.
gs_layout-totals_text       = 'Totals'(105).
gd_layout-totals_only        = 'X'.
gd_layout-f2code            = 'DISP'. "Sets fcode   gs_layout-zebra             = 'X'.
gd_layout-group_change_edit = 'X'.
gs_layout-header_text       = 'Test Report'.
ENDFORM.                    " BUILD_LAYOUT
FORM build.
DATA: fieldcat_in TYPE slis_fieldcat_alv.
CLEAR fieldcat_in.
fieldcat_ln-fieldname = 'MATNR'.
fieldcat_ln-tabname   = 'ITAB1'.
fieldcat_ln-seltext_l = 'Material Num'.
fieldcat_ln-key       = ' '.
fieldcat_in-outputlen = 18.
fieldcat_ln-col_pos     = 1.
fieldcat_ln-row_pos     = 1.
APPEND fieldcat_ln TO gt_fieldcat.
endform.

Similar Messages

Can't save ALV layout as user-specific

Hi!
Whenever I try to save an ALV layout the option User-specific is grayed out, so all variants will be public.
Users would like to save their own layouts safe from other users, as happens with program variants.
First of all then, is there any authorization object related to the User-specific option that my roles are missing?
I read somewhere that 'user-specific' option is controlled by auth. S_ALV_LAYO, ACTVT = 23, yet I have
this auth object with ACTVT = *.
Second, if this option was available, would this let users create their own layouts so that other users don't
overwrite them?
thanks
gracias
xiè xiè

in the resue FM check the I_SAVE which value are you passing:
Value range
' ' = Display variants cannot be saved
Defined display variants (such as delivered display variants) can be selected for presentation regardless of this indicator. However, changes cannot be saved.
'X' = Standard save mode
Display variants can be saved as standard display variants.
Saving display variants as user-specific is not possible.
'U' = User-specific save mode
Display variants can only be saved as user-specific.
'A' = Standard and user-specific save mode
Display variants can be saved both as user-specific and as standard
variants. Users make their choice on the dialog box for saving the
display variant.

Need to add Excel as option on SAP report view (currently only ALV layout)

Some users currently have the option to view a report in either the standard ALV layout view or as Excel (example output - transaction VA05). They also have the Excel icon on their toolbar. Our issue is that not all users have this option in their GUI. What do we need to do to add the Excel icon/view option to either their account or their GUI?

Hello Ryan,
The export option is coded into the application.
Can you advise if all users are using the same application VA*?
Do all users have the same Gui patch and version?

Saving Option in Change layout TAB

Hi ,
I am taking Sales order list in VA05
I clicked on change layout tab n Selct field as per my requirements
but Now I want to save that layout but I am not getting any saving option
in menu bar Settings - layout - saving this option is in grey
How to activate this option?
Regards,
Akshay

Hi,
check this thread, you have only answered this questions answer
VA05 : Save Layout Option is deactive..
Thanks,
Raja

ALV drilldown not possible in report once i apply layout save option

Hi All,
I have developed one ALV report.
Firstly i use drill down in the report means call transaction by double click event.
Then i apply layout save option in same report.
But as soon as i apply layout save option the call transaction is not possible.
How to resolve this problem.
Regards,
Deepak.

Hi,
when you applied save button did you use any other PF status apart froms standard ALV pf-status..
if so...
go to the pf-status which you have declared ...
then go to the function keys...
under Recommended Function Key Settings for the F2 key set the function code as
&IC1
this will resolve your issue
Regards,
Siddarth

How to send pdf or excel attachment as saved alv layout in email

Hi Guru,
I am developing a report in which, i am sending report as excel attachment after clicking a button on top of alv grid, and pdf attachment after clicking another button on top of alv grid. I am sending mail by two ways they are:
1) I am populating my internal table value in separate internal table and converting that to string and sending email as excel attachment.
2) And am converting report as spooljob, and using abapspool 2 pdf function module i am converting spool to pdf, after that am send that pdf as mail attachment.
Now my requirement is i need to send email attachment as layout which is displayed in the alv screen, even i hide a column and change the layout it is going with all the columns. What should i do for this problem.
Regards,
Rithika

Hi,
Check if the below steps will solve the problem.
* Get the run time ALV layout (field catalog) using the below method.
     data: r_grid TYPE REF TO cl_gui_alv_grid.
     CALL METHOD r_grid->get_frontend_fieldcatalog
          IMPORTING
               et_fieldcatalog = t_fcat.
* Adjust the download table according to t_fcat.

Alv report save option

hi experts,
I have an executable program which displays alv output, my requirement is after the output is displayed in ultilities tab(drop down) we have saving option which is generally disabled.
how to make this enabled?
regards,
jayant

I guess you are talking about saving variants, aren't you?
For this you should use
data: ls_variant type disvariant.
ls_variant-report = sy-repid.
l_variant-variant = 'SOME_SAVED_VARIANT'.
CALL METHOD gr_alvgrid->set_table_for_first_display
   EXPORTING
      i_save = 'A'   "this will enable save option
      is_variant = ls_variant "this will set default variant in layout
Regards
Marcin

Doubt in alv layout variant.

hi experts,
I have a requirement that my selection screen should have 'ALV LAYOUT' as one of my parameter. I am using PNPCE LDB , now my issue is I can get the layout option when f4 is press on the alv layout parameter but the respective layout is not displaying in my output.
ex: I have layout A and B .
A have only pernr and name
b have only pernr and address
my normal alv layout is pernr name and address. if i choose A in my ALV LAYOUT parameter also its displaying in default layout alv same is happening for while am choosing B. I not getting the alv output for respective layout I chosen.
{code}
FORM GET_VARIANT .
DATA: lw_variant TYPE disvariant,
   l_exit     TYPE char1.
   lw_variant-report = sy-repid.
   CALL FUNCTION 'REUSE_ALV_VARIANT_F4'
     EXPORTING
       is_variant = lw_variant
       i_save     = 'A'
     IMPORTING
       e_exit     = l_exit
       es_variant = lw_variant
     EXCEPTIONS
       not_found = 2.
   IF sy-subrc = 2.
     MESSAGE ID sy-msgid TYPE 'S' NUMBER sy-msgno
     WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
   ELSE.
     IF l_exit EQ space.
       p_layout = lw_variant-variant.
       IF NOT p_layout IS INITIAL.
         PERFORM get_w_variant.
       ENDIF.
     ENDIF.
   ENDIF.
ENDFORM.                    " GET_VARIANT
*&      Form GET_W_VARIANT
*       text
* --> p1        text
* <-- p2        text
FORM GET_W_VARIANT .
   DATA: lw_variant TYPE disvariant.
   lw_variant-report      = sy-repid.
   lw_variant-handle      = space.
   lw_variant-log_group   = space.
   lw_variant-username    = space.
   lw_variant-variant     = p_layout.
   lw_variant-text        = space.
   lw_variant-dependvars = space.
ENDFORM.                    " GET_W_VARIANT
*&      Form ALV_DISPLAY
*       text
* --> p1        text
* <-- p2        text
FORM ALV_DISPLAY .
* DATA: l_table      TYPE REF TO cl_salv_table.
* TRY.
* CALL METHOD CL_SALV_TABLE=>FACTORY
**    EXPORTING
**      LIST_DISPLAY   = IF_SALV_C_BOOL_SAP=>FALSE
**      R_CONTAINER    =
**      CONTAINER_NAME =
*    IMPORTING
*      R_SALV_TABLE   = L_TABLE
*    CHANGING
*      T_TABLE        = GT_ALV
*   CATCH CX_SALV_MSG .
* ENDTRY.
*   l_table->display( ).
   DATA: lw_variant TYPE disvariant.
DATA:I_FIELD TYPE SLIS_T_FIELDCAT_ALV,
      iWA TYPE SLIS_FIELDCAT_ALV.
   IWA-FIELDNAME = 'PERNR'.
   IWA-SELTEXT_L = 'EMPLOYEE ID'.
   APPEND IWA TO i_FIELD.
   IWA-FIELDNAME = 'NAME'.
   IWA-SELTEXT_L = 'NAME'.
   APPEND IWA TO I_FIELD.
   IWA-FIELDNAME = 'DEPT'.
   IWA-SELTEXT_L = 'DEPT'.
   APPEND IWA TO I_FIELD.
   IWA-FIELDNAME = 'UNION'.
   IWA-SELTEXT_L = 'UNION'.
   APPEND IWA TO I_FIELD.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
   EXPORTING
     i_callback_program      = 'ZTESTPRGFOR20' "Program name
     i_callback_user_command = 'USER_COMMAND'
     it_fieldcat             = i_field
*    it_sort                 = i_sort
     i_save                  = 'X'
     is_variant              = Lw_variant
   TABLES
     t_outtab                 = GT_ALV
   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.
ENDFORM.                    " ALV_DISPLAY
{code}

hi Mohammed Quddus,
thanks for your reply . but if you look at my code the concept are same as same as that link code.
am getting all the things right.
i Can able to change the layout by the button on alv and
able to save that new layout
the saved layout are displaying in the my parameter if I press f4. the problem is if I choose the saved layout that layout is not coming in my alv output always its showing default layout.
if anything you find wrong in my code please let me know.

ALV layout variant missing in background job.

hi guys,
Having problem on getting the default ALV layout variant when run the job in backgorund. Please advise any correction needed in the following code.
Thanks.
*& Include           Z_MM_KBR_AGSUBCONINV_MOD2                        *
MODULE status_0100 OUTPUT.
SET PF-STATUS '100'.
SET TITLEBAR '100'.
ENDMODULE.                 " STATUS_0100 OUTPUT
*&      Module display_data OUTPUT
      text
MODULE display_data OUTPUT.
IF sy-batch IS INITIAL. "Foreground
IF w_container IS INITIAL.
    IF cl_gui_alv_grid=>offline( ) IS INITIAL.
*Creating the container
      CREATE OBJECT w_container
        EXPORTING
          container_name              = c_container
        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.
    ENDIF.
*Creating the ALV GRID
    CREATE OBJECT w_grid
      EXPORTING
        i_parent          = w_container
        i_appl_events     = c_check
      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.
    else.
     exit.
    ENDIF.
ELSE.
*Creating the ALV GRID
    CREATE OBJECT w_grid
      EXPORTING
        i_parent          = go_dock_container
        i_appl_events     = c_check
      EXCEPTIONS
        error_cntl_create = 1
        error_cntl_init   = 2
        error_cntl_link   = 3
        error_dp_create   = 4
        OTHERS            = 5.
    IF sy-subrc <> 0.
      WRITE:/ 'Error in grid'.
    ENDIF.
     CREATE OBJECT w_grid
      EXPORTING i_parent = go_dock_container.
ENDIF.
*getting the variant option
    wa_variant-report     = sy-repid.
    wa_variant-username   = sy-uname.
    wa_layout-grid_title = sy-title.
    wa_layout-cwidth_opt = c_check.
    wa_layout-zebra       = c_check.
    wa_layout-no_f4       = c_check.
    wa_layout-sel_mode    = 'D'.
*Excluding the unwanted buttons
     PERFORM exclude_toolbar_buttons.
build field catalog.
    CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
      EXPORTING
        i_buffer_active        = c_check
        i_structure_name       = c_fcat_str
        i_bypassing_buffer     = c_check
      CHANGING
        ct_fieldcat            = t_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.
    loop at t_fieldcat into w_fieldcat.
     if w_fieldcat-FIELDNAME = 'AGING1'.
      W_FIELDCAT-NO_ZERO = 'X'.
      MODIFY t_fieldcat FROM W_FIELDCAT INDEX SY-TABIX.
     ENDIF.
    endloop.
Generate sort critria
    PERFORM generate_sort.
Create object of class lcl_event_receiver.
    CREATE OBJECT w_event.
Handler for events.
   SET HANDLER w_event->handle_top_of_page       FOR w_grid.
   SET HANDLER w_event->handle_print_top_of_page FOR w_grid.
   SET HANDLER w_event->handle_print_end_of_list FOR w_grid.
    SET HANDLER w_event->handle_hotspot_click     FOR w_grid.
*Displaying the alv
   IF NOT sy-batch IS INITIAL.
     PERFORM create_snp.
   ENDIF.
t_data = i_final.
    CALL METHOD w_grid->set_table_for_first_display
      EXPORTING
        i_save                        = 'A'
        is_layout                     = wa_layout
        is_variant                    = wa_variant
      CHANGING
        it_outtab                     = t_data
        it_fieldcatalog               = t_fieldcat
      EXCEPTIONS
        invalid_parameter_combination = 1
        program_error                 = 2
        too_many_lines                = 3
        OTHERS                        = 4.
    IF sy-subrc <> 0.
    ENDIF.
ENDIF.
ENDIF.
ENDMODULE.                 " display_data OUTPUT
*&      Module user_command_0100 INPUT
      text
MODULE user_command_0100 INPUT.
DATA: lt_rows TYPE lvc_t_row,
         w_rows TYPE lvc_s_row.
CASE sy-ucomm.
    WHEN c_back.
      LEAVE TO SCREEN 0.
    WHEN c_exit.
      LEAVE TO SCREEN 0.
    WHEN c_cancel.
      LEAVE TO SCREEN 0.
   WHEN 'BILDET'.
     CALL METHOD w_grid->get_selected_rows
       IMPORTING
         et_index_rows = lt_rows.
     CALL METHOD cl_gui_cfw=>flush.
     IF sy-subrc EQ 0.
       READ TABLE lt_rows INTO w_rows INDEX 1.
       READ TABLE i_vbfa INTO w_vbfa INDEX w_rows-index.
       IF sy-subrc EQ 0.
         CLEAR i_zbw_br_nf4.
         LOOP AT i_zbw_br_nf3 INTO w_zbw_br_nf3 WHERE
                     refkey = w_vbfa-v_vbeln.
           APPEND w_zbw_br_nf3 TO i_zbw_br_nf4.
         ENDLOOP.
call dialog screen and display new alv control
         CALL SCREEN 101 STARTING AT 10 5.
       ENDIF.
     ENDIF.
     WHEN 'NOTAF'.
     CALL METHOD w_grid->get_selected_rows
       IMPORTING
         et_index_rows = lt_rows.
     CALL METHOD cl_gui_cfw=>flush.
     IF sy-subrc EQ 0.
       READ TABLE lt_rows INTO w_rows INDEX 1.
       READ TABLE i_zbw_br_nf3 INTO w_zbw_br_nf3 INDEX w_rows-index.
       DATA docnum LIKE j_1bdydoc-docnum.
       docnum = w_zbw_br_nf3-docnum.
       SET PARAMETER ID 'JEF' FIELD docnum.
       CALL TRANSACTION 'J1B3N' AND SKIP FIRST SCREEN.
     ENDIF.
ENDCASE.
ENDMODULE.                 " user_command_0100 INPUT
*&      Form modify_col_name
      text
     -->P_<FCAT> text
     -->P_TEXT_H01 text
FORM modify_col_name USING pwa_fcat TYPE lvc_s_fcat
                             value(pw_text) TYPE any.
pwa_fcat-coltext   = pw_text.
pwa_fcat-scrtext_l = pw_text.
pwa_fcat-scrtext_m = pw_text.
pwa_fcat-scrtext_s = pw_text.
ENDFORM.                    " modify_col_name
      FORM display_hotspot                                          *
FORM display_hotspot USING pw_row_id    TYPE lvc_s_row
                           pw_column_id TYPE lvc_s_col.
FIELD-SYMBOLS <l_data> TYPE zbrforecast.
READ TABLE t_br_nf_acum ASSIGNING <l_data> INDEX pw_row_id-index.
CHECK sy-subrc = 0.
IF pw_column_id = ' '.
ENDIF.
ENDFORM.                    "display_hotspot
*&      Form generate_sort
      Genereate Sort criteria
FORM generate_sort.
Local variables
DATA: wal_sort TYPE lvc_s_sort,
       wl_pos   TYPE numc2.
wl_pos = 01.
sort ORDER
wal_sort-spos      = wl_pos.
wal_sort-fieldname = c_aufnr.
wal_sort-up        = c_check.
APPEND wal_sort TO t_sort.
ENDFORM.                    "generate_sort
*&      Form f4_variant
      text
     <--PW_VARI text
FORM f4_variant CHANGING pw_vari TYPE disvariant-variant.
wa_variant-report = sy-cprog.
CALL FUNCTION 'REUSE_ALV_VARIANT_F4'
    EXPORTING
      is_variant    = wa_variant
      i_save        = c_u
    IMPORTING
      es_variant    = wa_variant
    EXCEPTIONS
      not_found     = 1
      program_error = 2
      OTHERS        = 3.
IF sy-subrc IS INITIAL.
    pw_vari = wa_variant-variant.
ELSE.
    MESSAGE s208(00) WITH text-t04.
ENDIF.
ENDFORM.                    " f4_variant
*&      Form validate_layout
*This subroutine is to validate the layout
No parameters are passed to this subroutine
FORM validate_layout.
IF NOT p_layout IS INITIAL.
Check Layout
   wa_variant-report   = sy-repid.
   wa_variant-username = sy-uname.
   wa_variant-variant = p_layout.
   CALL FUNCTION 'LVC_VARIANT_EXISTENCE_CHECK'
     EXPORTING
       i_save     = c_u
     CHANGING
       cs_variant = wa_variant
     EXCEPTIONS
       OTHERS     = 01.
   IF NOT sy-subrc IS INITIAL.
     SET CURSOR FIELD 'P_LAYOUT'.
     MESSAGE s001(00) WITH text-t06 p_layout.
     STOP.
   ENDIF.
ELSE.
clear wa_variant.
ENDIF.
ENDFORM.                    " validate_layout
*&      Form validate_data
      text
FORM validate_data .
PERFORM validate_layout.
ENDFORM.                    " validate_data

Hi,
Before the call to method set_table_for_first_display, populate
wa_variant-report = sy-repid.
Best regards,
Prashant

Webdynpro ABAP -- ALV Layout setting

Dear all,
In my development with ALV in Webdynpro ABAP, I want to save the ALV layout via Setting. but it seems that the layout only can be saved as user-specific, is it any possible to use it as the gobal one?
Please kindly provide me some hints. Thanks in Advance.
Best Regards,

Hi,
Yes you can make it global in administrative level.
1.In SE80 ,Double click on the name of your Web Dynpro Application .
2.Select Web Dynpro Application Menu .
3.Select Test->-> Execute in Administrative Mode from the menu.
Your application opens in administrative mode .
Go to the ALV settings make the changes and save it as some variant.
This layout will be default and global to all the users.
Regards
John Paul

ALV layout in selection criteria

Dear Friends,
I have created a webdynpro report with 2 views. 1st view contains all selction criteria and 2nd view contains ALV.
I have created couple of layouts for ALV using settings option. By default we will have [Standard View]. Every thing working fine.
Now my user is requesting layout also in the selection screen as dropdown and whatever layout is selected in selection criteria should apply to ALV in 2nd screen.
Please let me know how can we do this. Thank you.

Hi vijay,
Just do one thing create an attribute DES of NUMC2 in the COMPONENT CONTEXT node and
drag that to local view.
Create dropdown box and fill with the four or five designs that are there
in the layout the values you can get from domain of WDUI_GROUP_DESIGN.
Now what you do is bind this attribute to the design property in the layout.
When user select say STANDARD, this particular string will be stored in the attribute DES.
Now in the view two drag that node which contains that attribute DES to local context
and bind that to DESIGN property of that table.
Now DES contains the one user selected int he initial screen and now set that to the view two,
I hope it gives you idea.
Regards and Best wishes.

Allowing a User to choose the ALV layout format on selection-screen

Hi all,
I would like to know how i can add a parameter to my selection-screen which would allow the User to choose a saved ALV layout format before pressing F8 rather than after. As used in CO15 or MB51.
Thanks femi.

yes , You can check the program BCALV_TEST_FULLSCREEN_LAYOUT to check how F4 help is to be used .
to check existene of variant is pretty simple.
Pass the variant name in the ALV display FM .

Dynamic change the ALV layout

Alle experts:
In ALV layout report, how to dynamic change the layout int ABAP porgram?
e.g. I have save 5 layout, I need to change them base the my selection in ABAP program? How to do this?
Thanks in advance!

Try to call fieldcatlog dymnamically. Refer tofollowing code. Reward if helpful.
REPORT zfir0001 MESSAGE-ID ztax.
                           Tables
TABLES : glt0, t001, skat.
                      Internal Tables
DATA: BEGIN OF itab OCCURS 0,
        racct               LIKE   glt0-racct,    "Account number
        txt20               LIKE   skat-txt20,    "G/L account short text
        co_1000          LIKE     glt0-hslvt,     "Balance carried forward for company code 1000
        co_1100          LIKE     glt0-hslvt,     "Balance carried forward for company code 1100
        co_1200          LIKE     glt0-hslvt,     "Balance carried forward for company code 1200
DATA : BEGIN OF itab1 OCCURS 0,
         bukrs LIKE glt0-bukrs,
         waers LIKE t001-waers,
       END OF itab1.
DATA : BEGIN OF it_itab1 OCCURS 0.
        INCLUDE STRUCTURE glt0.
DATA : END OF it_itab1.
                      Data Declarations
DATA : w_total   LIKE glt0-hslvt,
       w_count   LIKE glt0-bukrs,
       w_flg     TYPE c,
       lv_count TYPE i.
      w_slash   TYPE c VALUE ' '.
                      Selection screen
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE tit1.
SELECT-OPTIONS : s_bukrs FOR glt0-bukrs OBLIGATORY,
                 s_racct FOR glt0-racct OBLIGATORY,
                 s_ryear FOR glt0-ryear OBLIGATORY,
                 s_rldnr FOR glt0-rldnr OBLIGATORY.
SELECTION-SCREEN END OF BLOCK b1.
INITIALIZATION.
tit1 = 'Please select:'(004).
TYPE-POOLS: slis.                                 "ALV Declarations
DATA: i_fieldcat TYPE slis_t_fieldcat_alv WITH HEADER LINE,
        gd_tab_group TYPE slis_t_sp_group_alv,
        gd_layout    TYPE slis_layout_alv,
        gd_repid     LIKE sy-repid.
********Geting the selected company code in table itab1****
START-OF-SELECTION.
IF NOT s_bukrs-high IS INITIAL.
    itab1-bukrs = s_bukrs-low.
    APPEND itab1.
    w_count = s_bukrs-low.
    DO.
      IF s_bukrs-high = w_count.
        EXIT.
      ELSE.
        w_count = w_count + 1.
      ENDIF.
      SELECT SINGLE * FROM t001
          WHERE bukrs = w_count.
      IF sy-subrc = 0.
        itab1-bukrs = w_count.
        APPEND itab1.
        CLEAR itab1.
      ENDIF.
    ENDDO.
ELSE.
    itab1-bukrs = s_bukrs-low.
    APPEND itab1.
ENDIF.
SELECT * FROM glt0 INTO CORRESPONDING FIELDS OF TABLE it_itab1
          WHERE rldnr   IN s_rldnr
          AND   bukrs   IN s_bukrs
          AND   ryear   IN s_ryear
          AND   racct   IN s_racct.
SORT it_itab1 BY bukrs.
LOOP AT it_itab1.
    AT END OF racct.
      w_flg = 'X'.
    ENDAT.
    SELECT SINGLE txt20 INTO (itab-txt20) FROM skat
              WHERE spras = sy-langu
              AND   saknr = it_itab1-racct.
    PACK it_itab1-racct TO it_itab1-racct.
    itab-racct = it_itab1-racct.
    w_total = it_itab1-hsl01 + it_itab1-hsl02 + it_itab1-hsl03 + it_itab1-hsl04 +
              it_itab1-hsl05 + it_itab1-hsl06 + it_itab1-hsl07 + it_itab1-hsl08 +
              it_itab1-hsl09 + it_itab1-hsl10 + it_itab1-hsl11 + it_itab1-hsl12 +
              w_total        + it_itab1-hslvt.
    IF w_flg = 'X'.
      READ TABLE itab1 WITH KEY bukrs = it_itab1-bukrs.
      IF sy-subrc = 0.
        SELECT SINGLE * FROM t001
            WHERE bukrs = itab1-bukrs.
        IF t001-waers = 'JPY' OR
           t001-waers = 'HUF'.
          w_total = w_total * 100.
        ENDIF.
        CASE it_itab1-bukrs.
          WHEN '1000'.
            itab-co_1000 = w_total.
          WHEN '1100'.
            itab-co_1100 = w_total.
          WHEN '1200'.
            itab-co_1200 = w_total.
        ENDCASE.
        COLLECT itab.
        CLEAR: itab, w_flg, w_total.
      ENDIF.
    ENDIF.
ENDLOOP.
SORT itab BY racct.
IF NOT itab[] IS INITIAL.
    PERFORM field_cat1.
    lv_count = 1.
    LOOP AT itab1.
      PERFORM field_cat USING itab1-bukrs.
    ENDLOOP.
    PERFORM display_alv_report .
ELSE.
    MESSAGE s000 WITH 'No records Found'(003).
ENDIF.
*&      Form display_alv_report
      text
FORM display_alv_report .
gd_repid = sy-repid.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program = gd_repid
      is_layout          = gd_layout
      it_fieldcat        = i_fieldcat[]
      i_save             = 'X'
    TABLES
      t_outtab           = itab
    EXCEPTIONS
      program_error      = 1
      OTHERS             = 2.
ENDFORM.                    "display_alv_report
*&      Form field_cat1
      text
FORM field_cat1 .
i_fieldcat-col_pos     = 0.
i_fieldcat-fieldname   = 'RACCT'.
i_fieldcat-seltext_m    = 'Account'(001).
i_fieldcat-fix_column = 'X'.
i_fieldcat-emphasize   = 'X'.
APPEND i_fieldcat TO i_fieldcat.
CLEAR i_fieldcat.
i_fieldcat-col_pos     = 1.
i_fieldcat-fieldname   = 'TXT20'.
i_fieldcat-seltext_m    = 'Description'(002).
APPEND i_fieldcat TO i_fieldcat.
CLEAR i_fieldcat.
ENDFORM.                                                    "field_cat1
*&      Form field_cat
      text
     -->XV_BURKS   text
FORM field_cat USING xv_burks TYPE char4.
lv_count = lv_count + 1.
i_fieldcat-col_pos     = lv_count.
CONCATENATE 'CO_' xv_burks INTO i_fieldcat-fieldname.
i_fieldcat-seltext_m    = xv_burks.
i_fieldcat-just = 'C'.
i_fieldcat-no_zero = 'X'.
i_fieldcat-do_sum = 'X'.
APPEND i_fieldcat TO i_fieldcat.
CLEAR i_fieldcat.
ENDFORM.   "field_cat
Edited by: dhanashree wadkar on Apr 30, 2008 6:00 AM

Auth. obj. controlling layout saving for a COPA report

Hello,
Could someone please guide me on which authorization object controls the capability to use the menu option : Settings , Layout, Saving... for a COPA report.
The problem is that this options appears dimmed for the users.
Thank you in advance for your cooperation.
Best regards.
Reda Khalifa

Hi,
Could you check these authority check objects S_RS_COMP and S_RS_COMP1.
Thanks,
NN

Problem in exporting ALV Layout to excelsheet!!!

Hi,
I am facing a problem while trying to export an ALV layout to Excel sheet. While the values appear correctly, the order of the columns gets distorted. So the table in Excel appears with correct values but with columns in disarray. I have checked the settings of Excel (SECURITY LEVEL is Medium and TRUSTED SOURCES "Trust All Installed Add-Ins and Templates" and "Trust Access to Visual Basic Project" is checked.) and its doesnt seem to be change anything.
Any suggestions?

Hi,
Follow the below procedures to export data to excel.
Normal ALV :
Click on the local file option and select spreadsheet option from the radio button list and click on ok , file save window will open , select the correct directory path and give the file name , then ALV contents will be downloaded into Excel sheet.
In OO ALV :
click on the Export button in the ALV toolbar ->click on the spreadsheet , then information message window will open , select ok button , then you will get three options , click on the table option and press ok , data will be exported to Excel sheet , then save the excel data in specified directory.
Regards
Appana

ALV Layout saving option

Similar Messages

Maybe you are looking for