<?php
/**********************************************************************
***********************************************************************/
//-----------------------------------------------------------------------------
//	Add or update Sales Invoice
//
function write_sales_invoice(&$invoice)
{
	global $Refs;

	$trans_no = $invoice->trans_no;
	if (is_array($trans_no)){
		$trans_no = key($trans_no);
        }

        // set invoice number to zero. debtor trans puts the next number
	$date_ = $invoice->document_date;
	$charge_shipping =$invoice->freight_cost;

	begin_transaction();

	hook_db_prewrite($invoice, ST_SALESINVOICE);
        
        $msg_so = update_sales_order_row_state($invoice->sales_order_no, $invoice->row_state);
        if($msg_so["success"] !== true){
            cancel_transaction();
            return array("success" => false, "tran_no" => 0, "message" => $msg_so["message"]);
        }
        
	$company_data = get_company_prefs();

	$branch_data = get_branch_accounts($invoice->Branch);

	$customer = get_customer($invoice->customer_id);

	add_new_exchange_rate($customer['curr_code'], $date_, $invoice->ex_rate);

	// offer price values without freight costs
	$items_total = $invoice->get_items_total_dispatch();
	$freight_tax = $invoice->get_shipping_tax();

//	update_customer_trans_version(get_parent_type(ST_SALESINVOICE), $invoice->src_docs);

	$ov_gst = $ov_stax = 0;
	$taxes = $invoice->get_all_taxes(); // all taxes with freight_tax

	foreach ($taxes as $taxitem) {
		$taxitem['Value'] =  round2($taxitem['Value'], user_price_dec());
                if($taxitem['suspended'] == 0){
                    $ov_gst +=  $taxitem['Value'];
                }
                else{
                    $ov_stax +=  $taxitem['Value'];
                }
	}

	if($invoice->tax_included==0) {
	    $items_added_tax = $ov_gst - (($freight_tax * $ov_gst) / ($ov_gst + $ov_stax));
	    $items_added_stax = $ov_stax - (($freight_tax * $ov_stax) / ($ov_gst + $ov_stax));
	    $freight_added_tax = $freight_tax;
	} else {
	    $items_added_tax = 0;
            $items_added_stax = 0;
	    $freight_added_tax = 0;
	}

	/* Insert/update the debtor_trans */
	$sales_order = $invoice->order_no;
	if (is_array($sales_order)){
			$sales_order = $sales_order[0]; // assume all crucial SO data are same for every delivery
        }

// 	if ($trans_no != 0) {
//            delete_comments(ST_SALESINVOICE, $trans_no);
//            void_gl_trans(ST_SALESINVOICE, $trans_no, true);
//            void_cust_allocations(ST_SALESINVOICE, $trans_no); // ?
//            void_trans_tax_details(ST_SALESINVOICE, $trans_no);
//        } 
    $invoice_no = write_customer_trans(ST_SALESINVOICE, $trans_no, $invoice->customer_id, $invoice->Branch, 
                                        $date_, $invoice->reference, $items_total, 0,
                                        $items_added_tax, $invoice->freight_cost, $freight_added_tax, $invoice->sales_type, 
                                        $sales_order, $invoice->ship_via, $invoice->due_date, 0, 
                                        0, $invoice->dimension_id, $invoice->dimension2_id, $invoice->payment, 
                                        $invoice->project_id, $invoice->tax_group_id, $items_added_stax); 
	// 2008-06-14 extra $alloc, 2008-11-12 added dimension_id Joe Hunt

    add_order_category_transaction(ST_SALESINVOICE, $invoice_no, $invoice->order_category_id);
    
	if ($trans_no == 0) {
		$invoice->trans_no = array($invoice_no=>0);
	}
	$total = 0;
	foreach ($invoice->line_items as $line_no => $invoice_line) {
		$qty = $invoice_line->qty_dispatched;
		$line_taxfree_price = get_tax_free_price_for_item($invoice_line->stock_id,
			$invoice_line->price * $qty, 0, $invoice->tax_included,
			$invoice->tax_group_array);

		$line_tax = get_full_price_for_item($invoice_line->stock_id,
			$invoice_line->price * $qty, 0, $invoice->tax_included,
			$invoice->tax_group_array) - $line_taxfree_price;
                
                $base_unit_price = $invoice_line->line_price();
                $tran_unit_price = $base_unit_price * $invoice_line->convertion_factor;

		write_customer_trans_detail_item(ST_SALESINVOICE, $invoice_no, $invoice_line->stock_id,
                                        $invoice_line->item_description, $invoice_line->qty_dispatched, $base_unit_price, 
                                        $qty ? $line_tax/$qty : 0, $invoice_line->discount_percent,$invoice_line->standard_cost, 
                                        $invoice_line->src_id, 0, $invoice_line->tran_unit,
                                        $invoice_line->disp_unit_disp_qty,$invoice_line->convertion_factor, $tran_unit_price);

		// Update delivery items for the quantity invoiced
		if ($invoice_line->qty_old != $invoice_line->qty_dispatched){
			update_parent_line(ST_SALESINVOICE, $invoice_line->src_id, ($invoice_line->qty_dispatched-$invoice_line->qty_old));
                }

		if ($invoice_line->qty_dispatched != 0) {
			$stock_gl_code = get_stock_gl_code($invoice_line->stock_id);

			if ($invoice_line->line_price() != 0) {
				//Post sales transaction to GL credit sales

				// 2008-06-14. If there is a Branch Sales Account, then override with this,
				// else take the Item Sales Account
				$sales_account = ($branch_data['sales_account'] != "" ? $branch_data['sales_account'] : $stock_gl_code['sales_account']);
				// 2008-08-01. If there is a Customer Dimension, then override with this,
				// else take the Item Dimension (if any)
				$dim = ($invoice->dimension_id != $customer['dimension_id'] ? $invoice->dimension_id : 
					($customer['dimension_id'] != 0 ? $customer["dimension_id"] : $stock_gl_code["dimension_id"]));
				$dim2 = ($invoice->dimension2_id != $customer['dimension2_id'] ? $invoice->dimension2_id : 
					($customer['dimension2_id'] != 0 ? $customer["dimension2_id"] : $stock_gl_code["dimension2_id"]));
//				$total += add_gl_trans_customer(ST_SALESINVOICE, $invoice_no, $date_, $sales_account, $dim, $dim2,
//					-$line_taxfree_price * $invoice_line->convertion_factor,
//					$invoice->customer_id, "The sales price GL posting could not be inserted");

				if ($invoice_line->discount_percent != 0) {

//					$total += add_gl_trans_customer(ST_SALESINVOICE, $invoice_no, $date_,
//						$branch_data["sales_discount_account"], $dim, $dim2,
//						($line_taxfree_price * $invoice_line->discount_percent * $invoice_line->convertion_factor),
//						$invoice->customer_id, "The sales discount GL posting could not be inserted");
				} /*end of if discount !=0 */
			}
		} /*quantity dispatched is more than 0 */
	} /*end of delivery_line loop */

	if (($items_total + $charge_shipping) != 0) {
//		$total += add_gl_trans_customer(ST_SALESINVOICE, $invoice_no, $date_, $branch_data["receivables_account"], 0, 0,
//			($items_total + $charge_shipping + $items_added_tax + $freight_added_tax),
//			$invoice->customer_id, "The total debtor GL posting could not be inserted");
	}

	if ($charge_shipping != 0) {
//		$total += add_gl_trans_customer(ST_SALESINVOICE, $invoice_no, $date_, $company_data["freight_act"], 0, 0,
//			-$invoice->get_tax_free_shipping(), $invoice->customer_id,
//			"The freight GL posting could not be inserted");
	}
	// post all taxes
	foreach ($taxes as $taxitem) {

		if ($taxitem['Net'] != 0) {
			$ex_rate = get_exchange_rate_from_home_currency(get_customer_currency($invoice->customer_id), $date_);
			add_trans_tax_details(ST_SALESINVOICE, $invoice_no, $taxitem['tax_type_id'],
				$taxitem['rate'], $invoice->tax_included, $taxitem['Value'],
				 $taxitem['Net'], $ex_rate, $date_, $invoice->reference, $taxitem['suspended']);

//			$total += add_gl_trans_customer(ST_SALESINVOICE, $invoice_no, $date_, $taxitem['sales_gl_code'], 0, 0,
//				(-$taxitem['Value']), $invoice->customer_id,
//				"A tax GL posting could not be inserted");
		}
	}

	/*Post a balance post if $total != 0 */
//	add_gl_balance(ST_SALESINVOICE, $invoice_no, $date_, -$total, PT_CUSTOMER, $invoice->customer_id);	

	add_comments(10, $invoice_no, $date_, $invoice->Comments);

	
	$Refs->save(ST_SALESINVOICE, $invoice_no, $invoice->reference);
        
        /*=============================================*/
        /* Automatic payment for cash sales disabled */
//		if ($invoice->payment_terms['cash_sale'] && $invoice->pos['pos_account']) {
//			$amount = $items_total + $items_added_tax + $invoice->freight_cost 
//				+ $freight_added_tax;
//
//			// to use debtors.pmt_discount on cash sale:
//			// extend invoice entry page with final amount after discount 
//			// and change line below.
//			$discount = 0; // $invoice->cash_discount*$amount;
//			$pmtno = write_customer_payment(0, $invoice->customer_id, 
//				$invoice->Branch, $invoice->pos['pos_account'], $date_,
//				$Refs->get_next(ST_CUSTPAYMENT), $amount-$discount, $discount,
//				_('Cash invoice').' '.$invoice_no);
//			add_cust_allocation($amount, ST_CUSTPAYMENT, $pmtno, ST_SALESINVOICE, $invoice_no);
//
//			update_debtor_trans_allocation(ST_SALESINVOICE, $invoice_no, $amount);
//			update_debtor_trans_allocation(ST_CUSTPAYMENT, $pmtno, $amount);
//		}
        /*===============================================*/
    
	hook_db_postwrite($invoice, ST_SALESINVOICE);
	commit_transaction();

	//return $invoice_no;
    return array("success" => true, "tran_no" => $invoice_no, "message" => "Sales invoice $invoice_no added.");
}

