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_transfer($Items, $location_from, $location_to, $date_, $reference, $memo_)
16 global $SysPrefs, $path_to_root, $Refs;
19 $args = func_get_args();
20 $args = (object)array_combine(array('Items', 'location_from', 'location_to',
21 'date_', 'reference', 'memo_'), $args);
23 hook_db_prewrite($args, ST_LOCTRANSFER);
25 $transfer_id = get_next_trans_no(ST_LOCTRANSFER);
27 if ($SysPrefs->loc_notification() == 1)
29 include_once($path_to_root . "/inventory/includes/inventory_db.inc");
33 $st_reorder = array();
35 foreach ($Items as $line_item)
37 if ($SysPrefs->loc_notification() == 1)
38 $loc = calculate_reorder_level($location_from, $line_item, $st_ids, $st_names, $st_num, $st_reorder);
39 add_stock_transfer_item($transfer_id, $line_item->stock_id, $location_from,
40 $location_to, $date_, $reference, $line_item->quantity);
43 add_comments(ST_LOCTRANSFER, $transfer_id, $date_, $memo_);
45 $Refs->save(ST_LOCTRANSFER, $transfer_id, $reference);
46 add_audit_trail(ST_LOCTRANSFER, $transfer_id, $date_);
48 $args->trans_no = $transfer_id;
49 hook_db_postwrite($args, ST_LOCTRANSFER);
53 if ($SysPrefs->loc_notification() == 1 && count($st_ids) > 0)
54 send_reorder_email($loc, $st_ids, $st_names, $st_num, $st_reorder);
59 //-------------------------------------------------------------------------------------------------------------
61 // add 2 stock_moves entries for a stock transfer
62 // $date_ is display date (not sql)
63 // std_cost is in HOME currency
64 // it seems the standard_cost field is not used at all
66 function add_stock_transfer_item($transfer_id, $stock_id, $location_from, $location_to,
67 $date_, $reference, $quantity)
69 add_stock_move(ST_LOCTRANSFER, $stock_id, $transfer_id, $location_from,
70 $date_, $reference, -$quantity, 0);
72 add_stock_move(ST_LOCTRANSFER, $stock_id, $transfer_id, $location_to,
73 $date_, $reference, $quantity, 0);
77 //-------------------------------------------------------------------------------------------------------------
79 // Get inventory transfer common data (currently this is still stored in stock_moves table).
81 function get_stock_transfer($trans_no)
83 // retrieve common data from any two from/to move records
84 $sql = "SELECT loc_from.*, loc_to.*
86 (SELECT trans_no, type, tran_date, reference, move.loc_code as from_loc, loc.location_name as from_name
87 FROM ".TB_PREF."stock_moves move
88 LEFT JOIN ".TB_PREF."locations loc ON loc.loc_code=move.loc_code
89 WHERE type=".ST_LOCTRANSFER." AND trans_no=".db_escape($trans_no). " AND qty<0 LIMIT 1) loc_from,
91 (SELECT move.loc_code as to_loc, loc.location_name as to_name
92 FROM ".TB_PREF."stock_moves move
93 LEFT JOIN ".TB_PREF."locations loc ON loc.loc_code=move.loc_code
94 WHERE type=".ST_LOCTRANSFER." AND trans_no=".db_escape($trans_no). " AND qty>0 LIMIT 1) loc_to";
96 $result = db_query($sql, "Could not get transfer common data");
98 $data = db_fetch($result);
103 //-------------------------------------------------------------------------------------------------------------
105 function get_stock_transfer_items($trans_no)
107 $result = get_stock_moves(ST_LOCTRANSFER, $trans_no);
109 if (db_num_rows($result) == 0)
117 //-------------------------------------------------------------------------------------------------------------
119 function void_stock_transfer($type_no)
121 hook_db_prevoid(ST_LOCTRANSFER, $type_no);
122 void_stock_move(ST_LOCTRANSFER, $type_no);