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