2 /**********************************************************************
3 Copyright (C) FrontAccounting, LLC.
4 Released under the terms of the GNU General Public License, GPL,
5 as published by the Free Software Foundation, either version 3
6 of the License, or (at your option) any later version.
7 This program is distributed in the hope that it will be useful,
8 but WITHOUT ANY WARRANTY; without even the implied warranty of
9 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
10 See the License here <http://www.gnu.org/licenses/gpl-3.0.html>.
11 ***********************************************************************/
12 //----------------------------------------------------------------------------------------
13 function get_demand_qty($stock_id, $location)
15 $sql = "SELECT SUM(".TB_PREF."sales_order_details.quantity - "
16 .TB_PREF."sales_order_details.qty_sent) AS QtyDemand
17 FROM ".TB_PREF."sales_order_details,
18 ".TB_PREF."sales_orders
19 WHERE ".TB_PREF."sales_order_details.order_no="
20 .TB_PREF."sales_orders.order_no AND ";
22 $sql .= TB_PREF."sales_orders.from_stk_loc =".db_escape($location)." AND ";
23 $sql .= TB_PREF."sales_order_details.stk_code = ".db_escape($stock_id);
25 $result = db_query($sql,"No transactions were returned");
26 $row = db_fetch($result);
29 return $row['QtyDemand'];
35 function load_stock_levels($location)
38 $date = date2sql(Today());
40 $sql = "SELECT stock_id, SUM(qty) FROM ".TB_PREF."stock_moves WHERE tran_date <= '$date'";
41 if ($location != '') $sql .= " AND loc_code = ".db_escape($location);
42 $sql .= " GROUP BY stock_id";
43 $result = db_query($sql, "QOH calulcation failed");
44 while ($row = db_fetch($result)) {
45 $qoh_stock[$row[0]] = $row[1];
49 // recursion fixed by Tom Moulton. Max 10 recursion levels.
50 function stock_demand_manufacture($stock_id, $qty, $demand_id, $location, $level=0)
52 global $bom_list, $qoh_stock;
55 display_warning("BOM Too many Manufacturing levels deep $level");
58 // Load all stock levels (stock moves) into $qoh_stock
59 if ($qoh_stock == NULL) {
61 load_stock_levels($location);
63 $stock_qty = $qoh_stock[$stock_id];
64 if ($stock_qty == NULL) $stock_qty = 0;
65 if ($qty <= $stock_qty) return $demand;
66 $bom = $bom_list[$stock_id];
68 $sql = "SELECT parent, component, quantity FROM "
69 .TB_PREF."bom WHERE parent = ".db_escape($stock_id);
70 if ($location != "") $sql .= " AND loc_code = ".db_escape($location);
71 $result = db_query($sql, "Could not search bom");
73 // Even if we get no results, remember that fact
74 $bom[] = array($stock_id, '', 0);
75 while ($row = db_fetch_row($result)) {
76 $bom[] = array($row[0], $row[1], $row[2]);
78 db_free_result($result);
79 $bom_list[$stock_id] = $bom;
86 // Ignore the dummy entry
87 if ($row[1] == '') continue;
89 if ($row[1] == $demand_id) $demand += $q;
90 $demand += stock_demand_manufacture($row[1], $q, $demand_id, $location, $level+1);
95 // recursion fixed by Tom Moulton
96 function get_demand_asm_qty($stock_id, $location)
99 $sql = "SELECT ".TB_PREF."sales_order_details.stk_code, SUM(".TB_PREF."sales_order_details.quantity-".TB_PREF."sales_order_details.qty_sent)
101 FROM ".TB_PREF."sales_order_details,
102 ".TB_PREF."sales_orders,
103 ".TB_PREF."stock_master
104 WHERE ".TB_PREF."sales_orders.order_no = ".TB_PREF."sales_order_details.order_no AND ";
106 $sql .= TB_PREF."sales_orders.from_stk_loc =".db_escape($location)." AND ";
107 $sql .= TB_PREF."sales_order_details.quantity-".TB_PREF."sales_order_details.qty_sent > 0 AND
108 ".TB_PREF."stock_master.stock_id=".TB_PREF."sales_order_details.stk_code AND
109 (".TB_PREF."stock_master.mb_flag='M' OR ".TB_PREF."stock_master.mb_flag='A')
110 GROUP BY ".TB_PREF."sales_order_details.stk_code";
111 $result = db_query($sql, "No transactions were returned");
112 while ($row = db_fetch_row($result)) {
113 $demand_qty += stock_demand_manufacture($row[0], $row[1], $stock_id, $location);
118 function get_on_porder_qty($stock_id, $location)
120 $sql = "SELECT SUM(".TB_PREF."purch_order_details.quantity_ordered - "
121 .TB_PREF."purch_order_details.quantity_received) AS qoo
122 FROM ".TB_PREF."purch_order_details INNER JOIN "
123 .TB_PREF."purch_orders ON ".TB_PREF."purch_order_details.order_no=".TB_PREF."purch_orders.order_no
124 WHERE ".TB_PREF."purch_order_details.item_code=".db_escape($stock_id)." ";
126 $sql .= "AND ".TB_PREF."purch_orders.into_stock_location=".db_escape($location)." ";
127 $sql .= "AND ".TB_PREF."purch_order_details.item_code=".db_escape($stock_id);
128 $qoo_result = db_query($sql,"could not receive quantity on order for item");
130 if (db_num_rows($qoo_result) == 1)
132 $qoo_row = db_fetch_row($qoo_result);
142 function get_on_worder_qty($stock_id, $location)
144 $sql = "SELECT SUM((".TB_PREF."workorders.units_reqd-".TB_PREF."workorders.units_issued) *
145 (".TB_PREF."wo_requirements.units_req-".TB_PREF."wo_requirements.units_issued)) AS qoo
146 FROM ".TB_PREF."wo_requirements INNER JOIN ".TB_PREF."workorders
147 ON ".TB_PREF."wo_requirements.workorder_id=".TB_PREF."workorders.id
148 WHERE ".TB_PREF."wo_requirements.stock_id=".db_escape($stock_id)." ";
150 $sql .= "AND ".TB_PREF."wo_requirements.loc_code=".db_escape($location)." ";
151 $sql .= "AND ".TB_PREF."workorders.released=1";
152 $qoo_result = db_query($sql,"could not receive quantity on order for item");
153 if (db_num_rows($qoo_result) == 1)
155 $qoo_row = db_fetch_row($qoo_result);
160 $flag = get_mb_flag($stock_id);
161 if ($flag == 'A' || $flag == 'M')
163 $sql = "SELECT SUM((".TB_PREF."workorders.units_reqd-".TB_PREF."workorders.units_issued)) AS qoo
164 FROM ".TB_PREF."workorders
165 WHERE ".TB_PREF."workorders.stock_id=".db_escape($stock_id)." ";
167 $sql .= "AND ".TB_PREF."workorders.loc_code=".db_escape($location)." ";
168 $sql .= "AND ".TB_PREF."workorders.released=1";
169 $qoo_result = db_query($sql,"could not receive quantity on order for item");
170 if (db_num_rows($qoo_result) == 1)
172 $qoo_row = db_fetch_row($qoo_result);
179 function get_mb_flag($stock_id)
181 $sql = "SELECT mb_flag FROM ".TB_PREF."stock_master WHERE stock_id = "
182 .db_escape($stock_id);
183 $result = db_query($sql, "retreive mb_flag from item");
185 if (db_num_rows($result) == 0)
188 $myrow = db_fetch_row($result);
192 //--------------------------------------------------------------------------------------
194 function get_bom($item)
196 $sql = "SELECT ".TB_PREF."bom.*, ".TB_PREF."locations.location_name, ".TB_PREF."workcentres.name AS WorkCentreDescription,
197 ".TB_PREF."stock_master.description, ".TB_PREF."stock_master.mb_flag AS ResourceType,
198 ".TB_PREF."stock_master.material_cost+ ".TB_PREF."stock_master.labour_cost+".TB_PREF."stock_master.overhead_cost AS standard_cost, units,
199 ".TB_PREF."bom.quantity * (".TB_PREF."stock_master.material_cost+ ".TB_PREF."stock_master.labour_cost+ ".TB_PREF."stock_master.overhead_cost) AS ComponentCost
200 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
201 WHERE ".TB_PREF."bom.parent = ".db_escape($item)."
202 AND ".TB_PREF."workcentres.id=".TB_PREF."bom.workcentre_added
203 AND ".TB_PREF."bom.loc_code = ".TB_PREF."locations.loc_code ORDER BY ".TB_PREF."bom.id";
205 return db_query($sql, "The bill of material could not be retrieved");
208 //--------------------------------------------------------------------------------------
210 function has_bom($item)
212 $result = get_bom($item);
214 return (db_num_rows($result) != 0);
217 //--------------------------------------------------------------------------------------