//--------------------------------------------------------------------------------------------------

function void_sales_invoice($type, $type_no)
{
	begin_transaction();

	hook_db_prevoid($type, $type_no);
	void_bank_trans($type, $type_no, true);
	void_gl_trans($type, $type_no, true);

	// reverse all the changes in parent document(s)

	$parents = get_sales_parent_numbers($type, $type_no);

	if ($parents !== 0) {
		if ($type == ST_SALESINVOICE && count($parents) == 1 && get_reference(ST_CUSTDELIVERY, $parents[0]) == "auto")
		{
			void_sales_delivery(ST_CUSTDELIVERY, $parents[0], false);
			$date_ = Today();
			add_audit_trail(ST_CUSTDELIVERY, $parents[0], $date_, _("Voided."));
			add_voided_entry(ST_CUSTDELIVERY, $parents[0], $date_, "");
		}
		else
		{
			$srcdetails = get_sales_parent_lines($type, $type_no);
			while ($row = db_fetch($srcdetails)) {
				update_parent_line($type, $row['id'], -$row['quantity']);
			}
		}
	}
	// clear details after they've been reversed in the sales order
	void_customer_trans_details($type, $type_no);

	void_stock_move($type, $type_no); // in case of credit note with return

	void_trans_tax_details($type, $type_no);

	void_cust_allocations($type, $type_no);

	// do this last because other voidings can depend on it - especially voiding
	// DO NOT MOVE THIS ABOVE VOIDING or we can end up with trans with alloc < 0
	void_customer_trans($type, $type_no);

	commit_transaction();
}

?>