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

Similar Messages

How to clear vendor open items with customer open items in APP?

Hi Experts,
Our vendor is our customer - in this scenario how to clear vedor open items against customer open items. I have defined vedor is customer means I have given customer number in vendor master record, selected chek box 'clear with customer'. Still problem is not solved, hence I am requesting you to help me in this regard.
Thank you very much,
Regards,
Ganesh.

Hi
In FBCJ after payment you have clear manually vendor balance in F-44.
If you want SPL GL in FBCJ then write a Substitution .
1. step 001 - Special G/L Substitution
2. Prerequisite - Transaction code = 'FBCJ'
3. Substitution posting key -- Exit (need help from abap) exit name
G/L Exit (need help from abap) exit name
Special G/L Ind Exit (need help from abap) exit name
you can't do this without ABAP help
Best Of Luck
Tanmoy

Problem with customer open items. Transaction FBL5N and F-30

Hi all,
I have a little problem with a customer.
When I see transaction FBL5N, I can see 3 open items, but, when I go to clear then in F-30, no appears.
Anybody can help me.
Thanks in advance

Hi all,
I have solved the problem
The problem was that exits a proposal where these open items were.
I have deleted this proposal, and then, I could create a post with clearing.
Thanks everybody

Data Mapping problem with Customer Open Item

Hi,
I am using the the Direct input method in LSMW for Posting the Open Customer documents. Following are the details:
Object : 0100
Method: 0000
Program name: RFBIBL00.
I have a problem, the client wants the VBELN(BSID table) also to be posted.I checked the BSID table and the target Structure BBSEG and found the field VBELN missing from the strcuture. I found the field VBEL2 in the structure. Can anybody suggest any field in BBSEG where I can map the VBELN from table BSID.
Regards,
Prashant.
Edited by: Prashant Kumar Upadhyay on Apr 2, 2009 7:06 AM

>
max bianchi wrote:
> Hi
>
> That field should be filled as soon as the bill is posted in FI so trx like VF01, VF02 and VF04.
>
> The RV_ACCOUNTING_DOCUMENT_CREATE is fm creates the FI invoice from billing.
>
> Max
Hi Max,
I have just 1 question, If I upload (or Release) Billing Doc for accounting first and then later on Upload the Customer open itm data in BSID , will the VBELN field get updated in db table. Thanks in advance.
Regards,
Prashant

Charge off difference whening clearing customer open item with bank receipt

Hi,
Our company users will use F-32 to clear customer open item with bank receipt, sometimes, our invoice is 100 RMB issue to customer, the customer finally pay 99.98, then in F-32, we use charge off difference to post 0.02 difference to a account.
The user then want to control this, saying for example, if the customer pay only 90, whening using charge off differnce, the system will pop up a error message.
Can this be done in SAP, or we need to use user exit, then which user exit?
Thanks.

Dear,
This is done through customer tolerance group using transaction OBA3. Here enter the maximum amount in Loss under the Permitted Payment Differences. you are able to hold tolerance for customer clearing.
Is this what you wanted?
Regards,
Chintan Joshi.

Customer Invoice should be displayed in S_ALR_87012174 - Customer Open item

Dear Friends:
My Client wants that the customer invoice should be displayed in the report S_ALR_87012174 - List of Customer Open Items.Is this possible,
If not, Any workaround solution will be highly appreciated.
Regards
msreddy

hi,
you can add fields to the open item list with "change layout" if the field with invoice-no. is not available you can copy it with fb09 (batch input) to zuonr or xblnr as Dave said. Change the existing interface too.
Andreas

Customer Open Item clearing Line Layout (O7F4)

Hi Dear ABAP experts,
I am the FICO consultant and I got the below issue. I am trying my level best to solve this issue. But i need some help. So I am posting this issue in forum. Pl check this issue and give me ur valuable suggestion.
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

Dear ABAPERS,
I hope this time I will get the solution from you.
The same messge i have put in SAP Financials and the conversation between he and melike below:
He
SPRO>Financial Accounting>AR & AP>Business transactions>Open item clearing>Make settings for open item processing
Me
Thanks for the response. SGTXT (line item text) is the field available at the line item level and we have already added in the line layout. What we are looking for is the field BKTXT (document header text) which is available at the document header level. We wish to include this field in the line layout.BKPF - Document Header text
He
It is not possible to add "BKTXT" in the list generated by SPRO (not existed).
But if you post an invoice with FB70, in the header text, click F1 and after click F9, you will find SGTXT as field name knowing that is a document header text, so i think to show header text you choose only text in F-32.
Me???????
So pl provide the solution for above issue
Rgds,
Venkat

