Stock Overview

Former Member — Sat, 29 Sep 2007 00:55:35 GMT

Dear friends

When I make a consignment issue delivery and before the Post goods issue, I find the amounts were added to the scheduled for delivery in the stock overview (T-Code MMBE) on the plant level not the consignment level (as if it is at the company store not at the customer's); how can I solve it.

Thanks

Re: Stock Overview

Jelena_Perfiljeva — Wed, 03 Oct 2007 17:14:09 GMT

Most likely this could be done in configuration. Please consult your MM expert or move your question to the MM forum. This is not related to ABAP, in my opinion.

Re: Stock Overview

Former Member — Wed, 03 Oct 2007 17:20:13 GMT

Same program i written for our requirment:

FUNCTION zz_test1 .

*"----

""Local interface:

*" IMPORTING

*" VALUE(PWERKS) TYPE MARD-WERKS

*" TABLES

*" I_INVENTORY_DATA STRUCTURE ZTEST1975

*"----

***********************************************************************

DESCRIPTION: *

***********************************************************************

M O D I F I C A T I O N L O G *

***********************************************************************

Date Programmer CCR/PIR/TIR CTS *

----

16 Aug 2007 Murali Poli *

***********************************************************************

DATA : BEGIN OF itab1 OCCURS 0,

matnr LIKE mard-matnr,

werks LIKE mard-werks,

lgort LIKE mard-lgort,

labst LIKE mard-labst,

speme LIKE mard-speme,

END OF itab1.

DATA: BEGIN OF it_mdez OCCURS 0.

INCLUDE STRUCTURE mdez.

DATA END OF it_mdez.

DATA: BEGIN OF it_mdps OCCURS 0.

INCLUDE STRUCTURE mdps.

DATA END OF it_mdps .

DATA: BEGIN OF it_output1 OCCURS 0.

INCLUDE STRUCTURE ztest1975.

DATA END OF it_output1.

DATA: w_matnr TYPE matnr,

v_count TYPE i,

w_sum TYPE i,

w_sum(13) type c,

v_flg TYPE char1.

SELECT matnr

werks

lgort

labst

FROM mard

INTO TABLE itab1

WHERE werks EQ pwerks

AND lgort = '0001'.

IF sy-subrc = 0.

SORT itab1 BY matnr.

ENDIF.

LOOP AT itab1.

*If not it_output is initial.

CALL FUNCTION 'MD_STOCK_REQUIREMENTS_LIST_API'

EXPORTING

PLSCN =

matnr = itab1-matnr

werks = itab1-werks

BERID =
ERGBZ =
DISPLAY_LIST_MDPSX = 'X'
DISPLAY_LIST_MDEZX = 'X'

TABLES

mdpsx = it_mdps

mdezx = it_mdez

EXCEPTIONS

material_plant_not_found = 1

plant_not_found = 2

OTHERS = 3

IF sy-subrc <> 0.

WRITE:/ 'Error in function module'.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

*else.

ENDIF.

LOOP AT it_mdez.

*READ TABLE IT_MDEZ WITH KEY DELKZ = 'VJ'.

*IF SY-SUBRC = 0.

IF it_mdez-delkz = 'VJ'.

it_output1-matnr = itab1-matnr.

it_output1-werks = itab1-werks.

it_output1-clabs = itab1-labst.

it_output1-cspem = itab1-speme.

it_output1-mng01 = it_mdez-mng01.

v_flg = 'X'.

w_sum = w_sum + it_mdez-mng01.

it_output1-mng01 = w_sum.

it_output1-quantity = it_output1-clabs + it_output1-mng01.

ENDIF.

ENDLOOP.

IF v_flg = 'X'.

APPEND it_output1.

MOVE it_output1 TO i_inventory_data .

APPEND i_inventory_data.

ENDIF.

CLEAR: v_flg,

w_sum.

ENDLOOP.

ENDFUNCTION.

Please give me reward point if it is useful.

Thanks

Murali Poli

topic Re: Stock Overview in Application Development and Automation Discussions

Stock Overview

Re: Stock Overview

Re: Stock Overview