Removed obsolete stock_move.person_id field and related handling.
[fa-stable.git] / manufacturing / includes / db / work_orders_quick_db.inc
index bcf9688f0ef015e1d5270a564042ed5b91c95664..89d8fa47f9454a6034a2cb02a2b187b57262d62c 100644 (file)
@@ -66,10 +66,25 @@ function add_work_order_quick($wo_ref, $loc_code, $units_reqd, $stock_id, $type,
         db_query($sql, "The work order requirements could not be added");
 
                // insert a -ve stock move for each item
+               $UnitCost = get_standard_cost($bom_item["component"]);
                add_stock_move(ST_WORKORDER, $bom_item["component"], $woid,
-                       $bom_item["loc_code"], $date_, $wo_ref, -$item_quantity, 0);
+                       $bom_item["loc_code"], $date_, $wo_ref, -$item_quantity, $UnitCost, $UnitCost);
        }
+       
+       // -------------------------------------------------------------------------
+       //Negative Stock Handling
+       $qoh = get_qoh_on_date($stock_id);
+       $cost_adjust = false;
+       if ($qoh < 0)
+       {
+               if ($qoh + $units_reqd >= 0)
+                       $cost_adjust = true;
+       }
+
 
+       //Negative Stock Handling First; Prior to add_stock_move
+       if ($cost_adjust)
+               adjust_deliveries($stock_id, get_standard_cost($stock_id), $date_);
 
        // -------------------------------------------------------------------------
 
@@ -175,4 +190,3 @@ function work_order_quick_costs($woid, $stock_id, $units_reqd, $date_, $advanced
 
 //--------------------------------------------------------------------------------------
 
-?>
\ No newline at end of file