How to display Top-5 earners from the table,there should be no duplication

Hi All
Can you give me some idea about this query,
i want a query like
1)How to dispaly top-N earners from the Emp Table ( i want to dispaly top 5 sal )
2)There should be no duplicaion in the sal.
3)If Two emp's earn the same sal,the sal should be picked up only once....!!
select distinct (sal) from emp order by sal desc;
select distinct (sal) from emp order by sal desc;
SAL
5000
3000
2975
2850
2450
1600
1500
1300
1250
1100
950
800
I want to display only first 5 rows !!
That first 5 rows i have to insert into other table..!! Please How to display only first 5 rows..!!
Please can you give me some idea..!!
Thank in Advance

USE THIS QUERY
SELECT SAL FROM (SELECT DISTINCT SAL FROM SCOTT.EMP ORDER BY SAL DESC) WHERE ROWNUM <= 5
IF U WANT TO FIND 3 SAL OR 4 0R ANY USE THIS QUERY
SELECT SAL FROM SCOTT.EMP A WHERE &N = (SELECT COUNT(DISTINCT B.SAL) FROM SCOTT.EMP B WHERE B.SAL <= A.SAL)
FOR &N = GIVE UR VALUE

Similar Messages

How can we delete a line from the table control .

hi all
how can we delete a line from the table control .
situation is.
created table control in se51 which will display the data of a table.
how could i select a line from the table control ?
how could i delete the selected lines form the table.
thanks in advance

Change the Table Control attributes such that user can only select a single record(row).
Tip to delete a selected record
1) write a module 'Mark' in the PAI as below
PROCESS AFTER INPUT.
MODULE cancel AT EXIT-COMMAND.
LOOP WITH CONTROL table_view.
MODULE read_table_control.
FIELD flag MODULE mark ON INPUT.
ENDLOOP.
MODULE user_command_0100.
2) Module Mark is below.
MODULE mark INPUT.
CHECK flag = 'X'.
x = table_view-top_line + sy-stepl - 1.
Delete itab INDEX x.
ENDMODULE. " mark INPUT
Table_view is the TableControl Name.
'flag' is of type char(1) available in the Internal table which was assigned to the select option in the table control.
award if uesful
Regards,
Sudheer

How to display all tagged photos from the whole catalogue?

Hi,
I have been googleling around, but have not found the right information. I am trying to find all my tagged photos of all imported photos, but it would only show the tagged photos from a specific folder when I select that specific folder or from the timeline, in which I already knew that some tagged photos belong in those folders.
My question is...how can I search tagged photos from the whole catalogue without going through the timeline or clicking each folder and subfolder to view them. I would like that the organizer display all tagged items from all my folders and subfolders at once.
Sorry if this has been answered and I was not able to find the right forum or information.
Many thanks in advance!
Dreamy

Thanks a lot!

How to display only selected columns in the table on the tableview

Hi All,
I am displaying in the below tableview the data from the SFLIGHTS tables in the tableview using flow logic. It displays all the columns in the database table. How can I set in the code to display only selected columns and not all columns.
Also, in these columns displayed I want to make the key columns of SFLIGHT as non editable and the rest of the columns in SFLIGHT editiable. Can you please kindly share the code to implement this.
<%@page language="abap" %>
<%@extension name="htmlb" prefix="htmlb" %>
<htmlb:content design="design2003" >
<htmlb:page>
 <htmlb:form>
 <htmlb:tableView id = "tv1"
 visibleRowCount = "10"
 selectionMode = "lineEdit"
 table = "<%= flights %>"
 filter = "SERVER"
 sort = "server"
 iterator = "<%= iterator %>" />
 </htmlb:form>
</htmlb:page>
</htmlb:content>
Thanks
Karen

Hi,
 Please try this code.
<!-- To display Table control on BSP page with table internal table it_hist --!>
 <htmlb:tableView id = "TV_HIST"
 headerText = "Previous History"
 headerVisible = "TRUE"
 footerVisible = "TRUE"
 design = "ALTERNATING"
 selectionMode = "LINEEDIT"
 visibleRowCount = "5"
 fillUpEmptyRows = "TRUE"
 table = "<%= it_hist %>"
 width = "500" >
<!-- to show selected columns give required field name --!>
<htmlb:tableViewColumns>
<htmlb:tableViewColumn columnName = "FIELD1"
 title = "COLUMN1"
 horizontalAlignment = "CENTER"
 width = "65" >
 </htmlb:tableViewColumn>
<htmlb:tableViewColumn columnName = "FIELD2"
 title = "COLUMN2"
 horizontalAlignment = "CENTER"
 width = "65" >
 </htmlb:tableViewColumn>
<htmlb:tableViewColumn columnName = "FIELD3"
 title = "COLUMN3"
 horizontalAlignment = "CENTER"
 width = "65" >
 </htmlb:tableViewColumn>
<htmlb:tableViewColumn columnName = "FIELD4"
 title = "COLUMN4"
 horizontalAlignment = "CENTER"
 width = "65" >
 </htmlb:tableViewColumn>
<!-- to make column editable set edit property to TRUE --!>
<htmlb:tableViewColumn columnName = "FIELD4"
 title = "COLUMN4"
 edit = "TRUE"
 horizontalAlignment = "CENTER"
 width = "65" >
 </htmlb:tableViewColumn>
 </htmlb:tableViewColumns>
 </htmlb:tableView>

How can we delete value fields from the Table T237A?

