How to do sorting in reports

I am writing the ref cursor query to get the output in my report.
I want to sort the output in my report.
Due to some constraints I can't write order by clause in the Query.
Is there any other way to sort the output ?

Hi,
I think you can try Break order of each column.
Regards,
George
I am writing the ref cursor query to get the output in my report.
I want to sort the output in my report.
Due to some constraints I can't write order by clause in the Query.
Is there any other way to sort the output ?

Similar Messages

How to Prevent Sorting on Hyperion Interactive Reporting ?

Dear All ,
I am having an outline in specific order , When I make the OLAP query to use my Alias table in Hyperion Interactive reporting ,
The data retrieved in a sorted way for the outline but sorting alias
So how to stop sorting ? and how to make retrieve 2 columns near each other ; one for members name and its corresponding Alias

add a stage covering rectangle to the lowest layer of your external swf and make sure the stage sizes of the loading and loaded swf are the same. convert that shape to a movieclip and assign an instance name (eg, bg_mc). in the actions panel, you can use:
bg_mc._alpha=0;
bg_mc.onRelease=function(){
bg_mc.useHandCursor=false;

Cisco Prime LMS 4.2, how to sort Uptime report?

Using an Inventory Custom Report, Uptime can be shown and it is nicely parsed out to be human readable. But how can I sort it to get the longest uptimes?
Thanks for any help,
Dave Faught

You can select parameters, but LMS won't show you data sorted up, unfortunately.
But withing the report, you can click on the columt fields and it can sort the data for you, and later it can be exported to pdf or csv:
If your schedule the job, you can receive the data directly mailed as .csv, which again can be sorted easily. No option withing LMS to do it before report is generated.
-Thanks
Vinod
**Support Contributors. Rate them. **

How we can sort subtotal results value in abap alv report

Hi, How we can sort subtotal results value in abap alv report

Thanks a lot for your code
but i am still getting double and weird results.
Subtotal     IN     PARTY              KGS        TOTAL VALUE
     1     40008     3,141.20     192,799.00
     1     40008     16,681.06     1,908,659.00
Subtotal     1          19,822.25     2,101,458.00
     10     40022     4,590.60     531,228.00
     10     40022     3,448.27     377,173.00
Subtotal     10          8,038.87     908,401.00
     100     40010     270.172     19,852.00
Subtotal     100          270.172     19,852.00
     101     40036     752.898     61,051.00
     101     40036     207.586     19,431.00
Subtotal     101          960.484     80,482.00
     102     40048     325.936     32,154.00
     102     40048     264.32     19,364.00
Subtotal     102          590.256     51,518.00
     103     40066     216.134     18,088.00
Subtotal     103          216.134     18,088.00
     104     40001     231.96     16,986.00
Subtotal     104          231.96     16,986.00
     105     40021     585.918     65,461.00
     105     40021     108.683     15,825.00
Subtotal     105          694.601     81,286.00
     106     40046     209.777     15,341.00
Subtotal     106          209.777     15,341.00
     107     40043     167.353     14,755.00
Subtotal     107          167.353     14,755.00
     108     40046     153.023     14,343.00
     108     40046     342.348     32,223.00
Subtotal     108          495.371     46,566.00
     109     40008     184.085     13,483.00
Subtotal     109          184.085     13,483.00
     11     40011     5,275.63     524,232.69
     11     40011     6,723.28     643,911.82
Subtotal     11          11,998.90     1,168,144.51
     110     40067     142.113     13,333.00
     110     40067     492.883     44,428.00
Subtotal     110          634.996     57,761.00
     111     40040     118.961     13,190.00
     111     40040     492.433     60,029.00
Subtotal     111          611.394     73,219.00
Edited by: Timaji Sawant on Feb 16, 2012 12:16 PM
Edited by: Timaji Sawant on Feb 17, 2012 9:27 AM

How do you refresh a report after an update?

Hi all,
I have a Welcome Page that has several Portlets on it. One of the Portlets is a QBE report. From the report a user can click on a column record and be transported to a form, where the user can modify the record. Once the user is satisfied with the changes, the user hits the UPDATE button and is transported back to the Welcome Page. The only problem is that the Report has not been updated. Refresh does not work on the web toolbar and the only way I figured out on how to refresh the report is to go into the 'Customize' page and make some sort of change and hit O.K. After that, I am redirected back to the Welcome Page with the Report refreshed with current data. How can I refresh the report, without going into the 'Customize' Page? What code does the 'Customize' page do, to automatically refresh the report? I am using Portal 9.0.2.2.14.
TIA,
Dan

Hi,
This is due to webcache. You can solve this problem by calling the page url with an extra parameter. That way the page would get invalidated.
Say the page url is
http://domain/portal/page_pageid=33,32951&_dad=portaldad&_schema=portalschema
then you should call the page like this
http://domain/portal/page_pageid=33,32951&_dad=portaldad&_schema=portalschema&1=2
This just adds a dummy parameter at the end and hence invalidates the cache.
Thanks,
Sharmila

How to order an entire Report by a column with in a group...

Okay, I have a Group Above report, and I want to order the groupings by a column within the group. I am using a lexical parameter in place of the entire ORDER BY statement in the query, giving the user the capability to sort the report by any specific column, at runtime.
So, basically, this parameter allows for the ORDER BY to be dynamic; however, in the Data Model, I am required to designate at least one hard-coded break column, which overrides whatever column is designated by the user at runtime.
Any ideas how I can get around this?

Hi Brice,
If you want just i single hard coded column in a group
then i think you can create summary column with counting
so you can say say a column that gives you just Serial no.
and rest of the thing as it is.
in this way you got your hard column and also Order by facility
that you want.
Hope that helps you.
Enjoy Oracle....

Sorting in report 10g?

Hello Experts,
Could you please help me? Is there a way to sort Oracle report by formula column? We selecting some columns in the report and one of the columns is a complicated select from different tables returning value. We want to sort the report by this column. How to do that?
Thanks for your help.
Yash

Hello,
You can move the formula column at the top of the query and the select its Break Order property(more on this in Reports Builder Help Contents).
Regards,
Alex
If someone's answer is helpful or correct please mark it accordingly.

How do I sort by employee last name when grouped by employee id?

Hi,
The first Group is: Employee ID.
The second Group is: Employee Last Name.
I wish to sort the entire report by Employee Last Name; however, standard crystal reports sorting functionality doesn't present me with this ability. As a result, the report is sorted by Employee ID.
Can someone help me how to sort by Employee Last Name in this scenario?
thx,
Mark

Hi Mark,
When you create a Group in the report, Crystal reports automatically adds the grouped fields in the Sort list which unfortunately cannot be removed! You cannot change the priority of the sort fields too, and the only way of achieving this is by actually changing the group order. But it wouldn't help the purpose.
As a workaround, here's what you can do though:
1) Create a command object and provide a pre-sorted result set to Crystal Reports. In this situation you would probably create a command object like :
select Emp_ID, Last_Name from Emp order by Last_Name asc
2) Create the 2 groups in the report again. Open the 'Group Expert', click on the first group and then click 'Options'
3) The Sort order for this group would be 'in ascending order' by default. Change it to 'in original order'
4) Repeat the above step for the next group
This is the only way I know of sorting a report on another field.
Let me know how this goes!
-Abhilash

APEX report sorting makes report slow

Hi,
I have some reports in APEX that are fast (3 sec) when I have no sorting enabled and they turn slow (20 sec) when I enable column sorting.
The reports are based on data running over a DB-link, all tables come from the same DB-link. When I launch the queries (with filled in parameters) in SQL+ then it takes no more then 5 sec (with or without sorting). The result is about 1000 to 2000 records (only showing 25 in the report with pagination).
How can I make the report fast (less then 5 sec) with sorting enabled?
Is there any known bug in APEX that is the source of my problem?
Thanks in advance.

