db_conn('cubit');

$Sql = "SELECT * FROM assets WHERE (id = '$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.</li>";

}

$asset = pg_fetch_array($Rslt);

db_connect();

# Dummy Vars

$remarks = "";

$supaddr = "";

$terms = "0";

$total = 0;

$subtot = 0;

$pdate = $asset['bdate'];

$ddate = $asset['bdate'];

$shipchrg = "0.00";

$purnum = divlastid ("pur", USER_DIV);

# Insert purchase to DB

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

$sql .= " VALUES('$deptid', '$purnum', '', '$supaddr', '$terms', '$pdate', '$ddate', '$shipchrg', '$subtot', '$total', '$total', 'no', '0', '$remarks', 'n', 'n', '".PRD_DB."', '".USER_DIV."', '$assid', '$grpid', 'yes')";

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

# Get next ordnum

$purid = lastpurid();

for ($x=0;$x<$asset['split_from'];$x++){

# insert Order items

$sql = "INSERT INTO nons_pur_items(purid, cod, des, qty, unitcost, amt, svat, ddate, div, vatcode, is_asset)

VALUES('$purid', '$asset[serial]', '$asset[des]', '1', '$asset[amount]', '$asset[amount]', '0', '$asset[bdate]', '".USER_DIV."', (SELECT id FROM cubit.vatcodes WHERE code='01' LIMIT 1),'$assid')";

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

}

return $purid;

{

# get vars

extract ($_POST);

# validate input

require_lib("validate");

$v = new validate ();

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

# 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='&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.</li>";

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

return $error;

}

if(!(isset($ordernum))) {$ordernum='';}

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

# days drop downs

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

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

# format date

list($p_year, $p_month, $p_day) = explode("-", $pur['pdate']);

# keep the charge vat option stable

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

$chy = "checked=yes";

$chn = "";

$chnv = "";

} else if ($pur['vatinc'] == 'novat') {

$chy = "";

$chn = "";

$chnv = "checked=yes";

}else{

$chy = "";

$chn = "checked=yes";

$chnv = "";

}

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

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

global $_GET;

# Select all products

$products = "

<table ".TMPL_tblDflts." width='100%'>

<tr>

<th>ITEM NUMBER</th>

<th>VAT CODE</th>

<th>DESCRIPTION</th>

<th>QTY</th>

<th>UNIT PRICE</th>

<th>DELIVERY DATE</th>

<th>AMOUNT</th>

<th>VAT</th>

<th>Remove</th>

<tr>";

# get selected stock in this Order

db_connect();

$sql = "SELECT * FROM nons_pur_items WHERE purid = '$purid' 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($d_year, $d_month, $d_day) = explode("-", $stkd['ddate']);

$stkd['amt'] = round($stkd['amt'], 2);

if(isset($_GET['v'])) {

$stkd['svat']="";

}

db_conn('cubit');

$Sl="SELECT * FROM vatcodes ORDER BY code";

$Ri=db_exec($Sl) or errDie("Unable to get vat codes");

$Vatcodes = "<select name='vatcodes[]'>

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

$stkd['amt'] = sprint ($stkd['amt']);

// if(isset($stkd['is_asset']) AND ($stkd['is_asset'] != "no")){

$products .= "<input type='hidden' name='assid[]' value='$stkd[is_asset]'>";

// }else {

// $products .= "";

// }

# put in product

$products .= "

<tr class='".bg_class()."'>

<td align='center'><input type='hidden' size='10' name='cod[]' value='$stkd[cod]'>$stkd[cod]</td>

<td>$Vatcodes</td>

<td align='center'><input type='hidden' size='20' name='des[]' value='$stkd[des]'>$stkd[des]</td>

<td align='center'><input type='hidden' size='3' name='qtys[]' value='$stkd[qty]'>$stkd[qty]</td>

<td align='center'><input type='hidden' size='8' name='unitcost[]' value='$stkd[unitcost]'>$stkd[unitcost]</td>

<td align='center'>".mkDateSelecta("d",$key,$d_year,$d_month,$d_day)."</td>

<td><input type='hidden' name='amt[]' value='$stkd[amt]'> ".CUR." $stkd[amt]</td>

<td><input type='text' name='vat[]' size='9' value='$stkd[svat]'></td>

<td><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 = "";

db_conn('cubit');

$Sl="SELECT * FROM vatcodes ORDER BY code";

