function write($_POST)
{
extract($_POST);
require_lib("validate");
$v = new validate();
$v->isOk($des, "string", 0, 100, "Invalid action description.");
# display errors, if any
if ($v->isError()) {
$confirm = "";
$errors = $v->getErrors();
foreach ($errors as $e) {
$confirm .= "<li class=err>" . $e["msg"];
}
return entererr($_POST, $confirm . "</li>");
}
db_conn('crm');
$Sl = "INSERT INTO actions (action) VALUES ('{$des}')";
$Ry = db_exec($Sl) or errDie("Unable to insert category into db.");
$out = "<table border=0 cellpadding='" . TMPL_tblCellPadding . "' cellspacing='" . TMPL_tblCellSpacing . "' width='50%'>\r\n\t<tr><th>Action added to the system</th></tr>\r\n\t<tr class=datacell><td>New Action, has been successfully added to the system.</td></tr>\r\n\t</table>";
return $out;
}
function write($_POST)
{
# get vars
foreach ($_POST as $key => $value) {
${$key} = $value;
}
# validate input
require_lib("validate");
$v = new validate();
$v->isOk($accc, "string", 1, 50, "Invalid Account Creation Selection.");
# display errors, if any
if ($v->isError()) {
$theseErrors = "";
$errors = $v->getErrors();
foreach ($errors as $e) {
$theseErrors .= "-" . $e["msg"] . "<br>";
}
$Errors = "<tr><td class=err colspan=2>{$theseErrors}</td></tr>\n\t\t<tr><td colspan=2><br></td></tr>";
return entererr($accc, $Errors);
}
if ($accc == "cubit") {
$acccv = "acc-new.php";
$descript = "Use Cubit generated account numbers";
} elseif ($accc == "user") {
$acccv = "acc-new2.php";
$descript = "Use user selected account numbers";
}
# connect to db
db_connect();
# check if setting exists
$sql = "SELECT label FROM set WHERE label = 'ACCNEW_LNK'";
$Rslt = db_exec($sql) or errDie("Unable to check database for existing settings.");
if (pg_numrows($Rslt) > 0) {
$Sql = "UPDATE set SET value = '{$acccv}', type = 'Account Creation' WHERE label = 'ACCNEW_LNK'";
} else {
$Sql = "INSERT INTO set(type, label, value, descript) VALUES('Account Creation', 'ACCNEW_LNK', '{$acccv}', '{$descript}')";
}
$setRslt = db_exec($Sql) or errDie("Unable to insert settings to Cubit.");
# status report
$write = "\n\t<table border=0 cellpadding='" . TMPL_tblCellPadding . "' cellspacing='" . TMPL_tblCellSpacing . "' width='50%'>\n\t\t<tr><th>Cubit Settings</th></tr>\n\t\t<tr class=datacell><td>Setting have been successfully added to Cubit.</td></tr>\n\t</table>\n\t<p>\n\t<tr>\n\t<table border=0 cellpadding='2' cellspacing='1'>\n\t\t<tr><th>Quick Links</th></tr>\n\t\t<tr bgcolor='#88BBFF'><td><a href='set-view.php'>View Settings</a></td></tr>\n\t\t<script>document.write(getQuicklinkSpecial());</script>\n\t</table>";
return $write;
}
function write($_POST)
{
# get vars
foreach ($_POST as $key => $value) {
${$key} = $value;
}
# validate input
require_lib("validate");
$v = new validate();
$v->isOk($app, "string", 1, 50, "Invalid Selection.");
# Display errors, if any
if ($v->isError()) {
$theseErrors = "";
$errors = $v->getErrors();
foreach ($errors as $e) {
$theseErrors .= "-" . $e["msg"] . "<br>";
}
$Errors = "<tr><td class=err colspan=2>{$theseErrors}</td></tr>\n\t\t<tr><td colspan=2><br></td></tr>";
return entererr($accc, $Errors);
}
if ($app == 'napprv') {
$descript = "Don not Approve Purchases";
} else {
$descript = "Purchases Must Be Approved";
}
# Connect to db
db_connect();
# Check if setting exists
$sql = "SELECT label FROM set WHERE label = 'PURCH_APPRV' AND div = '" . USER_DIV . "'";
$Rslt = db_exec($sql) or errDie("Unable to check database for existing settings.");
if (pg_numrows($Rslt) > 0) {
$Sql = "UPDATE set SET value = '{$app}', descript = '{$descript}' WHERE label = 'PURCH_APPRV' AND div = '" . USER_DIV . "'";
} else {
$Sql = "INSERT INTO set(type, label, value, descript, div) VALUES('Stock Purchases Approval', 'PURCH_APPRV', '{$app}', '{$descript}', '" . USER_DIV . "')";
}
$setRslt = db_exec($Sql) or errDie("Unable to insert settings to Cubit.");
# status report
$write = "\n\t<table border=0 cellpadding='" . TMPL_tblCellPadding . "' cellspacing='" . TMPL_tblCellSpacing . "' width='50%'>\n\t\t<tr><th>Cubit Settings</th></tr>\n\t\t<tr class=datacell><td>Setting have been successfully added to Cubit.</td></tr>\n\t</table>\n\t<p>\n\t<tr>\n\t<table border=0 cellpadding='2' cellspacing='1'>\n\t\t<tr><th>Quick Links</th></tr>\n\t\t<tr bgcolor='#88BBFF'><td><a href='set-view.php'>View Settings</a></td></tr>\n\t\t<script>document.write(getQuicklinkSpecial());</script>\n\t</table>";
return $write;
}
function write($_POST)
{
# get vars
extract($_POST);
# validate input
require_lib("validate");
$v = new validate();
$v->isOk($typ, "string", 1, 50, "Invalid Interest Calculation selection.");
$v->isOk($perc, "num", 0, 50, "Invalid interest percentage.");
$v->isOk($dperc, "float", 0, 50, "Invalid Default interest percentage.");
$v->isOk($accid, "num", 1, 70, "Invalid Account Number.");
# display errors, if any
if ($v->isError()) {
$theseErrors = "";
$errors = $v->getErrors();
foreach ($errors as $e) {
$theseErrors .= "-" . $e["msg"] . "<br>";
}
$Errors = "\n\t\t\t<tr>\n\t\t\t\t<td class='err' colspan='2'>{$theseErrors}</td>\n\t\t\t</tr>\n\t\t\t<tr><td colspan='2'><br></td></tr>";
return entererr($accc, $Errors);
}
if ($typ == "perc") {
$descript = "Use Interest Percentage {$perc} %";
$typ = $perc;
} elseif ($typ == "rate") {
$descript = "User Customer Specific rate | Default rate {$dperc} %";
$typ = "r" . $dperc;
} else {
$descript = "Use Interest Brackets";
}
# Connect to db
db_connect();
# Check if setting exists
$sql = "SELECT label FROM set WHERE label = 'INT_TYPE'";
$Rslt = db_exec($sql) or errDie("Unable to check database for existing settings.");
if (pg_numrows($Rslt) > 0) {
$Sql = "UPDATE set SET value = '{$typ}', descript = '{$descript}' WHERE label = 'INT_TYPE' AND div = '" . USER_DIV . "'";
} else {
$Sql = "INSERT INTO set(type, label, value, descript, div) VALUES('Interest Calculation', 'INT_TYPE', '{$typ}', '{$descript}', '" . USER_DIV . "')";
}
$setRslt = db_exec($Sql) or errDie("Unable to insert settings to Cubit.");
core_connect();
$link = "DELETE FROM salesacc WHERE name = 'SalesInt' AND div = '" . USER_DIV . "';INSERT INTO salesacc(name, accnum, div) VALUES('SalesInt', '{$accid}', '" . USER_DIV . "')";
$linkRslt = db_exec($link) or errDie("Unable to add Sales Account link to Database.", SELF);
# status report
$write = "\n\t\t<table " . TMPL_tblDflts . " width='50%'>\n\t\t\t<tr>\n\t\t\t\t<th>Cubit Settings</th>\n\t\t\t</tr>\n\t\t\t<tr class='datacell'>\n\t\t\t\t<td>Setting have been successfully added to Cubit.</td>\n\t\t\t</tr>\n\t\t</table>\n\t\t<p>\n\t\t<tr>\n\t\t<table border='0' cellpadding='2' cellspacing='1'>\n\t\t\t<tr>\n\t\t\t\t<th>Quick Links</th>\n\t\t\t</tr>\n\t\t\t<tr bgcolor='#88BBFF'>\n\t\t\t\t<td><a href='set-view.php'>View Settings</a></td>\n\t\t\t</tr>\n\t\t\t<script>document.write(getQuicklinkSpecial());</script>\n\t\t</table>";
// return $write;
header("Location: calc-int.php");
}
function write($_POST)
{
# get vars
extract($_POST);
# validate input
require_lib("validate");
$v = new validate();
$v->isOk($typ, "string", 1, 50, "Invalid Interest Calculation selection.");
# display errors, if any
if ($v->isError()) {
$theseErrors = "";
$errors = $v->getErrors();
foreach ($errors as $e) {
$theseErrors .= "-" . $e["msg"] . "<br>";
}
$Errors = "\n\t\t\t\t\t<tr>\n\t\t\t\t\t\t<td class='err' colspan='2'>{$theseErrors}</td>\n\t\t\t\t\t</tr>\n\t\t\t\t\t<tr>\n\t\t\t\t\t\t<td colspan='2'><br></td>\n\t\t\t\t\t</tr>";
return entererr($accc, $Errors);
}
if ($typ == "use") {
$descript = "Use Cost Centers";
} else {
$descript = "Don not Use Cost Centers";
}
# Connect to db
db_connect();
# Check if setting exists
$sql = "SELECT label FROM set WHERE label = 'CC_USE'";
$Rslt = db_exec($sql) or errDie("Unable to check database for existing settings.");
if (pg_numrows($Rslt) > 0) {
$Sql = "UPDATE set SET value = '{$typ}', descript = '{$descript}' WHERE label = 'CC_USE' AND div = '" . USER_DIV . "'";
} else {
$Sql = "INSERT INTO set(type, label, value, descript, div) VALUES('Cost Center Usage', 'CC_USE', '{$typ}', '{$descript}', '" . USER_DIV . "')";
}
$setRslt = db_exec($Sql) or errDie("Unable to insert settings to Cubit.");
# status report
$write = "\n\t\t\t\t<table " . TMPL_tblDflts . " width='50%'>\n\t\t\t\t\t<tr>\n\t\t\t\t\t\t<th>Cubit Settings</th>\n\t\t\t\t\t</tr>\n\t\t\t\t\t<tr class='datacell'>\n\t\t\t\t\t\t<td>Setting has been successfully added to Cubit.</td>\n\t\t\t\t\t</tr>\n\t\t\t\t</table>\n\t\t\t\t<p>\n\t\t\t\t<tr>\n\t\t\t\t<table border=0 cellpadding='2' cellspacing='1'>\n\t\t\t\t\t<tr>\n\t\t\t\t\t\t<th>Quick Links</th>\n\t\t\t\t\t</tr>\n\t\t\t\t\t<tr bgcolor='#88BBFF'>\n\t\t\t\t\t\t<td><a href='set-view.php'>View Settings</a></td>\n\t\t\t\t\t</tr>\n\t\t\t\t\t<script>document.write(getQuicklinkSpecial());</script>\n\t\t\t\t</table>";
return $write;
}
function write($_POST)
{
# get vars
foreach ($_POST as $key => $value) {
${$key} = $value;
}
# validate input
require_lib("validate");
$v = new validate();
$v->isOk($typ, "string", 1, 50, "Invalid Debtors age type Selection.");
# display errors, if any
if ($v->isError()) {
$theseErrors = "";
$errors = $v->getErrors();
foreach ($errors as $e) {
$theseErrors .= "-" . $e["msg"] . "<br>";
}
$Errors = "<tr><td class=err colspan=2>{$theseErrors}</td></tr>\n\t\t<tr><td colspan=2><br></td></tr>";
return entererr($accc, $Errors);
}
db_conn('cubit');
$Sl = "DELETE FROM ms WHERE set='statement type'";
$Ri = db_exec($Sl);
if ($typ == "sys") {
$descript = "Use open statement";
$Sl = "INSERT INTO ms(set,val) VALUES('statement type','open')";
$Ri = db_exec($Sl);
} else {
$descript = "Use running statement";
}
# Connect to db
db_connect();
# status report
$write = "\n\t<table border=0 cellpadding='" . TMPL_tblCellPadding . "' cellspacing='" . TMPL_tblCellSpacing . "' width='50%'>\n\t\t<tr><th>Cubit Settings</th></tr>\n\t\t<tr class=datacell><td>Setting has been successfully saved.</td></tr>\n\t</table>\n\t<p>\n\t<tr>\n\t<table border=0 cellpadding='2' cellspacing='1'>\n\t\t<tr><th>Quick Links</th></tr>\n\t\t<script>document.write(getQuicklinkSpecial());</script>\n\t</table>";
return $write;
}
function write($_POST)
{
extract($_POST);
$aid += 0;
require_lib("validate");
$v = new validate();
$v->isOk($name, "string", 1, 100, "Invalid Team name.");
$v->isOk($des, "string", 0, 100, "Invalid team description.");
# display errors, if any
if ($v->isError()) {
$confirm = "";
$errors = $v->getErrors();
foreach ($errors as $e) {
$confirm .= "<li class='err'>" . $e["msg"] . "</li>";
}
return entererr($_POST, $confirm . "</li>");
}
$id += 0;
db_conn('crm');
$Sl = "SELECT email FROM teams WHERE id='{$id}'";
$Ry = db_exec($Sl) or errDie("Unable to get team data.");
if (pg_numrows($Ry) < 1) {
return "Invalid team.";
}
$tdata = pg_fetch_array($Ry);
$tdata['email'] += 0;
$Sl = "UPDATE teams SET name='{$name}',des='{$des}',email='{$aid}' WHERE id='{$id}' AND div='" . USER_DIV . "'";
$Ry = db_exec($Sl) or errDie("Unable to insert team into db.");
db_conn('cubit');
$Sl = "UPDATE mail_accounts SET crmteam='{$id}' WHERE account_id='{$aid}'";
$Ry = db_exec($Sl) or errDie("Unable to update mail account.");
$Sl = "UPDATE mail_accounts SET crmteam='0' WHERE account_id='{$tdata['email']}'";
$Ry = db_exec($Sl) or errDie("Unable to update mail account.");
$out = "\r\n\t\t\t\t<table " . TMPL_tblDflts . " width='50%'>\r\n\t\t\t\t\t<tr>\r\n\t\t\t\t\t\t<th>Cubit Team Updated</th>\r\n\t\t\t\t\t</tr>\r\n\t\t\t\t\t<tr class='datacell'>\r\n\t\t\t\t\t\t<td>Cubit Team <b>{$name}</b>, has been successfully edited in the system.</td>\r\n\t\t\t\t\t</tr>\r\n\t\t\t\t</table>";
return $out;
}
function write($_POST)
{
# get vars
extract($_POST);
# validate input
require_lib("validate");
$v = new validate();
$v->isOk($whid, "num", 1, 50, "Invalid Warehouse.");
# display errors, if any
if ($v->isError()) {
$theseErrors = "";
$errors = $v->getErrors();
foreach ($errors as $e) {
$theseErrors .= "-" . $e["msg"] . "<br>";
}
$Errors = "<tr><td class='err' colspan='2'>{$theseErrors}</td></tr>\n\t\t<tr><td colspan=2><br></td></tr>";
return entererr($accc, $Errors);
}
# get warehouse name
db_conn("exten");
$sql = "SELECT whname,whno FROM warehouses WHERE whid = '{$whid}' AND div = '" . USER_DIV . "'";
$whRslt = db_exec($sql);
$wh = pg_fetch_array($whRslt);
# connect to db
db_connect();
# check if setting exists
$sql = "SELECT label 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) {
$Sql = "UPDATE set SET value = '{$whid}', type = 'Default Warehouse' WHERE label = 'DEF_WH' AND div = '" . USER_DIV . "'";
} else {
$Sql = "\n\t\t\tINSERT INTO set (\n\t\t\t\ttype, label, value, descript, div\n\t\t\t) VALUES (\n\t\t\t\t'Default Warehouse', 'DEF_WH', '{$whid}', '{$wh['whno']} {$wh['whname']}', '" . USER_DIV . "'\n\t\t\t)";
}
$setRslt = db_exec($Sql) or errDie("Unable to insert settings to Cubit.");
# status report
$write = "\n\t\t<table " . TMPL_tblDflts . " width='50%'>\n\t\t\t<tr>\n\t\t\t\t<th>Cubit Settings</th>\n\t\t\t</tr>\n\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t<td>Setting has been successfully added to Cubit.</td>\n\t\t\t</tr>\n\t\t</table>\n\t\t<p>\n\t\t<tr>\n\t\t<table border=0 cellpadding='2' cellspacing='1'>\n\t\t\t<tr>\n\t\t\t\t<th>Quick Links</th>\n\t\t\t</tr>\n\t\t\t<script>document.write(getQuicklinkSpecial());</script>\n\t\t</table>";
return $write;
}
function write($_POST)
{
extract($_POST);
$aid += 0;
require_lib("validate");
$v = new validate();
$v->isOk($name, "string", 1, 100, "Invalid Team name.");
$v->isOk($des, "string", 0, 100, "Invalid team description.");
# display errors, if any
if ($v->isError()) {
$confirm = "";
$errors = $v->getErrors();
foreach ($errors as $e) {
$confirm .= "<li class='err'>{$e['msg']}</li>";
}
return entererr($_POST, $confirm . "</li>");
}
db_conn('crm');
$Sl = "INSERT INTO teams (name,des,email,div) VALUES ('{$name}','{$des}','{$aid}','" . USER_DIV . "')";
$Ry = db_exec($Sl) or errDie("Unable to insert team into db.");
$teamid = pglib_lastid("teams", "id");
db_conn('cubit');
$Sl = "UPDATE mail_accounts SET crmteam='{$teamid}' WHERE account_id='{$aid}'";
$Ry = db_exec($Sl) or errDie("Unable to update mail account.");
$out = "\r\n\t\t\t\t<table " . TMPL_tblDflts . " width='50%'>\r\n\t\t\t\t\t<tr>\r\n\t\t\t\t\t\t<th>Cubit Team added to the system</th>\r\n\t\t\t\t\t</tr>\r\n\t\t\t\t\t<tr class='datacell'>\r\n\t\t\t\t\t\t<td>New Cubit Team <b>{$name}</b>, has been successfully added to the system.</td>\r\n\t\t\t\t\t</tr>\r\n\t\t\t\t</table>";
return $out;
}
function write($_POST)
{
extract($_POST);
# validate input
require_lib("validate");
$v = new validate();
// $v->isOk ($typ, "string", 1, 50, "Invalid Vat type Selection.");
if ($v->isError()) {
$theseErrors = "";
$errors = $v->getErrors();
foreach ($errors as $e) {
$theseErrors .= "-" . $e["msg"] . "<br>";
}
$Errors = "<tr><td class='err' colspan='2'>{$theseErrors}</td></tr>\n\t\t<tr><td colspan=2><br></td></tr>";
return entererr($accc, $Errors);
}
# Connect to db
db_connect();
// ISO-8859-1
// UTF-8
// cp1251
// Windows-1252
//<td>(RSA) Rand - R</td>
//<td>(USA) Dollar - $</td>
//<td>(UK) Pound - £</td>
//<td>(EU) Euro - €</td>
//<td><input type='text' size='4' name='ocur'></td>
switch ($cur) {
case "rand":
$writecur = "R";
break;
case "dollar":
$writecur = "\$";
break;
case "pound":
$writecur = "£";
break;
case "euro":
$writecur = "€";
break;
default:
case "other":
$writecur = $ocur;
}
# Check if setting exists
$sql = "SELECT constant FROM settings WHERE constant='CURRENCY'";
$Rslt = db_exec($sql) or errDie("Unable to check database for existing settings.");
if (pg_numrows($Rslt) > 0) {
$Sql = "UPDATE settings SET value='{$writecur}' WHERE constant='CURRENCY'";
} else {
$Sql = "\n\t\t\tINSERT INTO settings (\n\t\t\t\tconstant, label, value, type, datatype, minlen, maxlen, div\n\t\t\t) VALUES (\n\t\t\t\t'CURRENCY', 'Currency symbol', '{$writecur}', 'accounting', 'allstring', 1, 100, 0\n\t\t\t)";
}
$setRslt = db_exec($Sql) or errDie("Unable to insert settings to Cubit.");
# status report
$write = "\n\t\t<table " . TMPL_tblDflts . " width='50%'>\n\t\t\t<tr>\n\t\t\t\t<th>Cubit Settings</th>\n\t\t\t</tr>\n\t\t\t<tr class='datacell'>\n\t\t\t\t<td>Setting have been successfully added to Cubit.</td>\n\t\t\t</tr>\n\t\t</table>\n\t\t<p>\n\t\t<tr>\n\t\t<table border=0 cellpadding='2' cellspacing='1'>\n\t\t\t<tr><th>Quick Links</th></tr>\n\t\t\t<script>document.write(getQuicklinkSpecial());</script>\n\t\t</table>";
return $write;
}
function write($_POST)
{
extract($_POST);
require_lib("validate");
$v = new validate();
$v->isOk($name, "string", 1, 100, "Invalid category name.");
$v->isOk($des, "string", 1, 100, "Invalid category description.");
# display errors, if any
if ($v->isError()) {
$confirm = "";
$errors = $v->getErrors();
foreach ($errors as $e) {
$confirm .= "<li class=err>" . $e["msg"];
}
return entererr($_POST, $confirm . "</li>");
}
$id += 0;
db_conn('crm');
$Sl = "UPDATE tcats SET name='{$name}',des='{$des}' WHERE id='{$id}' AND div='" . USER_DIV . "'";
$Ry = db_exec($Sl) or errDie("Unable to insert cat into db.");
$out = "<table border=0 cellpadding='" . TMPL_tblCellPadding . "' cellspacing='" . TMPL_tblCellSpacing . "' width='50%'>\r\n\t<tr><th>Category updated</th></tr>\r\n\t<tr class=datacell><td>Category <b>{$name}</b>, has been successfully edited in the system.</td></tr>\r\n\t</table>";
return $out;
}
function write($_POST)
{
# get vars
foreach ($_POST as $key => $value) {
${$key} = $value;
}
# validate input
require_lib("validate");
$v = new validate();
$v->isOk($linvid, "num", 1, 6, "Invalid Last Invoice nubmer.");
$v->isOk($lnoteid, "num", 1, 6, "Invalid Last Credit Note Number.");
$v->isOk($lpurnum, "num", 1, 6, "Invalid Purchase Number.");
# display errors, if any
if ($v->isError()) {
$theseErrors = "";
$errors = $v->getErrors();
foreach ($errors as $e) {
$theseErrors .= "-" . $e["msg"] . "<br>";
}
$Errors = "<tr><td class=err colspan=2>{$theseErrors}</td></tr>\n\t\t<tr><td colspan=2><br></td></tr>";
return entererr($accc, $Errors);
}
# connect to db
db_connect();
# change settings
$rslt = db_exec("DELETE FROM seq WHERE type='inv'");
if (pg_cmdtuples($rslt) <= 0) {
return "<li class=err> Error updating sequences for invoice id </li><br>";
}
$rslt = db_exec("INSERT INTO seq (type, last_value) VALUES('inv', '{$linvid}')");
$rslt = db_exec("DELETE FROM seq WHERE type='note'");
if (pg_cmdtuples($rslt) <= 0) {
return "<li class=err> Error updating sequences for credit note </li><br>";
}
$rslt = db_exec("INSERT INTO seq (type, last_value) VALUES('note', '{$lnoteid}')");
$rslt = db_exec("DELETE FROM seq WHERE type='pur'");
if (pg_cmdtuples($rslt) <= 0) {
return "<li class=err> Error updating sequences for purchase id </li><br>";
}
$rslt = db_exec("INSERT INTO seq (type, last_value) VALUES('pur', '{$lpurnum}')");
# status report
$write = "\n\t<table border=0 cellpadding='" . TMPL_tblCellPadding . "' cellspacing='" . TMPL_tblCellSpacing . "' width='50%'>\n\t\t<tr><th>Cubit Settings</th></tr>\n\t\t<tr class=datacell><td>Setting have been successfully added to Cubit.</td></tr>\n\t</table>";
return $write;
}
