{

# get vars

foreach ($_POST as $key => $value) {

$$key = $value;

}

# Validate input

require_lib("validate");

$v = new validate ();

$v->isOk ($purid, "num", 1, 20, "Invalid Non-Stock Purchase number.");

# 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='&laquo; Correct submission'>";

return $confirm;

}

# Get purchase info

db_connect();

$sql = "SELECT * FROM nons_purchases WHERE purid = '$purid' AND div = '".USER_DIV."'";

$purRslt = db_exec ($sql) or errDie ("Unable to get purchase information");

if (pg_numrows ($purRslt) < 1) {

return "<li class=err>purchase Not Found</li>";

}

$pur = pg_fetch_array($purRslt);

# check if purchase has been printed

if($pur['received'] == "y"){

$error = "<li class=err> Error : Purchase number <b>$purid</b> has already been received.";

$error .= "<p><input type=button onClick='JavaScript:history.back();' value='&laquo; Correct submission'>";

return $error;

}

/* --- Start Drop Downs --- */

# days drop downs

$days = array("30"=>"30", "60"=>"60", "90"=>"90", "120"=>"120");

$termssel = extlib_cpsel("terms", $days, $pur['terms']);

# format date

list($pyear, $pmon, $pday) = explode("-", $pur['pdate']);

$supacc = "<select name='supacc'>";

core_connect();

$sql = "SELECT * FROM accounts WHERE div = '".USER_DIV."' ORDER BY accname ASC";

$accRslt = db_exec($sql);

if(pg_numrows($accRslt) < 1){

return "<li>There are No accounts in Cubit.";

}

while($acc = pg_fetch_array($accRslt)){

# Check Disable

if(isDisabled($acc['accid']))

continue;

$supacc .= "<option value='$acc[accid]'>$acc[topacc]/$acc[accnum] - $acc[accname]</option>";

}

$supacc .= "</select>";

/* --- End Drop Downs --- */

/* --- Start Products Display --- */

# select all products

$products = "

<table cellpadding='".TMPL_tblCellPadding."' cellspacing='".TMPL_tblCellSpacing."' border=0 width=100%>

<tr><th>ITEM NUMBER</th><th>DESCRIPTION</th><th>QTY RECEIVED</th><th>UNIT PRICE</th><th>DELIVERY DATE</th><th>AMOUNT</th><tr>";

# get selected stock in this purchase

db_connect();

$sql = "SELECT *, (qty - rqty) as qty FROM nons_pur_items WHERE purid = '$purid' AND (qty - rqty) > 0 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++;

list($syear, $smon, $sday) = explode("-", $stkd['ddate']);

# put in product

$products .="<tr class='bg-odd'><td><input type=hidden size=4 name=cod[] value='$stkd[cod]'>$stkd[cod]</td><td>$stkd[des]</td><td><input type=hidden name=qts[] value='$stkd[qty]'><input type=hidden size=5 name=qtys[] value='$stkd[qty]'>$stkd[qty]</td><td><input type=hidden size=4 name=unitcost[] value='$stkd[unitcost]'>$stkd[unitcost]</td><td>$sday-$smon-$syear</td><td>".CUR." $stkd[amt]</td></tr>";

$key++;

}

# look above(if i = 0 then there are no products)

if($i == 0){

$done = "";

}

$products .= "</table>";

/* --- End Products Display --- */

/* --- Start Some calculations --- */

# get subtotal

$SUBTOT = sprint($pur['subtot']);

# get Total

$TOTAL = sprint($pur['total']);

# get vat

$VAT = sprint($pur['vat']);

/* --- End Some calculations --- */

db_conn('cubit');

$Sql = "SELECT * FROM assets WHERE (id = '$pur[assid]' AND div = '".USER_DIV."')";

$Rslt = db_exec($Sql) or errDie ("Unable to access database.");

if(pg_numrows($Rslt)<1){

return "<li class=err> - Asset not Found";

}

$asset = pg_fetch_array($Rslt);