Dear All,
We need to delete some value fields in CO-PA. We got a message that these value fileds are being used in the Table T237A.
This table is related to key figure scheme.
We have deleted in t.c. sm31 in the table/view V_RS_T237A elements which were assigned to value fields to be deleted.
But we still have a message value fields are being used. And after some searches we found out they are still being used in the table T237A.
COuld you please, help us?
Thank you in advance!
Best regards,
Kamila.

Change the Table Control attributes such that user can only select a single record(row).
Tip to delete a selected record
1) write a module 'Mark' in the PAI as below
PROCESS AFTER INPUT.
MODULE cancel AT EXIT-COMMAND.
LOOP WITH CONTROL table_view.
MODULE read_table_control.
FIELD flag MODULE mark ON INPUT.
ENDLOOP.
MODULE user_command_0100.
2) Module Mark is below.
MODULE mark INPUT.
CHECK flag = 'X'.
x = table_view-top_line + sy-stepl - 1.
Delete itab INDEX x.
ENDMODULE. " mark INPUT
Table_view is the TableControl Name.
'flag' is of type char(1) available in the Internal table which was assigned to the select option in the table control.
award if uesful
Regards,
Sudheer

How to find top n data from the alv report

hi abapers
i have alv report is displaying 2 columns material and rate.
i want to get only top 50 rate along with material on the same screen as we do similar thing in Tcode MC.5 pressing top n.
i m trying to find the solution for this for last 2 months
can u provide me the code how to do this as i m not able to understand mc.5 code for top n function.

Hi Deepika,
if you want the top 50 in the same screen, you can try the below logic.
Here assume that it_tab is the tbale displayed through ALV and user command
TOP_50 is to get the top 50 rate.
FORM user_command USING
     r_ucomm LIKE sy-ucomm.
DATA lit_grid TYPE REF TO cl_gui_alv_grid.
CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
    IMPORTING
      e_grid = lit_grid.
CASE r_ucomm.
     WHEN 'TOP_50'.
      it_tab1 = it_tab. "Copy to another tab
      REFRESH it_tab. "Clear the original
      SORT it_tab1 BY rate. "Sort by rate
      DO 50 TIMES. "Only for top 50
        READ TABLE it_tab INTO wa_tab INDEX sy-index.
        APPEND wa_tab TO it_tab. "Fill the original tab
      ENDDO.
"Refresh the ALV
      CALL METHOD lit_grid->refresh_table_display.
ENDCASE.
ENDFORM.
Regards,
Manoj Kumar P
Edited by: Manoj Kumar on Mar 3, 2009 9:36 AM
Edited by: Manoj Kumar on Mar 3, 2009 9:39 AM

How do I download my music from the cloud

How do I download my music from the cloud

Hi there,
You can download previous purchases directly from the iTunes store at any time. Take a look at the article below for more information.
Downloading past purchases from the App Store, iBookstore, and iTunes Store
http://support.apple.com/kb/ht2519
Hope that helps,
Griff W.

I would like to have at least 1 of my toolbars displayed at the BOTTOM of my open browser screen.How do I move a toolbar from the top to the bottom of the page?

I would like to have at least one of my toolbars displayed at the '''BOTTOM''' of my open browser screen. How do I move '''a''' toolbar from the top to the bottom of the page? I do NOT want to do this by using an extension, and when I read about the extension, I really did not see how it would move the toolbar from the top to the bottom any open browser page.
Thank you in advance for supply the answer and procedure to get this accomplished.

Try this extension to create extra toolbar at the bottom and drag items from other toolbars on it.
*TotalToolbar: http://totaltoolbar.mozdev.org/
''(compatibility is at 13.0a1, so you may need to override the installation to check if the extensions works)''

How can i remove favourite people from the top of my iPhone !

how can i remove favourite people from the top of my iPhone !

Hey donyh1,
Thanks for the question. You can hide the recent contacts in the multitasking screen by navigating to your Contacts settings:
Contacts settings - iPhone
http://help.apple.com/iphone/8/#/iph96b20610
Thanks,
Matt M.

How do I get routing data from the Map App (powered by TomTom) so I can display the point-to-point annotations (turn-by-turn navigation) without leaving my own application.

I have a tableView displaying a list of contacts from a Cloud Database. After selecting a contact, I push to a programmatically created MKMapView. Then I display the initial region (the view) that includes the users current location (starting point) and their selected destination (end point).
Now I want to display annotations (as described in the Location Awareness Programming Guide) that displays polylines which will represent the turn-by-turn navigation IN MY OWN APPLICATION, and not in the Map App currently used in IOS6.
Due to licensing and its becoming depricated in IOS 6, I do not want to get routing data from the Google Maps API. How do I get routing data from the IOS 6 Map App (powered by TomTom) so I can display the point-to-point annotations (turn-by-turn navigation) without leaving my own application?
I checked out Stack Overflow and other forums which basically left me with the impression that this is not possible. I also checked out the TomTom iPhone Mobile SDK User Guide from the TomTom Developer Portal and am still confused. It must be possible to retrieve routes, since the Map App can display turn-by-turn directions. How can I retrieve turn-by-turn data that I may display as a route within my own application?

