X-Git-Url: https://delta.frontaccounting.com/gitweb/?a=blobdiff_plain;f=gl%2Fincludes%2Fdb%2Fgl_db_accounts.inc;h=ce11a325607e6bfb2807ec86cc991f371e714de0;hb=53d942f2a0d20cce5e9c409c6485867ce0869e4d;hp=a4004d81339ee7b47571d6f47d1d2777caeb96b0;hpb=279d7962a249da9cbc3074360e3a68a23a31145e;p=fa-stable.git

diff --git a/gl/includes/db/gl_db_accounts.inc b/gl/includes/db/gl_db_accounts.inc
index a4004d81..ce11a325 100644
--- a/gl/includes/db/gl_db_accounts.inc
+++ b/gl/includes/db/gl_db_accounts.inc
@@ -88,22 +88,23 @@ function get_gl_account_name($code)
 
 function gl_account_in_company_defaults($acc)
 {
-	$sql= "SELECT COUNT(*) FROM ".TB_PREF."company WHERE debtors_act=$acc 
-		OR pyt_discount_act=$acc
-		OR creditors_act=$acc 
-		OR bank_charge_act=$acc 
-		OR exchange_diff_act=$acc
-		OR profit_loss_year_act=$acc
-		OR retained_earnings_act=$acc
-		OR freight_act=$acc
-		OR default_sales_act=$acc 
-		OR default_sales_discount_act=$acc
-		OR default_prompt_payment_act=$acc
-		OR default_inventory_act=$acc
-		OR default_cogs_act=$acc
-		OR default_adj_act=$acc
-		OR default_inv_sales_act=$acc
-		OR default_assembly_act=$acc";
+	$sql= "SELECT COUNT(*) FROM ".TB_PREF."sys_prefs WHERE (name='debtors_act' 
+		OR name='pyt_discount_act'
+		OR name='creditors_act' 
+		OR name='bank_charge_act' 
+		OR name='exchange_diff_act'
+		OR name='profit_loss_year_act'
+		OR name='retained_earnings_act'
+		OR name='freight_act'
+		OR name='deferred_income_act'
+		OR name='default_sales_act' 
+		OR name='default_sales_discount_act'
+		OR name='default_prompt_payment_act'
+		OR name='default_inventory_act'
+		OR name='default_cogs_act'
+		OR name='default_adj_act'
+		OR name='default_inv_sales_act'
+		OR name='default_assembly_act') AND value=".db_escape($acc);
 	$result = db_query($sql,"Couldn't test for default company GL codes");
 
 	$myrow = db_fetch_row($result);
@@ -112,6 +113,8 @@ function gl_account_in_company_defaults($acc)
 
 function gl_account_in_stock_category($acc)
 {
+	$acc = db_escape($acc);
+
 	$sql= "SELECT COUNT(*) FROM ".TB_PREF."stock_category WHERE 
 		dflt_inventory_act=$acc 
 		OR dflt_cogs_act=$acc
@@ -125,6 +128,8 @@ function gl_account_in_stock_category($acc)
 
 function gl_account_in_stock_master($acc)
 {
+	$acc = db_escape($acc);
+
 	$sql= "SELECT COUNT(*) FROM ".TB_PREF."stock_master WHERE 
 		inventory_account=$acc 
 		OR cogs_account=$acc
@@ -138,6 +143,8 @@ function gl_account_in_stock_master($acc)
 
 function gl_account_in_tax_types($acc)
 {
+	$acc = db_escape($acc);
+
 	$sql= "SELECT COUNT(*) FROM ".TB_PREF."tax_types WHERE sales_gl_code=$acc OR purchasing_gl_code=$acc";
 	$result = db_query($sql,"Couldn't test for existing tax GL codes");
 
@@ -147,6 +154,8 @@ function gl_account_in_tax_types($acc)
 
 function gl_account_in_cust_branch($acc)
 {
+	$acc = db_escape($acc);
+
 	$sql= "SELECT COUNT(*) FROM ".TB_PREF."cust_branch WHERE 
 		sales_account=$acc 
 		OR sales_discount_account=$acc
@@ -160,6 +169,8 @@ function gl_account_in_cust_branch($acc)
 
 function gl_account_in_suppliers($acc)
 {
+	$acc = db_escape($acc);
+
 	$sql= "SELECT COUNT(*) FROM ".TB_PREF."suppliers WHERE 
 		purchase_account=$acc
 		OR payment_discount_account=$acc
@@ -172,6 +183,8 @@ function gl_account_in_suppliers($acc)
 
 function gl_account_in_quick_entry_lines($acc)
 {
+	$acc = db_escape($acc);
+
 	$sql= "SELECT COUNT(*) FROM ".TB_PREF."quick_entry_lines WHERE 
 		dest_id=$acc AND UPPER(LEFT(action, 1)) <> 'T'";
 	$result = db_query($sql,"Couldn't test for existing Quick Entry Line GL codes");
@@ -179,4 +192,39 @@ function gl_account_in_quick_entry_lines($acc)
 	$myrow = db_fetch_row($result);
 	return ($myrow[0] > 0); 
 }
+//
+//	Returns n>0 when account is AR, n<0 when account is AP
+//  (priority for AR accounts)
+//
+function is_subledger_account($account)
+{
+	$sql = "SELECT 1 FROM ".TB_PREF."cust_branch WHERE receivables_account=".db_escape($account)
+	." UNION SELECT -1 FROM ".TB_PREF."suppliers WHERE payable_account=".db_escape($account);
+
+	$result = db_query($sql,"Couldn't test AR/AP account");
+	$myrow = db_fetch_row($result);
+	return $myrow[0];
+}
+
+function get_subaccount_name($code_id, $person_id)
+{
+	$sql = "SELECT debtor_ref as ref FROM ".TB_PREF."cust_branch branch LEFT JOIN ".TB_PREF."debtors_master d ON branch.debtor_no = d.debtor_no
+		WHERE branch.receivables_account=".db_escape($code_id)." AND d.debtor_no=".db_escape($person_id)
+		." UNION SELECT supp_ref as ref FROM ".TB_PREF."suppliers supp
+		WHERE payable_account=".db_escape($code_id)." AND supplier_id=".db_escape($person_id);
+	$result = db_query($sql, 'cannot retrieve counterparty name');
+	$row = db_fetch($result);
+
+	return  $row ? $row['ref'] : '';
+}
+
+function gl_account_in_bank_accounts($acc)
+{
+	$sql= "SELECT COUNT(*) FROM ".TB_PREF."bank_accounts WHERE 
+		account_code=".db_escape($acc);
+	$result = db_query($sql,"Couldn't test bank account GL codes");
+
+	$myrow = db_fetch_row($result);
+	return ($myrow[0] > 0); 
+}
 ?>
\ No newline at end of file