/* -- Final Layout -- */

$details = "<center>

<h3>Non-Stock Asset Purchase received</h3>

<form action='".SELF."' method=post name=form>

<input type=hidden name=key value=update>

<input type=hidden name=purid value='$purid'>

<table cellpadding='".TMPL_tblCellPadding."' cellspacing='".TMPL_tblCellSpacing."' border=0 width=95%>

<tr><td valign=top>

<table cellpadding='".TMPL_tblCellPadding."' cellspacing='".TMPL_tblCellSpacing."' border=0>

<tr><th colspan=2> Supplier Details </th></tr>

<tr class='bg-odd'><td>Supplier</td><td valign=center>$pur[supplier]</td></tr>

<tr class='bg-even'><td>Supplier Address</td><td valign=center><pre>$pur[supaddr]</pre></td></tr>

<tr class='bg-odd' ".ass("Select the account you wish to Credit")."><td>Account</td><td>$supacc</td></tr>

</table>

</td><td valign=top align=right>

<table cellpadding='".TMPL_tblCellPadding."' cellspacing='".TMPL_tblCellSpacing."' border=0>

<tr><th colspan=2> Non-Stock Asset Purchase Details </th></tr>

<tr class='bg-even'><td>Asset</td><td valign=center>$asset[des]</td></tr>

<tr class='bg-odd'><td>Non-Stock Purchase No.</td><td valign=center>$pur[purnum]</td></tr>

<tr class='bg-even'><td>Delivery Ref No.</td><td valign=center><input type=text name=refno size=10 value='$pur[refno]'></td></tr>

<tr class='bg-odd'><td>Terms</td><td valign=center>$pur[terms] Days</td></tr>

<tr class='bg-even'><td>Date</td><td valign=center><input type=text size=2 name=pday maxlength=2 value='$pday'>-<input type=text size=2 name=pmon maxlength=2 value='$pmon'>-<input type=text size=4 name=pyear maxlength=4 value='$pyear'> DD-MM-YYYY</td></tr>

<tr class='bg-odd'><td>VAT Inclusive</td><td valign=center>$pur[vatinc]</td></tr>

<tr class='bg-even'><td>Delivery Charges</td><td valign=center>".CUR." <input type=text name=shipchrg size=10 value='$pur[shipchrg]'></td></tr>

</table>

</td></tr>

<tr><td><br></td></tr>

<tr><td colspan=2>$products</td></tr>

<tr><td>

<p>

<table border=0 cellpadding='".TMPL_tblCellPadding."' cellspacing='".TMPL_tblCellSpacing."'>

<tr><th width=25%>Quick Links</th><th width=25%>Remarks</th><td rowspan=5 valign=top width=50%>$error</td></tr>

<tr><td class='bg-odd'><a href='nons-purchase-new.php'>New purchase</a></td><td class='bg-odd' rowspan=4 align=center valign=top><textarea name=remarks rows=4 cols=20>$pur[remarks]</textarea></td></tr>

<tr class='bg-odd'><td><a href='nons-purchase-view.php'>View purchases</a></td></tr>

<script>document.write(getQuicklinkSpecial());</script>

</table>

</td><td align=right>

<table cellpadding='".TMPL_tblCellPadding."' cellspacing='".TMPL_tblCellSpacing."' border=0 width=80%>

<tr class='bg-even'><td>SUBTOTAL</td><td align=right>".CUR." $SUBTOT</td></tr>

<tr class='bg-odd'><td>VAT @ ".TAX_VAT." %</td><td align=right>".CUR." $pur[vat]</td></tr>

<tr class='bg-even'><th>GRAND TOTAL</th><td align=right>".CUR." $TOTAL</td></tr>

</table>

</td></tr>

<tr><td align=right><input type=button value='&laquo Back' onClick='javascript:history.back()'> | <input type=submit name='upBtn' value='Write'></td></tr>

</table></form>

</center>";

return $details;