Good point, but I already have recreated the report (delete and recreate) with no result. Cause I know that sometimes the reports run slow, cause they are somehow confused with the sorting, and in most cases it helps to recreate the report (which resets the report ID, so that it's like clearing the user preferences).
First I thougt it had to do something with the user preferences, but I think that it is something different.
I really don't know how to explain the time difference between SQL+ and APEX.

Hi gurur's how we do the interactive report in ALV

hi gurur's how we do the interactive report in ALV.
PLZ HELP ME

Hi Srivasu,
 I will send a sample code along with Comments check it once ok.copy the below code and execute it and debug it ok..
*& Report YPURCHASEORDER_ALV_LISTDISP *
*& DEVELOPER : KIRAN KUMAR.G *
& PURPOSE : CREATING A PURCHASE ORDER BASED ON PURCHASE DOC NUMBER
*& CREATION DT: 22/11/2007 *
*& REQUEST : ERPK900035 *
REPORT YPURCHASEORDER_ALV_LISTDISP.
Tables
TABLES : ekko, "Purchasing Document Header
 ekpo. "Purchasing Document Item
Type pools
TYPE-POOLS: slis.
Internal Tables
DATA: BEGIN OF gt_headerdat OCCURS 0,
 ebeln LIKE ekko-ebeln, " Purchasing Document Number
 bukrs LIKE ekko-bukrs, " Company Code
 bstyp LIKE ekko-bstyp, " Purchasing Document Category
 bsart LIKE ekko-bsart, " Purchasing Document LIKE
 aedat LIKE ekko-aedat, " Date on which the recordwascreate
 ernam LIKE ekko-ernam, " Name of Person who Created Object
 lifnr LIKE ekko-lifnr, " Vendor's account number
 spras LIKE ekko-spras, " Language Key
 ekorg LIKE ekko-ekorg, " Purchasing Organization
 ekgrp LIKE ekko-ekgrp, " Purchasing group
 END OF gt_headerdat.
DATA: BEGIN OF gt_item OCCURS 0,
 matnr LIKE ekpo-matnr, "Material Number
 werks LIKE ekpo-werks, "Plant
 lgort LIKE ekpo-lgort, "Storage location
 matkl LIKE ekpo-matkl, "Material group
 menge LIKE ekpo-menge, "Purchase order quantity
 meins LIKE ekpo-meins, "Order unit
 netpr LIKE ekpo-netpr, "Net price in purchasing document
 kunnr LIKE ekpo-kunnr, "Customer Number 1
 END OF gt_item.
Global Structures
DATA: gt_header TYPE slis_t_listheader, "For Headings
 wa_header TYPE slis_listheader,
 gt_fieldcat TYPE slis_t_fieldcat_alv, "Structure Defintion
 wa_fieldcat TYPE slis_fieldcat_alv,
 gt_fieldcat1 TYPE slis_t_fieldcat_alv,
 wa_fieldcat1 TYPE slis_fieldcat_alv,
 wa_layout TYPE slis_layout_alv, "Layout
 gt_events TYPE slis_t_event, "For Events
 wa_events TYPE slis_alv_event.
Selection Screen
SELECTION-SCREEN: BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS : s_ebeln FOR ekko-ebeln.
SELECTION-SCREEN: END OF BLOCK b1.
Initialization
INITIALIZATION.
PERFORM initial.
Fetch Data
START-OF-SELECTION.
PERFORM fetch_data.
END-OF-SELECTION.
Bulid fieldcatalog
PERFORM fieldcat.
Change fieldcatalog
PERFORM fieldcat_change.
Events Triggering
PERFORM place_events.
Layout.
PERFORM layout.
Display Data
SORT gt_headerdat BY ebeln.
PERFORM display_list.
*& Form initial
 text
--> p1 text
<-- p2 text
FORM initial .
s_ebeln-sign = 'I'.
s_ebeln-option = 'BT'.
s_ebeln-low = '3000000090'.
s_ebeln-high = '3000000166'.
APPEND s_ebeln.
ENDFORM. " initial
*& Form fetch_data
 text
--> p1 text
<-- p2 text
FORM fetch_data .
REFRESH gt_headerdat. "Clear the Body of Internal Table
CLEAR gt_headerdat. "Clear Header Line
SELECT ebeln
 bukrs
 bstyp
 bsart
 aedat
 ernam
 lifnr
 spras
 ekorg
 ekgrp
 FROM ekko
 INTO TABLE gt_headerdat
 WHERE ebeln IN s_ebeln.
ENDFORM. " fetch_data
*& Form display_list
 text
--> p1 text
<-- p2 text
FORM display_list .
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
 EXPORTING
I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE = ' '
 i_callback_program = sy-cprog
I_CALLBACK_PF_STATUS_SET = ' '
 i_callback_user_command = 'USERCOMMAND'
I_STRUCTURE_NAME =
 is_layout = wa_layout
 it_fieldcat = gt_fieldcat
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =
 it_events = gt_events
IT_EVENT_EXIT =
IS_PRINT =
IS_REPREP_ID =
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =
 TABLES
 t_outtab = gt_headerdat
 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. " display_list
*& Form place_events
 text
--> p1 text
<-- p2 text
FORM place_events .
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
 EXPORTING
 i_list_type = 0
 IMPORTING
 et_events = gt_events
 EXCEPTIONS
 list_type_wrong = 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.
CLEAR wa_events. "Clear Header Line
READ TABLE gt_events INTO wa_events WITH KEY name = 'TOP_OF_PAGE'.
IF sy-subrc = 0.
 wa_events-form = 'HEADING'.
 MODIFY gt_events FROM wa_events INDEX sy-tabix.
ENDIF.
CLEAR wa_events. "Clear Header Line
READ TABLE gt_events INTO wa_events WITH KEY name = 'END_OF_LIST'.
IF sy-subrc = 0.
 wa_events-form = 'PAGEDOWN'.
 MODIFY gt_events FROM wa_events INDEX sy-tabix.
ENDIF.
CLEAR wa_events. "Clear Header Line
READ TABLE gt_events INTO wa_events WITH KEY name = 'USER_COMMAND'.
IF sy-subrc = 0.
 wa_events-form = 'USERCOMMAND'.
 MODIFY gt_events FROM wa_events INDEX sy-tabix.
ENDIF.
ENDFORM. " place_events
*& Form layout
 text
--> p1 text
<-- p2 text
FORM layout .
CLEAR wa_layout. "Clear Header Line
wa_layout-zebra = 'X'. "Zebra Lines in the Output
wa_layout-colwidth_optimize = 'X'. "Optimize the Column Width
ENDFORM. " layout
*& Form heading
 text
FORM heading.
WRITE:/6 'THIS REPORT DISPLAYS THE PURCHASE ORDER DETAILS'.
WRITE:/6 'CLICK ON PURCHASE DOC NO FIELD(INTERACTIVE LIST)'.
ENDFORM. "heading
*& Form fieldcat
 text
--> p1 text
<-- p2 text
FORM fieldcat .
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
 EXPORTING
 i_program_name = SY-CPROG
 i_internal_tabname = 'GT_HEADERDAT'
I_STRUCTURE_NAME =
I_CLIENT_NEVER_DISPLAY = 'X'
 i_inclname = SY-CPROG
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE =
 CHANGING
 ct_fieldcat = gt_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.
ENDFORM. " fieldcat
*& Form fieldcat_change
 text
--> p1 text
<-- p2 text
FORM fieldcat_change .
LOOP AT gt_fieldcat INTO wa_fieldcat.
 CASE wa_fieldcat-fieldname.
 WHEN 'EBELN'.
 wa_fieldcat-hotspot = 'X'.
 ENDCASE.
 MODIFY gt_fieldcat FROM wa_fieldcat INDEX sy-tabix.
ENDLOOP.
ENDFORM. " fieldcat_change
*& Form pagedown
 text
FORM pagedown.
WRITE:/35 'HAVE A NICE DAY...' COLOR 4.
ENDFORM. "pagedown
*& Form usercommand
 text
 -->UCOMM text
 -->SELFIELD text
FORM usercommand USING ucomm LIKE sy-ucomm selfield TYPE slis_selfield.
READ TABLE gt_headerdat INDEX selfield-tabindex.
CASE selfield-sel_tab_field.
 WHEN 'GT_HEADERDAT-EBELN'.
 REFRESH : gt_item.
 CLEAR : gt_item.
 SELECT matnr
 werks
 lgort
 matkl
 menge
 meins
 netpr
 kunnr
 FROM ekpo
 INTO TABLE gt_item
 WHERE ekpo~ebeln EQ gt_headerdat-ebeln.
*Build a Field Catalog
 PERFORM fieldcat1.
*For Heading in the Interactive List
 PERFORM heading1.
*Display Interactive Data
 PERFORM display_data1.
ENDCASE.
ENDFORM. "usercommand
*& Form fieldcat1
 text
--> p1 text
<-- p2 text
FORM fieldcat1 .
REFRESH : gt_fieldcat1.
CLEAR : wa_fieldcat1.
wa_fieldcat1-col_pos = '1'. "Column Postion
wa_fieldcat1-fieldname = 'MATNR'. "Field Name
wa_fieldcat1-tabname = 'GT_ITEM'. "Internal Table
wa_fieldcat1-key = 'X'. "Blue Color
wa_fieldcat1-seltext_l = 'MATERIAL NO'. "Display Text Screen
APPEND wa_fieldcat1 TO gt_fieldcat1.
CLEAR wa_fieldcat1.
wa_fieldcat1-col_pos = '2'. "Column Postion
wa_fieldcat1-fieldname = 'WERKS'. "Field Name
wa_fieldcat1-tabname = 'GT_ITEM'. "Internal Table
wa_fieldcat1-seltext_l = 'PLANT'. "Display Text Screen
APPEND wa_fieldcat1 TO gt_fieldcat1.
CLEAR wa_fieldcat1.
wa_fieldcat1-col_pos = '3'. "Column Postion
wa_fieldcat1-fieldname = 'LGORT'. "Field Name
wa_fieldcat1-tabname = 'GT_ITEM'. "Internal Table
wa_fieldcat1-seltext_l = 'STORAGE LOCATION'."Display Text Screen
APPEND wa_fieldcat1 TO gt_fieldcat1.
CLEAR wa_fieldcat1.
wa_fieldcat1-col_pos = '4'. "Column Postion
wa_fieldcat1-fieldname = 'MATKL'. "Field Name
wa_fieldcat1-tabname = 'GT_ITEM'. "Internal Table
wa_fieldcat1-seltext_l = 'MATERIAL GRP'. "Display Text Screen
APPEND wa_fieldcat1 TO gt_fieldcat1.
CLEAR wa_fieldcat1.
wa_fieldcat1-col_pos = '5'. "Column Postion
wa_fieldcat1-fieldname = 'MENGE'. "Field Name
wa_fieldcat1-tabname = 'GT_ITEM'. "Internal TAble
wa_fieldcat1-seltext_l = 'PO QUANTITY'. "Display Text Screen
APPEND wa_fieldcat1 TO gt_fieldcat1.
CLEAR wa_fieldcat1.
wa_fieldcat1-col_pos = '6'. "Column Pos tion
wa_fieldcat1-fieldname = 'MEINS'. "Field Name
wa_fieldcat1-tabname = 'GT_ITEM'. "Internal TAble
wa_fieldcat1-seltext_l = 'BASE UNIT MEASURE'."Display Text Screen
APPEND wa_fieldcat1 TO gt_fieldcat1.
CLEAR wa_fieldcat1.
wa_fieldcat1-col_pos = '7'. "Column Postion
wa_fieldcat1-fieldname = 'NETPR'. "Field Name
wa_fieldcat1-tabname = 'GT_ITEM'. "Internal Table
wa_fieldcat1-seltext_l = 'NET PRICE'. "Display Text Screen
APPEND wa_fieldcat1 TO gt_fieldcat1.
CLEAR wa_fieldcat1.
wa_fieldcat1-col_pos = '8'. "Column Postion
wa_fieldcat1-fieldname = 'KUNNR'. "Field Name
wa_fieldcat1-tabname = 'GT_ITEM'. "Internal Table
wa_fieldcat1-seltext_l = 'CUSTOMER NO'. "Display Text Screen
APPEND wa_fieldcat1 TO gt_fieldcat1.
CLEAR wa_fieldcat1.
ENDFORM. " fieldcat1
*& Form heading1
 text
--> p1 text
<-- p2 text
FORM heading1 .
REFRESH : gt_header.
CLEAR : wa_header.
wa_header-typ = 'H'.
wa_header-info = 'THIS IS AN INTERACTIVE LIST'.
APPEND wa_header TO gt_header.
ENDFORM. " heading1
*& Form top
 text
FORM top.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
 EXPORTING
 it_list_commentary = gt_header
I_LOGO =
I_END_OF_LIST_GRID =
ENDFORM. "top
*& Form display_data1
 text
--> p1 text
<-- p2 text
FORM display_data1 .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER = ' '
I_BUFFER_ACTIVE = ' '
 i_callback_program = SY-CPROG
I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '
 i_callback_top_of_page = 'TOP'
I_CALLBACK_HTML_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_END_OF_LIST = ' '
I_STRUCTURE_NAME =
I_BACKGROUND_ID = ' '
I_GRID_TITLE =
I_GRID_SETTINGS =
IS_LAYOUT =
 it_fieldcat = gt_fieldcat1
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =
IT_EVENTS =
IT_EVENT_EXIT =
IS_PRINT =
IS_REPREP_ID =
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
IT_ALV_GRAPHICS =
IT_HYPERLINK =
IT_ADD_FIELDCAT =
IT_EXCEPT_QINFO =
I_HTML_HEIGHT_TOP =
I_HTML_HEIGHT_END =
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =
 TABLES
 t_outtab = gt_item
 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. " display_data1
Reward points if helpful.
Kiran Kumar.G.A
 Have a Nice Day..

How can we sort records in alv, give example

how can we sort records in alv, give example

Hi
Setting Sort Conditions
It is possible to set sort conditions for the table data. This is achieved by filling an internal table of structure LVC_T_SORT which consists of the sort criteria. To have an initial sorting, pass it to the parameter IT_SORT of the method set_table_for_first_display.
FORM prepare_sort_table CHANGING pt_sort TYPE lvc_t_sort .
DATA ls_sort TYPE lvc_s_sort .
ls_sort-spos = '1' .
ls_sort-fieldname = 'CARRID' .
ls_sort-up = 'X' . "A to Z
ls_sort-down = space .
APPEND ls_sort TO pt_sort .
ls_sort-spos = '2' .
ls_sort-fieldname = 'SEATSOCC' .
ls_sort-up = space .
ls_sort-down = 'X' . "Z to A
APPEND ls_sort TO pt_sort .
ENDFORM. " prepare_sort_table
Preparing the table for sorting settings
We have two important points to tell about this topic. First one is that, be ready for a short dump if any one of the fields given to be sorted is not in the content of the field catalog. Secondly, when you make ALV Grid to sort data, by default it vertically merges fields having the same content. To avoid from this for all of the columns, you can set no_merging field of the layout structure to X. If you want to disable merging for just some columns, set no_merging field of the field catalog row corresponding to that column.
You can get and set sort criteria applied whenever you want by using methods get_sort_criteria and set_sort_criteria, respectively.

Sort Using FACTORY CLASSES
Sorts CL_SALV_SORTS
we can add some sorting to the ALV grid. Create the object reference variable and receive the object using the GET_SORTS method of the GR_TABLE object. Next, add the sort by calling the ADD_SORT method of the GR_SORTS object.
report zalvom_demo1.
data: ispfli type table of spfli.
data: gr_table type ref to cl_salv_table.
data: gr_functions type ref to cl_salv_functions.
data: gr_display type ref to cl_salv_display_settings. data: gr_columns type ref to cl_salv_columns_table.
data: gr_column type ref to cl_salv_column_table.
data: gr_sorts type ref to cl_salv_sorts.
data: color type lvc_s_colo.
start-of-selection.
select * into table ispfli from spfli. cl_salv_table=>factory( importing r_salv_table = gr_table changing t_table = ispfli ).
gr_functions = gr_table->get_functions( ). gr_functions->set_all( abap_true ).
gr_display = gr_table->get_display_settings( ). gr_display->set_striped_pattern( cl_salv_display_settings=>true ). gr_display->set_list_header( 'This is the heading' ). gr_columns = gr_table->get_columns( ).
gr_column ?= gr_columns->get_column( 'CITYTO' ). gr_column->set_long_text( 'This is long text' ). gr_column->set_medium_text( 'This is med text' ). gr_column->set_short_text( 'This is sh' ).
gr_column ?= gr_columns->get_column( 'CITYFROM' ). color-col = '6'.
color-int = '1'.
color-inv = '0'.
gr_column->set_color( color ).
gr_sorts = gr_table->get_sorts( ).
gr_sorts->add_sort 'CITYTO' ).
gr_table->display( ).
Regards
Ravish

