Aging Interval for an Order Document

Question

Hi All,
What is the logic used to calculate the Aging Interval of an Order. I believe it is based on the Payment due date in the Billing Document. Can someone give input as to how to check the Aging Interval for an Order.
Thanks and regards,
Raj.

Answer 1

HI
GOOD
GO THROUGH THIS REPORT
REPORT ZAP01 NO STANDARD PAGE HEADING .
TABLES: RBKPB,
        RBKP,
        lfa1,
        lfc1,
        bsIS,
        bsik.
DATA : ITAB LIKE RBKP OCCURS 0 WITH HEADER LINE.
data : dat1 like rbkp-BUDAT.
data : dat2 like rbkp-zfbdt.
data : days(10).
data : CONAME like LFA1-NAME1.
DATA  :TOT LIKE RBKP-KURSF.
DATA : TOTAL LIKE RBKP-rmwwr.
selection-screen begin of block a with frame title T.
select-options : INVOICE for  rbkp-BUDAT.
selection-screen end of block a.
loop at INVOICE.
  CASE INVOICE-SIGN.
    WHEN 'I'.
  CASE INVOICE-OPTION.
    WHEN 'EQ'.
  SELECT * FROM RBKP APPENDING CORRESPONDING FIELDS OF TABLE ITAB WHERE
BUDAT = INVOICE-LOW ORDER BY LIFNR.
    WHEN 'BT'.
SELECT * FROM RBKP APPENDING CORRESPONDING FIELDS OF TABLE ITAB WHERE
BUDAT  BETWEEN INVOICE-LOW AND INVOICE-HIGH ORDER BY LIFNR.
ENDCASE.
ENDCASE.
write :/5 'MIMOS',
        40 'INVOICE AGAING REPORT',
        75 'REPORT DATE:',SY-DATUM.
write:/75 'PAGE NO:',SY-PAGNO.
SKIP 1.
WRITE:/1 'Invoice',
       15 'Due ',
       25 'Due ',
       35 'Unpaid',
       50 'Amount',
       65 'Current',
       75 '0-30 Days',
       90 '31-60 Days',
       105 '61-90 Days'.
WRITE:/1 'Number',
       15 'Date',
       25 'Days',
       35 'Amount',
       50 'Remaining',
       65 'Invoice'.
WRITE:/ SY-ULINE.
skip 1.
ENDLOOP.
LOOP AT ITAB.
DATA : D1 like itab-BUDAT,
       D2 like itab-zfbdt,
       T1 TYPE T VALUE '091010',
       T2 TYPE T VALUE '121010',
       D3 TYPE P,
       T3 TYPE P.
CALL FUNCTION 'SD_DATETIME_DIFFERENCE'
    EXPORTING
        DATE1            = D1
        TIME1            = T1
         DATE2            = D2
         TIME2            = T2
    IMPORTING
         DATEDIFF         = D3
         TIMEDIFF         = T3
    EXCEPTIONS
         INVALID_DATETIME = 1
         OTHERS           = 2.
select * from lfc1
    where lifnr = lfc1-lifnr.
    endselect.
select * from BSIS
      where BELNR = BSIS-BELNR.
endselect.
select * from BSIk
      where BELNR = BSIk-BELNR.
endselect.
WRITE:/ ITAB-BELNR,
        12 itab-zfbdt,
        22 d3,
        35 itab-kursf,
        45 itab-rmwwr,
        60 lfc1-um01s,
        80  lfc1-um02s,
        100 lfc1-um03s.
ENDLOOP.
skip 1.
write:/ sy-uline.
THANKS
MRUTYUN