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

Similar Messages

  • Amount in document currency & group currency is different

    dear all,
    In my company i have been activated material ledger & parallel currency. I want to make sure is my setting is correct or not and i want give the example:
    <b>Material master data:</b>
    MAV material :
    Company code currecny : 20000 IDR
    Group currency : 2 USD
    <b>Purchase Order (foreign currency)</b>
    PO currency : 2 USD
    Qty order : 10 PC
    <b>Result of FI document on GR transaction(Exchange rate : 9000):</b>
    Document Currency
    Inventory 22,22 USD 200000 IDR
    GR/IR 20 USD 180000 IDR
    ML 2,22 USD 20000 IDR
    Group Currency
    Inventory 20 USD 200000 IDR
    GR/IR 20 USD 180000 IDR
    ML 20000 IDR
    My assumption, calculate to get amount inventory in document currency & group currency is different,
    Document currency:
    <u>Previous MAV (IDR) * Qty GR</u>
    Current Exchange rate
    Group Currency :
    Previous MAV (USD) * Qty GR
    My question is it correct, amount in document currency & group currency is different. If not correct there is other config to setting that.
    Thanks for your help..

    see if you have maintain the PO in the some other currency and your local currency is different from the Po currency  and if you have maintain in the excahnge rate for the same then the system will calculate the price in both currency and yoy can choose <b>1SAP Amount in document and local currency</b>  and if you want to display in the group currency  then maintain the exchange rate and  craete the layout and save that you can display in that cureency while you do the invoice  the system will show the accounting documents in that way on chossing the correct layout.
    Regards
    sunny

  • Amount in document currency and amount local currency in F-65

    hi everybody
    im doing a functional spec whereby we are getting a text file which contains data for tcode F-65
    Im wondering if we can transfer amount in document currency and amount in local currency data by writing a program or we have to transfer only amount in document currency and SAP calculates amount in local currency
    plz advise

    i know that
    but the users dont want SAP to convert the document amount, you see
    they want the data uploaded to appear on the screen i.e.
    if document amount is 5000 and local amount is 3500 in the file, they want these values to be uploaded
    and not that document amount 5000 is uploaded and the local amount is calculated by SAP

  • In F-02 Screen,Tax Amount in Document Currency area....

    Hı Friends,
    In F-02 screen,I use the 40 posting key and choose an expense account,and when I enter,I can't see the "Tax Amount" field in First line item area...
    How can I get this field?
    thank you very much...
    Edited by: Ozgur ERKAN on Aug 1, 2009 1:07 PM

    Hi,
    Use T. code OB41 to see field status of Tax amount field of posting key and if suppressed make it as optional then and also check T.code FS00 to see Field status group of G/L account and activate Tax amount field against field status group if suppressed make it optional T. code OBC4 that is used against particular G/L account for your field status variant that can be seen through T. code OBC5 against your company code.

  • Difference between local amount and document amount in the same currency

    Dear All,
    Why different between local amount and document amount with the same currency in some FI document line items? Both currency is 'TWD' and update currecy(BSEG-PSWSL) is 'USD'.
    What is the purpose of update currency(BSEG-PSWSL) and update amount(BSEG-PSWBT) ?
    Does update curreny cause the difference mentioned above?
    Thanks all in advance.
    Best regards,
    SAP user

    Dear Sir,
    Thanks for your kindly response!
    These fields of the FI document header are following:
    Local currency 1(BKPF-HWAER) : TWD
    Local currency 2(BKPF-HWAE2) : null
    Local currency 3(BKPF-HWAE3) : null
    Document currency (BKPF-WAERS) : TWD
    Transcation currency means which field ?
    Transaction code (BKPF-TCODE) : FB1S
    The line items as following :
    Itm PK Account    Account  short text   Amount
    1   40   21302500  A/E-Maintenance     1,119,350
    2   50   21302500  A/E-Maintenance     1,119,350-
    Amount in document currency is 1,119,350(TWD) but amount in local currency is 1,087,998(TWD).
    The line item's additional data :
    Amount for Updating in General Ledger : 33,894.02(USD)
    Thanks a lot !!
    Best regards,
    SAP user

  • 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

  • Display Financial Statement (S_ALR_87012284) in document currency amount

    I would like to display financial statement in document currency amount. (T-CD:S_ALR_87012284)
    Does anyone know how to do this?
    I don't want to use the special evaluation tab of that T-CD, as it is requested to specify
    rate and Key date for translation.  I just want to display the amount in document currency.

    Hi Ramanuja,
    I meant that for the fiscal year 2009 G/L accounts don't have any values in SAP.
    In this Company SAP has been installed in 2010 and in Financial Statements I'd like to obtain the comparison with the values of 2009.
    What to do?
    Thanks

  • 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

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

    Hi
    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

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

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

  • Report painter- Amount in Document currecy instead of LC

    Hi,
       Am new to report painter. i created report painter in FDI4. this report is to display the due amount.
       when i click on table cell, which is amount field . Am chosen cell type as  'Select with Key figure' option .
       After then i try to select key figure for that cell (Popup:Element definition).
       In F4 selection there is only one Key figure which is Amount in LC.
       I need to display the field value as Amount in Document currency.
       How to bring Amount in Docment curreny in that F4. Is it possible.
      I didnt get any thread related to my requirement in SDN.
      pl help.

    Solved by myself..
    Two steps to be taken to bring Amount in Doc. currency as a key figure(F4 help).
    1. Added new field 'WRSHB' , data element for this field WRSHB_D (Used Append Structure) in RFRRD20 structure. FDI4 used this structure only.
    2. create new entries in TKAF table under application class Account receivable FBRD. field value WRSHB ,data element  value WRSHB_D, and others field value are as same as DMSHB record.
    After these steps, now u check in FDI4 tcode.  U can get Amt in doc. currency as key figure.

  • Document currency in cube but not in the getting in query out put

    Hi Gurus,
    I am in production.... my query is regarding account receivable( which is user defined ie., is custom )  i am able to see amount in document currency in cube but is not appering when i excute the query ...
    And i am to get the output amount in local currency ( i am getting ) amount in document ( not getting )
    and revalution amount ( not getting )---- which is cal key fig 
    and finally   Amount FAS ( not getting ) ---  which is Restricted key fig
    Gurus Please suggest ..........

    Hi,
    The fields in the report
    customer
    HFC code
    doc Number
    business divison
    sales order
    country
    profit center
    customer number compounded with company code
    customer payment terms
    reference
    documennt type
    document date
    net due date
    G/L Account comp cpde
    item  Status
    Document currency
    Account in Local currency
    Amount  in Document currency
    filters are
    compay code
    controling area
    Business Division
    Free char
    Controling area
    account type
    clearing Doc Number
    Ref Key 2
    Fical year
    Fiscal year / period
    interunit / outside
    Posting Date
    Leading BD ( Wbs Attr)
    in rows
    customer
    doc number
    business divison
    sales order
    country
    profit center
    customer bumber compounded with company code
        under this we have customer payment terms
    Reference
    document type
    document date
    Net due date
    G/L Account Comp code
    item status
    Document Currency
    In columns
    i am selecting
    Amount  in local currency
    amount Document currency
    Revaluation amount
    Amount in FAS

  • FB50 - Amount in Local Currency

    Gurus,
    When we use the transaction FB50, on the first screen the field u2018Amount in local currencyu2019 is grayed out. This field becomes editable when we double-click the entered line item. Since this involves additional steps, our requirement is to make the field editable in the first screen itself (like when we use transaction F-02).
    Is this possible and if yes, how. I have tried transaction FB00 but could not make the field editable in the first screen.
    Thanks & Regards,
    Sameer S. Gupte

    Hello,
    It is not possible
    Based on the Currency and Amount in document currency that you have entered in FB50, the amount is local currency gets calculated.
    Regards,
    Ravi

  • LSMW RFBIBL00 withholding tax base amount in local currency cannot be updated by manual

    Hi SAP Guru,
    When I try to upload FI docs by program RFBIBL00 in LSMW, the field BWITH-WT_QSSHH(withholding tax base amount in local currency) cannot be updated.
    (1) The LSMW structure is defined as bellow:
         BGR00<--------DOC_HEAD
              BBKPF<--------DOC_HEAD
                   BBSEG<--------DOC_ITEM
                        BWITH <--------DOC_WHTX
    And fields in structure BWITH are defined as bellow:
    Field Name
    Type
    Length
    Field Description
    STYPE
    C
    1
    Batch Input Interface Record Type
    WITHT
    C
    2
    Withholding tax type
    WT_WITHCD
    C
    2
    Withholding tax type
    WT_QSSHB
    C
    21
    W/tax base amount in document currency (batch input
    field)
    WT_QSSHH
    C
    21
    W/tax base amount in Local currency (batch input
    field)
    (2) When I run LSMW, the doc can be posted successfully. All the information can be updated as the data I upload. Only the field WT_QSSHH is calculated by system automatically according to the current foreign exchange rate.
    (3) When I try to post this doc by manual(F-02), the field WT_QSSHH is not editable.
    How can I change the field WT_QSSHH into editable and update this field in LSMW RFBIBL00.
    Thank you very much!
    Eric

    Hi Nikitha,
    I tried posting an invoice in currency other then co. code currency, but the WT amount is getting calculated perfectly.
    also checked vendor with foreign curr recon account. the WT is working for that also
    Can you please share the screen shot of the transaction where after changing currency you are not getting the values picked up for WT
    May be i have not understood your questions
    Regards
    Pragya

