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 //-------------------------------------------------------------------------------------------------------------
14 function add_stock_adjustment($items, $location, $date_, $type, $increase, $reference, $memo_)
19 $args = func_get_args();
20 $args = (object)array_combine(array('items', 'location', 'date_', 'type', 'increase',
21 'reference', 'memo_'), $args);
23 hook_db_prewrite($args, ST_INVADJUST);
25 $adj_id = get_next_trans_no(ST_INVADJUST);
27 foreach ($items as $line_item)
31 $line_item->quantity = -$line_item->quantity;
33 add_stock_adjustment_item($adj_id, $line_item->stock_id, $location, $date_, $type, $reference,
34 $line_item->quantity, $line_item->standard_cost, $memo_);
37 add_comments(ST_INVADJUST, $adj_id, $date_, $memo_);
39 $Refs->save(ST_INVADJUST, $adj_id, $reference);
40 add_audit_trail(ST_INVADJUST, $adj_id, $date_);
42 $args->trans_no = $adj_id;
43 hook_db_postwrite($args, ST_INVADJUST);
49 //-------------------------------------------------------------------------------------------------------------
51 function void_stock_adjustment($type_no)
53 hook_db_prevoid(ST_INVADJUST, $type_no);
55 void_gl_trans(ST_INVADJUST, $type_no);
56 void_stock_move(ST_INVADJUST, $type_no);
59 //-------------------------------------------------------------------------------------------------------------
61 function get_stock_adjustment_items($trans_no)
63 $result = get_stock_moves(ST_INVADJUST, $trans_no);
65 if (db_num_rows($result) == 0)
73 //--------------------------------------------------------------------------------------------------
75 function add_stock_adjustment_item($adj_id, $stock_id, $location, $date_, $type, $reference,
76 $quantity, $standard_cost, $memo_)
78 $mb_flag = get_mb_flag($stock_id);
80 if (is_service($mb_flag))
82 display_db_error("Cannot do inventory adjustment for Service item : $stock_id", "");
85 //Chaitanya : If negative adjustment result in negative or zero inventory
\r
86 //then difference should be adjusted
\r
87 $qoh = get_qoh_on_date($stock_id);
\r
88 if ($qoh + $quantity <= 0 && $qoh > 0) //Positive inventory turning zero/negative
\r
92 $id = get_next_trans_no(ST_JOURNAL);
\r
93 $ref = $Refs->get_next(ST_JOURNAL);
\r
94 $diff = get_standard_cost($stock_id) - $standard_cost;
\r
96 $stock_gl_code = get_stock_gl_code($stock_id);
\r
97 $memo = _("For zero inventory of ").$stock_id." INVADJ REF: ".$reference;
\r
98 //Reverse the inventory effect if $qoh <=0
\r
99 add_gl_trans_std_cost(ST_JOURNAL, $id, $date_,
\r
100 $stock_gl_code["inventory_account"],
\r
101 $stock_gl_code['dimension_id'], $stock_gl_code['dimension2_id'], $memo,
\r
103 //GL Posting to inventory adjustment account
\r
104 add_gl_trans_std_cost(ST_JOURNAL, $id, $date_,
\r
105 $stock_gl_code["adjustment_account"],
\r
106 $stock_gl_code['dimension_id'], $stock_gl_code['dimension2_id'], $memo,
\r
109 add_audit_trail(ST_JOURNAL, $id, $date_);
\r
110 add_comments(ST_JOURNAL, $id, $date_, $memo);
\r
111 $Refs->save(ST_JOURNAL, $id, $ref);
\r
114 update_average_material_cost(null, $stock_id, $standard_cost, $quantity, $date_);
116 add_stock_move(ST_INVADJUST, $stock_id, $adj_id, $location,
117 $date_, $reference, $quantity, $standard_cost, $type);
119 if ($standard_cost > 0)
122 $stock_gl_codes = get_stock_gl_code($stock_id);
124 add_gl_trans_std_cost(ST_INVADJUST, $adj_id, $date_,
125 $stock_gl_codes['adjustment_account'], $stock_gl_codes['dimension_id'], $stock_gl_codes['dimension2_id'], $memo_, ($standard_cost * -($quantity)));
127 add_gl_trans_std_cost(ST_INVADJUST, $adj_id, $date_, $stock_gl_codes['inventory_account'], 0, 0, $memo_, ($standard_cost * $quantity));
131 //-------------------------------------------------------------------------------------------------------------