Re: Stock table

Former Member — Wed, 03 Oct 2007 10:09:46 GMT

see the sample code for Opening stock calculation

*----

report ystk message-id yz2 line-size 231 line-count 45

no standard page heading.

*----

Type Declaration *

*----

type-pools slis.

*----

Tables *

*----

tables: mkpf, " Material Document: Header Data

mseg, " Material Document: Item Data

mara,

mard,

s031,

ekko,

ekpo,

likp,

makt,

j_1iwrkcus,

t001w,

wb2_v_mkpf_mseg2,

mmim_rep_print,

yw2_stkmovements,

yplnt,

mardh.

*----

Internal Tables *

*----

data: i_werks like j_1iwrkcus occurs 0 with header line.

data: begin of i_yplnt occurs 0,

pplnt like yplnt-pplnt,

wplnt like yplnt-wplnt,

end of i_yplnt.

data: begin of i_mkpf occurs 0,

mblnr like mkpf-mblnr,

mjahr like mkpf-mjahr,

budat like mkpf-budat,

vgart like mkpf-vgart,

bwart like mseg-bwart,

matnr like mseg-matnr,

werks like mseg-werks,

lgort like mseg-lgort,

menge like mseg-menge,

meins like mseg-meins,

kunnr like mseg-kunnr,

zeile like mseg-zeile,

xauto like mseg-xauto,

shkzg like mseg-shkzg,

matnr1 like mseg-matnr,

end of i_mkpf.

data: begin of i_mardh occurs 0,

werks like mardh-werks,

meins like mara-meins,

matnr like mardh-matnr,

lgort like mardh-lgort,

labst like mardh-labst,

lfgja like mardh-lfgja, "Added -MB

lfmon like mardh-lfmon, "Added -MB

perio(6),

insme like mardh-labst,

einme like mardh-labst,

speme like mardh-labst,

retme like mardh-labst,

o_stk like mardh-labst, " Opening Stock

c_stk like mardh-labst, " Closing Stock

end of i_mardh.

data: begin of i_mard occurs 0,

werks like mard-werks,

matnr like mard-matnr,

lgort like mard-lgort,

labst like mard-labst,

insme like mard-labst,

meins like mara-meins,

einme like mard-labst,

speme like mard-labst,

retme like mard-labst,

end of i_mard.

data: i_mard1 like i_mard occurs 0 with header line.

data: i_mardh1 like i_mardh occurs 0 with header line.

data: begin of i_mkpf1 occurs 0,

mblnr like mkpf-mblnr,

werks like mseg-werks,

matnr like mseg-matnr,

budat like mkpf-budat,

bwart like mseg-bwart,

mjahr like mkpf-mjahr,

vgart like mkpf-vgart,

lgort like mseg-lgort,

menge like mseg-menge,

meins like mseg-meins,

xauto like mseg-xauto,

shkzg like mseg-shkzg,

end of i_mkpf1.

data: begin of i_mkpf2 occurs 0,

werks like mseg-werks,

matnr like mseg-matnr,

budat like mkpf-budat,

bwart like mseg-bwart,

mjahr like mkpf-mjahr,

vgart like mkpf-vgart,

lgort like mseg-lgort,

menge like mseg-menge,

meins like mseg-meins,

xauto like mseg-xauto,

end of i_mkpf2.

data: begin of i_final5 occurs 0,

werks like mseg-werks, " Plant

matnr like mseg-matnr, " Material

lgort like mseg-lgort, " Storage Location

budat like mkpf-budat, " Posting Date

mtart like mara-mtart, " Material Type

spmon like s031-spmon, " Month

maktx like makt-maktx, " Description

meins(3), " UOM

meins like mseg-meins,

o_stk like mardh-labst, " opening stock

trecep like mardh-labst, " total receipts

produ like mardh-labst, " Net Receipts - Production

recep like mardh-labst, " Net Receipts - Receipts

sal_ret like mardh-labst, " Net Receipts - Sales Return

tdisp like mardh-labst, " total dispatches

custmr like mardh-labst, " Net Dispatches - Customers

oplant like mardh-labst, " Net Dispatches - To Other Plant

tloss like mardh-labst, " Total Loss

trloss like mardh-labst, " Transit Loss

whloss like mardh-labst, " Warehouse Loss

