Display the document currency instead display Currency in Report

Hi Experts,
I am having a query in support system, in that one characteristic called document currency is there under Unit Dimension and this Doc currency info object having the Display currency and Document currency as Variables. Document currency Info object is in Free characteristics without related variables (Disp.curr and Doc.curr)
When I execute the query defaultly Display currency will appear as a variable in selection screen, because customer exit(cmod) has created like that
Now user want to display the document currency instead Display currency in the report, may I know how can I solve this problem?
Here I am unable to get the customer exit detatils and which program is there in CMOD, can anyone suggest me, how I will get the details?
And one more requirement in this CR, that is user want to display the key figure amount in the report should be displayed with the document currency amount only
May I know, want to do any settings for this?
Thanks to All
Regards
Mrudula

Hi rajesh,
1.customer exit value you can change in CMOD,select your project and go to components and select EXIT_SAPLRRS0_001.there go to include zxrsru01,and change display variable to document currency variable.
2. if u want to display your key figure value in document currency ,,go to that key figure info object ,,,in currency ( reference) field give document currency info object.Then map the respective amount value again in transformation.load the data, now in report document currency will be displayed along with key figure amount.
Thank you,
Joseph

Similar Messages

I need to populate the Document Currency in the COPA analysis. At the movem

I need to populate the Document Currency in the COPA analysis. At the movement Overhead reporting is Profitability Analysis Cube in BW. Now they want to Include the document currency in the reporting and they want add the field document currency and currency key. Can any one tell how to create the Document currency in COPA Analysis please. Thank you

Hi,
CO-PA will only store values in either operating concern currency or company code currency (if active). The fields FRWAE and KURSF are just for the line item display in transaction KE24 when pressing 'entry/op currency'. COPA does not store values in the document ccy.
The 'foreign currency' in the PA line item always contains the currency that was used for the conversion, but does not contain the document currency of the original document. So only in case the document currency was used for the translation of the PA values the foreign currency will be equal document currency.
In case of SD documents, CO-PA always uses the document currency as base of the conversion in order to transfer values of statistic condition types consistently.
In case of FI/MM documents system uses the company code ccy as the base for conversion into operating concern ccy (foreign ccy).
regards
Waman

Currency conversion issue in SPM. We are getting incorrect results with SPM conversion function from one of the document currency to USD.

Currently we are using SPM 2.0 version and we have been facing currency conversion issues.
Please help me in following aspects.
1) Where actually currency conversion happens in SPM. Is it the global program which does the conversion or other way.
2) We have conversion issue for one of the currency where conversion function is giving incorrect results when converting from one of the document currency to USD. here The respective document currency is considering the 1:1 ratio with Dollar which is actually incorrect.
3) We have verified in both BI side(currency tables) and even ECC side.
Please help me in understanding this issue and let me know if you need more information on this.
Its an production issue and appreciated your immediate inputs.
Thanks
Kiran

Hi Arun,
The following information may be helpful to you.The SSA_HELPER_PROGRAM has options regarding currency settings.
EXCH_RATE_TYPE: This flag governs the exchange rate type which will be used for currency conversion in data management. For example if RSXAADMIN contains an entry EXCH_RATE_TYPE = „ZSPM‟ then the conversion type used for currency conversion is ZSPM. The default value for the exchange rate type is „M‟. More details can be found in the note 1278988.
CURRENCYCONVERSION: By default data management converts all the measures in transaction currency to reporting currency and copies over to the corresponding measure in reporting currency. If the measure in reporting currency is already available in source it might be desirable to disable the currency conversion. To disable the conversion you can make an entry CURRENCYCONVERSION = „ „ in the table RSXAADMIN. This can also be achieved by running the program SSA_HELPER_PROGRAM with the option DEACTIVATE_CURRENCYCONVERSION. The conversion can be reactivated by running the same program with option ACTIVATE_CURRENCYCONVERSION.
UNITCONVERSION: Similar to above. To deactivate unit conversion you can use the program with option and DEACTIVATE_UNITCONVERSION and to reactivate ACTIVATE_UNITCONVERSION. By default both the conversions are switched on
EXTERNAL_CURRENCIES: Normally most of the international currencies are stored with two decimal places however certain currencies do have 0 and 1 decimal place too. For example JPY has 0 decimal places. SAP internal format stores even these currencies with 2 decimal places and at the time of display it changes the value to right decimal places. In case a file from external source is loaded to SPM it might have the format with 0 decimal places in the file. To convert it to SAP standard format post processing needs to be done on this value. If that is the case you can set the flat EXTERNAL_CURRENCIES = „X‟ in the table which will enable the post processing for these values. This flag can also be set and reset using the helper program using the option TURNON_EXT_CURRENCY_FORMAT and TURNOFF_EXT_CURRENCY_FORMAT.
Kind Regards,
John Harris
Senior Support Engineer, SAP Active Global Support

"The document 'Backup of Backup of Oral Report' could not be saved as 'Oral Report'. Bad file descriptor"

Hello,
Whenever I try to save my Keynote file, I receive an error message saying: "The document 'Backup of Backup of Oral Report' could not be saved as 'Oral Report'. Bad file descriptor".
I've tried using other name to save my file, saving the file as a backup, saving it within my documents, and on a USB, but the file won't save. I'm using Keynote '09, Version 5.1.1 (1034) on my Mac Desktop running Mac OS X Version 10.6.8
How can I fix this problem and save my file?

change icloud backup to local backup on this compuet. this worked for me.

Is it possible to display the document link for each record in Report ?

Hi,
     Is it possible to display the document or Image link for each master record in the Report with the help of RSA1->Document->Master Data.
Usefull answers are really helpfull.
Advance Thanks for the userful answers.
Regards,
MRC.

Hi JAYASHREE PARASMAL ,
      Thanks for your valuable answers.
      Now i got the document in my Report,while executing the report through query designer as per your suggestion done on Setting Tab option.
      But i can't able to get the same thing,while i executing the Repory through WAD.
      What setting i need follow in the WAD for getting the same thing.
      Kindly give your suggestion to get the document in my Report,while i am executing through my WAD.
      Once again thanks for your helpful answer and awaiting for your suggestion.
Regards,
MRC.

Error while generating the Document... Bursting Status Report

Hey all,
I am getting some errors in a production environment when trying to burst out some invoice data.
This process has been pretty robust and out of 1000+ invoices a day, I can only find 4 that are failing regularily.
Why am I mentioning?, just to show that I am thinking this is a data issue, but just cannot see anything that stands out.
I can take the xml output and run it through my development suite on my local machine and all runs fine.
Just when it is running live through the db is when it fails.
Here is the Bursting output that shows the error....
<?xml version="1.0" encoding="UTF-8"?>
<BURS_REPORT>
<REQUESTID>27044820</REQUESTID>
<PARENT_REQUESTID>27044726</PARENT_REQUESTID>
<REPORT_DESC>Invoice Print Selected Invoices</REPORT_DESC>
<OUTPUT_FILE>[$OUT_DIR]/o27044820.zip</OUTPUT_FILE>
<DOCUMENT_STATUS>
<KEY></KEY>
<OUTPUT_TYPE>pdf</OUTPUT_TYPE>
<DELIVERY></DELIVERY>
<OUTPUT></OUTPUT>
<STATUS>fail</STATUS>
<LOG>Error while generating the Document...</LOG>
</DOCUMENT_STATUS>
</BURS_REPORT>
The problem is that this output doesn't necessarily help, nor can I find any hints in the OPP logs.
So... the question becomes...
Any ideas on where I can look to resolve this issue?+
Or where I can find any clues at, that would possible point at the issue?+
Oracle Database 10g Enterprise Edition Release 10.2.0.4.0 - 64bi
BI Publisher 5.6.3
Thanks
Hayden,

