+function get_supplier_contacts($supplier_id, $action=null)
+{
+ $results = array();
+ $res = get_crm_persons('supplier', $action, $supplier_id);
+ while($contact = db_fetch($res))
+ $results[] = $contact;
+
+ return $results;
+}
+
+function get_current_supp_credit($supplier_id)
+{
+ $suppdet = get_supplier_details($supplier_id);
+ return $suppdet['cur_credit'];
+
+}
+
+function is_new_supplier($id)
+{
+ $tables = array('supp_trans', 'grn_batch', 'purch_orders', 'purch_data');
+
+ return !key_in_foreign_table($id, $tables, 'supplier_id');
+}
+
+function get_supplier_currency($supplier_id)
+{
+ $sql = "SELECT curr_code FROM ".TB_PREF."suppliers WHERE supplier_id = ".db_escape($supplier_id);
+
+ $result = db_query($sql, "Retreive currency of supplier $supplier_id");
+
+ $myrow=db_fetch_row($result);
+ return $myrow[0];
+}
+
+function get_suppliers_search($supplier)
+{
+ global $SysPrefs;
+
+ if (isset($SysPrefs->max_rows_in_search))
+ $limit = $SysPrefs->max_rows_in_search;
+ else
+ $limit = 10;
+
+ $sql = "SELECT supplier_id, supp_name, supp_ref, address, gst_no
+ FROM ".TB_PREF."suppliers
+ WHERE (supp_name LIKE " . db_escape("%" . $supplier. "%") . " OR
+ supp_ref LIKE " . db_escape("%" . $supplier. "%") . " OR
+ address LIKE " . db_escape("%" . $supplier. "%") . " OR
+ gst_no LIKE " . db_escape("%" . $supplier. "%") . ")
+ ORDER BY supp_name LIMIT 0,".(int)($limit);
+
+ return db_query($sql, "Failed in retreiving supplier list.");
+}