c_stk like mardh-labst, " Closing Stock

trfstk like mardh-labst, "Transfer stock

menge like mseg-menge,

othadj like mardh-labst,

end of i_final5.

data: begin of i_final occurs 0,

werks like mseg-werks, " Plant

matnr like mseg-matnr, " Material

budat like mkpf-budat, " Posting Date

mtart like mara-mtart, " Material Type

spmon like s031-spmon, " Month

maktx like makt-maktx, " Description

meins(3), " UOM

meins like mseg-meins,

o_stk like mardh-labst, " opening stock

trecep like mardh-labst, " total receipts

produ like mardh-labst, " Net Receipts - Production

recep like mardh-labst, " Net Receipts - Receipts

sal_ret like mardh-labst, " Net Receipts - Sales Return

tdisp like mardh-labst, " total dispatches

custmr like mardh-labst, " Net Dispatches - Customers

oplant like mardh-labst, " Net Dispatches - To Other Plant

trfstk like mardh-labst, "Material Transfer stock

trloss like mardh-labst, " Transit Loss

whloss like mardh-labst, " Warehouse Loss

tloss like mardh-labst, " Total Loss

c_stk like mardh-labst, " Closing Stock

othadj like mardh-labst,

end of i_final.

data: i_final1 like i_final occurs 0 with header line.

data: begin of i_final_temp occurs 0,

werks like mseg-werks, " Plant

matnr like mseg-matnr, " Material

mtart like mara-mtart, " Material Type

maktx like makt-maktx, " Description

meins like mseg-meins,

o_stk like mardh-labst, " opening stock

trecep like mardh-labst, " total receipts

produ like mardh-labst, " Net Receipts - Production

recep like mardh-labst, " Net Receipts - Receipts

sal_ret like mardh-labst, " Net Receipts - Sales Return

tdisp like mardh-labst, " total dispatches

custmr like mardh-labst, " Net Dispatches - Customers

oplant like mardh-labst, " Net Dispatches - To Other Plant

trfstk like mardh-labst, "Material Transfer stock

trloss like mardh-labst, " Transit Loss

whloss like mardh-labst, " Warehouse Loss

tloss like mardh-labst, " Total Loss

c_stk like mardh-labst, " Closing Stock

othadj like mardh-labst,

end of i_final_temp.

For Materials

data: begin of i_mara occurs 0,

matnr type mara-matnr,

mtart type mara-mtart,

meins like mara-meins,

labst type mard-labst,

maktx like makt-maktx,

end of i_mara.

data: begin of i_stkmvmnts occurs 0,

bwart like mseg-bwart,

shkzg like mseg-shkzg,

vzbew like yw2_stkmovements-vzbew,

end of i_stkmvmnts.

data: begin of i_finalt occurs 0,

werks like mseg-werks, " Plant

matnr like mseg-matnr, " Material

budat like mkpf-budat, " Posting Date

mtart like mara-mtart, " Material Type

spmon like s031-spmon, " Month

maktx like makt-maktx, " Description

meins(3), " UOM

meins like mseg-meins,

o_stk like mardh-labst, " opening stock

trecep like mardh-labst, " total receipts

produ like mardh-labst, " Net Receipts - Production

recep like mardh-labst, " Net Receipts - Receipts

sal_ret like mardh-labst, " Net Receipts - Sales Return

tdisp like mardh-labst, " total dispatches

custmr like mardh-labst, " Net Dispatches - Customers

oplant like mardh-labst, " Net Dispatches - To Other Plant

trfstk like mardh-labst, "Material Transfer stock

trloss like mardh-labst, " Transit Loss

whloss like mardh-labst, " Warehouse Loss

tloss like mardh-labst, " Total Loss

c_stk like mardh-labst, " Closing Stock

othadj like mardh-labst,

month(8) ,

end of i_finalt.

data: imkpft like i_mkpf occurs 0 with header line.

data: imkpft1 like i_mkpf1 occurs 0 with header line.

data: imardt like i_mard occurs 0 with header line.

data: imardht like i_mardh occurs 0 with header line.

data: t_final like i_mkpf occurs 0 with header line.

data: imkpft2 like i_mkpf occurs 0 with header line.

FCAT is used for the field catalog

data: fcat type table of slis_fieldcat_alv with non-unique default key