Wrong Document Currency
Dear Experts,
I have two company codes 1111 and 2222, and first company codes uses USD as local currency, 2nd will use GBP as local currency.
And i did one asset transfer with Tcode ABT1 from CC 1111 to 2222. As per asset accounting we cannot use any specific document currency right?
Since this posting will take place in the respective local currencies only in both the company codes.
So when i go to doc display for doc in CC 1111, it is showing values in USD..so its correct
But when i am opening the doc in CC 2222, it is showing values in EUR instead of GBP, and values in EUR also showing as 0.00 for all the GL accounts, when i shift to local currency, it is showing correct values as it suppose to show in doc currency also.
Is it a program error or something else...please clarify?
Thanks,
Srinu
Hi,
It was a program error and we did informed SAP on OSS.
Then they have released one SAP note to rectify the issue.
Note 1167547 - Incorrect document currency after transfer using ABT1
So our issue has been solved
Thanks,
Srinu
Similar Messages
-
2LIS_02_SCL extractor is delivering wrong document currency amount
Dear all,
We are currently trying to get the invoiced amount of a purchase order in the document currency (of the invoice). While extracting the Purchasing Orders via the 2LIS_02_SCL we discover that the invoiced amount in document currency (BWGEOO) is wrong (if document currency is not matching local currency). However the invoiced amount in local currency (BWGEO) is correct.
It seems that the BWGEOO is calculated from the local currency field by using the PO header exchange rate (EKKO-WKURS). If we take the exchange rate (RBKP-KURSF) from the invoice header and apply it on the extracted invoiced amount in local currency, we get the correct value.
- Does anyone have some information how the extractor is working (which source table is taken into account)?
- Why is the local currency matching and the document currency not?
- Do you have experienced the same issue? Do you have any solution for this problem?
Thank you.
Regards,
MichaelHi,
There are several Notes around this issue, but none of them is solving our problem:
856004 Invoice value and GR value in extractor 2LIS_02_SCL
838670 Net value for BWGEO and BWGEOO
833209 BWGEO and BWGEOO values
The field BWGEOO is delivering a cost based value in document currency out of the PO. This means it is calculating it (quantity * net price). But we needed the actual invoiced amount out of FI.
We found a work-around for this System Design issue. We are going to extract the exchange rate out of the invoice header and apply it to the invoiced amount (REWERT) out of the 2LIS_02_SCL extractor.
Logic to extract it is:
Join the Document Header: Invoice Receipt (RBKP) with the Document Item: Incoming Invoice (RSEG) on Invoice document number (BELNR) and Fiscal Year (GJAHR) key fields. Out of the Item table the purchase order document number (EBELN) and the PO item number (EBELP) can be derived. The exchange rates need to be loaded out of the header (KURSF).
Does anyone of you have additional documentation/information on how the LO extractors (e.g. 2LIS_02_SCL) are working and especially the details of the values (and the definition) out of the extractor?
Thank you.
Regards,
Michael -
Cost in document currency is displaying wrong values
Hi Experts,
We have observed for some of the documents in VF03, cost is coming wrong.
Scenario :
When we are going to VF03 screen Cost in document currency is some value, when we click on the material and go to condition tab and then come back to previous screen, Cost in document currency is some other value.
For Ex : For Billing Document A, intially Cost - 1000 when we clikc on the material and go to condition table and then come back, then the cost - 500.Document type is Z document type. For only some documents we are getting this kind of error.
Kindly help me on this.
Thanks and Regards,
Zakir Appas AHi kavi,
Purge your cache in rpd and try to see the grand total once again. For me data is displaying properly now. -
FBL5N problem in document currency
Hi all,
In the transaction FBL5N , the amount in document currency is posting data as 0.58 instead of 58.00. could you please suggest any SAP notes for this problem or any other solution?
thanks,
saranyaHi
Check the settings in SPRO related to currency
since this is a std transaction to display the Customer line items
there should be something wrongly entered somewhere..
Reward points for useful Answers
Regards
Anji -
Zero amount in document currency
Hi,
I'm looking for if I could fill a zero amount in WRBTR field, in document currency.
My customer would like to fill a zero amount in GBP currency in company with a local currency in EUR. So he would like to entry a zero amount in document currency and 0.01 EUR in amount in local currency. But when I try to fill the zero amount, SAP change the amount with 0.01. Thus it's not correct for him.
May I change the customizing to force SAP and accept my value ?
Thank for any helps.
Gilles.Hi ,
You can post by this way. And the postings in f-05 will be in the manner as shown below-
Doc curr(GBP) Company currency(EUR)
GL Acct Dr 00 0.01
GL Acc Cr. 00 0.01
I had already done this in one scenario , where due to wrong exchange rate difference had arisen. Do this with the help of F-05. Please note here that DR here is equal to credit for both currency, what you are doing is overwriting the exchange rate.
I hope now I have made clear how you need to post the entry in detail. If any query please revert back.
Thanks
Milind Sonalkar -
What is document currency?
Hi,
can any body here explain me what is document currency?
i searched in SDN and Help portal of SAP, could not find proper definition for it!
my hunch is that it is a default currency type that would be used in the BW system,
if u have not declared any of the translation types at any stage of the data modelling.
correct me and explain me if it is wrong!
Thanks,
Ravidoc is posted?i really did not get the meaning!
Every transaction in SAP is recognised in SAP by document. Each document has an unique number defined in the numebr range for that document type. The currecy in which a document is posted in R/3 is called document currency. Document posting in SAP means document entry into the system to record a ttransaction; example positng a FI document, customer's invoice, posting a vendor invoice, posting a journal, positng a depreciation entry for an asset and so forth.
my question was: why we are selecting document currency type only, if u have so many unit/currency types available in the defintion! is there any specific reason for selecting certain currecny type? there must be. right?
Yes. There may be a business reason for selecting the doc currency; you can find this out in your business requirements document or functional specs document.
since in our case, the source system is self, is this has anything to do with the currency type?
If the source system is self, ( that means BW , right), where from it got the original data. That original data would have carried curr type in it.
and what about the rest of the types available in the definition of currency type key figure like local currency,purchase order currency,approver currency etc---
Rest of the types like PO currency, group currency, local currency, consolidation currency, controlling area, company code currr may be used deoending on the requirements and business relevance.
Ravi Thothadri -
Amount in Local Currency is showing 0 if document currency having 124,50 dollars ?
Hi,
I have an issue were the documents are posted using t code CJ88 for settlement between different company codes. In such case the document are posted in USD were the company code local currency is CAD. The document is displaying the local currnecy amount as 0 even when the document currency is 124,50 dollars. The document header part is showing the exchange rate but the system not considered any exchange rate.
I have checked the exchange rate as per the details in the document as Translation date. but system not considered it.
No where the exchange rate is given as 0.
I think while posting using CJ88 we cant modify the local currency amount.
The settlement rule is perfect nothing wrong in it.
Please advice. Attached a scrrenshot.
Thanks in advance
M.Shiva KumarHello ,
Logically speaking ,if there is stock , then u should have the cost/price.
If u create a new material , & then the first stock is acquired via procurement , then u need not maintain the MAP/SP.
BUT , if u create a new material & need to upload some existing stock , u need to maintain the MAP/SP so that the system knows the valuation of the stock.
While doing a GR through PO , the system picks the valuation form PO ( & also updates the material master MAP) , but for initial entry there is no reference & hence system takes the MAP from material master
Hope this helps
Regards
Anis -
Document currency and exchange rate processing question during order entry
Hi Gurus,
I have an issue where all our price records are stored in currency USD. When we take an order for a country that requires pricing to be in an alternate currency, the document currency is changed during order entry. This results in any price condition records retrieved through the condition techique to get converted correctly per the exchange rate. However we have conditions that are calculations off of the conditions retrieved using condition formulas. For example we have a condition which represents 90% of our list price. List price is retrieved in USD as 10.00 USD and converted to alternate currency 63.40 TTD with an exchange rate of 6.34, but our calculation dollar value remains in USD but displays the alternate currency as 9 TTD, should be 57.06 TTD . We are using standard pricing formulas. I know I can call a conversion function within my formula to get it right, however, is this correct system behavior? I expected standard SAP to convert all price results leveraging exchange rate into document currency. Any guidance will be appreciated.
MattHi,
I went through the problem and still feel that there is somethign wrong in the routine which is used. You can confirm this by removing the routine from the condition type in the PP, and manually entering the value for the c.type in SO in USD and then check if the value is coming correctly in document currency. If the translation is happening for one condition type correctly and not correctly for another condition type, it should be the issue only with the routine.
Pls check the scenario without the routine and check once and accordingly update the situation. -
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 -
GR/IR amount Diffrences between MIRO and MIGO for Document currency
Dear Friends,
I have one issue in MIRO Document posting, I will explain the issue by below steps.
1. I have created Purchase Order with option "Exchange rate fixed" and my PO Exchange rate is 1.8700
Purchase order details
Quantity - 2, Price - 23,376.85 and Total PO value - 46,753.70 EUR ( Document currency), local currency is SGD
2. We posted Single Goods Receipts entry for the above PO and system took exchange rate from PO (1.87)
GR Accounting document value - 46753.70
3. We have create two invoice documents for the above single Goods Receipts.
First invoice posted with correct value and accounting entries are below
Debit - GRIR Clearing account - 23, 376.85 EUR - 43,714.71 SGD
Debit - Material account - 0.00 EUR - 2272.23 SGD
Credit - Vendor account - 23, 376.85 EUR - 45,986.94 SGD
4. Problem in Second invoice posting only, Refer below accounting entries
Debit - GRIR Clearing account - 29,221. 06 EUR - 43,714.71 SGD
Debit - Material account - 0.00 EUR - 4219.52 SGD
Credit - Vendor account - 23, 376.85 EUR - 45,986.94 SGD
Credit - Material account - 5844.21 EUR - 0.00 SGD
Now my questions is why system posted extra one credit line item with value 5844.21 EUR for second invoice, I tried to simulate this same situation again. but I couldnt get this extra line item for credit.
Please advice and guide me.
Thanks & Best Regards,
M.GanesanHi,
Both Invoice header details Exchange rate is followed by Exchange rate table. But it did conversion based on PO Exchange rate.
We didn't maintain Exchange rate type EURO for the currency EUR to SGD.
Normally system will post the exchange differences in local currency not in Document currency.
Thanks & Best Regards,
M.Ganesan -
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-MingHi
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 -
SAP table for customer account balances by document currency
Hi experts,
We have a requirement to produce a monthly customer statement by customer currency or customer's document currency. Example is that the company code local currency is USD and the customer currency is EUR. The customer will be allowed to carry over a balance to next period under a certain threshold so there will be a carry over beginning balance from the previous period which needs to appear on the statement. Transaction FD10N only displays customers balances in the local or company code currency which is USD in this example.
Question: Does anyone know if there is an SAP table that stores period beginning balances by customer account currency or customer's document currency?
We have not been able to find one and want to get additional input prior to building our own custom table.
Many thanks in advance for your assistance.
Regards,
NormaFHi:
Make use of BAPI_AR_ACC_GETKEYDATEBALANCE to calculate customer opening balance. You need to develop Z report using table BSID and BSAD other SD related tables . There is not SAP standard report that shows the customer opening balance as carried forward from previous month.. You can make alteration for for showing balances in document currency.
Regards -
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. -
F110 proposal (Open items include document currency and Local Currency)
Hi All,
I have a vendor for which there are 20 open items, out of which there are credit memo's as well as vendor invoices. Vendor is a Newzealand vendor.
Invoices details are given below:
1) some of the credit memo's have Amount in NZD and the corresponding Amount in LC (Local currency, in our case USD)
2) some of the credit memo's have Amount in USD only.
3) some of the Invoices have Amount in NZD and the corresponding Amount in LC (Local currency, in our case USD)
4) some of the Invoices have Amount in USD only.
When user ran a F110 proposal for this vendor and we are trying to pay in USD, all the open items went into exceptions.
In the proposal the amount for the document, it gives the amount which are in NZD (Or the document currency amount).
Please let me know how to proceed without having these invoices into exceptions and to pay these invoices in USD.
Thanks
Rajanikanthwe have cancelled all the documents and re-entered in USD and paid in USD.
Thanks
Rajanikanth -
S_ALR_87012085 document currency
Hi experts,
I want to know if report with S_ALR_87012085 transaction can display amounts in document currency in case when currency is different to local currency.
I run this report but all amounts displayed are in local currency, so I changed the selection parameters and select "currency=EUR", but it does not work, the report is displayed the same information in local currency and EUR amounts are changed to local currency.
Anybody can help me?
Regards,Liliana,
Você já deu uma olhada no relatório RFKOPR00_NACC (acesse este programa através da transação SE38)?
Espero ter colaborado.
Abraços,
Daniel.
Maybe you are looking for
-
Why can't I buy the E52 in white?
It's listed as an available colour on the website but I can only buy the ugly aluminium through the Nokia online store. Pretty stupid listing four different available colours when you can only buy one. Is there any other way I can purchase this phone
-
having trouble with layer clipping masks - I guess I've never really used them before. I want to make a clipping mask from a layer but that layer has more than one path on it. It doesn't seem to be working. Does it need to be a single one? Can I use
-
Need help creating form that people have to submit to access a page
hello, I am trying to create a form that people would have to fill out and submit to access a specific page. The info they fill out would have to go to an email address. Does anyone have the simplest solution for this? It wouldn't have to be stored i
-
Error in BAPISDORDER_GETDETAILEDLIST
Hi All- When I try to execute the function module BAPISDORDER_GETDETAILEDLIST online, its giving me the following error: Sold-to party 32259 not maintained for sales area 0600 01 H2. But I could see the entries available in database tables VBAK and V
-
I have a problem with my IPod 4g when I update softwear iPod say an error occurred download ios6. All so I try it on iTunes same happen what I have to do