Reward if useful to you
Message was edited by:
Ravish Garg

Sorting in Report

How to do sorting in classical report?

Sort the internal table that you want to print as the list.
eg:
if ITAB is the internal table you are printing, sort it like this
sort ITAB.
if you want to sort by a field
SORT ITAB by FIELD1.
Sort by multiple fields.
SORT ITAB by FIELD1 FIELD2..
Regards,
Ravi

HOW TO DECIDE IN A REPORT WHICH TABLE SHOULD LOOP FIRST?

MY Report contains 3 item table and one header table or 4 header tables then how to decide that this table should loop first.And how could i judge that this table contains duplicate entries.
HOW TO DECIDE IN A REPORT WHICH TABLE SHOULD LOOP FIRST?
Moderator message: please search for available information/documentation before asking, do not post in all upper case, these forums are not a substitute for ABAP training.
Edited by: Thomas Zloch on Dec 6, 2010 12:00 PM

Hi,
It is suggested to loop at the header table and then read the item table. Where in if you have multiple entries in the item table that matches, use the parallel cursors concept (Loop from index) as shown below
Loop at header....
Read table item with key......
If sy-subrc EQ 0.
Loop at item from sy-tabix.
-- Perform your processing.
endloop.
endif.
endloop.
Also make sure if you have duplicate entries in your internal tables, Use SORT and then DELETE ADJACENT DUPLICATES so that it avoids the performance issues as well
Hope this helps you.
Regards,
Shiva

