gl/gl_journal.php

   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 $page_security = 'SA_JOURNALENTRY';
  13 $path_to_root = "..";
  14 include_once($path_to_root . "/includes/ui/items_cart.inc");
  15
  16 include_once($path_to_root . "/includes/session.inc");
  17
  18 include_once($path_to_root . "/includes/date_functions.inc");
  19 include_once($path_to_root . "/includes/data_checks.inc");
  20
  21 include_once($path_to_root . "/gl/includes/ui/gl_journal_ui.inc");
  22 include_once($path_to_root . "/gl/includes/gl_db.inc");
  23 include_once($path_to_root . "/gl/includes/gl_ui.inc");
  24
  25 $js = '';
  26 if ($SysPrefs->use_popup_windows)
  27         $js .= get_js_open_window(800, 500);
  28 if (user_use_date_picker())
  29         $js .= get_js_date_picker();
  30
  31 if (isset($_GET['ModifyGL'])) {
  32         $_SESSION['page_title'] = sprintf(_("Modifying Journal Transaction # %d."),
  33                 $_GET['trans_no']);
  34         $help_context = "Modifying Journal Entry";
  35 } else
  36         $_SESSION['page_title'] = _($help_context = "Journal Entry");
  37
  38 page($_SESSION['page_title'], false, false,'', $js);
  39 //--------------------------------------------------------------------------------------------------
  40
  41 function line_start_focus() {
  42   global        $Ajax;
  43
  44   unset($_POST['Index']);
  45   $Ajax->activate('tabs');
  46   unset($_POST['_code_id_edit'], $_POST['code_id'], $_POST['AmountDebit'],
  47         $_POST['AmountCredit'], $_POST['dimension_id'], $_POST['dimension2_id']);
  48   set_focus('_code_id_edit');
  49 }
  50 //-----------------------------------------------------------------------------------------------
  51
  52 if (isset($_GET['AddedID']))
  53 {
  54         $trans_no = $_GET['AddedID'];
  55         $trans_type = ST_JOURNAL;
  56
  57         display_notification_centered( _("Journal entry has been entered") . " #$trans_no");
  58
  59     display_note(get_gl_view_str($trans_type, $trans_no, _("&View this Journal Entry")));
  60
  61         reset_focus();
  62         hyperlink_params($_SERVER['PHP_SELF'], _("Enter &New Journal Entry"), "NewJournal=Yes");
  63
  64         hyperlink_params("$path_to_root/admin/attachments.php", _("Add an Attachment"), "filterType=$trans_type&trans_no=$trans_no");
  65
  66         display_footer_exit();
  67 } elseif (isset($_GET['UpdatedID']))
  68 {
  69         $trans_no = $_GET['UpdatedID'];
  70         $trans_type = ST_JOURNAL;
  71
  72         display_notification_centered( _("Journal entry has been updated") . " #$trans_no");
  73
  74     display_note(get_gl_view_str($trans_type, $trans_no, _("&View this Journal Entry")));
  75
  76         hyperlink_no_params($path_to_root."/gl/inquiry/journal_inquiry.php", _("Return to Journal &Inquiry"));
  77
  78         display_footer_exit();
  79 }
  80 //--------------------------------------------------------------------------------------------------
  81
  82 if (isset($_GET['NewJournal']))
  83 {
  84         create_cart(0,0);
  85 }
  86 elseif (isset($_GET['ModifyGL']))
  87 {
  88         check_is_editable($_GET['trans_type'], $_GET['trans_no']);
  89
  90         if (!isset($_GET['trans_type']) || $_GET['trans_type']!= 0) {
  91                 display_error(_("You can edit directly only journal entries created via Journal Entry page."));
  92                 hyperlink_params("$path_to_root/gl/gl_journal.php", _("Entry &New Journal Entry"), "NewJournal=Yes");
  93                 display_footer_exit();
  94         }
  95         create_cart($_GET['trans_type'], $_GET['trans_no']);
  96 }
  97
  98 function create_cart($type=0, $trans_no=0)
  99 {
 100         global $Refs;
 101
 102         if (isset($_SESSION['journal_items']))
 103         {
 104                 unset ($_SESSION['journal_items']);
 105         }
 106
 107         check_is_closed($type, $trans_no);
 108         $cart = new items_cart($type);
 109     $cart->order_id = $trans_no;
 110
 111         if ($trans_no) {
 112                 $header = get_journal($type, $trans_no);
 113                 $cart->event_date = sql2date($header['event_date']);
 114                 $cart->doc_date = sql2date($header['doc_date']);
 115                 $cart->tran_date = sql2date($header['tran_date']);
 116                 $cart->currency = $header['currency'];
 117                 $cart->rate = $header['rate'];
 118                 $cart->source_ref = $header['source_ref'];
 119
 120                 $result = get_gl_trans($type, $trans_no);
 121
 122                 if ($result) {
 123                         while ($row = db_fetch($result)) {
 124                                 $curr_amount = $cart->rate ? round($row['amount']/$cart->rate, $_SESSION["wa_current_user"]->prefs->price_dec()) : $row['amount'];
 125                                 if ($curr_amount)
 126                                         $cart->add_gl_item($row['account'], $row['dimension_id'], $row['dimension2_id'],
 127                                                 $curr_amount, $row['memo_'], '', $row['person_id']);
 128                         }
 129                 }
 130                 $cart->memo_ = get_comments_string($type, $trans_no);
 131                 $cart->reference = $header['reference'];
 132                 // update net_amounts from tax register
 133
 134                 // retrieve tax details
 135                 $tax_info = $cart->collect_tax_info(); // tax amounts in reg are always consistent with GL, so we can read them from GL lines
 136
 137                 $taxes = get_trans_tax_details($type, $trans_no);
 138                 while ($detail = db_fetch($taxes))
 139                 {
 140                         $tax_id = $detail['tax_type_id'];
 141                         $cart->vat_category = $tax_info['tax_category'] = $detail['vat_category'];
 142                         $tax_info['net_amount'][$tax_id] = $detail['net_amount']; // we can two records for the same tax_id, but in this case net_amount is the same
 143                         $tax_info['tax_date'] = sql2date($detail['tran_date']);
 144                         $tax_info['tax_group'] = $detail['tax_group_id'];
 145
 146                 }
 147                 if (isset($tax_info['net_amount']))     // guess exempt sales/purchase if any tax has been found
 148                 {
 149                         $net_sum = 0;
 150                         foreach($cart->gl_items as $gl)
 151                                 if (!is_tax_account($gl->code_id) && !is_subledger_account($gl->code_id, $gl->person_id))
 152                                         $net_sum += $gl->amount;
 153
 154                         $ex_net = abs($net_sum) - array_sum($tax_info['net_amount']);
 155                         if ($ex_net > 0)
 156                                 $tax_info['net_amount_ex'] = $ex_net;
 157                 }
 158                 $cart->tax_info = $tax_info;
 159
 160         } else {
 161                 $cart->tran_date = $cart->doc_date = $cart->event_date = new_doc_date();
 162                 if (!is_date_in_fiscalyear($cart->tran_date))
 163                         $cart->tran_date = end_fiscalyear();
 164                 $cart->reference = $Refs->get_next(ST_JOURNAL, null, $cart->tran_date);
 165         }
 166
 167         $_POST['memo_'] = $cart->memo_;
 168         $_POST['ref'] = $cart->reference;
 169         $_POST['date_'] = $cart->tran_date;
 170         $_POST['event_date'] = $cart->event_date;
 171         $_POST['doc_date'] = $cart->doc_date;
 172         $_POST['currency'] = $cart->currency;
 173         $_POST['_ex_rate'] = exrate_format($cart->rate);
 174         $_POST['source_ref'] = $cart->source_ref;
 175         if (isset($cart->tax_info['net_amount']) || (!$trans_no && get_company_pref('default_gl_vat')))
 176                 $_POST['taxable_trans'] = true;
 177         $_SESSION['journal_items'] = &$cart;
 178 }
 179
 180 function update_tax_info()
 181 {
 182
 183         $_SESSION['journal_items']->vat_category = get_post('tax_category');
 184
 185         if (!isset($_SESSION['journal_items']->tax_info) || list_updated('tax_category'))
 186                 $_SESSION['journal_items']->tax_info = $_SESSION['journal_items']->collect_tax_info();
 187
 188         foreach ($_SESSION['journal_items']->tax_info as $name => $value)
 189                 if (is_array($value))
 190                 {
 191                         foreach ($value as $id => $amount)
 192                         {
 193                                 $_POST[$name.'_'.$id] = price_format($amount);
 194                         }
 195                 } else
 196                         $_POST[$name] = $value;
 197         $_POST['tax_date'] = $_SESSION['journal_items']->order_id ? $_SESSION['journal_items']->tax_info['tax_date'] : $_POST['date_'];
 198 }
 199
 200 //-----------------------------------------------------------------------------------------------
 201 if (isset($_POST['Process']))
 202 {
 203         $input_error = 0;
 204
 205         if ($_SESSION['journal_items']->count_gl_items() < 1) {
 206                 display_error(_("You must enter at least one journal line."));
 207                 set_focus('code_id');
 208                 $input_error = 1;
 209         }
 210         if (abs($_SESSION['journal_items']->gl_items_total()) > 0.001)
 211         {
 212                 display_error(_("The journal must balance (debits equal to credits) before it can be processed."));
 213                 set_focus('code_id');
 214                 $input_error = 1;
 215         }
 216
 217         if (!is_date($_POST['date_']))
 218         {
 219                 display_error(_("The entered date is invalid."));
 220                 set_focus('date_');
 221                 $input_error = 1;
 222         }
 223         elseif (!is_date_in_fiscalyear($_POST['date_']))
 224         {
 225                 display_error(_("The entered date is out of fiscal year or is closed for further data entry."));
 226                 set_focus('date_');
 227                 $input_error = 1;
 228         }
 229         if (!is_date($_POST['event_date']))
 230         {
 231                 display_error(_("The entered date is invalid."));
 232                 set_focus('event_date');
 233                 $input_error = 1;
 234         }
 235         if (!is_date($_POST['doc_date']))
 236         {
 237                 display_error(_("The entered date is invalid."));
 238                 set_focus('doc_date');
 239                 $input_error = 1;
 240         }
 241         if (!check_reference($_POST['ref'], ST_JOURNAL, $_SESSION['journal_items']->order_id))
 242         {
 243                 set_focus('ref');
 244                 $input_error = 1;
 245         }
 246         if (get_post('currency') != get_company_pref('curr_default'))
 247                 if (isset($_POST['_ex_rate']) && !check_num('_ex_rate', 0.000001))
 248                 {
 249                         display_error(_("The exchange rate must be numeric and greater than zero."));
 250                         set_focus('_ex_rate');
 251                 $input_error = 1;
 252                 }
 253
 254         if (get_post('_tabs_sel') == 'tax')
 255         {
 256                 if (!is_date($_POST['tax_date']))
 257                 {
 258                         display_error(_("The entered date is invalid."));
 259                         set_focus('tax_date');
 260                         $input_error = 1;
 261                 }
 262                 elseif (!is_date_in_fiscalyear($_POST['tax_date']))
 263                 {
 264                         display_error(_("The entered date is out of fiscal year or is closed for further data entry."));
 265                         set_focus('tax_date');
 266                         $input_error = 1;
 267                 }
 268                 // FIXME: check proper tax net input values, check sum of net values against total GL an issue warning
 269         }
 270
 271         if (check_value('taxable_trans'))
 272         {
 273                 if (!tab_visible('tabs', 'tax'))
 274                 {
 275                         display_warning(_("Check tax register records before processing transaction or switch off 'Include in tax register' option."));
 276                         $_POST['tabs_tax'] = true; // force tax tab select
 277                         $input_error = 1;
 278                 } else {
 279                         $taxes = get_all_tax_types();
 280                         $net_amount = 0;
 281                         while ($tax = db_fetch($taxes))
 282                         {
 283                                 $tax_id = $tax['id'];
 284                                 $net_amount += input_num('net_amount_'.$tax_id);
 285                         }
 286                         // in case no tax account used we have to guss tax register on customer/supplier used.
 287                         if ($net_amount && !$_SESSION['journal_items']->has_taxes() && !$_SESSION['journal_items']->has_sub_accounts())
 288                         {
 289                                 display_error(_("Cannot determine tax register to be used. You have to make at least one posting either to tax or customer/supplier account to use tax register."));
 290                                 $_POST['tabs_gl'] = true; // force gl tab select
 291                                 $input_error = 1;
 292                         }
 293                 }
 294         }
 295
 296         if ($input_error == 1)
 297                 unset($_POST['Process']);
 298 }
 299
 300 if (isset($_POST['Process']))
 301 {
 302         $cart = &$_SESSION['journal_items'];
 303         $new = $cart->order_id == 0;
 304
 305         $cart->reference = $_POST['ref'];
 306         $cart->tran_date = $_POST['date_'];
 307         $cart->doc_date = $_POST['doc_date'];
 308         $cart->event_date = $_POST['event_date'];
 309         $cart->source_ref = $_POST['source_ref'];
 310         if (isset($_POST['memo_']))
 311                 $cart->memo_ = $_POST['memo_'];
 312
 313         $cart->currency = $_POST['currency'];
 314         if ($cart->currency != get_company_pref('curr_default'))
 315                 $cart->rate = input_num('_ex_rate');
 316
 317         if (check_value('taxable_trans'))
 318         {
 319                 // complete tax register data
 320                 $cart->tax_info['tax_date'] = $_POST['tax_date'];
 321                 //$cart->tax_info['tax_group'] = $_POST['tax_group'];
 322                 $taxes = get_all_tax_types();
 323                 while ($tax = db_fetch($taxes))
 324                 {
 325                         $tax_id = $tax['id'];
 326                         $cart->tax_info['net_amount'][$tax_id] = input_num('net_amount_'.$tax_id);
 327                         $cart->tax_info['rate'][$tax_id] = $tax['rate'];
 328                 }
 329         } else
 330                 $cart->tax_info = false;
 331         $trans_no = write_journal_entries($cart);
 332
 333         // retain the reconciled status if desired by user
 334         if (isset($_POST['reconciled'])
 335             && $_POST['reconciled'] == 1) {
 336             $sql = "UPDATE ".TB_PREF."bank_trans SET reconciled=".db_escape($_POST['reconciled_date'])
 337                 ." WHERE type=" . ST_JOURNAL . " AND trans_no=".db_escape($trans_no);
 338
 339             db_query($sql, "Can't change reconciliation status");
 340         }
 341
 342         $cart->clear_items();
 343         new_doc_date($_POST['date_']);
 344         unset($_SESSION['journal_items']);
 345         if($new)
 346                 meta_forward($_SERVER['PHP_SELF'], "AddedID=$trans_no");
 347         else
 348                 meta_forward($_SERVER['PHP_SELF'], "UpdatedID=$trans_no");
 349 }
 350
 351 //-----------------------------------------------------------------------------------------------
 352
 353 function check_item_data()
 354 {
 355         global $Ajax;
 356
 357         if (!get_post('code_id')) {
 358                 display_error(_("You must select GL account."));
 359                 set_focus('code_id');
 360                 return false;
 361         }
 362         if (is_subledger_account(get_post('code_id'))) {
 363                 if(!get_post('person_id')) {
 364                         display_error(_("You must select subledger account."));
 365                         $Ajax->activate('items_table');
 366                         set_focus('person_id');
 367                         return false;
 368                 }
 369         }
 370         if (isset($_POST['dimension_id']) && $_POST['dimension_id'] != 0 && dimension_is_closed($_POST['dimension_id']))
 371         {
 372                 display_error(_("Dimension is closed."));
 373                 set_focus('dimension_id');
 374                 return false;
 375         }
 376
 377         if (isset($_POST['dimension2_id']) && $_POST['dimension2_id'] != 0 && dimension_is_closed($_POST['dimension2_id']))
 378         {
 379                 display_error(_("Dimension is closed."));
 380                 set_focus('dimension2_id');
 381                 return false;
 382         }
 383
 384         if (!(input_num('AmountDebit')!=0 ^ input_num('AmountCredit')!=0) )
 385         {
 386                 display_error(_("You must enter either a debit amount or a credit amount."));
 387                 set_focus('AmountDebit');
 388                 return false;
 389         }
 390
 391         if (strlen($_POST['AmountDebit']) && !check_num('AmountDebit', 0))
 392         {
 393                 display_error(_("The debit amount entered is not a valid number or is less than zero."));
 394                 set_focus('AmountDebit');
 395                 return false;
 396         } elseif (strlen($_POST['AmountCredit']) && !check_num('AmountCredit', 0))
 397         {
 398                 display_error(_("The credit amount entered is not a valid number or is less than zero."));
 399                 set_focus('AmountCredit');
 400                 return false;
 401         }
 402
 403         if (!is_tax_gl_unique(get_post('code_id'))) {
 404                 display_error(_("Cannot post to GL account used by more than one tax type."));
 405                 set_focus('code_id');
 406                 return false;
 407         }
 408
 409         if (!$_SESSION["wa_current_user"]->can_access('SA_BANKJOURNAL') && is_bank_account($_POST['code_id']))
 410         {
 411                 display_error(_("You cannot make a journal entry for a bank account. Please use one of the banking functions for bank transactions."));
 412                 set_focus('code_id');
 413                 return false;
 414         }
 415
 416         return true;
 417 }
 418
 419 //-----------------------------------------------------------------------------------------------
 420
 421 function handle_update_item()
 422 {
 423     if($_POST['UpdateItem'] != "" && check_item_data())
 424     {
 425         if (input_num('AmountDebit') > 0)
 426                 $amount = input_num('AmountDebit');
 427         else
 428                 $amount = -input_num('AmountCredit');
 429
 430         $_SESSION['journal_items']->update_gl_item($_POST['Index'], $_POST['code_id'],
 431             $_POST['dimension_id'], $_POST['dimension2_id'], $amount, $_POST['LineMemo'], '', get_post('person_id'));
 432         unset($_SESSION['journal_items']->tax_info);
 433                 line_start_focus();
 434     }
 435 }
 436
 437 //-----------------------------------------------------------------------------------------------
 438
 439 function handle_delete_item($id)
 440 {
 441         $_SESSION['journal_items']->remove_gl_item($id);
 442         unset($_SESSION['journal_items']->tax_info);
 443         line_start_focus();
 444 }
 445
 446 //-----------------------------------------------------------------------------------------------
 447
 448 function handle_new_item()
 449 {
 450         if (!check_item_data())
 451                 return;
 452
 453         if (input_num('AmountDebit') > 0)
 454                 $amount = input_num('AmountDebit');
 455         else
 456                 $amount = -input_num('AmountCredit');
 457
 458         $_SESSION['journal_items']->add_gl_item($_POST['code_id'], $_POST['dimension_id'],
 459                 $_POST['dimension2_id'], $amount, $_POST['LineMemo'], '', get_post('person_id'));
 460         unset($_SESSION['journal_items']->tax_info);
 461         line_start_focus();
 462 }
 463
 464 //-----------------------------------------------------------------------------------------------
 465 if (isset($_POST['_taxable_trans_update']))
 466 {       if (!check_value('taxable_trans'))
 467                 $_POST['tabs_gl'] = true; // force tax tab select
 468         else
 469                 set_focus('taxable_trans');
 470         $Ajax->activate('tabs');
 471 }
 472
 473 if (tab_closed('tabs', 'gl'))
 474 {
 475         $_SESSION['journal_items']->memo_ = $_POST['memo_'];
 476 }
 477  elseif (tab_closed('tabs', 'tax'))
 478 {
 479         $cart = &$_SESSION['journal_items'];
 480         $cart->tax_info['tax_date'] = $_POST['tax_date'];
 481         $cart->tax_info['tax_category'] = $_POST['tax_category'];
 482         $cart->tax_info['tax_group'] = $_POST['tax_group'];
 483         $taxes = get_all_tax_types();
 484         while ($tax = db_fetch($taxes))
 485         {
 486                 $tax_id = $tax['id'];
 487                 $cart->tax_info['net_amount'][$tax_id] = input_num('net_amount_'.$tax_id);
 488                 $cart->tax_info['rate'][$tax_id] = $tax['rate'];
 489         }
 490 }
 491 if (tab_opened('tabs', 'gl'))
 492 {
 493         $_POST['memo_'] = $_SESSION['journal_items']->memo_;
 494 } elseif (tab_opened('tabs', 'tax'))
 495 {
 496         $_POST['tax_category'] = $_SESSION['journal_items']->vat_category;
 497         $_SESSION['journal_items']->collect_tax_info();
 498         $_POST['tax_group'] = $_SESSION['journal_items']->tax_info['tax_group'];
 499         set_focus('tax_date');
 500 }
 501
 502
 503 $id = find_submit('Delete');
 504 if ($id != -1)
 505         handle_delete_item($id);
 506
 507 if (isset($_POST['AddItem']))
 508         handle_new_item();
 509
 510 if (isset($_POST['UpdateItem']))
 511         handle_update_item();
 512
 513 if (isset($_POST['CancelItemChanges']))
 514         line_start_focus();
 515
 516 if (isset($_POST['go']))
 517 {
 518         display_quick_entries($_SESSION['journal_items'], $_POST['quick'], input_num('totamount'), QE_JOURNAL, get_post('aux_info'));
 519         $_POST['totamount'] = price_format(0); $Ajax->activate('totamount');
 520         line_start_focus();
 521 }
 522
 523 if (list_updated('tax_category'))
 524 {
 525         $Ajax->activate('tabs');
 526 }
 527
 528 //-----------------------------------------------------------------------------------------------
 529
 530 start_form();
 531
 532 display_order_header($_SESSION['journal_items']);
 533
 534 tabbed_content_start('tabs', array(
 535                 'gl' => array(_('&GL postings'), true),
 536                 'tax' => array(_('&Tax register'), check_value('taxable_trans')),
 537         ));
 538
 539         switch (get_post('_tabs_sel')) {
 540                 default:
 541                 case 'gl':
 542                         start_table(TABLESTYLE2, "width='90%'", 10);
 543                         start_row();
 544                         echo "<td>";
 545                         display_gl_items(_("Rows"), $_SESSION['journal_items']);
 546                         gl_options_controls();
 547                         echo "</td>";
 548                         end_row();
 549                         end_table(1);
 550                         break;
 551
 552                 case 'tax':
 553                         update_tax_info();
 554                         br();
 555                         display_heading(_("Tax register record"));
 556                         br();
 557                         start_table(TABLESTYLE2, "width=40%");
 558                         date_row(_("VAT date:"), 'tax_date', '', "colspan='3'");
 559                         tax_groups_list_row(_("Tax group:"), 'tax_group');
 560                         vat_category_list_row(_("VAT category:"), 'tax_category', null, true, true);
 561                         end_table(1);
 562
 563                         start_table(TABLESTYLE2, "width=60%");
 564                         table_header(array(_('Name'), _('Input Tax'), _('Output Tax'), _('Net amount')));
 565                         $taxes = get_all_tax_types();
 566                         while ($tax = db_fetch($taxes))
 567                         {
 568                                 start_row();
 569                                 label_cell($tax['name'].' '.$tax['rate'].'%');
 570                                 amount_cell(input_num('tax_in_'.$tax['id']));
 571                                 amount_cell(input_num('tax_out_'.$tax['id']));
 572
 573                                 amount_cells(null, 'net_amount_'.$tax['id']);
 574                                 end_row();
 575                         }
 576                         end_table(1);
 577                         break;
 578         };
 579         submit_center('Process', _("Process Journal Entry"), true ,
 580                 _('Process journal entry only if debits equal to credits'), 'default');
 581 br();
 582 tabbed_content_end();
 583
 584 end_form();
 585
 586 end_page();