X-Git-Url: https://delta.frontaccounting.com/gitweb/?a=blobdiff_plain;f=sales%2Fincludes%2Fdb%2Fcustalloc_db.inc;h=f9fc78e7cc0a47e0d568dd5ff13a4a09eda8e0e9;hb=a52174853a7922acd6626ac61032ec7674bce9cd;hp=5b7782aecafc5477fa9b71825eb26a7055ff37b3;hpb=963bc21ea092322d5750d4c0914b5e532e7d2467;p=fa-stable.git

diff --git a/sales/includes/db/custalloc_db.inc b/sales/includes/db/custalloc_db.inc
index 5b7782ae..f9fc78e7 100644
--- a/sales/includes/db/custalloc_db.inc
+++ b/sales/includes/db/custalloc_db.inc
@@ -34,19 +34,6 @@ function delete_cust_allocation($trans_id)
 
 //----------------------------------------------------------------------------------------
 
-function get_DebtorTrans_allocation_balance($trans_type, $trans_no)
-{
-
-	$sql = "SELECT (ov_amount+ov_gst+ov_freight+ov_freight_tax-ov_discount-alloc) AS BalToAllocate
-		FROM ".TB_PREF."debtor_trans WHERE trans_no=".db_escape($trans_no)." AND type=".db_escape($trans_type);
-	$result = db_query($sql,"calculate the allocation");
-	$myrow = db_fetch_row($result);
-
-	return $myrow[0];
-}
-
-//----------------------------------------------------------------------------------------
-
 function update_debtor_trans_allocation($trans_type, $trans_no, $alloc)
 {
 	$sql = "UPDATE ".TB_PREF."debtor_trans SET alloc = alloc + $alloc
@@ -121,7 +108,7 @@ function get_alloc_trans_sql($extra_fields=null, $extra_conditions=null, $extra_
 
 	if ($extra_conditions)
 		$sql .= " AND $extra_conditions ";
-	
+
 	return $sql;
 }
 
@@ -240,4 +227,52 @@ function get_sql_for_customer_allocation_inquiry()
    	}
    	return $sql;
 }
+
+function credit_sales_invoice_allocate($invoice_no, $credit_no, $amount, $date)
+{
+
+	$sql = "SELECT ov_freight+ov_gst+ov_amount+ov_freight_tax as total, alloc FROM ".TB_PREF."debtor_trans
+		WHERE (`type`=".ST_SALESINVOICE." AND trans_no=".db_escape($invoice_no).")";
+	$result = db_query($sql, "can't retrieve invoice totals");
+	$invoice = db_fetch($result);
+	$free = $invoice['total'] - $invoice['alloc'];
+	
+	if ($free < $amount) {
+	 // if there is not enough unallocated amount - remove some payment allocations
+		$sql = "SELECT * FROM ".TB_PREF."cust_allocations
+			WHERE (trans_type_to=".ST_SALESINVOICE." AND trans_no_to=".db_escape($invoice_no).")
+			AND trans_type_from <> ".ST_CUSTCREDIT;
+		$result = db_query($sql, "can't retrieve invoice allocations");
+
+		while($free < $amount && ($alloc = db_fetch($result))) {
+			$unalloc = min($alloc['amt'], $free);
+			update_debtor_trans_allocation($alloc['trans_type_to'], $alloc['trans_no_to'], 
+				-$unalloc);
+			update_debtor_trans_allocation($alloc['trans_type_from'], $alloc['trans_no_from'], 
+				-$unalloc);
+
+			delete_cust_allocation($alloc['id']);
+			if ($unalloc < $alloc['amt'])
+				add_cust_allocation($alloc['amt']-$unalloc, $alloc['trans_type_from'],
+					$alloc['trans_no_from'], ST_SALESINVOICE, $invoice_no);
+
+			$free += $unalloc;
+		}
+	}
+	if ($free < $amount) {
+		// this should never happen unless sparse credit notices were allocated to 
+		// the invoice, or summarized freight costs on credit notes is more than those on invoice.
+		display_error(_("Unsuspected overallocation happened due to sparse credit notes exists for this invoice.
+ Check all credit notes allocated to this invoice for summarized freight charges."));
+		return false;
+	}
+	update_debtor_trans_allocation(ST_SALESINVOICE, $invoice_no, $amount);
+	update_debtor_trans_allocation(ST_CUSTCREDIT, $credit_no, $amount);
+	add_cust_allocation($amount, ST_CUSTCREDIT, $credit_no, ST_SALESINVOICE, $invoice_no);
+
+	exchange_variation(ST_CUSTCREDIT, $credit_no, ST_SALESINVOICE, $invoice_no, $date,
+		$amount, PT_CUSTOMER);
+	return true;
+}
+
 ?>
\ No newline at end of file