How to Bind Sort Control programatically?

Hi,
I have a problem with Sorting in Cystal Reports at run time.
When I try to change the sort order of fields in crystal report, I am getting error
"Sorting already exists".
I took extra column to solve this issue. But I am loosing Sort control
in report.
How can add Sort control(Bind Sort Control in design) programatically?
How can we reorder the Sort Fields( Whatever Move Up and Move Down doing in Design)programatically?
Thanks,
Supriya

More information needed. See the [Rules of Engagement|https://www.sdn.sap.com/irj/sdn/wiki?path=/display/home/rulesofEngagement]
Step 2 Asking Your Question; Provide Enough Information
1) What version of CR?
2) What CR SP level are you at?
3) What CR SDK are you using?
4) What is your development language and version?
5) Have you been able to consult the Developer help files for your version of CR?
Ludek

How to send ALV Grid report to Email?

hai all,
How to send ALV Grid report to Email.
please its very urgent.....

Hi,
when u run the Alv, u will button 'Mail Recepiant' in tool bar.When u click it and enter to new screen, go to the Recipient Tab(down) enter ur maild id and click 'Send' button on tool bar.
or.
if u want to send the Alv content to mail id thru prg, go thru the following code.
 TABLES
TABLES: BSID. " Accounting: Secondary Index for Customers.
 TYPE-POOLS
TYPE-POOLS: SLIS.
 INTERNAL TABLES
 Internal table to hold Customer data.
DATA: BEGIN OF TB_BSID OCCURS 0,
 BUKRS LIKE BSID-BUKRS, " Company code
 KUNNR LIKE BSID-KUNNR, " Customer number
 AUGDT LIKE BSID-AUGDT, " Clearing Date
 BLDAT LIKE BSID-BLDAT, " Doc date in document
 SHKZG LIKE BSID-SHKZG, " Debit/credit indicator
 DMBTR LIKE BSID-DMBTR, " Amount in local currency
 ZFBDT LIKE BSID-ZFBDT, " Baseline date for due date calc
 ZBD1T LIKE BSID-ZBD1T, " Cash discount days 1
 ZBD2T LIKE BSID-ZBD2T, " Cash discount days 2
 ZBD3T LIKE BSID-ZBD3T, " Net Payment Terms Period
 REBZG LIKE BSID-REBZG, " No Of the Inv the Tran Belongs to
 REBZT LIKE BSID-REBZT, " Follow-On Document Type
 END OF TB_BSID.
 Internal table to hold Open Items.
DATA: TB_BSID_OPEN LIKE TABLE OF TB_BSID WITH HEADER LINE.
 Internal table to hold Cleared Items.
DATA: TB_BSAD_CLEAR LIKE TABLE OF TB_BSID WITH HEADER LINE.
 Internal table to hold General Data in Customer Master
DATA: BEGIN OF TB_KNA1 OCCURS 0,
 KUNNR LIKE KNA1-KUNNR, " Customer Number
 NAME1 LIKE KNA1-NAME1, " Name Line 1
 TELF1 LIKE KNA1-TELF1, " Telephone Number
 ADRNR LIKE KNA1-ADRNR, " Address
 END OF TB_KNA1.
 Internal table to hold Customer Master (Company Code)
DATA: BEGIN OF TB_KNB1 OCCURS 0,
 KUNNR LIKE KNB1-KUNNR, " Customer Number
 BUKRS LIKE KNB1-BUKRS, " Company code
 ERDAT LIKE KNB1-ERDAT, " Rec Created Date
 ZAMIB LIKE KNB1-ZAMIB, " DMS Managed Indicator
 END OF TB_KNB1.
 Internal table to hold Final Output Data
DATA: BEGIN OF TB_FINAL OCCURS 0,
 KUNNR LIKE KNA1-KUNNR, " Customer Number
 NAME1 LIKE KNA1-NAME1, " Name Line 1
 ADDRESS1(25) TYPE C, " Address line 1
 ADDRESS2(25) TYPE C, " Address line 2
 ADDRESS3(25) TYPE C, " Address line 3
 ADDRESS4(25) TYPE C, " Address line 4
 PHONE LIKE KNA1-TELF1, " Telephone Number
 DAYS_SLOW(3) TYPE C, " Days Slow
 LAST_DATE(8) TYPE C, " Date of Last Invoice
 AVG(4) TYPE C, " Average Days to Pay
 CURRENT(10) TYPE N, " Current
 AVG_1_30(10) TYPE N, " 1-30 past due
 AVG_31_60(10) TYPE N, " 31-60 past due
 AVG_61_90(10) TYPE N, " 61-90 past due
 AVG_90G(10) TYPE N, " 90+ past due
 END OF TB_FINAL.
 ALV Internal tables
DATA : TB_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV, " Field Catalog
 TB_EVENTS TYPE SLIS_T_EVENT, " ALV Events
 TB_COMMENTS TYPE SLIS_T_LISTHEADER. " Comment
 Internal tables for the sending mail data
DATA: TB_OBJPACK TYPE SOPCKLSTI1 OCCURS 2 WITH HEADER LINE,
 TB_OBJHEAD TYPE SOLISTI1 OCCURS 1 WITH HEADER LINE,
 TB_OBJTXT TYPE SOLISTI1 OCCURS 10 WITH HEADER LINE,
 TB_RECLIST TYPE SOMLRECI1 OCCURS 5 WITH HEADER LINE,
 TB_OBJBIN LIKE SOLISTI1 OCCURS 0 WITH HEADER LINE,
 TB_DOC_CHNG TYPE SODOCCHGI1.
 Internal table to get mail Receivers Address
DATA: TB_ZRECEIVE LIKE YSMTP_ADDRESS OCCURS 0 WITH HEADER LINE.
 STRUCTURES
