Accounts Receivable

What is customer open item and line item configuration

Hi Kyoko,
Many thanks for your reply.
I am aware of the error anaysis functionality (double clicking on the error message) and then the system gives us the error message # and the detailed diagnosis and the procedure to reslove the error which is quite useful.
But at times when we click on the error message the system gives us only the error message code without any further details. So i was trying to figure out if there is a way to get more details from the error message code itself about the error.
Regards,
Ankur

Similar Messages

FI Account Receivable

Hello,
In FI, we have a datasource for Accounts Receivable Line Items 0FI_AR_04 that loads data from BSID(Open Items) and BSAD (Cleared Items)
My question is how do I identify that the extractor has loaded from BSID or BSAD, I mean how do I know whether a record from load is open item or cleared items. Is there any indicator or anything ?
MercAMG

Hi there,
Yes you can check the field:
STATUSPS
Status of the FI item (O = open, C = cleared)
from the extractor.
Check in here:
[http://help.sap.com/saphelp_bw33/helpdata/en/bc/02f93abb013b0de10000000a114084/frameset.htm]
Diogo.

Contract Account Receivables/Payables

Hi,
While posting the receivable for a day (T Code FP25 / FP50), multiple receipts/payments can be posted with one reconciliation key. When the data is getting posted to GL, it is getting posted as summary entry per Reconciliation Key. If I activate the line item while performing the transaction FP25 to FP50, system doesn't post the same. Can anybody will guide in this case?

These are the transactions used in Student Accounting in the Campus Management component implemented with Contract Accounts Receivable / Payables.This is a add on package in the version 4.70
FP25 - Contract Account Receivables
FP50 - Contract Account Payables

Dunning Letter Set in Accounts Receivable

Please explan how can i create dunning letter sets for customized customer environment, where can i find funciton to create dunning letter set and how cna i attach with specific customer
i can not find any function link in the accounts receivable responsibility or nor in vision operations
Please reply me as soon as possible

hi,
There is a functionality available in the Oracle Receivables Module.
For Creating the Dunning Letter for the specific customer or for all the customers we need to do some preliminary setups to the profile of the customer,.
Steps:
1) Create a Dunning Letter format. -
Navigate to Receivables->Setup->Dunning Letter->
2) Create a Dunning Set Letter format.
Navigate to Receivables->Setup->Dunning Letter Set-
3) Attach the same to the profile of the customer.
Navigate to Receivables->Customers-> Profile-> by updating here the system will asks you the update all the profiles / Existing profile/ Not to update the profile.
If you want to update to all the profiles then you can choose the appropirate option, otherwise choose the existing profile only.
4) Customers->Query the Customer-> Go to Bill to Site -> Menu Profile-Transaction-> choose the dunning letter over there then it only apply to this customer.
If you need any clarification Please feel free to update in this forum.
Srikanth

Mismatch in Accounts Receivable Balance and A/R Aging Balance due

Hi All,
I am working on SAP 2007 A PL09 and facing a issue in which
Balance in Accounts Receivable in chart of account does
not matches with the total amount in Balance due field in
Customer Receivables Aging report.
Kindly help
Thanks

