Difference in FD10n and FBL5n balance

Hi,
I have problem with those two reports, they show different balance.
I think it is because balance from the 2007 havenu2019t been u201Ccarried-forwardu201D to 2008.
How can I do that for the Customeru2019s account ? I am looking for a similar transaction as f.16 for GL.
regards,
Rafal Pojda

Hi
The transaction is F.07
Thanks

Similar Messages

Difference between FD10N and FBL5N

Hi,
Out of almost 180 customers,for 7 customers the FBL5N and FD10N does not tally.In every case the FBL5N balance is lesser than FD10N.There is no difference in parameters as I am going to FBL5N simply by drilling down into FD10N.
We feel that the difference has been caused in the closing Jan,12 bal as closing bal of DEc,11 was not c/f.Is this the real reason?
Cna anyone please suggest how to rectify this situation.Its much appreciated.
Thanks a lot.

Under T code FD10N - you can view the customer ledger for a particular Fiscal year i.e accounting year only. Any transaction beyond the period will not be reflected in this screen.
Under T code FBL5N - You have an independent view of the ledger irrespective of time period. However you can restrict you view by selecting a particular period view. Moreover in this screen you can also customize you view by open, cleared and all item view.
The difference reflecting in the both the view id due to the transactions beyond the fiscal year. Any payment or sale after the end of fiscal year will not reflect in FD10N view.
Hope this makes you clear.
Thanks

Difference between Clustering and Load balancing

          What is the difference between Clustering and Load balancing?
          For example, We use Cisco Arrowpoint to do load balancing and it works fine for 3
          Sun solaris boxes/WebLogic 6.1 SP1.
          So what is the value addition to buy clustering license?
          Thanks
          Selvaraj


Hi.
          Among other things, clustering allows you to share app data (such as http session
          data) across cluster members, allowing you to failover should one cluster member
          crash.
          If your app is stateless then this doesn't mean much - load balancing alone would
          probably be ok for you.
          Regards,
          Michael
          Selvaraji wrote:
          > What is the difference between Clustering and Load balancing?
          >
          > For example, We use Cisco Arrowpoint to do load balancing and it works fine for 3
          > Sun solaris boxes/WebLogic 6.1 SP1.
          >
          > So what is the value addition to buy clustering license?
          >
          > Thanks
          >
          > Selvaraj
          Michael Young
          Developer Relations Engineer
          BEA Support

FD10N and FBL5N Reports are not matching

Hi,
When i execute FD10N FBL5N reports for customer balance, Both are showing different balances, why they are not matching with each other?
My FBL5N open item blance is not matching with FD10N.what could be the reason?
Is there any other report to show customer opening balances other than FD10N?
thaanks

Dear Dogdays
This is selection parameters problems- means please check once again what you selected check boxes and also check for Dates what you given
To check both the above cases, FD10N for the year you see the difference. Double click on the balance value for the period where you have seen the difference. The double click will call FBL5N for the period and customer. If the total of the line item report matches the balance in FD10N, then the issue is selection criteria
Regards
shankar

Diff between FD10N and FBL5N for cust acts-Steps to find the mising entries

Hi,
My recent post on this has been answered.We have brought forwrad the customer balances again and the issue is now resolved.
However can anyone please give the steps(with Tcodes) to find out:
1.The date on which the customer balance was brought forward from previous year
2.The date on which GL balances were b/f from previous year
3.How do we find the customer entries which were posted after the balances were brought forward.
Your response will be much appreciated.
Thanks and Regards

Dear,
Customers - FD10N
Vendors - FK10N
GL Accounts - FS10N / FAGLB03
Fiscal year = 2012 if April to March 2011
After entering by giving GL / Customer / Vendor.......doub;e click on *** balance.......against Bal.Carryforward. (First line)
Bal.Carryforward ................................ 472.00
It will show the line items with carry forward date
Thanks
Edited by: nkonnipati on Feb 26, 2012 6:10 AM
Edited by: nkonnipati on Feb 26, 2012 7:50 AM

DIfference in closing and Opening Balance in Cash journal

Dear ALL
in facing problem in cash journal
in my cash journal closing balance showing Rs.2,10,200:00 04/12/2006
where as opening balance is showing Rs.2,10,100:00 on 05/12/2006
what could be the problem ?
can any one Explain
Regards,
choudary

Please refer SAP note no.377853

Difference in the Balance between FS10N and Customer Balances in Local Curr

Hi,
When i am trying to match the Balances between FS10N and Customer Balances in Local Currency for the Period 8, we are getting the difference, The reconcilliaton Account was changed on 30.08.2010.
Please help Us in tracing the differences between FS10N and Customer Balances in Local Currency.
What could be the possible reasons for the differences..
Thanks