{

#get vars

foreach ($_POST as $key => $value) {

$$key = $value;

}

# validate input

require_lib("validate");

$v = new validate ();

$v->isOk ($purid, "num", 1, 20, "Invalid purchase number.");

if(!isset($supid) && !isset($bankid)){

$v->isOk ($supacc, "num", 1, 10, "Invalid Supplier Account number.");

}

$v->isOk ($remarks, "string", 0, 255, "Invalid Remarks.");

$v->isOk ($refno, "string", 0, 255, "Invalid Delivery Reference No.");

$v->isOk ($shipchrg, "float", 0, 20, "Invalid Delivery Charges.");

$pdate = $pyear."-".$pmon."-".$pday;

if(!checkdate($pmon, $pday, $pyear)){

$v->isOk ($date, "num", 1, 1, "Invalid Date.");

}

# used to generate errors

$error = "asa@";

# check quantities

if(isset($qtys)){

foreach($qtys as $keys => $qty){

$v->isOk ($qty, "num", 1, 10, "Invalid Quantity for product number : <b>".($keys+1)."</b>");

if($qty > $qts[$keys]){

$v->isOk ($qty, "num", 0, 0, "Error : Quantity for product number : <b>".($keys+1)."</b> is more that Qty Purchased");

}

$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>");

}

}

}

# 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);

}

# Get purchase info

db_connect();

$sql = "SELECT * FROM nons_purchases WHERE purid = '$purid' AND div = '".USER_DIV."'";

$purRslt = db_exec ($sql) or errDie ("Unable to get purchase information");

if (pg_numrows ($purRslt) < 1) {

return "<li>- purchase Not Found</li>";

}

$pur = pg_fetch_array($purRslt);

$pur['pdate'] = $pyear."-".$pmon."-".$pday;

# check if purchase has been received

if($pur['received'] == "y"){

$error = "<li class=err> Error : Purchase number <b>$purid</b> has already been received.";

$error .= "<p><input type=button onClick='JavaScript:history.back();' value='&laquo; Correct submission'>";

return $error;

}

db_connect();

$Sql = "SELECT * FROM assets WHERE (id = '$pur[assid]' AND div = '".USER_DIV."')";

$Rslt = db_exec($Sql) or errDie ("Unable to access database.");

if(pg_numrows($Rslt)<1){

return "<li class=err> - Asset not Found";

}

$asset = pg_fetch_array($Rslt);

# Get group

$sql = "SELECT * FROM assetgrp WHERE grpid = '$asset[grpid]' AND div = '".USER_DIV."'";

$grpRslt = db_exec($sql);

$grp = pg_fetch_array($grpRslt);

$stkacc = $grp['costacc'];

# Insert purchase to DB

db_connect();

# begin updating

pglib_transaction ("BEGIN") or errDie("Unable to start a database transaction.",SELF);