Hi,
Please check the following link for the Aging RCA in order to understand the working and the various issues regarding the Aging Reports in SAP Business One.
[RCA Aging Report|https://websmp110.sap-ag.de/~form/sapnet?_FRAME=CONTAINER&_OBJECT=011000358700001163372009E]
Kind Regards,
Jitin
SAP Business One Forum Team

My gmail account receives mail, but will not send, forward, or reply...it gets stuck in the spin and then I have to force quick firefox.

My gmail accounts receives mail, but will not send, reply or forward. Also cannot open settings. It gets stuck in spin mode.
I worked with an apple tech, tried several things, and then she suggested I contact Mozilla support.

Hey Butterworth,
You may need to use the information in this article to help you troubleshoot the issue with your outgoing server:
OS X Mail: Troubleshooting sending and receiving email messages
http://support.apple.com/kb/ts3276
Thanks for coming to the Apple Support Communities!
Cheers,
Braden

Foreign Account Receivable in GL a/c determination

Hi all
my client does not have any foreign customers. is it necessary to assign GL code to Foreign Account Receivable in GL Account Determination.
I have assigned Debitors GL Code to Domestic Account Receivable(Type of account)
I left blanck in Foreign Account Receivable.
When i post AP invoice, system post red error"necessary sales account is missing"
Then i assigned Debitors GL code to Foreigh Account receivable too.
Then problem is resolved.
PLEASE GIVE ME SOME COMMENT ON THIS
Prasad

Hii Prasad
           Was that an AP invoice or AR invoice...there is a gap between AP invoice and foreign receavables A/C
          You must have solved the issue with some other solution
                                                           thanks
                                                                     RIYAZ

Posting a credit against a credit memo in a customers Accounts Receivable f

Is it possible to post a Credit Card Credit ( refund ) against a customer's credit memo in their Accounts receivable file? We gave a credit card paying customer a credit memo for returning goods and also a credit to their credit card. Our bak now shows a credit card refund coming out of our bank account ( so it is like a negative deposit) I want to post that credit card refund against the credit memo but going thru the normal way of posting a cash payment says SAP will not take a negative deposit as a posting. Points will be awarded.

Hi
The invoice ref field in credit memo posting is related only with the payment terms. The systems determines the payment term from the original invoices.
This field should be either filled with the original invoice document number or "V".
If the field is left blank, then the system always takes the payment term for credit memo as "Due immediately"
I dont thing there is a provision for copying the line item details as per original invoice document.

Posting to Accounts Receivable using WPUBON, when WPUBON contains tenders

Hi all!
My client has some special requirements when invoicing specific customers in SAP ERP using WPUBON from POS DM.
They want accounts receivable to be involved, even though the WPUBON idoc have all tenders/means of payment that is required to pay for the sales in same POS transaction. (Balanced invoice with as much tenders as sales).
What seems to be SAP standard, is that a WPUBON without tenders, will post to accounts receivable.
If the WPUBON idoc includes some tenders, but not sufficiently to pay for all sales in same idoc, the tender amount will post to a balance account, while the remaining sales amount (after deducting the available tenders) are posted to the accounts receivable.
If the WPUBON idoc includes all tenders sufficient to pay for all sales in same idoc, the tender amount will post to balance accounts, and NO postings are done to the accounts receivable.
This might be logical, but for my client and its vendors it prevents them from printing the account receivable statement periodically to check it against the vendors own accounting. (The account receivable postings will be missing for sales that are paid in full in store).
For comparison: When using Payment Card processing in SAP ERP, we create sales orders that are invoiced, and when the credit cards amounts are captured, we get a financial document that posts the invoice just as we want it for WPUBON. First the invoice is posted against accounts receivable (AR), and then we get a "counter-posting" against same AR account when credit card amount is captured and clearing account/balance account for credit card company is posted.
When involving credit card as tender in WPUBON, we get postings to clearing account/balance account for credit card company , but not to AR account as we do for the sales order/invoice in SAP.
Are there customzing settings that can be done in SAP ERP to make it similar for WPUBON idocs as for sales order/invoice in SAP ERP?
Are there user exits that can "force" SAP ERP to post to AR?
Thankful for any advice!
Regards,
Oeystein Emhjellen
tlf +4795 29 25 58

Hello ,
We are also struggling with the similar problem of reconciling the AR and i would seek your help here.
I believe you have figured out all the SQL queries used to get the AR recon done so i would request if you can share the SQL queries with me as it will help us to do our piece of activity in reconciling the AR.

Unable to Create a Customer in Accounts Receivable

Hi,
I am unable to create a customer in Accounts Receivable module (in Ver 12.0.04). I am getting the following error message.
FND_SESSION_MANAGEMENT.UPDATESESSIONCONTEXT SQLException: java.sql.SQLException: OALL8 is in an inconsistent state
Could some one help me on resloving the issue.
Thanks
Vijendra

hi
USE tcode <b>VD01</b> in order to create a customer for SD which will have sales area data.
for centrally itis XD01
regards

Update accounts receivable of business partner

I want to update the accounts receivable of business partner through codng.For this I have used the following code-
Dim objBP As SAPbobsCOM.BusinessPartners
Dim lngStatus As Long
     Dim boolFlag As Boolean
boolFlag = objBP.GetByKey("CA009")
If boolFlag = True Then
objBP.AccountRecivablePayables.AccountType = SAPbobsCOM.BoBpAccountTypes.bpat_Receivable
                objBP.AccountRecivablePayables.AccountCode = "140000"
                objBP.AccountRecivablePayables.SetCurrentLine(0)
                lngStatus = objBP.Update
End If
But the business partner is not getting updated.What is the error in the above code ?

Alexander,
      I am updating the account.For this I am using following code,
objBP.AccountRecivablePayables.SetCurrentLine(0)
objBP.AccountRecivablePayables.AccountCode = "_SYS00000000254"
lngStatus = objBP.Update()
Now I am not getting any errors,but the business partners are not getting updated.

Changing account receivable in accounting tab

Dear All,
I would like to change GL account in the account receivable field on accounting tab of a customer business partner master data. The customer has had some transactions booked in general ledger, is it possible to replace it with other AR account ? I have actually created GL account per customer group. I use UDF and FMS so that each time when select a certain customer group, the GL account automatically filled in the field. Please help. Thanks
Rgds,

Once the Business Partner (BP) is posted with entries you cant change.
But You can create another BP and you can transfer the amount by passing the journal. You should link the new BP to Old BP thru Payments Consolidation. So that only, we can get the pending invoices at the time of Incoming/Outgoing payments.

PRA - Process Improvement for Accounts Receivable and Taxes Payable

SAP PRA introduces process improvements to Accounts Receivable and Taxes Payable write off processes for small dollar line items. When small dollar line item amounts are within the user defined tolerances, these line items can be written off using a batch job, Auto Write Off.

Thank you Wolfrad-
It's a good start. I think the best method in creating roles is to create the name myself and add the t-codes pertaining to that function such as cash application and credit.
I have a list of t-codes (it says all FI transactions) but I don't see credit management t-codes like FD32. Does anyone have a list of credit management t-codes?
Thanks!
POINTS AWARDED

Report that display payment terms for account receivables customers

Hello To all,
Please can you help us to find a standard report that list account receivables customers with their payment terms.
Regards.
Zied.

Hello,
Thank you for your response but user has not authorisation to access to SE16 and we need a report to do this.
Or may be we can create a query that use KNB1 table.
Regards.
Zied.

Configuration automatic interest calculation on Accounts Receivable (AR)

HI Guru's
Any one can send me documents for :..
Configuration automatic interest calculation on Accounts Receivable (AR) open invoices for AR module based on aging of the customer i.e. different ageing different percentage.
Configuraton of automatic journal entry for interest calculated.
regards
JK

Tax gets calculated based on the rules setup. At lease default values of attributes like applicability, registration, POS etc are provided once the tax setup is done.
Please check the rules that are setup in Tax Managers to ensure which tax is getting calculated.
If you do not want tax to be calculated unless a TCC is supplied by user, you can setup a default tax with rate as zero which will be deafulted evrytime without TCC.
For rest of the cases where a TCC will be entered, you can setup up Determining Factor Sets, Condition Sets and then create rules using them for appropriate tax calculations.
Regards

Accounts Receivable Report: Customer Wise Ageing Analysis report -FI module

Hi Gurus,
             Can anyone help me in providing standard report(source code) or already done sample report(source code) for Accounts Receivable Report: Customer Wise Ageing AnalysisThis is in FI Module. Though it is FI Module we need to fetch details related to Sales Module, and the days should be <0     30     60     90     120     180     365     >365
It is urgent I need to deliver this report by this week end.
Please help me . Waiting for your reply.
Points Rewarded for help rendered and I would personally send a good gift if you can help me
Yours Truly,
Rajiv Christopher.
Edited by: Rajiv Christopher on Apr 2, 2008 11:33 AM

Hi,
i am attaching aging report.
see if this is useful to you.
REPORT ZFUS0102 MESSAGE-ID OA
                LINE-SIZE 270.
Title:      GR/IR AGING REPORT
Date:       January 2001
TABLES: DISVARIANT, EKPO.
TYPE-POOLS: SLIS.
Tables
TABLES:
BSIS,
EKKO.
working table
DATA: BEGIN OF RTAB OCCURS 0,
         HKONT   LIKE BSIS-HKONT,
         ZUONR   LIKE BSIS-ZUONR,
         BUDAT   LIKE BSIS-BUDAT,
         SHKZG   LIKE BSIS-SHKZG,
         DMBTR   LIKE BSIS-DMBTR,
         PRCTR   LIKE BSIS-PRCTR,
      END OF RTAB.
DATA: BEGIN OF WTAB OCCURS 0,
         ZUONR(2) TYPE N,
         PRCTR   LIKE BSIS-PRCTR,
         DAYS(4) TYPE P,
         DMBTR   LIKE BSIS-DMBTR,
      END OF WTAB.
DATA: BEGIN OF PTAB OCCURS 0,
         ZUONR(2),
         PRCTR   LIKE BSIS-PRCTR,
         AMT30   LIKE BSIS-WRBTR,
         AMT60   LIKE BSIS-WRBTR,
         AMTPL   LIKE BSIS-WRBTR,
         TOTAL   LIKE BSIS-WRBTR,
      END OF PTAB.
PARAMETERS: COMPANY LIKE BSIS-BUKRS OBLIGATORY,
             ACCT    LIKE BSIS-HKONT OBLIGATORY,
             DATE    LIKE SY-DATUM OBLIGATORY.
SELECT-OPTIONS: S_EKORG FOR EKKO-EKORG.
PARAMETERS: P_VARI LIKE DISVARIANT-REPORT.
DATA: WS-AMT30 LIKE BSIS-WRBTR.
DATA: WS-AMT60 LIKE BSIS-WRBTR.
DATA: WS-AMTPL LIKE BSIS-WRBTR.
DATA: TITLE(21) VALUE 'GR/IR Aging Report'.
DATA: LIN TYPE I.
DATA: GX_VARIANT LIKE DISVARIANT,
      G_VARIANT LIKE DISVARIANT.
DATA: LAYOUT   TYPE SLIS_LAYOUT_ALV,
       L_F      TYPE SLIS_T_FIELDCAT_ALV   WITH HEADER LINE,
       GROUP    TYPE SLIS_T_SP_GROUP_ALV   WITH HEADER LINE,
       COLOR    TYPE SLIS_T_SPECIALCOL_ALV WITH HEADER LINE.
DATA: LT_TOP_OF_PAGE TYPE SLIS_T_LISTHEADER,
       LS_LINE TYPE SLIS_LISTHEADER,
       T_EVENTS   TYPE SLIS_T_EVENT.
CONSTANTS: FORMNAME_TOP_OF_PAGE TYPE SLIS_FORMNAME VALUE 'TOP_OF_PAGE'.
INITIALIZATION.
PERFORM EVENTTAB_AUFBAUEN USING T_EVENTS[].
PERFORM VARIANT_INIT.
Get default variant
GX_VARIANT = G_VARIANT.
CALL FUNCTION 'REUSE_ALV_VARIANT_DEFAULT_GET'
       EXPORTING
            I_SAVE     = 'A'
       CHANGING
            CS_VARIANT = GX_VARIANT
       EXCEPTIONS
            NOT_FOUND = 2.
IF SY-SUBRC = 0.
    P_VARI = GX_VARIANT-VARIANT.
ENDIF.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_VARI.
PERFORM VARIANT_INPUTHELP_F14.
START-OF-SELECTION.
LS_LINE-TYP = 'S'.
WRITE SY-DATUM TO LS_LINE-INFO DD/MM/YY.
WRITE SY-UZEIT TO LS_LINE-INFO+10.
WRITE SY-UNAME TO LS_LINE-INFO+20.
WRITE TITLE    TO LS_LINE-INFO+30.
APPEND LS_LINE TO LT_TOP_OF_PAGE.
PERFORM FIELDS.
IF NOT P_VARI IS INITIAL.
    PERFORM PAI_OF_SELECTION_SCREEN.
ELSE.
    CALL FUNCTION 'REUSE_ALV_VARIANT_SELECT'
         EXPORTING
              I_DIALOG            = ' '
              I_USER_SPECIFIC     = 'A'
              I_DEFAULT           = ' '
        I_TABNAME_HEADER    =
        I_TABNAME_ITEM      =
              IT_DEFAULT_FIELDCAT = L_F[]
              I_LAYOUT            = LAYOUT
         IMPORTING
        E_EXIT              =
              ET_FIELDCAT         = L_F[]
        ET_SORT             =
        ET_FILTER           =
         CHANGING
              CS_VARIANT          = DISVARIANT
         EXCEPTIONS
              WRONG_INPUT         = 1
              FC_NOT_COMPLETE     = 2
              NOT_FOUND           = 3
              PROGRAM_ERROR       = 4
              OTHERS              = 5.
ENDIF.
Decide which tables to access.
PERFORM MAIN_SELECT.
MOVE TITLE TO LAYOUT-WINDOW_TITLEBAR.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
       EXPORTING
            I_CALLBACK_PROGRAM      = 'ZFUS0102'
            I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
            IS_LAYOUT               = LAYOUT
            IT_FIELDCAT             = L_F[]
            IT_SPECIAL_GROUPS       = GROUP[]
            I_SAVE                  = 'A'
            IS_VARIANT              = G_VARIANT
            IT_EVENTS               = T_EVENTS
       TABLES
            T_OUTTAB                = PTAB
       EXCEPTIONS
            PROGRAM_ERROR           = 1
            OTHERS                  = 2.
      FORM FIELDS                                                   *
FORM FIELDS.
L_F-FIELDNAME     = 'ZUONR'.
L_F-OUTPUTLEN     = 6.
L_F-SELTEXT_L     = 'SERIES'.
L_F-REPTEXT_DDIC = 'SERIES'.
L_F-REF_TABNAME   = 'PTAB'.
L_F-SP_GROUP      = 'A'.
APPEND L_F. CLEAR L_F.
L_F-FIELDNAME     = 'PRCTR'.
L_F-OUTPUTLEN     = 10.
L_F-SELTEXT_L     = 'PROFIT CTR.'.
L_F-REPTEXT_DDIC = 'PROFIT CTR.'.
L_F-REF_TABNAME   = 'PTAB'.
L_F-SP_GROUP      = 'A'.
APPEND L_F. CLEAR L_F.
L_F-FIELDNAME     = 'AMT30'.
L_F-SELTEXT_L     = '30 DAYS'.
L_F-REPTEXT_DDIC = '30 DAYS'.
L_F-REF_TABNAME   = 'PTAB'.
L_F-SP_GROUP      = 'A'.
L_F-REF_TABNAME   = 'BSIS'.
L_F-REF_FIELDNAME = 'WRBTR'.
L_F-DO_SUM        = 'X'.
APPEND L_F. CLEAR L_F.
L_F-FIELDNAME     = 'AMT60'.
L_F-SELTEXT_L     = '60 DAYS'.
L_F-REPTEXT_DDIC = '60 DAYS'.
L_F-REF_TABNAME   = 'PTAB'.
L_F-SP_GROUP      = 'A'.
L_F-REF_TABNAME   = 'BSIS'.
L_F-REF_FIELDNAME = 'WRBTR'.
L_F-DO_SUM        = 'X'.
APPEND L_F. CLEAR L_F.
L_F-FIELDNAME     = 'AMTPL'.
L_F-SELTEXT_L     = '60+ DAYS'.
L_F-REPTEXT_DDIC = '60+ DAYS'.
L_F-REF_TABNAME   = 'PTAB'.
L_F-SP_GROUP      = 'A'.
L_F-REF_TABNAME   = 'BSIS'.
L_F-REF_FIELDNAME = 'WRBTR'.
L_F-DO_SUM        = 'X'.
APPEND L_F. CLEAR L_F.
L_F-FIELDNAME     = 'TOTAL'.
L_F-SELTEXT_L     = 'TOTAL'.
L_F-REPTEXT_DDIC = 'TOTAL'.
L_F-REF_TABNAME   = 'PTAB'.
L_F-SP_GROUP      = 'A'.
L_F-REF_TABNAME   = 'BSIS'.
L_F-REF_FIELDNAME = 'WRBTR'.
L_F-DO_SUM        = 'X'.
APPEND L_F. CLEAR L_F.
ENDFORM.
      FORM MAIN_SELECT                                              *
FORM MAIN_SELECT.
SELECT HKONT ZUONR BUDAT SHKZG DMBTR PRCTR
       INTO TABLE RTAB
       FROM BSIS
       WHERE BUKRS = COMPANY
       AND   HKONT = ACCT.
IF SY-SUBRC = 0.
    SORT RTAB.
    PERFORM PROCESS_RTAB.
    PERFORM PROCESS_WTAB.
ENDIF.
ENDFORM.                    " MAIN SELECT
      FORM VARIANT_INPUTHELP_F14                                    *
FORM VARIANT_INPUTHELP_F14.
DATA: G_EXIT(1) TYPE C.
CALL FUNCTION 'REUSE_ALV_VARIANT_F4'
       EXPORTING
            IS_VARIANT          = G_VARIANT
            I_SAVE              = 'A' " g_save
          it_default_fieldcat =
       IMPORTING
            E_EXIT              = G_EXIT
            ES_VARIANT          = GX_VARIANT
       EXCEPTIONS
            NOT_FOUND = 2.
IF SY-SUBRC = 2.
    MESSAGE ID SY-MSGID TYPE 'S'      NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ELSE.
    IF G_EXIT = SPACE.
      P_VARI = GX_VARIANT-VARIANT.
    ENDIF.
ENDIF.
ENDFORM.
      FORM USER_COMMAND                                             *
--> UCOMM                                                         *
--> SELFIELD                                                      *
FORM USER_COMMAND USING UCOMM LIKE SY-UCOMM SELFIELD TYPE
SLIS_SELFIELD.
IF UCOMM EQ '&IC1'.
    IF SELFIELD-TABINDEX <= 0.
      MESSAGE S108.
      EXIT.
    ENDIF.
IF SELFIELD-SEL_TAB_FIELD CS 'LIFNR'.
    SET PARAMETER ID 'LIF' FIELD SELFIELD-VALUE.
    CALL TRANSACTION 'XK02'.
ELSE.
    IF SELFIELD-SEL_TAB_FIELD CS 'VEND'.
      SET PARAMETER ID 'LIF' FIELD SELFIELD-VALUE.
      CALL TRANSACTION 'FBL1'.
    ENDIF.
ENDIF.
    CLEAR SY-UCOMM. CLEAR UCOMM.
ENDIF.
ENDFORM.
      FORM TOP_OF_PAGE                                              *
FORM TOP_OF_PAGE.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
       EXPORTING
            IT_LIST_COMMENTARY = LT_TOP_OF_PAGE.
ENDFORM.
      FORM EVENTTAB_AUFBAUEN                                        *
--> P_T_EVENTS                                                    *
FORM EVENTTAB_AUFBAUEN USING P_T_EVENTS TYPE SLIS_T_EVENT.
DATA: LS_EVENT TYPE SLIS_ALV_EVENT.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
       EXPORTING
            I_LIST_TYPE = 0
       IMPORTING
            ET_EVENTS   = P_T_EVENTS.
READ TABLE P_T_EVENTS WITH KEY NAME = SLIS_EV_TOP_OF_PAGE
                                                 INTO LS_EVENT.
IF SY-SUBRC = 0.
    MOVE FORMNAME_TOP_OF_PAGE TO LS_EVENT-FORM.
    APPEND LS_EVENT TO P_T_EVENTS.
ENDIF.
ENDFORM.                               " EVENTTAB_AUFBAUEN
      FORM PAI_OF_SELECTION_SCREEN                                  *
FORM PAI_OF_SELECTION_SCREEN.
IF NOT P_VARI IS INITIAL.
    MOVE G_VARIANT TO GX_VARIANT.
    MOVE P_VARI TO GX_VARIANT-VARIANT.
    CALL FUNCTION 'REUSE_ALV_VARIANT_EXISTENCE'
         EXPORTING
              I_SAVE     = 'A' " g_save
         CHANGING
              CS_VARIANT = GX_VARIANT.
    G_VARIANT = GX_VARIANT.
ELSE.
    PERFORM VARIANT_INIT.
ENDIF.
ENDFORM.                               " PAI_OF_SELECTION_SCREEN
      FORM VARIANT_INIT                                             *
FORM VARIANT_INIT.
CLEAR G_VARIANT.
G_VARIANT-REPORT = 'ZFUS0102'.
ENDFORM.                               " VARIANT_INIT
*&      Form PROCESS_RTAB
      text
--> p1        text
<-- p2        text
FORM PROCESS_RTAB.
DATA TLNS TYPE I.
DESCRIBE TABLE S_EKORG LINES TLNS.
LOOP AT RTAB.
    IF TLNS GT 0.
      SELECT SINGLE EKORG FROM EKKO INTO EKKO-EKORG
        WHERE EBELN = RTAB-ZUONR(10).
      CHECK EKKO-EKORG IN S_EKORG.
    ENDIF.
    IF NOT RTAB-BUDAT > DATE.
      MOVE RTAB-ZUONR(2) TO WTAB-ZUONR.
      COMPUTE WTAB-DAYS = DATE - RTAB-BUDAT.
      IF RTAB-SHKZG = 'H'.
        WTAB-DMBTR = RTAB-DMBTR * -1.
      ELSE.
        WTAB-DMBTR = RTAB-DMBTR * 1.
      ENDIF.
      MOVE RTAB-PRCTR TO WTAB-PRCTR.
      APPEND WTAB.
    ENDIF.
ENDLOOP.
FREE RTAB.
ENDFORM.                    " PROCESS_RTAB
*&      Form PROCESS_WTAB
      text
--> p1        text
<-- p2        text
FORM PROCESS_WTAB.
SORT WTAB BY ZUONR PRCTR DAYS.
LOOP AT WTAB.
    PTAB-ZUONR = WTAB-ZUONR.
    PTAB-PRCTR = WTAB-PRCTR.
    AT END OF DAYS.
      SUM.
      IF WTAB-DAYS > 60.
        WS-AMTPL = WS-AMTPL + WTAB-DMBTR.
      ELSE.
        IF WTAB-DAYS > 30.
          WS-AMT60 = WS-AMT60 + WTAB-DMBTR.
        ELSE.
          WS-AMT30 = WS-AMT30 + WTAB-DMBTR.
        ENDIF.
      ENDIF.
    ENDAT.
    AT END OF PRCTR.
      PTAB-AMTPL = WS-AMTPL.
      PTAB-AMT30 = WS-AMT30.
      PTAB-AMT60 = WS-AMT60.
      COMPUTE PTAB-TOTAL = PTAB-AMTPL + PTAB-AMT30 + PTAB-AMT60.
      APPEND PTAB.
      WS-AMTPL = 0.
      WS-AMT30 = 0.
      WS-AMT60 = 0.
    ENDAT.
ENDLOOP.
SORT PTAB BY ZUONR PRCTR.
ENDFORM.                    " PROCESS_WTAB
regards,
Sindhu

Accounts Receivable

Similar Messages

Maybe you are looking for