Application Development Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Turn on suggestions
Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
Showing results for 
Search instead for 
Did you mean: 

Aging Interval for an Order Document

Go to solution
Former Member

‎05-05-2006 6:15 AM

0 Kudos

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.

1 ACCEPTED SOLUTION

Go to solution
Former Member

‎05-05-2006 6:22 AM

0 Kudos

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

2 REPLIES 2

Go to solution
Former Member

‎05-05-2006 6:22 AM

0 Kudos

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

Go to solution
Former Member
In response to Former Member

‎05-05-2006 7:05 AM

0 Kudos

Hi Mrutyun,

Thanks for the reply,

But what I am looking for is how do I check the Ageing Interval if I have the Billing Document Number and Sales Order Number. Should I be using Transaction VF03/VA03/Any Other Transaction. And which fields should I check.

Regards,

Rajagopal.G