if(isset($qtys)){

# amount of stock in

$totstkamt = array();

$resub = 0;

# Get subtotal

foreach($qtys as $keys => $value){

# Skip zeros

if($qtys[$keys] < 1){

continue;

}

$amt[$keys] = ($qtys[$keys] * $unitcost[$keys]);

}

$SUBTOTAL = array_sum($amt);

$revat = 0;

foreach($qtys as $keys => $value){

# Get selected stock line

$sql = "SELECT * FROM nons_pur_items WHERE cod = '$cod[$keys]' AND purid = '$purid' AND div = '".USER_DIV."'";

$stkdRslt = db_exec($sql);

$stkd = pg_fetch_array($stkdRslt);

# Calculate cost amount bought

$amt[$keys] = ($qtys[$keys] * $unitcost[$keys]);

/* delivery charge */

# Calculate percentage from subtotal

$perc[$keys] = (($amt[$keys]/$SUBTOTAL) * 100);

# Get percentage from shipping charges

$shipc[$keys] = (($perc[$keys] / 100) * $shipchrg);

# add delivery charges

$amt[$keys] += $shipc[$keys];

/* end delivery charge */

# the subtotal + delivery charges

$resub += $amt[$keys];

# calculate vat

$svat[$keys] = svat($amt[$keys], $stkd['amt'], $stkd['svat']);

# received vat

$revat += $svat[$keys];

# make amount vat free

if($pur['vatinc'] == "yes"){

$amt[$keys] = ($amt[$keys] - $svat[$keys]);

}

# Update Order items

$sql = "UPDATE nons_pur_items SET rqty = (rqty + '$qtys[$keys]') WHERE cod = '$cod[$keys]' AND purid='$purid' AND div = '".USER_DIV."'";

$rslt = db_exec($sql) or errDie("Unable to insert Order items to Cubit.",SELF);

# keep records for transactions

if(isset($totstkamt[$stkacc])){

$totstkamt[$stkacc] += $amt[$keys];

}else{

$totstkamt[$stkacc] = $amt[$keys];

}

# check if there are any outstanding items

$sql = "SELECT * FROM nons_pur_items WHERE purid = '$purid' AND (qty - rqty) > '0' AND div = '".USER_DIV."'";

$stkdRslt = db_exec($sql);

# if none the set to received

if(pg_numrows($stkdRslt) < 1){

# update surch_int(received = 'y')

$sql = "UPDATE nons_purchases SET received = 'y', supplier = '$pur[supplier]', supaddr = '$pur[supaddr]' WHERE purid = '$purid' AND div = '".USER_DIV."'";

$rslt = db_exec($sql) or errDie("Unable to update international Orders in Cubit.",SELF);

}

}

}

# Update purchase on the DB

if($pur['part'] == 'y'){

# Update purchase on the DB

$sql = "UPDATE nons_purchases SET shipchrg = (shipchrg + '$shipchrg'), refno = '$refno', remarks = '$remarks' WHERE purid = '$purid' AND div = '".USER_DIV."'";

$rslt = db_exec($sql) or errDie("Unable to update purchase in Cubit.",SELF);

}else{

# Update purchase on the DB

$sql = "UPDATE nons_purchases SET shipchrg = '$shipchrg', refno = '$refno', remarks = '$remarks' WHERE purid = '$purid' AND div = '".USER_DIV."'";

$rslt = db_exec($sql) or errDie("Unable to update purchase in Cubit.",SELF);

}

/* Transactions */

$refnum = getrefnum(date("d-m-Y"));

/* - Start Hooks - */

$vatacc = gethook("accnum", "salesacc", "name", "VAT");

/* - End Hooks - */

$sdate = $pur['pdate'];

$tpp=0;

# record transaction from data

foreach($totstkamt as $stkacc => $wamt){

# Debit Stock and Credit Suppliers control

writetrans($stkacc, $supacc, date("d-m-Y"), $refnum, $wamt, "Non-Stock Asset Purchase No. $pur[purnum] Received.");

pettyrec($supacc, $sdate, "ct", "Non-Stock Asset Purchase No. $pur[purnum] Received.", $wamt, "Cash Purchase");

}

# Calc Vat amount on (subtot + delchrg)

$vatamt = $revat;

# Add vat if not included

if($pur['vatinc'] == 'no'){

$retot = ($resub + $vatamt);

}elseif($pur['vatinc'] == "novat") {

$retot = ($resub);

$vatamt = 0;

}else{

$retot = ($resub);

}

if($vatamt <> 0){

# Debit bank and credit the account involved

writetrans($vatacc, $supacc, date("d-m-Y"), $refnum, $vatamt, "Non-Stock Asset Purchase Vat paid on Non-Stock Purchase No. $pur[purnum].");

pettyrec($supacc, $sdate, "ct", "Non-Stock Asset Purchase No. $pur[purnum] Received.", $vatamt, "Cash Purchase Vat");

# Record the payment on the statement

db_connect();

$sdate = $pur['pdate'];

}

/* End Transactions */

/* Start moving if purchase received */

# Get purchase info

db_connect();

