+$bom_list = array();
+$qoh_stock = NULL;
+
+function load_stock_levels($location)
+{
+ global $qoh_stock;
+ $date = date2sql(Today());
+
+ $sql = "SELECT stock_id, SUM(qty) FROM ".TB_PREF."stock_moves WHERE tran_date <= '$date'";
+ if ($location != '') $sql .= " AND loc_code = ".db_escape($location);
+ $sql .= " GROUP BY stock_id";
+ $result = db_query($sql, "QOH calulcation failed");
+ while ($row = db_fetch($result)) {
+ $qoh_stock[$row[0]] = $row[1];
+ }
+}
+
+// recursion fixed by Tom Moulton. Max 10 recursion levels.
+function stock_demand_manufacture($stock_id, $qty, $demand_id, $location, $level=0)
+{
+ global $bom_list, $qoh_stock;
+ $demand = 0.0;
+ if ($level > 10) {
+ display_warning("BOM Too many Manufacturing levels deep $level");
+ return $demand;
+ }
+ // Load all stock levels (stock moves) into $qoh_stock
+ if ($qoh_stock == NULL) {
+ $qoh_stock = array();
+ load_stock_levels($location);
+ }
+ if (empty($qoh_stock[$stock_id])) $stock_qty = 0;
+ else $stock_qty = $qoh_stock[$stock_id];
+ if ($qty <= $stock_qty) return $demand;
+ $bom = @$bom_list[$stock_id];
+ if ($bom == NULL) {
+ $sql = "SELECT parent, component, quantity FROM "
+ .TB_PREF."bom WHERE parent = ".db_escape($stock_id);
+ if ($location != "") $sql .= " AND loc_code = ".db_escape($location);
+ $result = db_query($sql, "Could not search bom");
+ $bom = array();
+ // Even if we get no results, remember that fact
+ $bom[] = array($stock_id, '', 0);
+ while ($row = db_fetch_row($result)) {
+ $bom[] = array($row[0], $row[1], $row[2]);
+ }
+ db_free_result($result);
+ $bom_list[$stock_id] = $bom;
+ }
+ $len = count($bom);
+ $i = 0;
+ while ($i < $len) {
+ $row = $bom[$i];
+ $i++;
+ // Ignore the dummy entry
+ if ($row[1] == '') continue;
+ $q = $qty * $row[2];
+ if ($row[1] == $demand_id) $demand += $q;
+ $demand += stock_demand_manufacture($row[1], $q, $demand_id, $location, $level+1);
+ }
+ return $demand;
+}
+
+// recursion fixed by Tom Moulton
+function get_demand_asm_qty($stock_id, $location)