Moving backend procedures from Direct GRN/Direct Supplier Invoice to purchasing_db...

[fa-stable.git] / purchasing / includes / purchasing_db.inc

diff --git a/purchasing/includes/purchasing_db.inc b/purchasing/includes/purchasing_db.inc
index ac9e5e5e6d4991144517ba4c5527b55eb2add739..8e49f5902710c6937b1d2724ecae4fe1d3bd41d7 100644 (file)
--- a/purchasing/includes/purchasing_db.inc
+++ b/purchasing/includes/purchasing_db.inc
@@ -140,4 +140,89 @@ function get_po_prepayments($supp_trans)
 
        return $allocations;
 }
-?>
\ No newline at end of file
+
+//---------------------------------------------------------------------------------------------------
+//
+//     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->reference = $ref;
+       $inv->supp_reference = $cart->supp_ref;
+       $inv->tax_included = $cart->tax_included;
+       $inv->tax_algorithm = $cart->tax_algorithm;
+       $inv->stored_algorithm = $cart->stored_algorithm;
+       $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_standard_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, $inv->tax_algorithm);
+               foreach( $taxes as $taxitem) {
+                       $total += isset($taxitem['Override']) ? $taxitem['Override'] : $taxitem['Value'];
+               }
+       }
+       $inv->ex_rate = $cart->ex_rate;
+
+       $inv_no = add_supp_invoice($inv);
+       // presume supplier data need correction
+       if ($inv->stored_algorithm != $inv->tax_algorithm)
+               update_supp_tax_algorithm($inv->supplier_id, $inv->tax_algorithm);
+
+       if ($cart->cash_account) {
+
+               $pmt_no = add_supp_payment($inv->supplier_id, $inv->tran_date, $cart->cash_account,
+                       $total, 0,      $Refs->get_next(ST_SUPPAYMENT), 
+                       _('Payment for:').$inv->supp_reference .' ('.$type_shortcuts[ST_SUPPINVOICE].$inv_no.')');
+               add_supp_allocation($total, ST_SUPPAYMENT, $pmt_no, ST_SUPPINVOICE, $inv_no, $inv->tran_date);
+               update_supp_trans_allocation(ST_SUPPINVOICE, $inv_no);
+               update_supp_trans_allocation(ST_SUPPAYMENT, $pmt_no);
+       }
+       commit_transaction(); // save PO+GRN+PI(+SP)
+       return $inv_no;
+}
+