2 /**********************************************************************
3 Copyright (C) FrontAccounting, LLC.
4 Released under the terms of the GNU General Public License, GPL,
5 as published by the Free Software Foundation, either version 3
6 of the License, or (at your option) any later version.
7 This program is distributed in the hope that it will be useful,
8 but WITHOUT ANY WARRANTY; without even the implied warranty of
9 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
10 See the License here <http://www.gnu.org/licenses/gpl-3.0.html>.
11 ***********************************************************************/
12 function add_gl_account($account_code, $account_name, $account_type, $account_code2)
14 begin_transaction(__FUNCTION__, func_get_args());
16 $sql = "INSERT INTO ".TB_PREF."chart_master (account_code, account_code2, account_name, account_type)
17 VALUES (".db_escape($account_code).", ".db_escape($account_code2).", "
18 .db_escape($account_name).", ".db_escape($account_type).")";
20 $result = db_query($sql);
25 function update_gl_account($account_code, $account_name, $account_type, $account_code2)
27 begin_transaction(__FUNCTION__, func_get_args());
29 $sql = "UPDATE ".TB_PREF."chart_master SET account_name=".db_escape($account_name)
30 .",account_type=".db_escape($account_type).", account_code2=".db_escape($account_code2)
31 ." WHERE account_code = ".db_escape($account_code);
33 $result = db_query($sql);
39 function delete_gl_account($code)
41 begin_transaction(__FUNCTION__, func_get_args());
43 $sql = "DELETE FROM ".TB_PREF."chart_master WHERE account_code=".db_escape($code);
44 db_query($sql, "could not delete gl account");
49 function get_gl_accounts($from=null, $to=null, $type=null)
51 $sql = "SELECT coa.*, act_type.name AS AccountTypeName
53 .TB_PREF."chart_master coa,"
54 .TB_PREF."chart_types act_type
55 WHERE coa.account_type=act_type.id";
57 $sql .= " AND coa.account_code >= ".db_escape($from);
59 $sql .= " AND coa.account_code <= ".db_escape($to);
61 $sql .= " AND account_type=".db_escape($type);
62 $sql .= " ORDER BY account_code";
64 return db_query($sql, "could not get gl accounts");
67 function get_gl_account($code)
69 $sql = "SELECT * FROM ".TB_PREF."chart_master WHERE account_code=".db_escape($code);
71 $result = db_query($sql, "could not get gl account");
72 return db_fetch($result);
75 function is_account_balancesheet($code)
77 $sql = "SELECT act_class.ctype
79 .TB_PREF."chart_class act_class, "
80 .TB_PREF."chart_types act_type, "
81 .TB_PREF."chart_master coa
82 WHERE coa.account_type=act_type.id
83 AND act_type.class_id=act_class.cid
84 AND coa.account_code=".db_escape($code);
86 $result = db_query($sql,"could not retreive the account class for $code");
87 $row = db_fetch_row($result);
88 return $row[0] > 0 && $row[0] < CL_INCOME;
91 function get_gl_account_name($code)
93 $sql = "SELECT account_name from ".TB_PREF."chart_master WHERE account_code=".db_escape($code);
95 $result = db_query($sql,"could not retreive the account name for $code");
97 if (db_num_rows($result) == 1)
99 $row = db_fetch_row($result);
103 display_db_error("could not retreive the account name for $code", $sql, true);
106 function gl_account_in_company_defaults($acc)
108 $sql= "SELECT COUNT(*)
109 FROM ".TB_PREF."sys_prefs
110 WHERE (name='debtors_act'
111 OR name='pyt_discount_act'
112 OR name='creditors_act'
113 OR name='bank_charge_act'
114 OR name='exchange_diff_act'
115 OR name='profit_loss_year_act'
116 OR name='retained_earnings_act'
117 OR name='freight_act'
118 OR name='deferred_income_act'
119 OR name='default_sales_act'
120 OR name='default_sales_discount_act'
121 OR name='default_prompt_payment_act'
122 OR name='default_inventory_act'
123 OR name='default_cogs_act'
124 OR name='default_adj_act'
125 OR name='default_inv_sales_act'
126 OR name='default_wip_act') AND value=".db_escape($acc);
127 $result = db_query($sql,"Couldn't test for default company GL codes");
129 $myrow = db_fetch_row($result);
130 return ($myrow[0] > 0);
133 function gl_account_in_stock_category($acc)
135 $acc = db_escape($acc);
137 $sql= "SELECT COUNT(*)
138 FROM ".TB_PREF."stock_category
139 WHERE dflt_inventory_act=$acc
140 OR dflt_cogs_act=$acc
141 OR dflt_adjustment_act=$acc
142 OR dflt_sales_act=$acc";
143 $result = db_query($sql,"Couldn't test for existing stock category GL codes");
145 $myrow = db_fetch_row($result);
146 return ($myrow[0] > 0);
149 function gl_account_in_stock_master($acc)
151 $acc = db_escape($acc);
153 $sql= "SELECT COUNT(*)
154 FROM ".TB_PREF."stock_master
155 WHERE inventory_account=$acc
157 OR adjustment_account=$acc
158 OR sales_account=$acc";
159 $result = db_query($sql,"Couldn't test for existing stock GL codes");
161 $myrow = db_fetch_row($result);
162 return ($myrow[0] > 0);
165 function gl_account_in_tax_types($acc)
167 $acc = db_escape($acc);
169 $sql= "SELECT COUNT(*)
170 FROM ".TB_PREF."tax_types
171 WHERE sales_gl_code=$acc
172 OR purchasing_gl_code=$acc";
173 $result = db_query($sql,"Couldn't test for existing tax GL codes");
175 $myrow = db_fetch_row($result);
176 return ($myrow[0] > 0);
179 function gl_account_in_cust_branch($acc)
181 $acc = db_escape($acc);
183 $sql= "SELECT COUNT(*)
184 FROM ".TB_PREF."cust_branch
185 WHERE sales_account=$acc
186 OR sales_discount_account=$acc
187 OR receivables_account=$acc
188 OR payment_discount_account=$acc";
189 $result = db_query($sql,"Couldn't test for existing cust branch GL codes");
191 $myrow = db_fetch_row($result);
192 return ($myrow[0] > 0);
195 function gl_account_in_suppliers($acc)
197 $acc = db_escape($acc);
199 $sql= "SELECT COUNT(*)
200 FROM ".TB_PREF."suppliers
201 WHERE purchase_account=$acc
202 OR payment_discount_account=$acc
203 OR payable_account=$acc";
204 $result = db_query($sql,"Couldn't test for existing suppliers GL codes");
206 $myrow = db_fetch_row($result);
207 return ($myrow[0] > 0);
210 function gl_account_in_quick_entry_lines($acc)
212 $acc = db_escape($acc);
216 FROM ".TB_PREF."quick_entry_lines
217 WHERE dest_id=$acc AND UPPER(LEFT(action, 1)) <> 'T'";
218 $result = db_query($sql,"Couldn't test for existing Quick Entry Line GL codes");
220 $myrow = db_fetch_row($result);
221 return ($myrow[0] > 0);
224 // Returns n>0 when account is AR, n<0 when account is AP
225 // (priority for AR accounts)
227 function is_subledger_account($account)
230 FROM ".TB_PREF."cust_branch
231 WHERE receivables_account=".db_escape($account)
234 FROM ".TB_PREF."suppliers
235 WHERE payable_account=".db_escape($account);
237 $result = db_query($sql,"Couldn't test AR/AP account");
238 $myrow = db_fetch_row($result);
242 function get_subaccount_data($code_id, $person_id)
244 $sql = "SELECT debtor_ref as name, branch_code as id
245 FROM ".TB_PREF."cust_branch branch
246 LEFT JOIN ".TB_PREF."debtors_master d ON branch.debtor_no = d.debtor_no
247 WHERE branch.receivables_account=".db_escape($code_id)
248 ." AND d.debtor_no=".db_escape($person_id)
249 ." UNION SELECT supp_ref as name, '' as id
250 FROM ".TB_PREF."suppliers supp
251 WHERE supplier_id=".db_escape($person_id)."
252 AND payable_account=".db_escape($code_id);
253 $result = db_query($sql, 'cannot retrieve counterparty name');
255 return db_fetch($result);
258 function get_subaccount_name($code_id, $person_id)
260 $sql = "SELECT debtor_ref as ref
261 FROM ".TB_PREF."cust_branch branch
262 LEFT JOIN ".TB_PREF."debtors_master d ON branch.debtor_no = d.debtor_no
263 WHERE branch.receivables_account=".db_escape($code_id)
264 ." AND d.debtor_no=".db_escape($person_id)
265 ." UNION SELECT supp_ref as ref
266 FROM ".TB_PREF."suppliers supp
267 WHERE payable_account=".db_escape($code_id)."
268 AND supplier_id=".db_escape($person_id);
269 $result = db_query($sql, 'cannot retrieve counterparty name');
270 $row = db_fetch($result);
272 return $row ? $row['ref'] : '';
275 function gl_account_in_bank_accounts($acc)
277 $sql= "SELECT COUNT(*) FROM ".TB_PREF."bank_accounts WHERE
278 account_code=".db_escape($acc);
279 $result = db_query($sql,"Couldn't test bank account GL codes");
281 $myrow = db_fetch_row($result);
282 return ($myrow[0] > 0);
285 //----------------------------------------------------------------------------------
286 // Check if given account is used by any bank_account.
287 // Returns id of first bank_account using account_code, null otherwise.
289 // Keep in mind that direct posting to bank account is depreciated
290 // because we have no way to select right bank account if
291 // there is more than one using given gl account.
293 function is_bank_account($account_code)
295 $sql= "SELECT id FROM ".TB_PREF."bank_accounts WHERE account_code=".db_escape($account_code);
296 $result = db_query($sql, "checking account is bank account");
297 if (db_num_rows($result) > 0) {
298 $acct = db_fetch($result);
304 function get_chart_accounts_search($like, $skip=false)
308 if (isset($SysPrefs->max_rows_in_search))
309 $limit = $SysPrefs->max_rows_in_search;
314 $sql = "SELECT chart.account_code, chart.account_name, type.name, chart.inactive, type.id
315 FROM (".TB_PREF."chart_master chart,".TB_PREF."chart_types type) "
316 ."LEFT JOIN ".TB_PREF."bank_accounts acc "
317 ."ON chart.account_code=acc.account_code
318 WHERE acc.account_code IS NULL
319 AND chart.account_type=type.id ";
321 $sql = "SELECT chart.account_code, chart.account_name, type.name, chart.inactive, type.id
322 FROM ".TB_PREF."chart_master chart,".TB_PREF."chart_types type WHERE chart.account_type=type.id ";
324 chart.account_name LIKE " . db_escape("%" . $like. "%") . " OR
325 chart.account_code LIKE " . db_escape("%" . $like. "%") . "
327 ORDER BY chart.account_code LIMIT 0,".(int)($limit); // We only display 10 items.
328 return db_query($sql, "Failed in retreiving GL account list.");