Aggregation in WD ALV

Hello everyone.
I'm using aggregation in WD ALV. Does anybody know how to set text in aggregation line in non-numeric fields like "TOTAL:" or something else. Can I set specific aggregation (max value) for one of the numeric fields?

Hi,
I think this will helps you.
*... Configure ALV
wd_this->lr_config = lr_comp_if_alv->get_model( ).
display columns in correct order
lr_column_settings ?= wd_this->lr_config.
lt_column = lr_column_settings->get_columns( ).
loop at lt_column into ls_column.
    case ls_column-id.
      when 'PRICE'.
aggregate field
        call method lr_config->if_salv_wd_field_settings~get_field
          exporting
            fieldname = 'PRICE'
          receiving
            value     = lr_field_amnt.
create aggregate rule as total
        call method lr_field_amnt->if_salv_wd_aggr~create_aggr_rule
          exporting
            aggregation_type = if_salv_wd_c_aggregation=>aggrtype_total
          receiving
            value            = lv_aggr_rule.
    endcase.
endloop.

Similar Messages

Aggregating fields in ALV (Urgent)

Hi friends
How can i do aggregate in ALV ?
eg:-
my report output luks like this:-
10C-NAME1 10 3 4
10C-NAME1 2 4 6
10C-NAME1 8 8 8
Now i want to sumup these records and display as one record.
Now..my rep output should be 10C-NAME1 20 15 18
The above is just an example.. I m using ALV Grid report.
Please help me

Hi ,
Let me give u a simpler solution.
Use ABAP statement COLLECT <internal table>
this will sum up all the numerical fields in your internal table based on Name field (non numeric)
after sum operation all the records will be repalced wid the new summation record. thus u can used the same internal table to display your results
this statement is meant exactly for your requirement.
Kindly give me some points if this helps.
Look into the following link for more details
http://help.sap.com/saphelp_47x200/helpdata/en/87/56d00722c011d2954a0000e8353423/frameset.htm
regards,
Sumeet Mishra

ALV as Hierarchy with aggregation

Hi
I have 5 columns: H1, H2, H3, SUM1, SUM2
For columns SUM1, SUM2:
lo_field = lo_value->if_salv_wd_field_settings~get_field( <fs_col>-id ).
lo_field->if_salv_wd_aggr~create_aggr_rule( ).
lo_aggr_rule = lo_field->if_salv_wd_aggr~get_aggr_rule( ).
lo_aggr_rule->set_aggregation_type( if_salv_wd_c_aggregation=>aggrtype_total ).
For columns H1, H2, H3:
<fs_col>-r_column->if_salv_wd_column_hierarchy~set_hierarchy_column( value = abap_true ).
If i create sort rule for H1,H2,H3 hierarchy automatic sort is broken.
How i can create aggregation on Hierarchy ALV?

hi arjun,
it still doesn't work. when i debug it, the system sets the column hierarchy "false"...
the code is like this now:
DATA:
 l_ref_cmp_usage TYPE REF TO if_wd_component_usage,
 l_ref_interfacecontroller TYPE REF TO iwci_salv_wd_table,
 l_value TYPE REF TO cl_salv_wd_config_table.
l_ref_cmp_usage = wd_this->wd_cpuse_salv( ).
IF l_ref_cmp_usage->has_active_component( ) IS INITIAL.
 l_ref_cmp_usage->create_component( ).
ENDIF.
l_ref_interfacecontroller = wd_this->wd_cpifc_salv( ).
l_value = l_ref_interfacecontroller->get_model( ).
* cl_salv_wd_model_table_util=>if_salv_wd_table_util_stdfuncs~set_all(
* r_model = l_value ).
l_value->if_salv_wd_std_functions~set_hierarchy_allowed( abap_true ).
l_value->if_salv_wd_table_settings~set_display_type(
if_salv_wd_c_table_settings=>display_type_hierarchy ).
DATA: lr_column TYPE REF TO cl_salv_wd_column.
lr_column = l_value->if_salv_wd_column_settings~get_column( 'CNOID' ).
lr_column->if_salv_wd_column_hierarchy~set_hierarchy_column( abap_true ).
lr_column = l_value->if_salv_wd_column_settings~get_column( 'STOID' ).
lr_column->if_salv_wd_column_hierarchy~set_hierarchy_column( abap_true ).
l_value->if_salv_wd_table_hierarchy~set_last_hier_column_as_leaf( abap_true ).

Aggregation function for field in ALV Webdynpro ABAP

Dear all,
Can I create aggregation function on one field of ALV WDA which that is currency type field and then display the result based on currency key field?
i've tried using code as shown below
lo_wd_field = lo_model->if_salv_wd_field_settings~get_field( 'TOTAL' ).
DATA: lo_field_aggr TYPE REF TO cl_salv_wd_aggr_rule.
lo_field_aggr = lo_wd_field->if_salv_wd_aggr~create_aggr_rule( ).
CALL METHOD lo_field_aggr->set_aggregation_type
EXPORTING
value = if_salv_wd_c_aggregation=>aggrtype_total.
lo_wd_field->set_reference_field_type( if_salv_wd_c_field_settings=>reffieldtype_curr ).
lo_wd_field->set_reference_field( 'WAERS' ).
and then i've tried enabled standard function as shown below
lo_model->if_salv_wd_std_functions~set_aggregation_allowed( abap_true ).
But Why result of aggregation is not formatted based on currency key?
Best regards,
Agnis Virtinova Avency

Hi Virtonova,
My requirement is also simillar.
I want to aggregate total based on Currency key.
In the total for sub groups and final total with out any text or Description getting only single or double or triple ( dots ). .
Is it possible to populate / change with useful text or decription for those rows.
I am not getting Currency type after the total/sub totals.
how to fix this in ALV list after using aggregate for the ALV.
Thanks in advance.
Dav

WD4A ALV column aggregation

Hi
I would like to specify specific columns of my WD4A ALV to be aggregated and to display sub-totals per sort-level.
Can someone tell me which steps I need to make to get this done.
Or is there an example application from which I can copy this functionality?
Regards
Wouter Heuvelmans
Pyramid Applied Solutions

Hi,
You can refer the following link:
Sub Totals in ALV
Best regards,
Suresh

Aggregation in ALV

Hi All,
I am using ALV grid to show the data , i have requirment to show the aggregation ( total ) for some of the columns . My problem is that i have to show the total value at end of each page.Is there any way to achive it .
i.e. If i have 20 rows of data and i am showing 10 rows each page , i have to show (overall )total after every 10 rows.
Regards
Amol Deshmukh

Hi Amol,
According to my knowledge as per new Net Weaver release pagination property of ALV is not supported.
Now users will only have horizontal scrollbars for ALV.
Please correct me if I'm wrong.
So it makes sense to use the normal ALV aggregation feature which displays the sum at end.
Regards
Manas Dua

ALV in WD ABAP: add a text field in aggregation line

Hi,
I implemented the SALV_WD_TABLE in a web dynpro and I add a column sum;
in the new aggregation line I would to edit a field inserting a text: is it possible? I think not because the class cl_salv_wd_aggr_rule has not useful methods,
any ideas?
thanks,
Alberto

Hi,
there might be incomplete language transports in your system or other things. But first you could position the cursor on the button in the application and then press F1. Then the help information is displayed together with the technical information where you should see the technical info about the object.
Regards, Heidi

ALV Report for Purchasing Each Vendor

Hi Anybody,
I am developing Purchasing Report. But I want display records in ALV Report based Vendor ID and Name.
Like Standard Report ME2M.
Ex:
Vendor ID : A0002 Name : UMS SEMICONDUCTOR PTE LTD.,
 sNO po no item Price Qty
 1. 10001 10 12.30 10
 2. 10002 20 30.30 50
 3. 10003 30 40.30 150
Vendor ID : X0012 Name : ALPHA PTE LTD.,
 sNO po no item Price Qty
 1. 10004 10 1.30 10
 2. 10005 20 50.30 50
 3. 10006 30 620.30 150
How to I will do?. Anybody please tell me.
Tks
S.Muthu.
IT Dept.