Hi Varshani,
Please use the program/report SAPF070 to compare or reconcile your AR with GL balances. You can use SAPF071 to correct any inconsistencies. Provided below documentation for these programs.
SAPF070 - Compare Documents and Account Transaction Figures
Description
This program compares debit and credit transaction figures in customer, vendor, and G/L accounts with the debit and credit totals from documents posted in the corresponding posting period (accounting reconciliation). The sales totals are also compared for customer and vendor accounts. There is no separate comparison for special G/L transactions.
A comparison for G/L accounts can be made in company code currency and in parallel currencies (such as group currency). A comparison for customer and vendor accounts can only be made in company code currency.
After the program has finished, a message is issued to the user that started the program. This message summarizes the results of the reconciliation.
Output
The program compares the totals of an account on a periodic basis. If the debit and credit total differs between account and documents, the account is printed with the debit and credit totals and the difference.
Differences in G/L accounts are shown per transaction currency. The first line shows the amount in local currency, the second line shows the amounts in transaction currency.
If a document which falls within the selection range is posted during the program run, the program is terminated since a reliable result can no longer be delivered.
SAPF071 - Adjust Balances after Comparing Documents/Transaction Figures
Description
If a financial accounting comparative analysis (SAPF190) or a comparison of documents and transaction figures (SAPF070) shows that there are differences between documents and transaction figures, you can use this program to make an adjustment. The documents form the basis for this adjustment. The program adjusts the (redundant) transaction figures, which are only totals of amounts from documents.
Requirements
All of the following listed requirements must be fulfilled:
1. A financial accounting comparative analysis (SAPF190) or a comparison of documents and transaction figures (SAPF070) must be made, and differences must be found between documents and transaction figures.
2. There must not be any inconsistent documents found. These are listed in both SAPF070 and SAPF190 as well as in this program.
3. There cannot be any problems in the other modules. Caution: You have to check this yourself. Financial Accounting may be correct but the other modules may not be, and this will adversely affect the program run.
4. You can only make the adjustment in the ledgers which are compared by program SAPF070. This is ledger 00 or a user-defined ledger for all parallel local currencies except the group currency. (The program displays these ledgers). You have to adjust any additional ledgers as well as average balance ledgers yourself.
5. No documents during the period in which you are adjusting transaction figures can be archived. Caution: You must ensure that these documents are not archived by establishing appropriate organizational rules and procedures.
Only use this program after consulting with SAP or after checking the prerequisites thoroughly.
You should adjust all differences together for a single company code. By setting the program parameters you can limit the adjustment to G/L currency types or to balances in subledgers.
It is advisable to execute a test run first, which will list any differences that are found.
Further notes - Authorizations
Repair program authorization group (F_005)
Company code authorization (F_BKPF_BUK)
Thanks
Venkata Ganesh Perumalla
Edited by: Venkata Ganesh Perumalla on Sep 28, 2010 1:30 PM

GL balances differences between Year end closing and opening balances

Hi friends,
One GL account balances showing differences between year end closing & year opening balances.
Example: 2006 closing balance is 250000 $
2007 opening balance is 150000 $
difference is 100000 $ . why should coming like this. already completed balances carryforward (F.16) in 2006 & 2007 year.
any programe for this solution ?
One more point is just 2 days back i posted 2 entries for 2006 year equal to 100000 $ . after this entries shall we need go for F.16 (carry forwarded balances).
please do the needful. It is very urgant issue.
Raj

HI,
There shouldn't be any more postings to a GL Account once Balance carry forward has been executed.
If postings have been made then you should execute the Balance carry forward again, otherwise you will see difference in opening and closing GL balance (as mentioned by you).
Regards

Opening and closing balance difference is showing from 2010 to 2011 F.year

Dear All,
Opening and closing balance difference is showing for Main Cash(Cash in h)
End of fiscal year 2010 closing Balance 85,451,909.70
Opening Balance 2011 is showing as 85,450,909.70
Rs 1000 difference is coming.
Please suggest if any Note is there?

Hi,
Somes after year end for audit / management adjustment entries postings done with previous year.
Execute N no of times Balance carry forward T.Code: FAGLGVTR until you get your closing balances & opening balances are the same. it is not harm to execute again & again.
up to 4.7EE for balance transfer you can use T.Code:F.16 from ECC 5 / 6 use tcode for balance transfer FAGLGVTR
Regards,
Viswa
Edited by: viswanatha s on Nov 4, 2011 12:54 PM

Difference in closind balance and opening balance of GL account

Hi,
There is a difference in Closing balance and opening balance of GL account, which is an realisation account, is there any way to find out the reason of the difference.
Previous year balance was transfered to this year by T f.16.
Please support.

HI Vikas,
If it is not too late..check the SAP note # 176067.
Atleast, it might help some one else working on a similar issue.
Hope this helps.
-Pradeep

Difference between F.35 Receivables amount and FBL5N report open items

Hi All,
There is an amount difference between f.35 receivables amount and fbl5n open items amount, I have observed that there are some changes to credit master like risk category and credit representative group, so I thought if we run f.28 it will be right but still difference exits.
If anybody has come across similar issue or if you have any idea on this on how to analyze, please let me know.
Regards,
RK.

Hi ,
Please check the time horizon in credit check used. then compare it with FBL5n.
May be there will be difference in comparison period.
Program RFDKLI20 or F.28 is to run when there is changes in Assignment from company code, entry in customer master data, entry in sales area data, user exit., currency of credit control area , Assignment of customers to credit accounts.
And
Program RVKRED09.--> only the risk class was changed it is sufficient to run
Regards
Atul

Difference between G/L Account Balance and PCA Balance

Friends,
After executing KE5T for the period 6 we are seeing a difference in the G/L a/c balance figures and the profit center figures for 2 balance sheet accounts. In one case the PCA balance figures are greater than the G/L a/c balance figures and vice versa in the 2nd case.
What is the procedure to be followed in such cases? Is there any standard program that can identify the postings that are causing the differences?
Please confirm at your earliest.
Thanks & Regards,
Sameer S. Gupte

Eli,
Thanks for the reply.
However, the note 126910 specifically mentions that it is not to be used for balance sheet account balances transferred to PCA using 1KEK.
Can you please advise about reconciling differences between PCA and balance sheet accounts.
Thanks & Regards,
Sameer S. Gupte

Balance difference between GL and Asset

Hi Exps,
I found the balance differences between asset and gl throu transaction ABFST2.
how to know from where the differences will come in assets and GL? if found how to adjust the differences?
Soma

any suggetions please...
If i retire the asset in current period, what is the parameters to take to retire the asset? asset cap.date: 01.11.2004, life time: 5 Yrs. Dep.rate:20%.
system is not allowing to transfer with value date on 01.02.2004. for this case which value date i should take? if i transfer this to new asset with current date, what is the life time and depreciation. depreciation is taken as over rem.life pro rata to zero.
Soma

