admin/db/fiscalyears_db.inc

   1 <?php
   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
  13 // fiscal year routines
  14 function add_fiscalyear($from_date, $to_date, $closed)
  15 {
  16         $from = date2sql($from_date);
  17         $to = date2sql($to_date);
  18
  19         $sql = "INSERT INTO ".TB_PREF."fiscal_year (begin, end, closed)
  20                 VALUES (".db_escape($from).",".db_escape($to).", ".db_escape($closed).")";
  21
  22         db_query($sql, "could not add fiscal year");
  23 }
  24
  25 function update_fiscalyear($id, $closed)
  26 {
  27         $sql = "UPDATE ".TB_PREF."fiscal_year SET closed=".db_escape($closed)."
  28                 WHERE id=".db_escape($id);
  29
  30         db_query($sql, "could not update fiscal year");
  31 }
  32
  33 function get_all_fiscalyears()
  34 {
  35         $sql = "SELECT * FROM ".TB_PREF."fiscal_year ORDER BY begin";
  36
  37         return db_query($sql, "could not get all fiscal years");
  38 }
  39
  40 function get_fiscalyear($id)
  41 {
  42         $sql = "SELECT * FROM ".TB_PREF."fiscal_year WHERE id=".db_escape($id);
  43
  44         $result = db_query($sql, "could not get fiscal year");
  45
  46         return db_fetch($result);
  47 }
  48
  49 function get_current_fiscalyear()
  50 {
  51         global $path_to_root;
  52         include_once($path_to_root . "/admin/db/company_db.inc");
  53         $year = get_company_pref('f_year');
  54
  55         $sql = "SELECT * FROM ".TB_PREF."fiscal_year WHERE id=".db_escape($year);
  56
  57         $result = db_query($sql, "could not get current fiscal year");
  58
  59         return db_fetch($result);
  60 }
  61
  62
  63 function delete_fiscalyear($id)
  64 {
  65         begin_transaction();
  66
  67         $sql="DELETE FROM ".TB_PREF."fiscal_year WHERE id=".db_escape($id);
  68
  69         db_query($sql, "could not delete fiscal year");
  70
  71         commit_transaction();
  72 }
  73
  74 function is_date_in_fiscalyears($date, $closed=true)
  75 {
  76         $date = date2sql($date);
  77         $sql = "SELECT * FROM ".TB_PREF."fiscal_year WHERE '$date' >= begin AND '$date' <= end";
  78         if (!$closed)
  79                 $sql .= " AND closed=0";
  80         $result = db_query($sql, "could not get all fiscal years");
  81         return db_fetch($result) !== false;
  82 }
  83
  84 function check_begin_date($date="", $check=true)
  85 {
  86         $sql = "SELECT MAX(end) FROM ".TB_PREF."fiscal_year";
  87         if ($date !== "")
  88         {
  89                 $bdate = date2sql($date);
  90                 $sql .= " WHERE begin < '$bdate'";
  91         }
  92         $result = db_query($sql, "could not retrieve last fiscal years");
  93         $row = db_fetch_row($result);
  94         if ($row[0] === null)
  95                 return false;
  96         $max = add_days(sql2date($row[0]), 1);
  97         if ($check)
  98                 return ($max === $date);
  99         else
 100                 return $max;
 101 }
 102
 103 function check_years_before($date, $closed=false)
 104 {
 105         $date = date2sql($date);
 106         $sql = "SELECT COUNT(*) FROM ".TB_PREF."fiscal_year WHERE begin < '$date'";
 107         if (!$closed)
 108                 $sql .= " AND closed=0";
 109
 110         $result = db_query($sql, "could not check fiscal years before");
 111         $row = db_fetch_row($result);
 112         return ($row[0] > 0);
 113 }
 114
 115 //---------------------------------------------------------------------------------------------
 116 function close_year($year)
 117 {
 118         $co = get_company_prefs();
 119         if (get_gl_account($co['retained_earnings_act']) == false || get_gl_account($co['profit_loss_year_act']) == false)
 120         {
 121                 display_error(_("The Retained Earnings Account or the Profit and Loss Year Account has not been set in System and General GL Setup"));
 122                 return false;
 123         }
 124         begin_transaction();
 125
 126         $myrow = get_fiscalyear($year);
 127         $to = $myrow['end'];
 128         // retrieve total balances from balance sheet accounts
 129     $sql = "SELECT SUM(amount) FROM ".TB_PREF."gl_trans INNER JOIN ".TB_PREF."chart_master ON account=account_code
 130         INNER JOIN ".TB_PREF."chart_types ON account_type=id INNER JOIN ".TB_PREF."chart_class ON class_id=cid
 131                 WHERE ctype>=".CL_ASSETS." AND ctype <=".CL_EQUITY." AND tran_date <= '$to'";
 132         $result = db_query($sql, "The total balance could not be calculated");
 133
 134         $row = db_fetch_row($result);
 135         $balance = round2($row[0], user_price_dec());
 136
 137         $to = sql2date($to);
 138
 139         if ($balance != 0.0)
 140         {
 141                 $trans_type = ST_JOURNAL;
 142                 $trans_id = get_next_trans_no($trans_type);
 143
 144                 add_gl_trans($trans_type, $trans_id, $to, $co['retained_earnings_act'],
 145                         0, 0, _("Closing Year"), -$balance);
 146                 add_gl_trans($trans_type, $trans_id, $to, $co['profit_loss_year_act'],
 147                         0, 0, _("Closing Year"), $balance);
 148
 149         }
 150         close_transactions($to);
 151
 152         commit_transaction();
 153         return true;
 154 }
 155
 156 function open_year($year)
 157 {
 158         $myrow = get_fiscalyear($year);
 159         $from = sql2date($myrow['begin']);
 160
 161         begin_transaction();
 162         open_transactions($from);
 163         commit_transaction();
 164 }
 165
 166 //---------------------------------------------------------------------------------------------
 167 function delete_attachments_and_comments($type_no, $trans_no)
 168 {
 169
 170         $sql = "SELECT * FROM ".TB_PREF."attachments WHERE type_no = $type_no AND trans_no = $trans_no";
 171         $result = db_query($sql, "Could not retrieve attachments");
 172         while ($row = db_fetch($result))
 173         {
 174                 $dir =  company_path(). "/attachments";
 175                 if (file_exists($dir."/".$row['unique_name']))
 176                         unlink($dir."/".$row['unique_name']);
 177                 $sql = "DELETE FROM ".TB_PREF."attachments WHERE  type_no = $type_no AND trans_no = $trans_no";
 178                 db_query($sql, "Could not delete attachment");
 179         }
 180         $sql = "DELETE FROM ".TB_PREF."comments WHERE  type = $type_no AND id = $trans_no";
 181         db_query($sql, "Could not delete comments");
 182         $sql = "DELETE FROM ".TB_PREF."refs WHERE  type = $type_no AND id = $trans_no";
 183         db_query($sql, "Could not delete refs");
 184 }
 185
 186 //---------------------------------------------------------------------------------------------
 187 function delete_this_fiscalyear($selected_id)
 188 {
 189         global $db_connections;
 190
 191         db_backup($db_connections[$_SESSION["wa_current_user"]->company], 'Security backup before Fiscal Year Removal');
 192         begin_transaction();
 193         $ref = _("Open Balance");
 194         $myrow = get_fiscalyear($selected_id);
 195         $to = $myrow['end'];
 196         $sql = "SELECT order_no, trans_type FROM ".TB_PREF."sales_orders WHERE ord_date <= '$to' AND type <> 1"; // don't take the templates
 197         $result = db_query($sql, "Could not retrieve sales orders");
 198         while ($row = db_fetch($result))
 199         {
 200                 $sql = "SELECT SUM(qty_sent), SUM(quantity) FROM ".TB_PREF."sales_order_details WHERE order_no = {$row['order_no']} AND trans_type = {$row['trans_type']}";
 201                 $res = db_query($sql, "Could not retrieve sales order details");
 202                 $row2 = db_fetch_row($res);
 203                 if ($row2[0] == $row2[1])
 204                 {
 205                         $sql = "DELETE FROM ".TB_PREF."sales_order_details WHERE order_no = {$row['order_no']} AND trans_type = {$row['trans_type']}";
 206                         db_query($sql, "Could not delete sales order details");
 207                         $sql = "DELETE FROM ".TB_PREF."sales_orders WHERE order_no = {$row['order_no']} AND trans_type = {$row['trans_type']}";
 208                         db_query($sql, "Could not delete sales order");
 209                         delete_attachments_and_comments($row['trans_type'], $row['order_no']);
 210                 }
 211         }
 212         $sql = "SELECT order_no FROM ".TB_PREF."purch_orders WHERE ord_date <= '$to'";
 213         $result = db_query($sql, "Could not retrieve purchase orders");
 214         while ($row = db_fetch($result))
 215         {
 216                 $sql = "SELECT SUM(quantity_ordered), SUM(quantity_received) FROM ".TB_PREF."purch_order_details WHERE order_no = {$row['order_no']}";
 217                 $res = db_query($sql, "Could not retrieve purchase order details");
 218                 $row2 = db_fetch_row($res);
 219                 if ($row2[0] == $row2[1])
 220                 {
 221                         $sql = "DELETE FROM ".TB_PREF."purch_order_details WHERE order_no = {$row['order_no']}";
 222                         db_query($sql, "Could not delete purchase order details");
 223                         $sql = "DELETE FROM ".TB_PREF."purch_orders WHERE order_no = {$row['order_no']}";
 224                         db_query($sql, "Could not delete purchase order");
 225                         delete_attachments_and_comments(ST_PURCHORDER, $row['order_no']);
 226                 }
 227         }
 228         $sql = "SELECT id FROM ".TB_PREF."grn_batch WHERE delivery_date <= '$to'";
 229         $result = db_query($sql, "Could not retrieve grn batch");
 230         while ($row = db_fetch($result))
 231         {
 232                 $sql = "DELETE FROM ".TB_PREF."grn_items WHERE grn_batch_id = {$row['id']}";
 233                 db_query($sql, "Could not delete grn items");
 234                 $sql = "DELETE FROM ".TB_PREF."grn_batch WHERE id = {$row['id']}";
 235                 db_query($sql, "Could not delete grn batch");
 236                 delete_attachments_and_comments(25, $row['id']);
 237         }
 238         $sql = "SELECT trans_no, type FROM ".TB_PREF."debtor_trans WHERE tran_date <= '$to' AND
 239                 (ov_amount + ov_gst + ov_freight + ov_freight_tax + ov_discount) = alloc";
 240         $result = db_query($sql, "Could not retrieve debtor trans");
 241         while ($row = db_fetch($result))
 242         {
 243                 if ($row['type'] == ST_SALESINVOICE)
 244                 {
 245                         $deliveries = get_sales_parent_numbers($row['type'], $row['trans_no']);
 246                         foreach ($deliveries as $delivery)
 247                         {
 248                                 $sql = "DELETE FROM ".TB_PREF."debtor_trans_details WHERE debtor_trans_no = $delivery AND debtor_trans_type = ".ST_CUSTDELIVERY;
 249                                 db_query($sql, "Could not delete debtor trans details");
 250                                 $sql = "DELETE FROM ".TB_PREF."debtor_trans WHERE trans_no = $delivery AND type = ".ST_CUSTDELIVERY;
 251                                 db_query($sql, "Could not delete debtor trans");
 252                                 delete_attachments_and_comments(ST_CUSTDELIVERY, $delivery);
 253                         }
 254                 }
 255                 $sql = "DELETE FROM ".TB_PREF."cust_allocations WHERE trans_no_from = {$row['trans_no']} AND trans_type_from = {$row['type']}";
 256                 db_query($sql, "Could not delete cust allocations");
 257                 $sql = "DELETE FROM ".TB_PREF."debtor_trans_details WHERE debtor_trans_no = {$row['trans_no']} AND debtor_trans_type = {$row['type']}";
 258                 db_query($sql, "Could not delete debtor trans details");
 259                 $sql = "DELETE FROM ".TB_PREF."debtor_trans WHERE trans_no = {$row['trans_no']} AND type = {$row['type']}";
 260                 db_query($sql, "Could not delete debtor trans");
 261                 delete_attachments_and_comments($row['type'], $row['trans_no']);
 262         }
 263         $sql = "SELECT trans_no, type FROM ".TB_PREF."supp_trans WHERE tran_date <= '$to' AND
 264                 ABS(ov_amount + ov_gst + ov_discount) = alloc";
 265         $result = db_query($sql, "Could not retrieve supp trans");
 266         while ($row = db_fetch($result))
 267         {
 268                 $sql = "DELETE FROM ".TB_PREF."supp_allocations WHERE trans_no_from = {$row['trans_no']} AND trans_type_from = {$row['type']}";
 269                 db_query($sql, "Could not delete supp allocations");
 270                 $sql = "DELETE FROM ".TB_PREF."supp_invoice_items WHERE supp_trans_no = {$row['trans_no']} AND supp_trans_type = {$row['type']}";
 271                 db_query($sql, "Could not delete supp invoice items");
 272                 $sql = "DELETE FROM ".TB_PREF."supp_trans WHERE trans_no = {$row['trans_no']} AND type = {$row['type']}";
 273                 db_query($sql, "Could not delete supp trans");
 274                 delete_attachments_and_comments($row['type'], $row['trans_no']);
 275         }
 276         $sql = "SELECT id FROM ".TB_PREF."workorders WHERE released_date <= '$to' AND closed=1";
 277         $result = db_query($sql, "Could not retrieve supp trans");
 278         while ($row = db_fetch($result))
 279         {
 280                 $sql = "SELECT issue_no FROM ".TB_PREF."wo_issues WHERE workorder_id = {$row['id']}";
 281                 $res = db_query($sql, "Could not retrieve wo issues");
 282                 while ($row2 = db_fetch_row($res))
 283                 {
 284                         $sql = "DELETE FROM ".TB_PREF."wo_issue_items WHERE issue_id = {$row2[0]}";
 285                         db_query($sql, "Could not delete wo issue items");
 286                 }
 287                 delete_attachments_and_comments(ST_MANUISSUE, $row['id']);
 288                 $sql = "DELETE FROM ".TB_PREF."wo_issues WHERE workorder_id = {$row['id']}";
 289                 db_query($sql, "Could not delete wo issues");
 290                 $sql = "DELETE FROM ".TB_PREF."wo_manufacture WHERE workorder_id = {$row['id']}";
 291                 db_query($sql, "Could not delete wo manufacture");
 292                 $sql = "DELETE FROM ".TB_PREF."wo_requirements WHERE workorder_id = {$row['id']}";
 293                 db_query($sql, "Could not delete wo requirements");
 294                 $sql = "DELETE FROM ".TB_PREF."workorders WHERE id = {$row['id']}";
 295                 db_query($sql, "Could not delete workorders");
 296                 delete_attachments_and_comments(ST_WORKORDER, $row['id']);
 297         }
 298         $sql = "SELECT loc_code, stock_id, SUM(qty) AS qty, SUM(qty*standard_cost) AS std_cost FROM ".TB_PREF."stock_moves WHERE tran_date <= '$to' GROUP by
 299                 loc_code, stock_id";
 300         $result = db_query($sql, "Could not retrieve supp trans");
 301         while ($row = db_fetch($result))
 302         {
 303                 $sql = "DELETE FROM ".TB_PREF."stock_moves WHERE tran_date <= '$to' AND loc_code = '{$row['loc_code']}' AND stock_id = '{$row['stock_id']}'";
 304                 db_query($sql, "Could not delete stock moves");
 305                 $qty = $row['qty'];
 306                 $std_cost = ($qty == 0 ? 0 : round2($row['std_cost'] / $qty, user_price_dec()));
 307                 $sql = "INSERT INTO ".TB_PREF."stock_moves (stock_id, loc_code, tran_date, reference, qty, standard_cost) VALUES
 308                         ('{$row['stock_id']}', '{$row['loc_code']}', '$to', '$ref', $qty, $std_cost)";
 309                 db_query($sql, "Could not insert stock move");
 310         }
 311         $sql = "DELETE FROM ".TB_PREF."voided WHERE date_ <= '$to'";
 312         db_query($sql, "Could not delete voided items");
 313         $sql = "DELETE FROM ".TB_PREF."trans_tax_details WHERE tran_date <= '$to'";
 314         db_query($sql, "Could not delete trans tax details");
 315         $sql = "DELETE FROM ".TB_PREF."exchange_rates WHERE date_ <= '$to'";
 316         db_query($sql, "Could not delete exchange rates");
 317         $sql = "DELETE FROM ".TB_PREF."budget_trans WHERE tran_date <= '$to'";
 318         db_query($sql, "Could not delete exchange rates");
 319
 320         $sql = "SELECT account, SUM(amount) AS amount FROM ".TB_PREF."gl_trans WHERE tran_date <= '$to' GROUP by account";
 321         $result = db_query($sql, "Could not retrieve gl trans");
 322         while ($row = db_fetch($result))
 323         {
 324                 $sql = "DELETE FROM ".TB_PREF."gl_trans WHERE tran_date <= '$to' AND account = '{$row['account']}'";
 325                 db_query($sql, "Could not delete gl trans");
 326                 if (is_account_balancesheet($row['account']))
 327                 {
 328                         $trans_no = get_next_trans_no(ST_JOURNAL);
 329                         $sql = "INSERT INTO ".TB_PREF."gl_trans (type, type_no, tran_date, account, memo_, amount) VALUES
 330                                 (".ST_JOURNAL.", $trans_no, '$to', '{$row['account']}', '$ref', {$row['amount']})";
 331                         db_query($sql, "Could not insert gl trans");
 332                 }
 333         }
 334
 335         $sql = "SELECT bank_act, SUM(amount) AS amount FROM ".TB_PREF."bank_trans WHERE trans_date <= '$to' GROUP BY bank_act";
 336         $result = db_query($sql, "Could not retrieve bank trans");
 337         while ($row = db_fetch($result))
 338         {
 339                 $sql = "DELETE FROM ".TB_PREF."bank_trans WHERE trans_date <= '$to' AND bank_act = '{$row['bank_act']}'";
 340                 db_query($sql, "Could not delete bank trans");
 341                 $sql = "INSERT INTO ".TB_PREF."bank_trans (type, trans_no, trans_date, bank_act, ref, amount) VALUES
 342                         (0, 0, '$to', '{$row['bank_act']}', '$ref', {$row['amount']})";
 343                 db_query($sql, "Could not insert bank trans");
 344         }
 345
 346         $sql = "DELETE FROM ".TB_PREF."audit_trail WHERE gl_date <= '$to'";
 347         db_query($sql, "Could not delete audit trail");
 348
 349         $sql = "SELECT type, id FROM ".TB_PREF."comments WHERE type != ".ST_SALESQUOTE." AND type != ".ST_SALESORDER." AND type != ".ST_PURCHORDER;
 350         $result = db_query($sql, "Could not retrieve comments");
 351         while ($row = db_fetch($result))
 352         {
 353                 $sql = "SELECT count(*) FROM ".TB_PREF."gl_trans WHERE type = {$row['type']} AND type_no = {$row['id']}";
 354                 $res = db_query($sql, "Could not retrieve gl_trans");
 355                 $row2 = db_fetch_row($res);
 356                 if ($row2[0] == 0) // if no link, then delete comments
 357                 {
 358                         $sql = "DELETE FROM ".TB_PREF."comments WHERE type = {$row['type']} AND id = {$row['id']}";
 359                         db_query($sql, "Could not delete comments");
 360                 }
 361         }
 362         $sql = "SELECT type, id FROM ".TB_PREF."refs WHERE type != ".ST_SALESQUOTE." AND type != ".ST_SALESORDER." AND type != ".ST_PURCHORDER;
 363         $result = db_query($sql, "Could not retrieve refs");
 364         while ($row = db_fetch($result))
 365         {
 366                 $sql = "SELECT count(*) FROM ".TB_PREF."gl_trans WHERE type = {$row['type']} AND type_no = {$row['id']}";
 367                 $res = db_query($sql, "Could not retrieve gl_trans");
 368                 $row2 = db_fetch_row($res);
 369                 if ($row2[0] == 0) // if no link, then delete refs
 370                 {
 371                         $sql = "DELETE FROM ".TB_PREF."refs WHERE type = {$row['type']} AND id = {$row['id']}";
 372                         db_query($sql, "Could not delete refs");
 373                 }
 374         }
 375
 376         delete_fiscalyear($selected_id);
 377         commit_transaction();
 378 }
 379
 380
 381 ?>