Change GL account in a customer open item list

Dear,
We happened to know A customer code been posted with wrong gl recon account in FBL5N.
User has been choosing mistakenly wrong alternative recon. account while manual posting.
So User wants to change this GL account on the line of customer in FBL5N like from 11**100 to 11***200 especially only for open items.
What solution should we have?
Note: Recon account on customer master has been correct since Go-Live, actually.
Kind regards.
Jim.

Jimmy,
After posting has done you can't change certain fields like amount, currency, gl account & CO account assignments and dates.
But transfer entry possible with f-04
Dr/Cr Customer (Select wrong alternattive gl account)
Cr/Dr Customer(Select correct alternative gl account)
Rgds
Murali. N

Similar Messages

Grouping customers and view customer open items list - Group wise

Hi.
I have some requirement from my client.
He says that he want to view customer open items list group wise.
In FBL5N we can give the selection of multiple customers. But he wants to group the specific customers and then view the open items for this group.
For example: Client has 10 customers and out of these customers he wants to select and group 5 customers. And then he want to view open items list for this group.
Can anyone help me how to group these specific customers in the total customers list. Also request you to provide me the option to view open items for this group of customers.
Regards,
Padmavathi

Hi Padmavathi,
It is possible. use Worklist for Customers.
Go to OB55 and define a Worklist for Customers, and mention the list of Customers that you want to see under that Worklist.
After this, when you to to FBL5N, you will get an option to select Worklist to run the list of open items.. and it would show open items of all customers that you have defined in your worklist.
Also note that you will have to go to FB00, tab Line Items, and tick Worklists available. This is at User Level, so only that user will be able to see the worklist in his FBL5N transaction code.
Regards,
SAPFICO
Edited by: SAPFICO on Feb 10, 2011 11:43 AM

Customer Open Item List T code

Hi,
any boday can share the Best T code for getting report of Customer Open item list?
Fond Regards| Adnan Mahmood

Dear Muhammed Riyas C
Do not force to close the discussion. If OP find his solution, he will do it.
He till didn't say that, he got correct answer.

Change recon account and transfer of Open items from Old recon a/c to New recon a/c.

Hi Gurus,
User want to change recon account for some customer and also wants the open items to be transferred to new recon from old recon account. We follow the following process:
Create a New GL Account for Adjustment Postings
Change the Customer Master Data with regard to new reconciliation account
Update the FI Auto Postings Configuration: Trxn: OBBW (Transaction Key: A00: Transfer postings: changed recon. acct) as under:
Old Reconciliation Account = Adjust Acct xxxx
New Reconciliation Account = Adjust Acct xxxx
4. Run FAGLF101 (ECC 6.0), with the intention, that the Balances / Open Items from OLD Recon would be MOVED to the NEW Recon.
When we execute the last step (4) in “Message” appears the following message:
“Account determination for transaction A00 is missing for account PV PUC
Message no. FR005”.
Where PV corresponds to valuation area and PUC is our chart of account. Furthermore, we run the process of foreign currency valuation at the end of the month.
What configuration is needed, If OBBW and OBA1 already been configured?.
We appreciate any help.Thanks.

Thanks for you answer. The link was helpful; however, today we find a solution to the error. In OBA1 when in the transaction appears a window requesting the chart of account, we chose the valuation area (option yellow arrow) and completed the configuration. With this, i could solve my problem, it was simple.

GL Account Change - How to Transfer the pending open items

Hi
I am working on a critical issue. Currently I have a open item managed clearing account which got already some postings. Now, due to some reasons, I would like to change this GL account to a new GL account. I can make a transfer entry to pass the opening balances from old account to new account.
But, my issue is what will happen to open items. How will be the open items get cleared for the old account. Is there anyway I can transfer the lines item wise?
Thanks and Regards
Raj

Hi
Thanks for your suggestion. But, I am not sure it may work like that. Because, let me explain the problem with examples:
My old GL account is 1000 and my new GL account 2000. Under 1000 GL account, I have two open items A and B with $100 and $200 respectively. When I open a new GL account, I will start my new GL account with an opening balance of $300.
When I want to clear the above lines, how can I clear because, all my future postings will be done in 2000 whereas the line items are in 1000. It will be an automatic posting to 2000 and auto clear.
Is there any way.
Thanks. The full points will be given to you.
Thanks and Regards
Raj

Customer open items, transfer to new account number

Does anyone have experience in transferring customer open items to a new account number?

Thanks for the reply, the situation I have is there are existing postings on a customer account in SAP. The client wants to create a new account number and transfer the balances from the old account to the new account. There are a significant amount of items on the old account. Normally I would use transaction F-30 for a small number of postings but this requires posting each line item individually to the new account. I was hoping there was a more systematic solution.

Customer Open Item clearing Line Layout

Hi
the user uses F-32 for customer open item clearing and the following are the fields are available in the line layout.
Assignment, reference, Doc no, doc type,posting period, doc date, posting date,gross amt, cash discount, cash Discount %.
Along with above fields, our business user wants to view the "document header text" in the line layout.
How to bring the "Document Header text " in the clearing line layout.
Pl advise,
Venkat

Hi,
you follow these steps to display "Document Header text " in F-32 :
<b>1-</b> go to : SPRO>Financial Accounting>AR & AP>Business transactions>Openm item clearing>Make settings for open item processing>Choose selection fields.
2- select "D" as "account type"
3- click on "insert after"
4- enter SGTXT in the "field name"
5- you will show "SGTXT" and "Text" in the list of fields, click on <b>save</b>
6- then go to F-32 and go to Menu>settings>change line layout
7- then go to Menu>Edit>Choose
8- then click on "insert after" above
9- in the list you will find "text" as field, so choose it
10- Save that (check customer or/and vendor)
11- then click Save and return to the table of F-32, you will find Text in the displaying fields
hope this helps
assign points if useful
let me know
regards

Excise Invoice Information---along with Customer Open Items

