Hello
Please check this <b>Customer aging report details related to customer data</b>, U can implement this with Finished good stock . <b>Use Table MCHB for batch Stocks and select the fields as per your requirement.</b> Kindly close the thread and reward if it helps. Code remains the same except for the tables being used:
&----
*& Report ZCUST_DETAIL_54538
*&
&----
*&
*&
&----
REPORT zcust_detail_54538 LINE-SIZE 200 LINE-COUNT 40(3) NO STANDARD PAGE HEADING.
...................DECLARATION OF TABLES..............................
TABLES: kna1,
vbak,
vbap,
lips,
vbrp.
..................DECLARATION OF GLOBAL VARIABLES.....................
DATA : idx TYPE sy-tabix.
DATA : g_color TYPE sy-tabix.
..................DECLARATION OF WORK AREAS...........................
DATA: BEGIN OF i_tab,
kunnr TYPE kna1-kunnr,
name1 TYPE kna1-name1,
vbeln TYPE vbap-vbeln,
erdat TYPE vbak-erdat,
posnr TYPE vbap-posnr,
matnr TYPE vbap-matnr,
zmeng TYPE vbap-kwmeng,
meins TYPE vbap-meins,
netpr TYPE vbap-netpr,
vbeln1 TYPE lips-vbeln,
vbeln2 TYPE vbrp-vbeln,
END OF i_tab.
DATA: BEGIN OF j_tab,
vbeln TYPE lips-vbeln,
vgbel TYPE lips-vgbel,
vgpos TYPE lips-vgpos,
END OF j_tab.
DATA: BEGIN OF k_tab,
vbeln TYPE vbrp-vbeln,
aubel TYPE vbrp-aubel,
aupos TYPE vbrp-aupos,
END OF k_tab.
...................DECLARATION OF INTERNAL TABLES..........................
DATA: itab1 LIKE STANDARD TABLE OF j_tab WITH HEADER LINE.
DATA: itab2 LIKE STANDARD TABLE OF k_tab WITH HEADER LINE.
DATA: itab LIKE STANDARD TABLE OF i_tab WITH HEADER LINE.
..................SELECTION-SCREEN..........................................
SELECTION-SCREEN: BEGIN OF BLOCK blk1 WITH FRAME TITLE text-001.
SELECT-OPTIONS: p_matwa FOR vbap-matwa,
p_erdat FOR vbak-erdat,
p_vbeln FOR vbak-vbeln.
SELECTION-SCREEN: END OF BLOCK blk1.
.................TOP OF PAGE................................................
ULINE /(200).
FORMAT COLOR COL_HEADING.
WRITE:/1 sy-vline,
2 'Customer No.',
15 sy-vline,
16 'Name of Customer',
35 sy-vline,
36 'Order no.',
46 sy-vline,
47 'Date',
60 sy-vline,
61 'Item no.',
73 sy-vline,
74 'Material no',
91 sy-vline,
92 'Quantity',
110 sy-vline,
111 'Base Unit',
131 sy-vline,
132 'Net Price',
160 sy-vline,
161 'Delivery',
180 sy-vline,
181 'Billing doc',
200 sy-vline.
ULINE /(200).
........................END OF PAGE.........................................
END-OF-PAGE.
WRITE:/ SY-ULINE(200).
WRITE 😕 sy-pagno.
...................START-OF-SELCTION........................................
START-OF-SELECTION.
SELECT kna1~kunnr
kna1~name1
vbap~vbeln
vbak~erdat
vbap~posnr
vbap~matnr
vbap~kwmeng
vbap~meins
vbap~netpr
INTO TABLE itab
FROM ( ( vbak INNER JOIN vbap ON vbakvbeln = vbapvbeln )
JOIN kna1 ON kna1kunnr = vbakkunnr )
WHERE vbap~matwa IN p_matwa AND
vbak~erdat IN p_erdat AND
vbak~vbeln IN p_vbeln.
IF NOT itab[] IS INITIAL.
SELECT vbeln vgbel vgpos
INTO TABLE itab1
FROM lips
FOR ALL ENTRIES IN itab
WHERE vgbel = itab-vbeln AND
vgpos = itab-posnr.
SELECT vbeln aubel aupos
INTO TABLE itab2
FROM vbrp
FOR ALL ENTRIES IN itab
WHERE aubel = itab-vbeln AND
aupos = itab-posnr.
ENDIF.
LOOP AT itab.
idx = sy-tabix.
CLEAR itab1.
READ TABLE itab1 WITH KEY vgbel = itab-vbeln
vgpos = itab-posnr.
IF sy-subrc = 0.
itab-vbeln1 = itab1-vbeln.
ENDIF.
CLEAR itab1.
READ TABLE itab2 WITH KEY aubel = itab-vbeln
aupos = itab-posnr.
IF sy-subrc = 0.
itab-vbeln2 = itab2-vbeln.
ENDIF.
MODIFY itab INDEX idx.
ENDLOOP.
....................END OF SELCTION..................................
LOOP AT itab.
g_color = sy-tabix MOD 2.
IF g_color = 0.
FORMAT COLOR COL_NORMAL.
ELSE.
FORMAT COLOR COL_BACKGROUND.
ENDIF.
WRITE :/1 sy-vline,
2 itab-kunnr,
15 sy-vline,
16 itab-name1,
35 sy-vline,
36 itab-vbeln,
46 sy-vline,
47 itab-erdat,
60 sy-vline,
61 itab-posnr,
73 sy-vline,
74 itab-matnr,
91 sy-vline,
92 itab-zmeng,
110 sy-vline,
111 itab-meins,
131 sy-vline,
132 itab-netpr,
160 sy-vline,
161 itab-vbeln1,
180 sy-vline,
181 itab-vbeln2,
200
sy-vline.
ENDLOOP.
ULINE /(175).
Message was edited by:
Rosalin Dash
Bluesky