hi..follow this code..
===================================================================
===================================================================
report .
========================== Global definitions ====================
Data Types
type-pools: slis.
types: begin of tp_data,
lifnr like ekko-lifnr,
 end of tp_data,
 tp_tbl_data type standard table of tp_data.
Constants
Data objects (variable declarations and definitions)
Report data to be shown.
data: it_data type standard table of tp_data.
Heading of the report.
data: t_heading type slis_t_listheader.
======================= Selection Screen ==========================
selection-screen: begin of block b1 with frame title text-t01.
DATA: w_aux_lifnr like ekko-lifnr.
SELECT-OPTIONS s_lifnr for w_aux_lifnr
DEFAULT LIFNR .
selection-screen: end of block b1.
======================== Event Blocks =============================
at selection-screen.
start-of-selection.
perform get_data using it_data.
end-of-selection.
perform build_alv using it_data t_heading.
======================== Subroutines ==============================
*& Form get_data
 Gets the information to be shown in the report.
form get_data using t_data type tp_tbl_data.
SELECT ekko~lifnr
INTO CORRESPONDING FIELDS OF TABLE t_data
FROM ekko as ekko
WHERE ekko~lifnr in s_lifnr
endform. " get_data
*& Form build_alv
 Builds and display the ALV Grid.
form build_alv using t_data type tp_tbl_data
 t_heading type slis_t_listheader.
ALV required data objects.
data: w_title type lvc_title,
 w_repid type syrepid,
 w_comm type slis_formname,
 w_status type slis_formname,
 x_layout type slis_layout_alv,
 t_event type slis_t_event,
 t_fieldcat type slis_t_fieldcat_alv,
 t_sort type slis_t_sortinfo_alv.
refresh t_fieldcat.
refresh t_event.
refresh t_sort.
clear x_layout.
clear w_title.
Field Catalog
perform set_fieldcat2 using:
1 'LIFNR' 'LIFNR' 'EKKO' space space space space space space space space space space space space t_fieldcat .
Layout
x_layout-zebra = 'X'.
Top of page heading
perform set_top_page_heading using t_heading t_event.
Events
perform set_events using t_event.
GUI Status
w_status = ''.
w_repid = sy-repid.
Title
w_title = <<If you want to set a title for
 the ALV, please, uncomment and edit this line>>.
User commands
w_comm = 'USER_COMMAND'.
Order
Example
PERFORM set_order USING '<field>' 'IT_DATA' 'X' space space t_sort.
Displays the ALV grid
call function 'REUSE_ALV_GRID_DISPLAY'
 exporting
 i_callback_program = w_repid
 it_fieldcat = t_fieldcat
 is_layout = x_layout
 it_sort = t_sort
 i_callback_pf_status_set = w_status
 i_callback_user_command = w_comm
 i_save = 'X'
 it_events = t_event
 i_grid_title = w_title
 tables
 t_outtab = t_data
 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. " build_alv.
*& Form set_top_page_heading
 Creates the report headings.
form set_top_page_heading using t_heading type slis_t_listheader
 t_events type slis_t_event.
data: x_heading type slis_listheader,
 x_event type line of slis_t_event.
Report title
clear t_heading[].
clear x_heading.
x_heading-typ = 'H'.
x_heading-info = ''(001).
append x_heading to t_heading.
Program name
clear x_heading.
x_heading-typ = 'S'.
x_heading-key = 'Program: '.
x_heading-info = sy-repid.
append x_heading to t_heading.
User who is running the report
clear x_heading.
x_heading-typ = 'S'.
x_heading-key = 'User: '.
x_heading-info = sy-uname.
append x_heading to t_heading.
Date of execution
clear x_heading.
x_heading-typ = 'S'.
x_heading-key = 'Date: '.
write sy-datum to x_heading-info.
append x_heading to t_heading.
Time of execution
clear x_heading.
x_heading-typ = 'S'.
x_heading-key = 'Time: '.
write sy-uzeit to x_heading-info.
append x_heading to t_heading.
Top of page event
x_event-name = slis_ev_top_of_page.
x_event-form = 'TOP_OF_PAGE'.
append x_event to t_events.
endform.
*& Form set_events
 Sets the events for ALV.
 The TOP_OF_PAGE event is alredy being registered in
 the set_top_page_heading subroutine.
form set_events using t_events type slis_t_event.
data: x_event type line of slis_t_event.
Example
clear x_event.
x_event-name = .
x_event-form = .
append x_event to t_event.
endform.
*& Form set_order
 Adds an entry to the order table.
FORM set_order USING p_fieldname p_tabname p_up p_down p_subtot
 t_sort TYPE slis_t_sortinfo_alv.
DATA: x_sort TYPE slis_sortinfo_alv.
CLEAR x_sort.
x_sort-fieldname = p_fieldname.
x_sort-tabname = p_tabname.
x_sort-up = p_up.
x_sort-down = p_down.
x_sort-subtot = p_subtot.
APPEND x_sort TO t_sort.
ENDFORM. "set_order
*& Form set_fieldcat2
 Adds an entry to the field catalog.
 p_colpos: Column position.
 p_fieldname: Field of internal table which is being described by
* this record of the field catalog.
 p_ref_fieldname: (Optional) Table field / data element which
* describes the properties of the field.
* If this field is not given, it is copied from
* the fieldname.
 p_ref_tabname: (Optional) Table which holds the field referenced
* by <<p_ref_fieldname>>.
 If this is not given, the parameter
 <<p_ref_fieldname>> references a data element.
 p_outputlen: (Optional) Column width.
 p_noout: (Optional) If set to 'X', states that the field is not
* showed initially. If so, the field has to be
 included in the report at runtime using the display
 options.
 p_seltext_m: (Optional) Medium label to be used as column header.
 p_seltext_l: (Optional) Long label to be used as column header.
 p_seltext_s: (Optional) Small label to be used as column header.
 p_reptext_ddic: (Optional) Extra small (heading) label to be
* used as column header.
 p_ddictxt: (Optional) Set to 'L', 'M', 'S' or 'R' to select
 whether to use SELTEXT_L, SELTEXT_M, SELTEXT_S,
 or REPTEXT_DDIC as text for column header.
 p_hotspot: (Optional) If set to 'X', this field will be used
* as a hotspot area for cursor, alolowing the user
* to click on the field.
 p_showasicon: (Optional) If set to 'X', this field will be shown
 as an icon and the contents of the field will set
* which icon to show.
 p_checkbox: (Optional) If set to 'X', this field will be shown
 as a checkbox.
 p_edit: (Optional) If set to 'X', this field will be editable.
 p_dosum: (Optional) If set to 'X', this field will be summed
 (aggregation function) according to the grouping set
 by the order functions.
 t_fieldcat: Table which contains the whole fieldcat.
FORM set_fieldcat2 USING
 p_colpos p_fieldname p_ref_fieldname p_ref_tabname
 p_outputlen p_noout
 p_seltext_m p_seltext_l p_seltext_s p_reptext_ddic p_ddictxt
 p_hotspot p_showasicon p_checkbox p_edit
 p_dosum
 t_fieldcat TYPE slis_t_fieldcat_alv.
DATA: wa_fieldcat TYPE slis_fieldcat_alv.
CLEAR wa_fieldcat.
General settings
wa_fieldcat-fieldname = p_fieldname.
wa_fieldcat-col_pos = p_colpos.
wa_fieldcat-no_out = p_noout.
wa_fieldcat-hotspot = p_hotspot.
wa_fieldcat-checkbox = p_checkbox.
wa_fieldcat-icon = p_showasicon.
wa_fieldcat-do_sum = p_dosum.
Set reference fieldname, tablenam and rollname.
If p_ref_tabname is not given, the ref_fieldname given
 is a data element.
If p_ref_tabname is given, the ref_fieldname given is a
 field of a table.
In case ref_fieldname is not given,
 it is copied from the fieldname.
IF p_ref_tabname IS INITIAL.
 wa_fieldcat-rollname = p_ref_fieldname.
ELSE.
 wa_fieldcat-ref_tabname = p_ref_tabname.
 IF p_ref_fieldname EQ space.
 wa_fieldcat-ref_fieldname = wa_fieldcat-fieldname.
 ELSE.
 wa_fieldcat-ref_fieldname = p_ref_fieldname.
 ENDIF.