Dear Gurus,
When i am getting open items list of customer through FBL5n... I am getting only billing Doc. No, Accounting Doc No.
BUT USER ASKING EXCISE INVOICE NUMBER ALSO NEEDED.
Can we get through Standard Report. Thanx inadvance
Regards,
Venkat

Dear friends,
Thanx for your reply. In FBL5N, system automatically picking the Billing Document Number into assignment filed and printing in report.
NOW I WANT TO CHANGE THE INPUT INTO ASSIGNMENT FIELD i.e Excise Invoice number (J_1EXCHDR~exnum). Can u help how can i incorporate the EXNUM i.e excise invoice number into assignment filed. Now i got stuckup here.
PLs advice.
Regards,
Venkat

EBS posting to clear customer open items - Function not working?

Hello SAPers
I have an issue I just canu2019t seem to resolve! We are receiving MT940 statements and receive customer invoice reference details with field: 86 as follows:
:61:090910C1500,00FOSB1000270 //100909050      0        035315
:86:DEPOSIT
Remitter:1000270 MISSION AUSTRALIA   Ref:1200000017
Immediately following the BTC FOSB the bank quotes the customer number however I am not using this as standard SAP should identify the customer by document number within the note to payee field?
I am using a 2 step process in posting to the clearing account and customer. Config as follows:
Pst Type 1
40     Bank
50     Clearing
Pst type 2
40     Clearing
15     BLANK          DZ     3      15
I have also set up a string to look for the documents ^(12########)$. When we load the statement the first posting is successful however the second does not post to the customer or clear based on the invoice reference. I am using algorithm 020. The error that occurs is F5 102 Customer does not exist in company code xxxx. It actually does exist in the company code.
I have loaded the EBS to the buffer and simulated the search on BELNR and it picks up the document?
I am sure this is standard and a CMOD is not required on this type of functionality? What have I not done to allow posting to the customer based on document number or to post on account where it is not cleared?
Any assistance on this issue is appreciated? Thanks in advance.

Function Module for GL open Items
how to clear customer open items by another customer open item
Function Module for GL Open Items
Reward points..

Customer open item not cleared

Hi experts
For a customer open item,when deposited cheque in bank trough t code ff68
the line item remains as open but not cleared.
thanks in advance

Hello,
After the end of the process you should check the results in order to identify if the account informations were found in order to clear the item.
Regards,
REnan

Need Drill down in Customer Open Item Analysis by Balance of Overdue Items

In SAP there is one standard report by the name of
'Customer Open Item Analysis by Balance of Overdue Items'
Can I change the report according to my need.. I want to add drill down and customer name to this report. I am using summarisation 6 as my criteria.
Thanks
Sajid Hakeem

Dave!
Thanks for the help man
Just one last thing
can you help us to add drill down facility in the prescribed report. what code we should write to make it drill down to a line item report.
Regards
Sajid Hakeem

EBS: Automatic clearing of customer open items

Hi Experts,
I am setting up the electronic bank statement with format MT940 structured with field 86. As part of the scope, business is requesting to ensure that customer open items gets cleared automatically when the bank statement is uploaded through transaction FF.5. Because bank statement contains entries relating to payments by customers into the bank account.
But here the problem is that customers will provided ONLY the name. They do NOT provide either the invoice reference number (XBLNR) or our accounting document number (BELNR).
I have searched a lot and found out that I can use the BAdI FIEB_CHANGE_BS_DATA to get the SAP customer number from the customer name given in Notes to Payee fields of MT940. Kindly correct me if I am mistaken.
Now from the derived customer number, I need to find out the related open items which match with the amount given in MT940. So, how does the system know which open items can be cleared for the given amount. Because the paid amount (by the customer) can be for an individual invoice or for a couple of invoices together. Do I need to use the enhancement user exit FEB00001 to specify the system to use fields "Distribute by age" and "Automatic search" field in transaction F-32 ?
Or is there any other better way of achieving this objective of automatic clearing of open items. Asking our customers to provide the invoice reference number is not an alternative since it has already been tried a lot for long without any result. So, business has requested for the set up in our system to ease this process of automatic clearing of open items.
Thanks you so much for your time to help me on this. I will be waiting for your kind responses.
Regards,
Sridhar

Hi Experts,
I got this resolved by using the enhancement FEB00001. If the field "Distribute by age" is activated through this enhancement, then system will be able to match the paid amount and the combination of open items for automatic clearing. If there is no exact match, then automatic clearing through FF.5 is not possible as indicated in SAP Note 124655.
There is no more necessity to use BAdI FIEB_CHANGE_BS_DATA. Complete relevant logic can be maintained directly in the enhancement itself.
Have a nice day.
Regards,
Sridhar

EBS Customer open items automatic clearing within tolerances

Hi Experts,
We have already implemented Elecronic Bank Statements automatic uploading functionality. As part of this process, customer open items need to be cleared automatically.
As per the standard process, SAP will be able to clear off the open items ONLY if the collection amount (reflected in MT940) is exactly equal to the invoice amount (reflected in the open item). But general practical situation is that customers may under / over pay. For example, if the customer invoice is for USD 100,005 the actual payment from the customer could be for USD 100,000. In this case, it is normal business practice that open item will be cleared off rather than keeping balance USD 5 in ledger and chasing the customer.
So tolerances are already set up both at GL account level (Trans OBA4) and customer level (Trans OBA3) with blank tolerance group with permitted payment difference of USD 15. And no tolerance group is assigned to the customer master. Also account determination is maintained for the differences with nil reason code.
Inspite of all these settings, I am getting an error message indicating that the difference is too large for clearing while trying to upload this bank statement. Here the difference is only USD 5.
My doubts are:
1. Does the standard EBS program RFEBKA00 considers the permitted payment difference tolerances set in transaction OBA4 and OBA3 ? I don't need to post the differences with reason code. That's why account determination is maintained with blank reason code as well.
2. SAP Note 124655 (Point No 3) says that entering reasons for differences is not possible in the standard system through EBS. Does that mean clearing of open items WITHOUT reason code is possible ?
3. SAP Note 549277 (Point No 5) says that even though Note 124655 specifies certain functionalities as not supported in standard system, they can be achieved by customer through user exits. Does that mean it is possible to code in the user exit saying that system should consider the payment difference tolerances for clearing off of the open items ?
Could you kindly let me know your experience with these questions. I will be very glad to hear from you. Thanks for your time.
Warm regards,
Sridhar

Hi Experts,
I got this resolved by using the enhancement FEB00001. If the field "Distribute by age" is activated through this enhancement, then system will be able to match the paid amount and the combination of open items for automatic clearing. If there is no exact match, then automatic clearing through FF.5 is not possible as indicated in SAP Note 124655.
There is no more necessity to use BAdI FIEB_CHANGE_BS_DATA. Complete relevant logic can be maintained directly in the enhancement itself.
Have a nice day.
Regards,
Sridhar

Customer Open Items in FI

Hi All,
   I have to make a report in FI, which should show the below given Customer open Invoice details for a given customer in selection screen.
Invoice No | Invoice date | Invoice Amount |   Payment    |    Balance | Currency |
1. I have selected all open item details (BELNR, BUDAT, WRBTR, WAERS ) from BSID for the given customer.
2. Selected the cleared items from BSAD for the above accounting documents..and updated the BSAD-WRBTR in payment column.
When there is no payment made against a Invoice its coming up, but when there is partial/ full payment made as this is no more open item this invoice number not coming up in the report.. Hope I have explianed my problem clearly..
   Please suggest me how should I finish this report. Thanks in advances..its very urgent..
Regards
Jaker.

Hi,
See the attached report for the Customer AR's (Open Items) and write accrodingly.
report zf_rept_debtor_ageing
       no standard page heading
       message-id fb
       line-count 65
       line-size 230.
Purpose : This ABAP program will fetch the Account Receivables for
           a Customer for the given period and display the due days.
tables: t001,       " Company Codes
        t005,       " Countries
        skb1,       " GL Master
        kna1.       " Customer Master
Internal Tables
Internal table for BSID (Open Items) data
data: begin of it_bsid occurs 0,
        kunnr like bsid-kunnr,         " Customer Number
        gjahr like bsid-gjahr,         " Fiscal Year
        belnr like bsid-belnr,         " Acc.Document
        buzei like bsid-buzei,         " Item
        budat like bsid-budat,         " Posting Date
        shkzg like bsid-shkzg,         " Dr/Cr Indicator
        dmbtr like bsid-dmbtr,         " Amount(Local Curr)
        wrbtr like bsid-wrbtr,         " Amount(Doc Curr)
        dmbe2 like bsid-dmbe2,         " Amount(USD)
        waers like bsid-waers,         " Currency
        zterm like bsid-zterm,         " Payment Terms
        vbeln like bsid-vbeln,         " Billing Doc
        zfbdt like bsid-zfbdt,         " Baseline Date
        zbd1t like bsid-zbd1t,         " No of days
        hkont like bsid-hkont,         " GL Account
        name1 like kna1-name1,         " Customer Name
        land1 like kna1-land1,         " Country
      end of it_bsid.
Internal table for BSAD (Closed Items) data
data: begin of it_bsad occurs 0,
        kunnr like bsad-kunnr,         " Customer Number
        gjahr like bsad-gjahr,         " Fiscal Year
        belnr like bsad-belnr,         " Acc.Document
        buzei like bsad-buzei,         " Item
        budat like bsad-budat,         " Posting Date
        shkzg like bsad-shkzg,         " Dr/Cr Indicator
        dmbtr like bsad-dmbtr,         " Amount(Local Curr)
        wrbtr like bsid-wrbtr,         " Amount(Doc Curr)
        dmbe2 like bsad-dmbe2,         " Amount(USD)
        waers like bsad-waers,         " Currency
        zterm like bsid-zterm,         " Payment Terms
        vbeln like bsid-vbeln,         " Billing Doc
        zfbdt like bsid-zfbdt,         " Baseline Date
        zbd1t like bsid-zbd1t,         " No of days
        hkont like bsid-hkont,         " GL Account
        name1 like kna1-name1,         " Customer Name
        land1 like kna1-land1,         " Country
      end of it_bsad.
Internal table for Report Output
data: begin of it_report occurs 0,
        kunnr like bsid-kunnr,         " Customer Number
        belnr like bsid-belnr,         " Acc.Document
        name1 like kna1-name1,         " Customer Name
        land1 like kna1-land1,         " Country
        shkzg like bsid-shkzg,         " Dr/Cr Indicator
        budat like bsid-budat,         " Posting Date
        dmbtr like bsid-dmbtr,         " Amount(Local Curr)
        wrbtr like bsid-wrbtr,         " Amount(Doc Curr)
        dmbe2 like bsid-dmbe2,         " Amount(USD)
        waers like bsid-waers,         " Currency
        due_amnt like bsid-dmbtr,      " Amount(Over Due)
        d_amnt1 like bsid-dmbtr,      " Amount(0-30 Future Due)
        d_amnt2 like bsid-dmbtr,      " Amount(31-60 Future Due)
        d_amnt3 like bsid-dmbtr,      " Amount(61-90 Future Due)
        d_amnt4 like bsid-dmbtr,      " Amount(91-120 Future Due)
        d_amnt5 like bsid-dmbtr,      " Amount(more than 120)
        due_date like bsid-budat,      " Due date
        zterm    like bsid-zterm,      " Payment Terms
        vbeln    like bsid-vbeln,      " Billing Doc
      end of it_report.
       Declaration of Data and Variables
data: v_days type i,            " Difference days
      v_waers like t001-waers,   " Co.Code Currency
      v_sum1 like bsid-dmbtr,                              " Totals 1
      v_sum2 like bsid-dmbtr,                              " Totals 2
      v_sum3 like bsid-dmbtr,                              " Totals 3
      v_sum4 like bsid-dmbtr,                              " Totals 4
      v_sum5 like bsid-dmbtr,                              " Totals 5
      v_sum6 like bsid-dmbtr,                              " Totals 6
      v_sum7 like bsid-dmbtr,                              " Totals 7
      v_sum8 like bsid-dmbe2.                              " Totals 8
Constants
constants: c_doc_waers(3) value 'USD',
           c_mitkz type c value 'D'.
                   Selection Screen
selection-screen : begin of block b1 with frame title text-001.
parameters: p_bukrs like t001-bukrs obligatory.      " Company Code
select-options:s_kunnr for kna1-kunnr,               " Customer Number
               s_land1 for t005-land1,               " Country
               s_hkont for skb1-saknr.               " G/L Account
parameters: p_date like sy-datum obligatory.        " Report Date
selection-screen: end of block b1.
selection-screen : begin of block b2 with frame title text-002.
selection-screen begin of line.
selection-screen comment 2(30) text-003 for field p_rb1.
parameters: p_rb1 radiobutton group rb.
selection-screen end of line.
selection-screen begin of line.
selection-screen comment 2(30) text-004 for field p_rb2.
parameters: p_rb2 radiobutton group rb.
selection-screen end of line.
selection-screen: end of block b2.
selection-screen : begin of block b4 with frame.
selection-screen begin of line.
selection-screen comment 2(29) text-038 for field p_chk1.
parameters: p_chk1 as checkbox.
selection-screen end of line.
selection-screen: end of block b4.
selection-screen : begin of block b3 with frame title text-030.
selection-screen begin of line.
selection-screen comment 2(30) text-031 for field p_rb3.
parameters: p_rb3 radiobutton group rb1.
selection-screen end of line.
selection-screen begin of line.
selection-screen comment 2(30) text-032 for field p_rb4.
parameters: p_rb4 radiobutton group rb1.
selection-screen end of line.
selection-screen: end of block b3.
*********Initialization**********************************************
initialization.
At Selection Screen
at selection-screen.
Checking for the input values of selection screen.
perform screen_check.
Top-Of-Page
top-of-page.
if p_rb3 = 'X'.
    if p_chk1 = 'X'.
Write the Column Headings for detailed report(in Doc Currency)
      perform col_heading2.
    else.
Write the Column Headings for detailed report
      perform col_heading.
    endif.
else.
Write the Column Headings for summary report
    perform col_heading1.
endif.
Start-Of-Selection
start-of-selection.
Get the Customer Open Items from BSID
perform get_open_data.
Get the Customer Closed Items from BSAD
perform get_close_data.
Get the data from BSID,BSAD and KNA1 into one int.table
perform process_data.
End-Of-Selection
end-of-selection.
if it_report[] is initial.
    write : 'No Documents found'(005).
else.
    if p_rb3 = 'X'.
Write the Detailed Report
      perform write_report.
    else.
Write the Summary Report
      perform write_report1.
    endif.
endif.
At Line-Selection
at line-selection.
When double clicked on BELNR leave to transaction FB03
perform line_sel.
*&      Form SCREEN_CHECK
Checking for the input values of selection screen
form screen_check.
Validation of Company Code
clear t001.
if not p_bukrs is initial.
    select bukrs from t001 up to 1 rows
           into t001-bukrs
           where bukrs = p_bukrs.
    endselect.
    if sy-subrc ne 0.
      message e000 with 'Invalid Company Code'(006).
    endif.
endif.
Validation of Customer Number
clear kna1.
if not s_kunnr is initial.
    select kunnr from kna1 up to 1 rows
           into kna1-kunnr
           where kunnr in s_kunnr.
    endselect.
    if sy-subrc ne 0.
      message e000 with 'Invalid Customer Number'(007).
    endif.
endif.
Validation of Country
clear t005.
if not s_land1 is initial.
    select land1 from t005 up to 1 rows
           into t005-land1
           where land1 in s_land1.
    endselect.
    if sy-subrc ne 0.
      message e000 with 'Invalid Country'(036).
    endif.
endif.
Validation of GL Account
clear skb1.
if not s_hkont is initial.
    select saknr from skb1 up to 1 rows
           into skb1-saknr
           where saknr in s_hkont and
                 mitkz = c_mitkz.
    endselect.
    if sy-subrc ne 0.
      message e000 with 'Invalid GL Reconciliation Account'(037).
    endif.
endif.
endform.                    " SCREEN_CHECK
*&      Form COL_HEADING
Write the Column Headings for detailed report
form col_heading.
skip .
write: /88 'DEBTOR AGEING REPORT AS AT:'(019) centered,
         116 p_date centered, 198 sy-pagno.
skip .
write: /2 'CoCode:'(016),13(4) p_bukrs color 3.
if not s_kunnr is initial.
    if not s_kunnr-high is initial.
      write: 20 'Customer:'(041),33 s_kunnr-low color 3,
                '-', s_kunnr-high color 3.
    else.
      write: 20 'Customer:'(041),33 s_kunnr-low color 3.
    endif.
endif.
if not s_land1 is initial.
    if not s_land1-high is initial.
      write: /2 'Country:'(042),13(4) s_land1-low color 3,
              '-', s_land1-high color 3.
    else.
      write: /2 'Country:'(042),13(4) s_land1-low color 3.
    endif.
    if not s_hkont is initial.
      if not s_hkont-high is initial.
        write: 20 'GL Account:'(043),33 s_hkont-low color 3,
                  '-', s_hkont-high color 3.
      else.
        write: 20 'GL Account:'(043),33 s_hkont-low color 3.
      endif.
    endif.
else.
    if not s_hkont is initial.
      if not s_hkont-high is initial.
        write: /2 'GL Account:'(043),14 s_hkont-low color 3,
                  '-', s_hkont-high color 3.
      else.
        write: /2 'GL Account:'(043),14 s_hkont-low color 3.
      endif.
    endif.
endif.
write: 183 'Run Date:'(029), sy-datum.
format color col_heading.
write at /1(203) sy-uline .
write: / sy-vline, 2(10) 'Customer'(008) centered,
        12 sy-vline, 13(30) 'Customer Name'(009),
        43 sy-vline, 44(3) 'Cty'(014) centered,
        47 sy-vline, 48(15) 'Amount'(013) right-justified,
        63 sy-vline, 64(4) 'Curr'(011) centered,
        68 sy-vline, 69(15) 'Overdue'(012) centered,
        84 sy-vline, 85(15) '0 - 30 Days'(010) centered,
       100 sy-vline,101(15) '31 - 60 Days'(028) centered,
       116 sy-vline,117(15) '61 - 90 Days'(021) centered,
       132 sy-vline,133(15) '91 - 120 Days'(022) centered,
       148 sy-vline,149(15) 'Above 120 Days'(023) centered,
       164 sy-vline,165(10) 'Due Date'(024) centered,
       175 sy-vline,176(5) 'PayT'(025) centered,
       181 sy-vline,182(10) 'Bill.Doc.'(026) centered,
       192 sy-vline,193(10) 'Doc.No.'(027) centered,
       203 sy-vline.
write at /1(203) sy-uline.
format color off.
endform.                    " COL_HEADING
*&      Form COL_HEADING1
Write the Column Headings for summary report
form col_heading1.
skip .
write: /54 'DEBTOR AGEING REPORT (SUMMARY) AS AT:'(033) centered,
          92 p_date centered, 158 sy-pagno.
skip .
write: /2 'CoCode:'(016), 13(4) p_bukrs color 3.
if not s_kunnr is initial.
    if not s_kunnr-high is initial.
      write: 20 'Customer:'(041),33 s_kunnr-low color 3,
                '-', s_kunnr-high color 3.
    else.
      write: 20 'Customer:'(041),33 s_kunnr-low color 3.
    endif.
endif.
if not s_land1 is initial.
    if not s_land1-high is initial.
      write: /2 'Country:'(042),13(4) s_land1-low color 3,
              '-', s_land1-high color 3.
    else.
      write: /2 'Country:'(042),13(4) s_land1-low color 3.
    endif.
    if not s_hkont is initial.
      if not s_hkont-high is initial.
        write: 20 'GL Account:'(043),33 s_hkont-low color 3,
                  '-', s_hkont-high color 3.
      else.
        write: 20 'GL Account:'(043),33 s_hkont-low color 3.
      endif.
    endif.
else.
    if not s_hkont is initial.
      if not s_hkont-high is initial.
        write: /2 'GL Account:'(043),14 s_hkont-low color 3,
                  '-', s_hkont-high color 3.
      else.
        write: /2 'GL Account:'(043),14 s_hkont-low color 3.
      endif.
    endif.
endif.
write: 144 'Run Date:'(029), sy-datum.
format color col_heading.
write at /1(164) sy-uline .
write: / sy-vline, 2(10) 'Customer'(008) centered,
        12 sy-vline, 13(30) 'Customer Name'(009),
        43 sy-vline, 44(3) 'Cty'(014) centered,
        47 sy-vline, 48(15) 'Amount'(013) right-justified,
        63 sy-vline, 64(4) 'Curr'(011) centered,
        68 sy-vline, 69(15) 'Overdue'(012) centered,
        84 sy-vline, 85(15) '0 - 30 Days'(010) centered,
       100 sy-vline,101(15) '31 - 60 Days'(028) centered,
       116 sy-vline,117(15) '61 - 90 Days'(021) centered,
       132 sy-vline,133(15) '91 - 120 Days'(022) centered,
       148 sy-vline,149(15) 'Above 120 Days'(023) centered,
       164 sy-vline.
write at /1(164) sy-uline.
format color off.
endform.                    " COL_HEADING1
*&      Form COL_HEADING2
Write the Column Headings for summary report(in Doc Curr)
form col_heading2.
skip .
write: /99 'DEBTOR AGEING REPORT AS AT:'(019) centered,
         127 p_date centered, 220 sy-pagno.
skip .
write: /2 'CoCode:'(016),13(4) p_bukrs color 3.
if not s_kunnr is initial.
    if not s_kunnr-high is initial.
      write: 20 'Customer:'(041),33 s_kunnr-low color 3,
                '-', s_kunnr-high color 3.
    else.
      write: 20 'Customer:'(041),33 s_kunnr-low color 3.
    endif.
endif.
if not s_land1 is initial.
    if not s_land1-high is initial.
      write: /2 'Country:'(042),13(4) s_land1-low color 3,
              '-', s_land1-high color 3.
    else.
      write: /2 'Country:'(042),13(4) s_land1-low color 3.
    endif.
    if not s_hkont is initial.
      if not s_hkont-high is initial.
        write: 20 'GL Account:'(043),33 s_hkont-low color 3,
                  '-', s_hkont-high color 3.
      else.
        write: 20 'GL Account:'(043),33 s_hkont-low color 3.
      endif.
    endif.
else.
    if not s_hkont is initial.
      if not s_hkont-high is initial.
        write: /2 'GL Account:'(043),14 s_hkont-low color 3,
                  '-', s_hkont-high color 3.
      else.
        write: /2 'GL Account:'(043),14 s_hkont-low color 3.
      endif.
    endif.
endif.
write: 204 'Run Date:'(029), sy-datum.
format color col_heading.
write at /1(225) sy-uline .
write: / sy-vline, 2(10) 'Customer'(008) centered,
        12 sy-vline, 13(30) 'Customer Name'(009),
        43 sy-vline, 44(3) 'Cty'(014) centered,
        47 sy-vline, 48(15) 'Amount'(013) right-justified,
        63 sy-vline, 64(4) 'Curr'(011) centered,
        68 sy-vline, 69(15) 'Overdue'(012) centered,
        84 sy-vline, 85(15) '0 - 30 Days'(010) centered,
       100 sy-vline,101(15) '31 - 60 Days'(028) centered,
       116 sy-vline,117(15) '61 - 90 Days'(021) centered,
       132 sy-vline,133(15) '91 - 120 Days'(022) centered,
       148 sy-vline,149(15) 'Above 120 Days'(023) centered,
       164 sy-vline,165(10) 'Due Date'(024) centered,
       175 sy-vline,176(5) 'PayT'(025) centered,
       181 sy-vline,182(10) 'Bill.Doc.'(026) centered,
       192 sy-vline,193(10) 'Doc.No.'(027) centered,
       203 sy-vline,204(16) 'Amount(Doc.Curr)'(039),
       220 sy-vline,221(4) 'Curr'(040),
       225 sy-vline.
write at /1(225) sy-uline.
format color off.
endform.                    " COL_HEADING2
*&      Form GET_OPEN_DATA
Get the Customer Open Items from BSID
form get_open_data.
select a~kunnr          " Customer Number
         a~gjahr          " Fiscal Year
         a~belnr          " Acc.Document
         a~buzei          " Item
         a~budat          " Posting Date
         a~shkzg          " Dr/Cr Indicator
         a~dmbtr          " Amount(Local Curr)
         a~wrbtr          " Amount(Doc Curr)
         a~dmbe2          " Amount(USD)
         a~waers          " Currency
         a~zterm          " Payment Terms
         a~vbeln          " Billing Doc
         a~zfbdt          " Baseline Date
         a~zbd1t          " No of days
         a~hkont          " GL account
         b~name1          " Customer Name
         b~land1          " Country
     into table it_bsid
     from bsid as a join kna1 as b
     on akunnr = bkunnr
     where a~bukrs = p_bukrs and
           a~kunnr in s_kunnr and
           a~hkont in s_hkont and
           b~land1 in s_land1 and
           a~budat le p_date.
sort it_bsid by kunnr gjahr belnr buzei budat.
endform.                    " GET_OPEN_DATA
*&      Form GET_CLOSE_DATA
Get the Customer closed Items from BSID
form get_close_data.
select a~kunnr          " Customer Number
         a~gjahr          " Fiscal Year
         a~belnr          " Acc.Document
         a~buzei          " Item
         a~budat          " Posting Date
         a~shkzg          " Dr/Cr Indicator
         a~dmbtr          " Amount(Local Curr)
         a~wrbtr          " Amount(Doc Curr)
         a~dmbe2          " Amount(USD)
         a~waers          " Currency
         a~zterm          " Payment Terms
         a~vbeln          " Billing Doc
         a~zfbdt          " Baseline Date
         a~zbd1t          " No of days
         a~hkont          " GL account
         b~name1          " Customer Name
         b~land1          " Country
    into table it_bsad
    from bsad as a join kna1 as b
    on akunnr = bkunnr
    where a~bukrs = p_bukrs and
          a~kunnr in s_kunnr and
          a~hkont in s_hkont and
          b~land1 in s_land1 and
          a~augdt > p_date   and
          a~budat le p_date.
sort it_bsad by kunnr gjahr belnr buzei budat.
endform.                    " GET_CLOSE_DATA
*&      Form PROCESS_DATA
Get the data from BSID,BSAD and KNA1 into one int.table
form process_data.
*Move the data from BSID to final output int table
loop at it_bsid.
    move-corresponding it_bsid to it_report.
    it_report-due_date = it_bsid-zfbdt + it_bsid-zbd1t.
    append it_report.
    clear it_report.
endloop.
*Move the data from BSAD to final output int table
loop at it_bsad.
    move-corresponding it_bsad to it_report.
    it_report-due_date = it_bsad-zfbdt + it_bsad-zbd1t.
    append it_report.
    clear it_report.
endloop.
sort it_report by kunnr belnr.
loop at it_report.
    if it_report-shkzg = 'H'.    " Credit
      it_report-dmbtr = it_report-dmbtr * -1.
      it_report-dmbe2 = it_report-dmbe2 * -1.
    endif.
    v_days = it_report-due_date - p_date.
For Company Code Currency
    if p_rb1 = 'X'.
      if v_days le 0.
        it_report-due_amnt = it_report-dmbtr.
      elseif v_days between 1 and 30.
        it_report-d_amnt1 = it_report-dmbtr.
      elseif v_days between 31 and 60.
        it_report-d_amnt2 = it_report-dmbtr.
      elseif v_days between 61 and 90.
        it_report-d_amnt3 = it_report-dmbtr.
      elseif v_days between 91 and 120.
        it_report-d_amnt4 = it_report-dmbtr.
      elseif v_days > 120.
        it_report-d_amnt5 = it_report-dmbtr.
      endif.
For Group Currency
    else.
      if v_days le 0.
        it_report-due_amnt = it_report-dmbe2.
      elseif v_days between 1 and 30.
        it_report-d_amnt1 = it_report-dmbe2.
      elseif v_days between 31 and 60.
        it_report-d_amnt2 = it_report-dmbe2.
      elseif v_days between 61 and 90.
        it_report-d_amnt3 = it_report-dmbe2.
      elseif v_days between 91 and 120.
        it_report-d_amnt4 = it_report-dmbe2.
      elseif v_days > 120.
        it_report-d_amnt5 = it_report-dmbe2.
      endif.
    endif.
    modify it_report index sy-tabix.
endloop.
endform.                    " PROCESS_DATA
*&      Form WRITE_REPORT
Write the Detailed Report Output
form write_report.
clear: v_sum1,v_sum2,v_sum3,v_sum4,v_waers,
         v_sum5,v_sum6,v_sum7,v_sum8.
loop at it_report.
   at new kunnr.
      read table it_report index sy-tabix.
      write: / sy-vline, 2(10) it_report-kunnr,
            12 sy-vline, 13(30) it_report-name1,
            43 sy-vline, 44(3) it_report-land1,
            47 sy-vline.
   endat.
    if p_rb1 = 'X'.
      select single waers from t001
           into v_waers where bukrs = p_bukrs.
      write:   1 sy-vline, 12 sy-vline,
              43 sy-vline,
              47 sy-vline,
              48(15) it_report-dmbtr currency it_report-waers,
              63 sy-vline, 64(4) v_waers,
              68 sy-vline.
    else.
      write:   1 sy-vline, 12 sy-vline,
              43 sy-vline,
              47 sy-vline,
              48(15) it_report-dmbe2 currency it_report-waers,
              63 sy-vline,64(4) c_doc_waers,
              68 sy-vline.
    endif.
    write: 69(15) it_report-due_amnt currency it_report-waers,
            84 sy-vline,
            85(15) it_report-d_amnt1 currency it_report-waers,
           100 sy-vline,
           101(15) it_report-d_amnt2 currency it_report-waers,
           116 sy-vline,
           117(15) it_report-d_amnt3 currency it_report-waers,
           132 sy-vline,
           133(15) it_report-d_amnt4 currency it_report-waers,
           148 sy-vline,
           149(15) it_report-d_amnt5 currency it_report-waers,
           164 sy-vline,165(10) it_report-due_date,
           175 sy-vline,176(5) it_report-zterm,
           181 sy-vline,182(10) it_report-vbeln,
           192 sy-vline,193(10) it_report-belnr,
           203 sy-vline.
    if p_chk1 = 'X'.
      write: 204(16) it_report-wrbtr currency it_report-waers,
           220 sy-vline, 221(4) it_report-waers,
           225 sy-vline.
    endif.
   new-line.
Totals for end of each Customer
    at end of kunnr.
      if p_chk1 = 'X'.
        write at /1(225) sy-uline.
      else.
        write at /1(203) sy-uline.
      endif.
      sum.
      format color 4.
      if p_rb1 = 'X'.
        write: /1 sy-vline, 2 'Total:'(015),
             12 sy-vline,
             13(10) it_report-kunnr,
             43 sy-vline,47 sy-vline,
             48(15) it_report-dmbtr currency it_report-waers,
             63 sy-vline, 64(3) v_waers,
             68 sy-vline,
             69(15) it_report-due_amnt currency it_report-waers,
             84 sy-vline,
             85(15) it_report-d_amnt1 currency it_report-waers,
            100 sy-vline,
            101(15) it_report-d_amnt2 currency it_report-waers,
            116 sy-vline,
            117(15) it_report-d_amnt3 currency it_report-waers,
            132 sy-vline,
            133(15) it_report-d_amnt4 currency it_report-waers,
            148 sy-vline,
            149(15) it_report-d_amnt5 currency it_report-waers,
            164 sy-vline, 175 sy-vline,
            181 sy-vline, 192 sy-vline,
            203 sy-vline.
        if p_chk1 = 'X'.
          write: 220 sy-vline, 225 sy-vline.
        endif.
      else.
        write: /1 sy-vline, 2 'Total:'(015),
               12 sy-vline,
             13(10) it_report-kunnr,
             43 sy-vline,
             47 sy-vline,
             48(15) it_report-dmbe2 currency it_report-waers,
             63 sy-vline, 64(3) c_doc_waers,
             68 sy-vline,
             69(15) it_report-due_amnt currency it_report-waers,
             84 sy-vline,
             85(15) it_report-d_amnt1 currency it_report-waers,
            100 sy-vline,
            101(15) it_report-d_amnt2 currency it_report-waers,
            116 sy-vline,
            117(15) it_report-d_amnt3 currency it_report-waers,
            132 sy-vline,
            133(15) it_report-d_amnt4 currency it_report-waers,
            148 sy-vline,
            149(15) it_report-d_amnt5 currency it_report-waers,
            164 sy-vline, 175 sy-vline,
            181 sy-vline, 192 sy-vline,
            203 sy-vline.
        if p_chk1 = 'X'.
          write: 220 sy-vline, 225 sy-vline.
        endif.
      endif.
      format color off.
      if p_chk1 = 'X'.
        write at /1(225) sy-uline.
      else.
        write at /1(203) sy-uline.
      endif.
    endat.
    v_sum1 = v_sum1 + it_report-dmbtr.
    v_sum2 = v_sum2 + it_report-due_amnt.
    v_sum3 = v_sum3 + it_report-d_amnt1.
    v_sum4 = v_sum4 + it_report-d_amnt2.
    v_sum5 = v_sum5 + it_report-d_amnt3.
    v_sum6 = v_sum6 + it_report-d_amnt4.
    v_sum7 = v_sum7 + it_report-d_amnt5.
    v_sum8 = v_sum8 + it_report-dmbe2.
Hiding the Acc doc no for interactic screen.
    hide it_report-belnr.
    hide it_report-budat.
    clear:it_report-belnr, it_report-budat.
endloop.
Grand Totals for all customers
format color 3.
write: /1 sy-vline, 2 'Gr.Total'(034),
             12 sy-vline,13 'As At:'(035),p_date,
             43 sy-vline,
             47 sy-vline.
For Company Code Currency
if p_rb1 = 'X'.
    write: 48(15) v_sum1 currency it_report-waers,
            63 sy-vline, 64(4) v_waers,
            68 sy-vline.
For Group Currency (USD)
else.
    write:   48(15) v_sum8 currency it_report-waers,
             63 sy-vline, 64(3) c_doc_waers,
             68 sy-vline.
endif.
write:     69(15) v_sum2 currency it_report-waers,
             84 sy-vline,
             85(15) v_sum3 currency it_report-waers,
            100 sy-vline,
            101(15) v_sum4 currency it_report-waers,
            116 sy-vline,
            117(15) v_sum5 currency it_report-waers,
            132 sy-vline,
            133(15) v_sum6 currency it_report-waers,
            148 sy-vline,
            149(15) v_sum7 currency it_report-waers,
            164 sy-vline, 175 sy-vline,
            181 sy-vline, 192 sy-vline,
            203 sy-vline.
if p_chk1 = 'X'.
    write: 220 sy-vline, 225 sy-vline.
endif.
format color off.
if p_chk1 = 'X'.
    write at /1(225) sy-uline.
else.
    write at /1(203) sy-uline.
endif.
endform.                    " WRITE_REPORT
*&      Form WRITE_REPORT1
Write the Summary Report Output
form write_report1.
clear: v_sum1,v_sum2,v_sum3,v_sum4,v_waers,
         v_sum5,v_sum6,v_sum7,v_sum8.
loop at it_report.
    at new kunnr.
      read table it_report index sy-tabix.
      write: / sy-vline, 2(10) it_report-kunnr,
            12 sy-vline, 13(30) it_report-name1,
            43 sy-vline, 44(3) it_report-land1,
            47 sy-vline.
    endat.
    at end of kunnr.
      sum.
      if p_rb1 = 'X'.
        select single waers from t001
          into v_waers where bukrs = p_bukrs.
        write: 1 sy-vline, 12 sy-vline,
             43 sy-vline, 47 sy-vline,
             48(15) it_report-dmbtr currency it_report-waers,
             63 sy-vline, 64(4) v_waers,
             68 sy-vline,
             69(15) it_report-due_amnt currency it_report-waers,
             84 sy-vline,
             85(15) it_report-d_amnt1 currency it_report-waers,
            100 sy-vline,
            101(15) it_report-d_amnt2 currency it_report-waers,
            116 sy-vline,
            117(15) it_report-d_amnt3 currency it_report-waers,
            132 sy-vline,
            133(15) it_report-d_amnt4 currency it_report-waers,
            148 sy-vline,
            149(15) it_report-d_amnt5 currency it_report-waers,
            164 sy-vline.
      else.
        write: 1 sy-vline, 12 sy-vline,
             43 sy-vline, 47 sy-vline,
             48(15) it_report-dmbe2 currency it_report-waers,
             63 sy-vline, 64(4) c_doc_waers,
             68 sy-vline,
             69(15) it_report-due_amnt currency it_report-waers,
             84 sy-vline,
             85(15) it_report-d_amnt1 currency it_report-waers,
            100 sy-vline,
            101(15) it_report-d_amnt2 currency it_report-waers,
            116 sy-vline,
            117(15) it_report-d_amnt3 currency it_report-waers,
            132 sy-vline,
            133(15) it_report-d_amnt4 currency it_report-waers,
            148 sy-vline,
            149(15) it_report-d_amnt5 currency it_report-waers,
            164 sy-vline.
      endif.
      write at /1(164) sy-uline.
    endat.
Totals
    v_sum1 = v_sum1 + it_report-dmbtr.
    v_sum2 = v_sum2 + it_report-due_amnt.
    v_sum3 = v_sum3 + it_report-d_amnt1.
    v_sum4 = v_sum4 + it_report-d_amnt2.
    v_sum5 = v_sum5 + it_report-d_amnt3.
    v_sum6 = v_sum6 + it_report-d_amnt4.
    v_sum7 = v_sum7 + it_report-d_amnt5.
    v_sum8 = v_sum8 + it_report-dmbe2.
Hiding the Acc doc no for interactic screen.
    hide it_report-belnr.
    hide it_report-budat.
    clear: it_report-belnr,
           it_report-budat.
endloop.
Calculation of Grand Totals
format color 3.
write: /1 sy-vline, 2 'Gr.Total'(034),
             12 sy-vline,13 'As At:'(035),p_date,
             43 sy-vline,
             47 sy-vline.
For Company Code Currency
if p_rb1 = 'X'.
    write: 48(15) v_sum1 currency it_report-waers,
            63 sy-vline, 64(4) v_waers,
            68 sy-vline.
For Group Currency (USD)
else.
    write:   48(15) v_sum8 currency it_report-waers,
             63 sy-vline, 64(3) c_doc_waers,
             68 sy-vline.
endif.
write:     69(15) v_sum2 currency it_report-waers,
             84 sy-vline,
             85(15) v_sum3 currency it_report-waers,
            100 sy-vline,
            101(15) v_sum4 currency it_report-waers,
            116 sy-vline,
            117(15) v_sum5 currency it_report-waers,
            132 sy-vline,
            133(15) v_sum6 currency it_report-waers,
            148 sy-vline,
            149(15) v_sum7 currency it_report-waers,
            164 sy-vline.
format color off.
write at /1(164) sy-uline.
endform.                    " WRITE_REPORT1
*&      Form LINE_SEL
When double clicked on BELNR leave to transaction FB03
form line_sel.
data: lv_field(20),
        lv_value(10),
        lv_date(10),
        lv_gjahr like bsad-gjahr.
get cursor field lv_field value lv_value.
if lv_field = 'IT_REPORT-BELNR'.
    if not lv_value is initial.
      read current line field value it_report-budat into lv_date.
      lv_gjahr = lv_date+6(4).
      set parameter id 'BUK' field p_bukrs.
      set parameter id 'GJR' field lv_gjahr.
      set parameter id 'BLN' field lv_value.
      call transaction 'FB03' and skip first screen.
    endif.
endif.
endform.                    " LINE_SEL
Regards,
Anji

Customer open items table

hi all,
what is the table for customer open items?
thanks,
Viren.

Hi,
All the Customer Open items are stored in BSID table.
When those open items gets cleared then they are moved to BSAD table. Also corresponeding entries goes to table BKPF & BSEG with all the accounting document details.
Also for GL & Vendor Open items are in BSIS & BSIK respectively and GL & Vendor Cleared items are in BSAS & BSAK respectively.

Change GL account in a customer open item list

Similar Messages

Maybe you are looking for