inventory/includes/db/items_adjust_db.inc

   1 <?php
   2 /**********************************************************************
   3     Copyright (C) FrontAccounting, LLC.
   4         Released under the terms of the GNU General Public License, GPL,
   5         as published by the Free Software Foundation, either version 3
   6         of the License, or (at your option) any later version.
   7     This program is distributed in the hope that it will be useful,
   8     but WITHOUT ANY WARRANTY; without even the implied warranty of
   9     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  10     See the License here <http://www.gnu.org/licenses/gpl-3.0.html>.
  11 ***********************************************************************/
  12
  13 function add_stock_adjustment($items, $location, $date_, $reference, $memo_)
  14 {
  15         global $SysPrefs, $path_to_root, $Refs;
  16
  17         begin_transaction();
  18         $args = func_get_args();
  19         $args = (object)array_combine(array('items', 'location', 'date_', 'reference', 'memo_'), $args);
  20         $args->trans_no = 0;
  21         hook_db_prewrite($args, ST_INVADJUST);
  22
  23         $adj_id = get_next_trans_no(ST_INVADJUST);
  24
  25         if ($SysPrefs->loc_notification() == 1)
  26         {
  27                 include_once($path_to_root . "/inventory/includes/inventory_db.inc");
  28                 $st_ids = array();
  29                 $st_names = array();
  30                 $st_num = array();
  31                 $st_reorder = array();
  32         }
  33         foreach ($items as $line_item)
  34         {
  35
  36                 if ($SysPrefs->loc_notification() == 1 && $line_item->quantity < 0)
  37                 {
  38                         $tmp = $line_item->quantity;
  39                         $line_item->quantity = -$line_item->quantity;   // calculate_reorder_level expect positive qty
  40                         $loc = calculate_reorder_level($location, $line_item, $st_ids, $st_names, $st_num, $st_reorder);
  41                         $line_item->quantity = $tmp;
  42                 }
  43
  44                 add_stock_adjustment_item($adj_id, $line_item->stock_id, $location, $date_, $reference,
  45                         $line_item->quantity, $line_item->standard_cost, $memo_);
  46         }
  47
  48         add_comments(ST_INVADJUST, $adj_id, $date_, $memo_);
  49
  50         $Refs->save(ST_INVADJUST, $adj_id, $reference);
  51         add_audit_trail(ST_INVADJUST, $adj_id, $date_);
  52
  53         $args->trans_no = $adj_id;
  54         hook_db_postwrite($args, ST_INVADJUST);
  55         commit_transaction();
  56         if ($SysPrefs->loc_notification() == 1 && count($st_ids) > 0)
  57                 send_reorder_email($loc, $st_ids, $st_names, $st_num, $st_reorder);
  58
  59         return $adj_id;
  60 }
  61
  62 //-------------------------------------------------------------------------------------------------------------
  63
  64 function void_stock_adjustment($type_no)
  65 {
  66         hook_db_prevoid(ST_INVADJUST, $type_no);
  67         void_gl_trans(ST_INVADJUST, $type_no);
  68         void_stock_move(ST_INVADJUST, $type_no);
  69 }
  70
  71 //-------------------------------------------------------------------------------------------------------------
  72
  73 function get_stock_adjustment_items($trans_no)
  74 {
  75         $result = get_stock_moves(ST_INVADJUST, $trans_no);
  76
  77         if (db_num_rows($result) == 0)
  78         {
  79                 return null;
  80         }
  81
  82         return $result;
  83 }
  84
  85 //--------------------------------------------------------------------------------------------------
  86
  87 function add_stock_adjustment_item($adj_id, $stock_id, $location, $date_, $reference,
  88         $quantity, $standard_cost, $memo_)
  89 {
  90         $mb_flag = get_mb_flag($stock_id);
  91
  92     if (is_service($mb_flag))
  93     {
  94         display_db_error("Cannot do inventory adjustment for Service item : $stock_id", "");
  95     }
  96
  97         update_average_material_cost(null, $stock_id, $standard_cost, $quantity, $date_);
  98
  99         if (is_fixed_asset($mb_flag)) {
 100                 $sql = "UPDATE ".TB_PREF."stock_master SET inactive=1
 101                         WHERE stock_id=".db_escape($stock_id);
 102                 db_query($sql,"The inactive flag for the fixed asset could not be updated");
 103         }
 104
 105         add_stock_move(ST_INVADJUST, $stock_id, $adj_id, $location,
 106         $date_, $reference, $quantity, $standard_cost);
 107
 108         $inv_value = $standard_cost * $quantity;
 109         $adj_value = $standard_cost * -($quantity);
 110
 111         if (is_fixed_asset($mb_flag)) {
 112                 // get the initial value of the fixed assset.
 113                 $row = get_fixed_asset_move($stock_id, ST_SUPPRECEIVE);
 114                 $inv_value = $row['price'] * $quantity;
 115                 $adj_value = (-($row['price']) + $standard_cost) * $quantity;
 116         }
 117
 118         if ($standard_cost > 0 || is_fixed_asset($mb_flag))
 119         {
 120
 121                 $stock_gl_codes = get_stock_gl_code($stock_id);
 122
 123                 add_gl_trans_std_cost(ST_INVADJUST, $adj_id, $date_,
 124                         $stock_gl_codes['adjustment_account'], $stock_gl_codes['dimension_id'], $stock_gl_codes['dimension2_id'], $memo_, $adj_value  );
 125
 126                 add_gl_trans_std_cost(ST_INVADJUST, $adj_id, $date_, $stock_gl_codes['inventory_account'], 0, 0, $memo_, $inv_value);
 127         }
 128
 129         if (is_fixed_asset($mb_flag)) {
 130                 // Additional gl entry for fixed asset.
 131                 $grn_act = get_company_pref('default_loss_on_asset_disposal_act');
 132                 add_gl_trans_std_cost(ST_INVADJUST, $adj_id, $date_, $grn_act, 0, 0, $memo_, ($standard_cost * -($quantity)));
 133         }
 134 }