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                         $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
 142                         $tax_info['tax_date'] = sql2date($detail['tran_date']);
 143                         //$tax_info['tax_group'] = $detail['tax_group_id'];
 144
 145                 }
 146                 if (isset($tax_info['net_amount']))     // guess exempt sales/purchase if any tax has been found
 147                 {
 148                         $net_sum = 0;
 149                         foreach($cart->gl_items as $gl)
 150                                 if (!is_tax_account($gl->code_id) && !is_subledger_account($gl->code_id, $gl->person_id))
 151                                         $net_sum += $gl->amount;
 152
 153                         $ex_net = abs($net_sum) - array_sum($tax_info['net_amount']);
 154                         if ($ex_net > 0)
 155                                 $tax_info['net_amount_ex'] = $ex_net;
 156                 }
 157                 $cart->tax_info = $tax_info;
 158
 159         } else {
 160                 $cart->tran_date = $cart->doc_date = $cart->event_date = new_doc_date();
 161                 if (!is_date_in_fiscalyear($cart->tran_date))
 162                         $cart->tran_date = end_fiscalyear();
 163                 $cart->reference = $Refs->get_next(ST_JOURNAL, null, $cart->tran_date);
 164         }
 165
 166         $_POST['memo_'] = $cart->memo_;
 167         $_POST['ref'] = $cart->reference;
 168         $_POST['date_'] = $cart->tran_date;
 169         $_POST['event_date'] = $cart->event_date;
 170         $_POST['doc_date'] = $cart->doc_date;
 171         $_POST['currency'] = $cart->currency;
 172         $_POST['_ex_rate'] = exrate_format($cart->rate);
 173         $_POST['source_ref'] = $cart->source_ref;
 174         if (isset($cart->tax_info['net_amount']) || (!$trans_no && get_company_pref('default_gl_vat')))
 175                 $_POST['taxable_trans'] = true;
 176         $_SESSION['journal_items'] = &$cart;
 177 }
 178
 179 function update_tax_info()
 180 {
 181
 182         if (!isset($_SESSION['journal_items']->tax_info) || list_updated('tax_category'))
 183                 $_SESSION['journal_items']->tax_info = $_SESSION['journal_items']->collect_tax_info();
 184
 185         foreach ($_SESSION['journal_items']->tax_info as $name => $value)
 186                 if (is_array($value))
 187                 {
 188                         foreach ($value as $id => $amount)
 189                         {
 190                                 $_POST[$name.'_'.$id] = price_format($amount);
 191                         }
 192                 } else
 193                         $_POST[$name] = $value;
 194         $_POST['tax_date'] = $_SESSION['journal_items']->order_id ? $_SESSION['journal_items']->tax_info['tax_date'] : $_POST['date_'];
 195 }
 196
 197 //-----------------------------------------------------------------------------------------------
 198 if (isset($_POST['Process']))
 199 {
 200         $input_error = 0;
 201
 202         if ($_SESSION['journal_items']->count_gl_items() < 1) {
 203                 display_error(_("You must enter at least one journal line."));
 204                 set_focus('code_id');
 205                 $input_error = 1;
 206         }
 207         if (abs($_SESSION['journal_items']->gl_items_total()) > 0.001)
 208         {
 209                 display_error(_("The journal must balance (debits equal to credits) before it can be processed."));
 210                 set_focus('code_id');
 211                 $input_error = 1;
 212         }
 213
 214         if (!is_date($_POST['date_']))
 215         {
 216                 display_error(_("The entered date is invalid."));
 217                 set_focus('date_');
 218                 $input_error = 1;
 219         }
 220         elseif (!is_date_in_fiscalyear($_POST['date_']))
 221         {
 222                 display_error(_("The entered date is out of fiscal year or is closed for further data entry."));
 223                 set_focus('date_');
 224                 $input_error = 1;
 225         }
 226         if (!is_date($_POST['event_date']))
 227         {
 228                 display_error(_("The entered date is invalid."));
 229                 set_focus('event_date');
 230                 $input_error = 1;
 231         }
 232         if (!is_date($_POST['doc_date']))
 233         {
 234                 display_error(_("The entered date is invalid."));
 235                 set_focus('doc_date');
 236                 $input_error = 1;
 237         }
 238         if (!check_reference($_POST['ref'], ST_JOURNAL, $_SESSION['journal_items']->order_id))
 239         {
 240                 set_focus('ref');
 241                 $input_error = 1;
 242         }
 243         if (get_post('currency') != get_company_pref('curr_default'))
 244                 if (isset($_POST['_ex_rate']) && !check_num('_ex_rate', 0.000001))
 245                 {
 246                         display_error(_("The exchange rate must be numeric and greater than zero."));
 247                         set_focus('_ex_rate');
 248                 $input_error = 1;
 249                 }
 250
 251         if (get_post('_tabs_sel') == 'tax')
 252         {
 253                 if (!is_date($_POST['tax_date']))
 254                 {
 255                         display_error(_("The entered date is invalid."));
 256                         set_focus('tax_date');
 257                         $input_error = 1;
 258                 }
 259                 elseif (!is_date_in_fiscalyear($_POST['tax_date']))
 260                 {
 261                         display_error(_("The entered date is out of fiscal year or is closed for further data entry."));
 262                         set_focus('tax_date');
 263                         $input_error = 1;
 264                 }
 265                 // FIXME: check proper tax net input values, check sum of net values against total GL an issue warning
 266         }
 267
 268         if (check_value('taxable_trans'))
 269         {
 270                 if (!tab_visible('tabs', 'tax'))
 271                 {
 272                         display_warning(_("Check tax register records before processing transaction or switch off 'Include in tax register' option."));
 273                         $_POST['tabs_tax'] = true; // force tax tab select
 274                         $input_error = 1;
 275                 } else {
 276                         $taxes = get_all_tax_types();
 277                         $net_amount = 0;
 278                         while ($tax = db_fetch($taxes))
 279                         {
 280                                 $tax_id = $tax['id'];
 281                                 $net_amount += input_num('net_amount_'.$tax_id);
 282                         }
 283                         // in case no tax account used we have to guss tax register on customer/supplier used.
 284                         if ($net_amount && !$_SESSION['journal_items']->has_taxes() && !$_SESSION['journal_items']->has_sub_accounts())
 285                         {
 286                                 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."));
 287                                 $_POST['tabs_gl'] = true; // force gl tab select
 288                                 $input_error = 1;
 289                         }
 290                 }
 291         }
 292
 293         if ($input_error == 1)
 294                 unset($_POST['Process']);
 295 }
 296
 297 if (isset($_POST['Process']))
 298 {
 299         $cart = &$_SESSION['journal_items'];
 300         $new = $cart->order_id == 0;
 301
 302         $cart->reference = $_POST['ref'];
 303         $cart->tran_date = $_POST['date_'];
 304         $cart->doc_date = $_POST['doc_date'];
 305         $cart->event_date = $_POST['event_date'];
 306         $cart->source_ref = $_POST['source_ref'];
 307         if (isset($_POST['memo_']))
 308                 $cart->memo_ = $_POST['memo_'];
 309
 310         $cart->currency = $_POST['currency'];
 311         if ($cart->currency != get_company_pref('curr_default'))
 312                 $cart->rate = input_num('_ex_rate');
 313
 314         if (check_value('taxable_trans'))
 315         {
 316                 // complete tax register data
 317                 $cart->tax_info['tax_date'] = $_POST['tax_date'];
 318                 //$cart->tax_info['tax_group'] = $_POST['tax_group'];
 319                 $taxes = get_all_tax_types();
 320                 while ($tax = db_fetch($taxes))
 321                 {
 322                         $tax_id = $tax['id'];
 323                         $cart->tax_info['net_amount'][$tax_id] = input_num('net_amount_'.$tax_id);
 324                         $cart->tax_info['rate'][$tax_id] = $tax['rate'];
 325                 }
 326         } else
 327                 $cart->tax_info = false;
 328         $trans_no = write_journal_entries($cart);
 329
 330         // retain the reconciled status if desired by user
 331         if (isset($_POST['reconciled'])
 332             && $_POST['reconciled'] == 1) {
 333             $sql = "UPDATE ".TB_PREF."bank_trans SET reconciled=".db_escape($_POST['reconciled_date'])
 334                 ." WHERE type=" . ST_JOURNAL . " AND trans_no=".db_escape($trans_no);
 335
 336             db_query($sql, "Can't change reconciliation status");
 337         }
 338
 339         $cart->clear_items();
 340         new_doc_date($_POST['date_']);
 341         unset($_SESSION['journal_items']);
 342         if($new)
 343                 meta_forward($_SERVER['PHP_SELF'], "AddedID=$trans_no");
 344         else
 345                 meta_forward($_SERVER['PHP_SELF'], "UpdatedID=$trans_no");
 346 }
 347
 348 //-----------------------------------------------------------------------------------------------
 349
 350 function check_item_data()
 351 {
 352         global $Ajax;
 353
 354         if (!get_post('code_id')) {
 355                 display_error(_("You must select GL account."));
 356                 set_focus('code_id');
 357                 return false;
 358         }
 359         if (is_subledger_account(get_post('code_id'))) {
 360                 if(!get_post('person_id')) {
 361                         display_error(_("You must select subledger account."));
 362                         $Ajax->activate('items_table');
 363                         set_focus('person_id');
 364                         return false;
 365                 }
 366         }
 367         if (isset($_POST['dimension_id']) && $_POST['dimension_id'] != 0 && dimension_is_closed($_POST['dimension_id']))
 368         {
 369                 display_error(_("Dimension is closed."));
 370                 set_focus('dimension_id');
 371                 return false;
 372         }
 373
 374         if (isset($_POST['dimension2_id']) && $_POST['dimension2_id'] != 0 && dimension_is_closed($_POST['dimension2_id']))
 375         {
 376                 display_error(_("Dimension is closed."));
 377                 set_focus('dimension2_id');
 378                 return false;
 379         }
 380
 381         if (!(input_num('AmountDebit')!=0 ^ input_num('AmountCredit')!=0) )
 382         {
 383                 display_error(_("You must enter either a debit amount or a credit amount."));
 384                 set_focus('AmountDebit');
 385                 return false;
 386         }
 387
 388         if (strlen($_POST['AmountDebit']) && !check_num('AmountDebit', 0))
 389         {
 390                 display_error(_("The debit amount entered is not a valid number or is less than zero."));
 391                 set_focus('AmountDebit');
 392                 return false;
 393         } elseif (strlen($_POST['AmountCredit']) && !check_num('AmountCredit', 0))
 394         {
 395                 display_error(_("The credit amount entered is not a valid number or is less than zero."));
 396                 set_focus('AmountCredit');
 397                 return false;
 398         }
 399
 400         if (!is_tax_gl_unique(get_post('code_id'))) {
 401                 display_error(_("Cannot post to GL account used by more than one tax type."));
 402                 set_focus('code_id');
 403                 return false;
 404         }
 405
 406         if (!$_SESSION["wa_current_user"]->can_access('SA_BANKJOURNAL') && is_bank_account($_POST['code_id']))
 407         {
 408                 display_error(_("You cannot make a journal entry for a bank account. Please use one of the banking functions for bank transactions."));
 409                 set_focus('code_id');
 410                 return false;
 411         }
 412
 413         return true;
 414 }
 415
 416 //-----------------------------------------------------------------------------------------------
 417
 418 function handle_update_item()
 419 {
 420     if($_POST['UpdateItem'] != "" && check_item_data())
 421     {
 422         if (input_num('AmountDebit') > 0)
 423                 $amount = input_num('AmountDebit');
 424         else
 425                 $amount = -input_num('AmountCredit');
 426
 427         $_SESSION['journal_items']->update_gl_item($_POST['Index'], $_POST['code_id'],
 428             $_POST['dimension_id'], $_POST['dimension2_id'], $amount, $_POST['LineMemo'], '', get_post('person_id'));
 429         unset($_SESSION['journal_items']->tax_info);
 430                 line_start_focus();
 431     }
 432 }
 433
 434 //-----------------------------------------------------------------------------------------------
 435
 436 function handle_delete_item($id)
 437 {
 438         $_SESSION['journal_items']->remove_gl_item($id);
 439         unset($_SESSION['journal_items']->tax_info);
 440         line_start_focus();
 441 }
 442
 443 //-----------------------------------------------------------------------------------------------
 444
 445 function handle_new_item()
 446 {
 447         if (!check_item_data())
 448                 return;
 449
 450         if (input_num('AmountDebit') > 0)
 451                 $amount = input_num('AmountDebit');
 452         else
 453                 $amount = -input_num('AmountCredit');
 454
 455         $_SESSION['journal_items']->add_gl_item($_POST['code_id'], $_POST['dimension_id'],
 456                 $_POST['dimension2_id'], $amount, $_POST['LineMemo'], '', get_post('person_id'));
 457         unset($_SESSION['journal_items']->tax_info);
 458         line_start_focus();
 459 }
 460
 461 //-----------------------------------------------------------------------------------------------
 462 if (isset($_POST['_taxable_trans_update']))
 463 {       if (!check_value('taxable_trans'))
 464                 $_POST['tabs_gl'] = true; // force tax tab select
 465         else
 466                 set_focus('taxable_trans');
 467         $Ajax->activate('tabs');
 468 }
 469
 470 if (tab_closed('tabs', 'gl'))
 471 {
 472         $_SESSION['journal_items']->memo_ = $_POST['memo_'];
 473 }
 474  elseif (tab_closed('tabs', 'tax'))
 475 {
 476         $cart = &$_SESSION['journal_items'];
 477         $cart->tax_info['tax_date'] = $_POST['tax_date'];
 478         //$cart->tax_info['tax_group'] = $_POST['tax_group'];
 479         $taxes = get_all_tax_types();
 480         while ($tax = db_fetch($taxes))
 481         {
 482                 $tax_id = $tax['id'];
 483                 $cart->tax_info['net_amount'][$tax_id] = input_num('net_amount_'.$tax_id);
 484                 $cart->tax_info['rate'][$tax_id] = $tax['rate'];
 485         }
 486 }
 487 if (tab_opened('tabs', 'gl'))
 488 {
 489         $_POST['memo_'] = $_SESSION['journal_items']->memo_;
 490 } elseif (tab_opened('tabs', 'tax'))
 491 {
 492         set_focus('tax_date');
 493 }
 494
 495
 496 $id = find_submit('Delete');
 497 if ($id != -1)
 498         handle_delete_item($id);
 499
 500 if (isset($_POST['AddItem']))
 501         handle_new_item();
 502
 503 if (isset($_POST['UpdateItem']))
 504         handle_update_item();
 505
 506 if (isset($_POST['CancelItemChanges']))
 507         line_start_focus();
 508
 509 if (isset($_POST['go']))
 510 {
 511         display_quick_entries($_SESSION['journal_items'], $_POST['quick'], input_num('totamount'), QE_JOURNAL, get_post('aux_info'));
 512         $_POST['totamount'] = price_format(0); $Ajax->activate('totamount');
 513         line_start_focus();
 514 }
 515
 516 if (list_updated('tax_category'))
 517 {
 518         $Ajax->activate('tabs');
 519 }
 520
 521 //-----------------------------------------------------------------------------------------------
 522
 523 start_form();
 524
 525 display_order_header($_SESSION['journal_items']);
 526
 527 tabbed_content_start('tabs', array(
 528                 'gl' => array(_('&GL postings'), true),
 529                 'tax' => array(_('&Tax register'), check_value('taxable_trans')),
 530         ));
 531
 532         switch (get_post('_tabs_sel')) {
 533                 default:
 534                 case 'gl':
 535                         start_table(TABLESTYLE2, "width='90%'", 10);
 536                         start_row();
 537                         echo "<td>";
 538                         display_gl_items(_("Rows"), $_SESSION['journal_items']);
 539                         gl_options_controls();
 540                         echo "</td>";
 541                         end_row();
 542                         end_table(1);
 543                         break;
 544
 545                 case 'tax':
 546                         update_tax_info();
 547                         br();
 548                         display_heading(_("Tax register record"));
 549                         br();
 550                         start_table(TABLESTYLE2, "width=40%");
 551                         date_row(_("VAT date:"), 'tax_date', '', "colspan='3'");
 552                         //tax_groups_list_row(_("Tax group:"), 'tax_group');
 553                         end_table(1);
 554
 555                         start_table(TABLESTYLE2, "width=60%");
 556                         table_header(array(_('Name'), _('Input Tax'), _('Output Tax'), _('Net amount')));
 557                         $taxes = get_all_tax_types();
 558                         while ($tax = db_fetch($taxes))
 559                         {
 560                                 start_row();
 561                                 label_cell($tax['name'].' '.$tax['rate'].'%');
 562                                 amount_cell(input_num('tax_in_'.$tax['id']));
 563                                 amount_cell(input_num('tax_out_'.$tax['id']));
 564
 565                                 amount_cells(null, 'net_amount_'.$tax['id']);
 566                                 end_row();
 567                         }
 568                         end_table(1);
 569                         break;
 570         };
 571         submit_center('Process', _("Process Journal Entry"), true ,
 572                 _('Process journal entry only if debits equal to credits'), 'default');
 573 br();
 574 tabbed_content_end();
 575
 576 end_form();
 577
 578 end_page();