Opening Balances and Closing Balance of customer

Hi,
Does SAP provide any standard customer account statement for Opening Balances and Closing Balance for specific date range have given in selection screen?
The statement also contains reference number, order, and Delivery number.
Note: FBL5N Transaction code will not sufficient for the requirement, so looking for any other transaction code / report provided by SAP already for it.
Thanks in advance,
Shwetha

Hi,
There are several standard reports which could be easily accessed through the menu (Accounts Receivable - Information systems). If none of these reports does not suit your requirement, you have to develop your own.
Regards,
Eli

Performance Issue For Opening And Closing Balance In FBL1N/3N/5N

Dear experts,
                    I Am Having Requirement to Bring Opening And Closing Balance In FBL1N, FBL3N, FBL5N.
For This requirement I Used BADI : FI_ITEMS_CH_DATA~CHANGE_ITEMS, below is my Code For FBL1N, And I've Done the same For 3N/5N...With Related BAPI
*   IF SY-TCODE = 'FBL1N'.
*    LOOP AT ct_items INTO gs_items.
*      CALL FUNCTION 'RP_CALC_DATE_IN_INTERVAL'
*        EXPORTING
*          date      = gs_items-budat
*          days      = '01'
*          months    = '00'
*          signum    = '-'
*          years     = '00'
*        IMPORTING
*          calc_date = lv_date.
*      CALL FUNCTION 'BAPI_AP_ACC_GETKEYDATEBALANCE'
*        EXPORTING
*          companycode        = gs_items-bukrs
*          vendor             = gs_items-konto
*          keydate            = lv_date
**   BALANCESPGLI       = ' '
**   NOTEDITEMS         = ' '
** IMPORTING
**   RETURN             =
*        TABLES
*          keybalance         = lv_obal.
*      CALL FUNCTION 'BAPI_AP_ACC_GETKEYDATEBALANCE'
*        EXPORTING
*          companycode        = gs_items-bukrs
*          vendor             = gs_items-konto
*          keydate            = gs_items-budat
**   BALANCESPGLI       = ' '
**   NOTEDITEMS         = ' '
** IMPORTING
**   RETURN             =
*        TABLES
*          keybalance         = lv_cbal
*      READ TABLE lv_cbal INTO gs_cbal INDEX 1.
*      gs_items-cbal = gs_cbal-lc_bal.
*      READ TABLE lv_obal INTO gs_obal INDEX 1.
*      gs_items-obal = gs_obal-lc_bal.
*      MODIFY ct_items FROM gs_items TRANSPORTING obal cbal.
*      CLEAR: gs_items,gs_obal,gs_cbal.
*    ENDLOOP.
*   ENDIF.
So, Above Code Causing Me the Performance Issue, Kindly Suggest Me the Solution..
Regards,
uday.

Hi Uday,
I am sending you the code i used for the creation a Zreport based on FBL5N. Please check if it can of any help.
*& Report ZFBL5N                                                      *
REPORT zfbl5n_new .
TABLES : bsid,knc1,lfc1.
TYPE-POOLS: slis.
TYPES: BEGIN OF ty_bsid,
          bukrs TYPE bsid-bukrs,
          kunnr TYPE bsid-kunnr,
          belnr TYPE bsid-belnr,
          buzei TYPE bsid-buzei,
          bldat TYPE bsid-bldat,
          blart TYPE bsid-blart,
          bschl TYPE bsid-bschl,
          shkzg TYPE bsid-shkzg,
          dmbtr TYPE bsid-dmbtr,
          augdt TYPE bsid-augdt,
          augbl TYPE bsid-augbl,
          zuonr TYPE bsid-zuonr,
          sgtxt TYPE bsid-sgtxt,
          zfbdt TYPE bsid-zfbdt,
          zterm TYPE bsid-zterm,
          zbd1t TYPE bsid-zbd1t,
          zbd2t TYPE bsid-zbd2t,
          zbd3t TYPE bsid-zbd3t,
          kkber TYPE bsid-kkber,
          bstat TYPE bsid-bstat,
          umskz TYPE bsid-umskz,
        END OF ty_bsid.
TYPES: BEGIN OF ty_bsik,
         bukrs TYPE bsik-bukrs,
          lifnr TYPE bsik-lifnr,
          belnr TYPE bsik-belnr,
          buzei TYPE bsik-buzei,
          bldat TYPE bsik-bldat,
          blart TYPE bsik-blart,
          bschl TYPE bsik-bschl,
          shkzg TYPE bsik-shkzg,
          dmbtr TYPE bsik-dmbtr,
          augdt TYPE bsik-augdt,
          augbl TYPE bsik-augbl,
          zuonr TYPE bsik-zuonr,
          sgtxt TYPE bsik-sgtxt,
           zfbdt TYPE bsik-zfbdt,
*         KKBER TYPE bsik-kkber,
          zterm TYPE bsik-zterm,
           zbd1t TYPE bsik-zbd1t,
          zbd2t TYPE bsik-zbd2t,
          zbd3t TYPE bsik-zbd3t,
          bstat TYPE bsid-bstat,
          umskz TYPE bsid-umskz,
        END OF ty_bsik.
TYPES: BEGIN OF ty_final,
          belnr TYPE bsid-belnr,
*         buzei TYPE bsak-buzei,
          bldat TYPE bsid-bldat,
          blart TYPE bsid-blart,
          chq TYPE bsid-zuonr,
          debit TYPE bsid-dmbtr,
          credit TYPE bsid-dmbtr,
          txt TYPE bsid-sgtxt,
          date TYPE bsid-zfbdt,
          kkber TYPE bsid-kkber,
          zterm TYPE bsid-zterm,
          augbl TYPE bsid-augbl,
          augdt TYPE bsid-augdt,
          flag TYPE c,
        END OF ty_final.
