Implemented automatic price calculation of items from std. cost.

[fa-stable.git] / sales / includes / sales_db.inc

diff --git a/sales/includes/sales_db.inc b/sales/includes/sales_db.inc
index 8c74c9bfbe597194168cea6667c6725552f67c3d..638fa83fea2deaff61aaadc31e4f02a2efb3018b 100644 (file)
--- a/sales/includes/sales_db.inc
+++ b/sales/includes/sales_db.inc
@@ -1,5 +1,14 @@
 <?php
-
+/**********************************************************************
+    Copyright (C) FrontAccounting, LLC.
+       Released under the terms of the GNU General Public License, GPL, 
+       as published by the Free Software Foundation, either version 3 
+       of the License, or (at your option) any later version.
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  
+    See the License here <http://www.gnu.org/licenses/gpl-3.0.html>.
+***********************************************************************/
 include_once($path_to_root . "/includes/banking.inc");
 include_once($path_to_root . "/includes/db/inventory_db.inc");
 include_once($path_to_root . "/sales/includes/db/sales_order_db.inc");
@@ -36,22 +45,47 @@ function add_stock_move_customer($type, $stock_id, $trans_id, $location, $date_,
 // $amount is in CUSTOMER'S currency
 
 function add_gl_trans_customer($type, $type_no, $date_, $account, $dimension, $dimension2,
-       $amount, $customer_id, $err_msg="")
+       $amount, $customer_id, $err_msg="", $rate=0)
 {
        if ($err_msg == "")
                $err_msg = "The customer GL transaction could not be inserted";
 
        return add_gl_trans($type, $type_no, $date_, $account, $dimension, $dimension2, "", $amount,
                get_customer_currency($customer_id),
-               payment_person_types::customer(), $customer_id, $err_msg);
+               payment_person_types::customer(), $customer_id, $err_msg, $rate);
 }
 
 //----------------------------------------------------------------------------------------
 
+function get_calculated_price($stock_id, $add_pct)
+{
+       $avg = get_standard_cost($stock_id);
+       if ($avg == 0)
+               return 0;
+       return round2($avg * (1 + $add_pct / 100), user_price_dec());
+}
+
+function round_to_nearest($price, $round_to)
+{
+       if ($price == 0)
+               return 0;
+       $pow = pow(10, user_price_dec());
+       if ($pow >= $round_to)
+               $mod = ($pow % $round_to);
+       else
+               $mod = ($round_to % $pow);
+       if ($mod != 0)
+               $price = ceil($price) - ($pow - $round_to) / $pow;
+       else    
+       $price = ceil($price * ($pow / $round_to)) / ($pow / $round_to);
+    return $price;
+
+}
+
 function get_price ($stock_id, $currency, $sales_type_id, $factor=null, $date=null)
 {
        if ($date == null)
-           $date = Today();
+           $date = new_doc_date();
 
        if ($factor === null) 
        {
@@ -68,16 +102,26 @@ function get_price ($stock_id, $currency, $sales_type_id, $factor=null, $date=nu
        $msg = "There was a problem retrieving the pricing information for the part $stock_id for customer";
        $result = db_query($sql, $msg);
 
+       $add_pct = get_company_pref('add_pct');
+       $round_to = get_company_pref('round_to');
+    $home_curr = get_company_currency();
+
        if (db_num_rows($result) != 0) 
        {
                $myrow = db_fetch_row($result);
                return $myrow[0];
        }
+       elseif ($add_pct != -1)
+       {
+               $price = get_calculated_price($stock_id, $add_pct);
+               if ($currency == $home_curr)
+                       return round_to_nearest($price, $round_to);
+       }               
        if ($factor == 0) return false; // auto price calculations off
 
        $base_id = get_base_sales_type();
-        $home_curr = get_company_currency();
-
+       if ($base_id <= 0) return 0; // auto price calculations off
+       
     // get all prices which we can use to guess the price.
     // alternative is make up to 2 additional sql queries
        $sql = "SELECT price, curr_abrev, sales_type_id
@@ -95,25 +139,36 @@ function get_price ($stock_id, $currency, $sales_type_id, $factor=null, $date=nu
        {
            $prices[$myrow['sales_type_id']][$myrow['curr_abrev']] = $myrow['price'];
        }
-       
        $rate = round(get_exchange_rate_from_home_currency($currency, $date),
            user_exrate_dec());
-       $price = false;
+       if (db_num_rows($result) == 0 && $add_pct != -1)
+       {
+               if ($factor != 0)
+               $price = $price * $factor / $rate;
+           else
+               $price /= $rate;
+               return round_to_nearest($price, $round_to);
+       }
        
+       $price = false;
        if (isset($prices[$sales_type_id][$home_curr])) 
        {
            $price = $prices[$sales_type_id][$home_curr] / $rate;
        }
-       if (isset($prices[$base_id][$currency])) 
+       elseif (isset($prices[$base_id][$currency])) 
        {
            $price = $prices[$base_id][$currency] * $factor;
        }
-       if (isset($prices[$base_id][$home_curr])) 
+       elseif (isset($prices[$base_id][$home_curr])) 
        {
            $price = $prices[$base_id][$home_curr] * $factor / $rate;
        }
-       
-       return $price === false ? false : round($price, user_price_dec());
+       if ($price === false)
+               return false;
+       else if ($round_to != 1)        
+               return round_to_nearest($price, $round_to);
+       else
+               return round2($price, user_price_dec());
 }
 //----------------------------------------------------------------------------------------
 //
@@ -278,15 +333,7 @@ function read_sales_trans($doc_type, $trans_no, &$cart)
                $cart->dimension2_id = $myrow['dimension2_id'];
                $cart->Comments = '';
                foreach ( $trans_no as $trans ) {
-                       $coms =  get_comments($doc_type,$trans);
-                       while($row=db_fetch($coms)) {
-                               $text = $row['memo_'];
-                               if ($text!='') {
-                                       if ($cart->Comments!='')
-                                               $cart->Comments .= "\n";
-                                       $cart->Comments .= $text;
-                               }
-                       }
+                       $cart->Comments .= get_comments_string($doc_type,$trans);
                }
 
                // FIX this should be calculated sum() for multiply parents