+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";
+ $result = db_query($sql,"Couldn't test for default company GL codes");
+
+ $myrow = db_fetch_row($result);
+ return ($myrow[0] > 0);
+}
+
+function gl_account_in_stock_category($acc)
+{
+ $sql= "SELECT COUNT(*) FROM ".TB_PREF."stock_category WHERE
+ dflt_inventory_act=$acc
+ OR dflt_cogs_act=$acc
+ OR dflt_adjustment_act=$acc
+ OR dflt_sales_act=$acc";
+ $result = db_query($sql,"Couldn't test for existing stock category GL codes");
+
+ $myrow = db_fetch_row($result);
+ return ($myrow[0] > 0);
+}
+
+function gl_account_in_stock_master($acc)
+{
+ $sql= "SELECT COUNT(*) FROM ".TB_PREF."stock_master WHERE
+ inventory_account=$acc
+ OR cogs_account=$acc
+ OR adjustment_account=$acc
+ OR sales_account=$acc";
+ $result = db_query($sql,"Couldn't test for existing stock GL codes");
+
+ $myrow = db_fetch_row($result);
+ return ($myrow[0] > 0);
+}
+
+function gl_account_in_tax_types($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");
+
+ $myrow = db_fetch_row($result);
+ return ($myrow[0] > 0);
+}
+
+function gl_account_in_cust_branch($acc)
+{
+ $sql= "SELECT COUNT(*) FROM ".TB_PREF."cust_branch WHERE
+ sales_account=$acc
+ OR sales_discount_account=$acc
+ OR receivables_account=$acc
+ OR payment_discount_account=$acc";
+ $result = db_query($sql,"Couldn't test for existing cust branch GL codes");
+
+ $myrow = db_fetch_row($result);
+ return ($myrow[0] > 0);
+}