TYPES : BEGIN OF gs_openbal,
          bukrs TYPE bapi3007_2-comp_code,
          kunnr TYPE bapi3007_2-customer,
          dmbtr TYPE bapi3007_2-lc_amount,
         END OF gs_openbal.
DATA: it_bsid TYPE STANDARD TABLE OF ty_bsid,
       it_bsik TYPE STANDARD TABLE OF ty_bsik,
       it_final TYPE STANDARD TABLE OF ty_final.
DATA: wa_bsid TYPE ty_bsid,
       wa_bsik TYPE ty_bsik,
       wa_final TYPE ty_final.
DATA: w_days TYPE t5a4a-dlydy,
       w_month TYPE t5a4a-dlymo,
       w_year TYPE t5a4a-dlyyr,
       w_date TYPE p0001-begda,
       w_name1 TYPE kna1-name1,
       w_ort01 TYPE kna1-ort01,
       w_lifnr TYPE kna1-lifnr,
       w_dmbtr1 TYPE bsid-dmbtr,
       w_dmbtr2 TYPE bsid-dmbtr,
       w_dmbtr3 TYPE bsad-dmbtr,
       w_dmbtr4 TYPE bsad-dmbtr,
       w_opbal TYPE bsid-dmbtr,
       w_credit TYPE bsik-dmbtr,
       w_debit TYPE bsik-dmbtr,
       w_clobal TYPE bsik-dmbtr,
       w_credit1 TYPE bsik-dmbtr,
       w_debit1 TYPE bsik-dmbtr,
       w_clobal1 TYPE bsik-dmbtr.
DATA: ld_yrper LIKE rwcoom-fiscper,
       kunnr LIKE kna1-kunnr,
       x_norm TYPE c,
       x_park,
       x_apar,
       x_merk,
       ok_code(4),
       wa_x001 LIKE x001,
       return LIKE bapireturn,
       line_count LIKE sy-loopc,
       number_of_records TYPE i,
       xindex LIKE sy-tabix,
       open LIKE knc1-um01s,
       temp(20),
       close LIKE knc1-um01s,
       gjahr LIKE bsid-gjahr,
       period LIKE bkpf-monat,
       f(1),
       v_char(2),
       closec(20),
       openc(20),
       debit LIKE bapi3007_2-lc_amount,
       credit LIKE debit.
DATA : v_dmbtr LIKE bsid-dmbtr.
*DATA : tot_debit LIKE t_ar-debit,
*       tot_credit LIKE t_ar-credit.
DATA : t_kna1 LIKE kna1 OCCURS 1 WITH HEADER LINE,
        t_knb1 LIKE knb1 OCCURS 10 WITH HEADER LINE.
DATA ibsid LIKE bsid OCCURS 0 WITH HEADER LINE.
DATA ibsad LIKE bsad OCCURS 0 WITH HEADER LINE.
DATA ibsik LIKE bsik OCCURS 0 WITH HEADER LINE.
DATA ibsak LIKE bsak OCCURS 0 WITH HEADER LINE.
DATA : it_fieldcat_alv   TYPE slis_t_fieldcat_alv,
        wa_fieldcat_alv     TYPE slis_fieldcat_alv,
        is_layout_alv TYPE slis_layout_alv,
        wa_layout_alv TYPE slis_layout_alv,
        it_list_top_of_page TYPE slis_t_listheader,
        it_events TYPE slis_t_event,
        wa_events TYPE LINE OF slis_t_event.
DATA : BEGIN OF ibukrs OCCURS 0,
           bukrs LIKE t001-bukrs,
          END OF ibukrs.
DATA : BEGIN OF ikunnr1 OCCURS 0,
          kunnr LIKE knc1-kunnr,
         END OF ikunnr1.
DATA : BEGIN OF ikunnr OCCURS 0,
           kunnr LIKE knc1-kunnr,
           bukrs LIKE t001-bukrs,
           lifnr LIKE lfc1-lifnr,
          END OF ikunnr.
DATA: it_sort TYPE slis_t_sortinfo_alv,
       wa_sort TYPE slis_sortinfo_alv.
DATA:    r_bschl TYPE RANGE OF bschl,
          wa_bschl LIKE LINE OF r_bschl.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS : p_kunnr TYPE bsid-kunnr OBLIGATORY,
              p_bukrs TYPE bsid-bukrs OBLIGATORY.
SELECT-OPTIONS: so_budat FOR bsid-budat .
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.
PARAMETERS : p_normal AS CHECKBOX,
              p_spl    AS CHECKBOX,
              p_vendor AS CHECKBOX.
