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 add_sales_order(&$order)
15 global $loc_notification, $path_to_root, $Refs;
19 $order_no = get_next_trans_no($order->trans_type);
20 $del_date = date2sql($order->due_date);
21 $order_type = 0; // this is default on new order
22 $sql = "INSERT INTO ".TB_PREF."sales_orders (order_no, type, debtor_no, trans_type, branch_code, customer_ref, reference, comments, ord_date,
23 order_type, ship_via, deliver_to, delivery_address, contact_phone,
24 contact_email, freight_cost, from_stk_loc, delivery_date, payment_terms)
25 VALUES (" .db_escape($order_no) . "," .db_escape($order_type) . "," . db_escape($order->customer_id) .
26 ", " .db_escape($order->trans_type) . "," .db_escape($order->Branch) . ", ".
27 db_escape($order->cust_ref) .",".
28 db_escape($order->reference) .",".
29 db_escape($order->Comments) .",'" .
30 date2sql($order->document_date) . "', " .
31 db_escape($order->sales_type) . ", " .
32 db_escape($order->ship_via)."," .
33 db_escape($order->deliver_to) . "," .
34 db_escape($order->delivery_address) . ", " .
35 db_escape($order->phone) . ", " .
36 db_escape($order->email) . ", " .
37 db_escape($order->freight_cost) .", " .
38 db_escape($order->Location) .", " .
39 db_escape($del_date) . "," .
40 db_escape($order->payment) . ")";
42 db_query($sql, "order Cannot be Added");
44 $order->trans_no = array($order_no=>0);
46 if ($loc_notification == 1)
48 include_once($path_to_root . "/inventory/includes/inventory_db.inc");
52 $st_reorder = array();
54 foreach ($order->line_items as $line)
56 if ($loc_notification == 1 && is_inventory_item($line->stock_id))
58 $sql = "SELECT ".TB_PREF."loc_stock.*, ".TB_PREF."locations.location_name, ".TB_PREF."locations.email
59 FROM ".TB_PREF."loc_stock, ".TB_PREF."locations
60 WHERE ".TB_PREF."loc_stock.loc_code=".TB_PREF."locations.loc_code
61 AND ".TB_PREF."loc_stock.stock_id = '" . $line->stock_id . "'
62 AND ".TB_PREF."loc_stock.loc_code = '" . $order->Location . "'";
63 $res = db_query($sql,"a location could not be retreived");
64 $loc = db_fetch($res);
65 if ($loc['email'] != "")
67 $qoh = get_qoh_on_date($line->stock_id, $order->Location);
68 $qoh -= get_demand_qty($line->stock_id, $order->Location);
69 $qoh -= get_demand_asm_qty($line->stock_id, $order->Location);
70 $qoh -= $line->quantity;
71 if ($qoh < $loc['reorder_level'])
73 $st_ids[] = $line->stock_id;
74 $st_names[] = $line->item_description;
75 $st_num[] = $qoh - $loc['reorder_level'];
76 $st_reorder[] = $loc['reorder_level'];
81 $sql = "INSERT INTO ".TB_PREF."sales_order_details (order_no, trans_type, stk_code, description, unit_price, quantity, discount_percent) VALUES (";
82 $sql .= $order_no . ",".$order->trans_type .
83 ",".db_escape($line->stock_id).", "
84 .db_escape($line->item_description).", $line->price,
86 $line->discount_percent)";
87 db_query($sql, "order Details Cannot be Added");
89 } /* inserted line items into sales order details */
91 add_audit_trail($order->trans_type, $order_no, $order->document_date);
92 $Refs->save($order->trans_type, $order_no, $order->reference);
95 if ($loc_notification == 1 && count($st_ids) > 0)
97 require_once($path_to_root . "/reporting/includes/class.mail.inc");
98 $company = get_company_prefs();
99 $mail = new email($company['coy_name'], $company['email']);
100 $from = $company['coy_name'] . " <" . $company['email'] . ">";
101 $to = $loc['location_name'] . " <" . $loc['email'] . ">";
102 $subject = _("Stocks below Re-Order Level at " . $loc['location_name']);
104 for ($i = 0; $i < count($st_ids); $i++)
105 $msg .= $st_ids[$i] . " " . $st_names[$i] . ", " . _("Re-Order Level") . ": " . $st_reorder[$i] . ", " . _("Below") . ": " . $st_num[$i] . "\n";
106 $msg .= "\n" . _("Please reorder") . "\n\n";
107 $msg .= $company['coy_name'];
109 $mail->subject($subject);
111 $ret = $mail->send();
116 //----------------------------------------------------------------------------------------
118 function delete_sales_order($order_no, $trans_type)
122 $sql = "DELETE FROM ".TB_PREF."sales_orders WHERE order_no=" . db_escape($order_no)
123 . " AND trans_type=".db_escape($trans_type);
125 db_query($sql, "order Header Delete");
127 $sql = "DELETE FROM ".TB_PREF."sales_order_details WHERE order_no ="
128 .db_escape($order_no) . " AND trans_type=".db_escape($trans_type);
129 db_query($sql, "order Detail Delete");
131 delete_reference($trans_type, $order_no);
133 add_audit_trail($trans_type, $order_no, Today(), _("Deleted."));
134 commit_transaction();
137 //----------------------------------------------------------------------------------------
138 // Mark changes in sales_order_details
140 function update_sales_order_version($order)
142 foreach ($order as $so_num => $so_ver) {
143 $sql= 'UPDATE '.TB_PREF.'sales_orders SET version=version+1 WHERE order_no='. $so_num.
144 ' AND version='.$so_ver . " AND trans_type=30";
145 db_query($sql, 'Concurrent editing conflict while sales order update');
149 //----------------------------------------------------------------------------------------
151 function update_sales_order($order)
153 global $loc_notification, $path_to_root, $Refs;
155 $del_date = date2sql($order->due_date);
156 $ord_date = date2sql($order->document_date);
157 $order_no = key($order->trans_no);
158 $version= current($order->trans_no);
162 $sql = "UPDATE ".TB_PREF."sales_orders SET type =".db_escape($order->so_type)." ,
163 debtor_no = " . db_escape($order->customer_id) . ",
164 branch_code = " . db_escape($order->Branch) . ",
165 customer_ref = ". db_escape($order->cust_ref) .",
166 reference = ". db_escape($order->reference) .",
167 comments = ". db_escape($order->Comments) .",
168 ord_date = " . db_escape($ord_date) . ",
169 order_type = " .db_escape($order->sales_type) . ",
170 ship_via = " . db_escape($order->ship_via) .",
171 deliver_to = " . db_escape($order->deliver_to) . ",
172 delivery_address = " . db_escape($order->delivery_address) . ",
173 contact_phone = " .db_escape($order->phone) . ",
174 contact_email = " .db_escape($order->email) . ",
175 freight_cost = " .db_escape($order->freight_cost) .",
176 from_stk_loc = " .db_escape($order->Location) .",
177 delivery_date = " .db_escape($del_date). ",
178 version = ".($version+1).",
179 payment_terms = " .db_escape($order->payment). "
180 WHERE order_no=" . $order_no ."
181 AND trans_type=".$order->trans_type." AND version=".$version;
182 db_query($sql, "order Cannot be Updated, this can be concurrent edition conflict");
184 $sql = "DELETE FROM ".TB_PREF."sales_order_details WHERE order_no =" . $order_no . " AND trans_type=".$order->trans_type;
186 db_query($sql, "Old order Cannot be Deleted");
188 if ($loc_notification == 1)
190 include_once($path_to_root . "/inventory/includes/inventory_db.inc");
194 $st_reorder = array();
196 foreach ($order->line_items as $line)
198 if ($loc_notification == 1 && is_inventory_item($line->stock_id))
200 $sql = "SELECT ".TB_PREF."loc_stock.*, "
201 .TB_PREF."locations.location_name, "
202 .TB_PREF."locations.email
203 FROM ".TB_PREF."loc_stock, "
205 WHERE ".TB_PREF."loc_stock.loc_code=".TB_PREF."locations.loc_code
206 AND ".TB_PREF."loc_stock.stock_id = ".db_escape($line->stock_id)."
207 AND ".TB_PREF."loc_stock.loc_code = ".db_escape($order->Location);
208 $res = db_query($sql,"a location could not be retreived");
209 $loc = db_fetch($res);
210 if ($loc['email'] != "")
212 $qoh = get_qoh_on_date($line->stock_id, $order->Location);
213 $qoh -= get_demand_qty($line->stock_id, $order->Location);
214 $qoh -= get_demand_asm_qty($line->stock_id, $order->Location);
215 $qoh -= $line->quantity;
216 if ($qoh < $loc['reorder_level'])
218 $st_ids[] = $line->stock_id;
219 $st_names[] = $line->item_description;
220 $st_num[] = $qoh - $loc['reorder_level'];
221 $st_reorder[] = $loc['reorder_level'];
225 $sql = "INSERT INTO ".TB_PREF."sales_order_details
226 (id, order_no, trans_type, stk_code, description, unit_price, quantity,
227 discount_percent, qty_sent)
229 $sql .= db_escape($line->id ? $line->id : 0) . ","
230 .$order_no . ",".$order->trans_type.","
231 .db_escape($line->stock_id) . ","
232 .db_escape($line->item_description) . ", "
233 .db_escape($line->price) . ", "
234 .db_escape($line->quantity) . ", "
235 .db_escape($line->discount_percent) . ", "
236 .db_escape($line->qty_done) ." )";
238 db_query($sql, "Old order Cannot be Inserted");
240 } /* inserted line items into sales order details */
242 add_audit_trail($order->trans_type, $order_no, $order->document_date, _("Updated."));
243 $Refs->delete($order->trans_type, $order_no);
244 $Refs->save($order->trans_type, $order_no, $order->reference);
245 commit_transaction();
246 if ($loc_notification == 1 && count($st_ids) > 0)
248 require_once($path_to_root . "/reporting/includes/class.mail.inc");
249 $company = get_company_prefs();
250 $mail = new email($company['coy_name'], $company['email']);
251 $from = $company['coy_name'] . " <" . $company['email'] . ">";
252 $to = $loc['location_name'] . " <" . $loc['email'] . ">";
253 $subject = _("Stocks below Re-Order Level at " . $loc['location_name']);
255 for ($i = 0; $i < count($st_ids); $i++)
256 $msg .= $st_ids[$i] . " " . $st_names[$i] . ", "
257 . _("Re-Order Level") . ": " . $st_reorder[$i] . ", "
258 . _("Below") . ": " . $st_num[$i] . "\n";
259 $msg .= "\n" . _("Please reorder") . "\n\n";
260 $msg .= $company['coy_name'];
262 $mail->subject($subject);
264 $ret = $mail->send();
268 //----------------------------------------------------------------------------------------
270 function get_sales_order_header($order_no, $trans_type)
272 $sql = "SELECT sorder.*, "
275 ."cust.email AS master_email, "
276 ."loc.location_name, "
278 ."stype.sales_type, "
279 ."stype.id AS sales_type_id, "
280 ."stype.tax_included, "
281 ."ship.shipper_name, "
282 ."tax_group.name AS tax_group_name , "
283 ."tax_group.id AS tax_group_id,"
284 ."IF(ISNULL(branch.rep_lang),cust.rep_lang,branch.rep_lang) AS rep_lang "
285 ."FROM ".TB_PREF."sales_orders sorder, "
286 .TB_PREF."debtors_master cust, "
287 .TB_PREF."sales_types stype, "
288 .TB_PREF."tax_groups tax_group, "
289 .TB_PREF."cust_branch branch, "
290 .TB_PREF."locations loc, "
291 .TB_PREF."shippers ship
292 WHERE sorder.order_type=stype.id
293 AND branch.branch_code = sorder.branch_code
294 AND branch.tax_group_id = tax_group.id
295 AND sorder.debtor_no = cust.debtor_no
296 AND loc.loc_code = sorder.from_stk_loc
297 AND ship.shipper_id = sorder.ship_via
298 AND sorder.trans_type = " . db_escape($trans_type) ."
299 AND sorder.order_no = " . db_escape($order_no );
301 $result = db_query($sql, "order Retreival");
303 $num = db_num_rows($result);
306 display_db_error("FATAL : sales order query returned a duplicate - " . db_num_rows($result), $sql, true);
310 return db_fetch($result);
313 display_db_error("FATAL : sales order return nothing - " . db_num_rows($result), $sql, true);
317 //----------------------------------------------------------------------------------------
319 function get_sales_order_details($order_no, $trans_type) {
320 $sql = "SELECT id, stk_code, unit_price, "
321 .TB_PREF."sales_order_details.description,"
322 .TB_PREF."sales_order_details.quantity,
324 qty_sent as qty_done, "
325 .TB_PREF."stock_master.units,
326 ".TB_PREF."stock_master.material_cost + "
327 .TB_PREF."stock_master.labour_cost + "
328 .TB_PREF."stock_master.overhead_cost AS standard_cost
329 FROM ".TB_PREF."sales_order_details, ".TB_PREF."stock_master
330 WHERE ".TB_PREF."sales_order_details.stk_code = ".TB_PREF."stock_master.stock_id
331 AND order_no =" . db_escape($order_no)
332 ." AND trans_type = " . db_escape($trans_type) . " ORDER BY id";
334 return db_query($sql, "Retreive order Line Items");
336 //----------------------------------------------------------------------------------------
338 function read_sales_order($order_no, &$order, $trans_type)
340 $myrow = get_sales_order_header($order_no, $trans_type);
342 $order->trans_type = $myrow['trans_type'];
343 $order->so_type = $myrow["type"];
344 $order->trans_no = array($order_no=> $myrow["version"]);
346 $order->set_customer($myrow["debtor_no"], $myrow["name"],
347 $myrow["curr_code"], $myrow["discount"], $myrow["payment_terms"]);
349 $order->set_branch($myrow["branch_code"], $myrow["tax_group_id"],
350 $myrow["tax_group_name"], $myrow["contact_phone"], $myrow["contact_email"]);
352 $order->set_sales_type($myrow["sales_type_id"], $myrow["sales_type"],
353 $myrow["tax_included"], 0); // no default price calculations on edit
355 $order->set_location($myrow["from_stk_loc"], $myrow["location_name"]);
357 $order->set_delivery($myrow["ship_via"], $myrow["deliver_to"],
358 $myrow["delivery_address"], $myrow["freight_cost"]);
360 $order->cust_ref = $myrow["customer_ref"];
361 $order->sales_type =$myrow["order_type"];
362 $order->reference = $myrow["reference"];
363 $order->Comments = $myrow["comments"];
364 $order->due_date = sql2date($myrow["delivery_date"]);
365 $order->document_date = sql2date($myrow["ord_date"]);
367 $result = get_sales_order_details($order_no, $order->trans_type);
368 if (db_num_rows($result) > 0)
371 while ($myrow = db_fetch($result))
373 $order->add_to_cart($line_no,$myrow["stk_code"],$myrow["quantity"],
374 $myrow["unit_price"], $myrow["discount_percent"],
375 $myrow["qty_done"], $myrow["standard_cost"], $myrow["description"], $myrow["id"] );
383 //----------------------------------------------------------------------------------------
385 function sales_order_has_deliveries($order_no)
387 $sql = "SELECT SUM(qty_sent) FROM ".TB_PREF.
388 "sales_order_details WHERE order_no=".db_escape($order_no)
389 ." AND trans_type=".ST_SALESORDER."";
391 $result = db_query($sql, "could not query for sales order usage");
393 $row = db_fetch_row($result);
395 return ($row[0] > 0);
398 //----------------------------------------------------------------------------------------
400 function close_sales_order($order_no)
402 // set the quantity of each item to the already sent quantity. this will mark item as closed.
403 $sql = "UPDATE ".TB_PREF."sales_order_details
404 SET quantity = qty_sent WHERE order_no = ".db_escape($order_no)
405 ." AND trans_type=".ST_SALESORDER."";
407 db_query($sql, "The sales order detail record could not be updated");
410 //---------------------------------------------------------------------------------------------------------------
412 function get_invoice_duedate($terms, $invdate)
414 if (!is_date($invdate))
416 return new_doc_date();
419 $myrow = get_payment_terms($terms);
424 if ($myrow['day_in_following_month'] > 0)
425 $duedate = add_days(end_month($invdate), $myrow['day_in_following_month']);
427 $duedate = add_days($invdate, $myrow['days_before_due']);
431 function get_customer_to_order($customer_id) {
433 // Now check to ensure this account is not on hold */
434 $sql = "SELECT ".TB_PREF."debtors_master.name, "
435 .TB_PREF."debtors_master.address, "
436 .TB_PREF."credit_status.dissallow_invoices, "
437 .TB_PREF."debtors_master.sales_type AS salestype, "
438 .TB_PREF."debtors_master.dimension_id, "
439 .TB_PREF."debtors_master.dimension2_id, "
440 .TB_PREF."sales_types.sales_type, "
441 .TB_PREF."sales_types.tax_included, "
442 .TB_PREF."sales_types.factor, "
443 .TB_PREF."debtors_master.curr_code, "
444 .TB_PREF."debtors_master.discount,"
445 .TB_PREF."debtors_master.payment_terms,"
446 .TB_PREF."debtors_master.pymt_discount
447 FROM ".TB_PREF."debtors_master, "
448 .TB_PREF."credit_status, "
449 .TB_PREF."sales_types
450 WHERE ".TB_PREF."debtors_master.sales_type="
451 .TB_PREF."sales_types.id
452 AND ".TB_PREF."debtors_master.credit_status=".TB_PREF."credit_status.id
453 AND ".TB_PREF."debtors_master.debtor_no = ".db_escape($customer_id);
455 $result =db_query($sql,"Customer Record Retreive");
456 return db_fetch($result);
459 function get_branch_to_order($customer_id, $branch_id) {
461 // the branch was also selected from the customer selection so default the delivery details from the customer branches table cust_branch. The order process will ask for branch details later anyway
462 $sql = "SELECT ".TB_PREF."cust_branch.br_name, "
463 .TB_PREF."cust_branch.br_address, "
464 .TB_PREF."cust_branch.br_post_address, "
465 .TB_PREF."cust_branch.phone, "
466 .TB_PREF."cust_branch.email,
467 default_location, location_name, default_ship_via, "
468 .TB_PREF."tax_groups.name AS tax_group_name, "
469 .TB_PREF."tax_groups.id AS tax_group_id
470 FROM ".TB_PREF."cust_branch, "
471 .TB_PREF."tax_groups, "
473 WHERE ".TB_PREF."cust_branch.tax_group_id = ".TB_PREF."tax_groups.id
474 AND ".TB_PREF."locations.loc_code=default_location
475 AND ".TB_PREF."cust_branch.branch_code=".db_escape($branch_id)."
476 AND ".TB_PREF."cust_branch.debtor_no = ".db_escape($customer_id);
478 return db_query($sql,"Customer Branch Record Retreive");
481 function get_sql_for_sales_orders_view($selected_customer, $trans_type)
483 global $selected_stock_item;
490 .($_POST['order_view_mode']=='InvoiceTemplates'
491 || $_POST['order_view_mode']=='DeliveryTemplates' ?
492 "sorder.comments, " : "sorder.customer_ref, ")
494 sorder.delivery_date,
496 Sum(line.unit_price*line.quantity*(1-line.discount_percent))+freight_cost AS OrderValue,
499 Sum(line.qty_sent) AS TotDelivered,
500 Sum(line.quantity) AS TotQuantity
501 FROM ".TB_PREF."sales_orders as sorder, "
502 .TB_PREF."sales_order_details as line, "
503 .TB_PREF."debtors_master as debtor, "
504 .TB_PREF."cust_branch as branch
505 WHERE sorder.order_no = line.order_no
506 AND sorder.trans_type = line.trans_type
507 AND sorder.trans_type = $trans_type
508 AND sorder.debtor_no = debtor.debtor_no
509 AND sorder.branch_code = branch.branch_code
510 AND debtor.debtor_no = branch.debtor_no";
512 if (isset($_POST['OrderNumber']) && $_POST['OrderNumber'] != "")
514 // search orders with number like
515 $number_like = "%".$_POST['OrderNumber'];
516 $sql .= " AND sorder.order_no LIKE ".db_escape($number_like)
517 ." GROUP BY sorder.order_no";
519 else // ... or select inquiry constraints
521 if ($_POST['order_view_mode']!='DeliveryTemplates' && $_POST['order_view_mode']!='InvoiceTemplates')
523 $date_after = date2sql($_POST['OrdersAfterDate']);
524 $date_before = date2sql($_POST['OrdersToDate']);
526 $sql .= " AND sorder.ord_date >= '$date_after'"
527 ." AND sorder.ord_date <= '$date_before'";
529 if ($trans_type == ST_SALESQUOTE && !check_value('show_all'))
530 $sql .= " AND sorder.delivery_date >= '".date2sql(Today())."'";
531 if ($selected_customer != -1)
532 $sql .= " AND sorder.debtor_no=".db_escape($selected_customer);
534 if (isset($selected_stock_item))
535 $sql .= " AND line.stk_code=".db_escape($selected_stock_item);
537 if (isset($_POST['StockLocation']) && $_POST['StockLocation'] != ALL_TEXT)
538 $sql .= " AND sorder.from_stk_loc = ".db_escape($_POST['StockLocation']);
540 if ($_POST['order_view_mode']=='OutstandingOnly')
541 $sql .= " AND line.qty_sent < line.quantity";
542 elseif ($_POST['order_view_mode']=='InvoiceTemplates' || $_POST['order_view_mode']=='DeliveryTemplates')
543 $sql .= " AND sorder.type=1";
545 $sql .= " GROUP BY sorder.order_no,