Thanks Michael. Apologies for the slow reply I was away for a bit (holiday blitz at work and visiting family madness etc.etc.) back now, I set both options you requested to "never " and retried the CMS software with no change.
I do have progress of a sort though, as a test I took a separate test PC and put a clean install of Win7 on and loaded up the CMS software (it worked perfectly) and then took the version of ole32.dll off that machine and put it onto the computer I had built
for her (using Linux) and...
got a new error code. Darn I was so sure I had found a clever solution this time lol.
Anyway now when the CMS fails it gives me a similar error but the offending module is "ntdll.dll" sooo... I tried taking the "working" version of ntdll.dll from the test box and moving it over (making sure to back up the existing ones
first so I could put them back if needed) to her new PC and the PC would not boot.
It seems to want the original versions of a few Dynamic Link Libraries and if I could somehow give it those while not breaking Win7 it should theoretically work seeing as it no longer errors with ole32.dll.
ntdll.dll however seems necessary for Win7 to boot.
So what I am wondering now is:
Is there some way to have both versions of the DLL file in the system32 folder (bypassing the "cannot have two files with the exact same name in the same folder" thing) or rename the original DLL's something else and somehow make the CMS look for
the new named versions so the system has the updated DLL's it needs to boot/run and the CMS has the old ones it wants to run or is there someway to have a self contained install of the CMS, say on a USB flash drive and give it it's own E:/windows/system32/needed
dll's path to the files it needs?
Willing to try any other options or settings you may have come up with as well.
Thanks again for your reply and my apologies for not answering sooner.

How do I remove individual photos from the ipad without changing the photo album in my lap top where the photo album is stored??

How do I remove individual photos from the ipad2 without affecting the photo album in my lap top where the photo album resides?

You don't.
To remove a photo from your iPad that is located in a photo album on your computer selected to be transferred to your iPad under the Photos tab for your iPad sync preferences with iTunes, the only way to remove the photo from your iPad is by removing if from the album on your computer followed by a sync.

How to display the values from the table in the screen

Hi,
I have created a screen where i will enter the values for the field treshold amount and desc and if i press update button .it will update the new values by overriting the existing values .
Now i have got requirement i need to create a button show which will display the existing value from the table. always there will be only one entry...in this table
Please can one give me idea...to do this
or sample code...thanks in advance
regards
paveeeeee

Define a function code 'SHOW' for your button. In your PAI module, when you check for various sy-ucomms, check for 'SHOW' also.
Your code will be like this:
Case sy-ucomm.
when 'SHOW'.
perform show_details.
endcase.
In the perform, you can fetch the data from the table and put it in global variables. In the PBO, move the data from the global variables to the screen fields so that they get displayed on the screen.
Hope this helps. Reward points for useful answers.
Regards
Nithya

Ive had a lap top from a friend, she cleared everything off it but ive downloaded itunes and all her music has appeared in the itunes library. How can i delete her music from the itunes library?

ive got a laptop from a friend, she cleared everything off it. ive downloaded itunes and for some reason all her music has appeared in the library. How do i delete her music from the itunes libary so i can add my own music?

In iTunes, select the music you want to delete (⌘+a to select all) and hit Delete on your keyboard.
Also delete the music files in Finder. Also make sure you have your own Apple ID and iTunes account and logged in.

How do I remove the "show top sites" button from the favorites bar?

I just updated to Yosemite, and so I have Safari 8.0... which has the "Show Top Sites" button at the extreme left of the favorites bar. Given I loathe that feature, I tried to remove it but unlike everything else in the favorites bar, it won't go away or move.
I hate "Show Top Sites" as it feels like my browser is spying on me. I know it's just taking from what's already in my History but all the same, I don't see why I should have to put up with it given it's my browser and I should get a say in its behavior. New windows open to a blank page but I would at least like the button in the favorites bar removed, but ideally, the entire feature disabled.
I can disable tabs. Why not top sites?.

Hi ..
Unfortunately, there is no way to disable or remove the Top Sites icon from the Bookmarks bar.
You can provide feedback to Apple regarding this matter > Apple - Feedback

How to dispaly datas from the table, base on the selection screen

hi there gurus,
im currently developing a stock aging report,
i have completed one program but it do not allow me to excutes the program althought the syntax is correct.
i would to get some ideas from you, regarding how to extract the datas from the tables?
my selction screen will be, mat number, date, and gl account.
and the out put datas are, mbew-matnr, makt-maktx, mbew-lbkum, mara_meins, mbew-salk3,and the consumptions for the past 12months and the values for it.
can u plz guide me with this,
thank you,.
this is kind of very urgent program that i need to finish , plz help me.

here is the total code the i do
REPORT ZSTK_AGING_REP2.
*TABLES
TABLES: mseg,
 mara,
 makt,
 SKAT,
 SKA1,
 MARV,
 T001,
 T030,
 T149D,
 AM07M,
 MCMSEG,
 T001K,
 T001W,
 T134M,
 vbak,
 mbew,
mcon, rmcb0, marc, t024w, mvke, v134w, t438a, propf, maprf, t000, t024e
, tvko.
DATA: BEGIN OF ta_material OCCURS 2,
 werks LIKE mard-werks,
 lgort LIKE mard-lgort,
 matnr LIKE mard-matnr,
 labst LIKE mard-labst,
 umlme LIKE mard-umlme,
 insme LIKE mard-insme,
 einme LIKE mard-einme,
 speme LIKE mard-speme,
 retme LIKE mard-retme,
 verpr LIKE mbew-verpr,
 maktx LIKE makt-maktx,
 meins LIKE mara-meins,
 bukrs LIKE t001-bukrs,
 konto LIKE t030-konts,
 butxt LIKE t001-butxt,
 txt50 LIKE skat-txt50,
 MABTR LIKE MCMSEG-DMBTR,
 SKBTR LIKE MCMSEG-DMBTR,
 WAERS LIKE T001-WAERS,
 WAER2 LIKE T001-WAERS,
 BWKEY LIKE MBEW-BWKEY,
 LBKUM LIKE MBEW-LBKUM,
 MEINS LIKE MARA-MEINS,
 SALK3 LIKE MBEW-SALK3,
 WAERS1 LIKE T001-WAERS,
 BUKRS1 LIKE T001-BUKRS,
 KONTO1 LIKE T030-KONTS,
 lbkum LIKE mbew-lbkum,
 erdat LIKE vbak-erdat,
 END OF ta_material.