DATA: X_SADR TYPE SADR, " For Address
 X_FIELDCAT TYPE SLIS_FIELDCAT_ALV, " For Field Catalog
 X_LAYOUT TYPE SLIS_LAYOUT_ALV, " For Layout
 X_EVENTS TYPE SLIS_ALV_EVENT, " For Events
 X_COMMENTS TYPE SLIS_LISTHEADER, " For Comments
 X_ADDR1_SEL LIKE ADDR1_SEL, " For Address
 WA_FAEDE TYPE FAEDE. " For FAEDE struct
 VARIABLES
DATA: G_REPID LIKE SY-REPID, " Prog ID
 G_DAYS_SLOW(3) TYPE N, " Days Slow
 G_OPEN TYPE I, " Counter
 G_AVG(4) TYPE C, " Avg Days
 G_COUNT TYPE I, " Counter
 G_TITLE TYPE SOLISTI1-LINE, " Description
 G_TAB_LINES TYPE SY-TABIX, " Internal data count
 G_REC_COUNT TYPE I, " Total records
 G_CURR_BAL TYPE N, " Account balance
 G_FILE_NAME LIKE EDI_PATH-PTHNAM. " Output File Name
 CONSTANTS
CONSTANTS: C_D TYPE C VALUE 'D', " Account type
 C_X TYPE C VALUE 'X', " Check Value
 C_0(4) TYPE N VALUE '0.00', " Constant for char
 C_1(2) TYPE C VALUE '01', " Posting key const
 C_H TYPE C VALUE 'H', " For Commenet-Type
 C_TXT(3) TYPE N VALUE 'TXT', " File type
 C_RAW(3) TYPE C VALUE 'RAW', " File type
 C_DELIMITER TYPE X VALUE '09', " ASCII CODE LINE
 C_TOP_OF_PAGE TYPE SLIS_FORMNAME VALUE 'TOP_OF_PAGE',
 C_INTERFACE TYPE YWFSALOFFICNOTIF-INTERFACE_ID VALUE 'AP',
 C_FILENAME(20) TYPE N VALUE 'TEXT.TXT'," File name
 C_TITLE(30) TYPE N VALUE 'Z21614_DB_CREDIT_AGENCY',
 C_Z001 TYPE RF035-RASID VALUE 'Z001'." Net 30/60/90/120/150
 SELECTION SCREEN.
Selection Screen for Selection Criteria.
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-T01.
SELECT-OPTIONS: S_BUKRS FOR BSID-BUKRS OBLIGATORY, " Company Code
 S_BLDAT FOR BSID-BLDAT," OBLIGATORY, " Doc Date
 S_KUNNR FOR BSID-KUNNR, " Cust No
 S_ZUONR FOR BSID-ZUONR. " Assignment
PARAMETERS: P_GRACE(2) TYPE N OBLIGATORY, " Grace Days
 P_ZAMIB LIKE KNB1-ZAMIB AS CHECKBOX. " DMS Indicator
SELECTION-SCREEN END OF BLOCK B1.
Selection Screen for Output Options.
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-T02.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN POSITION 01.
PARAMETERS: P_REPORT RADIOBUTTON GROUP R1. " Report Only
SELECTION-SCREEN COMMENT 5(25) TEXT-016.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN POSITION 01.
PARAMETERS: P_DOWN RADIOBUTTON GROUP R1. " Dwnld to Unix
SELECTION-SCREEN COMMENT 5(25) TEXT-017.
SELECTION-SCREEN POSITION 30.
PARAMETERS: P_FILE LIKE FILENAME-FILEINTERN DEFAULT
 'Z21614_DB_CREDIT_AGENCY'. " File Name
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK B2.
Selection Screen for E-mail.
SELECTION-SCREEN BEGIN OF BLOCK B3 WITH FRAME TITLE TEXT-T03.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN POSITION 01.
PARAMETERS: P_EMAIL AS CHECKBOX. " E-mail
SELECTION-SCREEN COMMENT 5(25) TEXT-018.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK B3.
 INITIALIZATION
INITIALIZATION.
G_REPID = SY-REPID.
 AT SELECTION SCREEN. *
AT SELECTION-SCREEN.
Validation of selection screen entries
perform validate_data.
 START-OF-SELECTION
START-OF-SELECTION.
Select Data from Customer Master (Company Code)
PERFORM SELECT_KNB1.
Select Custmer Open Items.
PERFORM SELECT_CUSTOMER_OPEN_ITEMS.
Select Custmer Cleared Items.
PERFORM SELECT_CUSTOMER_CLEARED_ITEMS.
Select General Data in Customer Master
PERFORM SELECT_KNA1.
Populate Final Output Data.
PERFORM POPULATE_TB_FINAL.
 End of selection *
END-OF-SELECTION.
If both display report and send email is checked
IF P_REPORT = C_X AND P_EMAIL = C_X.
 MESSAGE E999 WITH
 'Select One Among Report Only & Send E-mail'(023).
When Radiobutton for Email or if the program is run background
ELSEIF ( P_EMAIL = C_X OR SY-BATCH = C_X ).
To send the mail
 PERFORM SEND_EMAIL.
ELSEIF P_REPORT = C_X .
To display the Final Output data using ALV's
 PERFORM DISPLAY_ALV_REPORT.
ENDIF.
Transfering data to file when downloading to Unix
IF P_DOWN = C_X.
 IF G_REC_COUNT IS INITIAL.
 MESSAGE I999 WITH
 'No Records Found For Selection Criteria'(024).
 EXIT.
 ELSE.
 IF NOT G_FILE_NAME IS INITIAL.
 Trasefering data to file
 PERFORM TRANSFER_DATA_FILE.
 Interface Audit report
 PERFORM WRITE_REPORT.
 ENDIF.
 ENDIF.
ENDIF.
 F O R M S
*& Form VALIDATE_DATA
 Validating selection-screen entries
FORM VALIDATE_DATA.
Local variables
DATA : L_BUKRS LIKE BSEG-BUKRS, " For Company Code
 L_KUNNR LIKE BSEG-KUNNR. " For Customer Number
Validate the Company code.
SELECT SINGLE BUKRS
 INTO L_BUKRS
 FROM T001
 WHERE BUKRS IN S_BUKRS.
IF SY-SUBRC <> 0.
 MESSAGE E999 WITH 'Enter valid Company Code'(025).
ENDIF.
Validate the Customer number
IF NOT S_KUNNR[] IS INITIAL.
 SELECT SINGLE KUNNR
 INTO L_KUNNR
 FROM KNA1
 WHERE KUNNR IN S_KUNNR.
 IF SY-SUBRC <> 0.
 MESSAGE E999 WITH 'Enter valid Customer Number'(026).
 ENDIF.
ENDIF.
ENDFORM. " VALIDATE_DATA
*& Form SELECT_KNB1
 Select Data from Customer Master (Company Code)
FORM SELECT_KNB1 .
CLEAR: TB_KNB1,
 TB_KNB1[].
SELECT KUNNR
 BUKRS
 ERDAT
 ZAMIB
 FROM KNB1
 INTO TABLE TB_KNB1
 WHERE BUKRS IN S_BUKRS
 AND KUNNR IN S_KUNNR.
IF SY-SUBRC = 0.
Sort TB_KNB1 by Customer no & Rec Created Date
 SORT TB_KNB1 BY KUNNR ERDAT DESCENDING.
ENDIF.
ENDFORM. " SELECT_KNB1
*& Form SELECT_CUSTOMER_OPEN_ITEMS
 Select Custmer Open Items.
FORM SELECT_CUSTOMER_OPEN_ITEMS .
CLEAR: TB_BSID,
 TB_BSID[].
SELECT A~BUKRS
 B~KUNNR
 B~AUGDT
 B~BLDAT
 B~SHKZG
 B~DMBTR
 B~ZFBDT
 B~ZBD1T
 B~ZBD2T
 B~ZBD3T
 B~REBZG
 B~REBZT
 INTO TABLE TB_BSID
 FROM BKPF AS A JOIN BSID AS B
 ON ABUKRS = BBUKRS
 AND ABELNR = BBELNR
 AND AGJAHR = BGJAHR
 WHERE A~BUKRS IN S_BUKRS
 AND A~BLDAT IN S_BLDAT
 AND B~KUNNR IN S_KUNNR
 AND B~ZUONR IN S_ZUONR
 AND B~BSCHL = C_1.