Excise Invoice is captured with another Purchase Order

Hi
We have a scenrio, transfer the material from debond plant to mfg plant after imported material in kept in Bonding area. STO po is raised to from imported plant to mfg plant with Imported duties as delivery costs.
Bill of entry is provided for all the materials as one. While capturing the excise amount at line item level is difficult so, captured at first line item level as total because material is Same (Material is Split valuated materials with 3 batches). First GR is done properly but next GR for 2nd and 3 rd line items are refered with earlier Bill of entry, system promprts the error message "Excise Invoice is captured with another Purchase Order".
Please do the needful.
Regards
Mohan

Hi,
Please be informed that for one a GR document wrt PO only one excise invoice can exist.
Ex PO-4500000010
GR no 5000000010
only one excise can exist and if the same excise invoice is reffered to another GR with the same PO system will throw an error message. Please let me know the exact business requirement in detail.
Naveen

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 Items Document Details

I am building an application for a client for Purchase Card Processing using Visual Studio 2005. I am able to use VS 2003 to create the necessary object to get the Customer List, Customer Details, and the list of Customer Open Items.
I am totally new to SAP, and need some help to figure out my next steps.
1. What call(s) will return an Open Item (Document) given the Document Number, along with the individual line items. With that info I can post a Level 3 transaction and get an authorization code.
2. What is the process to post the purchase card authorization, essentially a payment, back to SAP for the open item.
3. What is the best source for reference details on BAPI?
Thanks in advance for any assistance.

Thanks for the response, but I have already madie it that far... " I am able to use VS 2003 to create the necessary object to get the Customer List, Customer Details, and the list of Customer Open Items.
with the list of open items, I get a Bill_Doc. What calls will return the details of the Billing Document?

Z report logic- Customer open item analysis

Dear Experts
Our client is using S_ALR_87012178 report for customer open items due analysis.
Now,here they also need sales group wise & division wise split up. Sales group from SO, not CMR, since a single/same customer may have different sales groups for different SOs.
I tried.. but no other report..satisfying this..
So, decided to go ahead with a new Z Development , wherein I plan to call in the program to our customized prgram/report & then to code it, so that sales group & divison are reflected to the corresponding customers.
Now, the challenge is, most (infact all) of the std credit management reports are customer master based, but this requirement (sales group & division) is transaction 9from SO) based.
Now, how do we write the logic/join the tables for me to write FSpec, so as to develop a Z Report.
Anticipating your guidance/suggestions/help.
Good day...
Rgds
Sumanth.Gururaj

hi,
this is to inform you that,
take the program with RFDOPR10 copy the same program under the name of Z report.
add these fields in selection screen and keep them mandatory on the selection screen & take logic from these tables and fields
1. Sales Group - VBAK-VKGRP
2. Division - VBAK-SPART
take the program with RFDOPR10 copy the same program under the name of Z report.
i think so you cannot capture the total functionality of RFDOPR10 which is the extract of plenty of tables.
finally if it is exectued then entire effort goes invain.
so my suggestion is catch hold of ABAPER and follow the above.
note : if sales group wise and division analysis is coming in the same report then it is very to populate the data from the Z report.
first confirm that.
if it is coming then go ahead with Z reprot itself
balajia

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

Automatic Clearing of customer open items during FEBP

Hello All
I have a requirement whereby the customer open items need to be cleared using the XBELNR field reference. The bank statement is in FINSTA format. There are legacy invoice numbers which also come in through the statement.
We don't want to do manual post processing through FEBa/FEBAN.
Is there any way out for this scenario?
Thanks and Regards

Hi
Just run FEBP as a nightjob after the Finsta have been imported, and create one variant per company code. I works perfect for us.
If you provide me with you email, I can send you a dump screen of our variants.
Best regards
Pernille

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

Excise Invoice Information---along with Customer Open Items

Similar Messages

Maybe you are looking for