Fast Change in OO ALV Report

Hi
Can any one please tell me how to implement FAST CHANGE option in ALV Report. FAST CHANGE is the option you can see in ME22N to change all item Values at one time.
Regards
Ravi

hi
In ME22N
Go to Fast Change--> Change layout
In hidden fields, select therequired field
for selecting one field, there are four arrows
left shift, left, right, right shift fields.
then select<-- this arrow for one field.
if want to add more fields then go for
<<-- this arrow.
so that it will be moved to display field
Regards
Nishant Malhotra

Similar Messages

Column heading change in print ALV report

Hi,
when i see ALV report output that time column heading is correct. but when i see print preview it's give another column heading.
like
column heading - Delivery Challan no it's come in print preview only delivery.
Thanks in Advance.
regards.
Sam.

Hi,
thanks.
I have already use this in report.
like.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-COL_POS = POS.
WA_FIELDCAT-FIELDNAME = 'VBELN'.
WA_FIELDCAT-REF_TABNAME = 'LIPS'.
WA_FIELDCAT-SELTEXT_M = 'DELIVERY CHALLAN NO'.
WA_FIELDCAT-OUTPUTLEN = 20.
APPEND WA_FIELDCAT TO T_FIELDCAT.
Regard
Sam

Change in the alv report?

Hi guys,
My output in the alv is displaying like this at the moment.
Component Material Desc Comp.MRP Qunatity Unit Price Currency Entries
009/19222     ABC                c11               1          EA   100       usd          1
009/19222    ABC                 c11               1          EA   100       usd          1
>this line is total                                 2          EA               usd           2
So in the total line as well i need to display all other column values which r not summed.so now my output should like this.What can i do.Any suggestions please.
Component Material Desc Comp.MRP Qunatity Unit Price Currency Entries
009/19222       ABC               c11               1         EA   100      usd          1
009/19222       ABC               c11               1         EA   100      usd          1
009/19222       ABC               c11               2         EA   100      usd          2

you can do it in field catalog. Just add two things where u r creating field catalog
gs_fcat-datatype    = 'CURR'.
gs_fcat-do_sum = abap_true.
Rewards if useful...................
Minal

Change Column Heading in ALV Report

Hi,
I have developed a ALV Report, showing correct output.
Problem is that Column Heading is not showing correct...means it is showing as per field name. But We want to change as per our understand. i.e. One column heading is like Unrestricted Stock but we want Unrestricted Stock...(BILF is an indicator)..
We have write in the code..
FORM build_fieldcat10.
CLEAR fieldcat_ln.
ADD 1 TO col_pos.
fieldcat_ln-ref_tabname = 'MARD'.
fieldcat_ln-fieldname   = 'LABST'.
fieldcat_ln-seltext_m   = 'BILF Unrest.Stock'.
fieldcat_ln-key         = space.
fieldcat_ln-do_sum      = space.
fieldcat_ln-col_pos     = col_pos.
fieldcat_ln-no_out      = space.
fieldcat_ln-qfieldname = space.
fieldcat_ln-hotspot     = space.
APPEND fieldcat_ln TO fieldcat.
ENDFORM.                    " BUILD_FIELDCAT1
But after change the selection text...not showing correct text..How can i change Column heading???
Please help me..

Thanks a lot dear..
My problem resolved by using SCRTEXT_L.

How to Change the position of Column in ALV report

Hi Follks,
    Is is possible to change the position of column in ALV report?.If yes then how?
    Basically my requirement is, that user want afacility where , he should be able to change the position
    of column aftre he runs the report.
    Eg: After running the report , user felt that column 5 should be at position 2 , in that case he should
           be able to drag column 5 at position 2 and vice versa.
    Please help me, how to solve this issue.
    Note : I am using NW 7.0 SP 9
    Regards
    PG
Edited by: PG on Apr 13, 2009 11:10 AM

HI PG,
do below whie filling the filed catlog
wa_fieldcat-fieldname        = 'Field1".
wa_fieldcat-COL_POS = '1',
append wa_fieldcat to it_fieldcat.
wa_fieldcat-fieldname         = 'Field2".
wa_fieldcat-COL_POS = '2',
wa_fieldcat-fieldname         = 'Field3".
wa_fieldcat-COL_POS = '3',
Thanks!

Change Column Headings in ALV Report Using OO