Maybe you are looking for

  • IDES ECC6.0 including EHP4 on 32 bit machine

    MARKUS, I am installing IDES ECC6.0 including EHP4 on 32 bit machine.. I came to know from the following ( Note 1379040 - IDES ERP 6.0 ECC 6.0 incl. EHP4) that i cannot install IDES ECC6.00 on 32 bit,but i can install via system copy method.. I follo

  • Can't connect to Windows 7 Machine

    Hello All, I'm getting increasingly frustrated with this issue! I have a Mac Pro running 10.8.4 that I'm trying to connect to a Windows 7 machine. I need to transfer lots of files from this Mac to the Windows 7 machine as it will be replacing it even

  • Preview logic

    Just got new MBP 2,33 Gz ...wow As a couple to Mac Pro hoped my workflow would be as planned - fault. Asuming that on MDP I will keep just all library previews, while original library will sited on desktop. Importing all projects generating preview t

  • Partner Functions - Vendor

    Hi Friends, Bussines senario :  i am procuring material from New Delhi. my endor having plants in haryana and Chennai. i rasie PO for New delhi (adres) in PO. but goods supplied from Haryana. vendor 1 : new delhi Vendor 2 : haryana In po Vendor 1 mai

  • Error 14 in iphone 4

    hello everyone, i m having problem with my iphone 4. When i restore r update it through itunes, it shows an error of "Error 14".