$Ri=db_exec($Sl) or errDie("Unable to get vat codes");

$Vatcodes="<select name='vatcodes[]'>

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

# add one

$products .= "

<tr class='".bg_class()."'>

<td align='center'><input type='text' size='10' name='cod[]' value=''></td>

<td>$Vatcodes</td>

<td align='center'><input type='text' size='20' name='des[]' value=''></td>

<td align='center'><input type='text' size='3' name='qtys[]' value='1'></td>

<td align='center'><input type='text' size='8' name='unitcost[]'></td>

<td align='center'>".mkDateSelecta("d",$key)."</td>

<td>".CUR." 0.00</td>

<td><input type='hidden' name='novat[]' value='1'></td>

<td> </td>

</tr>";

}

/* -- start Listeners -- */

if(isset($diffwhBtn)){

db_conn('cubit');

$Sl="SELECT * FROM vatcodes ORDER BY code";

$Ri=db_exec($Sl) or errDie("Unable to get vat codes");

$Vatcodes="<select name='vatcodes[]'>

<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 .= "

<tr class='".bg_class()."'>

<td align='center'><input type='text' size='10' name='cod[]' value=''></td>

<td>$Vatcodes</td>

<td align='center'><input type='text' size='20' name='des[]' value=''></td>

<td align='center'><input type='text' size='3' name='qtys[]' value='1'></td>

<td align='center'><input type='text' size='8' name='unitcost[]'></td>

<td align='center'>".mkDateSelecta("d",$key,$d_year,$d_month,$d_day)."</td>

<td>".CUR." 0.00</td>

<td><input type='hidden' name='novat[$key]' value='1'></td>

<td> </td>

</tr>";

$key++;

}

/* -- End Listeners -- */

$products .= "</table>";

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

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

# Get subtotal

$SUBTOT = $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.</li>";

}

$asset = pg_fetch_array($Rslt);

/* -- Final Layout -- */

$details = "

<center>

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

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

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

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

<input type='hidden' name='shipchrg' value='0'>

<table ".TMPL_tblDflts." width='95%'>

<tr>

<td valign='top'>

<table ".TMPL_tblDflts.">

<tr>

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

</tr>

<tr class='".bg_class()."'>

<td>Supplier</td>

<td valign='center'><input type='text' name='supplier' value='$pur[supplier]'></td>

</tr>

<tr class='".bg_class()."'>

<td>Supplier Invoice Number</td>

<td valign='center'><input type='text' name='supinv' value='$pur[supinv]'></td>

</tr>

<tr class='".bg_class()."'>

<td valign='top'>Supplier Address</td>

<td valign='center'><textarea name='supaddr' cols='18' rows='3'>$pur[supaddr]</textarea></td>

</tr>

</table>

</td>

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

<table ".TMPL_tblDflts.">

<tr>

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

</tr>

<tr class='".bg_class()."'>

<td>Asset</td>

<td valign='center'>$asset[des]</td>

</tr>

<tr class='".bg_class()."'>

<td>Non-Stock Purchase No.</td>

<td valign='center'>$pur[purnum]</td>

</tr>

<tr class='".bg_class()."'>

<td>Order No.</td>

<td valign='center'><input type='text' size='10' name='ordernum' value='$ordernum'></td>

</tr>

<tr class='".bg_class()."'>

<td>Terms</td>

<td valign='center'>$termssel Days</td>

</tr>

<tr class='".bg_class()."'>

<td>Date</td>

<td valign='center'>".mkDateSelect("p",$p_year,$p_month,$p_day)."</td>

</tr>

<tr class='".bg_class()."'>

<td>VAT Inclusive</td>

<td valign='center'>Yes <input type='radio' size='7' name='vatinc' value='yes' $chy> No<input type='radio' size='7' name='vatinc' value='no' $chn></td>

</tr>

</table>

</td>

</tr>

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

<tr>

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

</tr>

<tr>

<td>

<p>

<table ".TMPL_tblDflts.">

<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_class()."'><a href='nons-purchase-view.php'>View Non-Stock Purchases</a></td>

<td class='".bg_class()."' rowspan='4' align='center' valign='top'><textarea name='remarks' rows='4' cols='20'>$pur[remarks]</textarea></td>

</tr>

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

</table>

</td>

<td align='right'>

<table ".TMPL_tblDflts." width='80%'>

<tr class='".bg_class()."'>

