+ $myrow = db_fetch_row($result);
+ return ($myrow[0] > 0);
+}
+
+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");
+
+ $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_data($code_id, $person_id)
+{
+ $sql = "SELECT debtor_ref as name, branch_code as id
+ 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 name, '' as id
+ FROM ".TB_PREF."suppliers supp
+ WHERE supplier_id=".db_escape($person_id)."
+ AND payable_account=".db_escape($code_id);
+ $result = db_query($sql, 'cannot retrieve counterparty name');
+
+ return db_fetch($result);
+}
+
+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);
+}
+
+//----------------------------------------------------------------------------------
+// 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;
+}
+
+function get_chart_accounts_search($like, $skip=false)
+{
+ global $SysPrefs;
+
+ if (isset($SysPrefs->max_rows_in_search))
+ $limit = $SysPrefs->max_rows_in_search;
+ else
+ $limit = 10;
+
+ if ($skip)
+ $sql = "SELECT chart.account_code, chart.account_name, type.name, chart.inactive, type.id
+ FROM (".TB_PREF."chart_master chart,".TB_PREF."chart_types type) "
+ ."LEFT JOIN ".TB_PREF."bank_accounts acc "
+ ."ON chart.account_code=acc.account_code
+ WHERE acc.account_code IS NULL
+ AND chart.account_type=type.id ";
+ else
+ $sql = "SELECT chart.account_code, chart.account_name, type.name, chart.inactive, type.id
+ FROM ".TB_PREF."chart_master chart,".TB_PREF."chart_types type WHERE chart.account_type=type.id ";
+ $sql .= "AND (
+ chart.account_name LIKE " . db_escape("%" . $like. "%") . " OR
+ chart.account_code LIKE " . db_escape("%" . $like. "%") . "
+ )
+ ORDER BY chart.account_code LIMIT 0,".(int)($limit); // We only display 10 items.
+ return db_query($sql, "Failed in retreiving GL account list.");
+}