function view($VARS = array(), $err = "")
{
    extract($VARS);
    if (!isset($accid)) {
        $accid = "";
    }
    $vars = array("bankname", "branchname", "loc", "fcid", "branchcode", "accname", "accnum", "cardnum", "mon", "year", "lastdigits", "cardname", "cardtyp", "details");
    $vard = array("cardtyp" => "Visa", "mon" => date("m"), "year" => date("Y"));
    foreach ($vars as $key => $val) {
        if (!isset(${$val})) {
            ${$val} = isset($vard[$val]) ? $vard[$val] : "";
        }
    }
    if (strlen($lastdigits) < 1) {
        $lastdigits = "000";
    }
    db_connect();
    # Locations drop down
    $locs = array("loc" => "Local", "int" => "International");
    $locsel = extlib_cpsel("loc", $locs, $loc);
    # currency drop down
    $currsel = ext_unddbsel("fcid", "currency", "fcid", "descrip", "There are is no currency found in Cubit, please add currency first.", $fcid);
    $chm = "";
    $chv = "";
    $cho = "";
    if ($cardtyp == 'Visa') {
        $chv = "checked=yes";
    } elseif ($cardtyp == 'Mastercard') {
        $chm = "checked=yes";
    } else {
        $cho = "checked=yes";
    }
    core_connect();
    $sql = "SELECT * FROM accounts WHERE acctype = 'B' AND div = '" . USER_DIV . "' ORDER BY accname";
    $accRslt = db_exec($sql) or errDie("Could not retrieve accounts from Cubit.", SELF);
    if (pg_numrows($accRslt) < 1) {
        return "<li> There are no balance accouts in Cubit.";
    }
    $accs = "<select name='accid'>";
    while ($acc = pg_fetch_array($accRslt)) {
        if (isbank($acc['accid'])) {
            continue;
        }
        if (isb($acc['accid'])) {
            continue;
        }
        if ($accid == $acc['accid']) {
            $accs .= "<option value='{$acc['accid']}' selected>{$acc['accname']}</option>";
        } else {
            $accs .= "<option value='{$acc['accid']}'>{$acc['accname']}</option>";
        }
    }
    $accs .= "</select>";
    //layout
    $view = "\n\t\t<h3>Add New Credit Card Account</h3>\n\t\t<table " . TMPL_tblDflts . ">\n\t\t<form action='" . SELF . "' method='POST' name='form'>\n\t\t\t<input type='hidden' name='key' value='confirm'>\n\t\t\t<tr>\n\t\t\t\t<td colspan='2'>{$err}</td>\n\t\t\t</tr>\n\t\t\t<tr>\n\t\t\t\t<th>Field</th>\n\t\t\t\t<th>Value</th>\n\t\t\t</tr>\n\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t<td>" . REQ . "Bank Name</td>\n\t\t\t\t<td><input type='text' size='20' name='bankname' value='{$bankname}'></td>\n\t\t\t</tr>\n\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t<td>" . REQ . "Type</td>\n\t\t\t\t<td>{$locsel}</td>\n\t\t\t</tr>\n\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t<td>" . REQ . "Currency</td>\n\t\t\t\t<td>{$currsel}</td>\n\t\t\t</tr>\n\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t<td>" . REQ . "Branch Name</td>\n\t\t\t\t<td><input type='text' size='20' name='branchname' value='{$branchname}'></td>\n\t\t\t</tr>\n\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t<td>" . REQ . "Branch Code</td>\n\t\t\t\t<td><input type='text' size='20' name='branchcode' value='{$branchcode}'></td>\n\t\t\t</tr>\n\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t<td>" . REQ . "Account Name</td>\n\t\t\t\t<td><input type='text' size='20' name='accname' maxlength='50' value='{$accname}'></td>\n\t\t\t</tr>\n\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t<td>" . REQ . "Account Number</td>\n\t\t\t\t<td><input type='text' size='20' name='accnum' value='{$accnum}'></td>\n\t\t\t</tr>\n\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t<td>" . REQ . "Ledger Account</td>\n\t\t\t\t<td>{$accs}</td>\n\t\t\t</tr>\n\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t<td>" . REQ . "Card Number</td>\n\t\t\t\t<td><input type='text' size='25' name='cardnum' maxlength='16' value='{$cardnum}'></td>\n\t\t\t</tr>\n\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t<td>" . REQ . "Expiry Date</td>\n\t\t\t\t<td>\n\t\t\t\t\t<input type='text' size='2' name='mon' maxlength='2' value='{$mon}'>-\n\t\t\t\t\t<input type='text' size='4' name='year' maxlength='4' value='{$year}'>MM-YYYY\n\t\t\t\t</td>\n\t\t\t</tr>\n\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t<td>" . REQ . "Last 3 Digits at back of Card</td>\n\t\t\t\t<td><input type='text' size='3' maxlength='3' name='lastdigits' value='{$lastdigits}'></td>\n\t\t\t</tr>\n\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t<td>Card Type</td>\n\t\t\t\t<td><input type='radio' name='cardtyp' value='Visa' {$chv}>Visa &nbsp;&nbsp; <input type='radio' name='cardtyp' value='Mastercard' {$chm}> Mastercard &nbsp;&nbsp;&nbsp;<input type='radio' name='cardtyp' value='other' {$cho}>Other: <input type='text' name='cardname' value='{$cardname}'></td>\n\t\t\t</tr>\n\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t<td>" . REQ . "Details</td>\n\t\t\t\t<td><textarea cols='20' rows='3' name='details'>{$details}</textarea></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><input type='button' value='&laquo Cancel' onClick='javascript:history.back();'></td>\n\t\t\t\t<td><input type='submit' value='Confirm &raquo'></td>\n\t\t\t</tr>\n\t\t</form>\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='../core/acc-new2.php'>Add Ledger Account</a></td>\n\t\t\t</tr>\n\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t<td><a href='../main.php'>Main Menu</a></td>\n\t\t\t</tr>\n\t\t</table>";
    return $view;
}
function view($VARS = array(), $err = "")
{
    foreach ($VARS as $key => $vals) {
        ${$key} = $vals;
    }
    $vars = array("bankname", "branchname", "loc", "fcid", "branchcode", "accname", "accnum", "cardnum", "mon", "year", "lastdigits", "cardname", "cardtyp", "details");
    $vard = array("cardtyp" => "Visa", "mon" => date("m"), "year" => date("Y"));
    foreach ($vars as $key => $val) {
        if (!isset(${$val})) {
            ${$val} = isset($vard[$val]) ? $vard[$val] : "";
        }
    }
    if (strlen($lastdigits) < 1) {
        $lastdigits = "000";
    }
    db_connect();
    # Locations drop down
    $locs = array("loc" => "Local", "int" => "International");
    $locsel = extlib_cpsel("loc", $locs, $loc);
    # currency drop down
    $currsel = ext_unddbsel("fcid", "currency", "fcid", "descrip", "There are is no currency found in Cubit, please add currency first.", "");
    $chm = "";
    $chv = "";
    $cho = "";
    if ($cardtyp == 'Visa') {
        $chv = "checked=yes";
    } elseif ($cardtyp == 'Mastercard') {
        $chm = "checked=yes";
    } else {
        $cho = "checked=yes";
    }
    core_connect();
    $sql = "SELECT * FROM accounts WHERE acctype = 'B' AND div = '" . USER_DIV . "' ORDER BY accname";
    $accRslt = db_exec($sql) or errDie("Could not retrieve accounts from Cubit.", SELF);
    if (pg_numrows($accRslt) < 1) {
        return "<li> There are no balance accouts in Cubit.";
    }
    $accs = "<select name=accid>";
    while ($acc = pg_fetch_array($accRslt)) {
        if (isbank($acc['accid'])) {
            continue;
        }
        if (isb($acc['accid'])) {
            continue;
        }
        $accs .= "<option value='{$acc['accid']}'>{$acc['accname']}</option>";
    }
    $accs .= "</select>";
    //layout
    $view = "\n\t<h3>Add New Petrol Card Account</h3>\n\t<table border=0 cellpadding='" . TMPL_tblCellPadding . "' cellspacing='" . TMPL_tblCellSpacing . "'>\n\t<form action='" . SELF . "' method=post name=form>\n\t<input type=hidden name=key value=confirm>\n\t<tr><td colspan=2>{$err}</td></tr>\n\t<tr><th>Field</th><th>Value</th></tr>\n\t<tr class='bg-odd'><td>" . REQ . "Bank Name</td><td ><input type=text size=20 name=bankname value='{$bankname}'></td></tr>\n\t<tr class='bg-even'><td>" . REQ . "Type</td><td>{$locsel}</td></tr>\n\t<tr class='bg-odd'><td>" . REQ . "Currency</td><td>{$currsel}</td></tr>\n\t<tr class='bg-even'><td>" . REQ . "Branch Name</td><td ><input type=text size=20 name=branchname value='{$branchname}'></td></tr>\n\t<tr class='bg-odd'><td>" . REQ . "Branch Code</td><td ><input type=text size=20 name=branchcode value='{$branchcode}'></td></tr>\n\t<tr class='bg-even'><td>" . REQ . "Account Name</td><td ><input type=text size=20 name=accname maxlength=50 value='{$accname}'></td></tr>\n\t<tr class='bg-odd'><td>" . REQ . "Account Number</td><td ><input type=text size=20 name=accnum value='{$accnum}'></td></tr>\n\t<tr class='bg-even'><td>" . REQ . "Ledger Account</td><td>{$accs}</td></tr>\n\t<tr class='bg-odd'><td>" . REQ . "Card Number</td><td ><input type=text size=25 name=cardnum maxlength=16 value='{$cardnum}'></td></tr>\n\t<tr class='bg-even'><td>" . REQ . "Expiry Date</td><td><input type=text size=2 name=mon maxlength=2 value='{$mon}'>-<input type=text size=4 name=year maxlength=4 value='{$year}'>MM-YYYY</td></tr>\n\t<tr class='bg-odd'><td>" . REQ . "Last 3 Digits at back of Card</td><td ><input type=text size=3 maxlength=3 name=lastdigits value='{$lastdigits}'></td></tr>\n\t<tr class='bg-even'><td>Card Type</td><td><input type=radio name=cardtyp value=Visa {$chv}>Visa &nbsp;&nbsp; <input type=radio name=cardtyp value='Mastercard' {$chm}> Mastercard &nbsp;&nbsp;&nbsp;<input type=radio name=cardtyp value='other' {$cho}>Other: <input type=text name=cardname value='{$cardname}'></td>\n\t<tr class='bg-odd'><td>" . REQ . "Details</td><td ><textarea cols=20 rows=3 name=details>{$details}</textarea></td></tr>\n\t<tr><td><br></td></tr>\n\t<tr><td><input type=button value='&laquo Cancel' onClick='javascript:history.back();'></td><td ><input type=submit value='Confirm &raquo'></td></tr>\n\t</form>\n\t</table>\n\t<p>\n\t<table border=0 cellpadding='" . TMPL_tblCellPadding . "' cellspacing='" . TMPL_tblCellSpacing . "'>\n\t\t<tr><th>Quick Links</th></tr>\n\t\t<tr class='bg-odd'><td><a href='../core/acc-new2.php'>Add Ledger Account</a></td></tr>\n\t\t<tr class='bg-odd'><td><a href='../main.php'>Main Menu</a></td></tr>\n\t</table>";
    return $view;
}
function view($acctype = "", $bankname = "", $loc = "", $branchname = "", $branchcode = "", $accname = "", $accnum = "", $details = "", $err = "")
{
    db_connect();
    # Locations drop down
    $locs = array("loc" => "Local", "int" => "International");
    $locsel = extlib_cpsel("loc", $locs, $loc);
    # currency drop down
    $currsel = ext_unddbsel("fcid", "currency", "fcid", "descrip", "There are is no currency found in Cubit, please add currency first.", "");
    //layout
    $view = "\n\t\t<h3>Add New Bank Account</h3>\n\t\t<table " . TMPL_tblDflts . " width='300'>\n\t\t<form action='" . SELF . "' method='POST' name='form'>\n\t\t\t<input type='hidden' name='key' value='confirm'>\n\t\t\t{$err}\n\t\t\t<tr>\n\t\t\t\t<th>Field</th>\n\t\t\t\t<th>Value</th>\n\t\t\t</tr>\n\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t<td>" . REQ . "Type of Account</td>\n\t\t\t\t<td valign='center'><input type='text' size='20' name='acctype' value='{$acctype}'></td>\n\t\t\t</tr>\n\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t<td>" . REQ . "Bank Name</td>\n\t\t\t\t<td valign='center'><input type='text' size='20' name='bankname' value='{$bankname}'></td>\n\t\t\t</tr>\n\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t<td>" . REQ . "Type</td>\n\t\t\t\t<td>{$locsel}</td>\n\t\t\t</tr>\n\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t<td>" . REQ . "Currency</td>\n\t\t\t\t<td>{$currsel}</td>\n\t\t\t</tr>\n\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t<td>" . REQ . "Branch Name</td>\n\t\t\t\t<td valign='center'><input type='text' size='20' name='branchname' value='{$branchname}'></td>\n\t\t\t</tr>\n\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t<td>" . REQ . "Branch Code</td>\n\t\t\t\t<td valign='center'><input type='text' size='20' name='branchcode' value='{$branchcode}'></td>\n\t\t\t</tr>\n\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t<td>" . REQ . "Account Name</td>\n\t\t\t\t<td valign='center'><input type='text' size='20' name='accname' maxlength='50' value='{$accname}'></td>\n\t\t\t</tr>\n\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t<td>" . REQ . "Account Number</td>\n\t\t\t\t<td valign='center'><input type='text' size='20' name='accnum' value='{$accnum}'></td>\n\t\t\t</tr>\n\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t<td>" . REQ . "Account Category</td>\n\t\t\t\t<td>\n\t\t\t\t\t<select name='catid'>";
    core_connect();
    $sql = "SELECT * FROM balance WHERE div = '" . USER_DIV . "' ORDER BY catname";
    $catRslt = db_exec($sql) or errDie("Could not retrieve Categories Information from the Database.", SELF);
    $rows = pg_numrows($catRslt);
    if ($rows < 1) {
        return "There are no Account Categories under Balance";
    }
    while ($cat = pg_fetch_array($catRslt)) {
        $view .= "<option value='{$cat['catid']}'>{$cat['catname']}</option>";
    }
    $view .= "\n\t\t\t\t\t</select>\n\t\t\t\t</td>\n\t\t\t</tr>\n\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t<td>" . REQ . "Details</td>\n\t\t\t\t<td valign='center'><textarea cols='20' rows='5' name='details'>{$details}</textarea></td></tr>\n\t\t\t<tr>\n\t\t\t\t<td></td>\n\t\t\t\t<td valign='center' align='right'><input type='submit' value='Confirm &raquo;'></td>\n\t\t\t</tr>\n\t\t</form>\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='../core/acc-new2.php'>Add Ledger Account</a></td>\n\t\t\t</tr>\n\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t<td><a href='../main.php'>Main Menu</a></td>\n\t\t\t</tr>\n\t\t</table>";
    return $view;
}
function editAccnt($bankid)
{
    # validate input
    require_lib("validate");
    $v = new validate();
    $v->isOk($bankid, "num", 1, 4, "Invalid Bank Account ID.");
    # display errors, if any
    if ($v->isError()) {
        $confirm = "";
        $errors = $v->getErrors();
        foreach ($errors as $e) {
            $confirm .= "<li class=err>" . $e["msg"];
        }
        $confirm .= "<p><input type=button onClick='JavaScript:history.back();' value='&laquo; Correct submission'>";
        return $confirm;
    }
    // Connect to database
    db_Connect();
    $sql = "SELECT * FROM bankacct WHERE bankid='{$bankid}' AND div = '" . USER_DIV . "'";
    $bankRslt = db_exec($sql) or errDie("ERROR: Unable to retrieve bank account details from database.", SELF);
    $numrows = pg_numrows($bankRslt);
    if ($numrows < 1) {
        $OUTPUT = "<li> - Invalid Bank account ID.";
        return $OUTPUT;
    }
    $accnt = pg_fetch_array($bankRslt);
    if (strlen($accnt['accname']) < 20) {
        $size = 20;
    } else {
        $size = strlen($accnt['accname']);
    }
    // Get Bank account [the traditional way re: hook of hook]
    core_connect();
    $sql = "SELECT * FROM bankacc WHERE accid = '{$bankid}' AND div = '" . USER_DIV . "'";
    $Rslt = db_exec($sql) or errDie("Unable to retrieve bank account link from Cubit", SELF);
    # check if link exists
    if (pg_numrows($Rslt) < 1) {
        return "<li class=err> ERROR : The bank account that you selected doesn't appear to have an account linked to it.";
    }
    $bank = pg_fetch_array($Rslt);
    $bankaccid = $bank["accnum"];
    # Check account balance
    $sql = "SELECT * FROM trial_bal WHERE period='" . PRD_DB . "' AND accid = '{$bankaccid}' AND debit > 0 OR accid = '{$bankaccid}' AND credit > 0";
    $accRslt = db_exec($sql);
    if (pg_numrows($accRslt) > 0) {
        $acc = pg_fetch_array($accRslt);
        $account = "<input type=hidden name='glacc' value='{$acc['accid']}'>{$acc['accname']}";
    } else {
        core_connect();
        # income accounts ($inc)
        $account = "<select name='glacc'>";
        $sql = "SELECT * FROM accounts WHERE acctype ='B'";
        $accRslt = db_exec($sql);
        $numrows = pg_numrows($accRslt);
        if (empty($numrows)) {
            return "<li> - There are no accounts yet in Cubit. Please set up accounts first.";
        }
        while ($acc = pg_fetch_array($accRslt)) {
            if ($acc['accid'] == $bankaccid) {
                $sal = "selected";
            } else {
                $sal = "";
            }
            $account .= "<option value='{$acc['accid']}' {$sal}>{$acc['accname']}</option>";
        }
        $account .= "</select>";
    }
    $cardname = "";
    $chm = "";
    $chv = "";
    $cho = "";
    if ($accnt['cardtype'] == 'Visa') {
        $chv = "checked=yes";
    } elseif ($accnt['cardtype'] == 'Mastercard') {
        $chm = "checked=yes";
    } else {
        $cho = "checked=yes";
        $cardname = $accnt['cardtype'];
    }
    db_connect();
    # Locations drop down
    $locs = array("loc" => "Local", "int" => "International");
    $locsel = extlib_cpsel("loc", $locs, $accnt['btype']);
    # currency drop down
    $currsel = ext_unddbsel("fcid", "currency", "fcid", "descrip", "There are is no currency found in Cubit, please add currency first.", $accnt['fcid']);
    // Set up table to display in
    $OUTPUT = "\n\t<h3>Edit Bank Account</h3>\n\t<table border=0 cellpadding='" . TMPL_tblCellPadding . "' cellspacing='" . TMPL_tblCellSpacing . "'>\n\t<form action='" . SELF . "' method=post name=form>\n\t<input type=hidden name=key value=confirm>\n\t<input type=hidden name=bankid value={$bankid}>\n\t<tr><th>Field</th><th>Value</th></tr>\n\t<tr class='bg-odd'><td>Type of Account</td><td valign=center><input type=hidden size=20 name=acctype value='{$accnt['acctype']}'>{$accnt['acctype']}</td></tr>\n\t<tr class='bg-even'><td>Bank Name</td><td valign=center><input type=text size=20 name=bankname value='{$accnt['bankname']}'></td></tr>\n\t<tr class='bg-odd'><td>Type</td><td>{$locsel}</td></tr>\n\t<tr class='bg-even'><td>Currency</td><td>{$currsel}</td></tr>\n\t<tr class='bg-odd'><td>Branch Name</td><td valign=center><input type=text size=20 name=branchname value='{$accnt['branchname']}'></td></tr>\n\t<tr class='bg-even'><td>Branch Code</td><td valign=center><input type=text size=20 name=branchcode value='{$accnt['branchcode']}'></td></tr>\n\t<tr class='bg-odd'><td>Account Name</td><td valign=center><input type=text size='{$size}' name=accname  value='{$accnt['accname']}'></td></tr>\n\t<tr class='bg-even'><td>Account Number</td><td valign=center><input type=text name=accnum  value='{$accnt['accnum']}'></td></tr>\n\t<tr class='bg-odd'><td>Ledger Account</td><td valign=center>{$account}</td></tr>\n\t<tr class='bg-even'><td>Card Number</td><td ><input type=text size=25 name=cardnum maxlength=16 value='{$accnt['cardnum']}'></td></tr>\n\t<tr class='bg-odd'><td>Expiry Date</td><td><input type=text size=2 name=mon maxlength=2 value='{$accnt['mon']}'>-<input type=text size=4 name=year maxlength=4 value='{$accnt['year']}'>MM-YYYY</td></tr>\n\t<tr class='bg-even'><td>Last 3 Digits at back of Card</td><td ><input type=text size=3 maxlength=3 name=lastdigits value='{$accnt['digits']}'></td></tr>\n\t<tr class='bg-odd'><td>Card Type</td><td><input type=radio name=cardtyp value=Visa {$chv}>Visa &nbsp;&nbsp; <input type=radio name=cardtyp value='Mastercard' {$chm}> Mastercard &nbsp;&nbsp;&nbsp;<input type=radio name=cardtyp value='other' {$cho}>Other: <input type=text name=cardname value='{$cardname}'></td>\n\t<tr class='bg-even'><td>Details</td><td valign=center><textarea cols=20 rows=5 name=details>{$accnt['details']}</textarea></td></tr>\n\t<tr><td><input type=button value='< Cancel' onClick='javascript:history.back();'></td><td valign=center><input type=submit value='Confirm >'></td></tr>\n\t</form>\n\t</table>\n\t<p>\n\t<table border=0 cellpadding='" . TMPL_tblCellPadding . "' cellspacing='" . TMPL_tblCellSpacing . "'>\n\t\t\t<tr><th>Quick Links</th></tr>\n\t\t<tr class='bg-odd'><td><a href='bankacct-view.php'>View Bank Accounts</a></td></tr>\n\t\t\t<tr class='bg-odd'><td><a href='../main.php'>Main Menu</a></td></tr>\n\t</table>";
    // all template to display the info and die
    require "../template.php";
}
function details($_POST, $error = "")
{
    # Get vars
    extract($_POST);
    # validate input
    require_lib("validate");
    $v = new validate();
    $v->isOk($purid, "num", 1, 20, "Invalid Non-Stock Order 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 Order info
    db_connect();
    $sql = "SELECT * FROM nons_purch_int WHERE purid = '{$purid}' AND div = '" . USER_DIV . "'";
    $purRslt = db_exec($sql) or errDie("Unable to get Order information");
    if (pg_numrows($purRslt) < 1) {
        return "<li class='err'>purchase Not Found</li>";
    }
    $pur = pg_fetch_array($purRslt);
    # check if Order has been printed
    if ($pur['received'] == "y") {
        $error = "<li class='err'> Error : Order number <b>{$pur['purnum']}</b> has already been received.</li>";
        $error .= "<p><input type=button onClick='JavaScript:history.back();' value='&laquo; Correct submission'>";
        return $error;
    }
    /* --- Start Products Display --- */
    # Products layout
    $products = "\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>ITEM NUMBER</th>\n\t\t\t\t\t\t\t<th>DESCRIPTION</th>\n\t\t\t\t\t\t\t<th>QTY</th>\n\t\t\t\t\t\t\t<th colspan='2'>UNIT PRICE</th>\n\t\t\t\t\t\t\t<th colspan='2'>DUTY</th>\n\t\t\t\t\t\t\t<th>LINE TOTAL</th>\n\t\t\t\t\t\t<tr>";
    # get selected stock in this Order
    db_connect();
    $sql = "SELECT * FROM nons_purint_items  WHERE purid = '{$purid}' AND div = '" . USER_DIV . "'";
    $stkdRslt = db_exec($sql);
    while ($stkd = pg_fetch_array($stkdRslt)) {
        # put in product
        $products .= "\n\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t<td>{$stkd['cod']}</td>\n\t\t\t\t\t\t\t<td>{$stkd['des']}</td>\n\t\t\t\t\t\t\t<td>{$stkd['qty']}</td>\n\t\t\t\t\t\t\t<td nowrap>{$pur['curr']} {$stkd['cunitcost']} or </td>\n\t\t\t\t\t\t\t<td nowrap>" . CUR . " {$stkd['unitcost']}</td>\n\t\t\t\t\t\t\t<td nowrap>{$pur['curr']} {$stkd['duty']} or </td>\n\t\t\t\t\t\t\t<td>{$stkd['dutyp']}%</td>\n\t\t\t\t\t\t\t<td nowrap>{$pur['curr']} {$stkd['amt']}</td>\n\t\t\t\t\t\t</tr>";
        //$products .="<tr class='bg-odd'><td>$stkd[cod]</td><td>$stkd[des]</td><td>$stkd[qty]</td><td>$stkd[unitcost]</td><td>$dday-$dmon-$dyear</td><td>$pur[curr] $stkd[amt]</td></tr>";
    }
    $products .= "</table>";
    /* --- End Products Display --- */
    /* --- Start Some calculations --- */
    # Get subtotal
    $SUBTOT = sprint($pur['subtot']);
    # Get Total
    $TOTAL = sprint($pur['total']);
    # Get tax
    $tax = sprint($pur['tax']);
    /* --- End Some calculations --- */
    $currsel = ext_unddbsel("fcid", "currency", "fcid", "descrip", "No currencies were found in cubit, please add a currency first.", null);
    # format date
    list($pyear, $pmon, $pday) = explode("-", $pur['pdate']);
    list($dyear, $dmon, $dday) = explode("-", $pur['ddate']);
    /* -- Final Layout -- */
    $details = "\n\t\t\t\t\t<center>\n\t\t\t\t\t<h3>International Non-Stock Order Cancel</h3>\n\t\t\t\t\t<form action='" . SELF . "' method='POST' name='form'>\n\t\t\t\t\t\t<input type='hidden' name='key' value='update'>\n\t\t\t\t\t\t<input type='hidden' name='purid' value='{$purid}'>\n\t\t\t\t\t<table " . TMPL_tblDflts . " width='95%'>\n\t\t\t\t\t\t<tr>\n\t\t\t\t\t\t\t<td valign='top'>\n\t\t\t\t\t\t\t\t<table " . TMPL_tblDflts . ">\n\t\t\t\t\t\t\t\t\t<tr>\n\t\t\t\t\t\t\t\t\t\t<th colspan='2'> Supplier Details </th>\n\t\t\t\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t\t\t\t<td>Supplier</td>\n\t\t\t\t\t\t\t\t\t\t<td valign='center'>{$pur['supplier']}</td>\n\t\t\t\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t\t\t\t<td>Supplier Address</td>\n\t\t\t\t\t\t\t\t\t\t<td valign='center'><pre>{$pur['supaddr']}</pre></td>\n\t\t\t\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t\t\t</table>\n\t\t\t\t\t\t\t</td>\n\t\t\t\t\t\t\t<td valign='top' align='right'>\n\t\t\t\t\t\t\t\t<table " . TMPL_tblDflts . ">\n\t\t\t\t\t\t\t\t\t<tr>\n\t\t\t\t\t\t\t\t\t\t<th colspan='2'> Non-Stock Order Details </th>\n\t\t\t\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t\t\t\t<td>Non-Stock Order No.</td>\n\t\t\t\t\t\t\t\t\t\t<td valign='center'>{$pur['purnum']}</td>\n\t\t\t\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t\t\t\t<td>Order No.</td>\n\t\t\t\t\t\t\t\t\t\t<td valign='center'>{$pur['ordernum']}</td>\n\t\t\t\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t\t\t\t<td>Terms</td>\n\t\t\t\t\t\t\t\t\t\t<td valign='center'>{$pur['terms']} Days</td>\n\t\t\t\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t\t\t\t<td>Date</td>\n\t\t\t\t\t\t\t\t\t\t<td valign='center'>{$pday}-{$pmon}-{$pyear}</td>\n\t\t\t\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t\t\t\t<td>Foreign Currency</td>\n\t\t\t\t\t\t\t\t\t\t<td valign='center'>{$currsel} &nbsp;&nbsp;Exchange rate {$pur['curr']} {$pur['xrate']}</td>\n\t\t\t\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t\t\t\t<td>Tax</td>\n\t\t\t\t\t\t\t\t\t\t<td valign='center'>{$pur['curr']} {$pur['tax']}</td>\n\t\t\t\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t\t\t\t<td>Shipping Charges</td>\n\t\t\t\t\t\t\t\t\t\t<td valign='center'>{$pur['curr']} {$pur['shipchrg']}</td>\n\t\t\t\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t\t\t\t<td>Delivery Date</td>\n\t\t\t\t\t\t\t\t\t\t<td valign='center'>{$dday}-{$dmon}-{$dyear}</td>\n\t\t\t\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t\t\t</table>\n\t\t\t\t\t\t\t</td>\n\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t<tr><td><br></td></tr>\n\t\t\t\t\t\t<tr>\n\t\t\t\t\t\t\t<td colspan='2'>{$products}</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>\n\t\t\t\t\t\t\t\t<table " . TMPL_tblDflts . ">\n\t\t\t\t\t\t\t\t\t<tr>\n\t\t\t\t\t\t\t\t\t\t<th width='40%'>Quick Links</th>\n\t\t\t\t\t\t\t\t\t\t<th width='45%'>Remarks</th>\n\t\t\t\t\t\t\t\t\t\t<td rowspan='5' valign='top' width='15%'><br></td>\n\t\t\t\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t\t\t\t<tr>\n\t\t\t\t\t\t\t\t\t\t<td class='" . bg_class() . "'><a href='nons-purch-int-new.php'>New International Non-Stock Order</a></td>\n\t\t\t\t\t\t\t\t\t\t<td class='" . bg_class() . "' rowspan='4' align='center' valign='top'>" . nl2br($pur['remarks']) . "</td>\n\t\t\t\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t\t\t\t<td><a href='nons-purch-int-view.php'>View International Non-Stock Orders</a></td>\n\t\t\t\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t\t\t\t<script>document.write(getQuicklinkSpecial());</script>\n\t\t\t\t\t\t\t\t</table>\n\t\t\t\t\t\t\t</td>\n\t\t\t\t\t\t\t<td align='right'>\n\t\t\t\t\t\t\t\t<table " . TMPL_tblDflts . " width='80%'>\n\t\t\t\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t\t\t\t<td>SUBTOTAL</td>\n\t\t\t\t\t\t\t\t\t\t<td align='right'>{$pur['curr']} {$pur['subtot']}</td>\n\t\t\t\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t\t\t\t<td>Delivery Charges</td>\n\t\t\t\t\t\t\t\t\t\t<td align='right'>{$pur['curr']} {$pur['shipping']}</td>\n\t\t\t\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t\t\t\t<td>Tax </td>\n\t\t\t\t\t\t\t\t\t\t<td align='right'>{$pur['curr']} {$pur['tax']}</td>\n\t\t\t\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t\t\t\t<th>GRAND TOTAL</th>\n\t\t\t\t\t\t\t\t\t\t<td align='right'>{$pur['curr']} {$pur['total']}</td>\n\t\t\t\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t\t\t</table>\n\t\t\t\t\t\t\t</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 align='right'><input type='button' value='&laquo Back' onClick='javascript:history.back()'> | <input type='submit' name='upBtn' value='Write'></td>\n\t\t\t\t\t\t</tr>\n\t\t\t\t\t</table>\n\t\t\t\t\t</form>\n\t\t\t\t\t</center>";
    return $details;
}
function editAccnt($bankid)
{
    # validate input
    require_lib("validate");
    $v = new validate();
    $v->isOk($bankid, "num", 1, 4, "Invalid Bank Account ID.");
    # 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='&laquo; Correct submission'>";
        return $confirm;
    }
    // Connect to database
    Db_Connect();
    $sql = "SELECT * FROM bankacct WHERE bankid='{$bankid}' AND div = '" . USER_DIV . "'";
    $bankRslt = db_exec($sql) or errDie("ERROR: Unable to retrieve bank account details from database.", SELF);
    $numrows = pg_numrows($bankRslt);
    if ($numrows < 1) {
        $OUTPUT = "<li> - Invalid Bank account ID.";
        return $OUTPUT;
    }
    global $_POST;
    extract($_POST);
    $accnt = pg_fetch_array($bankRslt);
    if (isset($accname)) {
        $accnt['accname'] = $accname;
        $accnt['acctype'] = $acctype;
        $accnt['bankname'] = $bankname;
        $accnt['branchname'] = $branchname;
        $accnt['branchcode'] = $branchcode;
        $accnt['accnum'] = $accnum;
        $accnt['details'] = $details;
        $accnt['btype'] = $loc;
    }
    if (strlen($accnt['accname']) < 20) {
        $size = 20;
    } else {
        $size = strlen($accnt['accname']);
    }
    // Get Bank account [the traditional way re: hook of hook]
    core_connect();
    $sql = "SELECT * FROM bankacc WHERE accid = '{$bankid}' AND div = '" . USER_DIV . "'";
    $Rslt = db_exec($sql) or errDie("Unable to retrieve bank account link from Cubit", SELF);
    # check if link exists
    if (pg_numrows($Rslt) < 1) {
        return "<li class='err'> ERROR : The bank account that you selected doesn't appear to have an account linked to it.";
    }
    $bank = pg_fetch_array($Rslt);
    $bankaccid = $bank["accnum"];
    # Check account balance
    $sql = "SELECT * FROM trial_bal WHERE period='" . PRD_DB . "' AND accid = '{$bankaccid}' AND debit > 0 OR accid = '{$bankaccid}' AND credit > 0";
    $accRslt = db_exec($sql);
    if (pg_numrows($accRslt) > 0) {
        $acc = pg_fetch_array($accRslt);
        $account = "<input type='hidden' name='glacc' value='{$acc['accid']}'>{$acc['accname']}";
    } else {
        core_connect();
        # income accounts ($inc)
        $account = "<select name='glacc'>";
        $sql = "SELECT * FROM accounts WHERE acctype ='B' ORDER BY accname";
        $accRslt = db_exec($sql);
        $numrows = pg_numrows($accRslt);
        if (empty($numrows)) {
            return "<li> - There are no accounts yet in Cubit. Please set up accounts first.</li>";
        }
        while ($acc = pg_fetch_array($accRslt)) {
            if (isb($acc['accid'])) {
                continue;
            }
            if ($acc['accid'] == $bankaccid) {
                $sal = "selected";
            } else {
                $sal = "";
            }
            $account .= "<option value='{$acc['accid']}' {$sal}>{$acc['accname']}</option>";
        }
        $account .= "</select>";
    }
    db_connect();
    # Locations drop down
    $locs = array("loc" => "Local", "int" => "International");
    $locsel = extlib_cpsel("loc", $locs, $accnt['btype']);
    # currency drop down
    $currsel = ext_unddbsel("fcid", "currency", "fcid", "descrip", "There are is no currency found in Cubit, please add currency first.", $accnt['fcid']);
    // Set up table to display in
    $OUTPUT = "\n\t\t<h3>Edit Bank Account</h3>\n\t\t<table " . TMPL_tblDflts . ">\n\t\t<form action='" . SELF . "' method='POST' name='form'>\n\t\t\t<input type='hidden' name='key' value='confirm'>\n\t\t\t<input type='hidden' name='bankid' value='{$bankid}'>\n\t\t\t<tr>\n\t\t\t\t<th>Field</th>\n\t\t\t\t<th>Value</th>\n\t\t\t</tr>\n\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t<td>Type of Account</td>\n\t\t\t\t<td valign='center'><input type='text' size='20' name='acctype' value='{$accnt['acctype']}'></td>\n\t\t\t</tr>\n\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t<td>Bank Name</td>\n\t\t\t\t<td valign='center'><input type='text' size='20' name='bankname' value='{$accnt['bankname']}'></td>\n\t\t\t</tr>\n\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t<td>Type</td>\n\t\t\t\t<td>{$locsel}</td>\n\t\t\t</tr>\n\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t<td>Currency</td>\n\t\t\t\t<td>{$currsel}</td>\n\t\t\t</tr>\n\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t<td>Branch Name</td>\n\t\t\t\t<td valign='center'><input type='text' size='20' name='branchname' value='{$accnt['branchname']}'></td>\n\t\t\t</tr>\n\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t<td>Branch Code</td>\n\t\t\t\t<td valign='center'><input type='text' size='20' name='branchcode' value='{$accnt['branchcode']}'></td>\n\t\t\t</tr>\n\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t<td>Account Name</td>\n\t\t\t\t<td valign='center'><input type='text' size='{$size}' name='accname'  value='{$accnt['accname']}'></td>\n\t\t\t</tr>\n\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t<td>Account Number</td>\n\t\t\t\t<td valign='center'><input type='text' name='accnum'  value='{$accnt['accnum']}'></td>\n\t\t\t</tr>\n\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t<td>Ledger Account</td>\n\t\t\t\t<td valign='center'>{$account}</td>\n\t\t\t</tr>\n\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t<td>Details</td>\n\t\t\t\t<td valign='center'><textarea cols='20' rows='5' name='details'>{$accnt['details']}</textarea></td></tr>\n\t\t\t<tr>\n\t\t\t\t<td></td>\n\t\t\t\t<td valign='center' align='right'><input type='submit' value='Confirm &raquo;'></td>\n\t\t\t</tr>\n\t\t</form>\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='bankacct-view.php'>View Bank Accounts</a></td>\n\t\t\t</tr>\n\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t<td><a href='../main.php'>Main Menu</a></td>\n\t\t\t</tr>\n\t\t</table>";
    return $OUTPUT;
}
function edit_err($_POST, $err = "")
{
    # get vars
    extract($_POST);
    # Departments
    db_conn("exten");
    $depts = "<select name='deptid'>";
    $sql = "SELECT * FROM departments WHERE div = '" . USER_DIV . "' ORDER BY deptname ASC";
    $deptRslt = db_exec($sql);
    if (pg_numrows($deptRslt) < 1) {
        return "<li>There are no Price lists in Cubit.</li>";
    } else {
        while ($dept = pg_fetch_array($deptRslt)) {
            if ($dept['deptid'] == $deptid) {
                $sel = "selected";
            } else {
                $sel = "";
            }
            $depts .= "<option value='{$dept['deptid']}' {$sel}>{$dept['deptname']}</option>";
        }
    }
    $depts .= "</select>";
    # Get Pricelists
    $pricelists = "<select name='listid' style='width: 120'>";
    $sql = "SELECT * FROM spricelist WHERE div = '" . USER_DIV . "' ORDER BY listname ASC";
    $listRslt = db_exec($sql);
    if (pg_numrows($listRslt) < 1) {
        return "<li>There are no Price lists in Cubit.</li>";
    } else {
        while ($list = pg_fetch_array($listRslt)) {
            if ($list['listid'] == $listid) {
                $sel = "selected";
            } else {
                $sel = "";
            }
            $pricelists .= "<option value='{$list['listid']}' {$sel}>{$list['listname']}</option>";
        }
    }
    $pricelists .= "</select>";
    db_connect();
    if (!isset($location)) {
        $location = "";
    }
    # Locations drop down
    $locs = array("loc" => "Local", "int" => "International");
    $locsel = extlib_cpsel("loc", $locs, $location);
    # Currency drop down
    $currsel = ext_unddbsel("fcid", "currency", "fcid", "descrip", "There are is no currency found in Cubit, please add currency first.", $fcid);
    if (isset($bee_status) and $bee_status == "no") {
        $sel1 = "";
        $sel2 = "checked=yes";
    } else {
        $sel1 = "checked=yes";
        $sel2 = "";
    }
    //Get supplier groups
    $get_grps = "SELECT * FROM supp_groups ORDER BY groupname";
    $run_grps = db_exec($get_grps) or errDie("Unable to get supplier group information.");
    if (pg_numrows($run_grps) < 1) {
        return "Unable to get supplier group information. Please add a supplier group.";
    } else {
        $supp_grpdrop = "<select name='supp_grp'>";
        while ($garr = pg_fetch_array($run_grps)) {
            if ($garr['id'] == $supp_grp) {
                $supp_grpdrop .= "<option value='{$garr['id']}' selected>{$garr['groupname']}</option>";
            } else {
                $supp_grpdrop .= "<option value='{$garr['id']}'>{$garr['groupname']}</option>";
            }
        }
        $supp_grpdrop .= "</select>";
    }
    // Retrieve teams
    $sql = "SELECT * FROM crm.teams WHERE id = '{$team_id}' LIMIT 1";
    $team_rslt = db_exec($sql) or errDie("Unable to retrieve teams.");
    $team_data = pg_fetch_array($team_rslt);
    $team_sel = "{$team_data['name']}";
    if (!isset($team_sel)) {
        $team_sel = "";
    }
    $setdayssel1 = "";
    $setdayssel2 = "";
    $setdayssel3 = "";
    $setdayssel4 = "";
    $setdayssel5 = "";
    if (isset($setdays) and $setdays == "0") {
        $setdayssel1 = "selected";
    }
    if (isset($setdays) and $setdays == "1") {
        $setdayssel2 = "selected";
    }
    if (isset($setdays) and $setdays == "7") {
        $setdayssel3 = "selected";
    }
    if (isset($setdays) and $setdays == "15") {
        $setdayssel4 = "selected";
    }
    if (isset($setdays) and $setdays == "25") {
        $setdayssel5 = "selected";
    }
    $setdays_drop = "\r\n\t\t<select name='setdays'>\r\n\t\t\t<option {$setdayssel1} value='0'>Last Day Of The Month</option>\r\n\t\t\t<option {$setdayssel2} value='1'>1st Day Of The Month</option>\r\n\t\t\t<option {$setdayssel3} value='7'>7th Of The Month</option>\r\n\t\t\t<option {$setdayssel4} value='15'>15th Of The Month</option>\r\n\t\t\t<option {$setdayssel5} value='25'>25th Of The Month</option>\r\n\t\t</select>";
    $enter = "\r\n\t\t<h3>Edit Supplier</h3>\r\n\t\t<form action='" . SELF . "' method='POST'>\r\n\t\t\t<input type='hidden' name='key' value='confirm'>\r\n\t\t\t<input type='hidden' name='supid' value='{$supid}'>\r\n\t\t\t<input type='hidden' name='team_id' value='{$team_id}' />\r\n\t\t<table cellpadding='0' cellspacing='0'>\r\n\t\t\t<tr>\r\n\t\t\t\t<td colspan='2'>{$err}</td>\r\n\t\t\t</tr>\r\n\t\t\t<tr valign='top'>\r\n\t\t\t\t<td>\r\n\t\t\t\t\t<table " . TMPL_tblDflts . ">\r\n\t\t\t\t\t\t<tr>\r\n\t\t\t\t\t\t\t<th colspan='2'>Supplier Details</th>\r\n\t\t\t\t\t\t</tr>\r\n\t\t\t\t\t\t<tr class='" . bg_class() . "'>\r\n\t\t\t\t\t\t\t<td>" . REQ . "Department</td>\r\n\t\t\t\t\t\t\t<td>{$depts}</td>\r\n\t\t\t\t\t\t</tr>\r\n\t\t\t\t\t\t<tr class='" . bg_class() . "'>\r\n\t\t\t\t\t\t\t<td>" . REQ . "Supplier No</td>\r\n\t\t\t\t\t\t\t<td><input type='text' size='10' name='supno' value='{$supno}'></td>\r\n\t\t\t\t\t\t</tr>\r\n\t\t\t\t\t\t<tr class='" . bg_class() . "'>\r\n\t\t\t\t\t\t\t<td>" . REQ . "Supplier/Name</td>\r\n\t\t\t\t\t\t\t<td><input type='text' size='20' name='supname' value='{$supname}'></td>\r\n\t\t\t\t\t\t</tr>\r\n\t\t\t\t\t\t<tr class='" . bg_class() . "'>\r\n\t\t\t\t\t\t\t<td>" . REQ . "Registration/ID</td>\r\n\t\t\t\t\t\t\t<td><input type='text' size='20' name='registration' value='{$registration}'></td>\r\n\t\t\t\t\t\t</tr>\r\n\t\t\t\t\t\t<tr class='" . bg_class() . "'>\r\n\t\t\t\t\t\t\t<td>Branch</td>\r\n\t\t\t\t\t\t\t<td><input type='text' size='20' name='branch' value='{$branch}'></td>\r\n\t\t\t\t\t\t</tr>\r\n\t\t\t\t\t\t<tr class='" . bg_class() . "'>\r\n\t\t\t\t\t\t\t<td>" . REQ . "Type</td>\r\n\t\t\t\t\t\t\t<td>{$locsel}</td>\r\n\t\t\t\t\t\t</tr>\r\n\t\t\t\t\t\t<tr class='" . bg_class() . "'>\r\n\t\t\t\t\t\t\t<td>" . REQ . "Currency</td>\r\n\t\t\t\t\t\t\t<td>{$currsel}</td>\r\n\t\t\t\t\t\t</tr>\r\n\t\t\t\t\t\t<tr class='" . bg_class() . "'>\r\n\t\t\t\t\t\t\t<td>" . REQ . "VAT Number</td>\r\n\t\t\t\t\t\t\t<td><input type='text' size='21' name='vatnum' value='{$vatnum}'></td>\r\n\t\t\t\t\t\t</tr>\r\n\t\t\t\t\t\t<tr class='" . bg_class() . "'>\r\n\t\t\t\t\t\t\t<td>" . REQ . "Address</td>\r\n\t\t\t\t\t\t\t<td><textarea name='supaddr' rows='5' cols='18'>{$supaddr}</textarea></td>\r\n\t\t\t\t\t\t</tr>\r\n\t\t\t\t\t\t<tr class='" . bg_class() . "'>\r\n\t\t\t\t\t\t\t<td>Postal Address</td>\r\n\t\t\t\t\t\t\t<td><textarea name='suppostaddr' rows='5' cols='18'>{$suppostaddr}</textarea></td>\r\n\t\t\t\t\t\t</tr>\r\n\t\t\t\t\t\t<tr class='" . bg_class() . "'>\r\n\t\t\t\t\t\t\t<td>" . REQ . "Contact Name</td>\r\n\t\t\t\t\t\t\t<td><input type='text' size='20' name='contname' value='{$contname}'></td>\r\n\t\t\t\t\t\t</tr>\r\n\t\t\t\t\t\t<tr class='" . bg_class() . "'>\r\n\t\t\t\t\t\t\t<td>" . REQ . "Tel No.</td>\r\n\t\t\t\t\t\t\t<td><input type='text' size='20' name='tel' value='{$tel}'></td>\r\n\t\t\t\t\t\t</tr>\r\n\t\t\t\t\t\t<tr class='" . bg_class() . "'>\r\n\t\t\t\t\t\t\t<td>Fax No.</td>\r\n\t\t\t\t\t\t\t<td><input type='text' size='20' name='fax' value='{$fax}'></td>\r\n\t\t\t\t\t\t</tr>\r\n\t\t\t\t\t\t<tr class='" . bg_class() . "'>\r\n\t\t\t\t\t\t\t<td>Cell No.</td>\r\n\t\t\t\t\t\t\t<td><input type='text' size='20' name='cell' value='{$cell}'></td>\r\n\t\t\t\t\t\t</tr>\r\n\t\t\t\t\t\t<tr class='" . bg_class() . "'>\r\n\t\t\t\t\t\t\t<td>E-mail</td>\r\n\t\t\t\t\t\t\t<td><input type='text' size='20' name='email' value='{$email}'></td>\r\n\t\t\t\t\t\t</tr>\r\n\t\t\t\t\t\t<tr class='" . bg_class() . "'>\r\n\t\t\t\t\t\t\t<td>Web Address</td>\r\n\t\t\t\t\t\t\t<td>http://<input type='text' size='30' name='url' value='{$url}'></td>\r\n\t\t\t\t\t\t</tr>\r\n\t\t\t\t\t\t<tr class='" . bg_class() . "'>\r\n\t\t\t\t\t\t\t<td>" . REQ . "Price List</td>\r\n\t\t\t\t\t\t\t<td>{$pricelists}</td>\r\n\t\t\t\t\t\t</tr>\r\n\t\t\t\t\t\t<tr class='" . bg_class() . "'>\r\n\t\t\t\t\t\t\t<td>Supplier Group</td>\r\n\t\t\t\t\t\t\t<td>{$supp_grpdrop}</td>\r\n\t\t\t\t\t\t</tr>\r\n\t\t\t\t\t\t<tr class='" . bg_class() . "'>\r\n\t\t\t\t\t\t\t<td>Status BEE</td>\r\n\t\t\t\t\t\t\t<td>Yes <input type='radio' name='bee_status' value='yes' {$sel1}> No <input type='radio' name='bee_status' value='no' {$sel2}></td>\r\n\t\t\t\t\t\t</tr>\r\n\t\t\t\t\t\t<tr class='" . bg_class() . "'>\r\n\t\t\t\t\t\t\t<td>Team Permissions</td>\r\n\t\t\t\t\t\t\t<td>{$team_sel}</td>\r\n\t\t\t\t\t\t</tr>\r\n\t\t\t\t\t</table>\r\n\t\t\t\t</td>\r\n\t\t\t\t<td>\r\n\t\t\t\t\t<table " . TMPL_tblDflts . ">\r\n\t\t\t\t\t\t<tr class='" . bg_class() . "'>\r\n\t\t\t\t\t\t\t<th colspan='2'> Bank Details</th>\r\n\t\t\t\t\t\t</tr>\r\n\t\t\t\t\t\t<tr class='" . bg_class() . "'>\r\n\t\t\t\t\t\t\t<td>Bank </td>\r\n\t\t\t\t\t\t\t<td><input type='text' size='20' name='bankname' value='{$bankname}'></td>\r\n\t\t\t\t\t\t</tr>\r\n\t\t\t\t\t\t<tr class='" . bg_class() . "'>\r\n\t\t\t\t\t\t\t<td>Branch</td>\r\n\t\t\t\t\t\t\t<td><input type='text' size='20' name='branname' value='{$branname}'></td>\r\n\t\t\t\t\t\t</tr>\r\n\t\t\t\t\t\t<tr class='" . bg_class() . "'>\r\n\t\t\t\t\t\t\t<td>Branch Code</td>\r\n\t\t\t\t\t\t\t<td><input type='text' size='20' name='brancode' value='{$brancode}'></td>\r\n\t\t\t\t\t\t</tr>\r\n\t\t\t\t\t\t<tr class='" . bg_class() . "'>\r\n\t\t\t\t\t\t\t<td>Account Name</td>\r\n\t\t\t\t\t\t\t<td><input type='text' size='20' name='bankaccname' value='{$bankaccname}'></td>\r\n\t\t\t\t\t\t</tr>\r\n\t\t\t\t\t\t<tr class='" . bg_class() . "'>\r\n\t\t\t\t\t\t\t<td>Account Type</td>\r\n\t\t\t\t\t\t\t<td><input type='text' size='20' name='bankacctype' value='{$bankacctype}'></td>\r\n\t\t\t\t\t\t</tr>\r\n\t\t\t\t\t\t<tr class='" . bg_class() . "'>\r\n\t\t\t\t\t\t\t<td>Account Number</td>\r\n\t\t\t\t\t\t\t<td><input type='text' size='20' name='bankaccno' value='{$bankaccno}'></td>\r\n\t\t\t\t\t\t</tr>\r\n\t\t\t\t\t\t<tr class='" . bg_class() . "'>\r\n\t\t\t\t\t\t\t<td>Reference</td>\r\n\t\t\t\t\t\t\t<td><input type='text' size='20' name='reference' value='{$reference}'></td>\r\n\t\t\t\t\t\t</tr>\r\n\t\t\t\t\t\t<tr class='" . bg_class() . "'>\r\n\t\t\t\t\t\t\t<td>Settlement Discount %</td>\r\n\t\t\t\t\t\t\t<td><input type='text' name='setdisc' value='{$setdisc}'></td>\r\n\t\t\t\t\t\t</tr>\r\n\t\t\t\t\t\t<tr class='" . bg_class() . "'>\r\n\t\t\t\t\t\t\t<td>Statement Day</td>\r\n\t\t\t\t\t\t\t<td>{$setdays_drop}</td>\r\n\t\t\t\t\t\t</tr>\r\n\t\t\t\t\t\t<tr class='" . bg_class() . "'>\r\n\t\t\t\t\t\t\t<td>Comments</td>\r\n\t\t\t\t\t\t\t<td><textarea name='comments' rows='5' cols='18'>{$comments}</textarea></td>\r\n\t\t\t\t\t\t</tr>\r\n\t\t\t\t\t\t" . TBL_BR . "\r\n\t\t\t\t\t\t<tr>\r\n\t\t\t\t\t\t\t<td colspan='2' align='right'><input type='submit' value='Confirm &raquo;'></td>\r\n\t\t\t\t\t\t</tr>\r\n\t\t\t\t\t\t" . TBL_BR . "\r\n\t\t\t\t\t\t<tr>\r\n\t\t\t\t\t\t\t<td colspan='2' align='right'>\r\n\t\t\t\t\t\t\t\t<table border='0' cellpadding='2' cellspacing='1'>\r\n\t\t\t\t\t\t\t\t\t<tr>\r\n\t\t\t\t\t\t\t\t\t\t<th>Quick Links</th>\r\n\t\t\t\t\t\t\t\t\t</tr>\r\n\t\t\t\t\t\t\t\t\t<tr class='" . bg_class() . "'>\r\n\t\t\t\t\t\t\t\t\t\t<td><a href='supp-view.php'>View Suppliers</a></td>\r\n\t\t\t\t\t\t\t\t\t</tr>\r\n\t\t\t\t\t\t\t\t\t<tr class='" . bg_class() . "'>\r\n\t\t\t\t\t\t\t\t\t\t<td><a href='main.php'>Main Menu</a></td>\r\n\t\t\t\t\t\t\t\t\t</tr>\r\n\t\t\t\t\t\t\t\t</table>\r\n\t\t\t\t\t\t\t</td>\r\n\t\t\t\t\t\t</tr>\r\n\t\t\t\t\t</table>\r\n\t\t\t\t\t</form>\r\n\t\t\t\t</td>\r\n\t\t\t</tr>\r\n\t\t</table>";
    return $enter;
}
function enter($errors = "")
{
    global $_POST;
    extract($_POST);
    $fields = array();
    $fields["re"] = "no";
    $fields["deptid"] = "";
    $fields["supno"] = "";
    $fields["supname"] = "";
    $fields["supbranch"] = "";
    $fields["loc"] = "";
    $fields["fcid"] = "";
    $fields["vatnum"] = "";
    $fields["supaddr"] = "";
    $fields["suppostaddr"] = "";
    $fields["contname"] = "";
    $fields["tel"] = "";
    $fields["fax"] = "";
    $fields["cell"] = "";
    $fields["email"] = "";
    $fields["url"] = "";
    $fields["listid"] = "";
    $fields["bee_status"] = "";
    $fields["comments"] = "";
    $fields["bankname"] = "";
    $fields["branname"] = "";
    $fields["brancode"] = "";
    $fields["bankaccno"] = "";
    $fields["bankacctype"] = "";
    $fields["bankaccname"] = "";
    $fields["reference"] = "";
    $fields["lead_source"] = "";
    $fields["team_id"] = 0;
    $fields["registration"] = "";
    $fields["supp_grp"] = "";
    $fields["setdisc"] = "0";
    $fields["setdays"] = "1";
    extract($fields, EXTR_SKIP);
    # Select previous year database
    db_connect();
    $lastid = pglib_lastid("suppliers", "supid");
    # get last account number
    $sql = "SELECT supno FROM suppliers WHERE supid = '{$lastid}' AND div = '" . USER_DIV . "'";
    $accRslt = db_exec($sql);
    if (pg_numrows($accRslt) < 1) {
        do {
            $lastid--;
            # get last account number
            $sql = "SELECT supno FROM suppliers WHERE supid = '{$lastid}' AND div = '" . USER_DIV . "'";
            $accRslt = db_exec($sql);
            if (pg_numrows($accRslt) < 1) {
                $supno = "";
                $nsupno = "";
            } else {
                $acc = pg_fetch_array($accRslt);
                $supno = $acc['supno'];
            }
        } while (strlen($supno) < 1 && $lastid > 1);
    } else {
        $acc = pg_fetch_array($accRslt);
        $supno = $acc['supno'];
    }
    # Check if we got $supno(if not skip this)
    if (strlen($supno) > 0) {
        # Get the next account number
        $num = preg_replace("/[^\\d]+/", "", $supno);
        $num++;
        $chars = preg_replace("/[\\d]/", "", $supno);
        $nsupno = $chars . $num;
    } else {
        $nsupno = 1;
    }
    # Departments
    db_conn("exten");
    $depts = "<select name='deptid'>";
    $sql = "SELECT * FROM departments WHERE div = '" . USER_DIV . "' ORDER BY deptname ASC";
    $deptRslt = db_exec($sql);
    if (pg_numrows($deptRslt) < 1) {
        return "<li>There are no Price lists in Cubit.</li>";
    } else {
        while ($dept = pg_fetch_array($deptRslt)) {
            if ($dept["deptid"] == $deptid) {
                $sel = "selected";
            } else {
                $sel = "";
            }
            $depts .= "<option value='{$dept['deptid']}' {$sel}>{$dept['deptname']}</option>";
        }
    }
    $depts .= "</select>";
    # Get pricelist
    $pricelists = "<select name='listid' style='width: 120'>";
    $sql = "SELECT * FROM spricelist WHERE div = '" . USER_DIV . "' ORDER BY listname ASC";
    $listRslt = db_exec($sql);
    if (pg_numrows($listRslt) < 1) {
        return "<li>There are no Price lists in Cubit.</li>";
    } else {
        while ($list = pg_fetch_array($listRslt)) {
            if ($list["listid"] == $listid) {
                $sel = "selected";
            } else {
                $sel = "";
            }
            $pricelists .= "<option value='{$list['listid']}' {$sel}>{$list['listname']}</option>";
        }
    }
    $pricelists .= "</select>";
    db_connect();
    # Locations drop down
    $locs = array("loc" => "Local", "int" => "International");
    $locsel = extlib_cpsel("loc", $locs, $loc);
    # Currency drop down
    $currsel = ext_unddbsel("fcid", "currency", "fcid", "descrip", "There are is no currency found in Cubit, please add currency first.", $fcid);
    global $_GET;
    extract($_GET);
    if (isset($crm)) {
        $ex = "<input type='hidden' name='crm' value=''>";
    } else {
        $ex = "";
    }
    if (!isset($re)) {
        $re = "no";
    }
    $select_source = extlib_cpsel("lead_source", crm_get_leadsrc(-1), $lead_source);
    if (isset($bee_status) and $bee_status == "no") {
        $sel1 = "";
        $sel2 = "checked=yes";
    } else {
        $sel1 = "checked=yes";
        $sel2 = "";
    }
    // Retrieve teams
    $sql = "SELECT * FROM crm.teams ORDER BY name ASC";
    $team_rslt = db_exec($sql) or errDie("Unable to retrieve teams.");
    $team_sel = "<select name='team_id'>";
    $team_sel .= "<option value='0'>[None]</option>";
    while ($team_data = pg_fetch_array($team_rslt)) {
        if ($team_id == $team_data["id"]) {
            $sel = "selected";
        } else {
            $sel = "";
        }
        $team_sel .= "<option value='{$team_data['id']}' {$sel}>{$team_data['name']}</option>";
    }
    $team_sel .= "</select>";
    //Get supplier groups
    $get_grps = "SELECT * FROM supp_groups ORDER BY groupname";
    $run_grps = db_exec($get_grps) or errDie("Unable to get supplier group information.");
    if (pg_numrows($run_grps) < 1) {
        return "Unable to get supplier group information. Please add a supplier group.";
    } else {
        $supp_grpdrop = "<select name='supp_grp'>";
        while ($garr = pg_fetch_array($run_grps)) {
            if ($garr['id'] == $supp_grp) {
                $supp_grpdrop .= "<option value='{$garr['id']}' selected>{$garr['groupname']}</option>";
            } else {
                $supp_grpdrop .= "<option value='{$garr['id']}'>{$garr['groupname']}</option>";
            }
        }
        $supp_grpdrop .= "</select>";
    }
    $setdayssel1 = "";
    $setdayssel2 = "";
    $setdayssel3 = "";
    $setdayssel4 = "";
    $setdayssel5 = "";
    if (isset($setdays) and $setdays == "0") {
        $setdayssel1 = "selected";
    }
    if (isset($setdays) and $setdays == "1") {
        $setdayssel2 = "selected";
    }
    if (isset($setdays) and $setdays == "7") {
        $setdayssel3 = "selected";
    }
    if (isset($setdays) and $setdays == "15") {
        $setdayssel4 = "selected";
    }
    if (isset($setdays) and $setdays == "25") {
        $setdayssel5 = "selected";
    }
    if (isset($setdays) and $setdays == "60") {
        $setdayssel6 = "selected";
    }
    $setdays_drop = "\n\t\t<select name='setdays'>\n\t\t\t<option {$setdayssel1} value='0'>Last Day Of The Month</option>\n\t\t\t<option {$setdayssel2} value='1'>1st Day Of The Month</option>\n\t\t\t<option {$setdayssel3} value='7'>7th Of The Month</option>\n\t\t\t<option {$setdayssel4} value='15'>15th Of The Month</option>\n\t\t\t<option {$setdayssel5} value='25'>25th Of The Month</option>\n\t\t\t<option {$setdayssel6} value='60'>End Of Next Month</option>\n\t\t</select>";
    // Layout
    $enter = "\n\t\t<h3>Add Supplier</h3>\n\t\t<form action='" . SELF . "' method='POST'>\n\t\t<table cellpadding='0' cellspacing='0'>\n\t\t\t<tr>\n\t\t\t\t<td colspan='2'>{$errors}</td>\n\t\t\t</tr>\n\t\t\t<tr valign='top'>\n\t\t\t\t<td>\n\t\t\t\t\t<table " . TMPL_tblDflts . ">\n\t\t\t\t\t\t<input type='hidden' name='key' value='confirm'>\n\t\t\t\t\t\t<input type='hidden' name='re' value='{$re}'>\n\t\t\t\t\t\t{$ex}\n\t\t\t\t\t\t<tr>\n\t\t\t\t\t\t\t<th colspan='2'>Supplier 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>" . REQ . "Department</td>\n\t\t\t\t\t\t\t<td>{$depts}</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>" . REQ . "Supplier No</td>\n\t\t\t\t\t\t\t<td><input type='text' size='10' name='supno' value='{$nsupno}' /></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>" . REQ . "Supplier/Name</td>\n\t\t\t\t\t\t\t<td><input type='text' size='20' name='supname' value='{$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>" . REQ . "Registration/ID</td>\n\t\t\t\t\t\t\t<td><input type='text' size='20' name='registration' value='{$registration}'></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>Branch</td>\n\t\t\t\t\t\t\t<td><input type='text' size='20' name='supbranch' value='{$supbranch}' /></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>" . REQ . "Type</td>\n\t\t\t\t\t\t\t<td>{$locsel}</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>" . REQ . "Currency</td>\n\t\t\t\t\t\t\t<td>{$currsel}</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>" . REQ . "VAT Number</td>\n\t\t\t\t\t\t\t<td><input type='text' size='21' name='vatnum' value='{$vatnum}' /></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>" . REQ . "Address</td>\n\t\t\t\t\t\t\t<td><textarea name='supaddr' rows='4' cols='25'>{$supaddr}</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>Postal Address</td>\n\t\t\t\t\t\t\t<td><textarea name='suppostaddr' rows='4' cols='25'>{$suppostaddr}</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>" . REQ . "Contact Name</td>\n\t\t\t\t\t\t\t<td><input type='text' size='20' name='contname' value='{$contname}' /></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>" . REQ . "Tel No.</td>\n\t\t\t\t\t\t\t<td><input type='text' size='20' name='tel' value='{$tel}' /></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>Fax No.</td>\n\t\t\t\t\t\t\t<td><input type='text' size='20' name='fax' value='{$fax}' /></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>Cell No.</td>\n\t\t\t\t\t\t\t<td><input type='text' size='20' name='cell' value='{$cell}' /></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>E-mail</td>\n\t\t\t\t\t\t\t<td><input type='text' size='20' name='email' value='{$email}' /></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>Web Address</td>\n\t\t\t\t\t\t\t<td>http://<input type='text' size='30' name='url' value='{$url}' /></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>" . REQ . "Price List</td>\n\t\t\t\t\t\t\t<td>{$pricelists}</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>Supplier Group</td>\n\t\t\t\t\t\t\t<td>{$supp_grpdrop}</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>Status BEE</td>\n\t\t\t\t\t\t\t<td>\n\t\t\t\t\t\t\t\tYes <input type='radio' name='bee_status' value='yes' {$sel1}>\n\t\t\t\t\t\t\t\tNo <input type='radio' name='bee_status' value='no' {$sel2}>\n\t\t\t\t\t\t\t</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>Team Permissions</td>\n\t\t\t\t\t\t\t<td>{$team_sel}</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>\n\t\t\t\t\t<table " . TMPL_tblDflts . ">\n\t\t\t\t\t\t<tr class='" . bg_class() . "'>\n\t\t\t\t\t\t\t<th colspan='2'>Bank 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>Bank</td>\n\t\t\t\t\t\t\t<td><input type='text' size='20' name='bankname' value='{$bankname}' /></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>Branch</td>\n\t\t\t\t\t\t\t<td><input type='text' size='20' name='branname' value='{$branname}' /></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>Branch Code</td>\n\t\t\t\t\t\t\t<td><input type='text' size='20' name='brancode' value='{$brancode}' /></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>Account Name</td>\n\t\t\t\t\t\t\t<td><input type='text' size='20' name='bankaccname' value='{$bankaccname}' /></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>Account Type</td>\n\t\t\t\t\t\t\t<td><input type='text' size='20' name='bankacctype' value='{$bankacctype}' /></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>Account Number</td>\n\t\t\t\t\t\t\t<td><input type='text' size='20' name='bankaccno' value='{$bankaccno}' /></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><input type='text' size='20' 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>Lead Source</td>\n\t\t\t\t\t\t\t<td>{$select_source}</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>" . REQ . " Settlement Discount %</td>\n\t\t\t\t\t\t\t<td><input type='text' name='setdisc' value='{$setdisc}'></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>" . REQ . " Statement Day</td>\n\t\t\t\t\t\t\t<td>{$setdays_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>Comments</td>\n\t\t\t\t\t\t\t<td><textarea name='comments' rows='5' cols='18'>{$comments}</textarea></td>\n\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t" . TBL_BR . "\n\t\t\t\t\t\t<tr>\n\t\t\t\t\t\t\t<td colspan='2' align='right'>\n\t\t\t\t\t\t\t\t<input type='submit' value='Confirm &raquo;'>\n\t\t\t\t\t\t\t</td>\n\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t" . TBL_BR . "\n\t\t\t\t\t</form>\n\t\t\t\t\t\t<tr><td colspan='2'>\n\t\t\t\t\t\t<tr><td colspan='2' align='right'>\n\t\t\t\t\t<table border=0 cellpadding='2' cellspacing='1'>\n\t\t\t\t\t\t<tr>\n\t\t\t\t\t\t\t<th>Quick Links</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><a href='supp-view.php'>View Suppliers</a></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='main.php'>Main Menu</a></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</table>\n\t\t</td></tr>\n\t\t</table>";
    return $enter;
}
function enter_err($_POST, $err = "")
{
    # get vars
    extract($_POST);
    # Departments
    db_conn("exten");
    $depts = "<select name='deptid'>";
    $sql = "SELECT * FROM departments WHERE div = '" . USER_DIV . "' ORDER BY deptname ASC";
    $deptRslt = db_exec($sql);
    if (pg_numrows($deptRslt) < 1) {
        return "<li>There are no Price lists in Cubit.</li>";
    } else {
        while ($dept = pg_fetch_array($deptRslt)) {
            if ($dept['deptid'] == $deptid) {
                $sel = "selected";
            } else {
                $sel = "";
            }
            $depts .= "<option value='{$dept['deptid']}' {$sel}>{$dept['deptname']}</option>";
        }
    }
    $depts .= "</select>";
    # Get Pricelists
    $pricelists = "<select name='listid' style='width: 120'>";
    $sql = "SELECT * FROM spricelist WHERE div = '" . USER_DIV . "' ORDER BY listname ASC";
    $listRslt = db_exec($sql);
    if (pg_numrows($listRslt) < 1) {
        return "<li>There are no Price lists in Cubit.";
    } else {
        while ($list = pg_fetch_array($listRslt)) {
            if ($list['listid'] == $listid) {
                $sel = "selected";
            } else {
                $sel = "";
            }
            $pricelists .= "<option value='{$list['listid']}' {$sel}>{$list['listname']}</option>";
        }
    }
    $pricelists .= "</select>";
    db_connect();
    # Locations drop down
    $locs = array("loc" => "Local", "int" => "International");
    $locsel = extlib_cpsel("loc", $locs, $loc);
    # Currency drop down
    $currsel = ext_unddbsel("fcid", "currency", "fcid", "descrip", "There are is no currency found in Cubit, please add currency first.", $fcid);
    if (isset($crm)) {
        $ex = "<input type='hidden' name='crm' value=''>";
    } else {
        $ex = "";
    }
    if (isset($bee_training) and $bee_training == "no") {
        $sel1 = "";
        $sel2 = "checked=yes";
    } else {
        $sel1 = "checked=yes";
        $sel2 = "";
    }
    $enter = "\r\n\t\t\t\t<h3>Add Training Provider</h3>\r\n\t\t\t\t<form action='" . SELF . "' method='POST'>\r\n\t\t\t\t\t<input type='hidden' name='key' value='confirm'>\r\n\t\t\t\t\t<input type='hidden' name='re' value='{$re}'>\r\n\t\t\t\t\t{$ex}\r\n\t\t\t\t<table cellpadding='0' cellspacing='0'>\r\n\t\t\t\t\t<tr>\r\n\t\t\t\t\t\t<td colspan='2'>{$err}</td>\r\n\t\t\t\t\t</tr>\r\n\t\t\t\t\t<tr valign='top'>\r\n\t\t\t\t\t\t<td>\r\n\t\t\t\t\t\t\t<table " . TMPL_tblDflts . ">\r\n\t\t\t\t\t\t\t\t<tr><th colspan='2'>Training Provider Details</th></tr>\r\n\t\t\t\t\t\t\t\t<tr bgcolor='" . bgcolor() . "'>\r\n\t\t\t\t\t\t\t\t\t<td>" . REQ . "Department</td>\r\n\t\t\t\t\t\t\t\t\t<td>{$depts}</td>\r\n\t\t\t\t\t\t\t\t</tr>\r\n\t\t\t\t\t\t\t\t<tr bgcolor='" . bgcolor() . "'>\r\n\t\t\t\t\t\t\t\t\t<td>" . REQ . "Supplier No</td>\r\n\t\t\t\t\t\t\t\t\t<td><input type='text' size='10' name='supno' value='{$supno}'></td>\r\n\t\t\t\t\t\t\t\t</tr>\r\n\t\t\t\t\t\t\t\t<tr bgcolor='" . bgcolor() . "'>\r\n\t\t\t\t\t\t\t\t\t<td>" . REQ . "Name</td>\r\n\t\t\t\t\t\t\t\t\t<td><input type='text' size='20' name='supname' value='{$supname}'></td>\r\n\t\t\t\t\t\t\t\t</tr>\r\n\t\t\t\t\t\t\t\t<tr bgcolor='" . bgcolor() . "'>\r\n\t\t\t\t\t\t\t\t\t<td>" . REQ . "Type</td>\r\n\t\t\t\t\t\t\t\t\t<td>{$locsel}</td>\r\n\t\t\t\t\t\t\t\t</tr>\r\n\t\t\t\t\t\t\t\t<tr bgcolor='" . bgcolor() . "'>\r\n\t\t\t\t\t\t\t\t\t<td>" . REQ . "Currency</td>\r\n\t\t\t\t\t\t\t\t\t<td>{$currsel}</td>\r\n\t\t\t\t\t\t\t\t</tr>\r\n\t\t\t\t\t\t\t\t<tr bgcolor='" . bgcolor() . "'>\r\n\t\t\t\t\t\t\t\t\t<td>" . REQ . "Address</td>\r\n\t\t\t\t\t\t\t\t\t<td><textarea name='supaddr' rows='5' cols='18'>{$supaddr}</textarea></td>\r\n\t\t\t\t\t\t\t\t</tr>\r\n\t\t\t\t\t\t\t\t<tr bgcolor='" . bgcolor() . "'>\r\n\t\t\t\t\t\t\t\t\t<td>" . REQ . "Contact Name</td>\r\n\t\t\t\t\t\t\t\t\t<td><input type='text' size='20' name='contname' value='{$contname}'></td>\r\n\t\t\t\t\t\t\t\t</tr>\r\n\t\t\t\t\t\t\t\t<tr bgcolor='" . bgcolor() . "'>\r\n\t\t\t\t\t\t\t\t\t<td>" . REQ . "Tel No.</td>\r\n\t\t\t\t\t\t\t\t\t<td><input type='text' size='20' name='tel' value='{$tel}'></td>\r\n\t\t\t\t\t\t\t\t</tr>\r\n\t\t\t\t\t\t\t\t<tr bgcolor='" . bgcolor() . "'>\r\n\t\t\t\t\t\t\t\t\t<td>Fax No.</td>\r\n\t\t\t\t\t\t\t\t\t<td><input type='text' size='20' name='fax' value='{$fax}'></td>\r\n\t\t\t\t\t\t\t\t</tr>\r\n\t\t\t\t\t\t\t\t<tr bgcolor='" . bgcolor() . "'>\r\n\t\t\t\t\t\t\t\t\t<td>" . REQ . "Price List</td>\r\n\t\t\t\t\t\t\t\t\t<td>{$pricelists}</td>\r\n\t\t\t\t\t\t\t\t</tr>\r\n\t\t\t\t\t\t\t\t<tr bgcolor='" . bgcolor() . "'>\r\n\t\t\t\t\t\t\t\t\t<td>Training BEE</td>\r\n\t\t\t\t\t\t\t\t\t<td>Yes <input type='radio' name='bee_training' value='yes' {$sel1}> No <input type='radio' name='bee_training' value='no' {$sel2}></td>\r\n\t\t\t\t\t\t\t\t</tr>\r\n\t\t\t\t\t\t\t\t<tr bgcolor='" . bgcolor() . "'>\r\n\t\t\t\t\t\t\t\t\t<td>Notes</td>\r\n\t\t\t\t\t\t\t\t\t<td><textarea cols='25' rows='4' name='comments'>{$comments}</textarea></td>\r\n\t\t\t\t\t\t\t\t</tr>\r\n\t\t\t\t\t\t\t\t" . TBL_BR . "\r\n\t\t\t\t\t\t\t\t<tr>\r\n\t\t\t\t\t\t\t\t\t<td colspan='2' align='right'><input type='submit' value='Confirm &raquo;'></td>\r\n\t\t\t\t\t\t\t\t</tr>\r\n\t\t\t\t\t\t\t\t" . TBL_BR . "\r\n\t\t\t\t\t\t\t\t<tr>\r\n\t\t\t\t\t\t\t\t\t<td colspan='2' align='right'>\r\n\t\t\t\t\t\t\t\t\t\t<table border=0 cellpadding='2' cellspacing='1'>\r\n\t\t\t\t\t\t\t\t\t\t\t<tr>\r\n\t\t\t\t\t\t\t\t\t\t\t\t<th>Quick Links</th>\r\n\t\t\t\t\t\t\t\t\t\t\t</tr>\r\n\t\t\t\t\t\t\t\t\t\t\t<tr class='" . bg_class() . "'>\r\n\t\t\t\t\t\t\t\t\t\t\t\t>td><a href='supp-view.php'>View Suppliers</a></td>\r\n\t\t\t\t\t\t\t\t\t\t\t</tr>\r\n\t\t\t\t\t\t\t\t\t\t\t<tr class='" . bg_class() . "'>\r\n\t\t\t\t\t\t\t\t\t\t\t\t<td><a href='main.php'>Main Menu</a></td>\r\n\t\t\t\t\t\t\t\t\t\t\t</tr>\r\n\t\t\t\t\t\t\t\t\t\t</table>\r\n\t\t\t\t\t\t\t\t\t</td>\r\n\t\t\t\t\t\t\t\t</tr>\r\n\t\t\t\t\t\t\t</table>\r\n\t\t\t\t\t\t</td>\r\n\t\t\t\t\t</tr>\r\n\t\t\t\t</form>\r\n\t\t\t\t</table>";
    return $enter;
}