X-Git-Url: https://delta.frontaccounting.com/gitweb/?a=blobdiff_plain;f=gl%2Fincludes%2Fdb%2Fgl_db_bank_trans.inc;h=3face339851f19604b27ac28079165c0ae7c3de5;hb=702a71dbe463765b5fd1892a982ede3e5f264dee;hp=37c173c0aea059b82d06a5c8adb9abb87e1c5387;hpb=21ba0553185531c12f16efef9010033d5dd62cdc;p=fa-stable.git

diff --git a/gl/includes/db/gl_db_bank_trans.inc b/gl/includes/db/gl_db_bank_trans.inc
index 37c173c0..3face339 100644
--- a/gl/includes/db/gl_db_bank_trans.inc
+++ b/gl/includes/db/gl_db_bank_trans.inc
@@ -152,4 +152,38 @@ function void_bank_trans($type, $type_no, $nested=false)
 
 //----------------------------------------------------------------------------------
 
+//----------------------------------------------------------------------------------------
+
+function clear_bank_trans($type, $type_no, $nested=false)
+{
+	global $Refs;
+	
+	if (!$nested)
+		begin_transaction();
+
+	$sql = "DELETE FROM ".TB_PREF."bank_trans 
+		WHERE type=".db_escape($type)." AND trans_no=".db_escape($type_no);
+
+	$result = db_query($sql, "could not clear bank transactions for type=$type and trans_no=$type_no");
+
+	clear_gl_trans($type, $type_no, true);
+
+	// in case it's a customer trans - probably better to check first
+	void_cust_allocations($type, $type_no);
+	clear_customer_trans($type, $type_no);
+
+	// in case it's a supplier trans - probably better to check first
+	void_supp_allocations($type, $type_no);
+	clear_supp_trans($type, $type_no);
+
+	clear_trans_tax_details($type, $type_no);
+
+	//Delete the reference
+	$Refs->delete($type, $type_no);	
+	
+	if (!$nested)
+		commit_transaction();
+}
+
+
 ?>
\ No newline at end of file