Tim,
Thanks for the suggestion, always seems to slip my mind that the Bursting Report has debug on it.
As far as what is generating the XML, it is oracle's standard, only slightly modified ... ;), invoice generating report, RAXINV_SEL.
Well RAXINV_SEL, or RAXINV_NEW, doesn't matter, same code, that is the executable.
I have turned on the debug, for both the source xml and the burst request, and unfortunately, still nothing stands out to me.
I was really expecting to see something in the burst log, pasted at the bottom...
but, it yet avoids me.
If I had to guess, I would bet the user went, in our terminology, "slashwit crazy", or example "model /w options", in some description.
But can't seem to find which field it is blowing up on, since we are catching these special characters in several places already, and slashwit is littered throughout the output.
I was also looking in the bursting control file for the special xml tags identified there, as those would require no slashes. But those are all clean.
Hayden,
XML Publisher: Version : 11.5.0
Copyright (c) 1979, 1999, Oracle Corporation. All rights reserved.
XDOBURSTREP module: XML Publisher Report Bursting Program
Current system time is 21-SEP-2009 10:43:12
XML/BI Publisher Version : 5.6.3
Request ID: 27048106
All Parameters: ReportRequestID=27044726:DebugFlag=Y
Report Req ID: 27044726
Debug Flag: Y
Updating request description
Updated description
Retrieving XML request information
Node Name:{node}
Preparing parameters
null output =/u007/app/applmgr/{instance}/out/{instance}/o27048106.out
inputfilename =/u007/app/applmgr/{instance}/out/{instance}/o27044726.out
Data XML File:/u007/app/applmgr/{instance}/out/{instance}/o27044726.out
Set Bursting parameters..
Temp. Directory:/u007/app/applmgr/{instance}/temp
[092109_104315337][][STATEMENT] Oracle XML Parser version ::: Oracle XDK Java 9.0.4.0.0 Production
[092109_104315340][][STATEMENT] setOAProperties called..
Bursting propertes.....
{burstng-source=EBS, font.Free 3 of 9.normal.normal=truetype./usr/java/jre/lib/fonts/FREE3OF9.TTF, font.Times New Roman.normal.normal=truetype./usr/java/jre/lib/fonts/TIMES.TTF, system-temp-dir=/u007/app/applmgr/{instance}/temp, font.Arial.italic.normal=truetype./usr/java/jre/lib/fonts/ARIALI.TTF, user-variable:cp:parent_request_id=27044726, user-variable:cp:application_short_name=XDO, font.Courier New.normal.bold=truetype./usr/java/jre/lib/fonts/COURBD.TTF, font.Times New Roman.normal.bold=truetype./usr/java/jre/lib/fonts/TIMESBD.TTF, user-variable:cp:request_id=27048106, font.Arial.normal.normal=truetype./usr/java/jre/lib/fonts/ARIAL.TTF, font.Courier New.normal.normal=truetype./usr/java/jre/lib/fonts/COUR.TTF, user-variable.OA_MEDIA=http://diierp.corio.com:8002/OA_MEDIA, font.Courier New.italic.bold=truetype./usr/java/jre/lib/fonts/COURBI.TTF, user-variable:cp:org_id=83, user-variable:cp:DebugFlag=Y, font.Times New Roman.italic.bold=truetype./usr/java/jre/lib/fonts/TIMESBI.TTF, user-variable:cp:responsibility=51270, font.Arial.italic.bold=truetype./usr/java/jre/lib/fonts/ARIALBI.TTF, font.Courier New.italic.normal=truetype./usr/java/jre/lib/fonts/COURI.TTF, user-variable:cp:user=HAYDEN, user-variable:cp:reportdescription=Invoice Print Selected Invoices, user-variable:cp:language=en, font.Times New Roman.italic.normal=truetype./usr/java/jre/lib/fonts/TIMESI.TTF, user-variable:cp:ReportRequestID=27044726, user-variable:cp:locale=en-US, user-variable:cp:territory=US, font.Arial.normal.bold=truetype./usr/java/jre/lib/fonts/ARIALBD.TTF}
Start bursting process..
Bursting process complete..
Generating Bursting Status Report..
Start of log messages from FND_FILE
End of log messages from FND_FILE
Executing request completion options...
------------- 1) PUBLISH -------------
Beginning post-processing of request 27048106 on node {node} at 21-SEP-2009 10:43:19.
Post-processing of request 27048106 completed at 21-SEP-2009 10:43:20.
Finished executing request completion options.
Concurrent request completed
Current system time is 21-SEP-2009 10:43:20
---------------------------------------------------------------------------

Adding the Document Total to Detailed Liabilities Aging Report

Hi,
On the Detailed Liabilities Aging Report(Vendor Aging), I would like to add the Document Total from AP Invoice. How can I link to the AP invoice table(OPCH).
Thanks
Krishnan

Hi Krishnan,
This PLD is hard coded report. You don't have any options to link to other fields in the report. If you need that info on the report, you need to create your own.
Thanks,
Gordon

Where does the Document publisher used in Duet Entp. reporting reside.

