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