X-Git-Url: https://delta.frontaccounting.com/gitweb/?a=blobdiff_plain;f=includes%2Fdb%2Fmanufacturing_db.inc;h=31fb3eceaf8d306d9243a3b1a9cc9dade80ac87e;hb=1227d45315b5d2b74cb95bb8f299dcfb505f04fb;hp=de03445e99e883f6cb882001038dbce99b6d34b6;hpb=818719f38b8327cdca616d58b13913dbd174d96a;p=fa-stable.git diff --git a/includes/db/manufacturing_db.inc b/includes/db/manufacturing_db.inc index de03445e..31fb3ece 100644 --- a/includes/db/manufacturing_db.inc +++ b/includes/db/manufacturing_db.inc @@ -1,17 +1,185 @@ . + See the License here . ***********************************************************************/ +//---------------------------------------------------------------------------------------- +function get_demand_qty($stock_id, $location) +{ + $sql = "SELECT SUM(".TB_PREF."sales_order_details.quantity - " + .TB_PREF."sales_order_details.qty_sent) AS QtyDemand + FROM ".TB_PREF."sales_order_details, + ".TB_PREF."sales_orders + WHERE ".TB_PREF."sales_order_details.order_no=" + .TB_PREF."sales_orders.order_no AND "; + if ($location != "") + $sql .= TB_PREF."sales_orders.from_stk_loc =".db_escape($location)." AND "; + $sql .= TB_PREF."sales_order_details.stk_code = ".db_escape($stock_id); + + $result = db_query($sql,"No transactions were returned"); + $row = db_fetch($result); + if ($row === false) + return 0; + return $row['QtyDemand']; +} + +$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); + } + $stock_qty = $qoh_stock[$stock_id]; + if ($stock_qty == NULL) $stock_qty = 0; + 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) +{ + $demand_qty = 0.0; + $sql = "SELECT ".TB_PREF."sales_order_details.stk_code, SUM(".TB_PREF."sales_order_details.quantity-".TB_PREF."sales_order_details.qty_sent) + AS Demmand + FROM ".TB_PREF."sales_order_details, + ".TB_PREF."sales_orders, + ".TB_PREF."stock_master + WHERE ".TB_PREF."sales_orders.order_no = ".TB_PREF."sales_order_details.order_no AND "; + if ($location != "") + $sql .= TB_PREF."sales_orders.from_stk_loc =".db_escape($location)." AND "; + $sql .= TB_PREF."sales_order_details.quantity-".TB_PREF."sales_order_details.qty_sent > 0 AND + ".TB_PREF."stock_master.stock_id=".TB_PREF."sales_order_details.stk_code AND + (".TB_PREF."stock_master.mb_flag='M' OR ".TB_PREF."stock_master.mb_flag='A') + GROUP BY ".TB_PREF."sales_order_details.stk_code"; + $result = db_query($sql, "No transactions were returned"); + while ($row = db_fetch_row($result)) { + $demand_qty += stock_demand_manufacture($row[0], $row[1], $stock_id, $location); + } + return $demand_qty; +} + +function get_on_porder_qty($stock_id, $location) +{ + $sql = "SELECT SUM(".TB_PREF."purch_order_details.quantity_ordered - " + .TB_PREF."purch_order_details.quantity_received) AS qoo + FROM ".TB_PREF."purch_order_details INNER JOIN " + .TB_PREF."purch_orders ON ".TB_PREF."purch_order_details.order_no=".TB_PREF."purch_orders.order_no + WHERE ".TB_PREF."purch_order_details.item_code=".db_escape($stock_id)." "; + if ($location != "") + $sql .= "AND ".TB_PREF."purch_orders.into_stock_location=".db_escape($location)." "; + $sql .= "AND ".TB_PREF."purch_order_details.item_code=".db_escape($stock_id); + $qoo_result = db_query($sql,"could not receive quantity on order for item"); + + if (db_num_rows($qoo_result) == 1) + { + $qoo_row = db_fetch_row($qoo_result); + $qoo = $qoo_row[0]; + } + else + { + $qoo = 0; + } + return $qoo; +} + +function get_on_worder_qty($stock_id, $location) +{ + $sql = "SELECT SUM((".TB_PREF."workorders.units_reqd-".TB_PREF."workorders.units_issued) * + (".TB_PREF."wo_requirements.units_req-".TB_PREF."wo_requirements.units_issued)) AS qoo + FROM ".TB_PREF."wo_requirements INNER JOIN ".TB_PREF."workorders + ON ".TB_PREF."wo_requirements.workorder_id=".TB_PREF."workorders.id + WHERE ".TB_PREF."wo_requirements.stock_id=".db_escape($stock_id)." "; + if ($location != "") + $sql .= "AND ".TB_PREF."wo_requirements.loc_code=".db_escape($location)." "; + $sql .= "AND ".TB_PREF."workorders.released=1"; + $qoo_result = db_query($sql,"could not receive quantity on order for item"); + if (db_num_rows($qoo_result) == 1) + { + $qoo_row = db_fetch_row($qoo_result); + $qoo = $qoo_row[0]; + } + else + $qoo = 0.0; + $flag = get_mb_flag($stock_id); + if ($flag == 'A' || $flag == 'M') + { + $sql = "SELECT SUM((".TB_PREF."workorders.units_reqd-".TB_PREF."workorders.units_issued)) AS qoo + FROM ".TB_PREF."workorders + WHERE ".TB_PREF."workorders.stock_id=".db_escape($stock_id)." "; + if ($location != "") + $sql .= "AND ".TB_PREF."workorders.loc_code=".db_escape($location)." "; + $sql .= "AND ".TB_PREF."workorders.released=1"; + $qoo_result = db_query($sql,"could not receive quantity on order for item"); + if (db_num_rows($qoo_result) == 1) + { + $qoo_row = db_fetch_row($qoo_result); + $qoo += $qoo_row[0]; + } + } + return $qoo; +} + function get_mb_flag($stock_id) { - $sql = "SELECT mb_flag FROM ".TB_PREF."stock_master WHERE stock_id = '" . $stock_id . "'"; + $sql = "SELECT mb_flag FROM ".TB_PREF."stock_master WHERE stock_id = " + .db_escape($stock_id); $result = db_query($sql, "retreive mb_flag from item"); if (db_num_rows($result) == 0) @@ -30,7 +198,7 @@ function get_bom($item) ".TB_PREF."stock_master.material_cost+ ".TB_PREF."stock_master.labour_cost+".TB_PREF."stock_master.overhead_cost AS standard_cost, units, ".TB_PREF."bom.quantity * (".TB_PREF."stock_master.material_cost+ ".TB_PREF."stock_master.labour_cost+ ".TB_PREF."stock_master.overhead_cost) AS ComponentCost FROM (".TB_PREF."workcentres, ".TB_PREF."locations, ".TB_PREF."bom) INNER JOIN ".TB_PREF."stock_master ON ".TB_PREF."bom.component = ".TB_PREF."stock_master.stock_id - WHERE ".TB_PREF."bom.parent = '" . $item . "' + WHERE ".TB_PREF."bom.parent = ".db_escape($item)." AND ".TB_PREF."workcentres.id=".TB_PREF."bom.workcentre_added AND ".TB_PREF."bom.loc_code = ".TB_PREF."locations.loc_code ORDER BY ".TB_PREF."bom.id"; @@ -48,4 +216,4 @@ function has_bom($item) //-------------------------------------------------------------------------------------- -?> \ No newline at end of file +?>