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 function add_stock_adjustment($items, $location, $date_, $reference, $memo_)
15 global $SysPrefs, $path_to_root, $Refs;
17 begin_transaction(__FUNCTION__, func_get_args());
18 $args = func_get_args();
19 $args = (object)array_combine(array('items', 'location', 'date_', 'reference', 'memo_'), $args);
21 hook_db_prewrite($args, ST_INVADJUST);
23 $adj_id = get_next_trans_no(ST_INVADJUST);
25 if ($SysPrefs->loc_notification() == 1)
27 include_once($path_to_root . "/inventory/includes/inventory_db.inc");
31 $st_reorder = array();
33 foreach ($items as $line_item)
36 if ($SysPrefs->loc_notification() == 1 && $line_item->quantity < 0)
38 $chg = $line_item; $chg->quantity= -$chg->quantity; // calculate_reorder_level expect positive qty
39 $loc = calculate_reorder_level($location, $chg, $st_ids, $st_names, $st_num, $st_reorder);
42 add_stock_adjustment_item($adj_id, $line_item->stock_id, $location, $date_, $reference,
43 $line_item->quantity, $line_item->unit_cost, $memo_);
46 add_comments(ST_INVADJUST, $adj_id, $date_, $memo_);
48 $Refs->save(ST_INVADJUST, $adj_id, $reference);
49 add_audit_trail(ST_INVADJUST, $adj_id, $date_);
51 $args->trans_no = $adj_id;
52 hook_db_postwrite($args, ST_INVADJUST);
54 if ($SysPrefs->loc_notification() == 1 && count($st_ids) > 0)
55 send_reorder_email($loc, $st_ids, $st_names, $st_num, $st_reorder);
60 //-------------------------------------------------------------------------------------------------------------
62 function void_stock_adjustment($type_no)
64 begin_transaction(__FUNCTION__, func_get_args());
65 hook_db_prevoid(ST_INVADJUST, $type_no);
66 void_gl_trans(ST_INVADJUST, $type_no);
67 void_stock_move(ST_INVADJUST, $type_no);
71 //-------------------------------------------------------------------------------------------------------------
73 function get_stock_adjustment_items($trans_no)
75 $result = get_stock_moves(ST_INVADJUST, $trans_no);
77 if (db_num_rows($result) == 0)
85 //--------------------------------------------------------------------------------------------------
87 function add_stock_adjustment_item($adj_id, $stock_id, $location, $date_, $reference,
88 $quantity, $unit_cost, $memo_)
90 $mb_flag = get_mb_flag($stock_id);
92 if (is_service($mb_flag))
94 display_db_error("Cannot do inventory adjustment for Service item : $stock_id", "");
97 update_average_material_cost(null, $stock_id, $unit_cost, $quantity, $date_);
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");
105 add_stock_move(ST_INVADJUST, $stock_id, $adj_id, $location,
106 $date_, $reference, $quantity, $unit_cost);
108 $inv_value = $unit_cost * $quantity;
109 $adj_value = $unit_cost * -($quantity);
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']) + $unit_cost) * $quantity;
118 if ($unit_cost > 0 || is_fixed_asset($mb_flag))
121 $stock_gl_codes = get_stock_gl_code($stock_id);
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 );
126 add_gl_trans_std_cost(ST_INVADJUST, $adj_id, $date_, $stock_gl_codes['inventory_account'], 0, 0, $memo_, $inv_value);
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_, ($unit_cost * -($quantity)));