ENDIF.
Set output length.
IF NOT p_outputlen IS INITIAL.
 wa_fieldcat-outputlen = p_outputlen.
ENDIF.
Set text headers.
IF NOT p_seltext_m IS INITIAL.
 wa_fieldcat-seltext_m = p_seltext_m.
ENDIF.
IF NOT p_seltext_l IS INITIAL.
 wa_fieldcat-seltext_l = p_seltext_l.
ENDIF.
IF NOT p_seltext_s IS INITIAL.
 wa_fieldcat-seltext_s = p_seltext_s.
ENDIF.
IF NOT p_reptext_ddic IS INITIAL.
 wa_fieldcat-reptext_ddic = p_reptext_ddic.
ENDIF.
IF NOT p_ddictxt IS INITIAL.
 wa_fieldcat-ddictxt = p_ddictxt.
ENDIF.
Set as editable or not.
IF NOT p_edit IS INITIAL.
 wa_fieldcat-input = 'X'.
 wa_fieldcat-edit = 'X'.
ENDIF.
APPEND wa_fieldcat TO t_fieldcat.
ENDFORM. "set_fieldcat2
======================== Subroutines called by ALV ================
*& Form top_of_page
 Called on top_of_page ALV event.
 Prints the heading.
form top_of_page.
call function 'REUSE_ALV_COMMENTARY_WRITE'
 exporting
 i_logo = <<If you want to set a logo, please,
 uncomment and edit this line>>
 it_list_commentary = t_heading.
endform. " alv_top_of_page
*& Form user_command
 Called on user_command ALV event.
 Executes custom commands.
form user_command using r_ucomm like sy-ucomm
 rs_selfield type slis_selfield.
Example Code
Executes a command considering the sy-ucomm.
CASE r_ucomm.
 WHEN '&IC1'.
 Set your "double click action" response here.
 Example code: Create and display a status message.
 DATA: w_msg TYPE string,
 w_row(4) TYPE n.
 w_row = rs_selfield-tabindex.
 CONCATENATE 'You have clicked row' w_row
 'field' rs_selfield-fieldname
 'with value' rs_selfield-value
 INTO w_msg SEPARATED BY space.
 MESSAGE w_msg TYPE 'S'.
ENDCASE.
End of example code.
endform. "user_command

Not allowing totaling of a field in alv output

hi,
I had made a ALV in which i have to hide 1 field for getting it totaling.
i.e. if somebody try to make total of it ,it should not be allowed on dat field . is dere any solution for this problem?
plzz provide me guidelines for it.

Please please it this. I made the total for every field other than RACCT and SUM_COMM.
*& Form sub_prepare_display_output
 Display output
--> No Parameter
FORM sub_prepare_display_output .
Local variables
DATA: l_lead_col TYPE char25, " Lead column
 l_progname TYPE sy-repid, " Program name
Local internal tables
 l_oref_layout TYPE REF TO cl_salv_layout, "Layout
Local work area
 l_wa_key TYPE salv_s_layout_key, "Work area for key
 l_except1 TYPE REF TO cx_salv_msg,"Exception
 l_text1 TYPE string. "Exception msg
If profit center is checked
IF p_prfctr = c_check.
 l_lead_col = 'Profit Center'(041).
If product catagory is checked
ELSEIF p_prodc = c_check.
 l_lead_col = 'Product Category'(042).
If material is checked
ELSEIF p_smatnr = c_check.
 l_lead_col = 'Material No.'(043).
ENDIF.
Create ALV instance with class-method cl_salv_table=>factory
TRY.
 CALL METHOD cl_salv_table=>factory
 EXPORTING
 list_display = if_salv_c_bool_sap=>false
 IMPORTING
 r_salv_table = v_oref_table
 CHANGING
 t_table = i_final.
 CATCH cx_salv_msg INTO l_except1.
 l_text1 = l_except1->get_text( ).
 MESSAGE i000 WITH l_text1.
 LEAVE LIST-PROCESSING.
ENDTRY.
Make header of the report
PERFORM sub_header_report USING v_oref_table.
Get the toolbar
v_oref_functions = v_oref_table->get_functions( ).
For activating application toolbar
v_oref_functions->set_all( abap_true ).
v_oref_columns = v_oref_table->get_columns( ).
It populate the key fields which are always displayed
PERFORM sub_fill_fields_of_fcatalog USING:
'SUM_COMM' l_lead_col ' ',
'RACCT' 'Account Number'(035) ' ',
'FOBAC' 'FOB Acrual'(023) 'X',
'EXCESS' 'Excess'(024) 'X',
'OBSOLE' 'Obsolescence'(025) 'X',
'PPV' 'Puchachse Price Var'(026) 'X',
'FR_VAR' 'Freight Variance'(027) 'X',
'PROD_OR_VAR' 'Produc Ord Var'(028) 'X',
'DEP_VAR' 'Dept. Variance'(029) 'X',
'OTH_PROD_VAR' 'Other Prod Var'(030) 'X',
'PR_OR_SCRP_VAR' 'Scrap Variance'(031) 'X',
'COST_OF_ACC' 'Cost of Sales Accnt'(032) 'X',
'INV_ACC' 'Inventory Account'(033) 'X'.
Optimize the columns
v_oref_columns->set_optimize( value = 'X' ).
Setting the layout
get the LAYOUT object
l_oref_layout = v_oref_table->get_layout( ).
set the layout key
l_progname = sy-repid.
l_wa_key-report = l_progname.
l_oref_layout->set_key( value = l_wa_key ).
set save restriction:
none / only user-dependent / only user-independent
l_oref_layout->set_save_restriction(
value = if_salv_c_layout=>restrict_none ).
set: setting of default layout is allowed / isnu2019t allowed
l_oref_layout->set_default( value = 'X' ).
Dispaly the output
v_oref_table->display( ).
ENDFORM. " sub_prepare_display_output
*& Form sub_header_report
 Create the header of the report
 -->P_v_oref_TABLE table name
FORM sub_header_report USING p_v_oref_table TYPE REF TO
 cl_salv_table .
