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 ***********************************************************************/
13 // fiscal year routines
14 function add_fiscalyear($from_date, $to_date, $closed)
16 $from = date2sql($from_date);
17 $to = date2sql($to_date);
19 $sql = "INSERT INTO ".TB_PREF."fiscal_year (begin, end, closed)
20 VALUES (".db_escape($from).",".db_escape($to).", ".db_escape($closed).")";
22 db_query($sql, "could not add fiscal year");
25 function update_fiscalyear($id, $closed)
27 $sql = "UPDATE ".TB_PREF."fiscal_year SET closed=".db_escape($closed)."
28 WHERE id=".db_escape($id);
30 db_query($sql, "could not update fiscal year");
33 function get_all_fiscalyears()
35 $sql = "SELECT * FROM ".TB_PREF."fiscal_year ORDER BY begin";
37 return db_query($sql, "could not get all fiscal years");
40 function get_fiscalyear($id)
42 $sql = "SELECT * FROM ".TB_PREF."fiscal_year WHERE id=".db_escape($id);
44 $result = db_query($sql, "could not get fiscal year");
46 return db_fetch($result);
49 function get_current_fiscalyear()
52 include_once($path_to_root . "/admin/db/company_db.inc");
53 $year = get_company_pref('f_year');
55 $sql = "SELECT * FROM ".TB_PREF."fiscal_year WHERE id=".db_escape($year);
57 $result = db_query($sql, "could not get current fiscal year");
59 return db_fetch($result);
63 function delete_fiscalyear($id)
67 $sql="DELETE FROM ".TB_PREF."fiscal_year WHERE id=".db_escape($id);
69 db_query($sql, "could not delete fiscal year");
74 function is_date_in_fiscalyears($date, $closed=true)
76 $date = date2sql($date);
77 $sql = "SELECT * FROM ".TB_PREF."fiscal_year WHERE '$date' >= begin AND '$date' <= end";
79 $sql .= " AND closed=0";
80 $result = db_query($sql, "could not get all fiscal years");
81 return db_fetch($result) !== false;
84 function check_begin_end_date($date1, $date2)
86 $sql = "SELECT MAX(end), MIN(begin) FROM ".TB_PREF."fiscal_year";
87 $result = db_query($sql, "could not retrieve last fiscal years");
88 $row = db_fetch_row($result);
91 $max = add_days(sql2date($row[0]), 1);
92 $min = add_days(sql2date($row[1]), -1);
93 return ($max === $date1 || $min === $date2);
96 function next_begin_date()
98 $sql = "SELECT MAX(end) FROM ".TB_PREF."fiscal_year";
99 $result = db_query($sql, "could not retrieve last fiscal years");
100 $row = db_fetch_row($result);
101 if ($row[0] === null)
103 return add_days(sql2date($row[0]), 1);
106 function check_years_before($date, $closed=false)
108 $date = date2sql($date);
109 $sql = "SELECT COUNT(*) FROM ".TB_PREF."fiscal_year WHERE begin < '$date'";
111 $sql .= " AND closed=0";
113 $result = db_query($sql, "could not check fiscal years before");
114 $row = db_fetch_row($result);
115 return ($row[0] > 0);
118 //---------------------------------------------------------------------------------------------
119 function close_year($year)
121 $co = get_company_prefs();
122 if (get_gl_account($co['retained_earnings_act']) == false || get_gl_account($co['profit_loss_year_act']) == false)
124 display_error(_("The Retained Earnings Account or the Profit and Loss Year Account has not been set in System and General GL Setup"));
129 $myrow = get_fiscalyear($year);
131 // retrieve total balances from balance sheet accounts
132 $sql = "SELECT SUM(amount) FROM ".TB_PREF."gl_trans INNER JOIN ".TB_PREF."chart_master ON account=account_code
133 INNER JOIN ".TB_PREF."chart_types ON account_type=id INNER JOIN ".TB_PREF."chart_class ON class_id=cid
134 WHERE ctype>=".CL_ASSETS." AND ctype <=".CL_EQUITY." AND tran_date <= '$to'";
135 $result = db_query($sql, "The total balance could not be calculated");
137 $row = db_fetch_row($result);
138 $balance = round2($row[0], user_price_dec());
144 $trans_type = ST_JOURNAL;
145 $trans_id = get_next_trans_no($trans_type);
147 add_gl_trans($trans_type, $trans_id, $to, $co['retained_earnings_act'],
148 0, 0, _("Closing Year"), -$balance);
149 add_gl_trans($trans_type, $trans_id, $to, $co['profit_loss_year_act'],
150 0, 0, _("Closing Year"), $balance);
153 close_transactions($to);
155 commit_transaction();
159 function open_year($year)
161 $myrow = get_fiscalyear($year);
162 $from = sql2date($myrow['begin']);
165 open_transactions($from);
166 commit_transaction();
169 //---------------------------------------------------------------------------------------------
170 function delete_attachments_and_comments($type_no, $trans_no)
173 $sql = "SELECT * FROM ".TB_PREF."attachments WHERE type_no = $type_no AND trans_no = $trans_no";
174 $result = db_query($sql, "Could not retrieve attachments");
175 while ($row = db_fetch($result))
177 $dir = company_path(). "/attachments";
178 if (file_exists($dir."/".$row['unique_name']))
179 unlink($dir."/".$row['unique_name']);
180 $sql = "DELETE FROM ".TB_PREF."attachments WHERE type_no = $type_no AND trans_no = $trans_no";
181 db_query($sql, "Could not delete attachment");
183 $sql = "DELETE FROM ".TB_PREF."comments WHERE type = $type_no AND id = $trans_no";
184 db_query($sql, "Could not delete comments");
185 $sql = "DELETE FROM ".TB_PREF."refs WHERE type = $type_no AND id = $trans_no";
186 db_query($sql, "Could not delete refs");
189 //---------------------------------------------------------------------------------------------
190 function delete_this_fiscalyear($selected_id)
192 global $db_connections;
194 db_backup($db_connections[$_SESSION["wa_current_user"]->company], 'Security backup before Fiscal Year Removal');
196 $ref = _("Open Balance");
197 $myrow = get_fiscalyear($selected_id);
199 $sql = "SELECT order_no, trans_type FROM ".TB_PREF."sales_orders WHERE ord_date <= '$to' AND type <> 1"; // don't take the templates
200 $result = db_query($sql, "Could not retrieve sales orders");
201 while ($row = db_fetch($result))
203 $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']}";
204 $res = db_query($sql, "Could not retrieve sales order details");
205 $row2 = db_fetch_row($res);
206 if ($row2[0] == $row2[1])
208 $sql = "DELETE FROM ".TB_PREF."sales_order_details WHERE order_no = {$row['order_no']} AND trans_type = {$row['trans_type']}";
209 db_query($sql, "Could not delete sales order details");
210 $sql = "DELETE FROM ".TB_PREF."sales_orders WHERE order_no = {$row['order_no']} AND trans_type = {$row['trans_type']}";
211 db_query($sql, "Could not delete sales order");
212 delete_attachments_and_comments($row['trans_type'], $row['order_no']);
215 $sql = "SELECT order_no FROM ".TB_PREF."purch_orders WHERE ord_date <= '$to'";
216 $result = db_query($sql, "Could not retrieve purchase orders");
217 while ($row = db_fetch($result))
219 $sql = "SELECT SUM(quantity_ordered), SUM(quantity_received) FROM ".TB_PREF."purch_order_details WHERE order_no = {$row['order_no']}";
220 $res = db_query($sql, "Could not retrieve purchase order details");
221 $row2 = db_fetch_row($res);
222 if ($row2[0] == $row2[1])
224 $sql = "DELETE FROM ".TB_PREF."purch_order_details WHERE order_no = {$row['order_no']}";
225 db_query($sql, "Could not delete purchase order details");
226 $sql = "DELETE FROM ".TB_PREF."purch_orders WHERE order_no = {$row['order_no']}";
227 db_query($sql, "Could not delete purchase order");
228 delete_attachments_and_comments(ST_PURCHORDER, $row['order_no']);
231 $sql = "SELECT id FROM ".TB_PREF."grn_batch WHERE delivery_date <= '$to'";
232 $result = db_query($sql, "Could not retrieve grn batch");
233 while ($row = db_fetch($result))
235 $sql = "DELETE FROM ".TB_PREF."grn_items WHERE grn_batch_id = {$row['id']}";
236 db_query($sql, "Could not delete grn items");
237 $sql = "DELETE FROM ".TB_PREF."grn_batch WHERE id = {$row['id']}";
238 db_query($sql, "Could not delete grn batch");
239 delete_attachments_and_comments(25, $row['id']);
241 $sql = "SELECT trans_no, type FROM ".TB_PREF."debtor_trans WHERE tran_date <= '$to' AND
242 (ov_amount + ov_gst + ov_freight + ov_freight_tax + ov_discount) = alloc";
243 $result = db_query($sql, "Could not retrieve debtor trans");
244 while ($row = db_fetch($result))
246 if ($row['type'] == ST_SALESINVOICE)
248 $deliveries = get_sales_parent_numbers($row['type'], $row['trans_no']);
249 foreach ($deliveries as $delivery)
251 $sql = "DELETE FROM ".TB_PREF."debtor_trans_details WHERE debtor_trans_no = $delivery AND debtor_trans_type = ".ST_CUSTDELIVERY;
252 db_query($sql, "Could not delete debtor trans details");
253 $sql = "DELETE FROM ".TB_PREF."debtor_trans WHERE trans_no = $delivery AND type = ".ST_CUSTDELIVERY;
254 db_query($sql, "Could not delete debtor trans");
255 delete_attachments_and_comments(ST_CUSTDELIVERY, $delivery);
258 $sql = "DELETE FROM ".TB_PREF."cust_allocations WHERE trans_no_from = {$row['trans_no']} AND trans_type_from = {$row['type']}";
259 db_query($sql, "Could not delete cust allocations");
260 $sql = "DELETE FROM ".TB_PREF."debtor_trans_details WHERE debtor_trans_no = {$row['trans_no']} AND debtor_trans_type = {$row['type']}";
261 db_query($sql, "Could not delete debtor trans details");
262 $sql = "DELETE FROM ".TB_PREF."debtor_trans WHERE trans_no = {$row['trans_no']} AND type = {$row['type']}";
263 db_query($sql, "Could not delete debtor trans");
264 delete_attachments_and_comments($row['type'], $row['trans_no']);
266 $sql = "SELECT trans_no, type FROM ".TB_PREF."supp_trans WHERE tran_date <= '$to' AND
267 ABS(ov_amount + ov_gst + ov_discount) = alloc";
268 $result = db_query($sql, "Could not retrieve supp trans");
269 while ($row = db_fetch($result))
271 $sql = "DELETE FROM ".TB_PREF."supp_allocations WHERE trans_no_from = {$row['trans_no']} AND trans_type_from = {$row['type']}";
272 db_query($sql, "Could not delete supp allocations");
273 $sql = "DELETE FROM ".TB_PREF."supp_invoice_items WHERE supp_trans_no = {$row['trans_no']} AND supp_trans_type = {$row['type']}";
274 db_query($sql, "Could not delete supp invoice items");
275 $sql = "DELETE FROM ".TB_PREF."supp_trans WHERE trans_no = {$row['trans_no']} AND type = {$row['type']}";
276 db_query($sql, "Could not delete supp trans");
277 delete_attachments_and_comments($row['type'], $row['trans_no']);
279 $sql = "SELECT id FROM ".TB_PREF."workorders WHERE released_date <= '$to' AND closed=1";
280 $result = db_query($sql, "Could not retrieve supp trans");
281 while ($row = db_fetch($result))
283 $sql = "SELECT issue_no FROM ".TB_PREF."wo_issues WHERE workorder_id = {$row['id']}";
284 $res = db_query($sql, "Could not retrieve wo issues");
285 while ($row2 = db_fetch_row($res))
287 $sql = "DELETE FROM ".TB_PREF."wo_issue_items WHERE issue_id = {$row2[0]}";
288 db_query($sql, "Could not delete wo issue items");
290 delete_attachments_and_comments(ST_MANUISSUE, $row['id']);
291 $sql = "DELETE FROM ".TB_PREF."wo_issues WHERE workorder_id = {$row['id']}";
292 db_query($sql, "Could not delete wo issues");
293 $sql = "DELETE FROM ".TB_PREF."wo_manufacture WHERE workorder_id = {$row['id']}";
294 db_query($sql, "Could not delete wo manufacture");
295 $sql = "DELETE FROM ".TB_PREF."wo_requirements WHERE workorder_id = {$row['id']}";
296 db_query($sql, "Could not delete wo requirements");
297 $sql = "DELETE FROM ".TB_PREF."workorders WHERE id = {$row['id']}";
298 db_query($sql, "Could not delete workorders");
299 delete_attachments_and_comments(ST_WORKORDER, $row['id']);
301 $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
303 $result = db_query($sql, "Could not retrieve supp trans");
304 while ($row = db_fetch($result))
306 $sql = "DELETE FROM ".TB_PREF."stock_moves WHERE tran_date <= '$to' AND loc_code = '{$row['loc_code']}' AND stock_id = '{$row['stock_id']}'";
307 db_query($sql, "Could not delete stock moves");
309 $std_cost = ($qty == 0 ? 0 : round2($row['std_cost'] / $qty, user_price_dec()));
310 $sql = "INSERT INTO ".TB_PREF."stock_moves (stock_id, loc_code, tran_date, reference, qty, standard_cost) VALUES
311 ('{$row['stock_id']}', '{$row['loc_code']}', '$to', '$ref', $qty, $std_cost)";
312 db_query($sql, "Could not insert stock move");
314 $sql = "DELETE FROM ".TB_PREF."voided WHERE date_ <= '$to'";
315 db_query($sql, "Could not delete voided items");
316 $sql = "DELETE FROM ".TB_PREF."trans_tax_details WHERE tran_date <= '$to'";
317 db_query($sql, "Could not delete trans tax details");
318 $sql = "DELETE FROM ".TB_PREF."exchange_rates WHERE date_ <= '$to'";
319 db_query($sql, "Could not delete exchange rates");
320 $sql = "DELETE FROM ".TB_PREF."budget_trans WHERE tran_date <= '$to'";
321 db_query($sql, "Could not delete exchange rates");
323 $sql = "SELECT account, SUM(amount) AS amount FROM ".TB_PREF."gl_trans WHERE tran_date <= '$to' GROUP by account";
324 $result = db_query($sql, "Could not retrieve gl trans");
325 while ($row = db_fetch($result))
327 $sql = "DELETE FROM ".TB_PREF."gl_trans WHERE tran_date <= '$to' AND account = '{$row['account']}'";
328 db_query($sql, "Could not delete gl trans");
329 if (is_account_balancesheet($row['account']))
331 $trans_no = get_next_trans_no(ST_JOURNAL);
332 $sql = "INSERT INTO ".TB_PREF."gl_trans (type, type_no, tran_date, account, memo_, amount) VALUES
333 (".ST_JOURNAL.", $trans_no, '$to', '{$row['account']}', '$ref', {$row['amount']})";
334 db_query($sql, "Could not insert gl trans");
338 $sql = "SELECT bank_act, SUM(amount) AS amount FROM ".TB_PREF."bank_trans WHERE trans_date <= '$to' GROUP BY bank_act";
339 $result = db_query($sql, "Could not retrieve bank trans");
340 while ($row = db_fetch($result))
342 $sql = "DELETE FROM ".TB_PREF."bank_trans WHERE trans_date <= '$to' AND bank_act = '{$row['bank_act']}'";
343 db_query($sql, "Could not delete bank trans");
344 $sql = "INSERT INTO ".TB_PREF."bank_trans (type, trans_no, trans_date, bank_act, ref, amount) VALUES
345 (0, 0, '$to', '{$row['bank_act']}', '$ref', {$row['amount']})";
346 db_query($sql, "Could not insert bank trans");
349 $sql = "DELETE FROM ".TB_PREF."audit_trail WHERE gl_date <= '$to'";
350 db_query($sql, "Could not delete audit trail");
352 $sql = "SELECT type, id FROM ".TB_PREF."comments WHERE type != ".ST_SALESQUOTE." AND type != ".ST_SALESORDER." AND type != ".ST_PURCHORDER;
353 $result = db_query($sql, "Could not retrieve comments");
354 while ($row = db_fetch($result))
356 $sql = "SELECT count(*) FROM ".TB_PREF."gl_trans WHERE type = {$row['type']} AND type_no = {$row['id']}";
357 $res = db_query($sql, "Could not retrieve gl_trans");
358 $row2 = db_fetch_row($res);
359 if ($row2[0] == 0) // if no link, then delete comments
361 $sql = "DELETE FROM ".TB_PREF."comments WHERE type = {$row['type']} AND id = {$row['id']}";
362 db_query($sql, "Could not delete comments");
365 $sql = "SELECT type, id FROM ".TB_PREF."refs WHERE type != ".ST_SALESQUOTE." AND type != ".ST_SALESORDER." AND type != ".ST_PURCHORDER;
366 $result = db_query($sql, "Could not retrieve refs");
367 while ($row = db_fetch($result))
369 $sql = "SELECT count(*) FROM ".TB_PREF."gl_trans WHERE type = {$row['type']} AND type_no = {$row['id']}";
370 $res = db_query($sql, "Could not retrieve gl_trans");
371 $row2 = db_fetch_row($res);
372 if ($row2[0] == 0) // if no link, then delete refs
374 $sql = "DELETE FROM ".TB_PREF."refs WHERE type = {$row['type']} AND id = {$row['id']}";
375 db_query($sql, "Could not delete refs");
379 delete_fiscalyear($selected_id);
380 commit_transaction();