DATA: BEGIN OF ta_mseg OCCURS 2,
 mblnr LIKE mseg-mblnr,
*->Begin of KL02+ -
 mjahr like mseg-mjahr,
 zeile like mseg-zeile,
*->End of KL02+ -
 meins LIKE mseg-meins,
 menge LIKE mseg-menge,
 werks LIKE mseg-werks,
 lgort LIKE mseg-lgort,
 matnr LIKE mseg-matnr,
 budat LIKE mkpf-budat,
 saknr LIKE SKA1-SAKNR,
 END OF ta_mseg.
single recs based on MATNR
DATA: BEGIN OF i_matnr OCCURS 0,
 werks LIKE mard-werks,
 lgort LIKE mard-lgort,
 matnr LIKE mard-matnr,
 maktx LIKE makt-maktx,
 mblnr LIKE mseg-mblnr,
 verpr LIKE mbew-verpr,
 labst LIKE mard-labst, "Valuated stock with
*unrestricted use
 umlme LIKE mard-umlme, "Stock in transfer
*(from one storage location to another)
 insme LIKE mard-insme, "Stock in quality
*inspection
 einme LIKE mard-einme, "Total Stock of All
*Restricted Batches
 speme LIKE mard-speme, "Blocked stock
 retme LIKE mard-retme, "Blocked Stock Returns
 meins LIKE mara-meins, "base unit
 bukrs LIKE t001-bukrs,
 konto LIKE t030-konts,
 butxt LIKE t001-butxt,
 txt50 LIKE skat-txt50,
 MABTR LIKE MCMSEG-DMBTR,
 SKBTR LIKE MCMSEG-DMBTR,
 WAERS LIKE T001-WAERS,
 WAER2 LIKE T001-WAERS,
 BWKEY LIKE MBEW-BWKEY,
 LBKUM LIKE MBEW-LBKUM,
 MEINS LIKE MARA-MEINS,
 SALK3 LIKE MBEW-SALK3,
 WAERS1 LIKE T001-WAERS,
 BUKRS1 LIKE T001-BUKRS,
 KONTO1 LIKE T030-KONTS,
 lbkum LIKE mbew-lbkum,
 END OF i_matnr.
recs based on MBLNR
DATA: BEGIN OF i_mblnr OCCURS 0,
 mblnr LIKE mseg-mblnr,
 werks LIKE mseg-werks,
 lgort LIKE mseg-lgort,
 matnr LIKE mseg-matnr,
 menge LIKE mseg-menge,
 meint LIKE mseg-meins,
 budat LIKE mkpf-budat,
 bukrs LIKE t001-bukrs,
 konts LIKE t030-konts,
 butxt LIKE t001-butxt,
 txt50 LIKE skat-txt50,
 MABTR LIKE MCMSEG-DMBTR,
 SKBTR LIKE MCMSEG-DMBTR,
 WAERS LIKE T001-WAERS,
 WAER2 LIKE T001-WAERS,
 BWKEY LIKE MBEW-BWKEY,
 LBKUM LIKE MBEW-LBKUM,
 MEINS LIKE MARA-MEINS,
 SALK3 LIKE MBEW-SALK3,
 WAERS1 LIKE T001-WAERS,
 BUKRS1 LIKE T001-BUKRS,
 KONTO1 LIKE T030-KONTS,
 END OF i_mblnr.
TYPES: BEGIN OF t_mat,
 lgort LIKE mseg-lgort,
 werks LIKE mseg-werks,
 matnr LIKE mseg-matnr,
 mblnr LIKE mseg-mblnr,
 maktx LIKE makt-maktx,
 meins LIKE mara-meins,
meng0 LIKE mbew-lbkum,
value0 LIKE mbew-salk3,
 meng0 LIKE mard-labst, "0 to 10 days
 value0 LIKE mseg-dmbtr,
 meng1 LIKE mard-labst, "11 to 30 days
 value1 LIKE mseg-dmbtr,
 meng2 LIKE mard-labst, "31 to 60 days
 value2 LIKE mseg-dmbtr,
 meng3 LIKE mard-labst, "61-90
 value3 LIKE mseg-dmbtr,
 meng4 LIKE mard-labst, "90 days onwards
 value4 LIKE mseg-dmbtr,
 END OF t_mat.
DATA: i_mat2 TYPE t_mat OCCURS 0 WITH HEADER LINE.
TYPES: BEGIN OF t_mat2,
 lgort LIKE mard-lgort, " storage location
 cnt0(5),
 cnt1(5),
 cnt2(5),
 cnt3(5),
 cnt4(5),
 meng0 LIKE mbew-lbkum,