$sql = "SELECT * FROM nons_purchases WHERE purid = '$purid' AND div = '".USER_DIV."'";

$purRslt = db_exec ($sql) or errDie ("Unable to get purchase information");

if (pg_numrows ($purRslt) < 1) {

return "<li>- purchase Not Found</li>";

}

$pur = pg_fetch_array($purRslt);

if($pur['received'] == "y"){

# copy purchase

db_conn($pur['prd']);

$sql = "INSERT INTO nons_purchases(purid, deptid, supplier, supaddr, terms, pdate, ddate, shipchrg, subtot, total, balance, vatinc, vat, remarks, refno, received, done, div, purnum)";

$sql .= " VALUES('$purid', '$pur[deptid]', '$pur[supplier]', '$pur[supaddr]', '$pur[terms]', '$pur[pdate]', '$pur[ddate]', '$pur[shipchrg]', '$pur[subtot]', '$pur[total]', '0', '$pur[vatinc]', '$pur[vat]', '$pur[remarks]', '$pur[refno]', 'y', 'y', '".USER_DIV."', '$pur[purnum]')";

$rslt = db_exec($sql) or errDie("Unable to insert Non-Stock Purchase to Cubit.",SELF);

db_connect();

# Get selected stock

$sql = "SELECT * FROM nons_pur_items WHERE purid = '$purid' AND div = '".USER_DIV."'";

$stktcRslt = db_exec($sql);

while($stktc = pg_fetch_array($stktcRslt)){

# Insert purchase items

db_conn($pur['prd']);

$sql = "INSERT INTO nons_pur_items(purid, cod, des, qty, unitcost, amt, ddate, div) VALUES('$purid', '$stktc[cod]', '$stktc[des]', '$stktc[qty]', '$stktc[unitcost]', '$stktc[amt]', '$stktc[ddate]', '".USER_DIV."')";

$rslt = db_exec($sql) or errDie("Unable to insert purchase items to Cubit.",SELF);

}

db_connect();

# Remove the purchase from running DB

$sql = "DELETE FROM nons_purchases WHERE purid = '$purid' AND div = '".USER_DIV."'";

$delRslt = db_exec($sql) or errDie("Unable to update int purchases information in Cubit.",SELF);

# Remove those purchase items from running DB

$sql = "DELETE FROM nons_pur_items WHERE purid = '$purid' AND div = '".USER_DIV."'";

$delRslt = db_exec($sql) or errDie("Unable to update int purchases information in Cubit.",SELF);

}

# Commit updating

pglib_transaction ("COMMIT") or errDie("Unable to commit a database transaction.",SELF);

/* End moving purchase received */

// Final Layout

$write = "

<table border=0 cellpadding='".TMPL_tblCellPadding."' cellspacing='".TMPL_tblCellSpacing."'>

<tr><th>Non-Stock Asset Purchase received</th></tr>

<tr class='bg-even'><td>Non-Stock Asset Purchase receipt has been recorded.</td></tr>

</table>

<p>

<table border=0 cellpadding='".TMPL_tblCellPadding."' cellspacing='".TMPL_tblCellSpacing."'>

<tr><th>Quick Links</th></tr>

<tr class='bg-odd'><td><a href='nons-purchase-view.php'>View purchases</a></td></tr>

<script>document.write(getQuicklinkSpecial());</script>

</table>";

return $write;

# If vat is not included

$VATP = TAX_VAT;

if($inc == "no"){

$ret = ($amt);

}elseif($inc == "novat") {

$ret = ($amt);

}else{

$VAT = sprint(($amt/($VATP + 100)) * $VATP);

$ret = ($amt - $VAT);

}

return $ret;

$perc = ($amt/$samt);

$rvat = sprint($perc * $svat);

return $rvat;

# If vat is not included

$VATP = TAX_VAT;

if($inc == "no"){

$VAT = sprint(($VATP/100) * $amt);

}else{

$VAT = sprint(($amt/($VATP + 100)) * $VATP);

}

return $VAT;