Cleanup: various random sql queries found in UI files moved to database interface...

[fa-stable.git] / sales / includes / db / customers_db.inc

diff --git a/sales/includes/db/customers_db.inc b/sales/includes/db/customers_db.inc
index 3b936a33e9388125b2b8033e79c4958a9566d529..61425b212937aff357fb3b99b274457784f2248b 100644 (file)
--- a/sales/includes/db/customers_db.inc
+++ b/sales/includes/db/customers_db.inc
@@ -186,4 +186,15 @@ function get_customer_by_ref($reference)
        return db_fetch($result);
 }
 
-?>
\ No newline at end of file
+//----------------------------------------------------------------------------------
+
+function get_customer_currency($customer_id)
+{
+    $sql = "SELECT curr_code FROM ".TB_PREF."debtors_master WHERE debtor_no = ".db_escape($customer_id);
+
+       $result = db_query($sql, "Retreive currency of customer $customer_id");
+
+       $myrow=db_fetch_row($result);
+       return $myrow[0];
+}
+