SELECTION-SCREEN END OF BLOCK b2.
PERFORM get_data.
PERFORM process_data.
*PERFORM calculate_openbal. " Commented by anish
PERFORM calculate_open_bal.
PERFORM calculate_closing_bal.
PERFORM build_catalog_sort USING it_sort.
PERFORM reuse_alv_events_get .
PERFORM display_data.
*&      Form GET_DATA
*       text
* --> p1        text
* <-- p2        text
FORM get_data .
   SELECT bukrs kunnr belnr buzei bldat blart bschl shkzg dmbtr augdt augbl zuonr sgtxt zfbdt zterm zbd1t zbd2t zbd3t kkber
     bstat umskz FROM bsid
     INTO TABLE it_bsid
     WHERE bukrs = p_bukrs
      AND kunnr = p_kunnr
      AND budat IN so_budat.
   SELECT bukrs kunnr belnr buzei bldat blart bschl shkzg dmbtr augdt augbl zuonr sgtxt zfbdt zterm zbd1t zbd2t zbd3t kkber
    bstat umskz FROM bsad
    APPENDING TABLE it_bsid
    WHERE bukrs = p_bukrs
     AND kunnr = p_kunnr
     AND budat IN so_budat.
   SELECT SINGLE name1 ort01 lifnr FROM kna1
     INTO (w_name1 , w_ort01 , w_lifnr)
     WHERE kunnr = p_kunnr.
   IF p_vendor IS NOT INITIAL.
     SELECT bukrs lifnr belnr buzei bldat blart bschl shkzg dmbtr augdt augbl zuonr sgtxt zfbdt zterm zbd1t zbd2t zbd3t
     bstat umskz   FROM bsik
     APPENDING TABLE it_bsik
     WHERE bukrs = p_bukrs
       AND lifnr = w_lifnr
       AND budat IN so_budat.
     SELECT bukrs lifnr belnr buzei bldat blart bschl shkzg dmbtr augdt augbl zuonr sgtxt zfbdt zterm zbd1t zbd2t zbd3t
     bstat umskz FROM bsak
    APPENDING TABLE it_bsik
    WHERE bukrs = p_bukrs
      AND lifnr = w_lifnr
      AND budat IN so_budat.
   ENDIF.
   SORT it_bsid BY bschl.
   DELETE it_bsid WHERE bschl = '04'.
   DELETE it_bsid WHERE bschl = '07'.
   DELETE it_bsid WHERE bschl = '17'.
   DELETE it_bsid WHERE bschl = '34'.
   DELETE it_bsid WHERE bschl = '27'.
   DELETE it_bsid WHERE bschl = '37'.
   SORT it_bsik BY bschl.
   DELETE it_bsik WHERE bschl = '04'.
   DELETE it_bsik WHERE bschl = '07'.
   DELETE it_bsik WHERE bschl = '17'.
   DELETE it_bsik WHERE bschl = '34'.
   DELETE it_bsik WHERE bschl = '27'.
   DELETE it_bsik WHERE bschl = '37'.
ENDFORM.                    " GET_DATA
*&      Form PROCESS_DATA
*       text
* --> p1        text
* <-- p2        text
FORM process_data .
   DATA:okay       TYPE c VALUE space.
   w_month = '00'.
   w_year = '00'.
   SORT it_bsid BY bldat .
   LOOP AT it_bsid INTO wa_bsid.
     PERFORM check_item_ok USING p_normal
                                  p_spl
                                  p_vendor
*                               x_park
                                  wa_bsid
                            CHANGING okay.
     CHECK okay = 'X'.
     wa_final-belnr = wa_bsid-belnr.
     wa_final-bldat = wa_bsid-bldat.
     wa_final-blart = wa_bsid-blart.
     wa_final-txt = wa_bsid-sgtxt.
     wa_final-kkber = wa_bsid-kkber.
     wa_final-zterm = wa_bsid-zterm.
     wa_final-augbl = wa_bsid-augbl.
     wa_final-augdt = wa_bsid-augdt.
     wa_final-flag = 'C'.
     IF wa_bsid-blart = 'DZ'.
       wa_final-chq = wa_bsid-zuonr.
     ENDIF.
     IF wa_bsid-shkzg = 'S'.
       wa_final-debit = wa_bsid-dmbtr.
     ELSEIF wa_bsid-shkzg = 'H'.
       wa_final-credit = wa_bsid-dmbtr.
     ENDIF.
     w_credit = w_credit + wa_final-credit.
     w_debit = w_debit + wa_final-debit.
****** Net due date
     IF wa_bsid-zbd1t IS NOT INITIAL.
       w_days = wa_bsid-zbd1t.
     ELSEIF wa_bsid-zbd2t IS NOT INITIAL.
       w_days = wa_bsid-zbd2t.
     ELSEIF wa_bsid-zbd3t IS NOT INITIAL.
       w_days = wa_bsid-zbd3t.
     ENDIF.
     IF w_days IS INITIAL.
       wa_final-date = wa_bsid-zfbdt.
     ELSE.
       CALL FUNCTION 'RP_CALC_DATE_IN_INTERVAL'
         EXPORTING
           date      = wa_bsid-zfbdt
           days      = w_days
           months    = w_month
           signum    = '+'
           years     = w_year
         IMPORTING
           calc_date = w_date.
       wa_final-date = w_date.
     ENDIF.
     APPEND wa_final TO it_final.
     CLEAR: w_days , w_date , wa_final .
   ENDLOOP.
   IF it_bsik IS NOT INITIAL.
     CLEAR: w_days , w_date.
     SORT it_bsik BY bldat.
     LOOP AT it_bsik INTO wa_bsik.
       wa_final-belnr = wa_bsik-belnr.
       wa_final-bldat = wa_bsik-bldat.
       wa_final-blart = wa_bsik-blart.
       wa_final-txt = wa_bsik-sgtxt.
*    wa_final-kkber = wa_bsik-kkber.
       wa_final-zterm = wa_bsik-zterm.
       wa_final-augbl = wa_bsik-augbl.
       wa_final-augdt = wa_bsik-augdt.
       wa_final-flag = 'V'.
       IF wa_bsik-blart = 'DZ'.
         wa_final-chq = wa_bsik-zuonr.
       ENDIF.
       IF wa_bsik-shkzg = 'S'.
         wa_final-debit = wa_bsik-dmbtr.
       ELSEIF wa_bsik-shkzg = 'H'.
         wa_final-credit = wa_bsik-dmbtr.
       ENDIF.
       w_credit1 = w_credit1 + wa_final-credit.
       w_debit1 = w_debit1 + wa_final-debit.