Hi All,
I was reading on the architecture of Duet Enterprise reporting given in [this MSDN link|http://technet.microsoft.com/en-us/library/gg385205.aspx]. I wanted to know where the Document publisher and where the reports queue reside (SAP Backend or SCL) as explained in the diagrams in the above link.
Appreciate any help in understanding this architecture.
Regards,
Avishek.

Hi Binosn,
Thanks for your interest and reply.
Wanted to know some more details regarding the document publisher.
How does the backend push the report to the Gateway, is there also a queue maintained in the backend system which processes the report requests asynchronously or the Gateway report publisher pulls them synchronously or is there any component necessary to be installed in the backend system for processing reports?
Is the document publisher feature a gateway feature or a Duet Enterprise specific feature?
Please suggest some material for further details if available.
Regards,
Avishek.

FD10N report in Document Currency

Dear all,
I am looking for a report that can generate like FD10N with Document Currency, in FD10N report is in Local currency only.
Thanks & Regards
Shihab M S

If you have the G/L account, then you can use the t-code FS10N for your requirement.
Otherwise, You can find the document currency, in report FD10N .
Double click on the total, Then you can choose another currency from the change layout option.

S_ALR_87012178 to display with document currency

Hi Expert,
I tried to run report S_ALR_87012178 and always got the result with local currency, while I want the result with document currency.
I see another thread that sap note 769338 will help. I tried and it does work.
Is there anyone who has the experience of using this report.
Thanks a lot in advance for your reply.
Chih-Ming

Hi
regarding report on trx S_ALR_87012178:
when you choose the input parameter
"Summarization level (0-6)" : '6'
program RFDOPR10 will automatically set the other parameters as follows:
"OI sorted list sorting(1,2)": '1'
"OI list summarization(0-2)" : '1'.
Consequently it is not possible to only display foreign currency items when using summarization level 6.
The reason why the program works as it does is the following:
when you display foreign currency items it is always necessary to also display the currency.
Without the currency information the OI total would just not make much sense. Summarization level 6, however,
forces the output of the data in only one line.
Since only 132 characters can be printed in one line there is not enough space for additional output of the currency.
Thus it is technically just not possible to also display the currency.
The combination of "summarization level" 6 and "OI sorted list sorting" 2 therefore is technically impossible.
If you want to see the document currency please use summarization level 1.
Please also take a look at note 769226 for more details on this issue.
Kind Regards
davide

To display document currency code in Ageing/statement

Please make the system to display the document currency code in Ageing/Statement printout. For example, a customer who has 3 outstanding invoices which in USD, GBP and RMB; In ageing/statement report, it shows the balances in LC as well as FC. The customer total shall be in LC and subtotal for individual currency code.
Please advise.

Hello,
We are planning significant changes in Aging Reports for the next release (after 2007 A version). Just now we are also considering an option of multicurrency statements including the feature displaying more (document) currencies per one view.
Is there anything else you would like to enhance on Aging Reports?
Thanks.
Peter Dominik
SAP
B1 Product Definition

Document currency in the COPA

Hi,
I'm modeling a cube for the COPA using the generated extractor. The COPA holds two currency types,
the op. concern currency (B0) and C.code currency(10). My users want also to see in their reports in document currency (transaction currency) is their a standard way do it? Do you think I should create another record for that or should I do it in the Bex?
Thanks,
Benny Katzburg

Hi,
CO-PA will only store values in either operating concern currency or company code currency (if active). The fields FRWAE and KURSF are just for the line item display in transaction KE24 when pressing 'entry/op currency'. COPA does not store values in the document ccy.
The 'foreign currency' in the PA line item always contains the currency that was used for the conversion, but does not contain the document currency of the original document. So only in case the document currency was used for the translation of the PA values the foreign currency will be equal document currency.
In case of SD documents, CO-PA always uses the document currency as base of the conversion in order to transfer values of statistic condition types consistently.
In case of FI/MM documents system uses the company code ccy as the base for conversion into operating concern ccy (foreign ccy).
regards
Waman

How to clear the open documents in case if document currency and local curr

Hi,
Can anyboday advise how to clear the open document of a particular vendor for a particular company code. Here the issue is that balace is netted to Zero in the document currency but not in the local currency. The document was posted in Currency CAD and the local currency is GBP.
When i check the FBL1N, there is it showing net balance is ZERO, but document is still in open
status. I tried using Transaction code F-44, but it is not allowing me.
Can anyboday advise how to perform this. Points will be awarded.
Regards,
Sree.

Hi,
In the Company code global parameters(OBY6),select the check box "NO FOREX RATE DIFF.WHEN CLEARING IN LC"
and try clearing again.(You can have a F1 help on the check box to see what exactly it is).
Hope this will resolve
Assign points if useful
Thanks
Aravind
Edited by: Aravind Aitipamula on May 22, 2008 1:36 AM

Document currency

Hi,
I am working on a report in which there are 5 fields gl account(hkont),vendor code(lifnr),vendor name(name1),aging details,currency(document currency-waers).Here the requirement is I have to split the aging details column into 4 columns(current,31-60,61-90,>90).The document currency has to be summed up according to vendor name and currency key and split into these 4 columns accordingly.I am not getting the logic how can i split the document currency into these 4 columns.Can anyone suggest me the proper solution for this?I am sending the program on which I am working.
REPORT zfir087_prctr_payables NO STANDARD PAGE HEADING
       LINE-SIZE 85
       LINE-COUNT 65
       MESSAGE-ID zfi.
             INCLUDEs                                               *
***THE FOLLOWING INCLUDE CONTAINS HEADER FOOTER DETAILS
INCLUDE zca_standard_header_footer1.
***THE FOLLOWING INCLUDE CONTAINS ALL THE DATA DECLARATIONS AND
***SELECTION SCREEN DETAILS
INCLUDE zfir087_accounts_payables_top.
***THE FOLLOWING INCLUDE CONTAINS ALL THE SUBROUTINES
INCLUDE zfir087_accounts_payables_sub.
             AT SELECTION SCREEN                                    *
AT SELECTION-SCREEN .
Validate the profit center entered on selection screen.
PERFORM f_valiate_profit_center.
Validate Recon Account entered on selection screen.
PERFORM f_validate_recon_account.
Validate Partner profit center entered on selection screen
PERFORM f_val_part_profit_center.
*Begin of SRR-17677
*At Selection Screen Output
AT SELECTION-SCREEN OUTPUT.
PERFORM screen_changes.
*End of SRR-17677
START-OF-SELECTION.
*--SIR-07541 Begin
SELECT * FROM t001 INTO TABLE t_t001.
*--SIR-07541 End
Get data from bsik table
GET bsik.
MOVE-CORRESPONDING bsik TO t_ldb_data.                   "#EC ENHOK
MOVE:bsik-bukrs TO d_ldb_data-bukrs,
       bsik-lifnr TO d_ldb_data-lifnr,
       bsik-belnr TO d_ldb_data-belnr,
       bsik-bldat TO d_ldb_data-bldat,
       bsik-blart TO d_ldb_data-blart,
       bsik-gjahr TO d_ldb_data-gjahr,
       bsik-buzei TO d_ldb_data-buzei,
       bsik-xblnr TO d_ldb_data-xblnr,
       bsik-dmbtr TO d_ldb_data-dmbtr,
       bsik-waers TO d_ldb_data-waers,
       bsik-wrbtr TO d_ldb_data-wrbtr,
       bsik-dmbe2 TO d_ldb_data-dmbe2,
       bsik-vbund TO d_ldb_data-vbund,
       bsik-ebeln TO d_ldb_data-ebeln,
       bsik-augdt TO d_ldb_data-augdt,
       bsik-augbl TO d_ldb_data-augbl,
       bsik-zuonr TO d_ldb_data-zuonr,
       bsik-budat TO d_ldb_data-budat,
       bsik-sgtxt TO d_ldb_data-sgtxt,
       bsik-hkont TO d_ldb_data-hkont,
       bsik-zlsch TO d_ldb_data-zlsch,
       bsik-zlspr TO d_ldb_data-zlspr,
       bsik-filkd TO d_ldb_data-filkd,
       bsik-shkzg    TO     d_ldb_data-shkzg,
Begin of SRR-22879 APARMAA
       bsik-zfbdt    TO     d_ldb_data-zfbdt,
       bsik-zbd1t    TO     d_ldb_data-zbd1t,
       bsik-zbd2t    TO     d_ldb_data-zbd2t,
       bsik-zbd3t    TO     d_ldb_data-zbd3t,
       bsik-rebzg    TO     d_ldb_data-rebzg.
End of SRR-22879 APARMAA
APPEND d_ldb_data TO t_ldb_data.
Get data from bkpf table
GET bkpf.
MOVE:bkpf-bukrs TO d_bkpf-bukrs,
       bkpf-belnr TO d_bkpf-belnr,
       bkpf-gjahr TO d_bkpf-gjahr,
       bkpf-awkey TO d_bkpf-awkey,
       bkpf-hwae2 TO d_bkpf-hwae2.
APPEND d_bkpf TO t_bkpf.
END-OF-SELECTION.
Get purchasing information from rseg table
IF NOT t_bkpf[] IS INITIAL.
    PERFORM f_get_ebeln_from_rseg.
ENDIF.
Get profit center and partner profit center from bfok_a table
IF NOT t_ldb_data[] IS INITIAL.
    PERFORM f_get_data_from_bfok_a.
ENDIF.
Begin of SRR-22879 APARMAA
IF NOT t_ldb_data[] IS INITIAL.
    PERFORM f_get_data_from_lfa1.
ENDIF.
End of SRR-22879 APARMAA
Calculate the sum of the dmbtr field
PERFORM f_get_sum_from_bfok_a.
Split the amount in doc currency(wrbtr) in bsik
PERFORM f_split_wrbtr_in_bsik.
IF NOT t_final[] IS INITIAL.
LOGO FOR ALV GRID
    v_logo = c_logo.
    v_title = sy-title.
    v_repid = sy-repid.
BUILD PRINT SETTINGS
    PERFORM f_build_print_settings USING f_print_settings.
BUILD LAYOUT
    PERFORM f_build_layout USING f_grid_layout v_title.
BUILD EVENTS
    PERFORM f_build_events USING t_events[] .
*DISPLAY REPORT
    IF p_disp EQ 'X'.                                       "SRR-17677
      PERFORM f_display_data.
    ENDIF.                                                  "SRR-17677
Begin of SRR-17677
Begin of SRR-22879 APARMAA
   IF p_expo = 'X'.
     EXPORT T_R087 FROM T_FINAL TO MEMORY ID 'R087'.
   ENDIF.
    IF p_expo = 'X'.
     MOVE-CORRESPONDING t_final TO t_final1.              "SRR-24422
      t_final1[] = t_final[].                               "SRR-24422
      EXPORT t_r087 FROM t_final1 TO MEMORY ID 'R087'.
    ENDIF.
End of SRR-22879 APARMAA
End of SRR-17677
Refresh and Clear all internal tables.
    PERFORM f_free_and_clear.
ELSE.
NO RECORDS MATCH THE SELECTION CRITERIA
    IF p_disp EQ 'X'.                                       "SRR-17677
      MESSAGE i000 WITH
        'No data exists for the given selection criteria'(050).
    ENDIF.                                                  "SRR-17677
    EXIT.
ENDIF.
                 DICTIONARY TABLES
TABLES :bfok_a, lfa1, lfb1, bsik, bkpf,cepc.                "#EC NEEDED
                   TYPES
*TYPES:
DATA:
Type like bsik table
BEGIN OF d_ldb_data,
    bukrs LIKE bsik-bukrs, "COMPANY CODE
    lifnr LIKE bsik-lifnr, "Account Number of Vendor or Creditor
    belnr LIKE bsik-belnr, "ACCOUNTING DOCUMENT NUMBER
    bldat LIKE bsik-bldat, "DOCUMENT DATE IN DOCUMENT
    blart LIKE bsik-blart, "DOCUMENT TYPE
    gjahr LIKE bsik-gjahr, "FISCAL YEAR
    buzei LIKE bsik-buzei,
    "NUMBER OF LINE ITEM WITHIN ACCOUNTING DOCUMENT
    xblnr LIKE bsik-xblnr, "REFERENCE DOCUMENT NUMBER
    dmbtr LIKE bsik-dmbtr, "AMOUNT IN LOCAL CURRENCY
*--SIR-07541 Begin
     lwaer LIKE t001-waers, "LOCAL CURRENCY KEY
     hwae2 LIKE bkpf-hwae2, "2ND LOCAL CURRENCY KEY
*--SIR-07541 End
    waers LIKE bsik-waers, "CURRENCY KEY
    wrbtr LIKE bsid-wrbtr, "AMOUNT IN DOCUMENT CURRENCY
    dmbe2 LIKE bsik-dmbe2, "AMOUNT IN SECOND LOCAL CURRENCY
    vbund LIKE bsik-vbund, "COMPANY ID OF TRADING PARTNER
    ebeln LIKE bsik-ebeln, "BILLING DOCUMENT
    augdt LIKE bsik-augdt, "CLEARING DATE
    augbl LIKE bsik-augbl, "DOCUMENT NUMBER OF THE CLEARING
                                  "DOCUMENT
    zuonr LIKE bsik-zuonr, "ASSIGNMENT NUMBER
    budat LIKE bsik-budat, "POSTING DATE IN THE DOCUMENT
    sgtxt LIKE bsik-sgtxt, "ITEM TEXT
    hkont LIKE bsik-hkont, "GENERAL LEDGER ACCOUNT
    zlsch LIKE bsik-zlsch, "PAYMENT METHOD
    zlspr LIKE bsik-zlspr, "PAYMENT BLOCK KEY
    filkd LIKE bsik-filkd, "ACCOUNT NUMBER OF THE BRANCH
    shkzg     LIKE bsik-shkzg, "Debit/Credit Indicator
    awkey LIKE bkpf-awkey,   "Reference Key
    prctr LIKE bfok_a-prctr, "Profit Center
    pprct LIKE bfok_a-pprct, "Partner Profit Center
    status TYPE c,           "Status indicator
    korrk LIKE bfok_a-korrk, "Adjustment Account
Begin of SRR-22879 APARMAA
    name1   LIKE lfa1-name1,    "Vendor Name
    duedate LIKE sy-datum,      "Due Date
    aging(5) TYPE c,            "Aging Indiacator
    zfbdt   LIKE bsik-zfbdt,
    zbd1t   LIKE bsik-zbd1t,
    zbd2t   LIKE bsik-zbd2t,
    zbd3t   LIKE bsik-zbd3t,
    rebzg   LIKE bsik-rebzg,
End of SRR-22879 APARMAA
END OF d_ldb_data,
Type declaration of type bkpf table
BEGIN OF d_bkpf,
    bukrs LIKE bkpf-bukrs,       "Company Code
    belnr LIKE bkpf-belnr,       "Accounting Document Number
    gjahr LIKE bkpf-gjahr,       "Fiscal Year
    awkey LIKE bkpf-awkey,       "Reference Key
*--SIR-07541 Begin
    hwae2 LIKE bkpf-hwae2,       "@nd local currency
*--SIR-07541 End
END OF d_bkpf,
Type declaration of type rseg table
BEGIN OF d_rseg ,
belnr LIKE rseg-belnr, "Accounting Document Number
gjahr LIKE rseg-gjahr, "Fiscal Year
buzei LIKE rseg-buzei, "Document item in invoice document
ebeln LIKE rseg-ebeln, "Purchasing Document Number
bukrs LIKE rseg-bukrs, "Company Code
END OF d_rseg,
Begin of SRR-22879 APARMAA
Type declaration of type lfa1 table
BEGIN OF d_lfa1,
lifnr LIKE lfa1-lifnr,
name1 LIKE lfa1-name1,
END OF d_lfa1,
End of SRR-22879 APARMAA
Type declaration of type bfok_a table
BEGIN OF d_bfok_a,
bukrs LIKE bfok_a-bukrs, "Company Code
belnr LIKE bfok_a-belnr, "Accounting Document Numbe
gjahr LIKE bfok_a-gjahr, "Fiscal Year
buzei LIKE bfok_a-buzei, "Number of Line Item
auzei LIKE bfok_a-auzei,
                 "No of Breakdown by Account Assignments for FI Document
hkont LIKE bfok_a-hkont, "General Ledger Account
shkzg LIKE bfok_a-shkzg, "Debit/Credit Indicator
dmbtr LIKE bfok_a-dmbtr, "AMOUNT IN DOCUMENT CURRENCY
dmbe2 LIKE bfok_a-dmbe2, "Amount in Second Local Currency
prctr LIKE bfok_a-prctr, "Profit Center
pprct LIKE bfok_a-pprct, "Partner Profit Center
korrk LIKE bfok_a-korrk, "Adjustment Account
counter TYPE i,
END OF d_bfok_a.
Begin of SRR-22879 APARMAA
Creation of t_final1 table for export to R091.
Since t_ldb_data has been modified for this SRR, exporting of t_final
results in a short dump when R091 is executed.Hence t_final1 is
created with the original structure of t_ldb_data.This will be
exported to R091.
DATA:BEGIN OF d_final1,
     bukrs LIKE bsik-bukrs, "COMPANY CODE
     lifnr LIKE bsik-lifnr, "Account Number of Vendor or Creditor
     belnr LIKE bsik-belnr, "ACCOUNTING DOCUMENT NUMBER
     bldat LIKE bsik-bldat, "DOCUMENT DATE IN DOCUMENT
     blart LIKE bsik-blart, "DOCUMENT TYPE
     gjahr LIKE bsik-gjahr, "FISCAL YEAR
     buzei LIKE bsik-buzei,
     "NUMBER OF LINE ITEM WITHIN ACCOUNTING DOCUMENT
     xblnr LIKE bsik-xblnr, "REFERENCE DOCUMENT NUMBER
     dmbtr LIKE bsik-dmbtr, "AMOUNT IN LOCAL CURRENCY
*--SIR-07541 Begin
     lwaer LIKE t001-waers, "LOCAL CURRENCY KEY
     hwae2 LIKE bkpf-hwae2, "2ND LOCAL CURRENCY KEY
*--SIR-07541 End
     waers LIKE bsik-waers, "CURRENCY KEY
     wrbtr LIKE bsid-wrbtr, "AMOUNT IN DOCUMENT CURRENCY
     dmbe2 LIKE bsik-dmbe2, "AMOUNT IN SECOND LOCAL CURRENCY
     vbund LIKE bsik-vbund, "COMPANY ID OF TRADING PARTNER
     ebeln LIKE bsik-ebeln, "BILLING DOCUMENT
     augdt LIKE bsik-augdt, "CLEARING DATE
     augbl LIKE bsik-augbl, "DOCUMENT NUMBER OF THE CLEARING
                                  "DOCUMENT
     zuonr LIKE bsik-zuonr, "ASSIGNMENT NUMBER
     budat LIKE bsik-budat, "POSTING DATE IN THE DOCUMENT
     sgtxt LIKE bsik-sgtxt, "ITEM TEXT
     hkont LIKE bsik-hkont, "GENERAL LEDGER ACCOUNT
     zlsch LIKE bsik-zlsch, "PAYMENT METHOD
     zlspr LIKE bsik-zlspr, "PAYMENT BLOCK KEY
     filkd LIKE bsik-filkd, "ACCOUNT NUMBER OF THE BRANCH
     shkzg     LIKE bsik-shkzg, "Debit/Credit Indicator
     awkey LIKE bkpf-awkey,       "Reference Key
     prctr LIKE bfok_a-prctr,     "Profit Center
     pprct LIKE bfok_a-pprct,     "Partner Profit Center
     status TYPE c,               "Status indicator
     korrk LIKE bfok_a-korrk,     "Adjustment Account
     END OF d_final1.
End of SRR-22879 APARMAA
                         TYPE-POOLS
TYPE-POOLS: slis, " TYPE POOL FOR ALV REPORT
            slist. " System: List Processor for ALV List
                    ALV SPECIFIC DECLARATIONS
DATA:
TABLES REQUIRED SPECIFICALLY FOR ALV REPORTING
      t_sortcat        TYPE slis_t_sortinfo_alv   ,
       t_field_catalog TYPE slis_t_fieldcat_alv,
       t_events         TYPE slis_t_event,
               FIELD STRINGS (Naming convention F_)
      f_grid_settings TYPE lvc_s_glay,                     "#EC *
      f_grid_layout    TYPE slis_layout_alv,                "#EC *
      f_print_settings TYPE slis_print_alv.       "print settings
                     INTERNAL TABLES
Int table to get the data from bsik table using logical databse
DATA: t_ldb_data LIKE STANDARD TABLE OF d_ldb_data,
Int table to get the data from bkpf table
      t_bkpf LIKE STANDARD TABLE OF d_bkpf,
Int table to store the data from rseg table
      t_rseg LIKE STANDARD TABLE OF d_rseg,
Int table to store the data from bfok_a table
      t_bfok_a LIKE STANDARD TABLE OF d_bfok_a.
*Int table to store the sum of the values of field dmbtr in t_bfok_a
*table
DATA: t_bfok_a1 LIKE STANDARD TABLE OF d_bfok_a,
       t_bfok_a2 LIKE STANDARD TABLE OF d_bfok_a WITH HEADER LINE.
DATA: t_final LIKE STANDARD TABLE OF d_ldb_data WITH HEADER LINE.
*Begin of SRR-17677
Begin of SRR-22879 APARMAA
*DATA: t_r087 LIKE STANDARD TABLE OF d_ldb_data WITH HEADER LINE.
DATA: t_r087 LIKE STANDARD TABLE OF d_final1 WITH HEADER LINE.
End of SRR-22879 APARMAA
*End of SRR-17677
Begin of SRR-22879 APARMAA
DATA: t_lfa1 LIKE STANDARD TABLE OF d_lfa1.
DATA: t_ldb_data1 LIKE STANDARD TABLE OF d_ldb_data.
DATA: t_final1 LIKE STANDARD TABLE OF d_final1 WITH HEADER LINE.
End of SRR-22879 APARMAA
*--SIR-07541 Begin
DATA: wa_t001 TYPE t001,
        t_t001 LIKE STANDARD TABLE OF wa_t001.
*--SIR-07541 End
                         VARIABLES
DATA: v_title LIKE sy-title,            " Variable for Report Title
      v_repid LIKE sy-repid,            " Variable for Report Name
      v_base_amount LIKE bfok_a-dmbtr, " Base amount to be split
      v_amount_sum LIKE bfok_a-dmbtr, " Base amount sum
Begin of SRR-22879 APARMAA
     v_aging(5) type c.                                   "SRR-24422
      v_aging(5) type n.                                    "SRR-24422
End of SRR-22879 APARMAA
FIELD-SYMBOLS: <ldb_data> LIKE LINE OF t_ldb_data,
               <bfok_a>   LIKE LINE OF t_bfok_a,
               <bfok_a1> LIKE LINE OF t_bfok_a1,
               <bkpf>   LIKE LINE OF t_bkpf,
               <rseg>   LIKE LINE OF t_rseg,
Begin of SRR-22879 APARMAA
               <lfa1>   LIKE LINE OF t_lfa1.
End of SRR-22879 APARMAA
                        RANGES
                         CONSTANTS
CONSTANTS:c_logo(5)     TYPE c VALUE 'R087',
          c_flag        TYPE c VALUE 'X',
          c_flag1       TYPE c VALUE 'x',
          c_010         TYPE p DECIMALS 6 VALUE '0.10',
          c_f           TYPE c VALUE 'F',
          c_debit       TYPE c VALUE 'H',
          c_xyz(3)      TYPE c VALUE 'XYZ',                 "SRR-17677
          c_waers      LIKE bsid-waers VALUE 'JPY',
Begin of SRR-22879 APARMAA
          c_0to29(5)    VALUE '<30',
          c_30to59(5)   VALUE '31-60',
          c_60to89(5)   VALUE '61-90',
          c_90on(5)     VALUE '90+'.
End of SRR-22879 APARMAA
                        SELECTION SCREEN
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS: s_prctr FOR cepc-prctr," Profit center
                s_hkont FOR bsik-hkont,"General Ledger Account
                s_pprct FOR bfok_a-pprct. "Partner Profit Center
SELECTION-SCREEN END OF BLOCK b1.
Selection screen for ALV List displat
SELECTION-SCREEN BEGIN OF BLOCK disp WITH FRAME TITLE text-004.
PARAMETERS: p_grid RADIOBUTTON GROUP r2 DEFAULT 'X'
            MODIF ID abc, " Grid Display
            p_list RADIOBUTTON GROUP r2 MODIF ID abc. " List Display
SELECTION-SCREEN END OF BLOCK disp.
Begin of SRR-22879 APARMAA
SELECTION-SCREEN BEGIN OF BLOCK use_new WITH FRAME TITLE text-055.
PARAMETERS: p_use AS CHECKBOX.
SELECTION-SCREEN END OF BLOCK use_new.
End of SRR-22879 APARMAA
*Begin of SRR-17677
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-054.
PARAMETERS: p_disp AS CHECKBOX DEFAULT 'X' MODIF ID xyz,
            p_expo AS CHECKBOX MODIF ID xyz.
SELECTION-SCREEN END OF BLOCK b2.
FORM f_valiate_profit_center .
IF NOT s_prctr[] IS INITIAL.
Local variable for profit center(s_prctr) validation
    DATA:v_prctr LIKE cepc-prctr.                           "#EC NEEDED
    SELECT SINGLE prctr FROM cepc INTO v_prctr WHERE prctr IN s_prctr.
                                                            "#EC *
    IF sy-subrc NE 0.
Message please enter valid profit center
      MESSAGE e000(zfi) WITH   text-002.
    ENDIF.
ENDIF.
ENDFORM.                    " f_valiate_profit_center
*&      Form f_get_ebeln_from_rseg
Purpose:To get the purchase doc number from the table rseg
FORM f_get_ebeln_from_rseg .
Select belnr,gjahr buzei ebeln fields from rseg table
SELECT belnr
         gjahr
         buzei
         ebeln
         bukrs
         FROM rseg INTO TABLE t_rseg
         FOR ALL ENTRIES IN t_bkpf
         WHERE belnr = t_bkpf-awkey+0(10) AND
               gjahr = t_bkpf-gjahr       AND
               bukrs = t_bkpf-bukrs .
Sort and delete the adjacent duplicates from t_rseg table
IF sy-subrc EQ 0.
    SORT t_rseg BY bukrs belnr gjahr .
    DELETE ADJACENT DUPLICATES FROM t_rseg COMPARING belnr gjahr bukrs.
ENDIF.
ENDFORM.                    " f_get_ebeln_from_rseg
*&      Form f_get_data_from_bfok_a
Purpose:Get data from bfok_a table
FORM f_get_data_from_bfok_a .
Select data from bfok_a table
SELECT bukrs
         belnr
         gjahr
         buzei
         auzei
         hkont
         shkzg
         dmbtr
         dmbe2
         prctr
         pprct
         korrk
         FROM bfok_a
         INTO TABLE t_bfok_a FOR ALL ENTRIES IN t_ldb_data
         WHERE bukrs = t_ldb_data-bukrs AND
               belnr = t_ldb_data-belnr AND
               gjahr = t_ldb_data-gjahr AND
               buzei = t_ldb_data-buzei AND
               pprct IN s_pprct.
Sort t_bfok_a table on fields bukrs belnr gjahr buzei
IF sy-subrc EQ 0.
    SORT t_bfok_a BY bukrs belnr gjahr buzei auzei ASCENDING dmbtr
                                                   DESCENDING.
ENDIF.
ENDFORM.                    " f_get_data_from_bfok_a
*&      Form f_get_sum_from_bfok_a
purpose:To get the sum of the line item field of dmbtr
FORM f_get_sum_from_bfok_a .
Line item counter
DATA : l_index LIKE sy-tabix, "To get the index
         v_counter TYPE i.       "Counter to store line items
t_bfok_a2[] = t_bfok_a[].
Get the sum of all the line items dmbtr(amount) field
LOOP AT t_bfok_a2 .
MOVE:t_bfok_a TO wa_bfok_a.
Increment the line item counter
    v_counter = v_counter + 1.
    IF t_bfok_a2-shkzg EQ c_debit.
      t_bfok_a2-dmbtr = t_bfok_a2-dmbtr * -1.
      t_bfok_a2-dmbe2 = t_bfok_a2-dmbe2 * -1.
      MODIFY t_bfok_a2.
    ENDIF.
Find the sum of dmbtr field at end of belnr
    AT END OF buzei.
      SUM.
      MOVE-CORRESPONDING t_bfok_a2 TO d_bfok_a.
      d_bfok_a-counter = v_counter.
      APPEND d_bfok_a TO t_bfok_a1.
      CLEAR: v_counter.
    ENDAT.
    CLEAR t_bfok_a2.
ENDLOOP.
Sort t_bfok_a1 on bukrs belnr gjahr buzei
SORT t_bfok_a1 BY bukrs belnr gjahr buzei ASCENDING dmbtr DESCENDING.
SORT t_ldb_data BY bukrs belnr gjahr buzei ASCENDING .
SORT t_bfod_a1 BY bukrs belnr gjahr buzei.
t_bfok_a[] = t_bfok_a2[].
FREE t_bfok_a2[].
Find the sum of line items having single line item
LOOP AT t_bfok_a1 ASSIGNING <bfok_a1> WHERE counter = 1.
    l_index = sy-tabix.
    READ TABLE t_ldb_data WITH KEY bukrs = <bfok_a1>-bukrs
                                   belnr = <bfok_a1>-belnr
                                   gjahr = <bfok_a1>-gjahr
                                   buzei = <bfok_a1>-buzei
                                   ASSIGNING <ldb_data>
                                   BINARY SEARCH.
    IF sy-subrc = 0.
      MOVE-CORRESPONDING <ldb_data> TO t_final.
*--SIR-07541 Begin
      READ TABLE t_t001 INTO wa_t001 WITH KEY bukrs = <bfok_a1>-bukrs.
      IF sy-subrc = 0.
        t_final-lwaer = wa_t001-waers.
      ENDIF.
      READ TABLE t_bkpf INTO d_bkpf WITH KEY bukrs = <bfok_a1>-bukrs
                                              belnr = <bfok_a1>-belnr
                                              gjahr = <bfok_a1>-gjahr.
      IF sy-subrc = 0.
        t_final-hwae2 = d_bkpf-hwae2.
      ENDIF.
*--SIR-07541 End
Begin of SRR-22879 APARMAA
Move Vendor Name
      READ TABLE t_lfa1 WITH KEY lifnr = <ldb_data>-lifnr
                                 ASSIGNING <lfa1>
                                 BINARY SEARCH.
      IF sy-subrc EQ 0.
        MOVE:<lfa1>-name1 TO t_final-name1.
      ENDIF.
Calculate Due Date
      CALL FUNCTION 'NET_DUE_DATE_GET'
        EXPORTING
          i_zfbdt = <ldb_data>-zfbdt
          i_zbd1t = <ldb_data>-zbd1t
          i_zbd2t = <ldb_data>-zbd2t
          i_zbd3t = <ldb_data>-zbd3t
          i_shkzg = <ldb_data>-shkzg
          i_rebzg = <ldb_data>-rebzg
          i_koart = 'K'
        IMPORTING
          e_faedt = t_final-duedate.
Calculate Aging Details.
      v_aging = sy-datum - <ldb_data>-zfbdt.
      IF v_aging GE 0 AND
         v_aging LE 29.
        t_final-aging = c_0to29.
      ENDIF.
      IF v_aging GE 30 AND
         v_aging LE 59.
        t_final-aging = c_30to59.
      ENDIF.
      IF v_aging GE 60 AND
         v_aging LE 89.
        t_final-aging = c_60to89.
      ENDIF.
      IF v_aging GE 90.
        t_final-aging = c_90on.
      ENDIF.
End of SRR-22879 APARMAA
      PERFORM f_check_debit_credit_indicator USING <ldb_data>-shkzg.
      READ TABLE t_bfok_a WITH KEY bukrs = <bfok_a1>-bukrs
                                  belnr = <bfok_a1>-belnr
                                  gjahr = <bfok_a1>-gjahr
                                  buzei = <bfok_a1>-buzei
                                  ASSIGNING <bfok_a>
                                  BINARY SEARCH.
      IF sy-subrc EQ 0.
*--SRR-25731 Begin
        IF t_final-dmbtr ne <bfok_a1>-dmbtr.
          CATCH SYSTEM-EXCEPTIONS arithmetic_errors = 5.
*For other break down line items the split amount is calculated as below
            t_final-wrbtr = ( <ldb_data>-wrbtr * <bfok_a>-dmbtr )
                                 / <ldb_data>-dmbtr.
          ENDCATCH.
        ENDIF.
*--SRR-25731 End
        v_amount_sum = v_amount_sum + t_final-wrbtr.
    Move dmbtr,bmbe2,korrk fields from t_bfok_a to t_final int table
        MOVE:<bfok_a>-dmbtr TO t_final-dmbtr,
             <bfok_a>-dmbe2 TO t_final-dmbe2,
             <bfok_a>-korrk TO t_final-korrk.
      ENDIF.
Populate the status field to t_final int table
Read t_bkpf table
      READ TABLE t_bkpf WITH KEY    bukrs    = <ldb_data>-bukrs
                                    belnr    = <ldb_data>-belnr
                                    gjahr    = <ldb_data>-gjahr
                                    ASSIGNING <bkpf>
                                    BINARY SEARCH.
      IF sy-subrc EQ 0.
Read table t_rseg
        READ TABLE t_rseg WITH KEY bukrs = <bkpf>-bukrs
                                   belnr = <bkpf>-awkey+0(10)
                                   gjahr = <bkpf>-gjahr
                                   ASSIGNING <rseg>
                                   BINARY SEARCH.
        IF sy-subrc NE 0.
Populate status field with value 'F'
          t_final-status = c_f.
        ENDIF.
      ENDIF.
    PERFORM f_check_debit_credit_indicator USING <bfok_a>-shkzg.
      t_final-prctr = <bfok_a>-prctr.
      t_final-pprct = <bfok_a>-pprct.
      APPEND t_final.
      CLEAR: t_final. "t_bfok_a.
      DELETE t_bfok_a1 INDEX l_index.
    ENDIF.
ENDLOOP.
ENDFORM.                    " f_get_sum_from_bfok_a
*&      Form f_build_print_settings
in_print
FORM f_build_print_settings USING in_print TYPE slis_print_alv .
in_print-no_print_selinfos = c_flag.
in_print-no_print_listinfos = c_flag.
in_print-no_coverpage       = c_flag.
ENDFORM.                    " f_build_print_settings
*&      Form f_build_layout
   Purpose:To build ALV layout
      P_F_GRID_LAYOUT -Grid layout
     P_V_TITLE         - Title
FORM f_build_layout USING in_layout TYPE slis_layout_alv in_repid TYPE
any.
in_layout-zebra             = 'X'.
in_layout-window_titlebar   = in_repid. "Put Report Name in titlebar
in_layout-expand_fieldname = t_slis_ev_item_data_expand.
in_layout-colwidth_optimize = 'X'.       "Optimize column widths
Set Grid display settings
f_grid_settings-coll_top_p = c_flag1.
f_grid_settings-coll_end_l = c_flag1.
f_grid_settings-top_p_only = c_flag1.
f_grid_settings-eol_p_only = c_flag1.
in_layout-totals_text       = 'TOTAL:'(035).
in_layout-subtotals_text    = 'SubTotal:'(036).
ENDFORM.                    " f_build_layout
*&      Form f_build_events
     To build events
     P_T_EVENTS[] ->events
FORM f_build_events USING    p_events TYPE slis_t_event.
DATA l_f_events TYPE slis_alv_event.
CLEAR l_f_events.
l_f_events-name = 'TOP_OF_PAGE'.
l_f_events-form = 'PREPARE_ALV_HEADER_G'.
APPEND l_f_events TO p_events.
ENDFORM.                    " f_build_events
*&      Form f_display_data
   To display data
FORM f_display_data .
BUILD FIELD CATALOG
PERFORM f_fieldcat_build :
Company code
USING 'BUKRS' 'T_FINAL' ' ' ' ' ' ' 'Comp Code'(031)
Customer
USING 'LIFNR' 'T_FINAL' ' ' ' ' ' ' 'Vendor'(005)
Account Number of the Branch
USING 'FILKD' 'T_FINAL' ' ' ' ' ' ' 'Branch'(044)
General Ledger Account
USING 'HKONT' 'T_FINAL' ' ' ' ' 'X' 'Genderal Ledger Account'(027)
Adjustment Account
USING 'KORRK' 'T_FINAL' ' ' ' ' 'X' 'Adjustment Account'(053)
Document Number
USING 'BELNR' 'T_FINAL' ' ' ' ' ' ' 'Document Number'(006)
Document date
USING 'BLDAT' 'T_FINAL' ' ' ' ' ' ' 'Document date'(007)
Document type
USING 'BLART' 'T_FINAL' ' ' ' ' ' ' 'Document type'(008)
Fiscal Year
USING 'GJAHR' 'T_FINAL' ' ' ' ' ' ' 'Fiscal Year'(009)
Line item
USING 'BUZEI' 'T_FINAL' ' ' ' ' ' ' 'Line item'(010)
Reference
USING 'XBLNR' 'T_FINAL' ' ' ' ' ' ' 'Reference'(011)
*--SIR-07541 Begin
Local currency
USING 'LWAER' 'T_FINAL' ' ' ' ' ' ' 'Local Currency'(040)
*--SIR-07541 End
Amount in local currency
USING 'DMBTR' 'T_FINAL' ' ' ' ' ' ' 'Amount in local currency'(012)
' ' ' ' ' ' 'X' 'LWAER' '',
Document Currency
USING 'WAERS' 'T_FINAL' ' ' ' ' ' ' 'Document Currency'(013)
Amount in document currency
USING 'WRBTR' 'T_FINAL' ' ' ' ' ' ' 'Amount in document currency'(014)
' ' ' ' ' ' 'X' 'WAERS' '',
*--SIR-07541 Begin
2nd Local Currency
USING 'HWAE2' 'T_FINAL' ' ' ' ' ' ' '2nd Local Currency'(041)
*--SIR-07541 End
Amount in Second Local Currency
USING 'DMBE2' 'T_FINAL' ' ' ' ' ' '
'Amount in Second Local currency'(015)
' ' ' ' ' ' 'X' 'HWAE2' '',
Profit Center
USING 'PRCTR' 'T_FINAL' ' ' ' ' ' ' 'Profit Center'(016)
Partner Profit Center
USING 'PPRCT' 'T_FINAL' ' ' ' ' ' ' 'Partner Profit Center'(017)
Trading Partner
USING 'VBUND' 'T_FINAL' ' ' ' ' ' ' 'Trading Partner'(018)
Purchasing doc no
USING 'EBELN' 'T_FINAL' ' ' ' ' ' ' 'Purchasing Document number'(019)
USING 'AWKEY' 'T_FINAL' ' ' ' ' ' ' 'Reference key'(020)
Status field
USING 'STATUS' 'T_FINAL' ' ' ' ' ' ' 'Status'(021)
Clearing date
USING 'AUGDT' 'T_FINAL' ' ' ' ' ' ' 'Clearing date'(022)
' ' 'X' ' ' ' ' ' ' '',
Document Number of the Clearing Document
USING 'AUGBL' 'T_FINAL' ' ' ' ' 'X' 'Clearing Document No'(023)
' ' 'X' ' ' ' ' ' ' '',
Assignment
USING 'ZUONR' 'T_FINAL' ' ' ' ' 'X' 'Assignment'(024)
' ' 'X' ' ' ' ' ' ' '',
Posting Date
USING 'BUDAT' 'T_FINAL' ' ' ' ' 'X' 'Posting Date'(025)
' ' 'X' ' ' ' ' ' ' '',
Item Text
USING 'SGTXT' 'T_FINAL' ' ' ' ' 'X' 'Item Text'(026)
' ' 'X' ' ' ' ' ' ' '',
Payment method
USING 'ZLSCH' 'T_FINAL' ' ' ' ' 'X' 'Payment method'(028)
' ' 'X' ' ' ' ' ' ' '',
Payment Block Key
USING 'ZLSPR' 'T_FINAL' ' ' ' ' 'X' 'Payment Block Key'(029)
' ' 'X' ' ' ' ' ' ' ''.
Begin of SRR-22879 APARMAA
IF p_use EQ 'X'.
    PERFORM f_fieldcat_build :
Vendor Name
     USING 'NAME1' 'T_FINAL' ' ' ' ' ' ' 'Vendor Name'(054)
Due Date
     USING 'DUEDATE' 'T_FINAL' ' ' ' ' ' ' 'Due Date'(056)
BEGIN OF SRR 25449
    USING 'AGING' 'T_FINAL' ' ' ' ' ' ' 'Aging Details'(057)
Current
      Using 'WRBTR' 'T_FINAL' ' ' ' ' ' ' 'current'(061)
      ' ' ' ' ' ' ' ' 'WAERS' '',
31-60
      USING 'WRBTR' 'T_FINAL' ' ' ' ' ' ' '31-60'(058)
      ' ' ' ' ' ' ' ' 'WAERS' '',
61-90
      USING 'WRBTR' 'T_FINAL' ' ' ' ' ' ' '61-90'(059)
      ' ' ' ' ' ' ' ' 'WAERS' '',
>90
      USING 'WRBTR' 'T_FINAL' ' ' ' ' ' ' '>90'(060)
      ' ' ' ' ' ' ' ' 'WAERS' ''.
END OF SRR 25449
ENDIF.
End of SRR-22879 APARMAA
BUILD SORT CATALOG
PERFORM f_sortcat_build :
SORT BY COMPANY CODE
USING '01' 'BUKRS' 'T_FINAL' 'X' 'X',
SORT BY Venodr Number
USING '01' 'LIFNR' 'T_FINAL' 'X' 'X',
SORT BY Document Number
USING '01' 'BELNR' 'T_FINAL' 'X' ' ',
SORT BY Fiscal Year
USING '01' 'GJAHR' 'T_FINAL' 'X' ' '.
   IF p_list = 'X'.
*GENERATE CLASSIC LIST LAYOUT
    PERFORM f_call_alv_list_view1.
ELSEIF p_grid = 'X'.
*--GENERATE CLASSIC GRID LAYOUT
    PERFORM f_call_alv_grid_viewer1.
ENDIF.
ENDFORM.                    " f_display_data
*&      Form f_fieldcat_build
To build field catelog
FORM f_fieldcat_build USING    l_fieldname TYPE slis_fieldname
                               l_tabname   TYPE slis_tabname
                               l_reftab    LIKE dd03p-tabname
                               l_reffield LIKE dd03p-fieldname
                               l_outputlen TYPE any
                               l_seltext_l LIKE dd03p-scrtext_l
                               l_hotspot   TYPE c
                               l_no_out    TYPE c
                               l_no_zero   TYPE c
                               l_do_sum    TYPE c
                               l_cfldname TYPE char30
                               l_col_pos   LIKE sy-cucol.
*LOCAL DATA
DATA : l_wa_fieldcat LIKE LINE OF t_field_catalog.
l_wa_fieldcat-fieldname     = l_fieldname.
l_wa_fieldcat-tabname       = l_tabname.
l_wa_fieldcat-outputlen     = l_outputlen.
l_wa_fieldcat-hotspot       = l_hotspot.
l_wa_fieldcat-no_out        = l_no_out .
l_wa_fieldcat-no_zero       = l_no_zero .
l_wa_fieldcat-do_sum        = l_do_sum .
l_wa_fieldcat-cfieldname    = l_cfldname.
l_wa_fieldcat-col_pos       = l_col_pos.
*--SIR-07541 Begin
IF l_fieldname = 'DMBTR'.
    l_wa_fieldcat-cfieldname = 'LWAER'.
ENDIF.
IF l_fieldname = 'WRBTR'.
    l_wa_fieldcat-cfieldname = 'WAERS'.
ENDIF.
IF l_fieldname = 'DMBE2'.
    l_wa_fieldcat-cfieldname = 'HWAE2'.
ENDIF.
*--SIR-07541 End
IF NOT l_seltext_l IS INITIAL.
    l_wa_fieldcat-seltext_l     = l_seltext_l.
ELSE.
    l_wa_fieldcat-ref_fieldname = l_reffield.
    l_wa_fieldcat-ref_tabname   = l_reftab.
ENDIF.
APPEND l_wa_fieldcat TO t_field_catalog.
CLEAR l_wa_fieldcat.
ENDFORM.                    " f_fieldcat_build
*&      Form f_sortcat_build
     To sort the catelog
FORM f_sortcat_build USING l_spos      LIKE alvdynp-sortpos
                             l_fieldname TYPE slis_fieldname
                             l_tabname   TYPE slis_tabname
                             l_up        TYPE c
                             l_subtot    TYPE c.
LOCAL DATA
DATA: l_sort TYPE slis_sortinfo_alv.
l_sort-spos      = l_spos.
l_sort-fieldname = l_fieldname.
l_sort-tabname   = l_tabname.
l_sort-up        = l_up.
l_sort-subtot    = l_subtot.
APPEND l_sort TO t_sortcat.
CLEAR l_sort.
ENDFORM.                    " f_sortcat_build
*&      Form f_call_alv_list_view1
    To call alv_list_display
FORM f_call_alv_list_view1 .

Hi-
This might help you
http://help.sap.com/saphelp_nw2004s/helpdata/en/2a/fa0115493111d182b70000e829fbfe/frameset.htm
Chandra.

GL account Document Currency

Hi specialist
I have an issue that is not resolve yet.
User create one Gl account using the transaction FS00. THey included in the currency EUR. After that they generate some postings with the currency CHF.
IT was in January 2012.
After that they change the currency of the GL account from EUR to CHF in the transaction FS00. But they dont generate any extra posting in the GL account.
THe situation is when I am going to the transaction FAGLB03 I have the Icon change display currency where I can find:
- Document currency
- COmpany code currency
- Group currency
My problem is that all currency type description is in EUR. I CANT see the document currency like CHF just like EUR.
why is it possible?
Someone can help me to solve it?
THanks

In FAGLB03 show only currency of EUR since the GL master is ticked with "only balances in local currency".
YJ

Display the document currency instead display Currency in Report

Similar Messages

Maybe you are looking for