AR Credit Concept of Aging

Question

Hi People,
I have to calculate the aging for open items in Accounts Receivable. The aging has to be done based on the baseline date from BSID. Now it is to be done like this:
Current.
Aging 1: 1-30 days
Aging 2: 31-60
Aging 3: 61-90
Aging 4: over 90 days
Now I am not able to really understand how to go about it. If somebody is good in FI, can you suggest something or give me a code snippet or something which would give me an idea of how to do it? I would appreciate help on this very much. Its urgent too.
Thanks & regards,
AM

Answer 1

Hi,
1)you can display and execute RFDOPR<i>00</i> with SE38 or SA38
2)try this code (summation of Kunnr/aging-no.)
REPORT zforum25 .
*data
DATA : BEGIN OF aging OCCURS 4,
no(1),
from(2),
to(5),
END OF aging.
DATA: itab TYPE bsid OCCURS 0 WITH HEADER LINE.
DATA:BEGIN OF atab OCCURS 0,
kunnr LIKE bsid-kunnr,
no LIKE aging-no,
dmbtr LIKE bsid-dmbtr,
END OF atab.
DATA difday TYPE sy-dbcnt.
*sel-screen
PARAMETERS currdate LIKE sy-datum DEFAULT sy-datum.
PARAMETERS bukrs LIKE itab-bukrs.
SELECT-OPTIONS: kunnr FOR itab-kunnr,
                budat FOR itab-budat DEFAULT '20050401' TO '20050630'.
START-OF-SELECTION.
*abbreviation !
  APPEND '10130' TO aging.
  APPEND '23160' TO aging.
  APPEND '36190' TO aging.
  APPEND '49199999' TO aging.
*select data
  SELECT        * FROM  bsid INTO TABLE itab
         WHERE  bukrs  = bukrs
         AND    kunnr  IN kunnr
         AND    budat  IN budat.
*migration
  LOOP AT itab.
    CLEAR atab.
*correct sign
    IF itab-shkzg = 'H'.
      itab-dmbtr = itab-dmbtr * -1.
    ENDIF.
    MOVE-CORRESPONDING itab TO atab.
*assigning age of invoices
    difday = currdate - itab-bldat."bldat = invoice date
    LOOP AT aging WHERE from LE difday
                    AND to   GE difday.
    ENDLOOP.
    IF sy-subrc = 0.
      MOVE aging-no TO atab-no.
    ELSE.
*error -> check customizing of aging / bldat of invoice
      MESSAGE s001(00) WITH 'cannot assign' .
    ENDIF.
    COLLECT atab.
  ENDLOOP.
*print
  SORT atab.
  LOOP AT atab.
    WRITE: / atab-kunnr, atab-no, atab-dmbtr.
  ENDLOOP.
regards Andreas