Replenishment of the raw material

Hi All,
This is REM scenario.normally the raw materials are reserved against prod order for production. but
now client required for some raw material should be replenished after the stock get empty without the reference of the bom explosion and the reservation against the prod order.
they need to do replenishment by transfer the raw material from the storage location to te production area.
how we can do this .pls explain the steps.
pls explain in step
thanks in advance
vbakyaraj

Hi,
In MRP 4 view , you can maintain your stock levels at storage location level. By planning storage location stock separately If storage location stock is planned separately, the storage location is replenished with goods if the stock falls below the reorder point.
In SPRO- MM - Consumption based planning - Planning - define storage location MRP per plant. ere you can give MRP indicator 2 for the required Storage location.
Hope this will help you.
Regards
Ram

Similar Messages

Freight cost to be included in the Raw material cost while creating VL31N

Hi all,
We are purchasing raw material from other country. we are paying freight for the imported material.
My requirement is, when doing inbound delivery freight cost has to be included in the raw material cost.
Now its not getting included in the raw material cost.
What are all the necessary steps to be done to include the freight cost into the raw material?
Thanks in advance,
Babu

Hi,
You can create dummy material inmaterial master record.
You can enter the material manually while creating inbound delivery, which will come as unplanned delivery cost.
Br,
Tushar Patankar

How the raw material cost is picked in product cost in case of split materi

how the raw material cost is picked in product cost in case of split material in BOM

Hi
In case of Std cost (CK11N), the planned price or MAP that you enter in the Parent accounting View will be considered for the cost calcualtoin purpose
Parent view means the view which is above the 2 or more valuation types which consists of avg value of all other val types
Ajay M

Move the stock from the raw material storage type to production storage typ

Hi
How to move the stock from the raw material storage type to production storage type.
note that both stoare type be in same storage location only.
pls reply me

Hi Raj,
I WM process, issue or transfer to Production process results in picking of material from the RM storge location / storage type.
If you mean your production stoarge location is same as that of the RM stoage location, it is just a tranfer within a warehous.
which you could do with posting change document. This doesnt reduce your WM stock.
If the production stoarge location is differnt from RM stiage location, then it is picking process from WM and goods issue.
this reduces your WM stock.
hope it helps.
Regards
Harish

Process to split production order based on the raw material batches

Hi All, below is a business situation which needs some some SAP process to help overcoming this issue.
We are working on process industry, where the core fabric (SFG) are produced from different machines and which are used as raw material in the subsequent process (Coating). Business wants SAP to generate individual planned orders for Coating when it uses this materials
e.g
Current situation.
SFG1 is the component of SFG2
SFG2 is the component of FG.
When the demand for FG is 100, you get 2 planned orders SFG1- 100 yd and SFG2- 100 yds
During production, the Planned order for SFG1 is split for 2 production order each producing 50 yds each.
Now I have SFG1 - 50 yds ( Batch A001), and SFG1- 50 yds ( Batch A002).
Now Business wants SAP to automatically propose 2 order for SFG2, However based on MRP it will only show 1 planned order of 100 yds required for SFG2 since the demand of FG is 100.
We want to split the planned orders of the higher level to look at lower level stock.
Any ideas or thought process.
Regards
Sarvan

Sarvan,
You can have MRP propose two lots of SFG2 based upon lot sizing. For instance, if you always will want SFG2 to have orders of 50 each, then one way to achieve this would be to set the 'maximum lot size' to 50. MRP1 Tab of the material master.
There are other lotsizing methodologies that may be better suited to your business requirements as well.
Lot-Size Calculation - Consumption-Based Planning (MM-CBP) - SAP Library
Best Regards,
DB49

Scrap cost generated is more than the raw material cost

Dear Gurus. Please help me in this scenario
The conversion cost of the material is lesser than the scrap cost when the material is sent to vendor for any grinding operation, in such cases we need to recover money from vendor.
Eg: Conversion cost is Rs 100 , Scrap generated value is Rs 800. Hence Rs 700 needs to be recovered from vendor.
How to put this in Info record? and how to handle this situation in PO and further process?

Hi,
Please create new material code for the scrap mateirial.
Now your sending material code is 1000 and receving material code is 2000. While creating subcontracting po manually add scrape material code negative qty.
So when you take GR for the material 2000, material 1000 go to consumption and scrap material posted to stock. Then created returnn purcahse order for scrap material to the vendor.
I hope it will work.
Ashish

Availablity check in sales order considering the Raw material stock/procurement

Hi Gurus,
Our client Production process requires the availability check at order level to consider the procurement time required for the Rawmaterial (BOM component of the FERT, whose sales order is taken) in cases when this RM is not available in the plant, and Availability check should not consider this procurement time when this RM is available in the plant.
ie in first case, it should consider the total time for in-house production as well as the time required to procure the rawmaterials, along with all other times that we use like Gr processing time, packing picking etc.
In second case it should not consider the RM procurement time, but only the inhouse production time and other times as applicable.
To my understanding, Availability check at order level will only check the time given in the MRP view of the FERT, and it does not check anything about RM stock or RM procurement time.
Can you please give me some suggestions to meet this requirement of the client (client is into Food Product Manufacturing).
Your quick response will be very helpful

You can try with user exits intended for ATP as recommended in the following note based on material type:-
Note 1644443 - Documentation on User-Exits in the area of the availability
That is as and when ATP runs for a sale order, with any of the exits listed out in the above note, you can validate for the material type which would be different for components and accordingly, write a coding in such a way not to consider such of those components. But ensure that the user-exits are critical and should be tested carefully as cautioned in the note.
G. Lakshmipathi

SFG cost same as the Raw Material price consumed

Hi all,
Is it possible for us to have the SFG price same as the price we consume? Reason being is that they want to carry the same cost to the next stage, let say consumption cost is RM 500, the SFG produced need to be RM500. Say RM->SFG1->SFG2->FG, so SFG has to carry to actual cost consume and issue to SFG2 and SFG2 will consist of cost of SFG1 + RM.

