[0005223] Fixed Asset Purchase, Direct Supplier Invoice: fixed invalid cost handling...
[fa-stable.git] / purchasing / includes / purchasing_db.inc
index dc9ceccd20293ae65ef70634d37428d1daf61ee3..fc076fd2d7c0ad8d63a96f013372b6b637ae72bd 100644 (file)
 include_once($path_to_root . "/purchasing/includes/supp_trans_class.inc");
 
 include_once($path_to_root . "/includes/banking.inc");
+include_once($path_to_root . "/includes/inventory.inc");
 
 include_once($path_to_root . "/includes/date_functions.inc");
 
-include_once($path_to_root . "/includes/db/inventory_db.inc");
+include_once($path_to_root . "/includes/db/allocations_db.inc");
 
 include_once($path_to_root . "/purchasing/includes/db/supp_trans_db.inc");
 include_once($path_to_root . "/purchasing/includes/db/po_db.inc");
@@ -39,7 +40,7 @@ function add_gl_trans_supplier($type, $type_no, $date_, $account, $dimension, $d
                
        return add_gl_trans($type, $type_no, $date_, $account, $dimension, $dimension2, $memo, 
                $amount, get_supplier_currency($supplier_id), 
-               payment_person_types::supplier(), $supplier_id, $err_msg, $rate);
+               PT_SUPPLIER, $supplier_id, $err_msg, $rate);
 }
 
 //----------------------------------------------------------------------------------------