******* Net Due date
       IF wa_bsik-zbd1t IS NOT INITIAL.
         w_days = wa_bsik-zbd1t.
       ELSEIF wa_bsik-zbd2t IS NOT INITIAL.
         w_days = wa_bsik-zbd2t.
       ELSEIF wa_bsik-zbd3t IS NOT INITIAL.
         w_days = wa_bsik-zbd3t.
       ENDIF.
       IF w_days IS INITIAL.
         wa_final-date = wa_bsik-zfbdt.
       ELSE.
         CALL FUNCTION 'RP_CALC_DATE_IN_INTERVAL'
           EXPORTING
             date      = wa_bsik-zfbdt
             days      = w_days
             months    = w_month
             signum    = '+'
             years     = w_year
           IMPORTING
             calc_date = w_date.
       ENDIF.
       wa_final-date = w_date.
       APPEND wa_final TO it_final.
       CLEAR: wa_final.
     ENDLOOP.
   ENDIF.
ENDFORM.                    " PROCESS_DATA
*&      Form DISPLAY_DATA
*       text
* --> p1        text
* <-- p2        text
FORM display_data .
   wa_fieldcat_alv-fieldname = 'BELNR'.
   wa_fieldcat_alv-tabname = 'IT_FINAL'.
   wa_fieldcat_alv-seltext_l = text-003.
   wa_fieldcat_alv-outputlen = '11'.
   APPEND wa_fieldcat_alv TO it_fieldcat_alv.
   CLEAR wa_fieldcat_alv.
   wa_fieldcat_alv-fieldname = 'BLDAT'.
   wa_fieldcat_alv-tabname = 'IT_FINAL'.
   wa_fieldcat_alv-seltext_l = text-004.
   wa_fieldcat_alv-outputlen = '13'.
   APPEND wa_fieldcat_alv TO it_fieldcat_alv.
   CLEAR wa_fieldcat_alv.
   wa_fieldcat_alv-fieldname = 'BLART'.
   wa_fieldcat_alv-tabname = 'IT_FINAL'.
   wa_fieldcat_alv-seltext_l = text-005.
   wa_fieldcat_alv-outputlen = '02'.
   APPEND wa_fieldcat_alv TO it_fieldcat_alv.
   CLEAR wa_fieldcat_alv.
   wa_fieldcat_alv-fieldname = 'CHQ'.
   wa_fieldcat_alv-tabname = 'IT_FINAL'.
   wa_fieldcat_alv-seltext_l = text-006.
   wa_fieldcat_alv-outputlen = '09'.
   APPEND wa_fieldcat_alv TO it_fieldcat_alv.
   CLEAR wa_fieldcat_alv.
   wa_fieldcat_alv-fieldname = 'DEBIT'.
   wa_fieldcat_alv-tabname = 'IT_FINAL'.
   wa_fieldcat_alv-seltext_l = text-007.
   wa_fieldcat_alv-outputlen = '15'.
   wa_fieldcat_alv-do_sum = 'X'.
   APPEND wa_fieldcat_alv TO it_fieldcat_alv.
   CLEAR wa_fieldcat_alv.
   wa_fieldcat_alv-fieldname = 'CREDIT'.
   wa_fieldcat_alv-tabname = 'IT_FINAL'.
   wa_fieldcat_alv-seltext_l = text-008.
   wa_fieldcat_alv-outputlen = '15'.
   wa_fieldcat_alv-do_sum = 'X'.
   APPEND wa_fieldcat_alv TO it_fieldcat_alv.
   CLEAR wa_fieldcat_alv.
   wa_fieldcat_alv-fieldname = 'TXT'.
   wa_fieldcat_alv-tabname = 'IT_FINAL'.
   wa_fieldcat_alv-seltext_l = text-009.
   wa_fieldcat_alv-outputlen = '50'.
   APPEND wa_fieldcat_alv TO it_fieldcat_alv.
   CLEAR wa_fieldcat_alv.
   wa_fieldcat_alv-fieldname = 'DATE'.
   wa_fieldcat_alv-tabname = 'IT_FINAL'.
   wa_fieldcat_alv-seltext_l = text-010.
   wa_fieldcat_alv-outputlen = '12'.
   APPEND wa_fieldcat_alv TO it_fieldcat_alv.
   CLEAR wa_fieldcat_alv.
   wa_fieldcat_alv-fieldname = 'KKBER'.
   wa_fieldcat_alv-tabname = 'IT_FINAL'.
   wa_fieldcat_alv-seltext_l = text-011.
   wa_fieldcat_alv-outputlen = '04'.
   APPEND wa_fieldcat_alv TO it_fieldcat_alv.
   CLEAR wa_fieldcat_alv.
   wa_fieldcat_alv-fieldname = 'ZTERM'.
   wa_fieldcat_alv-tabname = 'IT_FINAL'.
   wa_fieldcat_alv-seltext_l = text-012.
   wa_fieldcat_alv-outputlen = '13'.
   APPEND wa_fieldcat_alv TO it_fieldcat_alv.
   CLEAR wa_fieldcat_alv.
   wa_fieldcat_alv-fieldname = 'AUGBL'.
   wa_fieldcat_alv-tabname = 'IT_FINAL'.
   wa_fieldcat_alv-seltext_l = text-013.
   wa_fieldcat_alv-outputlen = '15'.
   APPEND wa_fieldcat_alv TO it_fieldcat_alv.
   CLEAR wa_fieldcat_alv.
   wa_fieldcat_alv-fieldname = 'AUGDT'.
   wa_fieldcat_alv-tabname = 'IT_FINAL'.
   wa_fieldcat_alv-seltext_l = text-014.
   wa_fieldcat_alv-outputlen = '17'.
   APPEND wa_fieldcat_alv TO it_fieldcat_alv.
   CLEAR wa_fieldcat_alv.
   wa_fieldcat_alv-fieldname = 'FLAG'.
   wa_fieldcat_alv-tabname = 'IT_FINAL'.
   wa_fieldcat_alv-tech = 'X'.
   APPEND wa_fieldcat_alv TO it_fieldcat_alv.
   CLEAR wa_fieldcat_alv.
   CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
    EXPORTING
      i_callback_program             = sy-repid
      is_layout                      = wa_layout_alv
      it_fieldcat                    = it_fieldcat_alv