Hi,
What kind of Process is this ?MTO or ETO or MTS?
Thanks,
Rau

Batch Traceability for Sugar as raw material during the production process

Dear Colleague ,
I need your support for a traceability issue in a customer on beverage sector
See the case below:
Batch Traceability for Sugar as raw material during the production process
In AMSB the batch traceability in some production processes is very difficult, especially in case of sugar where tanks wherein more than one batches of the same material can be mixed. For example, in a single day almost 17-20 batches of the same material can be mixed and as the result is a composition of water and sugar the normal FIFO rule strategy cannot be applied during the component consumption.
The raw material (sugar) is received in tank S5 at different points of time, and its content is transferred to tank B1 for storage purposes as well as for mix the sugar with other material such as water.
At a specific moment the S5 tank contains only a single batch, while the tank B1 contains more than one batch. Tank B1 is used in order to supply the production line and the corresponding material consumption is triggered in backflush as soon as the production activity is declared (production confirmation). Along with the material consumption the batch determination takes place and a complex algorithm is applied: at a very high level, the single batch is consumed depending on its percentage inside the mix of composition and in case the this
percentage is under a threshold level the current batch should be full used in order to avoid that it will exist for ever.
Moreover, the good movement reversal (reversal of material consumption) and its correction lead to a complete new calculation of all the batches consumed after the original movement date/time. This means that the algorithm for batch determination should be reapplied for all the consumptions subsequent to the original movement.
On the other hand it’s not possible to identify the mix of batches at the exit point of silos B1 because the total consumption of the material in the tank will never happen. As long as the tank level decreases it will be filled up from the tank used for receiving of sugar (S5).
As requirement AMSB needs to post the material consumption starting from EWM, this means that EWM should be the master system in this case and the correspondingmovements have to be transferred to ECC afterwards. This mainly because EWM should guarantee the business continuity in case the ERP system is not available.
AMSB asked if the scenario depicted has been implemented in some customer, in EWM system or in any other SAP solution.

Hi ,
At the time of consumption you can put ' * ' aestrix sign in the batch field.
You will get list of batches of that material.select ur batch and consume the quantity.
Regards
Piyush

How to track the utlisation of raw material given by cusomer

My business scenario is like this,my customer will supply raw material to my company we have to process the material,sell it to same customer.as a result of this we will processing charge per kg of material.The customer need to know how the raw material supplied by him is utlised (finished goods detail & scrap detail)
Thats is the flow from MM TO PP TO SD (MATERIAL FLOW)

Hello,
You will have to map Sub-Contracting Process in your system. Your company is the Sub Contractor for your Customer.
Please search in SAP Building Blocks for Sub Contractors. This is oe of the link I found: http://help.sap.com/bestpractices/BBLibrary/HTML/J75_ThirdPartyOrdProcwithSub_EN_KO.htm
Hope this helps,
Thanks,
Jignesh Mehta

Check in migo while gr raw material should equal with the challan materials

hi friends,
while doing gr in migo there should be a check for the raw material's which we are giving should match with challan materials. Here challan no is entered at the excise invoice tab- subcontracting challan level.
points will be rewarded,
thanks in advance ,
prasad.

Thanks for your kind reply,
But is there a way solve this problem?
And what is the use of leaving a field in the account assignment tab for an internal order while creating a PO and it will not take advantage of the settlement rule????????
And as you know the internal order settlement is a way to create a multiple account assignment
Can we solve the problem by making an automatic fake transaction that reverse the value of the GR/IR and creating another transaction can apply on it the settlement rule??
You know that settlement rule process is one of the best features in the SAP system it save time and effort to make distributions manually

Raw material procurement based on the LTP Plan

Dear Friends,
How can I create a procurement proposals based on the LTP Plan. For example for material A, I am doing the LTP planning for entire Year. As per the LTP plan I got the Raw material requirements. I don't want to make the total plan as active. That means I don't want to create PIRs for my finished material A for the entire year. But as per the LTP plan of finished material A... I want to create a procurement proposals for the raw materials for the entire month through schedule lines... How can we do it?
If any further clarification is required... please let me know.
Regards.

Hi,
Based on the forecast for the material A, the simulative planned orders will generated for its raw material duirng the LTP run.
If you want to convert hte planned proposal into PR then you can run MD43 for the particular Raw material.
Before running MD43, in MS04 - set firming date and then run MD43, planned orders will get converted to PR (firmed). Then run LTP again using MS02 (then the planned orders get deleted)
Please check and come back if you need any clarification
Thanks,
JK

Raw Material (excise duty paid) scrapped at the stage of Production.

Dear Experts,
Excise duties applicable (and paid) raw Material is scrapped due to damage in Production. This material is not returned to vendor.
Excise duty has been paid, Excise entries are updated.
As per the central government excise rules, how this material is to be treated. Also please explain SAP CIN point of view. I have to run this business process in SAP.
Thanks in Advance

Hi,
U can srap that material and u can sell the scrap at that time u dont need to pay the excise duty applicable on to the Raw material. But the excise duty liable on Scrap only.
u cannot writoff the Raw material once used for prodution.
regards,
sujit

Optimization of raw material while issuing from the stores

Dear Techies,
I need a small information regarding,Optimization of raw materials of "arc shape "while issuing from the stores it self.
I will explain this with an example.
Say we require a flange ring.This flange ring can be manufactured using three -120 deg segments.
while calling the raw material below the flange rings material ,we have to give raw material dimensions of " 1X120 deg segment".System will accordingly multiply for the requirement of 3-segments.
In this situation is there any possibilty to " Club" the raw material to minimize the scrap,ie., we can accomdate another segment just below the other segment.With this type of arrangement I can optimize raw material required.
Is there any possibility in SAP that I can address this situation.
Thanks In advance,
With best regards,
Kiran.

Hello,
according to my knowlege it is not possible in SAP.
you have to create interface with Softwares like PRO-E sheet metal.
Regards
AM

