Allowing modifying of Bank Payments/Deposits

[fa-stable.git] / gl / includes / db / gl_db_bank_trans.inc

diff --git a/gl/includes/db/gl_db_bank_trans.inc b/gl/includes/db/gl_db_bank_trans.inc
index 37c173c0aea059b82d06a5c8adb9abb87e1c5387..3face339851f19604b27ac28079165c0ae7c3de5 100644 (file)
--- 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