X-Git-Url: https://delta.frontaccounting.com/gitweb/?a=blobdiff_plain;f=purchasing%2Fincludes%2Fdb%2Fsuppalloc_db.inc;h=6091e42e9092901d9ba2b50ffd990be80c126281;hb=9a98bb3bc7a94f1a8e47f8dab45a87c8b4212080;hp=017feeea90ac956f4135716a198b3187437bc26d;hpb=36b1fadae4301de56c7dc2e3ffdf200c4a5a8344;p=fa-stable.git

diff --git a/purchasing/includes/db/suppalloc_db.inc b/purchasing/includes/db/suppalloc_db.inc
index 017feeea..6091e42e 100644
--- a/purchasing/includes/db/suppalloc_db.inc
+++ b/purchasing/includes/db/suppalloc_db.inc
@@ -124,7 +124,7 @@ function get_alloc_supp_sql($extra_fields=null, $extra_conditions=null, $extra_t
 
 	if ($extra_conditions)
 		$sql .= " AND $extra_conditions";
-	
+
 	return $sql;
 }
 
@@ -172,6 +172,30 @@ function get_allocatable_to_supp_transactions($supplier_id, $trans_no=null, $typ
 	return db_query($sql." ORDER BY due_date", "Cannot retreive alloc to transactions");
 }
 
+//-------------------------------------------------------------------------------------------------------------
+
+function get_allocatable_from_supp_transactions($supplier_id, $trans_no=null, $type=null)
+{
+	if ($trans_no != null && $type!= null)
+	{
+		$sql = get_alloc_supp_sql("amt, supp_reference", "trans.trans_no = alloc.trans_no_from
+			AND trans.type = alloc.trans_type_from
+			AND alloc.trans_no_to=".db_escape($trans_no)."
+			AND alloc.trans_type_to=".db_escape($type)."
+			AND trans.supplier_id=".db_escape($supplier_id),
+			TB_PREF."supp_allocations as alloc");
+	}
+	else
+	{
+		$sql = get_alloc_supp_sql(null, "round(ABS(ov_amount+ov_gst+ov_discount)-alloc,6) > 0
+			AND trans.type != ".ST_SUPPAYMENT."
+			AND trans.supplier_id=".db_escape($supplier_id));
+	}
+
+	return db_query($sql." ORDER BY due_date", "Cannot retreive alloc to transactions");
+}
+
+
 function get_sql_for_supplier_allocation_inquiry()
 {
  	$date_after = date2sql($_POST['TransAfterDate']);
@@ -188,7 +212,8 @@ function get_sql_for_supplier_allocation_inquiry()
 		supplier.curr_code, 
     	(trans.ov_amount + trans.ov_gst  + trans.ov_discount) AS TotalAmount, 
 		trans.alloc AS Allocated,
-		((trans.type = ".ST_SUPPINVOICE." OR trans.type = ".ST_SUPPCREDIT.") AND trans.due_date < '" . date2sql(Today()) . "') AS OverDue
+		((trans.type = ".ST_SUPPINVOICE." OR trans.type = ".ST_SUPPCREDIT.") AND trans.due_date < '" . date2sql(Today()) . "') AS OverDue,
+		trans.supplier_id
     	FROM "
 			.TB_PREF."supp_trans as trans, "
 			.TB_PREF."suppliers as supplier