*   IT_EXCLUDING                   =
*   IT_SPECIAL_GROUPS              =
      it_sort                        = it_sort
      it_events                      = it_events
      i_save                            = 'A'
     TABLES
       t_outtab                       = it_final
    EXCEPTIONS
      program_error                  = 1
      OTHERS                         = 2
   IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
   ENDIF.
* CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
*    EXPORTING
*      i_callback_program                = sy-repid
*     i_callback_top_of_page            = 'TOP_OF_PAGE'
*      is_layout                         = wa_layout_alv
*      it_fieldcat                       = it_fieldcat_alv
*      it_sort                           = it_sort
***   I_DEFAULT                         = 'X'
**      i_save                            = 'A'
***   IT_EVENTS                         =
*     TABLES
*       t_outtab                          = it_final
*    EXCEPTIONS
*      program_error                     = 1
*      OTHERS                            = 2
* IF sy-subrc <> 0.
*** MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
***         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
* ENDIF.
ENDFORM.                    " DISPLAY_DATA
*&      Form TOP_OF_PAGE
*       Header at top of page.
FORM top_of_page.
   SKIP 1.
   WRITE: AT 35 'Account Statement from' , so_budat-low , 'to' , so_budat-high.
   SKIP 2.
   WRITE: AT /5 'CUSTOMER:' , p_kunnr.
   WRITE: AT 35 'Name:' , w_name1.
   WRITE: AT /5 'Company:' , p_bukrs.
   WRITE: AT 35 'City:' , w_ort01.
   SKIP 1.
   WRITE: AT /5 'Opening Balance as on' , so_budat-low , '   ' , w_opbal LEFT-JUSTIFIED.
   SKIP 2.
ENDFORM.                    "TOP_OF_PAGE
*&      Form END_OF_PAGE
*       Footer at End of page.
FORM end_of_page.
   SKIP 2.
   IF so_budat-high IS NOT INITIAL.
     WRITE: AT 5 'Closing Balance as on' , so_budat-high , '   ' , w_clobal LEFT-JUSTIFIED.
   ELSE.
     WRITE: AT 5 'Closing Balance ' , w_clobal LEFT-JUSTIFIED.
   ENDIF.
ENDFORM.                    "end_of_page
*&      Form CALCULATE_OPENBAL
*       text
* --> p1        text
* <-- p2        text
FORM calculate_openbal .
   DATA:v_gjahr       TYPE bsid-gjahr.
   DATA: v_period LIKE t009b-poper,v_monat LIKE t001-periv.
   CALL FUNCTION 'FI_PERIOD_DETERMINE'
          EXPORTING
               i_budat        = so_budat-low
               i_bukrs        = p_bukrs
*           I_PERIV        = ' '
*           I_GJAHR        = 0000
*           I_MONAT        = 00
*           X_XMO16        = ' '
          IMPORTING
               e_gjahr        = v_gjahr
