+function calculate_reorder_level($location, $line, &$st_ids, &$st_names, &$st_num, &$st_reorder)
+{
+ $sql = "SELECT ".TB_PREF."loc_stock.*, ".TB_PREF."locations.location_name, ".TB_PREF."locations.email
+ FROM ".TB_PREF."loc_stock, ".TB_PREF."locations
+ WHERE ".TB_PREF."loc_stock.loc_code=".TB_PREF."locations.loc_code
+ AND ".TB_PREF."loc_stock.stock_id = '" . $line->stock_id . "'
+ AND ".TB_PREF."loc_stock.loc_code = '" . $location . "'";
+ $res = db_query($sql,"a location could not be retreived");
+ $loc = db_fetch($res);
+ if ($loc['email'] != "")
+ {
+ $qoh = get_qoh_on_date($line->stock_id, $location);
+ $qoh -= get_demand_qty($line->stock_id, $location);
+ $qoh -= get_demand_asm_qty($line->stock_id, $location);
+ $qoh -= $line->quantity;
+ if ($qoh < $loc['reorder_level'])
+ {
+ $st_ids[] = $line->stock_id;
+ $st_names[] = $line->item_description;
+ $st_num[] = $qoh - $loc['reorder_level'];
+ $st_reorder[] = $loc['reorder_level'];
+ }
+ }
+ return $loc;
+}
+
+function send_reorder_email($loc, $st_ids, $st_names, $st_num, $st_reorder)
+{
+ global $path_to_root;
+
+ require_once($path_to_root . "/reporting/includes/class.mail.inc");
+ $company = get_company_prefs();
+ $mail = new email($company['coy_name'], $company['email']);
+ $from = $company['coy_name'] . " <" . $company['email'] . ">";
+ $to = $loc['location_name'] . " <" . $loc['email'] . ">";
+ $subject = _("Stocks below Re-Order Level at " . $loc['location_name']);
+ $msg = "\n";
+ for ($i = 0; $i < count($st_ids); $i++)
+ $msg .= $st_ids[$i] . " " . $st_names[$i] . ", " . _("Re-Order Level") . ": " . $st_reorder[$i] . ", " . _("Below") . ": " . $st_num[$i] . "\n";
+ $msg .= "\n" . _("Please reorder") . "\n\n";
+ $msg .= $company['coy_name'];
+ $mail->to($to);
+ $mail->subject($subject);
+ $mail->text($msg);
+ return $mail->send();
+}