value0 LIKE mbew-salk3,
 meng0 LIKE mard-labst, "0 to 10 days
 value0 LIKE mseg-dmbtr,
 meng1 LIKE mard-labst, "11 to 30 days
 value1 LIKE mseg-dmbtr,
 meng2 LIKE mard-labst, "31 to 60 days
 value2 LIKE mseg-dmbtr,
 meng3 LIKE mard-labst, "61-90
 value3 LIKE mseg-dmbtr,
 meng4 LIKE mard-labst, "90 days onwards
 value4 LIKE mseg-dmbtr,
 END OF t_mat2.
DATA: i_matsum TYPE t_mat2 OCCURS 0 WITH HEADER LINE.
DATA: w_mengb TYPE mbew-lbkum,
 w_workqyt TYPE mbew-lbkum,
 w_index TYPE sy-tabix,
*DATA: w_mengb TYPE mard-labst, "tmp Balance qty
 w_workqty TYPE mard-labst, "Work qty
 w_index TYPE sy-tabix,
 w_days(5) TYPE n, "duration difference (days)
 w_mths(5) TYPE n, "duration difference (mths)
 w_dat1 TYPE sy-datum, "date
 w_dat2 TYPE sy-datum, "today's date
 w_detl(1) TYPE c,
 w_summ(1) TYPE c,
 w_denom TYPE i,
 w_numer TYPE i,
 w_conv TYPE i,
 w_ttlcnt TYPE i,
 w_cnt TYPE i,
 v_topofpage(1),
 w_meng LIKE mard-labst,
 w_meng LIKE mbew-lbkum,
*sapscript values
 w_title(20) TYPE c. "Summary / Detail Report
DATA: lv_peinh LIKE mbew-peinh, "Price Unit
 lv_verpr LIKE mbew-verpr. "Moving Price
proram comes here
SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE text-001.
SELECT-OPTIONS: s_werks FOR mseg-werks,
 s_lgort FOR mseg-lgort,
 s_matnr FOR mara-matnr,
 s_saknr FOR ska1-saknr,
 S_ERDAT FOR VBAK-ERDAT.
PARAMETERS: pck_detl RADIOBUTTON GROUP rep1,
 pck_summ RADIOBUTTON GROUP rep1,
 pck_dtsm RADIOBUTTON GROUP rep1 DEFAULT 'X'.
SELECTION-SCREEN END OF BLOCK blk1.
top of the page
TOP-OF-PAGE.
PERFORM f_top_of_page.
FORM f_top_of_page .
IF v_topofpage = 'D'.
*-->Report header for detail report
 WRITE:/2 'Printed By :', sy-uname,
 80 'Stock Aging Report - Detail',
 180 'Printed on:', sy-datum, sy-timlo,
 220 'Page:', sy-pagno.
 WRITE:/,/,/.
 WRITE:/2 'Storage',
 10 'Matl ID',
 22 'Matl Description',
 61 'UOM',
 78 '<--=<QTY ON THIS DATE -->',
 78 '<-- =< 10 days -->',
 112 '<--11 to 30 days -->',
 148 '<--31 to 60 days -->',
 181 '<--61 to 90 days -->',
 216 '<-- > 90 days -->',
 /2 'Location',
 76 'Qty',
 92 'Value'.
 112 'Qty',
 128 'Value',
 148 'Qty',
 164 'Value',
 181 'Qty',
 195 'Value',
 216 'Qty',
 231 'Value'.
 WRITE:/2 sy-uline(235).
ELSE.
*-->Report header for Summary report
 WRITE:/2 'Printed By :', sy-uname,
 80 'Stock Aging Report - Summary',
 180 'Printed on:', sy-datum, sy-timlo,
 220 'Page:', sy-pagno.
 WRITE:/,/,/.
 WRITE:/2 'Storage',
 10 'Matl ID',
 22 'Matl Description',
 61 'UOM',
 78 '<--< QTY ON THIS DATE -->',
 78 '<-- < 10 days -->',
 112 '<--11 to 30 days -->',
 148 '<--31 to 60 days -->',
 181 '<--61 to 90 days -->',
 216 '<-- > 90 days -->',
 /2 'Location',
 76 'Qty',
 92 'Value'.
 112 'Qty',
 128 'Value',
 148 'Qty',
 164 'Value',
 181 'Qty',
 195 'Value',
 216 'Qty',
 231 'Value'.
 WRITE:/2 sy-uline(235).
ENDIF.
ENDFORM. " f_top_of_page
*start-of-selection
*PERFOM f_data_selection.
FORM f_data_selection.
SELECT a~werks
 a~lgort
 a~matnr
 a~saknr
 a~lbkum
 a~erdat
 a~labst
 a~umlme
 a~insme
 a~einme
 a~speme
 a~retme
 b~verpr "this field no long been used
 c~maktx
 d~meins
 INTO CORRESPONDING FIELDS OF TABLE ta_material
 FROM mard AS a
 INNER JOIN makt AS c ON amatnr = cmatnr
 INNER JOIN mara AS d ON amatnr = dmatnr
 WHERE a~matnr IN s_matnr
 AND a~werks IN s_werks
 AND a~lgort IN s_lgort
 AND a~saknr IN s_saknr
 AND a~erdat IN s_erdat
 AND c~spras = 'EN'.
*--> SC01 - End of Insertion **
*-->Select material documents
SELECT a~mblnr
 a~mjahr
 a~zeile
 a~meins
 a~menge
 a~werks
 a~lgort
 a~matnr
 b~budat
 INTO CORRESPONDING FIELDS OF TABLE ta_mseg
