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 Kumar

Hello ,
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

Similar Messages

  • 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.Ganesan

    Hi,
    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

  • Account currency does not match document currency

    Hi,
    We are using SAP Business ONE 2005 A PL 50.  After having created an invoice in USD for an export customer, the payment is made in the local currency amount. When trying to do the incoming payment in the local currency we get Sap error message 173-66 " ACCOUNT CURRENCY DOES NOT MATCH THE DOCUMENT CURRENCY". Is there a way we can do the incoming payment in local currency?
    Thanks,
    Monil

    Hiii Monilshah
    Please check this link for your settings
    https://websmp101.sap-ag.de/~form/sapnet?_FRAME=CONTAINER&_OBJECT=011000358700000610242007E
    thanks
    Rizz

  • 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
    Rajanikanth

    we have cancelled all the documents and re-entered in USD and paid in USD.
    Thanks
    Rajanikanth

  • 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,
        Michael

    Hi,
    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

  • Local Currency vs Document currency

    Hi,
    I have a question,
    what is the difference b/w Local Currency and Document Currency.
    Thanks,
    Pria

    HI Pria...
    Local currencey is Company specific...for different companies there will be different local currency...
    Document currency is related to FI...Currency in which a document is posted........
    And as per SD.....Currency in which the total values in a sales and distribution document are calculated.
    As per BI....
    In SAP systems, every amount key figure is stored with respect to a currency key field. There are several
    types of currency keys on OLTP data. The two most important currency types are the document (or
    transaction) currency (BI InfoObject 0DOC_CURRCY) and the local (or company code) currency (BI
    InfoObject 0LOC_CURRCY. The document currency is entered for each posting transaction of an OLTP
    document-type record (for example financial documents), whereas the local currency is uniquely assigned to a company code when the OLTP system is customized.
    So, the local currency can be used as a common currency for cross-application BI reporting (that is a
    common reporting currency). Besides the document currency, every record within the final InfoProviders of the BI system should contain the local currency and the corresponding amounts with respect to the local currency.
    Check this...
    https://www.sdn.sap.com/irj/scn/go/portal/prtroot/docs/library/uuid/dc43c445-0d01-0010-23a1-ca348ff5f975
    Regards,
    Debjani...

  • %GT 'Document Currency Amount' takes care of automatic currency exchange?

    We created a formula KF of %GT 'Document Currency Amount'.  Let's assume we've got two records: 1st record with US dollars, 2nd record with Canadian dollars, then the KF column would show the correct percentage number for the %GT 'Document Currency Amount'?  or in other words, the currency exchange would be automatically taken care of by the %GT 'Document Currency Amount'  when displaying the result?
    Thanks!

    I know this does not work with quantities (e.g., mix of LB and KG), so I assume it also does not work with currencies. If not, you will have to do the currency conversion on the Document Currency Amount first, then the %GT should be correct. To do this, I would suggest adding a new kf (e.g., "Document Currency Amount in USD") where the currency conversion is done on the Properties screen, then change your formula kf to %GT 'Document Currency Amount in USD'.
    Hope this helps...
    Bob

  • 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,
    NormaF

    Hi:
        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

  • 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.

  • 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

  • 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

  • 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

  • F.19 GR/IR Clearing basic on purchase order document currency

    Dear All,
          At the close at the month , We are doing  F.19. On GL account are book value of GR without invoices. The document entry is
    in company currency , For example : purchase document currency is USD and company currency is EUR , During F.19 running ,
    Document entry take USD as the original currency.I would like to know  Is possible book this AP (GR without invoices) in document
    currency EUR ? Thanks in advance.
    Vicki.Li

    Hi YJ,
         Thanks for your reply. But we run F.19 GR/IR Clearing basic on G/L account (accounts payable-non IR-
    productive) but not PO . Hereby, Is it possible to change some configuration setting or user exist that during we run F.19 system
    defalt the PO document currency as original currency ?
    Best Regards
    Vicki.Li

  • Amount in local currency showing different value

    Hi,
    I have one issue where document currency and local currency are same(USD).
    After posting the customer document in USD say 1000.00, when i goto FBL5N to check the open items the report is showing the difference of 0.44 (1000.44) in Amount in Local Currency column.
    I received payment of 1000.00 usd from the customer.
    At the time of clearing the system showing 0.44 difference.
    Please guide me how to resolve this issue.
    Regards,
    Krishna Kishore

    Hi,
    Not yet. Temporarily i am charging off this difference to expense account.
    Regards,
    Krishna Kishore

  • TDS Amount in Local currency and document currency

    Dear All,
    When we deduct TDS amount on Vendor Transactions in foreign currency, the TDS amount is dispalyed only in document curreny(Foreign currency) in T.Code "FBL1N".
    Now We want to see the TDS amount in local currency in T.Code "FBL1N". layout when we post TDS transactions in foreign currency(USD). B,caz there is no such fields "Withholding tax amount in local currency" in the change layout.
    So, Plz advise me whether it is possible or not ? If Yes, explain me.
    If you have any query, plz do let me know.
    Thanks in Advance.
    Regards,
    Kumar.D

    Hi Prasad,
    In Logistics Invoice Verification, when you enter an invoice in foreign
    currency, the system automatically translates the foreign currency
    amounts to local currency. The system calculates the exchange rate using
    the following rule:
    1.If the buyer entered a fixed exchange rate in the purchase order, the
    system uses this rate to translate the amounts to local currency.
    2.If an exchange rate was entered in Invoice Verification, the system
    uses this rate to translate the amounts to local currency.
    3.If an exchange rate was entered neither in the purchase order nor in
    Invoice Verification, the system uses the exchange rate pre-defined in
    Customizing for Financial Accounting valid for the posting date.
    Exchange Rate Differences
    If a purchase order is entered in foreign currency,the amounts are
    translated from foreign currency into local currency at goods receipt.
    If you enter the invoice for the purchase order in the foreign currency,
    this can lead to currency translation differences between the goods
    receipt and the invoice receipt.
    How these differences are posted depends on how your system is
    configured in Customizing for Invoice Verification
    Exchange Rate Rounding Differences
    When an invoice is posted in a foreign currency, the amounts are translated into local currency.Since the system rounds off the amounts in each posting line, this can lead to rounding differences due to the currency translation.
    These differences are posted to an expense or income account.
    Addition in transaction OB22 for the second local currency, it should be defined 'Translation taking transaction currency as a basis' is defined.
    Pls. also  refer to note:335608  Trnsln of 2nd and 3rd lcl crcy fm 1st lcl/trns crcy.
    I hope the above information helps you out......
    Best Regards,
    Gladys Xing

Maybe you are looking for