IF SY-SUBRC = 0.
DMS Managed Indicator = X.
 IF P_ZAMIB = C_X.
 LOOP AT TB_KNB1 WHERE ZAMIB = SPACE.
 DELETE TB_BSID WHERE BUKRS = TB_KNB1-BUKRS
 AND KUNNR = TB_KNB1-KUNNR.
 ENDLOOP.
 ENDIF.
Transfering Open Items from TB_BSID to TB_BSID_OPEN
 TB_BSID_OPEN[] = TB_BSID[].
ENDIF.
ENDFORM. " SELECT_CUSTOMER_OPEN_ITEMS
*& Form SELECT_CUSTOMER_CLEARED_ITEMS
 Select Custmer Cleared Items.
FORM SELECT_CUSTOMER_CLEARED_ITEMS .
CLEAR: TB_BSAD_CLEAR,
 TB_BSAD_CLEAR[].
SELECT A~BUKRS
 B~KUNNR
 B~AUGDT
 B~BLDAT
 B~SHKZG
 B~DMBTR
 B~ZFBDT
 B~ZBD1T
 B~ZBD2T
 B~ZBD3T
 B~REBZG
 B~REBZT
 INTO TABLE TB_BSAD_CLEAR
 FROM BKPF AS A JOIN BSAD AS B
 ON ABUKRS = BBUKRS
 AND ABELNR = BBELNR
 AND AGJAHR = BGJAHR
 WHERE A~BUKRS IN S_BUKRS
 AND A~BLDAT IN S_BLDAT
 AND B~KUNNR IN S_KUNNR
 AND B~ZUONR IN S_ZUONR
 AND B~BSCHL = C_1.
IF SY-SUBRC = 0.
DMS Managed Indicator = X.
 IF P_ZAMIB = C_X.
 LOOP AT TB_KNB1 WHERE ZAMIB = SPACE.
 DELETE TB_BSID WHERE BUKRS = TB_KNB1-BUKRS
 AND KUNNR = TB_KNB1-KUNNR.
 ENDLOOP.
 ENDIF.
Sort TB_BSID_CLEAR by Customer number
 SORT TB_BSAD_CLEAR BY KUNNR.
ENDIF.
Append lines of TB_BSID_CLEAR to table TB_BSID
APPEND LINES OF TB_BSAD_CLEAR TO TB_BSID.
Sort TB_BSID by Cust num AND Doc date in document
SORT TB_BSID BY KUNNR BLDAT.
ENDFORM. " SELECT_CUSTOMER_CLEARED_ITEMS
*& Form SELECT_KNA1
 Select General Data in Customer Master
FORM SELECT_KNA1.
CLEAR: TB_KNA1,
 TB_KNA1[].
SELECT KUNNR
 NAME1
 TELF1
 ADRNR
 INTO TABLE TB_KNA1
 FROM KNA1
 WHERE KUNNR IN S_KUNNR.
IF SY-SUBRC <> 0.
ENDIF.
ENDFORM. " SELECT_KNA1
*& Form POPULATE_TB_FINAL
 Populate Final Output Data.
FORM POPULATE_TB_FINAL.
Local variable
DATA: L_DAYS_SLOW(3) TYPE N. " Days Slow
CLEAR: TB_FINAL,
 TB_FINAL[].
LOOP AT TB_KNA1.
Move-corresponding TB_KNA1 to TB_FINAL.
 TB_FINAL-KUNNR = TB_KNA1-KUNNR. " Customer Number
 TB_FINAL-NAME1 = TB_KNA1-NAME1. " Name Line 1
 TB_FINAL-PHONE = TB_KNA1-TELF1. " Telephone Number
To get Customer Address.
 PERFORM GET_CUSTOMER_ADDRESS.
To get Date of Last Invoice.
 READ TABLE TB_BSID WITH KEY KUNNR = TB_KNA1-KUNNR.
 IF SY-SUBRC = 0.
 TB_FINAL-LAST_DATE = TB_BSID-BLDAT.
 ENDIF.
To get past due and current details.
 PERFORM GET_PAST_DUE_CURRENT.
To get Days Slow.
 CLEAR WA_FAEDE .
 LOOP AT TB_BSID_OPEN WHERE KUNNR = TB_KNA1-KUNNR.
 WA_FAEDE-SHKZG = TB_BSID-SHKZG.
 WA_FAEDE-ZFBDT = TB_BSID-ZFBDT.
 WA_FAEDE-ZBD1T = TB_BSID-ZBD1T.
 WA_FAEDE-ZBD2T = TB_BSID-ZBD2T.
 WA_FAEDE-ZBD3T = TB_BSID-ZBD3T.
 WA_FAEDE-REBZG = TB_BSID-REBZG.
 WA_FAEDE-REBZT = TB_BSID-REBZT.
 WA_FAEDE-KOART = C_D.
 To Determine Due Date.
 CALL FUNCTION 'DETERMINE_DUE_DATE'
 EXPORTING
 I_FAEDE = WA_FAEDE
 IMPORTING
 E_FAEDE = WA_FAEDE
 EXCEPTIONS
 ACCOUNT_TYPE_NOT_SUPPORTED = 1
 OTHERS = 2.
 IF SY-SUBRC <> 0.
 CLEAR WA_FAEDE.
 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.
 CLEAR: L_DAYS_SLOW.
 L_DAYS_SLOW = SY-DATUM - WA_FAEDE-NETDT - P_GRACE.
 G_DAYS_SLOW = G_DAYS_SLOW + ABS( L_DAYS_SLOW ).
 G_OPEN = G_OPEN + 1.
 ENDLOOP.
 IF G_OPEN IS INITIAL.
 TB_FINAL-DAYS_SLOW = G_DAYS_SLOW / G_OPEN. " Days Slow
 ENDIF.
To get Average days to Pay.
 PERFORM GET_AVG_DAYS_PAY.
Calculating total records .
 G_REC_COUNT = G_REC_COUNT + 1.
 APPEND TB_FINAL.
 CLEAR TB_FINAL.
ENDLOOP.
Current account balance.
G_CURR_BAL = TB_FINAL-CURRENT + TB_FINAL-AVG_1_30 +
 TB_FINAL-AVG_31_60 +
 TB_FINAL-AVG_61_90 +
 TB_FINAL-AVG_90G .
ENDFORM. " POPULATE_TB_FINAL
*& Form GET_PAST_DUE_CURRENT
 To get past due and current details.
FORM GET_PAST_DUE_CURRENT.
 Local Varaibles.
DATA: L_RF035_SFAE1 TYPE RF035-SFAE1,
 L_RF035_SFAE2 TYPE RF035-SFAE2,
 L_RF035_SFAE3 TYPE RF035-SFAE3,
 L_RF035_SFAE4 TYPE RF035-SFAE4,
 L_RF035_SFAE5 TYPE RF035-SFAE5,
 L_RF035_SFAE6 TYPE RF035-SFAE6,
 L_RF035_SFAEL TYPE RF035-SFAEL,
 L_RF035_SNFA1 TYPE RF035-SNFA1,
 L_RF035_SNFA2 TYPE RF035-SNFA2,
 L_RF035_SNFA3 TYPE RF035-SNFA3,
 L_RF035_SNFA4 TYPE RF035-SNFA4,
 L_RF035_SNFA5 TYPE RF035-SNFA5,
 L_RF035_SNFA6 TYPE RF035-SNFA6,
 L_RF035_SNFAE TYPE RF035-SNFAE.