<td>SUBTOTAL</td>

<td align='right'>".CUR." <input type='hidden' name='subtot' value='$SUBTOT'>$SUBTOT</td>

</tr>

<tr class='".bg_class()."'>

<td>VAT @ ".TAX_VAT." %</td>

<td align='right'>".CUR." $pur[vat]</td>

</tr>

<tr class='".bg_class()."'>

<th>GRAND TOTAL</th>

<td align='right'>".CUR." <input type='hidden' name='total' value='$TOTAL'>$TOTAL</td>

</tr>

</table>

</td>

</tr>

<tr>

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

<td>$done</td>

</tr>

</table>

</form>

</center>";

return $details;

{

#get vars

extract ($_POST);

# validate input

require_lib("validate");

$v = new validate ();

$v->isOk ($purid, "num", 1, 9, "Invalid Purchase ID");

$v->isOk ($ordernum, "string", 0, 20, "Invalid order number.");

$v->isOk ($supplier, "string", 1, 255, "Invalid Supplier name.");

$v->isOk ($supaddr, "string", 0, 255, "Invalid Supplier address.");

$v->isOk ($terms, "num", 1, 5, "Invalid terms days.");

$v->isOk ($p_day, "num", 1, 2, "Invalid Date day.");

$v->isOk ($p_month, "num", 1, 2, "Invalid Date month.");

$v->isOk ($p_year, "num", 1, 5, "Invalid Date year.");

$v->isOk ($vatinc, "string", 1, 5, "Invalid VAT Inclusion Option.");

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

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

$v->isOk ($supinv, "string", 0, 15, "Invalid supplier invoice number.");

$pdate = $p_year."-".$p_month."-".$p_day;

if(!checkdate($p_month, $p_day, $p_year)){

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

$v->isOk ($unitcost[$keys], "float", 1, 20, "Invalid Unit Price for product number : <b>".($keys+1)."</b>.");

$v->isOk ($des[$keys], "string", 1, 255, "Invalid Description.");

$v->isOk ($cod[$keys], "string", 0, 255, "Invalid Item Code.");

if($qty < 1){

$v->isOk ($qty, "num", 0, 0, "Error : Item Quantity must be at least one. Product number : <b>".($keys+1)."</b>");

}

# Validate ddate[]

$v->isOk ($d_day[$keys], "num", 1, 2, "Invalid Delivery Date day.");

$v->isOk ($d_month[$keys], "num", 1, 2, "Invalid Delivery Date month.");

$v->isOk ($d_year[$keys], "num", 1, 5, "Invalid Delivery Date year.");

$ddate[$keys] = $d_year[$keys]."-".$d_month[$keys]."-".$d_day[$keys];

if(!checkdate($d_month[$keys], $d_day[$keys], $d_year[$keys])){

$v->isOk ($ddate[$keys], "num", 1, 1, "Invalid Delivery Date.");

}

}

}

# check amt

if(isset($amt)){

foreach($amt as $keys => $amount){

$v->isOk ($amount, "float", 1, 20, "Invalid Amount, please enter all details.");

}

}

# display errors, if any

$err = "";

if ($v->isError ()) {

$errors = $v->getErrors();

foreach ($errors as $e) {

$err .= "<li class=err>".$e["msg"];

}

$_POST['done'] = "";

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

# check if purchase has been printed

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

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

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

return $error;

}

# fix those nasty zeros

$shipchrg += 0;

# begin updating

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

# insert purchase to DB

db_connect();

/* -- Start remove old items -- */

# remove old items

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

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

/* -- End remove old items -- */

$tvatinc=$vatinc;

/* -- End remove old items -- */

$VATP = TAX_VAT;