Raw material cost report for production of finished produt.?(urgent..REWARD

Hi,
any one can help in this issue.
i am not getting the raw materila cost & manfacture conversion cost for for the bom of FG - SFG - SFG - SFG- RAW
FG - finished goods,
SFG - semi finished goods
RAW - raw material.
plz provide the solution.
raw material and manfacture conversion cost is calculated in PERFORM z_process_data. subroutine.
REPORT z_co_production_cost_nsk.
TABLES: afko, bkpf, t001w , caufv.
TYPE-POOLS: kkblo,
            slis.
DATA: d_datefrom LIKE sy-datum,
      d_dateto LIKE sy-datum,
      d_repid LIKE sy-repid,
      d_uname LIKE sy-uname,
      d_returncode TYPE i,
      d_tabix TYPE i,
      d_kokrs LIKE tka01-kokrs,
      d_waers LIKE tka01-waers,
      wa_fieldcatalog TYPE slis_fieldcat_main,
      wa_listevents TYPE slis_alv_event,
      wa_listlayout TYPE slis_layout_alv,
      wa_print_info TYPE slis_print_alv,
      wa_listheader TYPE slis_listheader,
      d_headerlines TYPE i.
DATA: BEGIN OF t_caufv OCCURS 0,
        aufnr TYPE caufv-aufnr,
        werks TYPE caufv-werks,
        objnr TYPE covp-objnr,
        gamng TYPE caufv-gamng,
        plnbez TYPE caufv-plnbez,
        rsnum TYPE caufv-rsnum,
      END OF t_caufv.
*Added by Anand Bothra on 24/11/2003
DATA: t_ab_caufv LIKE t_caufv OCCURS 0 WITH HEADER LINE.
DATA: t_temp_caufv LIKE t_caufv OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF t_afpo OCCURS 0,
        aufnr TYPE afpo-aufnr,
        posnr TYPE afpo-posnr,
        wemng TYPE afpo-wemng,
        amein TYPE afpo-amein,
        charg TYPE afpo-charg,
      END OF t_afpo.
DATA: BEGIN OF t_afpo1 OCCURS 0,
        aufnr TYPE afpo-aufnr,
        refaufnr TYPE afpo-aufnr,
        objnr TYPE caufv-objnr,
        rsnum TYPE afko-rsnum,
        wemng TYPE afpo-wemng,
        werks TYPE afpo-dwerk,
        charg TYPE afpo-charg,
      END OF t_afpo1.
DATA: BEGIN OF t_makt OCCURS 0,
        matnr TYPE makt-matnr,
        maktx TYPE makt-maktx,
      END OF t_makt.
DATA: t_fieldcatalog TYPE slis_t_fieldcat_alv,
      t_listevents TYPE slis_t_event,
      t_sortsequence TYPE slis_t_sortinfo_alv,
      t_listheader TYPE slis_t_listheader.
DATA: BEGIN OF t_production_costs OCCURS 0,
        objnr TYPE covp-objnr,       " Object Number
        kstar TYPE covp-kstar,       " Cost Element
        wkgbtr TYPE covp-wkgbtr,     " Cost of Line Item in CO area curr
        mbgbtr TYPE covp-mbgbtr,     " Quantity of Line Item
        matnr TYPE covp-matnr,       " Material Number
        kokrs TYPE covp-kokrs,       " Controlling Area
        belnr TYPE covp-belnr,       " Cost Accounting Document
        buzei TYPE covp-buzei,       " Item Number in Document
      END OF t_production_costs.
DATA: BEGIN OF t_production_costs1 OCCURS 0,
        objnr TYPE covp-objnr,       " Object Number
        kstar TYPE covp-kstar,       " Cost Element
        wkgbtr TYPE covp-wkgbtr,     " Cost of Line Item in CO area curr
        mbgbtr TYPE covp-mbgbtr,     " Quantity of Line Item
        kokrs TYPE covp-kokrs,       " Controlling Area
        belnr TYPE covp-belnr,       " Cost Accounting Document
        buzei TYPE covp-buzei,       " Item Number in Document
      END OF t_production_costs1.
DATA t_production_costs2 LIKE t_production_costs1
     OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF t_suborders OCCURS 0,
        aufnr TYPE caufv-aufnr,
        prevaufnr TYPE caufv-aufnr,
        objnr TYPE covp-objnr,
        rsnum TYPE caufv-rsnum,
      END OF t_suborders.
DATA: BEGIN OF t_outputtab OCCURS 0,
        plnbez LIKE afko-plnbez,             " Material Number
        objnr LIKE caufv-objnr,              " Object Number
        maktx LIKE makt-maktx,               " Material Description
        charg LIKE afpo-charg,               " Batch Number
        aufnr LIKE afko-aufnr,               " Production Order Number
        gamng LIKE caufv-gamng,              " Total Order Quantity
        wemng LIKE afpo-wemng,               " Goods Receipt Quantity
        amein LIKE afpo-amein,               " Unit of Measure
        yield TYPE p DECIMALS 2,             " Percentage Yield
        totalrmcost TYPE p DECIMALS 2,       " Total Raw Material Cost
        totalpmcost TYPE p DECIMALS 2,       " Total Packing Mat. Cost
        mfgconvcost TYPE p DECIMALS 2,       " Manu. Conversion Cost
        pkgconvcost TYPE p DECIMALS 2,       " Packing Conv. Cost
        rmperunit TYPE p DECIMALS 2,         " Raw Cost per unit
        pmperunit TYPE p DECIMALS 2,         " Pack Mat cost per unit
        ccperunit TYPE p DECIMALS 2,         " Conv Cost per unit
        totperunit TYPE p DECIMALS 2,        " Total Cost per unit
        waers LIKE tka01-waers,              " Currency Key for CO Area
      END OF t_outputtab.
*Added by Anand Bothra on 24/11/2003.
DATA: t_ab_outputtab LIKE t_outputtab OCCURS 0 WITH HEADER LINE,
      t_temp_outputtab LIKE t_outputtab OCCURS 0 WITH HEADER LINE.
BEGIN OF INSERTION VIP110703
DATA:wa_prev_outputtab LIKE LINE OF t_outputtab,
     wa_production_costs LIKE LINE OF t_production_costs.
DATA:prev_totmatqty TYPE p DECIMALS 2,
     prev_tot_mfgconv_cst TYPE p DECIMALS 2,
     grand_mat_qty TYPE p DECIMALS 2 ,
     tmp_aufnr TYPE caufv-aufnr.
DATA: BEGIN OF t_suborders_propcost OCCURS 0,
        aufnr TYPE caufv-aufnr,
        prevaufnr TYPE caufv-aufnr,
        objnr TYPE covp-objnr,
        rsnum TYPE caufv-rsnum,
        proprmcost TYPE p DECIMALS 2,
        prop_mfg_convcost TYPE p DECIMALS 2,
      END OF t_suborders_propcost.
DATA: wa_suborders LIKE LINE OF t_suborders.
END   OF INSERTION VIP110703
BEGIN OF INSERTION VIP111003
DATA: prev_aufnr TYPE caufv-aufnr,
      prev_matnr TYPE mara-matnr,
      curr_matnr TYPE mara-matnr.
DATA: bln_suborder ,
      ratio TYPE p DECIMALS 5.
BEGIN OF INSERTION VIP111003
*Added by Anand Bothra on 28/11/2003
DATA: d_flag TYPE c.
SELECTION-SCREEN BEGIN OF BLOCK zblock1 WITH FRAME TITLE text-001.
SELECT-OPTIONS: s_plnbez FOR afko-plnbez,
                s_aufnr FOR afko-aufnr,
"Added By Vivek on 29.11.2005
                s_auart FOR caufv-auart obligatory.
PARAMETERS p_werks LIKE t001w-werks OBLIGATORY.
SELECTION-SCREEN END OF BLOCK zblock1.
SELECTION-SCREEN BEGIN OF BLOCK zblock2 WITH FRAME TITLE text-002.
SELECT-OPTIONS: s_monat FOR bkpf-monat NO-EXTENSION OBLIGATORY.
PARAMETERS p_gjahr LIKE bkpf-gjahr OBLIGATORY.
SELECTION-SCREEN END OF BLOCK zblock2.
SELECTION-SCREEN BEGIN OF BLOCK zblock3 WITH FRAME TITLE text-022.
PARAMETERS: p_detsum RADIOBUTTON GROUP rad,
            p_sum RADIOBUTTON GROUP rad.
SELECTION-SCREEN END OF BLOCK zblock3.
INITIALIZATION.
d_repid = sy-repid.
d_uname = sy-uname.
p_werks = 'G001'.
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
   IF screen-name EQ 'P_WERKS'.
     screen-input = 0.
     MODIFY SCREEN.
   ENDIF.
ENDLOOP.
AT SELECTION-SCREEN ON s_monat.
IF s_monat-high IS INITIAL.
    IF NOT ( s_monat-low BETWEEN 1 AND 12 ).
      MESSAGE e398(00) WITH text-023 text-024 space space.
    ENDIF.
ELSE.
    IF ( ( s_monat-low LT 1 ) OR ( s_monat-high GT 12 ) ).
      MESSAGE e398(00) WITH text-023 text-024 text-025 space.
    ENDIF.
ENDIF.
START-OF-SELECTION.
PERFORM z_get_period_dates.
PERFORM z_select_prod_orders.
PERFORM z_select_prod_costs.
PERFORM z_select_addl_prod_costs.
PERFORM z_select_mat_desc.
END-OF-SELECTION.
IF d_returncode EQ 0.
    PERFORM z_process_data.
*Added by Anand Bothra on 24/11/2004.
    PERFORM z_select_to_print.
    PERFORM z_prepare_fieldcat.
    PERFORM z_get_alv_events.
    PERFORM z_define_sortsequence.
    PERFORM z_define_layout.
    PERFORM z_display_list.
*Added by Anand Botra on 25/11/2003.
    PERFORM z_export_to_excel.
    PERFORM z_send_mail_and_download.
ELSE.
    MESSAGE i017(p5).
ENDIF.
*&      Form Z_GET_PERIOD_DATES
      text
--> p1        text
<-- p2        text
FORM z_get_period_dates.
Determine the date range from the fiscal period range and
fiscal year entered on the selection screen
DATA: d_firstdate LIKE sy-datum,
        d_lastdate LIKE sy-datum,
        t_dates LIKE scscp_period_str OCCURS 0 WITH HEADER LINE.
CALL FUNCTION 'FIRST_AND_LAST_DAY_IN_YEAR_GET'
    EXPORTING
      i_gjahr        = p_gjahr
      i_periv        = 'V3'
    IMPORTING
      e_first_day    = d_firstdate
      e_last_day     = d_lastdate
    EXCEPTIONS
      input_false    = 1
      t009_notfound = 2
      t009b_notfound = 3
      OTHERS         = 4.
CALL FUNCTION 'CSCP_PARA1_GET_PERIODS'
    EXPORTING
      i_datuv    = d_firstdate
      i_datub    = d_lastdate
      i_timeunit = 'M'
    TABLES
      et_dates   = t_dates.
SORT t_dates BY sindex.
DELETE t_dates INDEX 1.
LOOP AT t_dates.
    SUBTRACT: 1 FROM t_dates-sindex,
              1 FROM t_dates-datub.
    MODIFY t_dates TRANSPORTING sindex datub.
ENDLOOP.
CLEAR: d_datefrom,
         t_dates.
READ TABLE t_dates WITH KEY sindex = s_monat-low.
d_datefrom = t_dates-datuv.
CLEAR d_dateto.
IF s_monat-high IS INITIAL.
    d_dateto = t_dates-datub.
ELSE.
    CLEAR t_dates.
    READ TABLE t_dates WITH KEY sindex = s_monat-high.
    d_dateto = t_dates-datub.
ENDIF.
ENDFORM.                    " Z_GET_PERIOD_DATES
*&      Form Z_SELECT_PROD_ORDERS
      text
--> p1        text
<-- p2        text
FORM z_select_prod_orders.
Select all production orders as per the selection criteria provided
DATA: d_dlv_code LIKE jstat-stat,
        d_teco_code LIKE jstat-stat,
        t_status LIKE jstat OCCURS 0 WITH HEADER LINE.
SELECT SINGLE name1 INTO t001w-name1 FROM t001w WHERE werks = p_werks.
if s_plnbez-low eq space and s_plnbez-high eq space.
endif.
SELECT aufnr werks objnr gamng rsnum plnbez
INTO CORRESPONDING FIELDS OF
TABLE t_caufv FROM caufv
WHERE aufnr IN s_aufnr
AND   auart IN ('PP01', 'LL02') : BY VIVEK
AND   auart in s_auart " Added By Vivek on 29.11.2005
AND   werks = p_werks
AND   plnbez IN s_plnbez
AND   getri BETWEEN d_datefrom AND d_dateto
ORDER BY aufnr.
d_returncode = sy-subrc.
IF d_returncode NE 0.
    STOP.
ENDIF.
Filter out only those production orders that have a status
DLV (Delivered) or TECO (Technically Confirmed).
CLEAR: d_dlv_code,
         d_teco_code.
PERFORM z_get_status_code USING 'DLV' CHANGING d_dlv_code.
PERFORM z_get_status_code USING 'TECO' CHANGING d_teco_code.
LOOP AT t_caufv.
    REFRESH t_status.
    CALL FUNCTION 'STATUS_READ'
         EXPORTING
          CLIENT           = SY-MANDT
              objnr            = t_caufv-objnr
             only_active      = 'X'
     IMPORTING
          OBTYP            =
          STSMA            =
          STONR            =
        TABLES
             status           = t_status
        EXCEPTIONS
             object_not_found = 1
             OTHERS           = 2
    IF sy-subrc EQ 0.
      CLEAR t_status.
      READ TABLE t_status WITH KEY stat = d_dlv_code.
      IF sy-subrc NE 0.
        CLEAR t_status.
        READ TABLE t_status WITH KEY stat = d_teco_code.
        IF sy-subrc NE 0.
          DELETE t_caufv.
        ENDIF.
      ENDIF.
    ELSE.
      DELETE t_caufv.
    ENDIF.
ENDLOOP.
IF t_caufv[] IS INITIAL.
    d_returncode = 4.
    STOP.
ENDIF.
Added by Anand Bothra on 24/11/2003**********
t_ab_caufv[] = t_caufv[].
Added by Anand Bothra on 28/11/2003.
IF ( s_plnbez-low EQ space AND s_plnbez-high EQ space ).
    IF ( s_aufnr-low EQ space AND s_aufnr-high EQ space ).
      d_flag = 'N'.
    ELSE.
      d_flag = 'Y'.
    ENDIF.
ELSE.
    d_flag = 'Y'.
ENDIF.
IF d_flag = 'Y'.
Added by Anand Bothra on 21/11/2003.**********
*Get the batch number of the entered order
    DATA: itab_afpo LIKE afpo OCCURS 100 WITH HEADER LINE.
    DATA: BEGIN OF t_ab_charg OCCURS 0,
*Added by Anand on 27/11/2003
            aufnr LIKE afpo-aufnr,
            charg LIKE afpo-charg,
            END OF t_ab_charg.
    LOOP AT t_caufv.
      SELECT aufnr charg FROM afpo INTO t_ab_charg WHERE aufnr =
t_caufv-aufnr.
        APPEND t_ab_charg.
        CLEAR t_ab_charg.
      ENDSELECT.
    ENDLOOP.
IF sy-subrc = 0.
   SELECT * FROM afpo INTO TABLE itab_afpo WHERE charg = d_ab_charg.
ENDIF.
    LOOP AT t_ab_charg.
      SELECT * FROM afpo INTO itab_afpo WHERE charg = t_ab_charg-charg.
        APPEND itab_afpo.
        CLEAR itab_afpo.
      ENDSELECT.
    ENDLOOP.
    CLEAR t_caufv.
    REFRESH t_caufv.
*Get all the orders with the same batch number.
    LOOP AT itab_afpo.
      SELECT aufnr werks objnr gamng rsnum plnbez
      INTO CORRESPONDING FIELDS OF
      t_caufv FROM caufv WHERE aufnr = itab_afpo-aufnr.
        APPEND t_caufv.
      ENDSELECT.
    ENDLOOP.
    CLEAR t_caufv.
    SORT t_caufv BY aufnr.
delete adjacent duplicates from t_caufv comparing all fields.
ENDIF.
SELECT aufnr posnr wemng amein charg INTO TABLE t_afpo
FROM afpo FOR ALL ENTRIES IN t_caufv
WHERE aufnr = t_caufv-aufnr.
d_returncode = sy-subrc.
IF d_returncode NE 0.
    STOP.
ENDIF.
SORT t_afpo BY aufnr.
ENDFORM.                    " Z_SELECT_PROD_ORDERS
*&      Form Z_SELECT_MAT_DESC
      text
--> p1        text
<-- p2        text
FORM z_select_mat_desc.
Get the Description of all materials
SELECT matnr maktx INTO TABLE t_makt FROM makt
FOR ALL ENTRIES IN t_caufv
WHERE matnr = t_caufv-plnbez
AND   spras = sy-langu.
ENDFORM.                    " Z_SELECT_MAT_DESC
*&      Form Z_PROCESS_DATA
      text
--> p1        text
<-- p2        text
FORM z_process_data.
Process the data from all production orders and prepare the output
table for display appropriately
DATA: d_mbgbtr TYPE p DECIMALS 3,
        loop_cnt TYPE i.
REFRESH t_outputtab.
LOOP AT t_caufv.
    CLEAR t_outputtab.
    MOVE-CORRESPONDING t_caufv TO t_outputtab.
    CLEAR t_makt.
    READ TABLE t_makt WITH KEY matnr = t_caufv-plnbez.
    IF sy-subrc EQ 0.
      MOVE t_makt-maktx TO t_outputtab-maktx.
    ENDIF.
    CLEAR t_afpo.
    READ TABLE t_afpo WITH KEY aufnr = t_caufv-aufnr.
    IF sy-subrc EQ 0.
      MOVE: t_afpo-wemng TO t_outputtab-wemng,
            t_afpo-amein TO t_outputtab-amein,
            t_afpo-charg TO t_outputtab-charg.
    ENDIF.
    IF t_outputtab-gamng NE 0.
      COMPUTE t_outputtab-yield =
      ( t_outputtab-wemng / t_outputtab-gamng ) * 100.
    ENDIF.
    APPEND t_outputtab.
ENDLOOP.
SORT t_production_costs BY objnr kstar.
LOOP AT t_production_costs.
    AT NEW objnr.
      CLEAR: d_mbgbtr, d_tabix, t_outputtab.
      READ TABLE t_outputtab WITH KEY objnr = t_production_costs-objnr.
      MOVE sy-tabix TO d_tabix.
      " Add up the Raw Material and Manufacturing Conversion
      " Costs from the previous stage production order
      CLEAR loop_cnt .
      LOOP AT t_suborders WHERE aufnr = t_outputtab-aufnr.
     commented by anand bothra on 20/11/2003
        ADD 1 TO loop_cnt.
        IF loop_cnt > 1.
          EXIT.
        ENDIF.
        LOOP AT t_production_costs1 WHERE objnr = t_suborders-objnr.
          CASE t_production_costs1-kstar.
            WHEN '0005000000' OR '0005010000'.     " Raw Material Cost
BEGIN OF deletion VIP110703
          ADD t_production_costs1-wkgbtr TO t_outputtab-totalrmcost.
END   OF deletion VIP110703
              ADD t_production_costs1-wkgbtr TO prev_totmatqty.
            WHEN '0000500100'.      " Manufacturing Conversion Cost
              ADD t_production_costs1-wkgbtr TO prev_tot_mfgconv_cst.
BEGIN OF deletion VIP110703
            ADD t_production_costs1-wkgbtr TO t_outputtab-mfgconvcost.
END   OF deletion VIP110703
          ENDCASE.
        ENDLOOP.
BEGIN OF INSERTION VIP110703
       READ TABLE t_production_costs INTO wa_production_costs
       WITH KEY objnr = t_production_costs-objnr
                  matnr = wa_prev_outputtab-plnbez.
       IF sy-subrc = 0.
         IF ( wa_production_costs-mbgbtr NE
                               wa_prev_outputtab-wemng ) .
           prev_totmatqty = ( prev_totmatqty /
                              wa_prev_outputtab-wemng ) *
                             wa_production_costs-mbgbtr.
           prev_tot_mfgconv_cst = ( prev_tot_mfgconv_cst /
                              wa_prev_outputtab-wemng ) *
                              wa_production_costs-mbgbtr.
         ENDIF.
       ENDIF.
       LOOP AT t_suborders_propcost
               WHERE prevaufnr = wa_prev_outputtab-aufnr.
         t_suborders_propcost-proprmcost = prev_totmatqty.
         t_suborders_propcost-prop_mfg_convcost = prev_tot_mfgconv_cst
         MODIFY t_suborders_propcost.
       ENDLOOP.
       clear: prev_totmatqty,
               prev_tot_mfgconv_cst.
END   OF INSERTION VIP110703
BEGIN OF INSERTION VIP111003
        CLEAR: wa_prev_outputtab,
               wa_production_costs.
        READ TABLE t_outputtab INTO wa_prev_outputtab
        WITH KEY aufnr = t_suborders-prevaufnr.
        ratio = 1.
        IF sy-subrc = 0.
          READ TABLE t_production_costs INTO wa_production_costs
          WITH KEY objnr = t_outputtab-objnr
                     matnr = wa_prev_outputtab-plnbez.
          IF sy-subrc = 0.
            IF ( wa_production_costs-mbgbtr NE
                                  wa_prev_outputtab-wemng ) .
              ratio = wa_production_costs-mbgbtr /
                      wa_prev_outputtab-wemng.
              prev_totmatqty = ( prev_totmatqty /
                                 wa_prev_outputtab-wemng ) *
                                wa_production_costs-mbgbtr.
              prev_tot_mfgconv_cst = ( prev_tot_mfgconv_cst /
                                 wa_prev_outputtab-wemng ) *
                                 wa_production_costs-mbgbtr.
            ENDIF.
          ENDIF.
        ENDIF.
        LOOP AT t_suborders_propcost
                WHERE prevaufnr = wa_prev_outputtab-aufnr
                AND aufnr = t_outputtab-aufnr.
          t_suborders_propcost-proprmcost = prev_totmatqty.
          t_suborders_propcost-prop_mfg_convcost = prev_tot_mfgconv_cst.
          MODIFY t_suborders_propcost.
        ENDLOOP.
*Commented by Anand Bothra on 20/11/2003.
        CLEAR: prev_totmatqty,
                prev_tot_mfgconv_cst.
BEGIN OF INSERTION VIP111003
      ENDLOOP.
    ENDAT.
    AT END OF kstar.
      SUM.
      CASE t_production_costs-kstar.
        WHEN '0000500200'.    " Packing Conversion Costs
          t_outputtab-pkgconvcost = t_production_costs-wkgbtr.
        WHEN '0005000500'.   " Semi-Finished Cost/Quantity
          MOVE t_production_costs-mbgbtr TO d_mbgbtr.
        WHEN '0005050000' OR '0005050001' OR '0005050002'.
          " Packing Mat Costs
          ADD t_production_costs-wkgbtr TO t_outputtab-totalpmcost.
        WHEN '0005000000' OR '0005010000'.
          ADD t_production_costs-wkgbtr TO t_outputtab-totalrmcost.
        WHEN '0000500100'.      " Manufacturing Conversion Cost
          ADD t_production_costs-wkgbtr TO t_outputtab-mfgconvcost.
      ENDCASE.
    ENDAT.
    AT END OF objnr.
      MOVE d_waers TO t_outputtab-waers.
Calculations for the Production Order
      " Determine the RM Cost/Unit and Mfg Conv Cost/Unit
      CLEAR t_afpo1.
      READ TABLE t_afpo1 WITH KEY aufnr = t_outputtab-aufnr.
      IF ( ( sy-subrc EQ 0 ) AND ( t_afpo1-wemng NE 0 ) ).
BEGIN OF insertion VIP110703
       tmp_aufnr = t_production_costs-objnr+2(12).
       LOOP AT t_suborders_propcost
       WHERE aufnr = tmp_aufnr .
        ADD t_suborders_propcost-proprmcost TO t_outputtab-totalrmcost
         ADD t_suborders_propcost-prop_mfg_convcost TO
              t_outputtab-mfgconvcost.
       ENDLOOP.
END   OF insertion VIP110703
BEGIN OF insertion VIP111003
        CLEAR: t_suborders_propcost , tmp_aufnr.
        READ TABLE t_suborders_propcost
        WITH KEY aufnr = t_outputtab-aufnr.
        IF sy-subrc = 0.
         t_suborders_propcost-proprmcost =
             t_suborders_propcost-proprmcost * ratio.
          ADD t_suborders_propcost-proprmcost
                TO t_outputtab-totalrmcost.
         t_suborders_propcost-prop_mfg_convcost =
             t_suborders_propcost-prop_mfg_convcost * ratio.
          ADD t_suborders_propcost-prop_mfg_convcost
               TO t_outputtab-mfgconvcost.
          tmp_aufnr = t_suborders_propcost-prevaufnr.
          bln_suborder = 'T'.
          WHILE bln_suborder = 'T'.
            CLEAR: t_suborders_propcost .
            READ TABLE t_suborders_propcost
            WITH KEY aufnr = tmp_aufnr.
            IF sy-subrc = 0.
              t_suborders_propcost-proprmcost =
                t_suborders_propcost-proprmcost * ratio.
              ADD t_suborders_propcost-proprmcost
                    TO t_outputtab-totalrmcost.
              t_suborders_propcost-prop_mfg_convcost =
                  t_suborders_propcost-prop_mfg_convcost * ratio.
              ADD t_suborders_propcost-prop_mfg_convcost
                   TO t_outputtab-mfgconvcost.
              tmp_aufnr = t_suborders_propcost-prevaufnr.
            ELSE.
              bln_suborder = 'F'.
              CLEAR tmp_aufnr.
            ENDIF.
          ENDWHILE.
        ENDIF.
END   OF insertion VIP111003
END   OF deletion VIP110703
       t_outputtab-mfgconvcost = ( t_outputtab-mfgconvcost /
                                   t_afpo1-wemng ) * d_mbgbtr.
       t_outputtab-totalrmcost = ( t_outputtab-totalrmcost /
                                   t_afpo1-wemng ) * d_mbgbtr.
END   OF deletion VIP110703
      ENDIF.
      IF t_outputtab-wemng NE 0.
        t_outputtab-rmperunit = t_outputtab-totalrmcost /
                                t_outputtab-wemng.
        " PM Cost Per Unit = Total PM Cost / Quantity Delivered
        t_outputtab-pmperunit = t_outputtab-totalpmcost
                                / t_outputtab-wemng.
        " Conv Cost Cost Per Unit = (Manu Conv Cost + Pack Conv Cost)
        "                           / Qty Delv
        t_outputtab-ccperunit = ( t_outputtab-mfgconvcost
                                + t_outputtab-pkgconvcost )
                                / t_outputtab-wemng.
      ENDIF.
      " Total Cost Per Unit = (RM Cost per unit + PM Cost per Unit
      "                       + Conv Cost per unit)
      t_outputtab-totperunit = t_outputtab-rmperunit
                               + t_outputtab-pmperunit
                               + t_outputtab-ccperunit.
Update the calculated values in the internal table
      CHECK d_tabix GT 0.
      MODIFY t_outputtab INDEX d_tabix
                         TRANSPORTING totalrmcost totalpmcost
                                      mfgconvcost pkgconvcost
                                      rmperunit pmperunit
                                      ccperunit totperunit waers.
BEGIN OF DELETION VIP110703
     MOVE t_outputtab TO wa_prev_outputtab.
END   OF DELETION VIP110703
    ENDAT.
ENDLOOP.
ENDFORM.                    " Z_PROCESS_DATA
*&      Form Z_DISPLAY_LIST
      text
--> p1        text
<-- p2        text
FORM z_display_list.
Display the Report
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
      EXPORTING
        I_INTERFACE_CHECK        = ' '
         i_callback_program       = d_repid
        I_CALLBACK_PF_STATUS_SET = ' '
        I_CALLBACK_USER_COMMAND = ' '
        I_STRUCTURE_NAME         =
         is_layout                = wa_listlayout
           it_fieldcat              = t_fieldcatalog
        IT_EXCLUDING             =
        IT_SPECIAL_GROUPS        =
           it_sort                  = t_sortsequence
        IT_FILTER                =
        IS_SEL_HIDE              =
        I_DEFAULT                = 'X'
        I_SAVE                   = ' '
        IS_VARIANT               = ' '
         it_events                = t_listevents
        IT_EVENT_EXIT            =
         is_print                 = wa_print_info
        IS_REPREP_ID             =
        I_SCREEN_START_COLUMN    = 0
        I_SCREEN_START_LINE      = 0
        I_SCREEN_END_COLUMN      = 0
        I_SCREEN_END_LINE        = 0
        I_BYPASSING_BUFFER       =
        I_BUFFER_ACTIVE          =
   IMPORTING
        E_EXIT_CAUSED_BY_CALLER =
        ES_EXIT_CAUSED_BY_USER   =
       TABLES
            t_outtab                 = t_outputtab
      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.
SET PF-STATUS 'Z_AB_STANDARD'.
ENDFORM.                    " Z_DISPLAY_LIST
*&      Form Z_FILL_FIELDCATALOG
      text
--> p1        text
<-- p2        text
FORM z_fill_fieldcatalog USING      p_rownum LIKE sy-curow
                                    p_colnum LIKE sy-cucol
                                    p_fieldname TYPE slis_fieldname
                                    p_tabname TYPE slis_tabname
                                    p_reffield TYPE dd03p-fieldname
                                    p_reftable TYPE dd03p-tabname
                                    p_qfield TYPE slis_fieldname
                                    p_qtab TYPE slis_tabname
                                    p_sum
                                    p_stext
                                    p_mtext
                                    p_ltext
                                    p_datatype
                                    p_outputlen.
Prepare the fields for ALV list output
CLEAR wa_fieldcatalog.
wa_fieldcatalog-row_pos = p_rownum.
wa_fieldcatalog-col_pos = p_colnum.
wa_fieldcatalog-fieldname = p_fieldname.
wa_fieldcatalog-tabname = p_tabname.
wa_fieldcatalog-ref_fieldname = p_reffield.
wa_fieldcatalog-ref_tabname = p_reftable.
wa_fieldcatalog-qfieldname = p_qfield.
wa_fieldcatalog-qtabname = p_qtab.
wa_fieldcatalog-do_sum = p_sum.
wa_fieldcatalog-seltext_s = p_stext.
wa_fieldcatalog-seltext_m = p_mtext.
wa_fieldcatalog-seltext_l = p_ltext.
wa_fieldcatalog-datatype = p_datatype.
wa_fieldcatalog-outputlen = p_outputlen.
APPEND wa_fieldcatalog TO t_fieldcatalog.
ENDFORM.                    " Z_FILL_FIELDCATALOG
*&      Form Z_PREPARE_FIELDCAT
      text
--> p1        text
<-- p2        text
FORM z_prepare_fieldcat.
Append all the display fields into the field catalog internal table
First Row
PERFORM z_fill_fieldcatalog USING 1 1 'PLNBEZ' 'T_OUTPUTTAB'
                                    space 'AFKO' space space
                                    space space space space space
                                    0.
PERFORM z_fill_fieldcatalog USING 1 2 'MAKTX' 'T_OUTPUTTAB'
                                    space 'MAKT' space space
                                    space space space space space
                                    0.
PERFORM z_fill_fieldcatalog USING 1 3 'CHARG' 'T_OUTPUTTAB'
                                    space 'AFPO' space space
                                    space space space space space
                                    0.
Second Row
PERFORM z_fill_fieldcatalog USING 2 1 'AUFNR' 'T_OUTPUTTAB'
                                    space 'AFKO' space space
                                    space space space space space
                                    0.
PERFORM z_fill_fieldcatalog USING 2 2 'GAMNG' 'T_OUTPUTTAB'
                                    space 'CAUFV' 'AMEIN' space
                                    'X' space space space space
                                    0.
PERFORM z_fill_fieldcatalog USING 2 3 'WEMNG' 'T_OUTPUTTAB'
                                    space 'AFPO' 'AMEIN' space
                                    'X' space space space space
                                    0.
PERFORM z_fill_fieldcatalog USING 2 4 'AMEIN' 'T_OUTPUTTAB'
                                    space 'AFPO' space space
                                    space space space space space
                                    0.
PERFORM z_fill_fieldcatalog USING 2 5 'YIELD' 'T_OUTPUTTAB'
                                    space space space space
                                    space text-010 text-010 text-010
                                    'QUAN' 17.
Third Row
PERFORM z_fill_fieldcatalog USING 3 1 'TOTALRMCOST' 'T_OUTPUTTAB'
                                    space space space space
                                    'X' text-011 text-011 text-011
                                    'CURR' 21.
PERFORM z_fill_fieldcatalog USING 3 2 'TOTALPMCOST' 'T_OUTPUTTAB'
                                    space space space space
                                    'X' text-012 text-012 text-012
                                    'CURR' 21.
PERFORM z_fill_fieldcatalog USING 3 3 'MFGCONVCOST' 'T_OUTPUTTAB'
                                    space space space space
                                    'X' text-013 text-013 text-013
                                    'CURR' 21.
PERFORM z_fill_fieldcatalog USING 3 4 'PKGCONVCOST' 'T_OUTPUTTAB'
                                    space space space space
                                    'X' text-014 text-014 text-014
                                    'CURR' 21.
Fourth Row
PERFORM z_fill_fieldcatalog USING 4 1 'RMPERUNIT' 'T_OUTPUTTAB'
                                    space space space space
                                    space text-015 text-015 text-015
                                    'CURR' 21.
PERFORM z_fill_fieldcatalog USING 4 2 'PMPERUNIT' 'T_OUTPUTTAB'
                                    space space space space
                                    space text-016 text-016 text-016
                                    'CURR' 21.
PERFORM z_fill_fieldcatalog USING 4 3 'CCPERUNIT' 'T_OUTPUTTAB'
                                    space space space space
                                    space text-017 text-017 text-017
                                    'CURR' 21.
PERFORM z_fill_fieldcatalog USING 4 4 'TOTPERUNIT' 'T_OUTPUTTAB'
                                    space space space space
                                    space text-018 text-018 text-018
                                   'CURR' 21.
ENDFORM.                    " Z_PREPARE_FIELDCAT
*&      Form Z_GET_ALV_EVENTS
      text
--> p1        text
<-- p2        text
FORM z_get_alv_events.
Returns table of possible events for a list type
REFRESH t_listevents.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
   EXPORTING
        I_LIST_TYPE     = 0
      IMPORTING
           et_events       = t_listevents
      EXCEPTIONS
           list_type_wrong = 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.
ELSE.
    CLEAR: wa_listevents, d_tabix.
    READ TABLE t_listevents WITH KEY name = slis_ev_top_of_page
    INTO wa_listevents.
    d_tabix = sy-tabix.

Hi Sai,
      You can try using MB51, use filter movement type 261. Add a filter for the posting date coverage.
Then proceed. Click on the icon DETAIL LIST.
Then click on the SUBTOTAL, add MATERIAL as a Criteria. The click the column AMOUNT IN LC.
You should see the total issuances to per material.
I hope this helps.
Heinrick Palad

Replenishment of the raw material

Similar Messages

Maybe you are looking for