LOOP AT TB_KNB1 WHERE KUNNR = TB_KNA1-KUNNR.
 CALL FUNCTION 'CUSTOMER_DUE_DATE_ANALYSIS'
 EXPORTING
 BUKRS = TB_KNB1-BUKRS
 KKBER = ' '
 KUNNR = TB_KNB1-KUNNR
 RASID = C_Z001
 IMPORTING
 SFAE1 = L_RF035_SFAE1
 SFAE2 = L_RF035_SFAE2
 SFAE3 = L_RF035_SFAE3
 SFAE4 = L_RF035_SFAE4
 SFAE5 = L_RF035_SFAE5
 SFAE6 = L_RF035_SFAE6
 SFAEL = L_RF035_SFAEL
 SNFA1 = L_RF035_SNFA1
 SNFA2 = L_RF035_SNFA2
 SNFA3 = L_RF035_SNFA3
 SNFA4 = L_RF035_SNFA4
 SNFA5 = L_RF035_SNFA5
 SNFA6 = L_RF035_SNFA6
 SNFAE = L_RF035_SNFAE
 EXCEPTIONS
 INVALID_RASTER = 1
 NO_OPEN_ITEMS = 2
 OTHERS = 3
 IF SY-SUBRC = 0.
 TB_FINAL-AVG_1_30 = TB_FINAL-AVG_1_30 + L_RF035_SFAE1.
 TB_FINAL-AVG_31_60 = TB_FINAL-AVG_31_60 + L_RF035_SFAE2.
 TB_FINAL-AVG_61_90 = TB_FINAL-AVG_61_90 + L_RF035_SFAE3.
 TB_FINAL-AVG_90G = TB_FINAL-AVG_90G + L_RF035_SFAE4
 + L_RF035_SFAE5
 + L_RF035_SFAE6.
 TB_FINAL-CURRENT = TB_FINAL-CURRENT + L_RF035_SNFAE.
 ELSE.
 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.
ENDLOOP.
ENDFORM. " GET_PAST_DUE_CURRENT
*& Form GET_CUSTOMER_ADDRESS
 To get Customer Address.
FORM GET_CUSTOMER_ADDRESS.
X_ADDR1_SEL-ADDRNUMBER = TB_KNA1-ADRNR.
CALL FUNCTION 'ADDR_GET'
 EXPORTING
 ADDRESS_SELECTION = X_ADDR1_SEL
 IMPORTING
 SADR = X_SADR
 EXCEPTIONS
 PARAMETER_ERROR = 1
 ADDRESS_NOT_EXIST = 2
 VERSION_NOT_EXIST = 3
 INTERNAL_ERROR = 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.
ADDRESS LINE 1.
TB_FINAL-ADDRESS1 = X_SADR-STRAS.
ADDRESS LINE 2.
CONCATENATE X_SADR-PFACH 'CODE' X_SADR-PSTL2 INTO TB_FINAL-ADDRESS2
 SEPARATED BY SPACE.
ADDRESS LINE 3.
CONCATENATE X_SADR-ORT01 X_SADR-ORT02 ',' X_SADR-REGIO X_SADR-PSTLZ
 INTO TB_FINAL-ADDRESS3 SEPARATED BY SPACE.
ADDRESS LINE 4.
TB_FINAL-ADDRESS4 = X_SADR-LAND1.
ENDFORM. " GET_CUSTOMER_ADDRESS
*& Form GET_AVG_DAYS_PAY
 To get Average days to Pay.
FORM GET_AVG_DAYS_PAY.
*Local variable
DATA: L_DAYS TYPE N . " Number of Days
LOOP AT TB_BSAD_CLEAR WHERE KUNNR = TB_KNA1-KUNNR.
 L_DAYS = TB_BSAD_CLEAR-AUGDT - TB_BSAD_CLEAR-BLDAT.
 G_AVG = G_AVG + L_DAYS.
 G_COUNT = G_COUNT + 1.
ENDLOOP.
IF NOT G_COUNT IS INITIAL.
 TB_FINAL-AVG = G_AVG / G_COUNT. " Average days to Pay.
ENDIF.
ENDFORM. " GET_AVG_DAYS_PAY
*& Form DISPLAY_ALV_REPORT
 text
FORM DISPLAY_ALV_REPORT.
For Populating Field Catalog.
PERFORM RPT_BUILD_FIELDCATLOG.
For Modifying Field Catalog.
PERFORM RPT_MODIFY_FIELDCATLOG.
For TOP_OF_PAGE Event.
PERFORM RPT_GET_EVENTS.
For Displaying Output in Grid Format.
PERFORM RPT_GRID_DISPLAY.
ENDFORM. " DISPLAY_ALV_REPORT
*& Form RPT_BUILD_FIELDCATLOG
 text
FORM RPT_BUILD_FIELDCATLOG.
To build the Field Catlog.
DATA : L_TABNAME TYPE SLIS_TABNAME. " Table Name
L_TABNAME = 'TB_FINAL'.
REFRESH : TB_FIELDCAT.
CLEAR : TB_FIELDCAT.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
 EXPORTING
 I_PROGRAM_NAME = G_REPID
 I_INTERNAL_TABNAME = L_TABNAME
 I_INCLNAME = G_REPID
 CHANGING
 CT_FIELDCAT = TB_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.
ENDFORM. " RPT_BUILD_FIELDCATLOG
*& Form RPT_MODIFY_FIELDCATLOG
 text
FORM RPT_MODIFY_FIELDCATLOG.
Getting the Header Text for the Coloumns
DATA : L_TABIX LIKE SY-TABIX, " Index
 L_DDICTXT TYPE C VALUE 'L'. " Flag
Getting the Header Text for the Coloumns
LOOP AT TB_FIELDCAT INTO X_FIELDCAT.
 CLEAR L_TABIX.
 L_TABIX = SY-TABIX.
 CASE X_FIELDCAT-FIELDNAME.
 WHEN 'KUNNR'. " Customer Number
 X_FIELDCAT-SELTEXT_L = 'Customer Number'(001).
 X_FIELDCAT-DDICTXT = L_DDICTXT.
 WHEN 'NAME1'. " Name Line 1
 X_FIELDCAT-SELTEXT_L = 'Name'(002).
 X_FIELDCAT-DDICTXT = L_DDICTXT.
 WHEN 'ADDRESS1'. " Address line 1
 X_FIELDCAT-SELTEXT_L = 'Address 1'(003).
 X_FIELDCAT-DDICTXT = L_DDICTXT.
 WHEN 'ADDRESS2'. " Address line 2
 X_FIELDCAT-SELTEXT_L = 'Address 2'(004).
 X_FIELDCAT-DDICTXT = L_DDICTXT.
 WHEN 'ADDRESS3'. " Address line 3
 X_FIELDCAT-SELTEXT_L = 'Address 3'(005).
 X_FIELDCAT-DDICTXT = L_DDICTXT.
 WHEN 'ADDRESS4'. " Address line 4
 X_FIELDCAT-SELTEXT_L = 'Address 4'(006).
 X_FIELDCAT-DDICTXT = L_DDICTXT.
 WHEN 'PHONE'. " Telephone Number
 X_FIELDCAT-SELTEXT_L = 'Telephone Number'(007).
 X_FIELDCAT-DDICTXT = L_DDICTXT.
 WHEN 'DAYS_SLOW'. " Days Slow
 X_FIELDCAT-SELTEXT_L = 'Days Slow'(008).
 X_FIELDCAT-DDICTXT = L_DDICTXT.
 WHEN 'LAST_DATE'. " Date of Last Invoice
 X_FIELDCAT-SELTEXT_L = 'Date of Last Invoice'(009).
 X_FIELDCAT-DDICTXT = L_DDICTXT.
 WHEN 'AVG'. " Average Days to Pay
 X_FIELDCAT-SELTEXT_L = 'Average Days to Pay'(010).
 X_FIELDCAT-DDICTXT = L_DDICTXT.
 WHEN 'CURRENT'. " Current
 X_FIELDCAT-SELTEXT_L = 'Aging Category 1'(011).
 X_FIELDCAT-DDICTXT = L_DDICTXT.
 WHEN 'AVG_1_30'. " 1-30 past due
 X_FIELDCAT-SELTEXT_L = 'Aging Category 2'(012).
 X_FIELDCAT-DDICTXT = L_DDICTXT.
 WHEN 'AVG_31_60'. " 31-60 past due
 X_FIELDCAT-SELTEXT_L = 'Aging Category 3'(013).
 X_FIELDCAT-DDICTXT = L_DDICTXT.
 WHEN 'AVG_61_90'. " 61-90 past due
 X_FIELDCAT-SELTEXT_L = 'Aging Category 4'(014).
 X_FIELDCAT-DDICTXT = L_DDICTXT.
 WHEN 'AVG_90G'. " 90+ past due
 X_FIELDCAT-SELTEXT_L = 'Aging Category 5'(015).
 X_FIELDCAT-DDICTXT = L_DDICTXT.
 ENDCASE.
 MODIFY TB_FIELDCAT FROM X_FIELDCAT INDEX L_TABIX.
