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 include_once($path_to_root . "/purchasing/includes/supp_trans_class.inc");
14 include_once($path_to_root . "/includes/banking.inc");
15 include_once($path_to_root . "/includes/inventory.inc");
17 include_once($path_to_root . "/includes/date_functions.inc");
19 include_once($path_to_root . "/includes/db/allocations_db.inc");
21 include_once($path_to_root . "/purchasing/includes/db/supp_trans_db.inc");
22 include_once($path_to_root . "/purchasing/includes/db/po_db.inc");
23 include_once($path_to_root . "/purchasing/includes/db/grn_db.inc");
24 include_once($path_to_root . "/purchasing/includes/db/invoice_db.inc");
25 include_once($path_to_root . "/purchasing/includes/db/suppalloc_db.inc");
26 include_once($path_to_root . "/purchasing/includes/db/supp_payment_db.inc");
27 include_once($path_to_root . "/purchasing/includes/db/suppliers_db.inc");
29 //-------------------------------------------------------------------------------------------------------------
31 // add a supplier-related gl transaction
32 // $date_ is display date (non-sql)
33 // $amount is in SUPPLIERS'S currency
35 function add_gl_trans_supplier($type, $type_no, $date_, $account, $dimension, $dimension2,
36 $amount, $supplier_id, $err_msg="", $rate=0, $memo="")
39 $err_msg = "The supplier GL transaction could not be inserted";
41 return add_gl_trans($type, $type_no, $date_, $account, $dimension, $dimension2, $memo,
42 $amount, get_supplier_currency($supplier_id),
43 PT_SUPPLIER, $supplier_id, $err_msg, $rate);
46 //----------------------------------------------------------------------------------------
48 function get_purchase_price($supplier_id, $stock_id)
50 $sql = "SELECT price, conversion_factor FROM ".TB_PREF."purch_data
51 WHERE supplier_id = ".db_escape($supplier_id) . "
52 AND stock_id = ".db_escape($stock_id);
53 $result = db_query($sql, "The supplier pricing details for " . $stock_id . " could not be retrieved");
55 if (db_num_rows($result) == 1)
57 $myrow = db_fetch($result);
58 return $myrow["price"] / $myrow['conversion_factor'];
66 function get_purchase_conversion_factor($supplier_id, $stock_id)
68 $sql = "SELECT conversion_factor FROM ".TB_PREF."purch_data
69 WHERE supplier_id = ".db_escape($supplier_id)."
70 AND stock_id = ".db_escape($stock_id);
71 $result = db_query($sql, "The supplier pricing details for " . $stock_id . " could not be retrieved");
73 if (db_num_rows($result) == 1)
75 $myrow = db_fetch($result);
76 return $myrow['conversion_factor'];
83 //----------------------------------------------------------------------------------------
85 function get_purchase_data($supplier_id, $stock_id)
87 $sql = "SELECT * FROM ".TB_PREF."purch_data
88 WHERE supplier_id = ".db_escape($supplier_id) . "
89 AND stock_id = ".db_escape($stock_id);
90 $result = db_query($sql, "The supplier pricing details for " . $stock_id . " could not be retrieved");
92 return db_fetch($result);
95 function add_or_update_purchase_data($supplier_id, $stock_id, $price, $description="", $uom="")
97 $data = get_purchase_data($supplier_id, $stock_id);
99 $description = substr($description, 0, 50); // FIXME: temporary constraint to avoid db errors on long descriptions, see [0005170]
102 $sql = "INSERT INTO ".TB_PREF."purch_data (supplier_id, stock_id, price, suppliers_uom,
103 conversion_factor, supplier_description) VALUES (".db_escape($supplier_id)
104 .", ".db_escape($stock_id).", ".db_escape($price).", "
105 .db_escape($uom).", 1, ".db_escape($description).")";
106 db_query($sql,"The supplier purchasing details could not be added");
109 $price = round($price * $data['conversion_factor'], user_price_dec());
110 $sql = "UPDATE ".TB_PREF."purch_data SET price=".db_escape($price);
112 $sql .= ",suppliers_uom=".db_escape($uom);
113 if ($description != "")
114 $sql .= ",supplier_description=".db_escape($description);
115 $sql .= " WHERE stock_id=".db_escape($stock_id)." AND supplier_id=".db_escape($supplier_id);
116 db_query($sql,"The supplier purchasing details could not be updated");
120 function get_po_prepayments($supp_trans)
122 // collect purchase order line ids
123 $allocations = array();
125 foreach($supp_trans->grn_items as $item)
126 if ($item->po_detail_item)
127 $line_ids[] = $item->po_detail_item;
129 if (!count($line_ids))
132 $sql = "SELECT DISTINCT allocs.*
133 FROM ".TB_PREF."supp_allocations allocs
134 LEFT JOIN ".TB_PREF."purch_order_details line ON line.order_no=allocs.trans_no_to AND trans_type_to=".ST_PURCHORDER."
135 WHERE line.po_detail_item IN(".implode(',', array_values($line_ids)).")";
137 $result = db_query($sql, "Cannot retrieve po prepayments");
139 while($dat = db_fetch($result))
141 $allocations[] = $dat;
147 //---------------------------------------------------------------------------------------------------
149 // Add Purchase Order, GRN or Purchase Invoice with parent auto documents (if any)
151 function add_direct_supp_trans($cart)
153 global $Refs, $type_shortcuts;
155 if ($cart->trans_type != ST_PURCHORDER) {
156 // for direct grn/invoice set same dates for lines as for whole document
157 foreach ($cart->line_items as $line_no =>$line)
158 $cart->line_items[$line_no]->req_del_date = $cart->orig_order_date;
161 $ref = $cart->reference;
162 if ($cart->trans_type != ST_PURCHORDER) {
163 $cart->reference = 'auto';
164 begin_transaction(); // all db changes as single transaction for direct document
166 $order_no = add_po($cart);
167 $cart->order_no = $order_no;
169 if ($cart->trans_type == ST_PURCHORDER)
173 if ($cart->trans_type == ST_SUPPRECEIVE)
174 $cart->reference = $ref;
175 if ($cart->trans_type != ST_SUPPINVOICE)
176 $cart->Comments = $cart->reference; //grn does not hold supp_ref
177 foreach($cart->line_items as $key => $line)
178 $cart->line_items[$key]->receive_qty = $line->quantity;
179 $grn_no = add_grn($cart);
180 if ($cart->trans_type == ST_SUPPRECEIVE) {
181 commit_transaction(); // save PO+GRN
184 // Direct Purchase Invoice
185 $inv = new supp_trans(ST_SUPPINVOICE);
186 $inv->Comments = $cart->Comments;
187 $inv->supplier_id = $cart->supplier_id;
188 $inv->tran_date = $cart->orig_order_date;
189 $inv->due_date = $cart->due_date;
190 $inv->dimension = $cart->dimension;
191 $inv->dimension2 = $cart->dimension2;
192 $inv->reference = $ref;
193 $inv->supp_reference = $cart->supp_ref;
194 $inv->tax_included = $cart->tax_included;
195 $supp = get_supplier($cart->supplier_id);
196 $inv->tax_group_id = $supp['tax_group_id'];
197 $inv->ov_amount = $inv->ov_gst = $inv->ov_discount = 0;
199 foreach($cart->line_items as $key => $line) {
200 $inv->add_grn_to_trans($line->grn_item_id, $line->po_detail_rec, $line->stock_id,
201 $line->item_description, $line->receive_qty, 0, $line->receive_qty,
202 $line->price, $line->price, true, get_unit_cost($line->stock_id), '');
203 $total += round2(($line->receive_qty * $line->price), user_price_dec());
205 $inv->tax_overrides = $cart->tax_overrides;
206 if (!$inv->tax_included) {
207 $taxes = $inv->get_taxes($inv->tax_group_id, 0, false);
208 foreach( $taxes as $taxitem) {
209 $total += isset($taxitem['Override']) ? $taxitem['Override'] : $taxitem['Value'];
212 $inv->currency = $cart->curr_code;
213 $inv->ex_rate = $cart->ex_rate;
215 $inv_no = add_supp_invoice($inv);
217 if ($cart->cash_account) {
218 $pmt_no = write_supp_payment(0, $inv->supplier_id, $cart->cash_account, $inv->tran_date, $Refs->get_next(ST_SUPPAYMENT, null, $inv->tran_date),
219 $total, 0, _('Payment for:').$inv->supp_reference .' ('.$type_shortcuts[ST_SUPPINVOICE].$inv_no.')' . ' ' . $cart->Comments, $cart->dimension, $cart->dimension2);
220 add_supp_allocation($total, ST_SUPPAYMENT, $pmt_no, ST_SUPPINVOICE, $inv_no, $inv->supplier_id, $inv->tran_date);
221 update_supp_trans_allocation(ST_SUPPINVOICE, $inv_no, $inv->supplier_id);
222 update_supp_trans_allocation(ST_SUPPAYMENT, $pmt_no, $inv->supplier_id);
224 commit_transaction(); // save PO+GRN+PI(+SP)