Hi Friends,
I am using OO to display a report with ALV Grid
I tried to change the column names but it still takes the column names from the DDIC.
My declaration is as follows
Data: num type dmbtr.
TRY.
            lr_column ?= lr_columns->get_column( columnname = 'NUM' ).
            lr_column->set_output_length('7').
            lr_column->set_long_text( ' Value' ).
           lr_column->set_short_text( ''() ).
            lr_column->set_medium_text( 'Value' ).
          CATCH cx_salv_not_found INTO gr_error.
            gr_msg = gr_error->get_text( ).
            MESSAGE gr_msg TYPE 'I'.
        ENDTRY.
*--- display report
        gr_table->display( ).
      CATCH cx_salv_msg.
        WRITE: 'Error displaying grid! - cx_salv_msg'(044).
      CATCH cx_salv_not_found.
        WRITE: 'Error displaying grid! - cx_salv_not_found'(004).
      CATCH cx_salv_data_error.
        WRITE: 'Error displaying grid! - cx_salv_data_error'(005).
      CATCH cx_salv_existing.
        WRITE: 'Error displaying grid! - cx_salv_existing'(006).
I need the column name as VALUE but it displays as Amount LC in the alv report.
Thanks
chaithanya

Hey hello,
you have to change short medium and log text
look at this:
gr_columns = (Table got from factory)->get_columns( ).
gr_column = gr_columns->get_column('NAme').
gr_column->set_long_text('new name long').
gr_column->set_medium_text('new name medium').
gr_column->set_short_text('new name short ).
it will help
thanks
Edited by: Alfito on Nov 28, 2011 9:31 AM

Change column headers in ALV report

Hi experts,
I have created a new simple ALV report (it uses only internal tables, no structures). I would like to change the names of column headers in the ALV report. Is this possible? How can I do it?
Thanks in advanced.

Thanks for your reply,
I am trying to use the code mentioned in the link but I think that something
is missing, probably a CASE statement before WHEN in the LOOP.
Can you help me? What do I have to put before WHEN statement?
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
    EXPORTING
      i_program_name         = <program name>
      i_structure_name       = <DDIC structure>
      i_bypassing_buffer     = 'X'
    CHANGING
      ct_fieldcat            = gi_fieldcat[]
    EXCEPTIONS
      inconsistent_interface = 1
      program_error          = 2
      OTHERS                 = 3.                           "#EC *
LOOP AT gi_fieldcat INTO wa_fieldcat.
      WHEN 'XXXX'.
        wa_fieldcat-seltext_s    = 'Fac'.
        wa_fieldcat-seltext_m    = 'Factory'.
        wa_fieldcat-seltext_l    = 'Factory'.
        wa_fieldcat-reptext_ddic = 'Factory'.
    MODIFY gi_fieldcat FROM wa_fieldcat.
ENDLOOP.

ALV Report Changed Layout Cannot be saved .

IN an ALV report if i changed the layout with selected fields .i cannot save it
the save button on standard toll bar is disiabled
as well as menu items to save the laout ...
i can only chane the layout..
..please guide me in how to allow the end user to save the layout .....

hi Vijay,
when you call the ALV FM, beware of importing paramter i_save:
CALL FUNCTION 'REUSE_ALV_...
i_save = 'A'
hope this helps
ec

Create a Procedural ALV Report with editable fields and save the changes

Hi,
I am new to ABAP. I have created a Procedural ALV Report with 3 fields. I want to make 2 fields editable. When executed, if the fields are modified, I want to save the changes. All this I want to do without using OO concepts. Please help . Also, I checked out the forum and also the examples
BCALV_TEST_GRID_EDIT_01
BCALV_TEST_GRID_EDIT_02
BCALV_TEST_GRID_EDIT_04_FORMS
BCALV_TEST_GRID_EDITABLE
BCALV_EDIT_01
BCALV_EDIT_02
BCALV_EDIT_03
BCALV_EDIT_04
BCALV_EDIT_05
BCALV_EDIT_06
BCALV_EDIT_07
BCALV_EDIT_08
BCALV_FULLSCREEN_GRID_EDIT
But all these are using OO Concepts.
Please help.
Regards,
Smruthi

TABLES:     ekko.
TYPE-POOLS: slis.                                 "ALV Declarations
*Data Declaration
TYPES: BEGIN OF t_ekko,
ebeln TYPE ekpo-ebeln,
ebelp TYPE ekpo-ebelp,
statu TYPE ekpo-statu,
aedat TYPE ekpo-aedat,
matnr TYPE ekpo-matnr,
menge TYPE ekpo-menge,
meins TYPE ekpo-meins,
netpr TYPE ekpo-netpr,
peinh TYPE ekpo-peinh,
line_color(4) TYPE c,     "Used to store row color attributes
END OF t_ekko.
DATA: it_ekko TYPE STANDARD TABLE OF t_ekko INITIAL SIZE 0,
      wa_ekko TYPE t_ekko.
*ALV data declarations
DATA: fieldcatalog 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.
START-OF-SELECTION.
PERFORM data_retrieval.
PERFORM build_fieldcatalog.
PERFORM build_layout.
PERFORM display_alv_report.
*&      Form BUILD_FIELDCATALOG
      Build Fieldcatalog for ALV Report
FORM build_fieldcatalog.
fieldcatalog-fieldname   = 'EBELN'.
fieldcatalog-seltext_m   = 'Purchase Order'.
fieldcatalog-col_pos     = 0.
fieldcatalog-outputlen   = 10.
fieldcatalog-emphasize   = 'X'.
fieldcatalog-key         = 'X'.
fieldcatalog-do_sum      = 'X'.
fieldcatalog-no_zero     = 'X'.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
fieldcatalog-fieldname   = 'EBELP'.
fieldcatalog-seltext_m   = 'PO Item'.
fieldcatalog-col_pos     = 1.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
fieldcatalog-fieldname   = 'STATU'.
fieldcatalog-seltext_m   = 'Status'.
fieldcatalog-col_pos     = 2.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
fieldcatalog-fieldname   = 'AEDAT'.
fieldcatalog-seltext_m   = 'Item change date'.
fieldcatalog-col_pos     = 3.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
fieldcatalog-fieldname   = 'MATNR'.
fieldcatalog-seltext_m   = 'Material Number'.
fieldcatalog-col_pos     = 4.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
fieldcatalog-fieldname   = 'MENGE'.
fieldcatalog-seltext_m   = 'PO quantity'.
fieldcatalog-edit             = 'X'
fieldcatalog-col_pos     = 5.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
fieldcatalog-fieldname   = 'MEINS'.
fieldcatalog-seltext_m   = 'Order Unit'.
fieldcatalog-col_pos     = 6.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
fieldcatalog-fieldname   = 'NETPR'.
fieldcatalog-seltext_m   = 'Net Price'.
fieldcatalog-col_pos     = 7.
fieldcatalog-outputlen   = 15.
fieldcatalog-datatype     = 'CURR'.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
fieldcatalog-fieldname   = 'PEINH'.
fieldcatalog-seltext_m   = 'Price Unit'.
fieldcatalog-col_pos     = 8.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
ENDFORM.                    " BUILD_FIELDCATALOG
*&      Form BUILD_LAYOUT
      Build layout for ALV grid report
FORM build_layout.
gd_layout-no_input          = 'X'.
gd_layout-colwidth_optimize = 'X'.
gd_layout-totals_text       = 'Totals'(201).
gd_layout-info_fieldname =      'LINE_COLOR'.
ENDFORM.                    " BUILD_LAYOUT
*&      Form DISPLAY_ALV_REPORT
      Display report using ALV grid
FORM display_alv_report.
gd_repid = sy-repid.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
       EXPORTING
            i_callback_program      = gd_repid
            i_callback_pf_status_set = 'STATUS'
            i_callback_top_of_page   = 'TOP-OF-PAGE'
           i_callback_user_command = 'USER_COMMAND'
           i_grid_title           = outtext
            is_layout               = gd_layout
            it_fieldcat             = fieldcatalog[]
           it_special_groups       = gd_tabgroup
           IT_EVENTS                = GT_XEVENTS
            i_save                  = 'X'
           is_variant              = z_template
       TABLES
            t_outtab                = it_ekko
       EXCEPTIONS
            program_error           = 1
            OTHERS                  = 2.
ENDFORM.                    " DISPLAY_ALV_REPORT
*&      Form DATA_RETRIEVAL
      Retrieve data form EKPO table and populate itab it_ekko
FORM data_retrieval.
DATA: ld_color(1) TYPE c.
SELECT ebeln ebelp statu aedat matnr menge meins netpr peinh
   UP TO 10 ROWS
    FROM ekpo
    INTO TABLE it_ekko.
LOOP AT it_ekko INTO wa_ekko.
    ld_color = ld_color + 1.
    IF ld_color = 8.
      ld_color = 1.
    ENDIF.
    CONCATENATE 'C' ld_color '10' INTO wa_ekko-line_color.
    MODIFY it_ekko FROM wa_ekko.
ENDLOOP.
ENDFORM.                    " DATA_RETRIEVAL
      FORM top-of-page                                              *
FORM top-of-page.
WRITE:/ 'This is First Line of the Page'.
ENDFORM.
      FORM status                                                   *
FORM status USING rt_extab TYPE slis_t_extab. .
SET PF-STATUS 'ALV'.
ENDFORM.
      FORM USER_COMMAND                                          *
--> RF_UCOMM                                                      *
--> RS                                                            *
FORM user_command USING rf_ucomm LIKE sy-ucomm
                         rs TYPE slis_selfield.
DATA ref1 TYPE REF TO cl_gui_alv_grid.
CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
    IMPORTING
      e_grid = ref1.
CALL METHOD ref1->check_changed_data.
CASE rf_ucomm.
when 'SAVE'.
get all the modified entries and store them in an internal table and udpate them in to the required transaction or your custom table.
endcase.
endform.
ENDFORM.
here u need to 2 performs for PF status and USER_COMMAND in the ALV parameters.
create a custom PF status and create push buttons and assign your ok codes in your PF status.
if the field has to be edited in the ALV then pass EDIT = 'X' for that field in the fieldcatlog preparation.
Hope this will help you.
Regards,
phani.

My changes edited on editable ALV report are not transferring back to itab?

Hello
I was developed a heirarchila editable ALV by using FM 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'. The user will do some changes in the ITEMs (Z_VBAP_TABLE) on this heirarchila ALV report and presses the SAVE button.
In my program am handling this SAVE command and even my break point is also triggering at SAVE, but my ITAB is not having the CHANGED/new data!! still it has the old data in it! How to capture the user changes done on the report? those changes are not tranferring back to my itab/prog! because, ineed to update Z_VBAP_TABLE with those changes
Thank you

Hi Raju,
it is possible . But i know about your code.
   WHEN 'SAVE'(003).
    Lock the table
      CALL FUNCTION 'ENQUEUE_E_TABLE'
        EXPORTING
          mode_rstable   = 'E'
          tabname        = viewname
        EXCEPTIONS
          foreign_lock   = 1
          system_failure = 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.
      IF NOT grid1 IS INITIAL .
        CALL METHOD grid1->check_changed_data .
      ENDIF .
      SORT i_mod BY row.
      DELETE ADJACENT DUPLICATES FROM i_mod COMPARING row.
      lh_norec = LINES( i_mod ).
      lh_total = lh_norec.
      SHIFT lh_total LEFT DELETING LEADING space.
Standard Table Update
      IF i_mod[] IS NOT INITIAL.
        LOOP AT i_mod INTO lwa_mod.
          READ TABLE <i_itab> INTO <wa_tab> INDEX lwa_mod-row.
          IF sy-subrc = 0 .
            IF lh_flag NE 'X'.
              MODIFY (viewname) FROM <wa_tab>.
            ELSE.
              INSERT (viewname) FROM <wa_tab>.
              IF sy-subrc NE 0.
                MESSAGE 'DATA NOT SAVED' type 'I'.
              ENDIF.
            ENDIF.
          ENDIF.
        ENDLOOP.
        CONCATENATE lh_total ' ' text-s01 INTO lh_succ SEPARATED BY space.
        MESSAGE 'Data Saved' TYPE 'I'.
This i did a long back. Check your code . I created an alv that will display data from my table . In this the user can click in any line item and he can change any value and press save that will save the value .
Regards,
Madhu.

How to change header value dynamiclly in procedural alv report?

Hi experts,
I develop one report (using procedural alv ).I gave 3 input check boxes (ex : in 1st checkbox 10days in 2nd check box 20 days
in 3rd check box 30 days they entered like this in the input checkboxes in days 10,20,30.In o/p report 3 columns i maintained like this .   Column1                          column2                                                 column 3
       from 0 to 10 days          from 11 to 20 days                                    from 21 to 30 days.
I want to display alv report o/p like this in the respective columns.
For example they enter 15 25 35 (i/p)
o//p in alv report
   Column1                          column2                                                 column 3
       from 0 to 15 days          from 16 to 25 days                                    from 26 to 35 days.
i want to change days dynamically in alv header .Pls give me the code using procedural alv report.
If u want i will give u detail.pls help me in this.

I assume the main issue is chaniging ALV header dynamically, isn't it? For this you need to use field seltext_m of fieldcatalog for particular column. So you can contruct header dynamically by string concatenation like
parameters: pa_1st(2) type n, "i.e. 15
                    pa_2nd(2) type n, "i.e 25
                    pa_3rd(2) type n. "i.e. 35
"first field
concatenate '0' 'to' pa_1st into it_fieldcatalog-seltext_m.
"next field
add 1 to pa_1st.
concatenate pa_1st 'to' pa_2nd into it_fieldcatalog-seltext_m.
"last field
add 1 to pa_2nd.
concatenate pa_2nd 'to' pa_3rd into it_fieldcatalog-seltext_m.
Refer [Sample ALV: Heading in ALV|http://www.sap-img.com/abap/sample-alv-heading-in-alv.htm] for more information.
Regards
Marcin

To change the colour of the particular cell of ALV report in Grid display.

Hai Friends,
                  I have created an Alv report in grid display .In that i want to change the colour of the particular cell.Plz provide the answer with a solved example.
         Thank u.

This works for a Custom Control and OO ALV in a Dialog Module
TABLES: kna1.
* Data (for the ALV Grid)
TYPES:
BEGIN OF t_alv_data,
    cust_id    TYPE kunnr,        "Customer Number
    cust_name TYPE name1_gp,     "Customer Name
    cust_color TYPE i,
*   cell coloring field
    color     TYPE lvc_t_scol,   "Cell coloring
END OF t_alv_data.
DATA:
v_alv_data TYPE t_alv_data,
i_alv_data TYPE STANDARD TABLE OF t_alv_data.
* ALV grid containers and objects
DATA:
o_alv_grid TYPE REF TO cl_gui_alv_grid,
o_alv_cont TYPE REF TO cl_gui_custom_container.
* ALV field catalog
DATA:
i_alv_fc TYPE lvc_t_fcat,
v_alv_fc LIKE lvc_s_fcat.
* ALV Layout (colors)
DATA:
v_alv_layout TYPE lvc_s_layo,
i_alv_color TYPE lvc_t_scol,
v_alv_color TYPE lvc_s_scol,
v_alv_color_cell TYPE lvc_s_colo.
* ALV variant
DATA:
v_alv_variant TYPE disvariant.
PARAMETERS:
p_alvvar TYPE disvariant-variant DEFAULT 'DEFAULT'.
DATA: ok_code LIKE sy-ucomm.
* Class for event handling
*       CLASS lcl_event_receiver DEFINITION
* [+] Event listener for the ALV grid
* [+] Handles hotspots and data changes
CLASS lcl_event_receiver DEFINITION.
PUBLIC SECTION.
    METHODS:
*     Hotspot clicking
      hotspot_click
           FOR EVENT hotspot_click OF cl_gui_alv_grid
             IMPORTING e_row_id
                       e_column_id
                       es_row_no,
*     Data changed (such as checkbox clicking)
      handle_data_changed
        FOR EVENT data_changed OF cl_gui_alv_grid
            IMPORTING er_data_changed.
ENDCLASS.                    "lcl_event_receiver DEFINITION
*       CLASS lcl_event_receiver IMPLEMENTATION
* [+] Implementation of the ALV Grid event handler class
CLASS lcl_event_receiver IMPLEMENTATION.
*       METHOD hotspot_click                                          *
* [+] Calls evvent_hotspot_click when a hotspot is clicked in the ALV
METHOD hotspot_click.
    PERFORM event_hotspot_click
                  USING e_row_id
                        e_column_id.
ENDMETHOD.                    "hotspot_click
*       METHOD handle_data_changed                                    *
* [+] Updates the source data when the data in the ALV display has
* been changed, such as by clicking a checkbox.
METHOD handle_data_changed.
    DATA: lv_changed TYPE lvc_s_modi.
    LOOP AT er_data_changed->mt_good_cells INTO lv_changed
      WHERE fieldname = 'CUST_NAME'.
      READ TABLE i_alv_data INTO v_alv_data INDEX lv_changed-row_id.
      IF sy-subrc = 0.
        MOVE lv_changed-value TO v_alv_data-cust_name.
        MODIFY i_alv_data FROM v_alv_data INDEX lv_changed-row_id.
      ENDIF.
    ENDLOOP.
ENDMETHOD.                    "handle_data_changed
ENDCLASS.                    "lcl_event_receiver IMPLEMENTATION
* Reference to the event listener class
DATA: event_receiver TYPE REF TO lcl_event_receiver.
*       FORM build_event_listener
* [+] Set the event handler on the ALV Grid
FORM build_event_listener.
* Assigning the event listener to the ALV
CREATE OBJECT event_receiver.
SET HANDLER event_receiver->handle_data_changed FOR o_alv_grid.
SET HANDLER event_receiver->hotspot_click       FOR o_alv_grid.
ENDFORM.                    "build_event_listener
*       AT SELECTION-SCREEN
*         ON VALUE-REQUEST FOR p_alvvar
* [+] Calls choose_alv_variant to ask the user to select an alv grid
*     layout variant
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_alvvar.
PERFORM choose_alv_variant
    CHANGING
      p_alvvar
      v_alv_variant.
*       START_OF_SELECTION
START-OF-SELECTION.
PERFORM get_data.
SET PF-STATUS 'ALVSCREEN' IMMEDIATELY.
CALL SCREEN 2000.
*       FORM get_data
* [+] Gets the data for the ALV grid
FORM get_data.
SELECT kunnr name1
    INTO (v_alv_data-cust_id,
          v_alv_data-cust_name)
    FROM kna1.
    APPEND v_alv_data TO i_alv_data.
ENDSELECT.
ENDFORM.                    "get_data
*       MODULE build_alv_grid
*   THIS SHOULD BE IN THE "PROCESS BEFORE OUTPUT" OF THE ALV SCREEN
* [+] Builds the ALV Grid objects
* [+] Calls to build the field catalog table
* [+] Loads the field catalog table into the ALV Grid
* [+] Loads the table data into the ALV Grid
MODULE build_alv_grid OUTPUT.
SET TITLEBAR '2000'.
* Also enables layout saving
PERFORM set_alv_variant
    USING
      p_alvvar
    CHANGING
      v_alv_variant.
* Building the grid and container on the screen
* NOTE: the container name MUST be upper-case
* Also, we don't want the objects to be created if in batch mode!
IF sy-batch IS INITIAL.
    CREATE OBJECT o_alv_cont
      EXPORTING
        container_name = 'O_ALV_TABLE'.
ENDIF.
CREATE OBJECT o_alv_grid
    EXPORTING
      i_parent = o_alv_cont.
* builds the event listener
PERFORM build_event_listener.
* Color the cells
PERFORM color_cells.
* Build the field catalog
PERFORM build_alv_fc.
* Loads the data into the grid
CALL METHOD o_alv_grid->set_table_for_first_display
    EXPORTING
      i_save          = 'A'
      i_default       = 'X'
      is_variant      = v_alv_variant
      is_layout       = v_alv_layout
    CHANGING
      it_outtab       = i_alv_data
      it_fieldcatalog = i_alv_fc.
ENDMODULE.                    "build_alv_grid OUTPUT
*       FORM build_alv_fc
* [+] Constructs the ALV Grid field catalog table
FORM build_alv_fc.
CLEAR i_alv_fc.
REFRESH i_alv_fc.
* NOTE: the field name MUST be upper-case
*                   field       heading         hide hot
*                   name                        zero spot just
PERFORM:
    alv_field USING 'CUST_ID'    'Cust ID'        ' ' 'X' 'R',
    alv_field USING 'CUST_NAME' 'Customer Name' ' ' ' ' 'L',
    alv_field USING 'CUST_COLOR' 'Color'          ' ' ' ' 'R'.
ENDFORM.                    "build_alv_fc
*       FORM alv_field
* [+] Describes and constructs a single field for the ALV Grid field
*     catalog. The field length and type are both obtained from the
*     actual field passed in to this method.
* [+] Adds the constructed field to the ALV Grid field catalog table
FORM alv_field
USING
    p_field_name TYPE c
    p_heading    TYPE c
    p_hide_zeros TYPE c
    p_hotspot    TYPE c
    p_justify    TYPE c.
CLEAR v_alv_fc.
DATA:
    lv_type(1) TYPE c,
    lv_length TYPE i,
    lv_heading_length TYPE i.
* get the type and length of this field
FIELD-SYMBOLS <field>.
ASSIGN p_field_name TO <field>.
DESCRIBE FIELD <field> TYPE lv_type OUTPUT-LENGTH lv_length.
* re-adjust the length to the length of the header, if too short
lv_heading_length = strlen( p_heading ).
IF lv_length < lv_heading_length.
    lv_length = lv_heading_length.
ENDIF.
* NOTE: the field name MUST be upper-case
v_alv_fc-fieldname = p_field_name.
TRANSLATE v_alv_fc-fieldname TO UPPER CASE.
v_alv_fc-inttype   = lv_type.
v_alv_fc-outputlen = lv_length.
v_alv_fc-coltext   = p_heading.
v_alv_fc-seltext   = p_heading.
v_alv_fc-hotspot   = p_hotspot.
* Determining which fields should show zeros
IF p_hide_zeros = 'X'.
    v_alv_fc-no_zero = 'X'.
    v_alv_fc-lzero   = ' '.
ELSE.
    v_alv_fc-no_zero = ' '.
    v_alv_fc-lzero   = 'X'.
ENDIF.
v_alv_fc-just = p_justify.
* Add the field to the field catalog
APPEND v_alv_fc TO i_alv_fc.
ENDFORM.                    "alv_field
*       FORM choose_alv_variant
* [+] Shows a popup that allows the user to choose the layout variant
*     for the alv grid of the current program
* [+] Usually called by an AT SELECTION-SCREEN method.
FORM choose_alv_variant
CHANGING
    p_variant_name TYPE disvariant-variant
    p_variant      TYPE disvariant.
CLEAR p_variant.
DATA:
    p_exit_check(1) TYPE c.
MOVE sy-repid TO p_variant-report.
CALL FUNCTION 'LVC_VARIANT_F4'
       EXPORTING
            is_variant = p_variant
            i_save     = 'A'
       IMPORTING
            e_exit     = p_exit_check
            es_variant = p_variant
       EXCEPTIONS
            not_found = 1
            OTHERS     = 99.
IF sy-subrc = 0.
    IF p_exit_check <> 'X'.
      p_variant_name = p_variant-variant.
    ENDIF.
ENDIF.
ENDFORM.                    "choose_alv_variant
*       FORM set_alv_variant
* [+] Sets the alv grid layout variant. Used for setting the variant
*     when its name is entered in a parameter rather than by using the
*     popup, or when loading the variant from a variable of type C
FORM set_alv_variant
USING
    p_variant_name TYPE disvariant-variant
CHANGING
    p_variant      TYPE disvariant.
MOVE sy-repid TO p_variant-report.
p_variant-variant = p_variant_name.
ENDFORM.                    "set_alv_variant
*       FORM color_cells
* [+] Loop through the data and apply coloring
FORM color_cells.
DATA:
    my_color TYPE i.
* tell the ALV grid what field in v_alv_data contains color information
v_alv_layout-ctab_fname = 'COLOR'.
my_color = 0.
* loop through each row of the table
LOOP AT i_alv_data INTO v_alv_data.
*   clear the variables
    CLEAR:
      v_alv_color,
      v_alv_color_cell,
      i_alv_color.
    REFRESH:
      i_alv_color.
    v_alv_data-cust_color = my_color.
    PERFORM color_cell USING 'CUST_COLOR' my_color. "negative
*   apply the colors
*    IF v_alv_data-cust_name = 'Testing Credit'.
*      PERFORM color_cell USING 'CUST_NAME' 6. "negative
*    ELSEIF v_alv_data-cust_name = 'Goober Goober Also'.
*      PERFORM color_cell USING 'CUST_NAME' 5. "positive
*    ENDIF.
*   set the color data for this table row
    v_alv_data-color = i_alv_color.
    MODIFY i_alv_data FROM v_alv_data.
    my_color = my_color + 1.
    IF my_color GT 7.
      CLEAR my_color.
    ENDIF.
ENDLOOP.
ENDFORM.                    "color_cells
*       FORM color_cell
* [+] Colors a cell in the ALV grid
FORM color_cell
USING
    p_cellname TYPE c
    p_color    TYPE i.
CLEAR:
    v_alv_color_cell,
    v_alv_color.
* set the color for the cell
* IF p_color = 0.
*    v_alv_color_cell-col = 0. "cl_gui_resources=>list_col_background.
* ELSEIF p_color = 1.
*    v_alv_color_cell-col = 1. "cl_gui_resources=>list_col_heading.
* ELSEIF p_color = 2.
*    v_alv_color_cell-col = 2. "cl_gui_resources=>list_col_normal.
* ELSEIF p_color = 3.
*    v_alv_color_cell-col = 3. "cl_gui_resources=>list_col_total.
* ELSEIF p_color = 4.
*    v_alv_color_cell-col = 4. "cl_gui_resources=>list_col_key.
* ELSEIF p_color = 5.
*    v_alv_color_cell-col = 5. "cl_gui_resources=>list_col_positive.
* ELSEIF p_color = 6.
*    v_alv_color_cell-col = 6. "cl_gui_resources=>list_col_negative.
* ELSEIF p_color = 7.
*    v_alv_color_cell-col = 7. "cl_gui_resources=>list_col_group.
* ENDIF.
v_alv_color_cell-col = p_color.
v_alv_color-nokeycol = 'X'.
v_alv_color-fname = p_cellname.
* v_alv_color-color = p_color.
v_alv_color-color = v_alv_color_cell.
APPEND v_alv_color TO i_alv_color.
ENDFORM.                    "color_cell
*       FORM event_hotspot_click
* [+] What to do when clicking on a hotspot in the ALV Grid
FORM event_hotspot_click
USING
    p_row    TYPE lvc_s_row
    p_column TYPE lvc_s_col.
DATA:
    lv_docnum TYPE kunnr.
READ TABLE i_alv_data INTO v_alv_data INDEX p_row-index.
IF p_column = 'CUST_ID'.
*   call a transaction when the cust_id is clicked
    SET PARAMETER ID 'AUN' FIELD v_alv_data-cust_id.
    CALL TRANSACTION 'VA03' AND SKIP FIRST SCREEN.
ENDIF.
ENDFORM.                    "event_hotspot_click
*&      Module USER_COMMAND_2000 INPUT
*       text
MODULE user_command_2000 INPUT.
CASE ok_code.
    WHEN 'BACK'
      OR 'STOP'
      OR 'CANCEL'.
      LEAVE TO SCREEN 0.
ENDCASE.
ENDMODULE.                 " USER_COMMAND_2000 INPUT

How to change date format in alv report

hi ,
i wanna change date format which is in yyyy.mm.dd to mm/dd/yyyy in alv report.
plz advise.
thanks
sudheer

Hi sudheer,
There is no direst Fm fro that.
But u can follw the below way. it worked for me. kindly chk it.
[code]DATA: V_DATE_IN(10) TYPE C,
V_DATE_SAP TYPE SY-DATUM.
V_DATE_IN = '01.01.2005.'.
CONCATENATE V_DATE_IN+6(4) "<--for Year
V_DATE_IN+3(2) "<--for month
V_DATE_IN+0(2) "<--for Day
INTO V_DATE_SAP.
now V_DATE_SAP will have value like 20060101.
now use.
CONVERSION_EXIT_PDATE_OUTPUT Conversion Exit for Domain GBDAT: YYYYMMDD -> DD/MM/YYYY[/code]
regards
anver
<b><i>if hlped pls mark points</i></b>

How to keep track of the changes done in ALV GRID Report

Hi Experts,
how to keep track of the changed record in ALV GRID Report. how to set the field to be editable even for the entire row also. Can anybody guide along with code also?...
Valuable answers will be rewarded.
Thanks,
Satish.

Hi,
Access the table through SM30. It comes blank as standard. Click "New Entries" and make entries for changes to be tracked. For example, whenever an org. unit changes 002 and 003 relationship, you will make entries like:
01 O 1001 B002 Activate box checked
01 O 1001 B003 Activate box checked
Here, 01 is your active plan version, O is org. unit, 1001 is infotype and B002 and B003 are the subtypes. You can also use * for infotype and subtype which means every change will be logged.
If you then run the report RHCDOC_DISPLAY through SA38, it will pick up all the changes pertaining to B002 and B003 relationship for org. units (in the above example).
Similarly, you can set up this table for other object types.
For more information, follow SPRO>Personnel Management>OM>Basic Settings>Activate change documents and go through the documentation for that node. Also, read up the documentation for the report.
Hope this helps.
Donnie

Layout change , save symbol for ALV report

Dear all,
I have created ALV report in which I get only change layout symbol. I want to select/deselect columns in ALV report and want to save that layout. How to get that save layout symbol in ALV report std. headings

Hi,
You need to pass 'A' to I_SAVE export parameters of ALV.
I_SAVE = 'A'.
Thanks,
Sriram Ponna.

Fast Change in OO ALV Report

Similar Messages

Maybe you are looking for