ENDLOOP.
ENDFORM. " RPT_MODIFY_FIELDCATLOG
*& Form RPT_GET_EVENTS
 text
FORM RPT_GET_EVENTS.
DATA : L_TABIX TYPE SY-TABIX. " Index
CLEAR : TB_EVENTS,
 TB_EVENTS[].
To get the events from this function module
for ALV display
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
 EXPORTING
 I_LIST_TYPE = 0
 IMPORTING
 ET_EVENTS = TB_EVENTS
 EXCEPTIONS
 LIST_TYPE_WRONG = 1
 OTHERS = 2.
IF SY-SUBRC <> 0.
 MESSAGE I999 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
Modifing Top of Page event
READ TABLE TB_EVENTS WITH KEY NAME = SLIS_EV_TOP_OF_PAGE
 INTO X_EVENTS.
IF SY-SUBRC = 0.
 CLEAR L_TABIX.
 L_TABIX = SY-TABIX.
 X_EVENTS-FORM = C_TOP_OF_PAGE.
 MODIFY TB_EVENTS FROM X_EVENTS INDEX L_TABIX.
 CLEAR X_EVENTS.
ENDIF.
ENDFORM. " RPT_GET_EVENTS
*& Form TOP_OF_PAGE
 Top Of Page for the ALV format
FORM TOP_OF_PAGE.
REFRESH TB_COMMENTS.
For heading
CLEAR X_COMMENTS.
X_COMMENTS-TYP = C_H.
X_COMMENTS-INFO = 'D&B Credit Agency Interface'(019).
APPEND X_COMMENTS TO TB_COMMENTS.
This module outputs formatted simple header information at TOP-OF-PAGE
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
 EXPORTING
 IT_LIST_COMMENTARY = TB_COMMENTS.
ENDFORM. " TOP_OF_PAGE
*& Form RPT_GRID_DISPLAY
 text
FORM RPT_GRID_DISPLAY.
Layout Settings
CLEAR X_LAYOUT.
X_LAYOUT-ZEBRA = 'X'.
X_LAYOUT-COLWIDTH_OPTIMIZE = C_X.
X_LAYOUT-NO_COLHEAD = SPACE.
To Display the Output in ALV Format
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 I_CALLBACK_PROGRAM = G_REPID
 IS_LAYOUT = X_LAYOUT
 IT_FIELDCAT = TB_FIELDCAT
 IT_EVENTS = TB_EVENTS
 TABLES
 T_OUTTAB = TB_FINAL
 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. " RPT_GRID_DISPLAY
*& Form SEND_EMAIL
 text
--> p1 text
<-- p2 text
FORM SEND_EMAIL.
Prepare the mail
PERFORM SEND_MAIL USING C_INTERFACE.
Sending the mail to Receivers
PERFORM SENDING_MAIL.
ENDFORM. " SEND_EMAIL
*& Form SEND_MAIL
 Sending the Mail
FORM SEND_MAIL USING P_C_INTERFACE TYPE YWFSALOFFICNOTIF-INTERFACE_ID.
Populating Report name
G_TITLE = C_TITLE.
PERFORM POPULATE_EMAIL_REF_DATA USING G_TITLE.
IF NOT G_REC_COUNT IS INITIAL.
To populate the data to table tb_objbin
 PERFORM POPULATE_DATA_OBJBIN.
To get the attached file for the mail
 CLEAR G_TAB_LINES.
 DESCRIBE TABLE TB_OBJBIN LINES G_TAB_LINES.
 TB_OBJHEAD = C_FILENAME.
 APPEND TB_OBJHEAD.
 CLEAR TB_OBJHEAD.
Creation of the entry for the mail
 TB_OBJPACK-TRANSF_BIN = C_X.
 TB_OBJPACK-HEAD_START = C_1.
 TB_OBJPACK-HEAD_NUM = C_1.
 TB_OBJPACK-BODY_START = C_1.
 TB_OBJPACK-BODY_NUM = G_TAB_LINES.
 TB_OBJPACK-DOC_TYPE = C_TXT.
 TB_OBJPACK-OBJ_NAME = G_REPID.
 TB_OBJPACK-OBJ_DESCR = 'Interface Audit Report'(020).
 TB_OBJPACK-DOC_SIZE = G_TAB_LINES * 255.
 APPEND TB_OBJPACK.
ENDIF.
ENDFORM. " SEND_MAIL
*& Form SENDING_MAIL
FORM SENDING_MAIL.
Function Module to send mail along with attached file
CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
 EXPORTING
 DOCUMENT_DATA = TB_DOC_CHNG
 TABLES
 PACKING_LIST = TB_OBJPACK
 OBJECT_HEADER = TB_OBJHEAD
 CONTENTS_BIN = TB_OBJBIN
 CONTENTS_TXT = TB_OBJTXT
 RECEIVERS = TB_RECLIST
 EXCEPTIONS
 TOO_MANY_RECEIVERS = 1
 DOCUMENT_NOT_SENT = 2
 DOCUMENT_TYPE_NOT_EXIST = 3
 OPERATION_NO_AUTHORIZATION = 4
 PARAMETER_ERROR = 5
 X_ERROR = 6
 ENQUEUE_ERROR = 7
 OTHERS = 8.
CASE SY-SUBRC.
 WHEN 0.
 MESSAGE S999 WITH 'Mail has been sucessfully sent'(029).
 WHEN 1.
 MESSAGE S999 WITH 'Too Many Parameters'(030).
 WHEN 2.
 MESSAGE S999 WITH 'Doc Could Not Be Sent'(031).
 WHEN 4.
 MESSAGE S999 WITH 'No Authority To Send'(032).
 WHEN 99.
 MESSAGE S999 WITH 'Error While Sending'(033).
ENDCASE.
ENDFORM. " SENDING_MAIL
*& Form POPULATE_EMAIL_REF_DATA
 Poplulating the body of the mail
FORM POPULATE_EMAIL_REF_DATA USING TEXT TYPE SOLISTI1-LINE.
Setting up Mail Subject
TB_DOC_CHNG-OBJ_DESCR = 'Interface Audit Report'(020).
Populating body of the mail
TB_OBJTXT-LINE = 'Interface Audit Report'(020).
APPEND TB_OBJTXT.
CLEAR: TB_OBJTXT.
DESCRIBE TABLE TB_OBJTXT LINES G_TAB_LINES.
READ TABLE TB_OBJTXT INDEX G_TAB_LINES.
*To determine the document size
TB_DOC_CHNG-DOC_SIZE = ( G_TAB_LINES - 1 ) * 255 + STRLEN( TB_OBJTXT ).
Creation of the entry for the Mail Contents
CLEAR TB_OBJPACK-TRANSF_BIN.
TB_OBJPACK-HEAD_START = C_1.
TB_OBJPACK-HEAD_NUM = C_0.
TB_OBJPACK-BODY_START = C_1.
TB_OBJPACK-BODY_NUM = G_TAB_LINES.
TB_OBJPACK-DOC_TYPE = C_RAW.
APPEND TB_OBJPACK.
ENDFORM. " POPULATE_EMAIL_REF_DATA
*& Form POPULATE_DATA_OBJBIN
 Populating table for file attachment

How to do sorting in reports

Similar Messages

Maybe you are looking for