-/*
- Process component usage: generate and post stock move, update average component cost.
-*/
-function work_order_receive_costs($woid, $stock_id, $quantity, $date_, $rcv_no)
-{
- $result = get_wo_requirements($woid);
-
- // credit all the components
- $total_cost = 0;
- while ($bom_item = db_fetch($result))
- {
-
- $bom_cost = $bom_item["ComponentCost"] * $quantity;
-
- update_wo_requirement_issued($bom_item['id'], $bom_item["units_req"] * $quantity, $bom_item["ComponentCost"]);
-
- // insert a -ve stock move for each item
- add_stock_move(ST_MANURECEIVE, $bom_item["stock_id"], $rcv_no,
- $bom_item["loc_code"], $date_, "", -$bom_item["units_req"] * $quantity, $bom_item["ComponentCost"], 0);
-
- if (!is_service($bom_item["mb_flag"]))
- $ivaccount = $bom_item["inventory_account"];
- else
- $ivaccount = $bom_item["assembly_account"];
-
- $memo = $date_.": ".$bom_item["units_req"] ." * ".$bom_item["description"];
- $total_cost += add_gl_trans_std_cost(ST_WORKORDER, $woid, $date_, $ivaccount, 0, 0,
- $memo, -$bom_cost);
- }
-
- add_gl_trans_std_cost(ST_WORKORDER, $woid, $date_, get_company_pref('wip_act'),
- 0, 0, $memo, -$total_cost);
-}
-