FROM mseg AS a INNER JOIN mkpf AS b
ON amblnr = bmblnr
AND amjahr = bmjahr
FOR ALL ENTRIES IN ta_material
WHERE matnr = ta_material-matnr
AND a~werks = ta_material-werks
AND a~lgort = ta_material-lgort
AND algort NE aumlgo
AND a~shkzg = 'S'
AND a~smbln EQ space
AND a~smblp EQ space.
*--> SC03 - Start of Insertion **
If MBLNR exist in MSEG-SMBLN and this
record's SHKZG = 'H'. Remove it from the table.
This is becuase this particular record has already been reverse.
LOOP AT ta_mseg.
 SELECT SINGLE *
 FROM mseg
 WHERE smbln = ta_mseg-mblnr
*->Begin of KL02+ -
 and SMBLP = ta_mseg-zeile.
 AND shkzg = 'H'. "return. " KL02-
*->End of KL02+ -
 IF sy-subrc = 0.
 DELETE ta_mseg.
 ENDIF.
ENDLOOP.
*--> SC03 - Enf of Insertion **
ENDFORM. " f_data_selection
*IMPORTANT , NEED TO CHECK LATER
FORM f_data_preparation.
*-->Append data for report details
LOOP AT ta_material.
 DATA: ta_msegtemp LIKE ta_mseg OCCURS 2 WITH HEADER LINE.
*-->Loop at all material documents into a temp table
 REFRESH ta_msegtemp. CLEAR ta_msegtemp.
 LOOP AT ta_mseg WHERE matnr = ta_material-matnr AND
 werks = ta_material-werks AND
 lgort = ta_material-lgort.
 ta_msegtemp = ta_mseg. APPEND ta_msegtemp.
 ENDLOOP.
*-->Add up all the stock for the material
 CLEAR w_mengb.
 w_mengb = ta_material-labst +
 ta_material-umlme +
 ta_material-insme +
 ta_material-einme +
 ta_material-speme +
 ta_material-retme.
 IF w_mengb IS INITIAL.
 CONTINUE.
 ENDIF.
*-->sort msegtemp by posting date
 SORT ta_msegtemp BY budat DESCENDING.
*-->get the values from the material documents into the report output
 LOOP AT ta_msegtemp.
*->Begin of KL02- -
 CALL FUNCTION 'HRCM_TIME_PERIOD_CALCULATE'
 EXPORTING
 begda = ta_msegtemp-budat
 endda = sy-datum
 IMPORTING
 NOYRS =
 nomns = w_mths
 nodys = w_days
 EXCEPTIONS
 invalid_dates = 1
 overflow = 2
 OTHERS = 3
*->End of KL02- -
*->Begin of KL02+ -
*-->Get the days difference btw two dates
 clear w_days.
 w_days = sy-datum - ta_msegtemp-budat.
*--> Include today's date into calculation
 w_days = w_days + 1.
*->End of KL02+ -
check base unit, do conversion
 IF ta_material-meins <> ta_msegtemp-meins.
 CALL FUNCTION 'MD_CONVERT_MATERIAL_UNIT'
 EXPORTING
 i_matnr = ta_material-matnr
 i_in_me = ta_msegtemp-meins
 i_out_me = ta_material-meins
 i_menge = ta_msegtemp-menge
 IMPORTING
 e_menge = ta_msegtemp-menge
 EXCEPTIONS
 error_in_application = 1
 error = 2
 OTHERS = 3.
 ENDIF.
*--> SC01 - Start of Insertion **
 SELECT SINGLE peinh
 verpr
 INTO (lv_peinh,
 lv_verpr)
 FROM mbew
 WHERE matnr = ta_material-matnr
 AND bwkey = ta_material-werks.
 IF sy-subrc = 0.
 ta_material-verpr = lv_verpr.
 ENDIF.
*--> SC01 - End of Insertion **
*-->check whether the mseg value is LE than the stock value
 IF ta_msegtemp-menge LE w_mengb.
*-->Days < 10 days
 IF w_days LE 1 AND w_days EQ 366.
 i_mat2-meng0 = i_mat2-meng0 + ta_msegtemp-menge.
 IF NOT lv_peinh EQ 0.
 i_mat2-value0 = ( i_mat2-meng0 / lv_peinh ) *
ta_material-verpr."+SC01
 ENDIF.
**-->Days 11 - 30 days
 ELSEIF w_days >= 11 AND w_days =< 30.
 i_mat2-meng1 = i_mat2-meng1 + ta_msegtemp-menge.
 IF NOT lv_peinh EQ 0.
 i_mat2-value1 = ( i_mat2-meng1 / lv_peinh ) *
*ta_material-verpr."+SC01
 ENDIF.
**-->Days 31-60 days
 ELSEIF w_days >= 31 AND w_days =< 60.
 i_mat2-meng2 = i_mat2-meng2 + ta_msegtemp-menge.
 IF NOT lv_peinh EQ 0.
 i_mat2-value2 = ( i_mat2-meng2 / lv_peinh ) *
*ta_material-verpr."+SC01
 ENDIF.
**-->Days 61-90 days
 ELSEIF w_days >= 61 AND w_days =< 90.
 i_mat2-meng3 = i_mat2-meng3 + ta_msegtemp-menge.
 IF NOT lv_peinh EQ 0.
 i_mat2-value3 = ( i_mat2-meng3 / lv_peinh ) *
