+function get_domestic_price($myrow, $stock_id, $qty, $old_std_cost, $old_qty)
+{
+ if ($myrow['type'] == ST_SUPPRECEIVE || $myrow['type'] == ST_SUPPCREDIT)
+ {
+ $price = $myrow['price'];
+ if ($myrow['type'] == ST_SUPPRECEIVE)
+ {
+ // Has the supplier invoice increased the receival price?
+ $sql = "SELECT DISTINCT act_price FROM ".TB_PREF."purch_order_details pod INNER JOIN ".TB_PREF."grn_batch grn ON pod.order_no =
+ grn.purch_order_no WHERE grn.id = ".$myrow['trans_no']." AND pod.item_code = '$stock_id'";
+ $result = db_query($sql, "Could not retrieve act_price from purch_order_details");
+ $row = db_fetch_row($result);
+ if ($row[0] > 0 AND $row[0] <> $myrow['price'])
+ $price = $row[0];
+ }
+ if ($myrow['person_id'] > 0)
+ {
+ // Do we have foreign currency?
+ $supp = get_supplier($myrow['person_id']);
+ $currency = $supp['curr_code'];
+ $ex_rate = get_exchange_rate_to_home_currency($currency, sql2date($myrow['tran_date']));
+ $price /= $ex_rate;
+ }
+ }
+ elseif ($myrow['type'] != ST_INVADJUST) // calcutale the price from avg. price
+ $price = ($myrow['standard_cost'] * $qty - $old_std_cost * $old_qty) / $myrow['qty'];
+ else
+ $price = $myrow['standard_cost']; // Item Adjustments just have the real cost
+ return $price;
+}
+
+function getAverageCost($stock_id, $to_date)
+{
+ if ($to_date == null)
+ $to_date = Today();
+
+ $to_date = date2sql($to_date);
+
+ $sql = "SELECT standard_cost, price, tran_date, type, trans_no, qty, person_id FROM ".TB_PREF."stock_moves
+ WHERE stock_id=".db_escape($stock_id)."
+ AND tran_date <= '$to_date' AND standard_cost > 0.001 AND qty <> 0 AND type <> ".ST_LOCTRANSFER;
+
+ $sql .= " ORDER BY tran_date";
+
+ $result = db_query($sql, "No standard cost transactions were returned");
+ if ($result == false)
+ return 0;
+ $qty = $old_qty = $count = $old_std_cost = $tot_cost = 0;
+ while ($row=db_fetch($result))
+ {
+ $qty += $row['qty'];
+
+ $price = get_domestic_price($row, $stock_id, $qty, $old_std_cost, $old_qty);
+
+ $old_std_cost = $row['standard_cost'];
+ $tot_cost += $price;
+ $count++;
+ $old_qty = $qty;
+ }
+ if ($count == 0)
+ return 0;
+ return $tot_cost / $count;
+}
+