pls help me

Former Member — Thu, 15 Feb 2007 18:25:43 GMT

Hi friends ,

I got a task to do .

Description:

"Age Analysis of Finished Good Stock: - Interactive report. Double click on the line item will give the batch wise stock details."

Can any one give some more elaborate information regarding this.

And please give what are the tables and fields might necessary for this.

With Best Regards,

Priyanka Sai.

Re: pls help me

Former Member — Thu, 15 Feb 2007 18:28:43 GMT

Hi,

You can use the table MCHB

Thanks,

Naren

Re: pls help me

Former Member — Fri, 16 Feb 2007 05:58:02 GMT

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 vbak_{vbeln = vbap}vbeln )

JOIN kna1 ON kna1_{kunnr = vbak}kunnr )

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

topic pls help me in Application Development and Automation Discussions

pls help me

Re: pls help me

Re: pls help me