purchasing/includes/db/supp_trans_db.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 function add_supp_trans($type, $supplier_id, $date_, $due_date, $reference, $supp_reference,
  15         $amount, $amount_tax, $discount, $err_msg="", $rate=0, $included=0)
  16 {
  17         $date = date2sql($date_);
  18         if ($due_date == "")
  19                 $due_date = "0000-00-00";
  20         else
  21                 $due_date = date2sql($due_date);
  22
  23         $trans_no = get_next_trans_no($type);
  24
  25         $curr = get_supplier_currency($supplier_id);
  26
  27         if ($rate == 0)
  28                 $rate = get_exchange_rate_from_home_currency($curr, $date_);
  29
  30
  31         $sql = "INSERT INTO ".TB_PREF."supp_trans (trans_no, type, supplier_id, tran_date, due_date,
  32                 reference, supp_reference, ov_amount, ov_gst, rate, ov_discount, tax_included) ";
  33         $sql .= "VALUES (".db_escape($trans_no).", ".db_escape($type)
  34         .", ".db_escape($supplier_id).", '$date', '$due_date',
  35                 ".db_escape($reference).", ".db_escape($supp_reference).", ".db_escape($amount)
  36                 .", ".db_escape($amount_tax).", ".db_escape($rate).", ".db_escape($discount).", ".db_escape($included).")";
  37
  38         if ($err_msg == "")
  39                 $err_msg = "Cannot insert a supplier transaction record";
  40
  41         db_query($sql, $err_msg);
  42         add_audit_trail($type, $trans_no, $date_);
  43
  44         return $trans_no;
  45 }
  46
  47 //-------------------------------------------------------------------------------------------------------------
  48
  49 function reinsert_supp_trans($type, $trans_no, $supplier_id, $date_, $due_date, $reference, $supp_reference,
  50         $amount, $amount_tax, $discount, $err_msg="", $rate=0)
  51 {
  52         if ($trans_no == '')
  53                 display_db_error('Invalid call to function reinsert_supp_trans');
  54
  55         $date = date2sql($date_);
  56         if ($due_date == "")
  57                 $due_date = "0000-00-00";
  58         else
  59                 $due_date = date2sql($due_date);
  60
  61         $curr = get_supplier_currency($supplier_id);
  62
  63         if ($rate == 0)
  64                 $rate = get_exchange_rate_from_home_currency($curr, $date_);
  65
  66
  67         $sql = "INSERT INTO ".TB_PREF."supp_trans (trans_no, type, supplier_id, tran_date, due_date,
  68                 reference, supp_reference, ov_amount, ov_gst, rate, ov_discount) ";
  69         $sql .= "VALUES (".db_escape($trans_no).", ".db_escape($type)
  70         .", ".db_escape($supplier_id).", '$date', '$due_date',
  71                 ".db_escape($reference).", ".db_escape($supp_reference).", ".db_escape($amount)
  72                 .", ".db_escape($amount_tax).", ".db_escape($rate).", ".db_escape($discount).")";
  73
  74         if ($err_msg == "")
  75                 $err_msg = "Cannot insert a supplier transaction record";
  76
  77         db_query($sql, $err_msg);
  78         add_audit_trail($type, $trans_no, $date_);
  79
  80         return $trans_no;
  81 }
  82 //-------------------------------------------------------------------------------------------------------------
  83
  84 function get_supp_trans($trans_no, $trans_type=-1)
  85 {
  86         $sql = "SELECT ".TB_PREF."supp_trans.*, (".TB_PREF."supp_trans.ov_amount+".TB_PREF."supp_trans.ov_gst+".TB_PREF."supp_trans.ov_discount) AS Total,
  87                 ".TB_PREF."suppliers.supp_name AS supplier_name, ".TB_PREF."suppliers.curr_code AS SupplierCurrCode ";
  88
  89         if ($trans_type == ST_SUPPAYMENT)
  90         {
  91                 // it's a payment so also get the bank account
  92                 $sql .= ", ".TB_PREF."bank_accounts.bank_name, ".TB_PREF."bank_accounts.bank_account_name, ".TB_PREF."bank_accounts.bank_curr_code,
  93                         ".TB_PREF."bank_accounts.account_type AS BankTransType, ".TB_PREF."bank_trans.amount AS BankAmount,
  94                         ".TB_PREF."bank_trans.ref ";
  95         }
  96
  97         $sql .= " FROM ".TB_PREF."supp_trans, ".TB_PREF."suppliers ";
  98
  99         if ($trans_type == ST_SUPPAYMENT)
 100         {
 101                 // it's a payment so also get the bank account
 102                 $sql .= ", ".TB_PREF."bank_trans, ".TB_PREF."bank_accounts";
 103         }
 104
 105         $sql .= " WHERE ".TB_PREF."supp_trans.trans_no=".db_escape($trans_no)."
 106                 AND ".TB_PREF."supp_trans.supplier_id=".TB_PREF."suppliers.supplier_id";
 107
 108         if ($trans_type > 0)
 109                 $sql .= " AND ".TB_PREF."supp_trans.type=".db_escape($trans_type);
 110
 111         if ($trans_type == ST_SUPPAYMENT)
 112         {
 113                 // it's a payment so also get the bank account
 114                 $sql .= " AND ".TB_PREF."bank_trans.trans_no =".db_escape($trans_no)."
 115                         AND ".TB_PREF."bank_trans.type=".db_escape($trans_type)."
 116                         AND ".TB_PREF."bank_accounts.id=".TB_PREF."bank_trans.bank_act ";
 117         }
 118
 119         $result = db_query($sql, "Cannot retreive a supplier transaction");
 120
 121     if (db_num_rows($result) == 0)
 122     {
 123        // can't return nothing
 124        display_db_error("no supplier trans found for given params", $sql, true);
 125        exit;
 126     }
 127
 128     if (db_num_rows($result) > 1)
 129     {
 130        // can't return multiple
 131        display_db_error("duplicate supplier transactions found for given params", $sql, true);
 132        exit;
 133     }
 134
 135     return db_fetch($result);
 136 }
 137
 138 //----------------------------------------------------------------------------------------
 139
 140 function exists_supp_trans($type, $type_no)
 141 {
 142         if ($type == ST_SUPPRECEIVE)
 143                 return exists_grn($type_no);
 144
 145         $sql = "SELECT trans_no FROM ".TB_PREF."supp_trans WHERE type=".db_escape($type)."
 146                 AND trans_no=".db_escape($type_no);
 147         $result = db_query($sql, "Cannot retreive a supplier transaction");
 148
 149     return (db_num_rows($result) > 0);
 150 }
 151
 152 //----------------------------------------------------------------------------------------
 153
 154 function void_supp_trans($type, $type_no)
 155 {
 156         $sql = "UPDATE ".TB_PREF."supp_trans SET ov_amount=0, ov_discount=0, ov_gst=0,
 157                 alloc=0 WHERE type=".db_escape($type)." AND trans_no=".db_escape($type_no);
 158
 159         db_query($sql, "could not void supp transactions for type=$type and trans_no=$type_no");
 160 }
 161
 162 //----------------------------------------------------------------------------------------
 163
 164 function clear_supp_trans($type, $type_no)
 165 {
 166         $sql = "DELETE FROM ".TB_PREF."supp_trans
 167                         WHERE type=".db_escape($type)." AND trans_no=".db_escape($type_no);
 168
 169         db_query($sql, "could not clear supp transactions for type=$type and trans_no=$type_no");
 170 }
 171 //----------------------------------------------------------------------------------------
 172
 173 function post_void_supp_trans($type, $type_no)
 174 {
 175         if ($type == ST_SUPPAYMENT)
 176         {
 177                 void_supp_payment($type, $type_no);
 178                 return true;
 179         }
 180
 181         if ($type == ST_SUPPINVOICE || $type == ST_SUPPCREDIT)
 182         {
 183                 void_supp_invoice($type, $type_no);
 184                 return true;
 185         }
 186
 187         if ($type == SUPPRECEIVE)
 188         {
 189                 return void_grn($type_no);
 190         }
 191
 192         return false;
 193 }
 194
 195 //----------------------------------------------------------------------------------------
 196
 197 function get_sql_for_supplier_inquiry()
 198 {
 199     $date_after = date2sql($_POST['TransAfterDate']);
 200     $date_to = date2sql($_POST['TransToDate']);
 201
 202     $sql = "SELECT trans.type,
 203                 trans.trans_no,
 204                 trans.reference,
 205                 supplier.supp_name,
 206                 trans.supp_reference,
 207         trans.tran_date,
 208                 trans.due_date,
 209                 supplier.curr_code,
 210         (trans.ov_amount + trans.ov_gst  + trans.ov_discount) AS TotalAmount,
 211                 trans.alloc AS Allocated,
 212                 ((trans.type = ".ST_SUPPINVOICE." OR trans.type = ".ST_SUPPCREDIT.") AND trans.due_date < '" . date2sql(Today()) . "') AS OverDue,
 213         (ABS(trans.ov_amount + trans.ov_gst  + trans.ov_discount - trans.alloc) <= 0.005) AS Settled
 214         FROM ".TB_PREF."supp_trans as trans, ".TB_PREF."suppliers as supplier
 215         WHERE supplier.supplier_id = trans.supplier_id
 216         AND trans.tran_date >= '$date_after'
 217         AND trans.tran_date <= '$date_to'
 218                 AND trans.ov_amount != 0";      // exclude voided transactions
 219
 220         $sql2 = "SELECT ".ST_SUPPRECEIVE." as type,
 221                 trans.id as trans_no,
 222                 trans.reference,
 223                 supplier.supp_name,
 224                 '' as supp_reference,
 225         delivery_date as tran_date,
 226                 '' as due_date,
 227                 supplier.curr_code,
 228         '' AS TotalAmount,
 229                 '' AS Allocated,
 230                 0 as OverDue,
 231         1 as Settled
 232         FROM ".TB_PREF."grn_batch as trans, ".TB_PREF."suppliers as supplier
 233         WHERE supplier.supplier_id = trans.supplier_id
 234         AND trans.delivery_date >= '$date_after'
 235         AND trans.delivery_date <= '$date_to'";
 236
 237         if ($_POST['supplier_id'] != ALL_TEXT) {
 238                 $sql .= " AND trans.supplier_id = ".db_escape($_POST['supplier_id']);
 239                 $sql2 .= " AND trans.supplier_id = ".db_escape($_POST['supplier_id']);
 240         }
 241         if (($_POST['filterType'] == '6'))
 242         {
 243                         $sql = $sql2;
 244         }
 245         elseif (!isset($_POST['filterType']) || $_POST['filterType'] == ALL_TEXT || $_POST['filterType'] == '6') {
 246                 $sql = "SELECT * FROM (($sql) UNION ($sql2)) as tr";
 247         }
 248
 249         if (isset($_POST['filterType']) && $_POST['filterType'] != ALL_TEXT)
 250         {
 251                 if (($_POST['filterType'] == '1'))
 252                 {
 253                         $sql .= " AND (trans.type = ".ST_SUPPINVOICE." OR trans.type = ".ST_BANKDEPOSIT.")";
 254                 }
 255                 elseif (($_POST['filterType'] == '2'))
 256                 {
 257                         $sql .= " AND trans.type = ".ST_SUPPINVOICE." ";
 258                 }
 259                 elseif ($_POST['filterType'] == '3')
 260                 {
 261                         $sql .= " AND (trans.type = ".ST_SUPPAYMENT." OR trans.type = ".ST_BANKPAYMENT.") ";
 262                 }
 263                 elseif (($_POST['filterType'] == '4') || ($_POST['filterType'] == '5'))
 264                 {
 265                         $sql .= " AND trans.type = ".ST_SUPPCREDIT."  ";
 266                 }
 267
 268                 if (($_POST['filterType'] == '2') || ($_POST['filterType'] == '5'))
 269                 {
 270                         $today =  date2sql(Today());
 271                         $sql .= " AND trans.due_date < '$today' ";
 272                 }
 273         }
 274         return $sql;
 275 }
 276 ?>