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 ***********************************************************************/
13 function add_customer($CustName, $cust_ref, $address, $tax_id, $curr_code,
14 $dimension_id, $dimension2_id, $credit_status, $payment_terms, $discount, $pymt_discount,
15 $credit_limit, $sales_type, $notes)
17 $sql = "INSERT INTO ".TB_PREF."debtors_master (name, debtor_ref, address, tax_id,
18 dimension_id, dimension2_id, curr_code, credit_status, payment_terms, discount,
19 pymt_discount,credit_limit, sales_type, notes) VALUES ("
20 .db_escape($CustName) .", " .db_escape($cust_ref) .", "
21 .db_escape($address) . ", " . db_escape($tax_id) . ","
22 .db_escape($dimension_id) . ", "
23 .db_escape($dimension2_id) . ", ".db_escape($curr_code) . ",
24 " . db_escape($credit_status) . ", ".db_escape($payment_terms) . ", " . $discount . ",
25 " . $pymt_discount . ", " . $credit_limit
26 .", ".db_escape($sales_type).", ".db_escape($notes) . ")";
27 db_query($sql,"The customer could not be added");
30 function update_customer($customer_id, $CustName, $cust_ref, $address, $tax_id, $curr_code,
31 $dimension_id, $dimension2_id, $credit_status, $payment_terms, $discount, $pymt_discount,
32 $credit_limit, $sales_type, $notes)
34 $sql = "UPDATE ".TB_PREF."debtors_master SET name=" . db_escape($CustName) . ",
35 debtor_ref=" . db_escape($cust_ref) . ",
36 address=".db_escape($address) . ",
37 tax_id=".db_escape($tax_id) . ",
38 curr_code=".db_escape($curr_code) . ",
39 dimension_id=".db_escape($dimension_id) . ",
40 dimension2_id=".db_escape($dimension2_id) . ",
41 credit_status=".db_escape($credit_status) . ",
42 payment_terms=".db_escape($payment_terms) . ",
43 discount=" . $discount . ",
44 pymt_discount=" . $pymt_discount . ",
45 credit_limit=" . $credit_limit . ",
46 sales_type = ".db_escape($sales_type) . ",
47 notes=".db_escape($notes) ."
48 WHERE debtor_no = ".db_escape($customer_id);
50 db_query($sql,"The customer could not be updated");
53 function delete_customer($customer_id)
56 delete_entity_contacts('customer', $customer_id);
58 $sql = "DELETE FROM ".TB_PREF."debtors_master WHERE debtor_no=".db_escape($customer_id);
59 db_query($sql,"cannot delete customer");
64 This function probably should be renamed to get_customer_summary
66 function get_customer_details($customer_id, $to=null, $all=true)
70 $todate = date("Y-m-d");
72 $todate = date2sql($to);
73 $past1 = get_company_pref('past_due_days');
76 $sign = "IF(trans.type IN(".implode(',', array(ST_CUSTCREDIT,ST_CUSTPAYMENT,ST_BANKDEPOSIT))."), -1, 1)";
77 $value = "$sign*(IF(trans.prep_amount, trans.prep_amount,
78 ABS(trans.ov_amount + trans.ov_gst + trans.ov_freight + trans.ov_freight_tax + trans.ov_discount)) ".($all ? '' : "- trans.alloc").")";
80 $due = "IF (trans.type=".ST_SALESINVOICE.", trans.due_date, trans.tran_date)";
82 $sql = "SELECT debtor.name, debtor.curr_code, terms.terms,
83 debtor.credit_limit, credit_status.dissallow_invoices, credit_status.reason_description,
85 Sum($sign*IFNULL($value,0)) AS Balance,
86 Sum(IF ((TO_DAYS('$todate') - TO_DAYS($due)) > 0,$sign*$value,0)) AS Due,
87 Sum(IF ((TO_DAYS('$todate') - TO_DAYS($due)) > $past1,$sign*$value,0)) AS Overdue1,
88 Sum(IF ((TO_DAYS('$todate') - TO_DAYS($due)) > $past2,$sign*$value,0)) AS Overdue2
90 FROM ".TB_PREF."debtors_master debtor
91 LEFT JOIN ".TB_PREF."debtor_trans trans ON trans.tran_date <= '$todate' AND debtor.debtor_no = trans.debtor_no AND trans.type <> ". ST_CUSTDELIVERY.",
92 ".TB_PREF."payment_terms terms,
93 ".TB_PREF."credit_status credit_status
96 debtor.payment_terms = terms.terms_indicator
97 AND debtor.credit_status = credit_status.id";
100 $sql .= " AND debtor.debtor_no = ".db_escape($customer_id);
103 $sql .= " AND ABS(IF(trans.prep_amount, trans.prep_amount, ABS(trans.ov_amount) + trans.ov_gst + trans.ov_freight + trans.ov_freight_tax + trans.ov_discount) - trans.alloc) > ".FLOAT_COMP_DELTA;
108 terms.days_before_due,
109 terms.day_in_following_month,
111 credit_status.dissallow_invoices,
112 credit_status.reason_description";
114 $result = db_query($sql,"The customer details could not be retrieved");
116 $customer_record = db_fetch($result);
118 return $customer_record;
123 function get_customer($customer_id)
125 $sql = "SELECT * FROM ".TB_PREF."debtors_master WHERE debtor_no=".db_escape($customer_id);
127 $result = db_query($sql, "could not get customer");
129 return db_fetch($result);
132 function get_customer_name($customer_id)
134 $sql = "SELECT name FROM ".TB_PREF."debtors_master WHERE debtor_no=".db_escape($customer_id);
136 $result = db_query($sql, "could not get customer");
138 $row = db_fetch_row($result);
140 return is_array($row) ? $row[0] : false;
143 function get_customer_habit($customer_id)
145 $sql = "SELECT debtor.pymt_discount, credit_status.dissallow_invoices
146 FROM ".TB_PREF."debtors_master debtor,"
147 .TB_PREF."credit_status credit_status
148 WHERE debtor.credit_status = credit_status.id
149 AND debtor.debtor_no = ".db_escape($customer_id);
151 $result = db_query($sql, "could not query customers");
153 return db_fetch($result);
156 function get_customer_contacts($customer_id, $action=null)
159 $res = get_crm_persons('customer', $action, $customer_id);
160 while($contact = db_fetch($res))
162 if ($contact['lang'] == 'C') // Fix for improper lang in demo sql files.
163 $contact['lang'] = '';
164 $results[] = $contact;
169 function get_current_cust_credit($customer_id)
171 $custdet = get_customer_details($customer_id);
173 if (!is_array($custdet))
175 return $custdet['credit_limit']-$custdet['Balance'];
179 function is_new_customer($id)
181 $tables = array('cust_branch', 'debtor_trans', 'recurrent_invoices', 'sales_orders');
183 return !key_in_foreign_table($id, $tables, 'debtor_no');
186 function get_customer_by_ref($reference)
188 $sql = "SELECT * FROM ".TB_PREF."debtors_master WHERE debtor_ref=".db_escape($reference);
190 $result = db_query($sql, "could not get customer");
192 return db_fetch($result);
195 //----------------------------------------------------------------------------------
197 function get_customer_currency($customer_id=null, $branch_id=null)
199 $sql = "SELECT curr_code
200 FROM ".TB_PREF."debtors_master cust
201 LEFT JOIN ".TB_PREF."cust_branch branch ON branch.debtor_no=cust.debtor_no
202 WHERE " .(isset($branch_id) ? "branch_code = ".db_escape($branch_id) : "cust.debtor_no = ".db_escape($customer_id));
204 $result = db_query($sql, "Retreive currency of customer $customer_id");
206 $myrow=db_fetch_row($result);
207 return $myrow ? $myrow[0] : get_company_currency();
210 function get_customers_search($customer)
214 if (isset($SysPrefs->max_rows_in_search))
215 $limit = $SysPrefs->max_rows_in_search;
219 $sql = "SELECT debtor_no, name, debtor_ref, address, tax_id FROM ".TB_PREF."debtors_master
220 WHERE ( name LIKE " . db_escape("%" . $customer. "%") . " OR
221 debtor_ref LIKE " . db_escape("%" . $customer. "%") . " OR
222 address LIKE " . db_escape("%" . $customer. "%") . " OR
223 tax_id LIKE " . db_escape("%" . $customer. "%").")
224 ORDER BY name LIMIT 0,".(int)($limit);
226 return db_query($sql, "Failed in retreiving customer list.");