X-Git-Url: https://delta.frontaccounting.com/gitweb/?a=blobdiff_plain;f=gl%2Fincludes%2Fdb%2Fgl_db_accounts.inc;h=00b8fbe34698076501bd17479bf01c3a7ddda7ea;hb=c164d1f25c5258939976042fa8796b71ac54c188;hp=a788604ac814541506f3af3fb2fc9c3c3385f518;hpb=f158d84399d97f9d5556dbab48f46ed79d221182;p=fa-stable.git

diff --git a/gl/includes/db/gl_db_accounts.inc b/gl/includes/db/gl_db_accounts.inc
index a788604a..00b8fbe3 100644
--- a/gl/includes/db/gl_db_accounts.inc
+++ b/gl/includes/db/gl_db_accounts.inc
@@ -96,6 +96,7 @@ function gl_account_in_company_defaults($acc)
 		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'
@@ -191,6 +192,31 @@ 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)
 {
@@ -201,4 +227,22 @@ function gl_account_in_bank_accounts($acc)
 	$myrow = db_fetch_row($result);
 	return ($myrow[0] > 0); 
 }
-?>
\ No newline at end of file
+
+//----------------------------------------------------------------------------------
+//	Check if given account is used by any bank_account. 
+//	Returns id of first bank_account using account_code, null otherwise.
+//
+//	Keep in mind that direct posting to bank account is depreciated
+//	because we have no way to select right bank account if 
+//	there is more than one using given gl account.
+//
+function is_bank_account($account_code)
+{
+	$sql= "SELECT id FROM ".TB_PREF."bank_accounts WHERE account_code=".db_escape($account_code);
+	$result = db_query($sql, "checking account is bank account");
+	if (db_num_rows($result) > 0) {
+		$acct = db_fetch($result);
+		return $acct['id'];
+	} else
+		return false;
+}