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_supplier($supp_name, $supp_ref, $address, $supp_address, $gst_no,
14 $website, $supp_account_no, $bank_account, $credit_limit, $dimension_id, $dimension2_id,
15 $curr_code, $payment_terms, $payable_account, $purchase_account, $payment_discount_account,
16 $notes, $tax_group_id, $tax_included)
18 $sql = "INSERT INTO ".TB_PREF."suppliers (supp_name, supp_ref, address, supp_address, gst_no, website,
19 supp_account_no, bank_account, credit_limit, dimension_id, dimension2_id, curr_code,
20 payment_terms, payable_account, purchase_account, payment_discount_account, notes,
21 tax_group_id, tax_included)
22 VALUES (".db_escape($supp_name). ", "
23 .db_escape($supp_ref). ", "
24 .db_escape($address) . ", "
25 .db_escape($supp_address) . ", "
26 .db_escape($gst_no). ", "
27 .db_escape($website). ", "
28 .db_escape($supp_account_no). ", "
29 .db_escape($bank_account). ", "
31 .db_escape($dimension_id). ", "
32 .db_escape($dimension2_id). ", "
33 .db_escape($curr_code). ", "
34 .db_escape($payment_terms). ", "
35 .db_escape($payable_account). ", "
36 .db_escape($purchase_account). ", "
37 .db_escape($payment_discount_account). ", "
38 .db_escape($notes). ", "
39 .db_escape($tax_group_id). ", "
40 .db_escape($tax_included). ")";
42 db_query($sql,"The supplier could not be added");
45 function update_supplier($supplier_id, $supp_name, $supp_ref, $address, $supp_address, $gst_no,
46 $website, $supp_account_no, $bank_account, $credit_limit, $dimension_id, $dimension2_id,
47 $curr_code, $payment_terms, $payable_account, $purchase_account, $payment_discount_account,
48 $notes, $tax_group_id, $tax_included)
50 $sql = "UPDATE ".TB_PREF."suppliers SET supp_name=".db_escape($supp_name) . ",
51 supp_ref=".db_escape($supp_ref) . ",
52 address=".db_escape($address) . ",
53 supp_address=".db_escape($supp_address) . ",
54 gst_no=".db_escape($gst_no) . ",
55 website=".db_escape($website) . ",
56 supp_account_no=".db_escape($supp_account_no) . ",
57 bank_account=".db_escape($bank_account) . ",
58 credit_limit=".$credit_limit . ",
59 dimension_id=".db_escape($dimension_id) . ",
60 dimension2_id=".db_escape($dimension2_id) . ",
61 curr_code=".db_escape($curr_code).",
62 payment_terms=".db_escape($payment_terms) . ",
63 payable_account=".db_escape($payable_account) . ",
64 purchase_account=".db_escape($purchase_account) . ",
65 payment_discount_account=".db_escape($payment_discount_account) . ",
66 notes=".db_escape($notes) . ",
67 tax_group_id=".db_escape($tax_group_id). ",
68 tax_included=".db_escape($tax_included)
69 ." WHERE supplier_id = ".db_escape($supplier_id);
71 db_query($sql,"The supplier could not be updated");
74 function delete_supplier($supplier_id)
77 delete_entity_contacts('supplier', $supplier_id);
78 $sql="DELETE FROM ".TB_PREF."suppliers WHERE supplier_id=".db_escape($supplier_id);
80 db_query($sql,"check failed");
84 function get_supplier_details($supplier_id, $to=null, $all=true)
88 $todate = date("Y-m-d");
90 $todate = date2sql($to);
91 $past1 = get_company_pref('past_due_days');
93 // removed - supp_trans.alloc from all summations
96 $value = "(trans.ov_amount + trans.ov_gst + trans.ov_discount)";
98 $value = "IF (trans.type=".ST_SUPPINVOICE." OR trans.type=".ST_BANKDEPOSIT."
99 OR (trans.type=".ST_JOURNAL." AND (trans.ov_amount + trans.ov_gst + trans.ov_discount)>0), 1, -1)*
100 ABS(trans.ov_amount + trans.ov_gst + trans.ov_discount) - trans.alloc";
102 $due = "IF (trans.type=".ST_SUPPINVOICE." OR trans.type=".ST_SUPPCREDIT.",trans.due_date,trans.tran_date)";
103 $sql = "SELECT supp.supp_name, supp.curr_code, ".TB_PREF."payment_terms.terms,
105 Sum(IFNULL($value,0)) AS Balance,
107 Sum(IF ((TO_DAYS('$todate') - TO_DAYS($due)) > 0,$value,0)) AS Due,
108 Sum(IF ((TO_DAYS('$todate') - TO_DAYS($due)) > $past1,$value,0)) AS Overdue1,
109 Sum(IF ((TO_DAYS('$todate') - TO_DAYS($due)) > $past2,$value,0)) AS Overdue2,
110 supp.credit_limit - Sum(IFNULL(IF(trans.type=".ST_SUPPCREDIT.", -1, 1)
111 * (ov_amount + ov_gst + ov_discount),0)) as cur_credit,
114 FROM ".TB_PREF."suppliers supp
115 LEFT JOIN ".TB_PREF."supp_trans trans ON supp.supplier_id = trans.supplier_id AND trans.tran_date <= '$todate',
116 ".TB_PREF."payment_terms
119 supp.payment_terms = ".TB_PREF."payment_terms.terms_indicator
120 AND supp.supplier_id = $supplier_id ";
122 $sql .= "AND ABS(trans.ov_amount + trans.ov_gst + trans.ov_discount) - trans.alloc > ".FLOAT_COMP_DELTA." ";
125 ".TB_PREF."payment_terms.terms,
126 ".TB_PREF."payment_terms.days_before_due,
127 ".TB_PREF."payment_terms.day_in_following_month";
128 $result = db_query($sql,"The customer details could not be retrieved");
129 $supp = db_fetch($result);
134 function get_supplier($supplier_id)
136 $sql = "SELECT * FROM ".TB_PREF."suppliers WHERE supplier_id=".db_escape($supplier_id);
138 $result = db_query($sql, "could not get supplier");
140 return db_fetch($result);
143 function get_supplier_name($supplier_id)
145 $sql = "SELECT supp_name AS name FROM ".TB_PREF."suppliers WHERE supplier_id=".db_escape($supplier_id);
147 $result = db_query($sql, "could not get supplier");
149 $row = db_fetch_row($result);
151 return is_array($row) ? $row[0] : false;
154 function get_supplier_accounts($supplier_id)
156 $sql = "SELECT payable_account,purchase_account,payment_discount_account, dimension_id, dimension2_id FROM ".TB_PREF."suppliers WHERE supplier_id=".db_escape($supplier_id);
158 $result = db_query($sql, "could not get supplier");
160 return db_fetch($result);
163 function get_supplier_contacts($supplier_id, $action=null)
166 $res = get_crm_persons('supplier', $action, $supplier_id);
167 while($contact = db_fetch($res))
168 $results[] = $contact;
173 function get_current_supp_credit($supplier_id)
175 $suppdet = get_supplier_details($supplier_id);
176 return $suppdet['cur_credit'];
180 function is_new_supplier($id)
182 $tables = array('supp_trans', 'grn_batch', 'purch_orders', 'purch_data');
184 return !key_in_foreign_table($id, $tables, 'supplier_id');
187 function get_supplier_currency($supplier_id)
189 $sql = "SELECT curr_code FROM ".TB_PREF."suppliers WHERE supplier_id = ".db_escape($supplier_id);
191 $result = db_query($sql, "Retreive currency of supplier $supplier_id");
193 $myrow=db_fetch_row($result);
194 return $myrow ? $myrow[0] : get_company_currency();
197 function get_suppliers_search($supplier)
201 if (isset($SysPrefs->max_rows_in_search))
202 $limit = $SysPrefs->max_rows_in_search;
206 $sql = "SELECT supplier_id, supp_name, supp_ref, address, gst_no
207 FROM ".TB_PREF."suppliers
208 WHERE (supp_name LIKE " . db_escape("%" . $supplier. "%") . " OR
209 supp_ref LIKE " . db_escape("%" . $supplier. "%") . " OR
210 address LIKE " . db_escape("%" . $supplier. "%") . " OR
211 gst_no LIKE " . db_escape("%" . $supplier. "%") . ")
212 ORDER BY supp_name LIMIT 0,".(int)($limit);
214 return db_query($sql, "Failed in retreiving supplier list.");