function write($_POST)
{
# Get vars
extract($_POST);
if (isset($back)) {
if ($type == 1) {
return details($_POST);
} else {
$_POST["accnum"] = $ac;
return details2($_POST);
}
}
# validate input
require_lib("validate");
$v = new validate();
$v->isOk($cusnum, "num", 1, 50, "Invalid Customer number.");
$v->isOk($accid, "num", 1, 50, "Invalid Contra Account.");
$v->isOk($refnum, "num", 1, 10, "Invalid Reference number.");
$v->isOk($amount, "float", 1, 20, "Invalid Amount.");
$v->isOk($details, "string", 0, 255, "Invalid Details.");
$v->isOk($author, "string", 1, 30, "Invalid Authorising person name.");
$datea = explode("-", $date);
if (count($datea) == 3) {
if (!checkdate($datea[1], $datea[0], $datea[2])) {
$v->isOk($date, "num", 1, 1, "Invalid date.");
}
} else {
$v->isOk($date, "num", 1, 1, "Invalid date.");
}
# display errors, if any
if ($v->isError()) {
$write = "";
$errors = $v->getErrors();
foreach ($errors as $e) {
$write .= "<li class='err'>" . $e["msg"] . "</li>";
}
$write .= "<p><input type='button' onClick='JavaScript:history.back();' value='« Correct submission'>";
return $write;
}
$date = "{$datea['2']}-{$datea['1']}-{$datea['0']}";
# Accounts details
$accRs = get("core", "*", "accounts", "accid", $accid);
$acc = pg_fetch_array($accRs);
# Select customer
db_connect();
$sql = "SELECT * FROM customers WHERE cusnum = '{$cusnum}' AND div = '" . USER_DIV . "'";
$custRslt = db_exec($sql) or errDie("Unable to access databse.", SELF);
if (pg_numrows($custRslt) < 1) {
return "<li class='err'>Invalid customer ID, or customer has been blocked.</li>";
} else {
$cust = pg_fetch_array($custRslt);
}
# Get department
db_conn("exten");
$sql = "SELECT * FROM departments WHERE deptid = '{$cust['deptid']}' AND div = '" . USER_DIV . "'";
$deptRslt = db_exec($sql);
if (pg_numrows($deptRslt) < 1) {
return "<i class='err'>Department Not Found</i>";
} else {
$dept = pg_fetch_array($deptRslt);
}
// $cust['cusname'] = remval($cust['cusname']);
// $cust['surname'] = remval($cust['surname']);
# Probe tran type
if ($entry == "CT") {
# Write transaction (debit contra account, credit debtors control)
recordtrans('journal', $accid, $dept['debtacc'], $date, $refnum, $amount, '0', $details . " - Customer {$cust['cusname']} {$cust['surname']}");
//PROCESS THIS WRITETRANS
//writetrans($accid, $dept['debtacc'], $date, $refnum, $amount, $details." - Customer $cust[cusname] $cust[surname]");
$tran = "\n\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t<td>{$acc['topacc']}/{$acc['accnum']} - {$acc['accname']}</td>\n\t\t\t\t\t\t\t<td>{$cust['accno']} - {$cust['cusname']} {$cust['surname']}</td>\n\t\t\t\t\t\t</tr>";
$samount = $amount - $amount * 2;
recordtrans('debtor', '0', '1', $date, '0', $samount, '0', $details . " - Customer {$cust['cusname']} {$cust['surname']}", $cust['cusnum']);
//PROCESS THIS ENTRY
//recordCT($samount, $cust['cusnum'],$date);
$type = 'c';
} else {
# Write transaction (debit debtors control, credit contra account)
recordtrans('journal', $dept['debtacc'], $accid, $date, $refnum, $amount, '0', $details . " - Customer {$cust['cusname']} {$cust['surname']}");
//PROCESS THIS WRITETRANS
//writetrans($dept['debtacc'], $accid, $date, $refnum, $amount, $details." - Customer $cust[cusname] $cust[surname]");
$tran = "\n\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t<td>{$cust['accno']} - {$cust['cusname']} {$cust['surname']}</td>\n\t\t\t\t\t\t\t<td>{$acc['topacc']}/{$acc['accnum']} - {$acc['accname']}</td>\n\t\t\t\t\t\t</tr>";
$samount = $amount;
recordtrans('debtor', '1', '0', $date, '0', $samount, '0', $details . " - Customer {$cust['cusname']} {$cust['surname']}", $cust['cusnum']);
//PROCESS THIS ENTRY
//recordDT($samount, $cust['cusnum'],$date);
$type = 'd';
}
db_connect();
# Begin updates
pglib_transaction("BEGIN") or errDie("Unable to start a database transaction.", SELF);
$sdate = date("Y-m-d");
# record the payment on the statement
$sql = "\n\t\t\t\tINSERT INTO stmnt \n\t\t\t\t\t(cusnum, invid, amount, date, type, st, div, allocation_date) \n\t\t\t\tVALUES \n\t\t\t\t\t('{$cust['cusnum']}', '0', '{$samount}', '{$date}', '{$details}', 'n', '" . USER_DIV . "', '{$date}')";
// $stmntRslt = db_exec($sql) or errDie("Unable to Insert statement record in Cubit.",SELF);
$sql = "INSERT INTO open_stmnt(cusnum, invid, amount, balance, date, type, st, div) VALUES('{$cust['cusnum']}', '0', '{$samount}', '{$samount}', '{$date}', '{$details}', 'n', '" . USER_DIV . "')";
// $stmntRslt = db_exec($sql) or errDie("Unable to Insert statement record in Cubit.",SELF);
# update the customer (make balance more)
$sql = "UPDATE customers SET balance = (balance + '{$samount}') WHERE cusnum = '{$cust['cusnum']}' AND div = '" . USER_DIV . "'";
// $rslt = db_exec($sql) or errDie("Unable to update customer in Cubit.",SELF);
# Commit updates
pglib_transaction("COMMIT") or errDie("Unable to commit a database transaction.", SELF);
switch ($type) {
case "d":
recordtrans('debtor', $accid, '0', $date, $refnum, $amount, '0', $details, $cust['cusnum']);
break;
case "c":
recordtrans('debtor', '0', $accid, $date, $refnum, $amount, '0', $details, $cust['cusnum']);
break;
default:
}
# Make ledge record
//PROCESS THIS ENTRY
//custledger($cust['cusnum'], $accid, $date, $refnum, $details, $amount, $type);
// Start layout
$write = "\n \t\t\t<h3>Journal transaction has been recorded</h3>\n\t\t\t <table " . TMPL_tblDflts . " width='500'>\n\t\t\t \t<tr>\n\t\t\t \t\t<td width='50%'><h3>Debit</h3></td>\n\t\t\t \t\t<td width='50%'><h3>Credit</h3></td>\n\t\t\t \t</tr>\n\t\t\t \t{$tran}\n\t\t\t \t<tr><td><br></td></tr>\n\t\t\t \t<tr colspan='2'>\n\t\t\t \t\t<td><h4>Amount</h4></td>\n\t\t\t \t</tr>\n\t\t\t \t<tr class='" . bg_class() . "'>\n\t\t\t \t\t<td colspan='2'><b>" . CUR . " {$amount}</b></td>\n\t\t\t \t</tr>\n\t\t\t </table>" . mkQuickLinks(ql("../core/trans-new.php", "Journal Transactions"), ql("../customers-view.php", "View Customers"));
return $write;
}
function write($_POST)
{
# Get vars
extract($_POST);
if (isset($back)) {
return edit($_POST);
}
# validate input
require_lib("validate");
$v = new validate();
$v->isOk($stkid, "num", 1, 50, "Invalid stock id.");
$v->isOk($whid, "num", 1, 50, "Invalid stock id.");
$v->isOk($unitnum, "num", 1, 50, "Invalid number of units.");
$v->isOk($cost, "float", 1, 50, "Invalid cost amount per unit.");
$v->isOk($cacc, "num", 1, 50, "Invalid contra account.");
$v->isOk($tipo, "string", 1, 50, "Invalid type.");
$v->isOk($det, "string", 0, 255, "Invalid Details.");
$v->isOk($date, "string", 4, 14, "Invalid date.");
# check if duplicate serial number selected, remove blanks
if (isset($sernos)) {
if (!ext_isUnique(ext_remBlnk($sernos))) {
$v->isOk("##", "num", 0, 0, "Error : Serial Numbers must be unique per line item.");
}
}
# Display errors, if any
if ($v->isError()) {
$confirm = "";
$errors = $v->getErrors();
foreach ($errors as $e) {
$confirm .= "<li class='err'>" . $e["msg"] . "</li>";
}
$confirm .= "<p><input type='button' onClick='JavaScript:history.back();' value='« Correct submission'>";
return $confirm;
}
# Select Stock
db_connect();
$sql = "SELECT * FROM stock WHERE stkid = '{$stkid}' AND div = '" . USER_DIV . "'";
$stkRslt = db_exec($sql) or errDie("Unable to access databse.", SELF);
if (pg_numrows($stkRslt) < 1) {
return "<li> Invalid Stock ID.</li>";
} else {
$stk = pg_fetch_array($stkRslt);
}
if ($stk['units'] < 0) {
$min_stock = abs($stk['units']);
if ($unitnum < $min_stock) {
$min_stock = $unitnum;
}
} else {
$min_stock = 0;
}
# Get warehouse name
db_conn("exten");
$sql = "SELECT * FROM warehouses WHERE whid = '{$whid}' AND div = '" . USER_DIV . "'";
$whRslt = db_exec($sql);
$wh = pg_fetch_array($whRslt);
$refnum = getrefnum();
# calculate actual cost amount
$temp = $cost;
$cost = sprint($cost * $unitnum);
if ($tipo == 'Increase') {
# Update Stock
db_connect();
$sql = "UPDATE stock\n\t\t\t\tSET units = (units + '{$unitnum}'),\n\t\t\t\t\tlcsprice = '{$temp}',\n\t\t\t\t\tcsamt = (csamt + {$cost}),\n\t\t\t\t\tcsprice = (\n\t\t\t\t\t\tSELECT\n\t\t\t\t\t\t\tCASE WHEN (units != -{$unitnum}) THEN (csamt+{$cost})/(units+{$unitnum})\n\t\t\t\t\t\t\tELSE 0\n\t\t\t\t\t\t\tEND\n\t\t\t\t\t\tFROM cubit.stock\n\t\t\t\t\t\tWHERE stkid='{$stkid}' AND div='" . USER_DIV . "'\n\t\t\t\t\t)\n\t\t\t\tWHERE stkid = '{$stkid}' AND div = '" . USER_DIV . "'";
// $rslt = db_exec($sql) or errDie("Unable to insert stock to Cubit.",SELF);
$sdate = $date;
recordtrans('stock', '1', '1', $sdate, $unitnum, $cost, $temp, '', $stkid);
db_connect();
if ($unitnum == 0) {
$csprice = 0;
} else {
$csprice = sprint($cost / $unitnum);
}
recordtrans('stock', '1', '0', $sdate, $unitnum, $cost, $csprice, $det, $stk['stkid']);
# stkid, stkcod, stkdes, trantype, edate, qty, csamt, details
//stockrec($stk['stkid'], $stk['stkcod'], $stk['stkdes'], 'dt', $sdate, $unitnum, $cost, $det);
$sql = "INSERT INTO stockrec (edate, stkid, stkcod, stkdes, trantype, qty, csprice, csamt, details, div)\n\t\t\t\tVALUES('{$sdate}', '{$stk['stkid']}', '{$stk['stkcod']}', '{$stk['stkdes']}', 'inc', '{$unitnum}', '{$cost}', '{$csprice}', '{$det}', '" . USER_DIV . "')";
// $recRslt = db_exec($sql);
db_connect();
$sql = "SELECT * FROM stock WHERE stkid = '{$stkid}' AND div = '" . USER_DIV . "'";
$stkRslt = db_exec($sql) or errDie("Unable to access databse.", SELF);
if (pg_numrows($stkRslt) < 1) {
return "<li> Invalid Stock ID.";
} else {
$stk = pg_fetch_array($stkRslt);
}
# balance transaction
# Debit STock account and Credit Contra Account
recordtrans('journal', $wh['stkacc'], $cacc, $date, $refnum, $cost, '0', $det);
//writetrans($wh['stkacc'], $cacc, $date, $refnum, $cost, $det);
$cc_trantype = cc_TranTypeAcc($wh['stkacc'], $cacc);
} else {
if ($tipo == 'Decrease') {
# Update Stock
db_connect();
$sql = "UPDATE stock SET csamt = (csamt - {$cost}), units = (units - '{$unitnum}') WHERE stkid = '{$stkid}' AND div = '" . USER_DIV . "'";
// $rslt = db_exec($sql) or errDie("Unable to insert stock to Cubit.",SELF);
//$sdate = date("Y-m-d");
$sdate = $date;
recordtrans('stock', '0', '0', $sdate, $unitnum, $cost, '0', $det, $stkid);
recordtrans('stock', '0', '1', $sdate, $unitnum, $cost, $csprice, $det, $stk['stkid']);
# stkid, stkcod, stkdes, trantype, edate, qty, csamt, details
//stockrec($stk['stkid'], $stk['stkcod'], $stk['stkdes'], 'ct', $sdate, $unitnum, $cost, $det);
db_connect();
if ($unitnum == 0) {
$csprice = 0;
} else {
$csprice = sprint($cost / $unitnum);
}
$sql = "INSERT INTO stockrec(edate, stkid, stkcod, stkdes, trantype, qty, csprice, csamt, details, div)\n\t\t\t\tVALUES('{$sdate}', '{$stk['stkid']}', '{$stk['stkcod']}', '{$stk['stkdes']}', 'dec', '-{$unitnum}', '{$cost}', '{$csprice}', '{$det}', '" . USER_DIV . "')";
//$recRslt = db_exec($sql);
db_connect();
$sql = "SELECT * FROM stock WHERE stkid = '{$stkid}' AND div = '" . USER_DIV . "'";
$stkRslt = db_exec($sql) or errDie("Unable to access databse.", SELF);
if (pg_numrows($stkRslt) < 1) {
return "<li> Invalid Stock ID.</li>";
} else {
$stk = pg_fetch_array($stkRslt);
}
# Units
if ($stk['units'] != 0) {
$sql = "UPDATE stock SET csprice = (csamt/units) WHERE stkid = '{$stkid}' AND div = '" . USER_DIV . "'";
// $rslt = db_exec($sql) or errDie("Unable to insert stock to Cubit.",SELF);
} else {
$sql = "UPDATE stock SET csprice = '{$csprice}' WHERE stkid = '{$stkid}' AND div = '" . USER_DIV . "'";
// $rslt = db_exec($sql) or errDie("Unable to insert stock to Cubit.",SELF);
}
if (isset($sernos)) {
foreach ($sernos as $skey => $serno) {
ext_OutSer($serno, $stkid, $det, $refnum, "tran");
}
}
recordtrans('journal', $cacc, $wh['stkacc'], $date, $refnum, $cost, '0', $det);
# Debit Contra Account and Credit Stock account
//writetrans($cacc, $wh['stkacc'], $date, $refnum, $cost, $det);
$cc_trantype = cc_TranTypeAcc($cacc, $wh['stkacc']);
}
}
if ($cc_trantype != false) {
$cc = "<script> CostCenter('{$cc_trantype}', 'Stock Transaction', '{$date}', '{$det}', '{$cost}', ''); </script>";
} else {
$cc = "";
}
$write = "\n\t\t\t{$cc}\n\t\t\t<table " . TMPL_tblDflts . " width='50%'>\n\t\t\t\t<tr>\n\t\t\t\t\t<th>Stock Balance Transaction</th>\n\t\t\t\t</tr>\n\t\t\t\t<tr class='datacell'>\n\t\t\t\t\t<td>Stock Balance Transaction for stock, {$stk['stkdes']} ({$stk['stkcod']}) has been successfully recorded.</td>\n\t\t\t\t</tr>\n\t\t\t</table>" . mkQuickLinks(ql("stock-add.php", "Add Stock"), ql("stock-view.php", "View Stock"));
return $write;
}
function write($_POST)
{
extract($_POST);
$vatcode += 0;
if (isset($back)) {
unset($_POST["back"]);
if ($chrgvat == "yes") {
return slctVatacc($_POST);
} elseif (isset($details)) {
return details($_POST);
} else {
return details2($_POST);
}
}
# validate input
require_lib("validate");
$v = new validate();
$v->isOk($ctaccid, "num", 1, 50, "Invalid Account to be Credited.");
$v->isOk($dtaccid, "num", 1, 50, "Invalid Account to be Debited.");
$v->isOk($refnum, "num", 1, 10, "Invalid Reference number.");
$v->isOk($amount, "float", 1, 20, "Invalid Amount.");
$v->isOk($details, "string", 0, 255, "Invalid Details.");
$v->isOk($author, "string", 1, 30, "Invalid Authorising person name.");
$v->isOk($chrgvat, "string", 1, 4, "Invalid charge vat option.");
if ($chrgvat == 'yes') {
$v->isOk($vataccid, "num", 1, 50, "Invalid VAT Account number.");
$v->isOk($vatdedacc, "num", 1, 50, "Invalid VAT Deductable Account number.");
$v->isOk($vatamt, "float", 1, 11, "Invalid VAT Amount.");
$v->isOk($vatinc, "string", 1, 3, "Invalid VAT inclusive selection.");
}
if ($v->isError()) {
$err = $v->genErrors();
return confirm($_POST, $err);
}
pglib_transaction("BEGIN") or errDie("Unable to start a database transaction.", SELF);
# Accounts details
$dtaccRs = get("core", "*", "accounts", "accid", $dtaccid);
$dtacc = pg_fetch_array($dtaccRs);
$ctaccRs = get("core", "*", "accounts", "accid", $ctaccid);
$ctacc = pg_fetch_array($ctaccRs);
if ($chrgvat == 'yes') {
if ($vatinc == 'yes') {
# Calculate amount
$amt = sprint($amount - $vatamt);
$totamt = sprint($amount);
} else {
# Calculate amount
$amt = sprint($amount);
$totamt = sprint($amount + $vatamt);
}
$datea = explode("-", $date);
// $cdate="$datea[2]-$datea[1]-$datea[0]";
$cdate = $date;
# Check VAt Deductable account
if ($vatdedacc == $dtaccid) {
db_connect();
$Sl = "SELECT * FROM vatcodes WHERE id='{$vatcode}'";
$Ri = db_exec($Sl);
if (pg_num_rows($Ri) < 1) {
return "Please select the vatcode";
}
$vd = pg_fetch_array($Ri);
## PROCESS THIS VAT
//vatr($vd['id'],$cdate,"INPUT",$vd['code'],$refnum,"$details VAT",-$totamt,-$vatamt);
recordtrans('journal', '0', '0', $cdate, $refnum, -$totamt, -$vatamt, "{$details} VAT" . "|{$vd['id']}|INPUT|{$vd['code']}", '0');
## PROCESS THIS WRITETRANS
recordtrans('journal', $vataccid, $ctaccid, $date, $refnum, $vatamt, '0', $details . " VAT");
//writetrans($vataccid, $ctaccid, $date, $refnum, $vatamt, $details." VAT");
## PROCESS THIS WRITETRANS
recordtrans('journal', $dtaccid, $ctaccid, $date, $refnum, $amt, '0', $details);
//writetrans($dtaccid, $ctaccid, $date, $refnum, $amt, $details);
} elseif ($vatdedacc == $ctaccid) {
db_connect();
$Sl = "SELECT * FROM vatcodes WHERE id='{$vatcode}'";
$Ri = db_exec($Sl);
if (pg_num_rows($Ri) < 1) {
return "Please select the vatcode";
}
$vd = pg_fetch_array($Ri);
## PROCESS THIS VAT
//vatr($vd['id'],$cdate,"OUTPUT",$vd['code'],$refnum,"$details. VAT",$totamt,$vatamt);
recordtrans('journal', '0', '0', $cdate, $refnum, $totamt, $vatamt, "{$details} VAT" . "|{$vd['id']}|OUTPUT|{$vd['code']}");
## PROCESS THIS WRITETRANS
recordtrans('journal', $dtaccid, $vataccid, $date, $refnum, $vatamt, '0', $details . " VAT");
//writetrans($dtaccid, $vataccid, $date, $refnum, $vatamt, $details." VAT");
## PROCESS THIS WRITETRANS
recordtrans('journal', $dtaccid, $ctaccid, $date, $refnum, $amt, $details);
//writetrans($dtaccid, $ctaccid, $date, $refnum, $amt, $details);
}
} else {
$totamt = sprint($amount);
# Write normal transaction
recordtrans('journal', $dtaccid, $ctaccid, $date, $refnum, $totamt, '0', $details);
//writetrans($dtaccid,$ctaccid, $date, $refnum, $totamt, $details);
}
if ($chrgvat == 'yes') {
$vataccRs = get("core", "*", "accounts", "accid", $vataccid);
$vatacc = pg_fetch_array($vataccRs);
$vataccnum = "\n\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t<td>VAT Amount</td>\n\t\t\t\t\t\t\t<td>{$vatamt}</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 Transaction Amount</td>\n\t\t\t\t\t\t\t<td><b>{$totamt}</b></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 Account</td>\n\t\t\t\t\t\t\t<td>{$vatacc['topacc']}/{$vatacc['accnum']} - {$vatacc['accname']}</td>\n\t\t\t\t\t\t</tr>\n\t\t\t\t\t";
$amt = $totamt - $vatamt;
} else {
$vataccnum = "";
$amt = $amount;
}
if (cc_TranTypeAcc($dtaccid, $ctaccid) != false) {
$cc_trantype = cc_TranTypeAcc($dtaccid, $ctaccid);
$cc = "<script> CostCenter('{$cc_trantype}', 'Journal Entry', '{$date}', '{$details}', '{$amt}', '../'); </script>";
} else {
$cc = "";
}
pglib_transaction("COMMIT") or errDie("Unable to commit a database transaction.", SELF);
// Start layout
$write = "\n\t\t\t\t<center>\n\t\t\t\t{$cc}\n\t\t\t\t<script>\n\t\t\t\t\tparent.window.reload;\n\t\t\t\t</script>\n\t\t\t\t<h3>Journal transaction has been recorded</h3>\n\t\t\t\t<table " . TMPL_tblDflts . " width='500'>\n\t\t\t\t\t<tr>\n\t\t\t\t\t\t<td width='50%'><h3>Debit</h3></td>\n\t\t\t\t\t\t<td width='50%'><h3>Credit</h3></td>\n\t\t\t\t\t</tr>\n\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t<td>{$dtacc['topacc']}/{$dtacc['accnum']} - {$dtacc['accname']}</td>\n\t\t\t\t\t\t<td>{$ctacc['topacc']}/{$ctacc['accnum']} - {$ctacc['accname']}</td>\n\t\t\t\t\t</tr>\n\t\t\t\t\t" . TBL_BR . "\n\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t<td>Amount</td>\n\t\t\t\t\t\t<td><b>{$amount}</b></td>\n\t\t\t\t\t</tr>\n\t\t\t\t\t{$vataccnum}\n\t\t\t\t</table>" . mkQuickLinks(ql("../reporting/index-reports.php", "Financials"), ql("../core/trans-new.php", "Journal Transactions"));
return $write;
}