*            e_monat        = v_monat
               e_poper        = v_period.
   IF sy-subrc NE 0.
   ENDIF.
   DATA: f_date LIKE sy-datum.
   CALL FUNCTION 'FIRST_DAY_IN_PERIOD_GET'
     EXPORTING
       i_gjahr = v_gjahr
       i_monmit = 00
       i_periv = 'V3'
       i_poper = v_period
     IMPORTING
       e_date   = f_date.
   period = v_period - 1.
   gjahr = v_gjahr.
   DATA wa_kna1 LIKE kna1.
   CALL FUNCTION 'READ_KNA1'
     EXPORTING
       xkunnr         = p_kunnr
     IMPORTING
       xkna1          = wa_kna1
     EXCEPTIONS
       key_incomplete = 1
       not_authorized = 2
       not_found      = 3
       OTHERS         = 4.
   IF sy-subrc <> 0.
     MESSAGE w023(zwww).
     CALL SCREEN 0010.
   ENDIF.
   MOVE-CORRESPONDING wa_kna1 TO t_kna1.
   APPEND t_kna1.
   SELECT kunnr FROM kna1 INTO TABLE ikunnr1
     WHERE kunnr = p_kunnr.
   SELECT bukrs FROM t001 INTO TABLE ibukrs
    FOR ALL ENTRIES IN t_knb1
    WHERE bukrs = t_knb1-bukrs.
   LOOP AT ikunnr1.
     LOOP AT ibukrs.
       ikunnr-kunnr = ikunnr1-kunnr.
       ikunnr-bukrs = ibukrs-bukrs.
       READ TABLE t_kna1 WITH KEY kunnr = ikunnr1-kunnr.
       ikunnr-lifnr = t_kna1-lifnr.
       APPEND ikunnr.
     ENDLOOP.
   ENDLOOP.
   DELETE ikunnr WHERE bukrs NE p_bukrs.
   LOOP AT ikunnr.
     CLEAR: knc1,lfc1,f.
     IF NOT ( ikunnr-kunnr IS INITIAL ) AND NOT ( p_vendor IS INITIAL ).
       SELECT SINGLE * FROM lfc1
              WHERE gjahr = gjahr AND bukrs = ikunnr-bukrs
                                  AND lifnr = ikunnr-lifnr.
     ENDIF.
     SELECT SINGLE * FROM knc1
       WHERE gjahr = gjahr AND bukrs = p_bukrs
             AND kunnr = p_kunnr.
     IF sy-subrc = 0.
       CASE period .
         WHEN 12.
           open = knc1-umsav +
           knc1-um01s - knc1-um01h + knc1-um02s - knc1-um02h +
           knc1-um03s - knc1-um03h + knc1-um04s - knc1-um04h +
           knc1-um05s - knc1-um05h + knc1-um06s - knc1-um06h +
           knc1-um07s - knc1-um07h + knc1-um08s - knc1-um08h +
           knc1-um09s - knc1-um09h + knc1-um10s - knc1-um10h +
           knc1-um11s - knc1-um11h + knc1-um12s - knc1-um12h.
           IF NOT ( lfc1 IS INITIAL ).
             open = open + lfc1-umsav +
             lfc1-um01s - lfc1-um01h + lfc1-um02s - lfc1-um02h +
             lfc1-um03s - lfc1-um03h + lfc1-um04s - lfc1-um04h +
             lfc1-um05s - lfc1-um05h + lfc1-um06s - lfc1-um06h +
             lfc1-um07s - lfc1-um07h + lfc1-um08s - lfc1-um08h +
             lfc1-um09s - lfc1-um09h + lfc1-um10s - lfc1-um10h +
             lfc1-um11s - lfc1-um11h + lfc1-um12s - lfc1-um12h.
           ENDIF.
         WHEN 11.
           open = knc1-umsav +
           knc1-um01s - knc1-um01h + knc1-um02s - knc1-um02h +
           knc1-um03s - knc1-um03h + knc1-um04s - knc1-um04h +
           knc1-um05s - knc1-um05h + knc1-um06s - knc1-um06h +
           knc1-um07s - knc1-um07h + knc1-um08s - knc1-um08h +
           knc1-um09s - knc1-um09h + knc1-um10s - knc1-um10h +
           knc1-um11s - knc1-um11h.
           IF NOT ( lfc1 IS INITIAL ) .
             open = open + lfc1-umsav +
             lfc1-um01s - lfc1-um01h + lfc1-um02s - lfc1-um02h +
             lfc1-um03s - lfc1-um03h + lfc1-um04s - lfc1-um04h +
             lfc1-um05s - lfc1-um05h + lfc1-um06s - lfc1-um06h +
             lfc1-um07s - lfc1-um07h + lfc1-um08s - lfc1-um08h +
             lfc1-um09s - lfc1-um09h + lfc1-um10s - lfc1-um10h +
             lfc1-um11s - lfc1-um11h.
           ENDIF.
         WHEN 10.
           open = knc1-umsav +
           knc1-um01s - knc1-um01h + knc1-um02s - knc1-um02h +
           knc1-um03s - knc1-um03h + knc1-um04s - knc1-um04h +
           knc1-um05s - knc1-um05h + knc1-um06s - knc1-um06h +
           knc1-um07s - knc1-um07h + knc1-um08s - knc1-um08h +
           knc1-um09s - knc1-um09h + knc1-um10s - knc1-um10h .
           IF NOT ( lfc1 IS INITIAL ) .
             open = open + lfc1-umsav +
             lfc1-um01s - lfc1-um01h + lfc1-um02s - lfc1-um02h +
             lfc1-um03s - lfc1-um03h + lfc1-um04s - lfc1-um04h +
             lfc1-um05s - lfc1-um05h + lfc1-um06s - lfc1-um06h +
             lfc1-um07s - lfc1-um07h + lfc1-um08s - lfc1-um08h +
             lfc1-um09s - lfc1-um09h + lfc1-um10s - lfc1-um10h.
           ENDIF.
         WHEN 9.
           open = knc1-umsav +
           knc1-um01s - knc1-um01h + knc1-um02s - knc1-um02h +
           knc1-um03s - knc1-um03h + knc1-um04s - knc1-um04h +
           knc1-um05s - knc1-um05h + knc1-um06s - knc1-um06h +
           knc1-um07s - knc1-um07h + knc1-um08s - knc1-um08h +
           knc1-um09s - knc1-um09h .
           IF NOT ( lfc1 IS INITIAL ) .
             open = open + lfc1-umsav +
             lfc1-um01s - lfc1-um01h + lfc1-um02s - lfc1-um02h +
             lfc1-um03s - lfc1-um03h + lfc1-um04s - lfc1-um04h +
             lfc1-um05s - lfc1-um05h + lfc1-um06s - lfc1-um06h +
             lfc1-um07s - lfc1-um07h + lfc1-um08s - lfc1-um08h +
             lfc1-um09s - lfc1-um09h.
           ENDIF.
         WHEN 8.
           open = knc1-umsav +
           knc1-um01s - knc1-um01h + knc1-um02s - knc1-um02h +
           knc1-um03s - knc1-um03h + knc1-um04s - knc1-um04h +
           knc1-um05s - knc1-um05h + knc1-um06s - knc1-um06h +
           knc1-um07s - knc1-um07h + knc1-um08s - knc1-um08h.
           IF NOT ( lfc1 IS INITIAL ) .
             open = open + lfc1-umsav +
             lfc1-um01s - lfc1-um01h + lfc1-um02s - lfc1-um02h +
             lfc1-um03s - lfc1-um03h + lfc1-um04s - lfc1-um04h +
             lfc1-um05s - lfc1-um05h + lfc1-um06s - lfc1-um06h +
             lfc1-um07s - lfc1-um07h + lfc1-um08s - lfc1-um08h .
           ENDIF.
         WHEN 7.
           open = knc1-umsav +
           knc1-um01s - knc1-um01h + knc1-um02s - knc1-um02h +
           knc1-um03s - knc1-um03h + knc1-um04s - knc1-um04h +
           knc1-um05s - knc1-um05h + knc1-um06s - knc1-um06h +
           knc1-um07s - knc1-um07h .
           IF NOT ( lfc1 IS INITIAL ) .
             open = open + lfc1-umsav +
             lfc1-um01s - lfc1-um01h + lfc1-um02s - lfc1-um02h +
             lfc1-um03s - lfc1-um03h + lfc1-um04s - lfc1-um04h +
             lfc1-um05s - lfc1-um

Difference in FD10n and FBL5n balance

Similar Messages

Maybe you are looking for