*ta_material-verpr.
 ENDIF.
**-->Days > 90 days
 ELSEIF w_days > 90.
 i_mat2-meng4 = i_mat2-meng4 + ta_msegtemp-menge.
 IF NOT lv_peinh EQ 0.
 i_mat2-value4 = ( i_mat2-meng4 / lv_peinh ) *
*ta_material-verpr.
 ENDIF.
 ENDIF.
*->End of KL002+
 w_mengb = w_mengb - ta_msegtemp-menge.
 ELSE.
 IF NOT w_mengb LE 0 .
 IF NOT lv_peinh EQ 0.
**->End of KL001+
 i_mat2-value0 = ( i_mat2-meng0 / lv_peinh )
*ta_material-verpr."+SC01
**->Begin of KL001+
 ENDIF.
 ELSEIF w_days GE 22.
 i_mat2-meng3 = i_mat2-meng3 + w_mengb.
 IF NOT lv_peinh EQ 0.
 i_mat2-value3 = ( i_mat2-meng3 / lv_peinh )
*ta_material-verpr.
 ENDIF.
**->End of KL001+
 ENDIF.
**--> SC02 - End of Insertioin **
 ENDIF.
*->End of KL002-
*->Begin of KL002+
*--> < 10 days
 IF w_days EQ 1 AND w_days LE 366.
 i_mat2-meng0 = i_mat2-meng0 + ta_msegtemp-menge.
 IF NOT lv_peinh EQ 0.
 i_mat2-value0 = ( i_mat2-meng0 / lv_peinh ) *
ta_material-verpr."+SC01
 ENDIF.
 ELSEIF w_days >= 11 AND w_days =< 30.
 i_mat2-meng1 = i_mat2-meng1 + w_mengb.
 IF NOT lv_peinh EQ 0.
 i_mat2-value1 = ( i_mat2-meng1 / lv_peinh ) *
*ta_material-verpr.
 ENDIF.
**--> 31 - 60 days
 ELSEIF w_days >= 31 AND w_days =< 60.
 i_mat2-meng2 = i_mat2-meng2 + w_mengb.
 IF NOT lv_peinh EQ 0.
 i_mat2-value2 = ( i_mat2-meng2 / lv_peinh ) *
*ta_material-verpr.
 ENDIF.
**--> 61 - 90 days
 ELSEIF w_days >= 61 AND w_days =< 90.
 i_mat2-meng3 = i_mat2-meng3 + w_mengb.
 IF NOT lv_peinh EQ 0.
 i_mat2-value3 = ( i_mat2-meng3 / lv_peinh ) *
*ta_material-verpr.
 ENDIF.
**--> > 90 days
 ELSEIF w_days > 90.
 i_mat2-meng4 = i_mat2-meng4 + w_mengb.
 IF NOT lv_peinh EQ 0.
 i_mat2-value4 = ( i_mat2-meng4 / lv_peinh ) *
*ta_material-verpr.
 ENDIF.
 ENDIF.
*->End of KL002+
 w_mengb = 0.
 ENDIF. " check stock value NE zero
 ENDIF. "check Mat doc amount is LE than the stock value
ENDIF.
 ENDLOOP. " msegtemp
*-->append i_mat2 values
 i_mat2-werks = ta_material-werks.
 i_mat2-lgort = ta_material-lgort.
 i_mat2-matnr = ta_material-matnr.
 i_mat2-maktx = ta_material-maktx.
 i_mat2-meins = ta_material-meins.
 APPEND i_mat2. CLEAR i_mat2.
ENDLOOP. " ta_material
*-->Append data for summary data
DATA: i_lgort LIKE i_mat2 OCCURS 2 WITH HEADER LINE.
i_lgort[] = i_mat2[].
SORT i_lgort BY werks lgort.
DELETE ADJACENT DUPLICATES FROM i_lgort COMPARING werks lgort.
DATA: v_cnt0(5), v_cnt1(5), v_cnt2(5), v_cnt3(5), v_cnt4(5),
 v_value0 LIKE i_matsum-value0.
 v_value1 LIKE i_matsum-value1,
 v_value2 LIKE i_matsum-value2,
 v_value3 LIKE i_matsum-value3,
 v_value4 LIKE i_matsum-value4.
LOOP AT i_lgort.
 CLEAR v_cnt0. CLEAR v_value0.