if(isset($qtys)){

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

if(isset($remprod)){

if(in_array($keys, $remprod)){

# skip product (wonder if $keys still align)

$amt[$keys] = 0;

continue;

}else{

# Calculate amount

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

if(isset($novat[$keys]) || strlen($vat[$keys]) < 1){

# If vat is not included

if($vatinc == "no"){

$vat[$keys] = sprint(($VATP/100) * $amt[$keys]);

}elseif($vatinc == "yes"){

$vat[$keys] = sprint(($amt[$keys]/(100 + $VATP)) * $VATP);

}else{

$vat[$keys] = 0;

}

}

# format ddate

$ddate[$keys] = "$d_year[$keys]-$d_month[$keys]-$d_day[$keys]";

# insert Order items

$sql = "INSERT INTO nons_pur_items(purid, cod, des, qty, unitcost, amt, svat, ddate, div, is_asset) VALUES('$purid', '$cod[$keys]', '$des[$keys]', '$qtys[$keys]', '$unitcost[$keys]', '$amt[$keys]', '$vat[$keys]', '$ddate[$keys]', '".USER_DIV."', '$assid[$keys]')";

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

}

}else{

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

# Check Tax Excempt

if($vd['zero']=="Yes"){

$vat[$keys] = 0;

$vatinc= "novat";

}

# Calculate amount

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

if(isset($novat[$keys]) || strlen($vat[$keys]) < 1){

# If vat is not included

if($vatinc == "no"){

$vat[$keys] = sprint(($VATP/100) * $amt[$keys]);

}elseif($vatinc == "yes"){

$vat[$keys] = sprint(($amt[$keys]/(100 + $VATP)) * $VATP);

}else{

$vat[$keys] = 0;

}

}

# ddate

$ddate[$keys] = "$d_year[$keys]-$d_month[$keys]-$d_day[$keys]";

if(strlen($assid[$keys]) < 1)

$assid[$keys] = "no";

# insert Order items

$sql = "INSERT INTO nons_pur_items(purid, cod, des, qty, unitcost, amt, svat, ddate, div,vatcode,is_asset) VALUES('$purid', '$cod[$keys]', '$des[$keys]', '$qtys[$keys]', '$unitcost[$keys]', '$amt[$keys]', '$vat[$keys]', '$ddate[$keys]', '".USER_DIV."','$vatcodes[$keys]','$assid[$keys]')";

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

}

# everything is set place done button

$_POST["done"] = " | <input name='doneBtn' type='submit' value='Done'>| <input name='print' type='submit' value='Receive'>";

}

}else{

$_POST["done"] = "";

}

$vatinc=$tvatinc;

/* --- Clac --- */

# calculate subtot

if(isset($amt)){

$SUBTOT = array_sum($amt);

}else{

$SUBTOT = 0.00;

}

# If vat is not included (delchrg)

$VATP = TAX_VAT;

if($vatinc == "no"){

$svat = sprint(($VATP/100) * $shipchrg);

}else{

$svat = sprint(($shipchrg/($VATP+100)) * $VATP);

}

# Total

$TOTAL = ($SUBTOT + $shipchrg);

# If there vatable items

if(isset($vat)){

$VAT = array_sum($vat);

}else{

$VAT = 0;

}

# If vat is not included

if($vatinc == "no"){

$TOTAL = ($TOTAL + $VAT + $svat);

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

$VAT = 0;

$svat = 0;

}else{

$SUBTOT -= $VAT;

}

$VAT += $svat;

/* --- End Clac --- */

$VAT +=0;

# insert purchase to DB

$sql = "UPDATE nons_purchases SET supplier = '$supplier', supaddr = '$supaddr', terms = '$terms', pdate = '$pdate', shipchrg = '$shipchrg', subtot = '$SUBTOT', total = '$TOTAL', balance = '$TOTAL', vatinc = '$vatinc', vat = '$VAT',ordernum='$ordernum', remarks = '$remarks', supinv = '$supinv', is_asset = 'yes' WHERE purid = '$purid' AND div = '".USER_DIV."'";

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

# commit updating

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

if(isset($print)) {

$sql = "UPDATE nons_purchases SET done = 'y', is_asset = 'yes' WHERE purid = '$purid' AND div = '".USER_DIV."'";

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

# Print the invoice

header("Location: nons-purch-recv.php?purid=$purid");

exit;

}elseif(!isset($doneBtn)){

return details($_POST);

}else{

# insert purchase to DB

$sql = "UPDATE nons_purchases SET done = 'y', is_asset = 'yes' WHERE purid = '$purid' AND div = '".USER_DIV."'";

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

// Final Laytout

$write = "

<table ".TMPL_tblDflts.">

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

<tr class='".bg_class()."'>

<td>Non-Stock Asset Purchase from Supplier <b>$supplier</b> has been recorded.</td>

</tr>

</table>

<p>

<table ".TMPL_tblDflts.">

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

<tr class='".bg_class()."'>

<td><a href='nons-purchase-view.php'>View Non-Stock Purchases</a></td>

</tr>

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

</table>";

return $write;

}