gl/includes/db/gl_db_bank_trans.inc

   1 <?php
   2 /**********************************************************************
   3     Copyright (C) FrontAccounting, LLC.
   4         Released under the terms of the GNU General Public License, GPL,
   5         as published by the Free Software Foundation, either version 3
   6         of the License, or (at your option) any later version.
   7     This program is distributed in the hope that it will be useful,
   8     but WITHOUT ANY WARRANTY; without even the implied warranty of
   9     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  10     See the License here <http://www.gnu.org/licenses/gpl-3.0.html>.
  11 ***********************************************************************/
  12 //----------------------------------------------------------------------------------
  13
  14 // add a bank transaction
  15 // $amount is in $currency
  16 // $date_ is display date (non-sql)
  17
  18 function add_bank_trans($type, $trans_no, $bank_act, $ref, $date_,
  19         $amount, $person_type_id, $person_id, $currency="", $err_msg="", $rate=0)
  20 {
  21         $sqlDate = date2sql($date_);
  22
  23         // convert $amount to the bank's currency
  24         if ($currency != "")
  25         {
  26         $bank_account_currency = get_bank_account_currency($bank_act);
  27         if ($rate == 0)
  28                 $to_bank_currency = get_exchange_rate_from_to($currency, $bank_account_currency, $date_);
  29         else
  30                 $to_bank_currency = 1 / $rate;
  31         $amount_bank = ($amount / $to_bank_currency);
  32         }
  33         else
  34                 $amount_bank = $amount;
  35
  36
  37         // Also store the rate to the home
  38         //$BankToHomeCurrencyRate = get_exchange_rate_to_home_currency($bank_account_currency, $date_);
  39
  40         $sql = "INSERT INTO ".TB_PREF."bank_trans (type, trans_no, bank_act, ref,
  41                 trans_date, amount, person_type_id, person_id) ";
  42
  43         $sql .= "VALUES ($type, $trans_no, '$bank_act', ".db_escape($ref).", '$sqlDate',
  44                 ".db_escape($amount_bank).", ".db_escape($person_type_id)
  45                 .", ". db_escape($person_id).")";
  46
  47         if ($err_msg == "")
  48                 $err_msg = "The bank transaction could not be inserted";
  49
  50         db_query($sql, $err_msg);
  51 }
  52
  53 //----------------------------------------------------------------------------------------
  54
  55 function exists_bank_trans($type, $type_no)
  56 {
  57         $sql = "SELECT trans_no FROM ".TB_PREF."bank_trans WHERE type=".db_escape($type)
  58                 ." AND trans_no=".db_escape($type_no);
  59         $result = db_query($sql, "Cannot retreive a bank transaction");
  60
  61     return (db_num_rows($result) > 0);
  62 }
  63
  64 //----------------------------------------------------------------------------------------
  65
  66 function get_bank_trans($type, $trans_no=null, $person_type_id=null, $person_id=null)
  67 {
  68         $sql = "SELECT *, bank_account_name, account_code, bank_curr_code
  69                 FROM ".TB_PREF."bank_trans, ".TB_PREF."bank_accounts
  70                 WHERE ".TB_PREF."bank_accounts.id=".TB_PREF."bank_trans.bank_act ";
  71         if ($type != null)
  72                 $sql .= " AND type=".db_escape($type);
  73         if ($trans_no != null)
  74                 $sql .= " AND ".TB_PREF."bank_trans.trans_no = ".db_escape($trans_no);
  75         if ($person_type_id != null)
  76                 $sql .= " AND ".TB_PREF."bank_trans.person_type_id = ".db_escape($person_type_id);
  77         if ($person_id != null)
  78                 $sql .= " AND ".TB_PREF."bank_trans.person_id = ".db_escape($person_id);
  79         $sql .= " ORDER BY trans_date, ".TB_PREF."bank_trans.id";
  80
  81         return db_query($sql, "query for bank transaction");
  82 }
  83
  84 //----------------------------------------------------------------------------------------
  85
  86 function get_bank_trans_for_bank_account($bank_account, $from, $to)
  87 {
  88         $from = date2sql($from);
  89         $to = date2sql($to);
  90         $sql = "SELECT ".TB_PREF."bank_trans.* FROM ".TB_PREF."bank_trans
  91                 WHERE ".TB_PREF."bank_trans.bank_act = ".db_escape($bank_account) . "
  92                 AND trans_date >= '$from'
  93                 AND trans_date <= '$to'
  94                 ORDER BY trans_date,".TB_PREF."bank_trans.id";
  95
  96         return db_query($sql,"The transactions for '" . $bank_account . "' could not be retrieved");
  97 }
  98
  99 //----------------------------------------------------------------------------------------
 100
 101 function get_balance_before_for_bank_account($bank_account, $from)
 102 {
 103         $from = date2sql($from);
 104         $sql = "SELECT SUM(amount) FROM ".TB_PREF."bank_trans WHERE bank_act="
 105                 .db_escape($bank_account) . "
 106                 AND trans_date < '$from'";
 107         $before_qty = db_query($sql, "The starting balance on hand could not be calculated");
 108         $bfw_row = db_fetch_row($before_qty);
 109         return $bfw_row[0];
 110 }
 111 //----------------------------------------------------------------------------------------
 112
 113 function get_gl_trans_value($account, $type, $trans_no)
 114 {
 115         $sql = "SELECT SUM(amount) FROM ".TB_PREF."gl_trans WHERE account="
 116         .db_escape($account)." AND type=".db_escape($type)
 117         ." AND type_no=".db_escape($trans_no);
 118
 119         $result = db_query($sql, "query for gl trans value");
 120
 121         $row = db_fetch_row($result);
 122         return $row[0];
 123 }
 124
 125 //----------------------------------------------------------------------------------------
 126
 127 function void_bank_trans($type, $type_no, $nested=false)
 128 {
 129         if (!$nested)
 130                 begin_transaction();
 131
 132         $sql = "UPDATE ".TB_PREF."bank_trans SET amount=0
 133                 WHERE type=".db_escape($type)." AND trans_no=".db_escape($type_no);
 134
 135         $result = db_query($sql, "could not void bank transactions for type=$type and trans_no=$type_no");
 136
 137         void_gl_trans($type, $type_no, true);
 138
 139         // in case it's a customer trans - probably better to check first
 140         void_cust_allocations($type, $type_no);
 141         void_customer_trans($type, $type_no);
 142
 143         // in case it's a supplier trans - probably better to check first
 144         void_supp_allocations($type, $type_no);
 145         void_supp_trans($type, $type_no);
 146
 147         void_trans_tax_details($type, $type_no);
 148
 149         if (!$nested)
 150                 commit_transaction();
 151 }
 152
 153 //----------------------------------------------------------------------------------
 154
 155 //----------------------------------------------------------------------------------------
 156
 157 function clear_bank_trans($type, $type_no, $nested=false)
 158 {
 159         global $Refs;
 160
 161         if (!$nested)
 162                 begin_transaction();
 163
 164         $sql = "DELETE FROM ".TB_PREF."bank_trans
 165                 WHERE type=".db_escape($type)." AND trans_no=".db_escape($type_no);
 166
 167         $result = db_query($sql, "could not clear bank transactions for type=$type and trans_no=$type_no");
 168
 169         clear_gl_trans($type, $type_no, true);
 170
 171         // in case it's a customer trans - probably better to check first
 172         void_cust_allocations($type, $type_no);
 173         clear_customer_trans($type, $type_no);
 174
 175         // in case it's a supplier trans - probably better to check first
 176         void_supp_allocations($type, $type_no);
 177         clear_supp_trans($type, $type_no);
 178
 179         clear_trans_tax_details($type, $type_no);
 180
 181         //Delete the reference
 182         $Refs->delete($type, $type_no);
 183
 184         if (!$nested)
 185                 commit_transaction();
 186 }
 187
 188
 189 ?>