CLEAR v_cnt1. CLEAR v_value1.
 CLEAR v_cnt2. CLEAR v_value2.
 CLEAR v_cnt3. CLEAR v_value3.
 CLEAR v_cnt4. CLEAR v_value4.
 LOOP AT i_mat2 WHERE lgort = i_lgort-lgort AND
 werks = i_lgort-werks.
 IF NOT i_mat2-meng0 IS INITIAL.
 v_cnt0 = v_cnt0 + 1.
 v_value0 = v_value0 + i_mat2-value0.
 ENDIF.
 IF NOT i_mat2-meng1 IS INITIAL.
 v_cnt1 = v_cnt1 + 1.
 v_value1 = v_value1 + i_mat2-value1.
 ENDIF.
 IF NOT i_mat2-meng2 IS INITIAL.
 v_cnt2 = v_cnt2 + 1.
 v_value2 = v_value2 + i_mat2-value2.
 ENDIF.
 IF NOT i_mat2-meng3 IS INITIAL.
 v_cnt3 = v_cnt3 + 1.
 v_value3 = v_value3 + i_mat2-value3.
 ENDIF.
 IF NOT i_mat2-meng4 IS INITIAL.
 v_cnt4 = v_cnt4 + 1.
 v_value4 = v_value4 + i_mat2-value4.
 ENDIF.
 ENDLOOP.
 CLEAR i_matsum.
 i_matsum-lgort = i_mat2-lgort.
 IF v_cnt0 NE space.
 i_matsum-cnt0 = v_cnt0.
 i_matsum-value0 = v_value0.
 APPEND i_matsum.
 ENDIF.
 CLEAR i_matsum.
 i_matsum-lgort = i_mat2-lgort.
 IF v_cnt1 NE space.
 i_matsum-cnt1 = v_cnt1.
 i_matsum-value1 = v_value1.
 APPEND i_matsum.
 ENDIF.
 CLEAR i_matsum.
 i_matsum-lgort = i_mat2-lgort.
 IF v_cnt2 NE space.
 i_matsum-cnt2 = v_cnt2.
 i_matsum-value2 = v_value2.
 APPEND i_matsum.
 ENDIF.
 CLEAR i_matsum.
 i_matsum-lgort = i_mat2-lgort.
 IF v_cnt3 NE space.
 i_matsum-cnt3 = v_cnt3.
 i_matsum-value3 = v_value3.
 APPEND i_matsum.
 ENDIF.
 CLEAR i_matsum.
 i_matsum-lgort = i_mat2-lgort.
 IF v_cnt4 NE space.
 i_matsum-cnt4 = v_cnt4.
 i_matsum-value4 = v_value4.
 APPEND i_matsum.
 ENDIF.
ENDLOOP.
ENDFORM. "f_data_preparation
*IMPORTANT , NEED TO CHECK LATER
FORM f_display_data .
IF pck_dtsm = 'X'.
*-->Display detail
 v_topofpage = 'D'.
 PERFORM f_display_detail.
*-->display summary
 v_topofpage = 'S'.
 NEW-PAGE.
 PERFORM f_display_summary.
ELSEIF pck_detl = 'X'.
*-->Display detail
 v_topofpage = 'D'.
 PERFORM f_display_detail.
ELSEIF pck_summ = 'X'.
*-->display summary
 v_topofpage = 'S'.
 PERFORM f_display_summary.
ENDIF.
ENDFORM. " f_display_data
FORM f_display_detail .
v_topofpage = 'D'.
SORT i_mat2 BY werks lgort.
*DATA: v_count(5),
DATA: v_count,
 v_va1 LIKE i_mat2-value0.
 v_va2 LIKE i_mat2-value0,
 v_va3 LIKE i_mat2-value0,
 v_va4 LIKE i_mat2-value0,
 v_va5 LIKE i_mat2-value0.
LOOP AT i_mat2.
 WRITE:/2 i_mat2-lgort,
 10 i_mat2-matnr,
 22 i_mat2-maktx(38),
 61 i_mat2-meins,
 64 i_mat2-meng0,
 82 i_mat2-value0.
 100 i_mat2-meng1,
 118 i_mat2-value1,
 136 i_mat2-meng2,
 154 i_mat2-value2,
 169 i_mat2-meng3,
 186 i_mat2-value3,
 204 i_mat2-meng4,
 222 i_mat2-value4.
*-->Set counter and add up all values by lgort
 v_count = v_count + 1.
 v_va1 = v_va1 + i_mat2-value0.
 v_va2 = v_va2 + i_mat2-value1.
 v_va3 = v_va3 + i_mat2-value2.
 v_va4 = v_va4 + i_mat2-value3.
 v_va5 = v_va5 + i_mat2-value4.
 AT END OF lgort.
 WRITE:/10 'Cnt:',
 15 v_count,
 55 'Subtotal',
 82 v_va1.
 118 v_va2,
 154 v_va3,
 186 v_va4,
 222 v_va5.
 CLEAR v_count. CLEAR v_va1.
 CLEAR v_va2. CLEAR v_va3. CLEAR v_va4. clear v_va5.
 ENDAT.
ENDLOOP.
ENDFORM. " f_display_detail
FORM f_display_summary .
v_topofpage = 'S'.
LOOP AT i_matsum.
 IF NOT i_matsum-cnt0 IS INITIAL.
 WRITE:/2 i_matsum-lgort,
 10 'Cnt:',15 i_matsum-cnt0,
 82 i_matsum-value0.
 ENDIF.
 IF NOT i_matsum-cnt1 IS INITIAL.
 WRITE:/2 i_matsum-lgort,
 10 'Cnt:',15 i_matsum-cnt1,
 118 i_matsum-value1.
 ENDIF.
 IF NOT i_matsum-cnt2 IS INITIAL.
 WRITE:/2 i_matsum-lgort,
 10 'Cnt:',15 i_matsum-cnt2,
 154 i_matsum-value2.
 ENDIF.
 IF NOT i_matsum-cnt3 IS INITIAL.
 WRITE:/2 i_matsum-lgort,
 10 'Cnt:', 15 i_matsum-cnt3,
 186 i_matsum-value3.
 ENDIF.
 IF NOT i_matsum-cnt4 IS INITIAL.
 WRITE:/2 i_matsum-lgort,
 10 'Cnt:', 15 i_matsum-cnt4,
 222 i_matsum-value4.
 ENDIF.
ENDLOOP.
ENDFORM. " f_display_summary

How to display Top-5 earners from the table,there should be no duplication

Similar Messages

Maybe you are looking for