@@ -47,8 +48,8 @@ function add_gl_trans_supplier($type, $type_no, $date_, $account, $dimension, $d
 function get_purchase_price($supplier_id, $stock_id)
 {
        $sql = "SELECT price, conversion_factor FROM ".TB_PREF."purch_data 
-               WHERE supplier_id = '" . $supplier_id . "' 
-               AND stock_id = '". $stock_id . "'";
+               WHERE supplier_id = ".db_escape($supplier_id) . " 
+               AND stock_id = ".db_escape($stock_id);
        $result = db_query($sql, "The supplier pricing details for " . $stock_id . " could not be retrieved");    
 
        if (db_num_rows($result) == 1)
@@ -65,8 +66,8 @@ function get_purchase_price($supplier_id, $stock_id)
 function get_purchase_conversion_factor($supplier_id, $stock_id)
 {
        $sql = "SELECT conversion_factor FROM ".TB_PREF."purch_data 
-               WHERE supplier_id = '" . $supplier_id . "' 
-               AND stock_id = '". $stock_id . "'";
+               WHERE supplier_id = ".db_escape($supplier_id)." 
+               AND stock_id = ".db_escape($stock_id);
        $result = db_query($sql, "The supplier pricing details for " . $stock_id . " could not be retrieved");    
 
        if (db_num_rows($result) == 1)
@@ -84,8 +85,8 @@ function get_purchase_conversion_factor($supplier_id, $stock_id)
 function get_purchase_data($supplier_id, $stock_id)
 {
        $sql = "SELECT * FROM ".TB_PREF."purch_data 
-               WHERE supplier_id = '" . $supplier_id . "' 
-               AND stock_id = '". $stock_id . "'";
+               WHERE supplier_id = ".db_escape($supplier_id) . "
+               AND stock_id = ".db_escape($stock_id);
        $result = db_query($sql, "The supplier pricing details for " . $stock_id . " could not be retrieved");    
 
        return db_fetch($result);
@@ -94,23 +95,133 @@ function get_purchase_data($supplier_id, $stock_id)
 function add_or_update_purchase_data($supplier_id, $stock_id, $price, $description="", $uom="")
 {
        $data = get_purchase_data($supplier_id, $stock_id);
+
+       $description = substr($description, 0, 50); // FIXME: temporary constraint to avoid db errors on long descriptions, see [0005170]
        if ($data === false)
        {
                $sql = "INSERT INTO ".TB_PREF."purch_data (supplier_id, stock_id, price, suppliers_uom,
-                       conversion_factor, supplier_description) VALUES ('$supplier_id', '$stock_id', 
-                       $price, '$uom', 1, ".db_escape($description).")";
+                       conversion_factor, supplier_description) VALUES (".db_escape($supplier_id)
+                       .", ".db_escape($stock_id).", ".db_escape($price).", "
+                       .db_escape($uom).", 1, ".db_escape($description).")";
                db_query($sql,"The supplier purchasing details could not be added");
                return;
        }       
-       $price = round($price * $data['conversion_factor'], user_price_dec());  
-       $sql = "UPDATE ".TB_PREF."purch_data SET price=$price";
+       $price = round($price * $data['conversion_factor'], user_price_dec());
+       $sql = "UPDATE ".TB_PREF."purch_data SET price=".db_escape($price);
        if ($uom != "")
-               $sql .= ",suppliers_uom='$uom'";
+               $sql .= ",suppliers_uom=".db_escape($uom);
        if ($description != "") 
                $sql .= ",supplier_description=".db_escape($description);
-       $sql .= " WHERE stock_id='$stock_id' AND supplier_id='$supplier_id'";
+       $sql .= " WHERE stock_id=".db_escape($stock_id)." AND supplier_id=".db_escape($supplier_id);
        db_query($sql,"The supplier purchasing details could not be updated");
        return true;
 }
 
-?>
\ No newline at end of file
+function get_po_prepayments($supp_trans)
+{
+       // collect purchase order line ids
+       $allocations = array();
+       $line_ids = array();
+       foreach($supp_trans->grn_items as $item)
+               if ($item->po_detail_item)
+                       $line_ids[] = $item->po_detail_item;
+
+       if (!count($line_ids))
+               return $allocations;
+
+       $sql = "SELECT DISTINCT allocs.*
+               FROM ".TB_PREF."supp_allocations allocs 
+                       LEFT JOIN ".TB_PREF."purch_order_details line ON line.order_no=allocs.trans_no_to AND trans_type_to=".ST_PURCHORDER."
+               WHERE line.po_detail_item IN(".implode(',', array_values($line_ids)).")";
+
+       $result = db_query($sql, "Cannot retrieve po prepayments");
+
+       while($dat = db_fetch($result))
+       {
+               $allocations[] = $dat;
+       }
+
+       return $allocations;
+}
+
+//---------------------------------------------------------------------------------------------------
+//
+//     Add Purchase Order, GRN or Purchase Invoice with parent auto documents (if any)
+//
+function add_direct_supp_trans($cart)
+{
+       global $Refs, $type_shortcuts;
+
+       if ($cart->trans_type != ST_PURCHORDER) {
+               // for direct grn/invoice set same dates for lines as for whole document
+               foreach ($cart->line_items as $line_no =>$line)
+                       $cart->line_items[$line_no]->req_del_date = $cart->orig_order_date;
+       }
+
+       $ref = $cart->reference;
+       if ($cart->trans_type != ST_PURCHORDER) {
+               $cart->reference = 'auto';
+               begin_transaction();    // all db changes as single transaction for direct document
+       }
+       $order_no = add_po($cart);
+       $cart->order_no = $order_no;
+
+       if ($cart->trans_type == ST_PURCHORDER)
+               return $order_no;
+
+       //Direct GRN
+       if ($cart->trans_type == ST_SUPPRECEIVE)
+               $cart->reference = $ref;
+       if ($cart->trans_type != ST_SUPPINVOICE)
+               $cart->Comments = $cart->reference; //grn does not hold supp_ref
+       foreach($cart->line_items as $key => $line)
+               $cart->line_items[$key]->receive_qty = $line->quantity;
+       $grn_no = add_grn($cart);
+       if ($cart->trans_type == ST_SUPPRECEIVE) {
+               commit_transaction(); // save PO+GRN
+               return $grn_no;
+       }
+       //      Direct Purchase Invoice
+       $inv = new supp_trans(ST_SUPPINVOICE);
+       $inv->Comments = $cart->Comments;
+       $inv->supplier_id = $cart->supplier_id;
+       $inv->tran_date = $cart->orig_order_date;
+       $inv->due_date = $cart->due_date;
+       $inv->dimension = $cart->dimension;
+       $inv->dimension2 = $cart->dimension2;
+       $inv->reference = $ref;
+       $inv->supp_reference = $cart->supp_ref;
+       $inv->tax_included = $cart->tax_included;
+       $supp = get_supplier($cart->supplier_id);
+       $inv->tax_group_id = $supp['tax_group_id'];
+       $inv->ov_amount = $inv->ov_gst = $inv->ov_discount = 0;
+       $total = 0;
+               foreach($cart->line_items as $key => $line) {
+               $inv->add_grn_to_trans($line->grn_item_id, $line->po_detail_rec, $line->stock_id,
+                       $line->item_description, $line->receive_qty, 0, $line->receive_qty,
+                       $line->price, $line->price, true, get_unit_cost($line->stock_id), '');
+               $total += round2(($line->receive_qty * $line->price), user_price_dec());
+       }
+       $inv->tax_overrides = $cart->tax_overrides;
+       if (!$inv->tax_included) {
+               $taxes = $inv->get_taxes($inv->tax_group_id, 0, false);
+               foreach( $taxes as $taxitem) {
+                       $total += isset($taxitem['Override']) ? $taxitem['Override'] : $taxitem['Value'];
+               }
+       }
+       $inv->currency = $cart->curr_code;
+       $inv->ex_rate = $cart->ex_rate;
+
+       $inv_no = add_supp_invoice($inv);
+
+       if ($cart->cash_account) {
+               $pmt_no = write_supp_payment(0, $inv->supplier_id, $cart->cash_account, $inv->tran_date, $Refs->get_next(ST_SUPPAYMENT, null, $inv->tran_date), 
+                       $total, 0, _('Payment for:').$inv->supp_reference .' ('.$type_shortcuts[ST_SUPPINVOICE].$inv_no.')' . ' ' . $cart->Comments, $cart->dimension, $cart->dimension2);
+               add_supp_allocation($total, ST_SUPPAYMENT, $pmt_no, ST_SUPPINVOICE, $inv_no, $inv->supplier_id, $inv->tran_date);
+               update_supp_trans_allocation(ST_SUPPINVOICE, $inv_no, $inv->supplier_id);
+               update_supp_trans_allocation(ST_SUPPAYMENT, $pmt_no, $inv->supplier_id);
+       }
+       commit_transaction(); // save PO+GRN+PI(+SP)
+       return $inv_no;
+}
+