Regarding reports on material consumption
Hi all
can give me the solution for below
"Material consumption reports this report will generate a report grouped on plants to list the consumption of material in that plant in a year."
see the functionality behind this is
1.A material can be present in different plants " table marc
2.further a plant can have multiple storage locations "tables mard .
so material consumption will be to check how much material is consumed in a year .
This u can do by first calulating the stock present during the year ( as on jan 1 2006) say total stock for that material is 10,000 units (mara-meins)
so in the fiscal year 2006 how much was the material consumed means i need to see how much stock was posted during the year .
say stock avaliable as of 2006 december 31 is 3700 units
so now my material consumption is
10000 (stock present at the start of the year ) - 3700 ( stock present at the end of the year ) = 6300
so 6300 will be ur material consumed .
these details can be fetched from MARD table s
so finally the report will show 10000 37000 and 6300
try to understand the relation between mara marc and mard tables rest is numeric calulation in the internal tables.
i took the dates for example generally it will be posting dates for fiscal year .
regards,
vijay
Similar Messages
-
Standrad reports for material consumption
Hi ,
I require input on following scenario.
The raw material is consumed in REM backflushing. For each work center a production version is created .
In MCRO t/c i get the production version /material wise consumption of raw material.
Three work centers will form a stage . If i want to check the material consumption for each stage , is there any standard report.
If i define a work center hierarchy , will it help?
Kindly advise
Regards
ShankarRDear
Try the following :
1.MCRE: Consumption report and You can chek in MB51/ME2M
2.Goto SAP Table - MVER consumption table in SE16 t.code.
Refer all kind of reports here in useful wiki : http://wiki.sdn.sap.com/wiki/display/ERPLO/SAPStandardReports
Regards
JH -
Report for Material consumption quantity & its cost in Repetitive MFG.
Hello,
Is there any Standard Report available in SAP to check the Quantity of raw / intermediate material consumed & their cost in Repetitive manufacturing Backflush transaction MFBF?
ThanksHere I'm interesed in the MFBF Qty & against which the consumption of Raw Materials & their cost.
The reports which you asked me to check are all structures & not much of use for individual analysis.
My requirement: When we access the material document(MB51) of the individual MFBF we get all the Raw material Consumption Qty & from there we can go to FI Doc (A/c Document).In A/c documet we get the cost of all Raw materials consumed alongwith the Qty.
Is there any report or I need to develope a new report? -
Report for Material Consumption for WBSE & Network
Dear Experts,
I want to see Material Consumption for
for WBSE 281Q (Project to Project)
for Network 221Q (Network from Project)
I can see values in Report MB51,
but I can not see for which WBSE it is consumed or from which WBSE it is consumed.
The Entries are there in table MSEG field MAT_PSPNR.
It is not shown in Report MB51, For this column blank is shown, no value is shown.
Can you help me, how can I see material consumption for WBSE & Network with WBSE ID for/from which.
Thanks
SSanjayDear Muralee,
I think I am not able to explain you the thing or you are not getting what I want to say.
In my first post I have said:
I am trying MB51, with
221Q Project to Project GI
281Q Project to Network GI.
I am getting material consumption quantities,
Network/Activities for which consumption is done is also shown.
But the WBSE for which / from which consumption is done, that column is blank.
It is showing WBSE for 101 GR for Project
I want to know for which /from which WBSE material was consumed?
I have tried to explain problem again.
Can you please help?
SSanjay -
Report for material consumption based on movement type
Can any one guide me in developing a report to find the material consumed during a certain period ,
selectio screen should be based on material no , plant , location , monthYou would need to fetch the accounting number (BELNR) from BKPF based on the purchase order number (XBLNR) and then proceed accordingly with BSIK and BSAK.
Select .......
from bkpf
into table <it>
where xblnr in so_xblnr
Something like above.
Few other important tables in MM and FI:
A501 Plant/Material
EBAN Purchase Requisition
EBKN Purchase Requisition Account Assignment
EKAB Release Documentation
EKBE History per Purchasing Document
EKET Scheduling Agreement Schedule Lines
EKKN Account Assignment in Purchasing Document
EKKO Purchasing Document Header
EKPO Purchasing Document Item
IKPF Header- Physical Inventory Document
ISEG Physical Inventory Document Items
LFA1 Vendor Master (General section)
LFB1 Vendor Master (Company Code)
NRIV Number range intervals
RESB Reservation/dependent requirements
T161T Texts for Purchasing Document Types
EINA Purchasing Info Record- General Data
EINE Purchasing Info Record- Purchasing Organization Data
MAKT Material Descriptions
MARA General Material Data
MARC Plant Data for Material
MARD Storage Location Data for Material
MAST Material to BOM Link
MBEW Material Valuation
MKPF Header- Material Document
MSEG Document Segment- Material
MVER Material Consumption
MVKE Sales Data for materials
RKPF Document Header- Reservation
T023 Mat. groups
T024 Purchasing Groups
T156 Movement Type
T157H Help Texts for Movement Types
MOFF Lists what views have not been created
AGKO Cleared Accounts
ANAR Asset Types
ANAT Asset type text
ANEK Document Header Asset Posting
ANEP Asset Line Items
ANEV Asset downpymt settlement
ANKT Asset classes- Description
ANLA Asset Master Record Segment
ANLB Depreciation terms
ANLC Asset Value Fields
ANLH Main asset number
AT02T Transaction Activity Category- Description
AT02A Transaction Code for Menu TIMN
AT10 Transaction type
AT10T Name of Transaction Type
BKDF Document Header Supplement for Recurring Entry
BKORM Accounting Correspondence Requests
BKPF Accounting Document Header
BLPK Document log header
BLPP Document log item
BLPR Document Log Index and Planned Order (Backflush)
BNKA Bank master record
BP000 Business Partner Master (General Data)
BPBK Doc.Header Controlling Obj.
BPEG Line Item Total Values Controlling Obj.
BPEJ Line Item Annual Values Controlling Obj.
BPEP Line Item Period Values Controlling Obj.
BPGE Totals Record for Total Value Controlling obj.
BPJA Totals Record for Annual Total Controlling Obj.
BSAD Accounting- Secondary Index for Customers (Cleared Items)
BSAK Accounting- Secondary Index for Vendors (Cleared Items)
BSAS Accounting- Secondary Index for G/L Accounts (Cleared Items)
BSEC One-Time Account Data Document Segment
BSEG Accounting Document Segment
BSID Accounting- Secondary Index for Customers
BSIK Accounting- Secondary Index for Vendors
BSIM Secondary Index, Documents for Material
BSIS Accounting- Secondary Index for G/L Accounts
CEPC Profit Center Master Data Table
CEPCT Texts for Profit Center Master Data
COBRA Settlement Rule for Order Settlement
COBRB Distribution Rules Settlement Rule Order Settlement
COKA CO Object- Control Data for Cost Elements
COSP CO Object- Cost Totals for External Postings
COSS CO Object- Cost Totals for Internal Postings
CRCO Assignment of Work Center to Cost Center
CSKA Cost Elements (Data Dependent on Chart of Accounts)
CSKB Cost Elements (Data Dependent on Controlling Area)
CSLA Activity master
FEBEP Electronic Bank Statement Line Items
FPLA Billing Plan
FPLT Billing Plan- Dates
GLPCT EC-PCA- Totals Table
KNA1 General Data in Customer Master
KOMK Pricing Communication Header
MAHNV Management Records for the Dunning Program
REGUT TemSe - Administration Data
SKA1 G/L Account Master (Chart of Accounts)
SKAT G/L Account Master Record (Chart of Accounts- Description)
SKB1 G/L account master (company code)
T003T Document Type Texts
T007S Tax Code Names
T087J Text
TAPRFT Text tab. for investment profile
TKA01 Controlling Areas
TKA09 Basic Settings for Versions
TKVS CO Versions
TZB0T Flow types text table
TZPAT Financial Assets Management product type texts
VBSEGS Document Segment for G/L Accounts Document Parking
VTBFHA Transaction
VTBFHAPO Transaction Flow
VTBFHAZU Transaction Activity
VTBFINKO Transaction Condition
VTIDERI Master Data Listed Options and Futures
VTIFHA Underlying transaction
VTIFHAPO Underlying transaction flows
VTIFHAZU Underlying transaction status table
VTIOF Options Additional Data
VWPANLA Asset master for securities
Also, visit the following links:
http://www.sap-img.com/sap-download/sap-tables.zip
http://www.erpgenie.com/abap/tables.htm
http://goldenink.com/abap/files_in_sap.html -
Can i get a consolidated report for material consumption for all plants?
can i get a report where i can have the material quantity and value, across for all the plants and the quanity and value of the material consumed and balance for a particular period
Example; I have a raw material -COPPER ROD , Period is from 1 April2010 to 1 July 2010, I want to know what was the Quanity and Value of copper rod acorss 4 Plants, how much has been consumed (Quanity and Value) and how muchis left(Quanity & Value) as on 1 july2010Dear Yadav,
Check with reports COOIS, MB51 & MB5B
Regards
Madhu -
Report for material consumption
Can any one guide me in developing a report to find the material consumed during a certain period ,
selectio screen should me consiting of matrial and dateHi
See the sample report and do accordingly
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
with header line initial size 0,
for excluding the ICONs from the application toolbar
fexc type table of slis_extab with non-unique default key
with header line initial size 0,
FS_LAYO is used for Grid Layout
fs_layo type slis_layout_alv,
FEVENTS to handle the events TOP OF PAGE & USER_COMMAND
fevents type table of slis_alv_event with non-unique default key
with header line initial size 0,
FHEADER is used for List header
fheader type table of slis_listheader with non-unique default key
with header line initial size 0,
sort is used for sorting
fsort type table of slis_sortinfo_alv with non-unique default key
with header line initial size 0,
fcat1 type table of slis_fieldcat_alv with non-unique default key
with header line initial size 0,
fs_layo1 type slis_layout_alv,
gt_list_top_of_page1 type slis_t_listheader,
fevents1 type table of slis_alv_event with non-unique default key
with header line initial size 0,
fheader1 type table of slis_listheader with non-unique default key
with header line initial size 0,
g_statu_071 type slis_formname value 'Z_PFSTATUS',
alv_variant1 like disvariant.
Variable Declaration *
types: trff_type_dec_6_5(6) type p decimals 5.
data: fyear(4),
mon(2),
fyear1(4),
mon1(2),
obal like mard-labst,
cbal like mard-labst,
index type i,
count,
count1 type i,
o_stk type p decimals 3,
c_stk type p decimals 3,
v_mjahr like mkpf-mjahr,
months type trff_type_dec_6_5,
month type i.
Global variables for handling ALV functionality
data: alv_keyinfo type slis_keyinfo_alv,
alv_variant like disvariant,
alv_layout type slis_layout_alv,
alv_repid like sy-repid,
alv_print type slis_print_alv,
alv_detail_func(30),
alv_default_variant like disvariant-variant,
alv_colourize_fields like mmim_rep_print-color.
ranges: r_budat for mkpf-budat.
*Added by Prabhu for year on 26.4.05.
data: idate like r_budat occurs 0 with header line.
Selection Screen Elements *
selection-screen begin of block blk with frame title text-001.
select-options: s_werks for mard-werks obligatory
no intervals.
parameter: p_spmon like s031-spmon no-display .
select-options: s_matnr for mara-matnr obligatory,
s_lgort for mseg-lgort no-extension no intervals,
s_mblnr for mkpf-mblnr,
s_budat for mkpf-budat obligatory .
selection-screen end of block blk.
selection-screen begin of block blk3 with frame title text-004.
parameter : mtart like mara-mtart
default 'FERT' no-display.
selection-screen end of block blk3.
selection-screen begin of block blk2 with frame title text-003.
selection-screen end of block blk2.
ADDED BY PRABHU FOR DAY-WISE REPORT.
selection-screen begin of block b3 with frame title text-007.
parameters: d1 radiobutton group p1 default 'X',
m1 radiobutton group p1,
y1 radiobutton group p1.
selection-screen end of block b3.
selection-screen begin of block b2 with frame title text-006.
parameters: alv_def like disvariant-variant.
selection-screen end of block b2.
data: s_budat1 like s_budat occurs 0 with header line."prabhu
Initialization *
initialization.
perform alv_init.
at selection-screen on value-request for alv_def.
perform alv_f4.
At Selection Screen
*AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_spmon.
PERFORM monat_f4.
At Selection Screen *
at selection-screen.
checking for the layout
perform alv_check.
authorisation check for the Plant
PERFORM auth_check.
Validation for the Plant
perform validity_check.
if mtart ne 'FERT'.
message e041 with 'Material Type must be FERT Only...'.
endif.
if d1 = 'X'." On 26.4.05.
p_spmon0(4) = s_budat-low0(4).
p_spmon4(2) = s_budat-low4(2).
else.
p_spmon0(4) = s_budat-low0(4).
p_spmon4(2) = s_budat-low4(2).
endif.
loop at s_budat.
if s_budat-high is initial.
s_budat-high = s_budat-low.
modify s_budat.
endif.
endloop.
idate-low = s_budat-low.
idate-high = s_budat-high.
call function 'FIMA_DAYS_AND_MONTHS_AND_YEARS'
exporting
i_date_from = idate-low
i_date_to = idate-high
importing
E_DAYS =
e_months = month
E_YEARS =
data: i(3) type c.
i = s_budat-low+4(2).
clear: r_budat.
refresh: r_budat.
*added by Prabhu for Only for Oneday.on 18.5.5
if month eq '0'.
month = month + 1.
endif.
*added by Prabhu for Only for Oneday.on 18.5.5
do month times.
r_budat-low = s_budat-low.
append r_budat.
enddo.
i = 0.
loop at r_budat.
r_budat-low4(2) = s_budat-low4(2) + i.
i = i + 1.
r_budat-low+6(2) = '01'.
modify r_budat.
endloop.
loop at r_budat.
call function 'RP_LAST_DAY_OF_MONTHS'
exporting
day_in = r_budat-low
importing
last_day_of_month = r_budat-high
EXCEPTIONS
DAY_IN_NO_DATE = 1
OTHERS = 2
modify r_budat.
endloop.
loop at r_budat.
if r_budat-low4(2) = s_budat-low4(2).
r_budat-low = s_budat-low.
modify r_budat.
endif.
if r_budat-high4(2) = s_budat-high4(2).
r_budat-high = s_budat-high.
modify r_budat.
endif.
For Summary on 26.4.05.
if y1 = 'X'.
clear r_budat.
refresh r_budat.
r_budat-low = s_budat-low.
r_budat-high = s_budat-high.
append r_budat.
clear r_budat.
endif.
endloop.
At Selection Screen *
at selection-screen output.
Start of Selection *
start-of-selection.
v_mjahr = p_spmon+0(4).
Get plant distinction warehouse/production
perform get_plant_distinction.
Collect the data from various tables
perform getdata_fg_stock.
here the number of rows in the output table is found
perform output_table_check.
here the top of the page code is written, that is to be displayed
in the output
perform z_top_of_page.
here ALV layout properties are set
perform z_layout_settings.
ALV EVENTS for TOP OF PAGE and for USER COMMAND
perform z_alv_events.
The field catalog is defined for the Primary List is defined in
the subroutine CREATE_FIELD_CATALOG include program ZPRRDOCR_FCAT
perform z_create_field_catalog.
This is for displaying the output
perform z_reuse_alv_grid_display.
*& Form getdata_fg_stock
Getting data from standard tables
form getdata_fg_stock.
For getting the Start date & end date of the month
PERFORM get_month_dates.
Getting the Opening Stock from MARDH table
if mon eq '01'.
mon1 = mon.
fyear1 = fyear.
mon = '12'.
fyear = fyear - 1.
else.
mon1 = mon.
fyear1 = fyear.
mon = mon - 1.
fyear = fyear.
endif.
perform get_records_from_db.
*added for Month Summary on 26.4.05.
loop at r_budat.
s_budat-low = r_budat-low.
s_budat-high = r_budat-high.
*for Month
p_spmon0(4) = s_budat-low0(4).
p_spmon4(2) = s_budat-low4(2).
*for summary.
if y1 = 'X'.
loop at s_budat.
s_budat1-sign = 'I'.
s_budat1-option = 'NB'.
s_budat1-low = s_budat-low.
s_budat1-high = s_budat-high.
append s_budat1.
clear s_budat1.
endloop.
endif.
imkpft[] = i_mkpf[].
imkpft2[] = i_mkpf[].
imardt[] = i_mard[].
imardht[] = i_mardh[].
perform month_wise.
perform process_movements.
perform calculate_opening_stock.
perform update_non_transaction_itms.
perform delete_empty_records.
clear: imardht,imardt,imkpft1,imkpft,i_final,i_final5.
refresh: imardht,imardt,imkpft1,i_final,i_final5,imkpft.
endloop.
clear: r_budat.
refresh: r_budat.
*end of changes for month.
endform. " getdata_fg_stock
FORM MONAT_F4 *
F4-Hilfe für Monat *
form monat_f4.
data: begin of mf_dynpfields occurs 1.
include structure dynpread.
data: end of mf_dynpfields.
data: mf_returncode like sy-subrc,
mf_monat like isellist-month,
mf_hlp_repid like sy-repid.
field-symbols: .
Wert von Dynpro lesen
get cursor field mf_dynpfields-fieldname.
append mf_dynpfields.
mf_hlp_repid = sy-repid.
do 2 times.
call function 'DYNP_VALUES_READ'
exporting
dyname = mf_hlp_repid
dynumb = sy-dynnr
tables
dynpfields = mf_dynpfields
exceptions
invalid_abapworkarea = 01
invalid_dynprofield = 02
invalid_dynproname = 03
invalid_dynpronummer = 04
invalid_request = 05
no_fielddescription = 06
undefind_error = 07.
if sy-subrc = 3.
Aktuelles Dynpro ist Wertemengenbild
mf_hlp_repid = 'SAPLALDB'.
else.
read table mf_dynpfields index 1.
Unterstriche durch Blanks ersetzen
translate mf_dynpfields-fieldvalue using '_ '.
exit.
endif.
enddo.
if sy-subrc = 0.
Konvertierung ins interne Format
call function 'CONVERSION_EXIT_PERI_INPUT'
exporting
input = mf_dynpfields-fieldvalue
importing
output = mf_monat
exceptions
error_message = 1.
if mf_monat is initial.
Monat ist initial => Vorschlagswert aus akt. Datum ableiten
mf_monat = sy-datlo(6).
endif.
call function 'POPUP_TO_SELECT_MONTH'
exporting
actual_month = mf_monat
importing
selected_month = mf_monat
return_code = mf_returncode
exceptions
factory_calendar_not_found = 01
holiday_calendar_not_found = 02
month_not_found = 03.
if sy-subrc = 0 and mf_returncode = 0.
ASSIGN (MF_DYNPFIELDS-FIELDNAME) TO <MF_FELD>. " ==>> note 148804
<MF_FELD> = MF_MONAT.
call function 'CONVERSION_EXIT_PERI_OUTPUT'
exporting
input = mf_monat
importing
output = mf_dynpfields-fieldvalue.
collect mf_dynpfields.
call function 'DYNP_VALUES_UPDATE'
exporting
dyname = mf_hlp_repid
dynumb = sy-dynnr
tables
dynpfields = mf_dynpfields
exceptions
invalid_abapworkarea = 01
invalid_dynprofield = 02
invalid_dynproname = 03
invalid_dynpronummer = 04
invalid_request = 05
no_fielddescription = 06
undefind_error = 07. "<<== note 148804
endif.
endif.
endform. "MONAT_F4
*& Form get_month_dates
Calculating the Month Start & End Date
form get_month_dates.
if m1 = 'X'.
fyear = p_spmon+0(4).
mon = p_spmon+4(2).
concatenate fyear mon '01' into r_budat-low.
r_budat-sign = 'I'.
r_budat-option = 'BT'.
call function 'BKK_GET_MONTH_LASTDAY'
exporting
i_date = r_budat-low
importing
e_date = r_budat-high.
append r_budat.
clear s_budat.
refresh s_budat.
s_budat-sign = 'I'.
s_budat-option = 'BT'.
s_budat-low = r_budat-low.
s_budat-high = r_budat-high.
append s_budat.
else.
fyear = p_spmon+0(4).
mon = p_spmon+4(2).
concatenate fyear mon '01' into r_budat-low.
r_budat-sign = 'I'.
r_budat-option = 'BT'.
call function 'BKK_GET_MONTH_LASTDAY'
exporting
i_date = r_budat-low
importing
e_date = r_budat-high.
append r_budat.
endif.
endform. " get_month_dates
*& Form output_table_Check
checking for records for output
form output_table_check .
describe table i_finalt lines index.
if index eq 0.
message i041 with text-005.
leave list-processing.
endif.
endform. "OUTPUT_TABLE_CHECK
*& Form Z_TOP_OF_PAGE
for setting the details in the top of page *
has no formal paramters * -
Regarding report for material status
HI All,
Can u guys pls help me thre is an error in the report
which iam presenting now. The error is that iam getting
the output for units in simple report is 'PC' and iam getting the out put for units in ALV as 'ST'.
why, i need an immediate reply.
*& Report ZSTOCKDETAILS4 *
REPORT zstockdetails4 NO STANDARD PAGE HEADING
LINE-SIZE 160
LINE-COUNT 60(3).
tables declaration *
TABLES : mara, "general material data
marc, "plant data for material
mard, "storage location data for material
makt. "material description
TYPE-POOLS : slis.
internal table declaration *
TYPES : BEGIN OF ty_mara,
matnr TYPE matnr,
mtart TYPE mtart,
meins TYPE meins,
END OF ty_mara.
TYPES : BEGIN OF ty_marc,
matnr TYPE matnr,
werks TYPE werks,
END OF ty_marc.
TYPES : BEGIN OF ty_mard,
matnr TYPE matnr,
werks TYPE werks,
lgort TYPE lgort_d,
labst TYPE labst,
END OF ty_mard.
TYPES : BEGIN OF ty_makt,
matnr TYPE matnr,
maktx TYPE maktx,
END OF ty_makt.
DATA:t_mara TYPE TABLE OF ty_mara WITH HEADER LINE,
t_marc TYPE TABLE OF ty_marc WITH HEADER LINE,
t_mard TYPE TABLE OF ty_mard WITH HEADER LINE,
t_makt TYPE TABLE OF ty_makt WITH HEADER LINE.
PARAMETER : p_alv AS CHECKBOX DEFAULT 'X'.
final internal table *
TYPES : BEGIN OF ty_out,
matnr TYPE matnr,
werks TYPE werks,
lgort TYPE lgort_d,
labst TYPE labst,
meins TYPE meins,
mtart TYPE mtart,
maktx TYPE maktx,
END OF ty_out.
DATA:t_out TYPE TABLE OF ty_out WITH HEADER LINE.
DATA DECLARATION FOR ALV *
DATA : fieldcatalog TYPE slis_t_fieldcat_alv WITH HEADER LINE,
gd_repid LIKE sy-repid,
gd_layout TYPE slis_layout_alv,
gd_tab_group TYPE slis_t_sp_group_alv,
gt_list_top_of_page TYPE slis_t_listheader,
it_sortcat TYPE slis_sortinfo_alv OCCURS 1,
wa_sort LIKE LINE OF it_sortcat.
selection screen *
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS : s_werks FOR marc-werks OBLIGATORY,
s_matnr FOR mara-matnr,
s_mtart FOR mara-mtart,
s_lgort FOR mard-lgort.
SELECTION-SCREEN END OF BLOCK b1.
start-of-selection *
START-OF-SELECTION.
SELECT matnr mtart meins
FROM mara
INTO TABLE t_mara
WHERE matnr IN s_matnr
AND mtart IN s_mtart.
SORT t_mara BY matnr.
SELECT matnr werks
FROM marc
INTO TABLE t_marc
FOR ALL ENTRIES IN t_mara
WHERE matnr = t_mara-matnr
AND werks IN s_werks.
SORT t_marc BY matnr.
SELECT matnr lgort labst
FROM mard
INTO CORRESPONDING FIELDS OF TABLE t_mard
FOR ALL ENTRIES IN t_mara
WHERE matnr = t_mara-matnr
AND lgort IN s_lgort.
SORT t_mard BY matnr.
LOOP AT t_mara.
READ TABLE t_marc WITH KEY matnr = t_mara-matnr BINARY SEARCH.
READ TABLE t_mard WITH KEY matnr = t_mara-matnr BINARY SEARCH.
MOVE : t_mara-matnr TO t_out-matnr.
MOVE : t_mara-mtart TO t_out-mtart.
MOVE : t_mara-meins TO t_out-meins.
MOVE : t_marc-werks TO t_out-werks.
MOVE : t_mard-lgort TO t_out-lgort.
MOVE : t_mard-labst TO t_out-labst.
SELECT SINGLE matnr maktx
FROM makt
INTO CORRESPONDING FIELDS OF makt
WHERE matnr = t_mara-matnr.
MOVE-CORRESPONDING makt TO t_out.
LOOP AT t_mard WHERE matnr = t_mara-matnr.
MOVE : t_mard-lgort TO t_out-lgort.
MOVE : t_mard-labst TO t_out-labst.
APPEND t_out.
CLEAR : t_out-lgort, t_out-labst.
ENDLOOP.
CLEAR t_out.
ENDLOOP.
SORT t_out BY werks lgort matnr.
IF
p_alv = 'X'.
PERFORM build_fieldcatalog.
PERFORM display_alv_report.
ELSE.
DATA: tot_lgort TYPE labst,
tot_werks TYPE labst,
tot TYPE labst.
LOOP AT t_out.
NEW-LINE.
WRITE :/ sy-vline, t_out-matnr,
15 t_out-werks,
35 t_out-lgort,
45 t_out-labst,
85 t_out-meins,
100 t_out-mtart,
120 t_out-maktx,160 sy-vline.
tot_lgort = tot_lgort + t_out-labst.
tot_werks = tot_werks + t_out-labst.
tot = tot + t_out-labst.
AT LAST.
ULINE.
WRITE : / 'THE GRAND TAOTAL IS', 52 tot.
ENDAT.
ENDLOOP.
ENDIF.
TOP-OF-PAGE *
TOP-OF-PAGE.
ULINE.
WRITE : sy-vline, 'MATERIAL',
15 'PLANT',
32 'STOR LOC',
56 'STOCK',
80 'UNITS',
95 'MAT TYPE',
115 'MAT DESCR',160 sy-vline.
ULINE.
*& Form build_fieldcatalog
text
FORM build_fieldcatalog.
fieldcatalog-fieldname = 'MATNR'.
fieldcatalog-seltext_m = 'Material Number'.
fieldcatalog-col_pos = 0.
fieldcatalog-outputlen = 10.
fieldcatalog-emphasize = 'X'.
fieldcatalog-key = 'X'.
fieldcatalog-do_sum = 'X'.
fieldcatalog-no_zero = 'X'.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
fieldcatalog-fieldname = 'WERKS'.
fieldcatalog-seltext_m = 'Plant'.
fieldcatalog-col_pos = 1.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
fieldcatalog-fieldname = 'LGORT'.
fieldcatalog-seltext_m = 'Storage Location'.
fieldcatalog-col_pos = 2.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
fieldcatalog-fieldname = 'LABST'.
fieldcatalog-seltext_m = 'Stock'.
fieldcatalog-col_pos = 3.
fieldcatalog-outputlen = 15.
fieldcatalog-do_sum = 'X'.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
fieldcatalog-fieldname = 'MEINS'.
fieldcatalog-seltext_m = 'Unit of Measure'.
fieldcatalog-col_pos = 4.
fieldcatalog-datatype = 'PC'.
fieldcatalog-reptext_ddic = 'Unit of Measure'.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
fieldcatalog-fieldname = 'MTART'.
fieldcatalog-seltext_m = 'Material Type'.
fieldcatalog-col_pos = 5.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
fieldcatalog-fieldname = 'MAKTX'.
fieldcatalog-seltext_m = 'Material Description'.
fieldcatalog-col_pos = 6.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
ENDFORM. "build_fieldcatalog
*& Form display_alv_report
text
FORM display_alv_report.
gd_repid = sy-repid.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER = ' '
I_BUFFER_ACTIVE = ' '
i_callback_program = gd_repid
I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '
i_callback_top_of_page = 'TOP-OF-PAGE'
I_CALLBACK_HTML_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_END_OF_LIST = ' '
I_STRUCTURE_NAME =
I_BACKGROUND_ID = ' '
I_GRID_TITLE =
I_GRID_SETTINGS =
is_layout = gd_layout
it_fieldcat = fieldcatalog[]
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
it_sort = it_sortcat
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =
IT_EVENTS =
IT_EVENT_EXIT =
IS_PRINT =
IS_REPREP_ID =
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
IT_ALV_GRAPHICS =
IT_HYPERLINK =
IT_ADD_FIELDCAT =
IT_EXCEPT_QINFO =
I_HTML_HEIGHT_TOP =
I_HTML_HEIGHT_END =
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =
TABLES
t_outtab = t_out
EXCEPTIONS
program_error = 1
OTHERS = 2
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM. "display_alv_reportHi Sai,
Please do the following:
While populating the fileld catalog for "MEINS".
<u>
add the shown code in bold:</u>
fieldcatalog-fieldname = 'MEINS'.
fieldcatalog-seltext_m = 'Unit of Measure'.
<b>fieldcatalog-CFIELDNAME = 'MEINS'.
fieldcatalog-CTABNAME = 'MARA'</b>.
fieldcatalog-col_pos = 4.
fieldcatalog-datatype = 'PC'.
fieldcatalog-reptext_ddic = 'Unit of Measure'.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
This will bring you "EA" in place of ST.
Hope this will work for you.
Lanka -
Excess Material Consumption Report - For a Particular Period
Hi,
For a particular Time Period, say 30 days, I require excess material consumption report. This report is for the materials ( say ROH, or HALB) that are confirmed through co11n. Taking MTS into consideration with Strategy Group 40, please suggest a standard report (if there is any).
Regards,
PavanThe T code for viewing the standard report for
Material Analysis - MCP5.
Production Order - MCP3.
Material Usage Analysis - MCRE.
Please try it.
Regards
R.Brahmankar -
Material consumption report for sales made artcle wise - help urgent
Hi Folks,
My client need a report which consist of
The raw material consumption report
1. Article wise (material group)
2. QTY
3. Value
4. or all sales made for foreign customers
5. Business area
Please help me
Thanks
NarasimHi,
Check COOIS report.
It will show the consumption order wise just filter Movement type 261.
Regards,
Shayam -
Raw Material Consumption Report
Dear Forum,
The users want to generate the report from the system that would give the item wise details of the Raw Material Cosnumption for the Period selected. How could we generate the same and also the users want to reconcile the same with the GL Account.
Your help would be much appreciated.
Regardshi
first take out which movements ur using for consumption like 201 261 etc
now goto mb51 here select those movements and materials u need with prorper business area,dates and execute
now u will get the report for the consumption
just match this with the GL accts
u can use transaction type WA also
regards
kunal -
Material Consumption Report all expert requested to check my code
Hi all guru
Plz
I am creating Material Consumption Report
so all expert are requested to check my code
bcz its giving me wrong value change if nessary
*& Report Z_MATERIAL_CONSUPTION
*&IEDK901096
REPORT Z_MATERIAL_CONSUPTION
LINE-COUNT 65(2)
LINE-SIZE 345
MESSAGE-ID zate_msg
NO STANDARD PAGE HEADING.
*T A B L E S
TABLES:MARC,
mara,
makt,
mard,
mbew,
mseg,
mkpf.
T Y P E S
Types for MARC
TYPES: begin of ty_marc,
matnr LIKE marc-matnr,
werks LIKE marc-werks,
end of ty_marc.
********Types for T001W*****
TYPES:BEGIN OF ty_t001w,
werks LIKE t001w-werks,
name1 LIKE t001w-name1,
END OF ty_t001w.
********Types for MARA*****
TYPES:BEGIN OF TY_MARA,
matnr LIKE mara-matnr,
mtart LIKE mara-mtart,
matkl LIKE mara-mtart,
END OF ty_mara.
********Types for MAKT*****
TYPES:BEGIN OF ty_makt,
matnr LIKE makt-matnr,
spras LIKE makt-spras,
maktx LIKE makt-maktx,
END OF ty_makt.
********Types for MKPF*****
TYPES:BEGIN OF ty_mkpf,
mblnr LIKE mkpf-mblnr,
budat LIKE mkpf-budat,
END OF ty_mkpf.
********Types for MSEG*****
TYPES:BEGIN OF ty_mseg,
mblnr LIKE mseg-mblnr,
mjahr LIKE mseg-mjahr,
matnr LIKE mseg-matnr,
werks LIKE mseg-werks,
menge LIKE mseg-menge,
END OF ty_mseg.
Types for main **************
TYPES: begin of ty_main,
matkl LIKE mara-mtart,
mtart LIKE mara-mtart,
matnr LIKE mara-matnr,
werks LIKE marc-werks,
name1 LIKE t001w-name1,
maktx LIKE makt-maktx,
budat LIKE mkpf-budat,
mblnr LIKE mseg-mblnr,
mjahr LIKE mseg-mjahr,
menge LIKE mseg-menge,
menge1 LIKE mseg-menge,
bwart LIKE mseg-bwart,
ret_qty LIKE mseg-menge,
ret_*** LIKE mseg-menge,
unit_qty LIKE mseg-menge,
unit_*** LIKE mseg-menge,
wip_qty LIKE mseg-menge,
wip_*** LIKE mseg-menge,
sub_qty LIKE mseg-menge,
sub_*** LIKE mseg-menge,
oth_qty LIKE mseg-menge,
oth_*** LIKE mseg-menge,
end of ty_main.
Types for main2 **************
TYPES: begin of ty_main2,
mblnr LIKE mseg-mblnr,
werks LIKE marc-werks,
mjahr LIKE mseg-mjahr,
menge LIKE mseg-menge,
bwart LIKE mseg-bwart,
matnr LIKE mara-matnr,
mtart LIKE mara-mtart,
matkl LIKE mara-mtart,
end of ty_main2.
*I N T E R N A L T A B L E S
DATA:it_mara TYPE ty_mara OCCURS 0 WITH HEADER LINE,
it_marc TYPE ty_marc OCCURS 0 WITH HEADER LINE,
it_t001w TYPE ty_t001w OCCURS 0 WITH HEADER LINE,
it_makt TYPE ty_makt OCCURS 0 WITH HEADER LINE,
it_main TYPE ty_main OCCURS 0 WITH HEADER LINE,
it_main2 TYPE ty_main2 OCCURS 0 WITH HEADER LINE,
it_mkpf TYPE ty_mkpf OCCURS 0 WITH HEADER LINE,
it_mseg TYPE ty_mseg OCCURS 0 WITH HEADER LINE,
it_mseg TYPE ty_main OCCURS 0 WITH HEADER LINE,
it_dept TYPE ty_main2 OCCURS 0 WITH HEADER LINE,
it_unit TYPE ty_main2 OCCURS 0 WITH HEADER LINE,
it_WIP TYPE ty_main2 OCCURS 0 WITH HEADER LINE,
it_subcon TYPE ty_main2 OCCURS 0 WITH HEADER LINE,
it_others TYPE ty_main2 OCCURS 0 WITH HEADER LINE.
**********I N T E R N A L T A B L E S for Cumulative Calculation**********
DATA:it_mseg1 TYPE ty_main OCCURS 0 WITH HEADER LINE,
it_dept1 TYPE ty_main2 OCCURS 0 WITH HEADER LINE,
it_unit1 TYPE ty_main2 OCCURS 0 WITH HEADER LINE,
it_WIP1 TYPE ty_main2 OCCURS 0 WITH HEADER LINE,
it_subcon1 TYPE ty_main2 OCCURS 0 WITH HEADER LINE,
it_others1 TYPE ty_main2 OCCURS 0 WITH HEADER LINE.
W O R K A R E A
DATA:wa_mara TYPE ty_mara,
wa_marc TYPE ty_marc,
wa_t001w TYPE ty_t001w,
wa_makt TYPE ty_makt,
wa_main TYPE ty_main,
wa_main2 TYPE ty_main2,
wa_mkpf TYPE ty_mkpf,
wa_mseg TYPE ty_mseg,
wa_mseg1 TYPE ty_mseg,
wa_dept TYPE ty_main2,
wa_ret_qty TYPE ty_main2,
wa_ret_*** TYPE ty_main2.
V A R I A B L E S D E C L A R A T I O N
DATA: MYDATE TYPE SY-DATUM,
per_qty TYPE p,
***_qty TYPE p ,
final_total TYPE p DECIMALS 2.
S E L E C T I O N S C R E E N
SELECTION-SCREEN:BEGIN OF BLOCK B1 WITH FRAME TITLE text-001.
PARAMETERS:Plant LIKE marc-werks DEFAULT '1023'.
select-options:Mat_Grp FOR mara-matkl,
Mat_Type FOR mara-mtart,
MATERIAL FOR MARC-MATNR,
Period FOR mydate.
PARAMETERS:Year LIKE mseg-mjahr DEFAULT '2007'.
SELECTION-SCREEN:END OF BLOCK B1.
I N I T I A L I Z A T I O N
INITIALIZATION.
MATERIAL-LOW = '100'.
MATERIAL-HIGH = '200'.
APPEND MATERIAL.
*MAT_TYPE-LOW = 'ABF'.
*MAT_TYPE-HIGH = 'FERT'.
*APPEND MAT_TYPE.
*MAT_GRP-LOW = '100'.
*MAT_GRP-HIGH = '200'.
*APPEND MAT_GRP.
*PERIOD-LOW = '20071001'.
*PERIOD-HIGH = '20071031'.
*APPEND PERIOD.
S T A R T O F S E L E C T I O N
start-of-selection.
PERFORM it_mara_data.
PERFORM it_marc_data.
PERFORM it_t001w_data.
PERFORM it_makt_data.
PERFORM it_mseg_data.
PERFORM it_mseg1_data. "CUMULATIVE CALCULATION
PERFORM it_mkpf_data.
PERFORM it_dept_data.
PERFORM it_dept1_data. "CUMULATIVE CALCULATION
PERFORM it_unit_data.
PERFORM it_unit_data1. "CUMULATIVE CALCULATION
PERFORM it_wip_data.
PERFORM it_wip_data1. "CUMULATIVE CALCULATION
PERFORM it_sub_contract.
PERFORM it_sub_contract1. "CUMULATIVE CALCULATION
PERFORM it_main_data.
T O P O F P A G E
TOP-OF-PAGE.
WRITE: /1 'INOX AIR PRODUCTS LTD',plant,it_t001w-name1,
/1 'TOTAL CONSUMPTION FOR THE PERIODE:',Period-low,'To',period-high.
skip 2.
FORMAT COLOR 1.
ULINE.
WRITE: /1'|','CODE ' ,
15 'MATERIAL' ,
30 'DESCRIPTION',
90'CONSUMPTION' ,
135'RETURN FROM DEPT.' ,
170'INTER UNIT' ,
210'W.I.P' ,
240'SUB-CONTRACTOR' ,
275'OTHERS' ,
310'TOTAL',345'|' ,
/1'|',15 'TYPE',
85'FOR PERIOD' ,
100 ' CUMULATIVE' ,
130'FOR PERIOD' ,
145 'CUMULATIVE' ,
165'FOR PERIOD' ,
180 'CUMULATIVE' ,
200'FOR PERIOD' ,
215'CUMULATIVE' ,
235'FOR PERIOD' ,
250'CUMULATIVE' ,
265'FOR PERIOD' ,
280 'CUMULATIVE' ,
300'FOR PERIOD' ,
315' CUMULATIVE' ,
345'|' .
ULINE.
E N D O F S E L E C T I O N
end-OF-SELECTION.
PERFORM display_data.
FORM it_mara_data.
SELECT matnr
mtart
matkl
FROM mara INTO CORRESPONDING FIELDS OF TABLE it_mara
WHERE matnr IN material AND
mtart IN mat_type AND
matkl IN mat_grp.
ENDFORM. " it_mara_data
FORM it_marc_data .
select matnr
werks
from marc
into CORRESPONDING FIELDS OF TABLE it_marc
FOR ALL ENTRIES IN it_mara
WHERE MATNR eq it_mara-matnr AND
werks eq plant.
ENDFORM. " it_marc_data
FORM it_makt_data .
SELECT
matnr
maktx
FROM makt INTO
CORRESPONDING FIELDS OF TABLE it_makt
FOR ALL ENTRIES IN it_mara
WHERE matnr eq it_mara-matnr.
ENDFORM. " it_makt_data
FORM it_main_data .
*BREAK-POINT.
loop at it_mara.
wa_main-matnr = it_mara-matnr.
wa_main-mtart = it_mara-mtart.
wa_main-matkl = it_mara-matkl.
READ TABLE it_marc WITH KEY matnr = it_mara-matnr.
wa_main-werks = it_marc-werks.
READ TABLE it_t001w WITH KEY werks = it_marc-werks.
wa_main-name1 = it_t001w-name1.
READ TABLE it_makt WITH KEY matnr = it_mara-matnr.
wa_main-maktx = it_makt-maktx.
READ TABLE it_mseg1 INDEX sy-tabix.
wa_main-mjahr = it_mseg1-mjahr.
wa_main-menge1 = it_mseg1-menge.
READ TABLE it_mseg WITH KEY matnr = it_mara-matnr.
READ TABLE it_mseg INDEX sy-tabix.
wa_main-mblnr = it_mseg-mblnr.
wa_main-menge = it_mseg-menge.
READ TABLE it_dept WITH KEY mblnr = it_mseg-mblnr.
wa_main-ret_qty = it_dept-menge.
READ TABLE it_dept1 WITH KEY werks = it_marc-werks.
READ TABLE it_dept1 INDEX sy-tabix.
wa_main-ret_*** = it_dept1-menge.
READ TABLE it_mkpf WITH KEY mblnr = it_mseg-mblnr.
wa_main-budat = it_mkpf-budat.
READ TABLE it_unit1 WITH KEY werks = it_marc-werks.
READ TABLE it_unit1 INDEX sy-tabix. "BINARY SEARCH.
wa_main-unit_*** = it_unit1-menge.
READ TABLE it_unit WITH KEY mblnr = it_mseg-mblnr.
wa_main-unit_qty = it_unit-menge.
READ TABLE it_wip WITH KEY mblnr = it_mseg-mblnr.
wa_main-wip_qty = it_wip-menge.
READ TABLE it_wip1 WITH KEY werks = it_marc-werks.
READ TABLE it_wip1 INDEX sy-tabix.
wa_main-wip_qty = it_wip1-menge.
READ TABLE it_subcon WITH KEY mblnr = it_mseg-mblnr.
wa_main-sub_qty = it_subcon-menge.
READ TABLE it_subcon1 WITH KEY werks = it_marc-werks.
READ TABLE it_subcon1 INDEX sy-tabix.
wa_main-sub_*** = it_subcon1-menge.
READ TABLE it_others WITH KEY mblnr = it_mseg-mblnr.
wa_main-oth_qty = it_others-menge.
READ TABLE it_others1 WITH KEY werks = it_marc-werks.
READ TABLE it_others1 INDEX sy-tabix.
wa_main-oth_*** = it_others1-menge.
APPEND wa_main to it_main.
CLEAR : wa_main,
it_mseg1,
it_main.
ENDLOOP.
LOOP at it_mseg1.
READ TABLE it_mseg INDEX sy-index.
MOVE-CORRESPONDING it_mseg1 to it_main.
append LINES OF it_mseg1 TO it_main.
IF sy-subrc <> 0.
exit.
ENDIF.
ENDLOOP.
ENDFORM. " it_main_data
FORM display_data .
SORT it_main by matkl mtart maktx.
LOOP AT it_main ."WHERE menge eq it_mseg1-menge.
at NEW matkl.
FORMAT COLOR 2 INTENSIFIED ON.
WRITE:/5 it_main-matkl." COLOR 2.
ENDAT.
at NEW mtart.
FORMAT COLOR 3 INTENSIFIED ON.
WRITE:/15 it_main-mtart." COLOR 3.
ENDAT.
at NEW maktx.
FORMAT COLOR 4 INTENSIFIED OFF.
WRITE:/ it_main-maktx UNDER 'DESCRIPTION'.
ENDAT.
FORMAT COLOR 2 INTENSIFIED ON.
WRITE:/75 it_main-menge, "it_main-maktx UNDER 'DESCRIPTION',
95 it_main-menge1,
125 it_main-ret_qty,
140 it_main-ret_***,
160 it_main-unit_qty,
175 it_main-unit_***,
195 it_main-wip_qty,
210 it_main-wip_***,
225 it_main-sub_qty,
240 it_main-sub_***,
255 it_main-oth_qty,
270 it_main-oth_***.
FORMAT COLOR 2 INTENSIFIED OFF.
at END OF mtart.
sum.
uline.
WRITE:/30 'MAT. TYPE WISE SUB TOTAL' COLOR COL_GROUP,
60 IT_MAIN-MTART COLOR 2,
75 '*',it_main-menge,'*' COLOR 4,
95 it_main-menge1,
125 it_main-ret_qty,
140 it_main-ret_***,
160 it_main-unit_qty,
175 it_main-unit_***,
195 it_main-wip_qty,
210 it_main-wip_***,
225 it_main-sub_qty,
240 it_main-sub_***,
260 it_main-oth_qty,
270 it_main-oth_***.
uline.
ENDAT.
at END OF matkl.
sum.
uline.
WRITE:/30 'GROUPWISE SUB TOTAL ' COLOR 5,
60 IT_MAIN-MATKL COLOR 2,
75 '*',it_main-menge,'*' COLOR 4,
95 it_main-menge1,
125 it_main-ret_qty,
140 it_main-ret_***,
160 it_main-unit_qty,
175 it_main-unit_***,
195 it_main-wip_qty,
210 it_main-wip_***,
225 it_main-sub_qty,
240 it_main-sub_***,
260 it_main-oth_qty,
270 it_main-oth_***.
uline.
ENDAT.
at LAST.
sum.
uline.
WRITE:/30 'GROSS TOTAL' COLOR 6,
60 IT_MAIN-MATKL COLOR 2,
75 '*',it_main-menge,'*' COLOR 4,
95 it_main-menge1,
125 it_main-ret_qty,
140 it_main-ret_***,
160 it_main-unit_qty,
175 it_main-unit_***,
195 it_main-wip_qty,
210 it_main-wip_***,
225 it_main-sub_qty,
240 it_main-sub_***,
260 it_main-oth_qty,
270 it_main-oth_***.
uline.
ENDAT.
per_qty = it_main-menge.
***_qty = it_main-menge1.
final_total = per_qty + ***_qty.
at last.
WRITE:/95 sy-uline(30).
write:/65 'Final Cumulative Qty >>>>>>>>>',final_total color 6.
WRITE:/95 sy-uline(30).
ENDAT.
FORMAT INTENSIFIED off.
ENDLOOP.
ENDFORM. " display_data
" it_mkpf_data
FORM it_mseg_data .
SELECT
mblnr
matnr
ZEILE
werks
menge
bwart
FROM mseg INTO CORRESPONDING FIELDS OF TABLE it_mseg
FOR ALL ENTRIES IN it_mara
WHERE matnr eq it_mara-matnr AND
werks eq plant AND
bwart eq 261." AND bwart eq 262.
CLEAR it_mseg.
ENDFORM. " it_mseg_data
FORM it_mkpf_data .
SELECT
mblnr
budat
FROM mkpf INTO CORRESPONDING FIELDS OF TABLE it_mkpf
FOR ALL ENTRIES IN it_mseg
WHERE mblnr eq it_mseg-mblnr." AND
budat BETWEEN Period-low AND period-high.
ENDFORM.
FORM it_t001w_data .
SELECT werks name1 FROM t001w INTO CORRESPONDING FIELDS OF TABLE it_t001w
FOR ALL ENTRIES IN it_marc
WHERE werks eq it_marc-werks.
ENDFORM. " it_t001w_data
FORM it_mseg1_data .
SELECT
mblnr
mjahr
ZEILE
matnr
werks
menge
bwart
FROM mseg INTO CORRESPONDING FIELDS OF TABLE it_mseg1
FOR ALL ENTRIES IN it_mara
WHERE matnr eq it_mara-matnr AND
werks eq plant AND
mjahr eq Year AND
bwart eq 261." AND bwart eq 262.
CLEAR it_mseg1.
ENDFORM. " it_mseg1_data
FORM it_dept_data .
SELECT
mblnr
mjahr
ZEILE
werks
menge
bwart
FROM mseg INTO CORRESPONDING FIELDS OF TABLE it_dept
FOR ALL ENTRIES IN it_mseg
WHERE mblnr eq it_mseg-mblnr AND
werks eq it_mseg-WERKS AND
bwart ge 291 AND bwart le 292.
ENDFORM.
" it_dept_data
FORM it_dept1_data .
SELECT
mblnr
mjahr
ZEILE
werks
menge
bwart
FROM mseg INTO CORRESPONDING FIELDS OF TABLE it_dept1
FOR ALL ENTRIES IN it_mara
WHERE matnr eq it_mara-matnr AND
werks eq plant AND
mjahr eq YEAR AND
bwart ge 291 and bwart le 292.
ENDFORM. " it_dept1_data
FORM it_unit_data .
SELECT
mblnr
mjahr
ZEILE
werks
menge
bwart
FROM mseg INTO CORRESPONDING FIELDS OF TABLE it_unit
FOR ALL ENTRIES IN it_mseg
WHERE mblnr eq it_mseg-mblnr AND
werks eq it_mseg-WERKS AND
bwart ge 301 AND bwart le 302.
ENDFORM. " it_unit_data
FORM it_unit_data1 .
SELECT
mblnr
mjahr
ZEILE
werks
menge
bwart
FROM mseg INTO CORRESPONDING FIELDS OF TABLE it_unit1
FOR ALL ENTRIES IN it_mara
WHERE matnr eq it_mara-matnr AND
werks eq plant AND
mjahr eq YEAR AND
bwart ge 301 AND bwart le 302.
ENDFORM. " it_unit_data1
FORM it_wip_data .
SELECT
mblnr
mjahr
ZEILE
werks
menge
bwart
FROM mseg INTO CORRESPONDING FIELDS OF TABLE it_wip
FOR ALL ENTRIES IN it_mseg
WHERE mblnr eq it_mseg-mblnr AND
werks eq it_mseg-WERKS AND
bwart ge 301 AND bwart le 302.
ENDFORM. " it_wip_data
FORM it_wip_data1 .
SELECT
mblnr
mjahr
ZEILE
werks
menge
bwart
FROM mseg INTO CORRESPONDING FIELDS OF TABLE it_wip1
FOR ALL ENTRIES IN it_mara
WHERE matnr eq it_mara-matnr AND
werks eq plant AND
mjahr eq YEAR AND
bwart ge 301 AND bwart le 302.
ENDFORM. " it_wip_data1
FORM it_sub_contract .
SELECT
mblnr
mjahr
ZEILE
werks
menge
bwart
FROM mseg INTO CORRESPONDING FIELDS OF TABLE it_subcon
FOR ALL ENTRIES IN it_mseg
WHERE mblnr eq it_mseg-mblnr AND
werks eq it_mseg-WERKS AND
bwart eq 541." AND bwart eq 542.
ENDFORM. " it_sub_contract
FORM it_sub_contract1 .
SELECT
mblnr
mjahr
ZEILE
werks
menge
bwart
FROM mseg INTO CORRESPONDING FIELDS OF TABLE it_subcon1
FOR ALL ENTRIES IN it_mara
WHERE matnr eq it_mara-matnr AND
werks eq plant AND
mjahr eq YEAR AND
bwart eq 541." AND bwart eq 542.
ENDFORM. " it_sub_contract1Hi,
When ever you are using a read statement check sy-subrc is initial or not then only you move the data
and clear the work area after use.
The mistake you have done is not clearing the work areas after use and sy-subrc check after read.
If you fail to do so the data will be clubbed and wrong data will be shown.
Regards,
Siva
Pls reward points if usefull . -
Profit Center wise value of material consumption & purchases report
Dear Frinz,
Can anybody revert with t-code/table from which I could be able to see purchase & consumption of material / material group Profit Center wise, from the first day of mat procurement to till date.
Profit Center wise value of material consumption & purchases report
=-=
Pradip GawandeHi,
You can use T.Code: KSB1 (Display Actual cost line items) in which you can restrict the report by providing the material consumption cost elements and don't give any cost center, which displays all the cost center for the given cost element.
Regards -
Hi Guys,
I have to develop a custom report intended for use by our factories and is design to give them detail information on raw materials actual usage relative to how much should have been used (standard usage) by an individual product or product group.
The column of the report that is probably the most challenging to determine by taking the BOM quantities for each product in the product group under consideration and multiplying them by the actual output achieved for the respective products in order obtain the standard usage.
I have been looking at doing the following. Substracting the fields of txn COR3(Display process order material list), from txn CORT(Process order confirmation display: goods movement). Is this the right approach.
Any screens, transactions, tables, structures for me to do this report would be greatly appreciated.
Thank you for the help.
Sumit.Hi,
Have you tried looking at the standard material consumption report - Transaction MCRE?
Rgds. -
Material consumption report for workcenter in REM
Hi,
I am using REM. Is it possible to get report on materials consumption for a work center in Repetetive manufacturing.
If possible.Please explain me how.
thanks and regards
MurugesanHi,
For MF60, settings should be done in OSPP , here give ur plant & movement type as 311
1) MF60 - in MF60, Global settings icon plays a major role & check the date which ur giving
2) take ur current plan orders and input in plan order option
3) then go to Global settings remove all ticks & execute
Regards
kumar
Edited by: kumar kumar on Sep 19, 2009 1:14 PM
Maybe you are looking for
-
HP Desjet 2540 problem Wireless printer, printer is connected but does not print from pc
I wanted to install my HP Deskjet 2540 printer, the installation went quickly, the printer is installed wirelessly.. but I can't print. I can print from my tablet to the printer. But ofcourse I also need to print from my pc > printer. I already used
-
I need to reactivate my old iPhone with Verizon
I can't create a Verizon account for my number unless I can receive a confirmation text, and I can't do that because I have no cell phone. Help please??
-
Online Number "Area Code/Local Area" Selection DOE...
Someone else already posted this earlier, but im having the same problem. I am trying to get an online skype number (NOT THE "TO GO" NUMBER) in the United States and I am able to set the country and state selections, but when asked to set the area co
-
Ultrabay slim DVD Burner noise
I've got the DVD Drive for the Ultrabay of my X200's Ultrabase. When it is reading from a DVD it is making an incredible noise due to case vibration (if i push it a little bit upwards with my hand the noise ceases). Is there anything I can do and, if
-
Can I invoke instance method using JNI pointer
Hi, In my work, I need to pump data from dll to my java application.. for this I came to the following workaround. 1. Created a static method with (printMe()) in my java class (GrabTest.java) public static int count = 5; public static int pri