Payment terms related functions moved to separate file, common function for calculati...
[fa-stable.git] / sales / includes / db / sales_order_db.inc
1 <?php
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)
14 {
15         global $SysPrefs, $path_to_root, $Refs;
16
17         begin_transaction(__FUNCTION__, func_get_args());
18         hook_db_prewrite($order, $order->trans_type);
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         $total = $order->get_trans_total();
23         $sql = "INSERT INTO ".TB_PREF."sales_orders (order_no, type, debtor_no, trans_type, branch_code, customer_ref, reference, comments, ord_date,
24                 order_type, ship_via, deliver_to, delivery_address, contact_phone,
25                 freight_cost, from_stk_loc, delivery_date, payment_terms, total, prep_amount)
26                 VALUES (" .db_escape($order_no) . "," .db_escape($order_type) . "," . db_escape($order->customer_id) .
27                  ", " .db_escape($order->trans_type) . "," .db_escape($order->Branch) . ", ".
28                         db_escape($order->cust_ref) .",". 
29                         db_escape($order->reference) .",". 
30                         db_escape($order->Comments) .",'" . 
31                         date2sql($order->document_date) . "', " .
32                         db_escape($order->sales_type) . ", " .
33                         db_escape($order->ship_via)."," . 
34                         db_escape($order->deliver_to) . "," .
35                         db_escape($order->delivery_address) . ", " .
36                         db_escape($order->phone) . ", " . 
37                         db_escape($order->freight_cost) .", " . 
38                         db_escape($order->Location) .", " .
39                         db_escape($del_date) . "," .
40                         db_escape($order->payment) . "," .
41                         db_escape($total) . "," .
42                         db_escape($order->prep_amount).")";
43
44         db_query($sql, "order Cannot be Added");
45
46         $order->trans_no = array($order_no=>0);
47
48         if ($SysPrefs->loc_notification() == 1)
49         {
50                 include_once($path_to_root . "/inventory/includes/inventory_db.inc");
51                 $st_ids = array();
52                 $st_names = array();
53                 $st_num = array();
54                 $st_reorder = array();
55         }
56         foreach ($order->line_items as $line)
57         {
58                 if ($SysPrefs->loc_notification() == 1 && is_inventory_item($line->stock_id))
59                         $loc = calculate_reorder_level($order->Location, $line, $st_ids, $st_names, $st_num, $st_reorder); 
60
61                 $sql = "INSERT INTO ".TB_PREF."sales_order_details (order_no, trans_type, stk_code, description, unit_price, quantity, discount_percent) VALUES (";
62                 $sql .= $order_no . ",".$order->trans_type .
63                                 ",".db_escape($line->stock_id).", "
64                                 .db_escape($line->item_description).", $line->price,
65                                 $line->quantity,
66                                 $line->discount_percent)";
67                 db_query($sql, "order Details Cannot be Added");
68
69         // Now mark quotation line as processed
70                 if ($order->trans_type == ST_SALESORDER && $line->src_id)
71                         update_parent_line(ST_SALESORDER, $line->src_id, $line->qty_dispatched); // clear all the quote despite all or the part was ordered
72         } /* inserted line items into sales order details */
73
74         add_audit_trail($order->trans_type, $order_no, $order->document_date);
75         $Refs->save($order->trans_type, $order_no, $order->reference, null, $order->fixed_asset);
76
77         hook_db_postwrite($order, $order->trans_type);
78         commit_transaction();
79
80         if ($SysPrefs->loc_notification() == 1 && count($st_ids) > 0)
81                 send_reorder_email($loc, $st_ids, $st_names, $st_num, $st_reorder);
82         return $order_no;
83 }
84
85 //----------------------------------------------------------------------------------------
86
87 function delete_sales_order($order_no, $trans_type)
88 {
89         begin_transaction(__FUNCTION__, func_get_args());
90         hook_db_prevoid($trans_type, $order_no);
91
92         $sql = "DELETE FROM ".TB_PREF."sales_orders WHERE order_no=" . db_escape($order_no) 
93                 . " AND trans_type=".db_escape($trans_type);
94
95         db_query($sql, "order Header Delete");
96
97         $sql = "DELETE FROM ".TB_PREF."sales_order_details WHERE order_no =" 
98                 .db_escape($order_no) . " AND trans_type=".db_escape($trans_type);
99         db_query($sql, "order Detail Delete");
100
101         add_audit_trail($trans_type, $order_no, Today(), _("Deleted."));
102         commit_transaction();
103 }
104
105 //----------------------------------------------------------------------------------------
106 // Mark changes in sales_order_details
107 //
108 function update_sales_order_version($order)
109 {
110   foreach ($order as $so_num => $so_ver) {
111   $sql= 'UPDATE '.TB_PREF.'sales_orders SET version=version+1 WHERE order_no='. db_escape($so_num).
112         ' AND version='.$so_ver . " AND trans_type=".ST_SALESORDER;
113   db_query($sql, 'Concurrent editing conflict while sales order update');
114   }
115 }
116
117 //----------------------------------------------------------------------------------------
118
119 function update_sales_order($order)
120 {
121         global $SysPrefs, $path_to_root, $Refs;
122
123         $del_date = date2sql($order->due_date);
124         $ord_date = date2sql($order->document_date);
125         $order_no =  key($order->trans_no);
126         $version= current($order->trans_no);
127         $total = $order->get_trans_total();
128
129         begin_transaction(__FUNCTION__, func_get_args());
130         hook_db_prewrite($order, $order->trans_type);
131
132         if ($order->trans_type == ST_SALESORDER)
133                 $allocs = get_payments_for($order_no, $order->trans_type, $order->customer_id);
134
135         $sql = "UPDATE ".TB_PREF."sales_orders SET type =".db_escape($order->so_type)." ,
136                 debtor_no = " . db_escape($order->customer_id) . ",
137                 branch_code = " . db_escape($order->Branch) . ",
138                 customer_ref = ". db_escape($order->cust_ref) .",
139                 reference = ". db_escape($order->reference) .",
140                 comments = ". db_escape($order->Comments) .",
141                 ord_date = " . db_escape($ord_date) . ",
142                 order_type = " .db_escape($order->sales_type) . ",
143                 ship_via = " . db_escape($order->ship_via) .",
144                 deliver_to = " . db_escape($order->deliver_to) . ",
145                 delivery_address = " . db_escape($order->delivery_address) . ",
146                 contact_phone = " .db_escape($order->phone) . ",
147                 freight_cost = " .db_escape($order->freight_cost) .",
148                 from_stk_loc = " .db_escape($order->Location) .",
149                 delivery_date = " .db_escape($del_date). ",
150                 version = ".($version+1).",
151                 payment_terms = " .db_escape($order->payment). ",
152                 total = ". db_escape($total). ",
153                 prep_amount = ". db_escape($order->prep_amount) ."
154          WHERE order_no=" . db_escape($order_no) ."
155          AND trans_type=".$order->trans_type." AND version=".$version;
156         db_query($sql, "order Cannot be Updated, this can be concurrent edition conflict");
157
158         $id_tokeep = array();
159         foreach ($order->line_items as $line) {
160                 array_push($id_tokeep , $line->id);
161         }
162         $id_list = implode(', ', $id_tokeep);
163         
164         $sql = "DELETE FROM ".TB_PREF."sales_order_details WHERE order_no =" . db_escape($order_no) . " AND trans_type=".$order->trans_type;
165         $sql .= " AND id NOT IN ($id_list)";
166
167         db_query($sql, "Old order Cannot be Deleted");
168
169         if ($SysPrefs->loc_notification() == 1)
170         {
171                 include_once($path_to_root . "/inventory/includes/inventory_db.inc");
172                 $st_ids = array();
173                 $st_names = array();
174                 $st_num = array();
175                 $st_reorder = array();
176         }
177         foreach ($order->line_items as $line)
178         {
179                 if ($SysPrefs->loc_notification() == 1 && is_inventory_item($line->stock_id))
180                         $loc = calculate_reorder_level($order->Location, $line, $st_ids, $st_names, $st_num, $st_reorder); 
181
182                 if (!$line->id) //new line
183                         $sql = "INSERT INTO ".TB_PREF."sales_order_details
184                          (order_no, trans_type, stk_code,  description, unit_price, quantity,
185                           discount_percent, qty_sent)
186                          VALUES (".$order_no . ",".$order->trans_type.","
187                                   .db_escape($line->stock_id) . ","
188                                   .db_escape($line->item_description) . ", "
189                                   .db_escape($line->price) . ", "
190                                   .db_escape($line->quantity) . ", "
191                                   .db_escape($line->discount_percent) . ", "
192                                   .db_escape($line->qty_done) ." )";
193                 else
194                 $sql = "UPDATE ".TB_PREF."sales_order_details
195                         SET id=".db_escape($line->id).",
196                                 order_no=$order_no,
197                                 trans_type=".$order->trans_type.",
198                                 stk_code=".db_escape($line->stock_id).",
199                                 description=".db_escape($line->item_description).",
200                                 unit_price=".db_escape($line->price).",
201                                 quantity=".db_escape($line->quantity).",
202                         discount_percent=".db_escape($line->discount_percent).",
203                             qty_sent=".db_escape($line->qty_done)."
204                          WHERE id = ".db_escape($line->id);
205
206                 db_query($sql, "Old order Cannot be updated");
207         } /* inserted line items into sales order details */
208
209         if ($order->trans_type == ST_SALESORDER)
210                 reallocate_payments($order_no, ST_SALESORDER, $ord_date, $total, $allocs, $order->customer_id);
211         add_audit_trail($order->trans_type, $order_no, $order->document_date, _("Updated."));
212         $Refs->save($order->trans_type, $order_no, $order->reference, null, $order->fixed_asset);
213
214         hook_db_postwrite($order, $order->trans_type);
215         commit_transaction();
216         if ($SysPrefs->loc_notification() == 1 && count($st_ids) > 0)
217                 send_reorder_email($loc, $st_ids, $st_names, $st_num, $st_reorder);
218 }
219
220 //----------------------------------------------------------------------------------------
221
222 function get_sales_order_header($order_no, $trans_type)
223 {
224         $sql = "SELECT sorder.*,
225           cust.name,
226           cust.curr_code,
227           cust.address,
228           loc.location_name,
229           cust.discount,
230           stype.sales_type,
231           stype.id AS sales_type_id,
232           stype.tax_included,
233           stype.factor,
234           ship.description as shipping,
235           tax_group.name AS tax_group_name,
236           tax_group.id AS tax_group_id,
237           cust.tax_id,
238           sorder.alloc,
239           IFNULL(allocs.ord_allocs, 0)+IFNULL(inv.inv_allocs ,0) AS sum_paid,
240           sorder.prep_amount>0 as prepaid,
241           terms.type=".PTT_CASH." as cash_sale
242         FROM ".TB_PREF."sales_orders sorder
243                         LEFT JOIN (SELECT trans_no_to, sum(amt) ord_allocs FROM ".TB_PREF."cust_allocations
244                                 WHERE trans_type_to=".ST_SALESORDER." AND trans_no_to=".db_escape($order_no)." GROUP BY trans_no_to) allocs 
245                                         ON sorder.trans_type=".ST_SALESORDER." AND allocs.trans_no_to=sorder.order_no
246                         LEFT JOIN (SELECT order_, sum(alloc) inv_allocs FROM ".TB_PREF."debtor_trans 
247                                 WHERE type=".ST_SALESINVOICE." AND order_=".db_escape($order_no)."  GROUP BY order_)
248                                  inv ON sorder.trans_type=".ST_SALESORDER." AND inv.order_=sorder.order_no
249                         LEFT JOIN ".TB_PREF."stock_master ship ON ship.stock_id = sorder.ship_via
250                         LEFT JOIN ".TB_PREF."payment_terms terms ON sorder.payment_terms=terms.id,"
251           .TB_PREF."debtors_master cust,"
252           .TB_PREF."sales_types stype, "
253           .TB_PREF."tax_groups tax_group, "
254           .TB_PREF."cust_branch branch,"
255           .TB_PREF."locations loc
256         WHERE sorder.order_type=stype.id
257                 AND branch.branch_code = sorder.branch_code
258                 AND branch.tax_group_id = tax_group.id
259                 AND sorder.debtor_no = cust.debtor_no
260                 AND loc.loc_code = sorder.from_stk_loc
261                 AND sorder.trans_type = " . db_escape($trans_type) ."
262                 AND sorder.order_no = " . db_escape($order_no );
263
264         $result = db_query($sql, "order Retreival");
265
266         $num = db_num_rows($result);
267         if ($num > 1)
268         {
269                 display_warning("You have duplicate document in database: (type:$trans_type, number:$order_no).");
270         }
271         else if ($num == 1)
272         {
273                 return db_fetch($result);
274         }
275         else
276                 display_warning("You have missing or invalid sales document in database (type:$trans_type, number:$order_no).");
277
278 }
279
280 //----------------------------------------------------------------------------------------
281
282 function get_sales_order_details($order_no, $trans_type) {
283         $sql = "SELECT id, stk_code, unit_price,
284                                 line.description,
285                                 line.quantity,
286                                 discount_percent,
287                                 qty_sent as qty_done,
288                                 item.units,
289                                 item.mb_flag,
290                                 item.material_cost
291                         FROM ".TB_PREF."sales_order_details line,"
292                                 .TB_PREF."stock_master item
293                         WHERE line.stk_code = item.stock_id
294                                 AND order_no =".db_escape($order_no) 
295                                 ." AND trans_type = ".db_escape($trans_type) . " ORDER BY id";
296
297         return db_query($sql, "Retreive order Line Items");
298 }
299 //----------------------------------------------------------------------------------------
300
301 function read_sales_order($order_no, &$order, $trans_type)
302 {
303
304         $myrow = get_sales_order_header($order_no, $trans_type);
305
306         $order->trans_type = $myrow['trans_type'];
307         $order->so_type =  $myrow["type"];
308         $order->trans_no = array($order_no=> $myrow["version"]);
309
310         $order->set_customer($myrow["debtor_no"], $myrow["name"],
311           $myrow["curr_code"], $myrow["discount"], $myrow["payment_terms"]);
312
313         $order->set_branch($myrow["branch_code"], $myrow["tax_group_id"],
314           $myrow["tax_group_name"], $myrow["contact_phone"]);
315
316         $order->set_sales_type($myrow["sales_type_id"], $myrow["sales_type"], 
317             $myrow["tax_included"], $myrow["factor"]); // no default price calculations on edit
318
319         $order->set_location($myrow["from_stk_loc"], $myrow["location_name"]);
320
321         $order->set_delivery($myrow["ship_via"], $myrow["deliver_to"],
322           $myrow["delivery_address"], $myrow["freight_cost"]);
323
324         $order->cust_ref = $myrow["customer_ref"];
325         $order->sales_type =$myrow["order_type"];
326         $order->reference = $myrow["reference"];
327         $order->Comments = $myrow["comments"];
328         $order->due_date = sql2date($myrow["delivery_date"]);
329         $order->document_date = sql2date($myrow["ord_date"]);
330
331         $order->prepaid = $myrow["prepaid"];
332         $order->alloc = $myrow['alloc'];
333         $order->sum_paid = $myrow["sum_paid"]; // sum of all prepayments to so (also invoiced)
334         $order->prep_amount = $myrow["prep_amount"];
335         $order->prepayments = get_payments_for($order_no, $myrow['trans_type'], $myrow['debtor_no']);
336
337         $result = get_sales_order_details($order_no, $order->trans_type);
338         if (db_num_rows($result) > 0)
339         {
340                 $line_no=0;
341                 while ($myrow = db_fetch($result))
342                 {
343                         $order->add_to_cart($line_no,$myrow["stk_code"],$myrow["quantity"],
344                                 $myrow["unit_price"], $myrow["discount_percent"],
345                                 $myrow["qty_done"], $myrow["material_cost"], $myrow["description"], $myrow["id"] );
346                 $line_no++;
347                 }
348         }
349
350         return true;
351 }
352
353 //----------------------------------------------------------------------------------------
354
355 function sales_order_has_deliveries($order_no)
356 {
357         $sql = "SELECT SUM(qty_sent) FROM ".TB_PREF.
358         "sales_order_details WHERE order_no=".db_escape($order_no)
359         ." AND trans_type=".ST_SALESORDER;
360
361         $result = db_query($sql, "could not query for sales order usage");
362
363         $row = db_fetch_row($result);
364
365         if ($row[0] > 0)
366                 return true;  // 2010-04-21 added check for eventually voided deliveries, Joe Hunt
367         $sql = "SELECT order_ FROM ".TB_PREF."debtor_trans WHERE type=".ST_CUSTDELIVERY." AND order_=".db_escape($order_no);
368         $result = db_query($sql,"The related delivery notes could not be retreived");
369         return (db_num_rows($result) > 0);      
370 }
371
372 //----------------------------------------------------------------------------------------
373
374 function close_sales_order($order_no)
375 {
376         // set the quantity of each item to the already sent quantity. this will mark item as closed.
377         $sql = "UPDATE ".TB_PREF."sales_order_details
378                 SET quantity = qty_sent WHERE order_no = ".db_escape($order_no)
379                 ." AND trans_type=".ST_SALESORDER;
380
381         db_query($sql, "The sales order detail record could not be updated");
382 }
383
384 //---------------------------------------------------------------------------------------------------------------
385
386 function get_customer_to_order($customer_id) {
387
388         // Now check to ensure this account is not on hold */
389         $sql = "SELECT cust.name, 
390                   cust.address,
391                   credit_status.dissallow_invoices, 
392                   cust.sales_type AS salestype,
393                   cust.dimension_id,
394                   cust.dimension2_id,
395                   stype.sales_type,
396                   stype.tax_included,
397                   stype.factor,
398                   cust.curr_code,
399                   cust.discount,
400                   cust.payment_terms,
401                   cust.credit_limit - Sum(IFNULL(IF(trans.type IN(".implode(',', array(ST_CUSTCREDIT, ST_CUSTPAYMENT, ST_BANKDEPOSIT))."),
402                         -1, 1) * (ov_amount + ov_gst + ov_freight + ov_freight_tax + ov_discount),0)) as cur_credit
403                 FROM ".TB_PREF."debtors_master cust
404                   LEFT JOIN ".TB_PREF."debtor_trans trans ON trans.type!=".ST_CUSTDELIVERY." AND trans.debtor_no = cust.debtor_no,"
405                   .TB_PREF."credit_status credit_status,"
406                   .TB_PREF."sales_types stype
407                 WHERE cust.sales_type=stype.id
408                         AND cust.credit_status=credit_status.id
409                         AND cust.debtor_no=".db_escape($customer_id)
410                 ." GROUP by cust.debtor_no";
411
412         $result =db_query($sql,"Customer Record Retreive");
413         return  db_fetch($result);
414 }
415
416 function get_branch_to_order($customer_id, $branch_id) {
417
418         // 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
419                 $sql = "SELECT branch.br_name,
420                                         branch.br_address,
421                                         branch.br_post_address,
422                                         default_location, location_name, default_ship_via,
423                                         tax_group.name AS tax_group_name,
424                                         tax_group.id AS tax_group_id
425                                 FROM ".TB_PREF."cust_branch branch,"
426                                         .TB_PREF."tax_groups tax_group,"
427                                         .TB_PREF."locations location
428                         WHERE branch.tax_group_id = tax_group.id
429                                 AND location.loc_code=default_location
430                                 AND branch.branch_code=".db_escape($branch_id)."
431                                 AND branch.debtor_no=".db_escape($customer_id);
432
433             return db_query($sql,"Customer Branch Record Retreive");
434 }
435
436 /*
437         Supported filters:
438
439         InvoiceTemplates
440         DeliveryTemplates
441         OutstandingOnly
442         PrepaidOrders
443 */
444 function get_sql_for_sales_orders_view($trans_type, $trans_no, $filter, 
445         $stock_item='', $from='', $to='', $ref='', $location=ALL_TEXT, $customer_id=ALL_TEXT)
446 {
447
448         $sql = "SELECT 
449                         sorder.order_no,
450                         sorder.reference,
451                         debtor.name,
452                         branch.br_name,"
453                         .($filter=='InvoiceTemplates' 
454                                 || $filter=='DeliveryTemplates' ?
455                          "sorder.comments, " : "sorder.customer_ref, ")
456                         ."sorder.ord_date,
457                         sorder.delivery_date,
458                         sorder.deliver_to,
459                         Sum(line.unit_price*line.quantity*(1-line.discount_percent))+freight_cost AS OrderValue,
460                         sorder.type,
461                         debtor.curr_code,
462                         Sum(line.qty_sent) AS TotDelivered,
463                         Sum(line.quantity) AS TotQuantity,
464                         Sum(line.invoiced) AS TotInvoiced,
465                         alloc,
466                         prep_amount,
467                         allocs.ord_payments,
468                         inv.inv_payments,
469                         sorder.total,
470                         sorder.trans_type
471                 FROM ".TB_PREF."sales_orders as sorder
472                 LEFT JOIN (SELECT trans_no_to, sum(amt) ord_payments FROM ".TB_PREF."cust_allocations WHERE trans_type_to=".ST_SALESORDER." GROUP BY trans_no_to)
473                          allocs ON sorder.trans_type=".ST_SALESORDER." AND allocs.trans_no_to=sorder.order_no
474                 LEFT JOIN (SELECT order_, sum(prep_amount) inv_payments FROM ".TB_PREF."debtor_trans WHERE type=".ST_SALESINVOICE." GROUP BY order_)
475                                  inv ON sorder.trans_type=".ST_SALESORDER." AND inv.order_=sorder.order_no,"
476                         .TB_PREF."sales_order_details as line, "
477                         .TB_PREF."debtors_master as debtor, "
478                         .TB_PREF."cust_branch as branch
479                         WHERE sorder.order_no = line.order_no
480                         AND sorder.trans_type = line.trans_type
481                         AND sorder.trans_type = ".db_escape($trans_type)."
482                         AND sorder.debtor_no = debtor.debtor_no
483                         AND sorder.branch_code = branch.branch_code
484                         AND debtor.debtor_no = branch.debtor_no";
485
486         if (isset($trans_no) && $trans_no != "")
487         {
488                 // search orders with number like 
489                 $number_like = "%".$trans_no;
490                 $sql .= " AND sorder.order_no LIKE ".db_escape($number_like);
491 //                              ." GROUP BY sorder.order_no";
492         }
493         elseif ($ref != "")
494         {
495                 // search orders with reference like 
496                 $sql .= " AND sorder.reference LIKE ".db_escape('%' . $ref . '%');
497 //                              ." GROUP BY sorder.order_no";
498         }
499         else    // ... or select inquiry constraints
500         {
501                 if ($filter!='DeliveryTemplates' && $filter!='InvoiceTemplates' && $filter!='OutstandingOnly')
502                 {
503                         $date_after = date2sql($from);
504                         $date_before = date2sql($to);
505
506                         $sql .=  " AND sorder.ord_date >= '$date_after'"
507                                         ." AND sorder.ord_date <= '$date_before'";
508                 }
509         }
510                 if ($trans_type == ST_SALESQUOTE && !check_value('show_all'))
511                         $sql .= " AND sorder.delivery_date >= '".date2sql(Today())."' AND line.qty_sent=0"; // show only outstanding, not realized quotes
512
513                 //if ($selected_customer != -1)
514                 //      $sql .= " AND sorder.debtor_no=".db_escape($selected_customer);
515
516                 if ($stock_item != ALL_TEXT)
517                         $sql .= " AND line.stk_code=".db_escape($stock_item);
518
519                 if ($location != ALL_TEXT)
520                         $sql .= " AND sorder.from_stk_loc = ".db_escape($location);
521
522                 if ($filter=='OutstandingOnly')
523                         $sql .= " AND line.qty_sent < line.quantity";
524
525                 if ($filter=='PrepaidOrders')
526                         $sql .= " AND prep_amount>0";
527
528                 elseif ($filter=='InvoiceTemplates' || $filter=='DeliveryTemplates')
529                         $sql .= " AND sorder.type=1";
530
531                 //Chaiatanya : New Filter
532                 if ($customer_id != ALL_TEXT)
533                         $sql .= " AND sorder.debtor_no = ".db_escape($customer_id);             
534
535                 $sql .= " GROUP BY sorder.order_no,
536                                         sorder.debtor_no,
537                                         sorder.branch_code,
538                                         sorder.customer_ref,
539                                         sorder.ord_date,
540                                         sorder.deliver_to";
541         return $sql;
542 }
543
544 //--------------------------------------------------------------------------------------------------
545 function update_prepaid_so_line($line_id, $qty_invoiced)
546 {
547         $sql = "UPDATE ".TB_PREF."sales_order_details
548                 SET invoiced = invoiced + ".(float)$qty_invoiced."
549                 WHERE id=".db_escape($line_id);
550
551         db_query($sql, "The document detail record could not be updated with invoiced qty");
552         return true;
553 }
554 /*
555         Returns array of all issued invoices to sales order $order_no, optinally up to trans_no==$up_to
556 */
557 function get_sales_order_invoices($order_no)
558 {
559         $sql = "SELECT trans_no, dt.type as type, tran_date, reference, prep_amount
560             FROM ".TB_PREF."debtor_trans dt
561                 LEFT JOIN ".TB_PREF."voided v ON v.type=dt.type AND v.id=dt.trans_no
562                 WHERE ISNULL(v.id) AND dt.type=".ST_SALESINVOICE." AND dt.order_=".db_escape($order_no)
563                 ." ORDER BY dt.tran_date, dt.reference, dt.trans_no";
564
565         return db_query($sql, "cannot retrieve sales invoices for sales order");
566 }
567
568 function is_sales_order_started($order_no)
569 {
570         $sql = "SELECT count(*) FROM ".TB_PREF."sales_order_details WHERE order_no=".db_escape($order_no)." AND trans_type=".ST_SALESORDER
571                 ." AND (invoiced!=0 OR qty_sent!=0)";
572
573         $result = db_fetch(db_query($sql, "cannot retrieve sales invoices for sales order"));
574         return $result[0];
575 }
576
577 //---------------------------------------------------------------------------------------------
578 //
579 // Mark/unmark sales order as template.
580 //
581 function sales_order_set_template($id, $status)
582 {
583         $sql = "UPDATE ".TB_PREF."sales_orders SET type = ".db_escape($status)." WHERE order_no=".db_escape($id);
584         db_query($sql, "Can't change sales order type");
585 }
586
587 /*
588         Check whether sales order is issued in prepaid mode and already opened
589 */
590
591 function is_prepaid_order_open($order_no)
592 {
593         $sql = "SELECT count(*)
594                 FROM ".TB_PREF."sales_orders o,
595                 ((SELECT trans_no_to FROM ".TB_PREF."cust_allocations
596                                 WHERE trans_type_to=".ST_SALESORDER." AND trans_no_to=".db_escape($order_no).")
597                 UNION
598                   (SELECT order_ FROM ".TB_PREF."debtor_trans 
599                         WHERE type=".ST_SALESINVOICE." AND order_=".db_escape($order_no).")) related
600         WHERE
601                 o.prep_amount>0
602                 AND o.trans_type = ".ST_SALESORDER."
603                 AND o.order_no = " . db_escape($order_no);
604
605         $result = db_fetch(db_query($sql, "cannot check prepaid order open"));
606
607         return $result[0];
608 }
609
610 function last_sales_order_detail($order, $field)
611 {
612         $sql = "SELECT $field
613             FROM ".TB_PREF."sales_order_details d
614             WHERE order_no =
615             (SELECT order_no FROM ".TB_PREF."sales_orders o
616             WHERE debtor_no=" . db_escape($order->customer_id) . "
617             ORDER BY order_no DESC LIMIT 1)
618             ORDER BY d.id DESC LIMIT 1";        
619
620         $last_query=db_query($sql, "Retreive last order detail");
621         $row = db_fetch_row($last_query);
622         return $row[0];
623 }
624
625 function get_sales_vat_category($trans_no, $type=ST_SALESINVOICE)
626 {
627         $sql = "SELECT vat_category
628                         FROM ".TB_PREF."debtor_trans_details line
629                         LEFT JOIN ".TB_PREF."stock_master stock ON line.stock_id=stock.stock_id
630                 WHERE debtor_trans_type=".db_escape($type)." AND debtor_trans_no=".db_escape($trans_no);
631         $result = db_query($sql, 'cannot check invoice category');
632   $line = db_fetch($result);
633         return $line['vat_category'];
634 }
635