DATA : l_oref_grid TYPE REF TO cl_salv_form_layout_grid.
CREATE OBJECT l_oref_grid.
Add text items for top of page
l_oref_grid->create_text( row = 1 column = 1 text = 'Program'(022)
l_oref_grid->create_text( row = 1 column = 2 text = sy-repid ).
l_oref_grid->create_text( row = 2 column = 1
text = 'User Name'(021) ).
l_oref_grid->create_text( row = 2 column = 2 text = sy-uname ).
l_oref_grid->create_text( row = 3 column = 1 text = 'Date'(020) ).
l_oref_grid->create_text( row = 3 column = 2 text = sy-datum ).
l_oref_grid->create_text( row = 3 column = 3 text = 'Time'(019) ).
l_oref_grid->create_text( row = 3 column = 4 text = sy-uzeit ).
l_oref_grid->create_text( row = 4 column = 1 text = 'System'(018) ).
l_oref_grid->create_text( row = 4 column = 2 text = sy-sysid ).
l_oref_grid->create_text( row = 4 column = 3 text = 'Client'(017) ).
l_oref_grid->create_text( row = 4 column = 4 text = sy-mandt ).
Declare grid as header of list
p_v_oref_table->set_top_of_list( value = l_oref_grid ).
ENDFORM. " sub_header_report
*& Form sub_fill_fields_of_fcatalog
 This subroutine populates the field catalog excluding
 period fields
 -->P_FIELDNAME Table field name
 -->P_NAME Field description
 -->P_DEC Decimal value flag
FORM sub_fill_fields_of_fcatalog USING p_fieldname TYPE lvc_fname
 p_name TYPE c
 p_dec TYPE c.
DATA: l_char_l TYPE scrtext_l, "For short text
 l_char_m TYPE scrtext_m, "For medium text
 l_char_s TYPE scrtext_s, "For long text
 l_except1 TYPE REF TO cx_salv_not_found,"Exception
 l_text1 TYPE string, "Exception msg
 l_orf_aggregs TYPE REF TO cl_salv_aggregations.
Getting the text long/short/medium into variables
l_char_l = p_name.
l_char_m = p_name.
l_char_s = p_name.
Setting the long/short/medium text and fix the key fileds
TRY.
 CALL METHOD v_oref_columns->get_column
 EXPORTING
 columnname = p_fieldname
 RECEIVING
 value = v_oref_column1.
 CATCH cx_salv_not_found INTO l_except1.
 l_text1 = l_except1->get_text( ).
 MESSAGE i000 WITH l_text1.
 LEAVE LIST-PROCESSING.
ENDTRY.
v_oref_column ?= v_oref_column1.
v_oref_column->set_long_text( l_char_l ).
v_oref_column->set_medium_text( l_char_m ).
v_oref_column->set_short_text( l_char_s ).
v_oref_column->set_key( value = 'X' ).
v_oref_columns->set_key_fixation( value = 'X' ).
Set the decimal length
IF p_dec = 'X'.
 v_oref_column->set_decimals( value = '2' ).
ENDIF.
IF p_fieldname = 'RACCT' AND p_gl <> c_check.
 v_oref_column->set_visible( value = space ).
ENDIF.
IF p_gl = c_check.
 v_oref_columns->set_column_position( columnname = 'RACCT'
 position = 2 ).
ENDIF.
IF p_fieldname NE 'RACCT' AND p_fieldname NE 'SUM_COMM'.
 l_orf_aggregs = v_oref_table->get_aggregations( ).
 l_orf_aggregs->add_aggregation( columnname = p_fieldname
 aggregation = if_salv_c_aggregation=>total ).
ENDIF.
ENDFORM. " sub_fill_fields_of_fcatalog

Hotspot on more than one fields in ALV Report

I want to add Hotspot on more than one field in ALV,
one field is Vbeln , one is BSTNK, one is matnr and so on.
i have used form user_command.and have written coding for Vbeln (on vbeln i am showing transaction VA02)
i want to pass an eror mesaage when user clicks on bstnk or matnr.
Thanks

Hi Lovleen,
*Global definitions *
Data Types
type-pools: slis.
types: begin of tp_data,
ebeln like ekko-ebeln,
*matnr like ekko-matnr,
*meins like ekko-meins,
lifnr like lfa1-lifnr,
chk1,
 end of tp_data,
 tp_tbl_data type standard table of tp_data.
Constants
Data objects (variable declarations and definitions)
Report data to be shown.
data: it_data type standard table of tp_data.
Heading of the report.
data: t_heading type slis_t_listheader.
======================= Selection Screen ==========================
selection-screen: begin of block b1 with frame title text-t01.
DATA: w_aux_ebeln like ekko-ebeln.
SELECT-OPTIONS s_ebeln for w_aux_ebeln
DEFAULT 1000 .
DATA: w_aux_lifnr like lfa1-lifnr.
SELECT-OPTIONS s_lifnr for w_aux_lifnr
DEFAULT 00000001000 .
selection-screen: end of block b1.
======================== Event Blocks =============================
at selection-screen.
start-of-selection.
perform get_data using it_data.
end-of-selection.
perform build_alv using it_data t_heading.
======================== Subroutines ==============================
*& Form get_data
 Gets the information to be shown in the report.
form get_data using t_data type tp_tbl_data.
SELECT e~ebeln
*e~matnr
*e~meins
l~lifnr
INTO CORRESPONDING FIELDS OF TABLE t_data
FROM ekko as e
inner join lfa1 as l on elifnr = llifnr
WHERE e~ebeln in s_ebeln
AND l~lifnr in s_lifnr
endform. " get_data
*& Form build_alv
 Builds and display the ALV Grid.
form build_alv using t_data type tp_tbl_data
 t_heading type slis_t_listheader.
ALV required data objects.
data: w_title type lvc_title,
 w_repid type syrepid,
 w_comm type slis_formname,
 w_status type slis_formname,
 x_layout type slis_layout_alv,
 t_event type slis_t_event,
 t_fieldcat type slis_t_fieldcat_alv,
 t_sort type slis_t_sortinfo_alv.
refresh t_fieldcat.
refresh t_event.
refresh t_sort.
clear x_layout.
clear w_title.
Field Catalog
perform set_fieldcat2 using:
1 'CHK1' 'XFELD' space space space 'Select' 'Select this row' 'Sel'
'Select this row' space space space 'X' 'X' space t_fieldcat,
2 'EBELN' 'EBELN' 'EKKO' space space space space space space space
space space space space space t_fieldcat ,
3 'MATNR' 'MATNR' 'EKKO' space space space space space space space
space space space space space t_fieldcat ,
4 'MEINS' 'MEINS' 'EKKO' space space space space space space space
space space space space space t_fieldcat ,
5 'LIFNR' 'LIFNR' 'LFA1' space space space space space space space
space space space space space t_fieldcat .
Layout
x_layout-zebra = 'X'.
Top of page heading
perform set_top_page_heading using t_heading t_event.
Events
perform set_events using t_event.
GUI Status
w_status = ''.
w_repid = sy-repid.
Title
w_title = <<If you want to set a title for
 the ALV, please, uncomment and edit this line>>.
User commands
w_comm = 'USER_COMMAND'.
Order
Example
PERFORM set_order USING '<field>' 'IT_DATA' 'X' space space t_sort.
Displays the ALV grid
call function 'REUSE_ALV_GRID_DISPLAY'
 exporting
 i_callback_program = w_repid
 it_fieldcat = t_fieldcat
 is_layout = x_layout
 it_sort = t_sort
 i_callback_pf_status_set = w_status
 i_callback_user_command = w_comm
 i_save = 'X'
 it_events = t_event
 i_grid_title = w_title
 tables
 t_outtab = t_data
 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. " build_alv.
*& Form set_top_page_heading
 Creates the report headings.
form set_top_page_heading using t_heading type slis_t_listheader
 t_events type slis_t_event.
data: x_heading type slis_listheader,
 x_event type line of slis_t_event.
Report title
clear t_heading[].
clear x_heading.
x_heading-typ = 'H'.
x_heading-info = ''(001).
append x_heading to t_heading.
Program name
clear x_heading.
x_heading-typ = 'S'.
x_heading-key = 'Program: '.
x_heading-info = sy-repid.
append x_heading to t_heading.
User who is running the report
clear x_heading.
x_heading-typ = 'S'.
x_heading-key = 'User: '.
x_heading-info = sy-uname.
append x_heading to t_heading.
Date of execution
clear x_heading.
x_heading-typ = 'S'.
x_heading-key = 'Date: '.
write sy-datum to x_heading-info.
append x_heading to t_heading.
Time of execution
clear x_heading.
x_heading-typ = 'S'.
x_heading-key = 'Time: '.
write sy-uzeit to x_heading-info.
append x_heading to t_heading.
Top of page event
x_event-name = slis_ev_top_of_page.
x_event-form = 'TOP_OF_PAGE'.
append x_event to t_events.
endform.
*& Form set_events
 Sets the events for ALV.
 The TOP_OF_PAGE event is alredy being registered in
 the set_top_page_heading subroutine.
form set_events using t_events type slis_t_event.
data: x_event type line of slis_t_event.
Example
clear x_event.
x_event-name = .
x_event-form = .
append x_event to t_event.
endform.
*& Form set_order
 Adds an entry to the order table.
FORM set_order USING p_fieldname p_tabname p_up p_down p_subtot
 t_sort TYPE slis_t_sortinfo_alv.
DATA: x_sort TYPE slis_sortinfo_alv.
CLEAR x_sort.
x_sort-fieldname = p_fieldname.
x_sort-tabname = p_tabname.
x_sort-up = p_up.
x_sort-down = p_down.
x_sort-subtot = p_subtot.
APPEND x_sort TO t_sort.
ENDFORM. "set_order
*& Form set_fieldcat2
 Adds an entry to the field catalog.
 p_colpos: Column position.
 p_fieldname: Field of internal table which is being described by
* this record of the field catalog.
 p_ref_fieldname: (Optional) Table field / data element which
* describes the properties of the field.
* If this field is not given, it is copied from
* the fieldname.
 p_ref_tabname: (Optional) Table which holds the field referenced
* by <<p_ref_fieldname>>.
 If this is not given, the parameter
 <<p_ref_fieldname>> references a data element.
 p_outputlen: (Optional) Column width.
 p_noout: (Optional) If set to 'X', states that the field is not
* showed initially. If so, the field has to be
 included in the report at runtime using the display
 options.
 p_seltext_m: (Optional) Medium label to be used as column header.
 p_seltext_l: (Optional) Long label to be used as column header.
 p_seltext_s: (Optional) Small label to be used as column header.
 p_reptext_ddic: (Optional) Extra small (heading) label to be
* used as column header.
 p_ddictxt: (Optional) Set to 'L', 'M', 'S' or 'R' to select
 whether to use SELTEXT_L, SELTEXT_M, SELTEXT_S,
 or REPTEXT_DDIC as text for column header.
 p_hotspot: (Optional) If set to 'X', this field will be used
* as a hotspot area for cursor, alolowing the user
* to click on the field.
 p_showasicon: (Optional) If set to 'X', this field will be shown
 as an icon and the contents of the field will set
* which icon to show.
 p_checkbox: (Optional) If set to 'X', this field will be shown
 as a checkbox.
 p_edit: (Optional) If set to 'X', this field will be editable.
 p_dosum: (Optional) If set to 'X', this field will be summed
 (aggregation function) according to the grouping set
 by the order functions.
 t_fieldcat: Table which contains the whole fieldcat.
FORM set_fieldcat2 USING
 p_colpos p_fieldname p_ref_fieldname p_ref_tabname
 p_outputlen p_noout
 p_seltext_m p_seltext_l p_seltext_s p_reptext_ddic p_ddictxt
 p_hotspot p_showasicon p_checkbox p_edit
 p_dosum
 t_fieldcat TYPE slis_t_fieldcat_alv.
DATA: wa_fieldcat TYPE slis_fieldcat_alv.
CLEAR wa_fieldcat.
General settings
wa_fieldcat-fieldname = p_fieldname.
wa_fieldcat-col_pos = p_colpos.
wa_fieldcat-no_out = p_noout.
wa_fieldcat-hotspot = p_hotspot.
wa_fieldcat-checkbox = p_checkbox.
wa_fieldcat-icon = p_showasicon.
wa_fieldcat-do_sum = p_dosum.
Set reference fieldname, tablenam and rollname.
If p_ref_tabname is not given, the ref_fieldname given
 is a data element.
If p_ref_tabname is given, the ref_fieldname given is a
 field of a table.
In case ref_fieldname is not given,
 it is copied from the fieldname.
IF p_ref_tabname IS INITIAL.
 wa_fieldcat-rollname = p_ref_fieldname.
ELSE.
 wa_fieldcat-ref_tabname = p_ref_tabname.
 IF p_ref_fieldname EQ space.
 wa_fieldcat-ref_fieldname = wa_fieldcat-fieldname.
 ELSE.
 wa_fieldcat-ref_fieldname = p_ref_fieldname.
 ENDIF.
ENDIF.
Set output length.
IF NOT p_outputlen IS INITIAL.
 wa_fieldcat-outputlen = p_outputlen.
ENDIF.
Set text headers.
IF NOT p_seltext_m IS INITIAL.
 wa_fieldcat-seltext_m = p_seltext_m.
ENDIF.
IF NOT p_seltext_l IS INITIAL.
 wa_fieldcat-seltext_l = p_seltext_l.
ENDIF.
IF NOT p_seltext_s IS INITIAL.
 wa_fieldcat-seltext_s = p_seltext_s.
ENDIF.
IF NOT p_reptext_ddic IS INITIAL.
 wa_fieldcat-reptext_ddic = p_reptext_ddic.
ENDIF.
IF NOT p_ddictxt IS INITIAL.
 wa_fieldcat-ddictxt = p_ddictxt.
ENDIF.
Set as editable or not.
IF NOT p_edit IS INITIAL.
 wa_fieldcat-input = 'X'.
 wa_fieldcat-edit = 'X'.
ENDIF.
APPEND wa_fieldcat TO t_fieldcat.
ENDFORM. "set_fieldcat2
======================== Subroutines called by ALV ================
*& Form top_of_page
 Called on top_of_page ALV event.
 Prints the heading.
form top_of_page.
call function 'REUSE_ALV_COMMENTARY_WRITE'
 exporting
 i_logo = <<If you want to set a logo, please,
 uncomment and edit this line>>
 it_list_commentary = t_heading.
endform. " alv_top_of_page
*& Form user_command
 Called on user_command ALV event.
 Executes custom commands.
form user_command using r_ucomm like sy-ucomm
 rs_selfield type slis_selfield.
Example Code
Executes a command considering the sy-ucomm.
CASE r_ucomm.
 WHEN '&IC1'.
 Set your "double click action" response here.
 Example code: Create and display a status message.
 DATA: w_msg TYPE string,
 w_row(4) TYPE n.
 w_row = rs_selfield-tabindex.
 CONCATENATE 'You have clicked row' w_row
 'field' rs_selfield-fieldname
 'with value' rs_selfield-value
 INTO w_msg SEPARATED BY space.
 MESSAGE w_msg TYPE 'S'.
ENDCASE.
End of example code.
endform. "user_command
Reward Points if useful.
Regards,
Manoj Kumar

Output of a "report_attribute_error_message" in a sorted ALV does not work!

Hi all/SAP,
in my thread editable ALV - how to throw an error message for a specific line & field I figured out, that the output of a "report_attribute_error_message" in the ON_DATA_CHECK event of an editable ALV does not work, if sorting is active for a column.
Thanks to The specified item was not found. for reproducing this problem.
A similar problem exists, using an aggregation of a column. This will lead to a runtime exception.
I've found no fix in the OSS to this problem.
So is there a way to use sorting together with the output of a "report_attribute_error_message"
or if this is a bug, can/will this be fixed in the (near) future?
Thanks,
Andreas

Hi,
Yes, it doesnot work with those (RB,CB) UI elements...Have you checked for any note..I have also tried but no luck..
Regards,
Lekha.

How to code to get intermediate results in webdynpro ALV? Please help!

Hi Experts,
I got following info from help file to generate Intermediate Results(subtotal).
Can somebody help me with sample code to achieve this?
Basically I want to subtotal 'Qty' column based on 'Product' field.
By default, all values in a field are used in the calculation during aggregation. However, you
are also able to generate intermediate results. You group the data records that contain the
values for an intermediate result and display each intermediate result in its own result row.
To generate intermediate results, you have to provide certain information:
● To specify in which field the values from which the intermediate results are calculated
are located, generate an aggregation condition for the desired field. The overall result is
displayed in the result row.
● To specify which data records are contained in an intermediate result, group the data
records: You sort the ALV output by the field that includes the criterion for the
intermediate result.
● To then generate the intermediate results, calculate the intermediate results using the
field with the criterion.
● To then display the intermediate results, switch on the display of intermediate results.
You are able to make the following settings for intermediate results:
● Generate intermediate results
● Display intermediate results
● Setting levels for drilling down intermediate results
● Set the position of the result rows (see Settings for Aggregation [page 196])
● Forbid the generation of intermediate results
Prerequisites
● You have generated an aggregation object for at least one aggregatable field.
● The field with the criterion for intermediate results is not an aggregatable field, and
therefore has an alphanumeric data type.
Generate Intermediate Results
To generate intermediate results in a field that already has an aggregation condition, generate
a sort condition for the field of a column (another column) (see Sorting [page 190]).
In this sort condition, define whether intermediate results are to be generated. To do this, use
the methods of the class CL_SALV_WD_SORT_RULE.
Methods for Generating Intermediate Results
Function Method
Generate intermediate results SET_GROUP_AGGREGATION
Check whether intermediate results are displayed GET_GROUP_AGGREGATION
Display Intermediate Results
Once you have made all settings, to generate intermediate results you have to switch on the
display of these intermediate results. You use the methods of the interface class
IF_SALV_WD_FIELD_SETTINGS for this (implementing class
CL_SALV_WD_CONFIG_TABLE).
Methods for Displaying Intermediate Results
Function Method
Display intermediate results SET_GROUP_AGGR_DISPLAYED
Check whether intermediate results are displayed GET_GROUP_AGGR_DISPLAYED
I have tried a bit but it is not working. here is my code:
get field and create aggregation rule of type total
lr_field = l_value->if_salv_wd_field_settings~get_field( 'Qty' ).
lr_field->if_salv_wd_aggr~create_aggr_rule( ).
lr_aggr_rule = lr_field->if_salv_wd_aggr~get_aggr_rule( ).
lr_aggr_rule->set_aggregation_type( if_salv_wd_c_aggregation=>aggrtype_total ).
l_field = l_value->if_salv_wd_field_settings~get_field( 'PRODUCT' ).
l_sortrule = l_field->IF_SALV_WD_SORT~create_sort_rule( ).
l_sortrule~SET_GROUP_AGGREGATION( 'Y').
l_value->if_salv_wd_field_settings~SET_GROUP_AGGR_DISPLAYED( 'Y' ).
Please help
Message was edited by:
gopalkrishna baliga

Hi Gopalakrishna balgia,
I think i have answered in the below thread. Check it out.
How to show Subtotal in webdynpro ALV(ABAP)? Kindly help!
Regards
Rakesh

ALV Reports using Abap Objects ?

Hi All,
I am trying to print the values in my internal table using ALV, using ABAP classes and objects. Here i am able to get the total succesfully. but i need to get subtotals also, like based on the carrid in table sflight i need subtotal of price for every carrid like 'LH' , 'SQ'.
here is my code:
REPORT znav_report.
DATA: alv TYPE REF TO cl_salv_table,
value1 TYPE REF TO cl_salv_aggregations,
value2 TYPE REF TO cl_salv_aggregation.
DATA: BEGIN OF itab_flight OCCURS 0,
carrid LIKE sflight-carrid,
connid LIKE sflight-connid,
fldate LIKE sflight-fldate,
price LIKE sflight-price,
paymentsum LIKE sflight-paymentsum,
currency LIKE sflight-currency,
END OF itab_flight.
SELECT carrid
connid
fldate
price
paymentsum
currency
FROM sflight INTO TABLE itab_flight
WHERE carrid = 'LH' OR carrid = 'SQ'.
cl_salv_table=>factory( IMPORTING r_salv_table = alv
CHANGING t_table = itab_flight[] ).
CALL METHOD alv->get_aggregations
RECEIVING
value = value1.
CALL METHOD value1->add_aggregation
EXPORTING
columnname = 'PAYMENTSUM'
aggregation = if_salv_c_aggregation=>total
RECEIVING
value = value2.
alv->display( ).
here how to get subtotals for every different carrid.
regards,
Navneeth.K

Hi,
Make use of one of these statement,,,,
Either
(a) select carrid connid fldate price currency planetype into table itab_flight from sflight.
or
(b) select * into corresponding fields of table itab_flight from sflight.
(a) is better in performace than (b)
But before that, please note some performance related issues with OO Context...
1. When defining an Internal table, avoid occurs specification, It is Obsolete,Make use of Initial Size n.
2. Declare Workarea separately,since Internal table defined along with header line is Obsolete in OO Context.Its better and more robust to fill the itab and fetch the values from itab using a separate Workarea rather than the header line... So avoid header lines...
3. When defining an internal table, follow this way ....
 Define a Linetype (Field String) using the TYPES Statement
 TYPES: begin of ty_line,
 f1 type i,
 f2 type i,
 end of ty_line.
 Then define a Table type using TYPES Statement...
 TYPES: ty_lines type standard table of ty_line with default key.
"there is differnnce between line and lines..... make it clear..."
 Then after, define the internal table and its work area using DATA statement... as shown below..
DATA: i_lines type ty_lines,
 wa_lines like line of i_lines
This is the standard way of defining the internal table under OO Context.,,..
Your definition is creating a default header line....that should be avoided...
Thanks for ur patience,
Regards..
Mohammed Anwar..

ALV to Excel Inplace subtotals problem

Dear all,
We have a serious problem. We use "cust_abc.xls" Excel template incorporated into BDS - created from "sap_mm.xls". Here on the Format sheet, there are defined subtotals on approximately five columns.
The problem is, that since we have SAP ECC 6.0 and Excel 2003 the subtotals don't work properly. We can only aggregate (use subtotals) using 3 columns in order to preserve all necessary data displayed (around 28 columns). If we set the subtotals using five columns the subtotals are included in the rows, but the aggregation is not correct and the texts for subtotals are not displayed. Furthermore, when we set creation of subtotals using five columns, we can display only 6 columns of data.
Do you think that this can be caused by the version of SAP - e.g. new ALV displaying functions, bad integration SAP ECC 6.0 <-> Excel?
Our previous version of SAP was 4.6C and everything worked properly.
Thanks a lot everybody.
PetrK

no answer

Display Traffic Lights in ALV TREE

Hi,
I have to display traffic light in ALV tree but i am not able to find out what parameter i should pass like in ALV grid where we can set is_layout (BCALV_GRID_04).
Thanks in advance.
Regards,
Harsh

Hi,
Please take a look at my code below. Hope it suits your requirement.
P.S. Please award points if it helps...
*& Report ZMM_R_PO_TO_IPURCH_XI
*& PROGRAM TYPE : Report
*& RICEF ID :
*& TITLE : ZMM_R_PO_TO_IPURCH_XI
*& SAP Module : MM
*& CREATION DATE : 02/06/2008
*& AUTHOR : Aris Hidalgo
*& DESIGNER : Aris Hidalgo
*& DESCRIPTION :
*$**********************************************************************
*$ CHANGE HISTORY
*$----------------------------------------------------------------------
*$ DATE | T-Num | Description | Reference
** | | |
*$**********************************************************************
REPORT zmm_r_po_to_ipurch_xi
 NO STANDARD PAGE HEADING
 MESSAGE-ID zmm.
* Data Dictionary Table/s *
TABLES: edidc.
* SELECTION-SCREEN *
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS: s_credat FOR edidc-credat OBLIGATORY.
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.
PARAMETERS: rb_sum RADIOBUTTON GROUP grp1,
 rb_det RADIOBUTTON GROUP grp1.
SELECTION-SCREEN END OF BLOCK b2.
*/ CLASS DEFINITION/S /*
* CLASS lcl_data_def DEFINITION
CLASS lcl_data_def DEFINITION ABSTRACT.
PUBLIC SECTION.
 TYPES: BEGIN OF t_edidc,
 docnum TYPE edidc-docnum,
 docrel TYPE edidc-docrel,
 status TYPE edidc-status,
 doctyp TYPE edidc-doctyp,
 direct TYPE edidc-direct,
 rcvpor TYPE edidc-rcvpor,
 rcvprt TYPE edidc-rcvprt,
 rcvprn TYPE edidc-rcvprn,
 rcvsad TYPE edidc-rcvsad,
 sndpor TYPE edidc-sndpor,
 sndprt TYPE edidc-sndprt,
 sndprn TYPE edidc-sndprn,
 sndsad TYPE edidc-sndsad,
 credat TYPE edidc-credat,
 cretim TYPE edidc-cretim,
 mestyp TYPE edidc-mestyp,
 idoctp TYPE edidc-idoctp,
 END OF t_edidc.
 TYPES: BEGIN OF t_output,
 exception TYPE char1,
 ebeln TYPE ekko-ebeln,
 lifnr TYPE lfa1-lifnr,
 name1 TYPE lfa1-name1,
 credat TYPE edidc-credat,
 cretim TYPE edidc-cretim,
 END OF t_output.
 TYPES: BEGIN OF t_ekko,
 ebeln TYPE ekko-ebeln,
 lifnr TYPE ekko-lifnr,
 END OF t_ekko.
 TYPES: BEGIN OF t_lfa1,
 lifnr TYPE lfa1-lifnr,
 name1 TYPE lfa1-name1,
 END OF t_lfa1.
 DATA: gt_edidc TYPE STANDARD TABLE OF t_edidc,
 gt_output TYPE STANDARD TABLE OF t_output,
 wa_output LIKE LINE OF gt_output,
 gt_ekko TYPE HASHED TABLE OF t_ekko
 WITH UNIQUE KEY ebeln,
 gt_lfa1 TYPE HASHED TABLE OF t_lfa1
 WITH UNIQUE KEY lifnr.
ENDCLASS. "lcl_data_def DEFINITION
CLASS lcl_alv_routines DEFINITION DEFERRED.
CLASS lcl_handle_events DEFINITION DEFERRED.
* CLASS lcl_get_data DEFINITION
CLASS lcl_get_data DEFINITION INHERITING FROM lcl_data_def.
PUBLIC SECTION.
 METHODS: get_idocs,
 read_idocs,
 process_data
 IMPORTING
 im_docnum TYPE edidc-docnum.
PRIVATE SECTION.
 CONSTANTS: lc_mestyp TYPE edidc-mestyp VALUE 'ZMARKETSITE_PURCHASE_ORDER',
 lc_idoctp TYPE edidc-idoctp VALUE 'ZMARKETSITE_PURCHASE_ORDER01',
 lc_segnam TYPE edid4-segnam VALUE 'ZMARKETSITE_ORDER_HEADER1'.
 CONSTANTS: lc_red TYPE i VALUE 1,
 lc_yellow TYPE i VALUE 2,
 lc_green TYPE i VALUE 3.
 DATA: lv_stat_message TYPE bdidocattr-message,
 o_lcl_alv_routines TYPE REF TO lcl_alv_routines.
 DATA: ls_idoc_control TYPE edidc,
 lv_tot_data_recs TYPE sy-dbcnt, "#EC NEEDED
 lv_tot_status_recs TYPE sy-dbcnt. "#EC NEEDED
 DATA: lt_edids TYPE STANDARD TABLE OF edids,
 lt_edidd TYPE STANDARD TABLE OF edidd.
ENDCLASS. "lcl_get_data DEFINITION
* CLASS lcl_alv_routines DEFINITION
CLASS lcl_alv_routines DEFINITION INHERITING FROM lcl_get_data.
PUBLIC SECTION.
 DATA: lcl_table TYPE REF TO cl_salv_table,
 lcl_container TYPE REF TO cl_gui_custom_container,
 lcl_handle_events TYPE REF TO lcl_handle_events,
 lcl_columns TYPE REF TO cl_salv_columns_table,
 lcl_column TYPE REF TO cl_salv_column_table,
 lcl_events2 TYPE REF TO cl_salv_events_table,
 lcl_display_settings TYPE REF TO cl_salv_display_settings,
 lcl_functions TYPE REF TO cl_salv_functions_list,
 lcl_display TYPE REF TO cl_salv_display_settings,
 lcl_aggregations TYPE REF TO cl_salv_aggregations,
 lcl_sorts TYPE REF TO cl_salv_sorts,
 lcl_content TYPE REF TO cl_salv_form_element,
 lcl_header TYPE REF TO cl_salv_form_header_info,
 ls_color TYPE lvc_s_colo.
 DATA: lcl_grid TYPE REF TO cl_salv_form_layout_grid,
 lcl_grid_1 TYPE REF TO cl_salv_form_layout_grid,
 lcl_grid_2 TYPE REF TO cl_salv_form_layout_grid,
 lcl_label TYPE REF TO cl_salv_form_label,"#EC NEEDED
 lcl_text TYPE REF TO cl_salv_form_text,
 gt_t247 TYPE STANDARD TABLE OF t247,
 wa_t247 LIKE LINE OF gt_t247,
 lv_text TYPE string.
 METHODS: display_data
 IMPORTING
 im_output LIKE gt_output,
 display_top_of_page.
PRIVATE SECTION.
 DATA: lv_string TYPE string,
 lv_date1 TYPE c LENGTH 10,
 lv_time TYPE c LENGTH 10,
 lv_title TYPE string.
ENDCLASS. "lcl_alv_routines DEFINITION
* CLASS lcl_handle_events DEFINITION
CLASS lcl_handle_events DEFINITION.
PUBLIC SECTION.
 METHODS:
 on_link_click FOR EVENT link_click OF cl_salv_events_table
 IMPORTING row column.
ENDCLASS. "lcl_handle_events DEFINITION
*/ IMPLEMENTATION/S /*
* CLASS lcl_get_data IMPLEMENTATION
CLASS lcl_get_data IMPLEMENTATION.
* METHOD get_idocs
METHOD get_idocs.
 CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
 EXPORTING
* PERCENTAGE = 0
 text = text-p01.
 SELECT docnum docrel status doctyp
 direct rcvpor rcvprt rcvprn
 rcvsad sndpor sndprt sndprn
 sndsad credat cretim mestyp
 idoctp
 FROM edidc
 INTO TABLE gt_edidc
 WHERE mestyp = lc_mestyp
 AND idoctp = lc_idoctp
 AND credat IN s_credat.
 IF gt_edidc[] IS NOT INITIAL.
* Get IDOC details
 CALL METHOD me->read_idocs.
 ENDIF.
ENDMETHOD. "get_idocs
* METHOD read_idocs
METHOD read_idocs.
 CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
 EXPORTING
* PERCENTAGE = 0
 text = text-p02.
 FIELD-SYMBOLS: <fs_edidc> LIKE LINE OF gt_edidc,
 <fs_output> LIKE LINE OF gt_output,
 <fs_ekko> LIKE LINE OF gt_ekko,
 <fs_lfa1> LIKE LINE OF gt_lfa1.
 LOOP AT gt_edidc ASSIGNING <fs_edidc>.
 CLEAR ls_idoc_control.
 REFRESH: lt_edids, lt_edidd.
* Get status text of IDOC
 CALL FUNCTION 'IDOC_GET_MESSAGE_ATTRIBUTE'
 EXPORTING
 idoc_number = <fs_edidc>-docnum
 IMPORTING
 idoc_message = lv_stat_message.
* Get IDOC details
 CALL FUNCTION 'IDOC_READ_COMPLETELY'
 EXPORTING
 document_number = <fs_edidc>-docnum
 IMPORTING
 idoc_control = ls_idoc_control
 number_of_data_records = lv_tot_data_recs
 number_of_status_records = lv_tot_status_recs
 TABLES
 int_edids = lt_edids
 int_edidd = lt_edidd
 EXCEPTIONS
 document_not_exist = 1
 document_number_invalid = 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.
* Pass data to output table
 CALL METHOD me->process_data
 EXPORTING
 im_docnum = <fs_edidc>-docnum.
 ENDLOOP.
 DELETE gt_output WHERE ebeln IS INITIAL.
 IF gt_output[] IS NOT INITIAL.
* Get vendor for fetched POs
 SELECT ebeln lifnr
 FROM ekko
 INTO TABLE gt_ekko
 FOR ALL ENTRIES IN gt_output
 WHERE ebeln = gt_output-ebeln.
 IF gt_ekko[] IS NOT INITIAL.
* Get name of vendors
 SELECT lifnr name1
 FROM lfa1
 INTO TABLE gt_lfa1
 FOR ALL ENTRIES IN gt_ekko
 WHERE lifnr = gt_ekko-lifnr.
 ENDIF.
* Pass vendor details to output table
 LOOP AT gt_output ASSIGNING <fs_output>.
 READ TABLE gt_ekko ASSIGNING <fs_ekko>
 WITH TABLE KEY ebeln = <fs_output>-ebeln.
 IF sy-subrc = 0.
 READ TABLE gt_lfa1 ASSIGNING <fs_lfa1>
 WITH TABLE KEY lifnr = <fs_ekko>-lifnr.
 IF sy-subrc = 0.
 <fs_output>-lifnr = <fs_lfa1>-lifnr.
 <fs_output>-name1 = <fs_lfa1>-name1.
 ENDIF.
 ENDIF.
 ENDLOOP.
 CREATE OBJECT o_lcl_alv_routines.
 CALL METHOD o_lcl_alv_routines->display_data
 EXPORTING
 im_output = gt_output[].
 ENDIF.
ENDMETHOD. "read_idocs
* METHOD process_data
METHOD process_data.
 FIELD-SYMBOLS: <fs_edidd> LIKE LINE OF lt_edidd.
 IF lv_stat_message CP 'ok' OR
 lv_stat_message CP 'positive'.
 wa_output-exception = lc_green.
 ELSEIF lv_stat_message CP 'error' OR
 lv_stat_message CP 'negative'.
 wa_output-exception = lc_red.
 ELSE.
 wa_output-exception = lc_yellow.
 ENDIF.
 READ TABLE lt_edidd ASSIGNING <fs_edidd>
 WITH KEY docnum = im_docnum
 segnam = lc_segnam.
 IF sy-subrc = 0.
 wa_output-ebeln = <fs_edidd>-sdata+0(10).
 ENDIF.
 wa_output-credat = ls_idoc_control-credat.
 wa_output-cretim = ls_idoc_control-cretim.
 APPEND wa_output TO gt_output.
 CLEAR wa_output.
ENDMETHOD. "process_data
ENDCLASS. "lcl_get_data IMPLEMENTATION
* CLASS lcl_alv_routines IMPLEMENTATION
CLASS lcl_alv_routines IMPLEMENTATION.
* METHOD display_data
METHOD display_data.
 CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
 EXPORTING
 percentage = 0
 text = text-p03.
 gt_output[] = im_output[].
 TRY.
 cl_salv_table=>factory(
 EXPORTING
 list_display = ''
 IMPORTING
 r_salv_table = lcl_table
 CHANGING
 t_table = gt_output ).
 CATCH cx_salv_msg. "#EC NO_HANDLER
 ENDTRY.
 lcl_functions = lcl_table->get_functions( ).
* Set all standard ALV functions
 lcl_functions->set_all( abap_true ).
 lcl_columns = lcl_table->get_columns( ).
 lcl_columns->set_optimize( '' ).
* Set display to striped pattern
 lcl_display = lcl_table->get_display_settings( ).
 lcl_display->set_striped_pattern( cl_salv_display_settings=>true ).
*/Sort columns
 TRY.
 lcl_sorts = lcl_table->get_sorts( ).
 CATCH cx_salv_not_found. "#EC NO_HANDLER
 ENDTRY.
 lcl_sorts->set_group_active( ).
 TRY.
 lcl_sorts->add_sort(
 columnname = 'EBELN'
 subtotal = '' ).
 CATCH cx_salv_not_found cx_salv_existing cx_salv_data_error."#EC NO_HANDLER
 ENDTRY.
*/Set column names
 TRY.
 lcl_columns->set_exception_column( 'EXCEPTION' ).
 CATCH cx_salv_data_error. "#EC NO_HANDLER
 ENDTRY.
 TRY.
 lcl_column ?= lcl_columns->get_column( 'EXCEPTION' ).
 lcl_column->set_short_text( text-h01 ).
 lcl_column->set_medium_text( text-h01 ).
 lcl_column->set_long_text( text-h01 ).
 lcl_column->set_output_length( '6' ).
 CATCH cx_salv_not_found. "#EC NO_HANDLER
 ENDTRY.
 TRY.
 lcl_column ?= lcl_columns->get_column( 'EBELN' ).
 lcl_column->set_short_text( text-h02 ).
 lcl_column->set_medium_text( text-h02 ).
 lcl_column->set_long_text( text-h02 ).
 lcl_column->set_output_length( '9' ).
 CATCH cx_salv_not_found. "#EC NO_HANDLER
 ENDTRY.
 TRY.
 lcl_column ?= lcl_columns->get_column( 'LIFNR' ).
* lcl_column->set_short_text( text-h03 ).
 lcl_column->set_medium_text( text-h03 ).
 lcl_column->set_long_text( text-h03 ).
 lcl_column->set_output_length( '11' ).
 CATCH cx_salv_not_found. "#EC NO_HANDLER
 ENDTRY.
 TRY.
 lcl_column ?= lcl_columns->get_column( 'NAME1' ).
* lcl_column->set_short_text( text-h04 ).
* lcl_column->set_medium_text( text-h04 ).
 lcl_column->set_long_text( text-h04 ).
 lcl_column->set_output_length( '30' ).
 CATCH cx_salv_not_found. "#EC NO_HANDLER
 ENDTRY.
 TRY.
 lcl_column ?= lcl_columns->get_column( 'CREDAT' ).
* lcl_column->set_short_text( text-h05 ).
* lcl_column->set_medium_text( text-h05 ).
 lcl_column->set_long_text( text-h05 ).
 lcl_column->set_output_length( '13' ).
 CATCH cx_salv_not_found. "#EC NO_HANDLER
 ENDTRY.
 TRY.
 lcl_column ?= lcl_columns->get_column( 'CRETIM' ).
* lcl_column->set_short_text( text-h06 ).
* lcl_column->set_medium_text( text-h06 ).
 lcl_column->set_long_text( text-h06 ).
 lcl_column->set_output_length( '13' ).
 CATCH cx_salv_not_found. "#EC NO_HANDLER
 ENDTRY.
*/Set aggregations
* TRY.
* lcl_aggregations = lcl_table->get_aggregations( ).
* CATCH cx_salv_not_found. "#EC NO_HANDLER
* ENDTRY.
* TRY.
* lcl_aggregations->add_aggregation( '' ).
* CATCH cx_salv_not_found cx_salv_data_error cx_salv_existing."#EC NO_HANDLER
* ENDTRY.
*/Hide columns
* TRY.
* lcl_column ?= lcl_columns->get_column( 'DESCRIPT' ).
* lcl_column->set_visible( if_salv_c_bool_sap=>false ).
* CATCH cx_salv_not_found. "#EC NO_HANDLER
* ENDTRY.
*/Display top of page
 CALL METHOD me->display_top_of_page.
 lcl_table->set_top_of_list( lcl_content ).
*/Handle ALV events
 lcl_events2 = lcl_table->get_event( ).
 CREATE OBJECT lcl_handle_events.
 SET HANDLER lcl_handle_events->on_link_click FOR lcl_events2.
 lcl_display_settings = lcl_table->get_display_settings( ).
 lcl_table->display( ).
ENDMETHOD. "display_data
* METHOD display_top_of_page
METHOD display_top_of_page.
 CREATE OBJECT lcl_grid.
 lv_title = text-t01.
 lcl_grid->create_header_information(
 row = 1
 column = 1
 text = lv_title
 tooltip = lv_title ).
 lcl_grid->add_row( ).
 lcl_grid_1 = lcl_grid->create_grid(
 row = 3
 column = 1 ).
 CLEAR lv_string.
 CONCATENATE: sy-datum+4(2) '/' sy-datum+6(2) '/' sy-datum+0(4)
 INTO lv_date1.
 CONCATENATE: text-t02 lv_date1
 INTO lv_string
 SEPARATED BY space.
 lcl_label = lcl_grid_1->create_label(
 row = 1
 column = 1
 text = lv_string
 tooltip = lv_string ).
 CLEAR lv_string.
 CONCATENATE: sy-uzeit+0(2) ':' sy-uzeit+2(2) ':' sy-uzeit+4(2)
 INTO lv_time.
 CONCATENATE: text-t03 lv_time
 INTO lv_string
 SEPARATED BY space.
 lcl_label = lcl_grid_1->create_label(
 row = 2
 column = 1
 text = lv_string
 tooltip = lv_string ).
 lcl_content = lcl_grid.
ENDMETHOD. "display_top_of_page
ENDCLASS. "lcl_alv_routines IMPLEMENTATION
* CLASS lcl_handle_events IMPLEMENTATION
CLASS lcl_handle_events IMPLEMENTATION.
* METHOD on_link_click
METHOD on_link_click.
ENDMETHOD. "on_link_click
ENDCLASS. "lcl_handle_events IMPLEMENTATION
* START-OF-SELECTION *
START-OF-SELECTION.
DATA: o_lcl_get_data TYPE REF TO lcl_get_data.
CREATE OBJECT o_lcl_get_data.
CALL METHOD o_lcl_get_data->get_idocs.

Aggregation in WD ALV

Similar Messages

Maybe you are looking for