MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
See the License here <http://www.gnu.org/licenses/gpl-3.0.html>.
***********************************************************************/
-$page_security = 10;
-$path_to_root="../..";
+$page_security = 'SA_GLACCOUNT';
+$path_to_root = "../..";
include($path_to_root . "/includes/session.inc");
page(_("Chart of Accounts"));
return false;
}
+ $sql= "SELECT COUNT(*) FROM ".TB_PREF."quick_entry_lines WHERE
+ dest_id='$selected_account' AND UPPER(LEFT(action, 1)) <> 'T'";
+ $result = db_query($sql,"Couldn't test for existing suppliers GL codes");
+
+ $myrow = db_fetch_row($result);
+ if ($myrow[0] > 0)
+ {
+ display_error(_("Cannot delete this account because it is used by one or more Quick Entry Lines."));
+ return false;
+ }
+
return true;
}