liststyle=$sess_liststyle;
$myuser=new bsysuser($sess_username, $sess_password);
$menubar = "";
require_once("layout.css");
require_once("funcs.php");
require_once("java/enter.js");
require_once("java/select.js");
require_once("java/math.js");
require_once("java/compform.js");
require_once("java/cal.js");
require_once("winphplib/htmlMimeMail2.5.1/htmlMimeMail.php");
$today = date("Y-m-d");
$now = date("H:i:s");
$todaynow = date("Y-m-d H:i:s");
$fromurl = $_SERVER['REMOTE_ADDR'];
$newmdate = $today." ".$now;
$noheader=false;
$nofooter=false;
?>
BSRM - phpMyRetail
bgcolor="#ffffff";
$mybody1=new bsysbody();
$myfooter1=new bsysfooter();
require "top.php";
$myheader1->addcontent($mytable1->show());
switch (strtoupper($cmd)) {
case "LOGOUT":
$myuser->logaccess("LOGOUT",$sessid,$sess_username,$sess_password,"1");
session_unregister("sess_username");
session_unregister("sess_password");
$mymessage1=new bsysmessage("System","System Logging Out
" . $mysystem1->goback());
$mybody1->addcontent("
" . $mymessage1->show() . "
");
// $mybody1->addcontent($mysystem1->goback());
break;
case "LOGIN":
if ($myuser->authenuser()) {
// $mymessage1=new bsysmessage("System","Authorized
" . $mysystem1->goback());
$myuser->logaccess("LOGIN",$sessid,$sess_username, $sess_password,"1");
$mymessage1=new bsysmessage("MEMO","User Authorized
" . $mysystem1->gobackmanual($sess_username, $sess_password));
$mybody1->addcontent("
" . $mymessage1->show() . "
");
} else {
$myuser->logaccess("LOGIN",$sessid,$sess_username, $sess_password,"0");
$mymessage1=new bsysmessage("System","Unauthorized User
" . $mysystem1->goback());
$mybody1->addcontent("
" . $mymessage1->show() . "
");
}
break;
default:
if ($myuser->authenuser()) {
include("menu.php");
$menubar .= "";
// $menubar .= "";
if (!isset($lookup)) {
$mybody1->addcontent($menubar);
}
if ($myuser->getaccess()==false) {
$mybody1->addcontent("
ACCESS DENY
");
} else {
if (isset($lookup)) {
switch (strtoupper($lookup)) {
case "FAGL": // sales use activesp, stock in use ucost
$mylist1=new bsyslist("SELECT glid \"GL ID\",glname \"NAME\", gltype \"TYPE\"", "FROM fagl", "", "GL LISTING");
$mylist1->actualfield = array("glid","glname","gltype");
$mylist1->fieldalign = array("","","");
$mylist1->fieldwidth = array("","30%","40%","30%");
break;
case "STOCK": // stock-in use ucost
$mylist1=new bsyslist("SELECT stkid \"STOCK ID\",stkname \"NAME\", stkdesc \"DESCRIPTION\",uom \"UOM\", activesp \"UNIT PRICE\",barcode \"BARCODE\",ucost \"PT\",lvl \"LEVEL\"", "FROM stkprice", "", "STOCK LISTING");
$mylist1->actualfield = array("stkid","stkname","stkdesc","uom","activesp","barcode","ucost","lvl");
$mylist1->fieldalign = array("","","","","","center","","right","center");
$mylist1->fieldwidth = array("","10%","20%","20%","10%","10%","23%","10%","5%");
break;
case "STOCK3MQTY": // should be left join stkmqty (mthly qty)
// $mylist1=new bsyslist("SELECT a.stkid \"STOCK ID\",a.stkname \"NAME\", a.stkdesc \"DESCRIPTION\",a.uom \"UOM\", b.mqty \"3 MTH QTY\",a.barcode \"BARCODE\",a.ucost \"PT\",a.lvl \"LEVEL\"", "FROM stkprice AS a, stkmqty AS b", "WHERE a.stkid=b.stkid AND a.lvl=b.lvl", "STOCK LISTING");
$mylist1=new bsyslist7("SELECT a.stkid \"STOCK ID\",a.stkname \"NAME\", a.stkdesc \"DESCRIPTION\",a.uom \"UOM\", b.mqty \"MTH QTY\",a.barcode \"BARCODE\",a.ucost \"PT\",a.lvl \"LEVEL\"", "FROM stkprice AS a LEFT JOIN stkmqty AS b ON a.stkid = b.stkid AND a.lvl = b.lvl", "", "STOCK LISTING");
$mylist1->actualfield = array("a.stkid","stkname","stkdesc","uom","mqty","barcode","ucost","a.lvl");
// $mylist1=new bsyslist("SELECT a.barcode \"BARCODE\",a.stkname \"NAME\", a.stkdesc \"DESCRIPTION\",a.uom \"UOM\", b.mqty \"3 MTH QTY\",a.stkid \"STOCK ID\",a.ucost \"PT\",a.lvl \"LEVEL\"", "FROM stkprice AS a, stkmqty AS b", "WHERE a.stkid=b.stkid AND a.lvl=b.lvl", "STOCK LISTING");
// $mylist1->actualfield = array("a.barcode","stkname","stkdesc","uom","mqty","a.stkid","ucost","a.lvl");
$mylist1->fieldalign = array("","","","","","center","","right","center");
$mylist1->fieldwidth = array("","10%","20%","20%","10%","10%","23%","10%","5%");
break;
case "POSF2": // without ucost
$mylist1=new bsyslist("SELECT stkid \"STOCK ID\",stkname \"NAME\",uom \"UOM\",activesp \"UNIT PRICE\",pt \"MPT\",barcode \"BARCODE\"", "FROM stkprice", "", "STOCK LISTING");
$mylist1->actualfield = array("stkid","stkname","uom","activesp","pt","barcode");
break;
case "POSF9": // with ucost and on-hand qty, use stkprice AS a LEFT JOIN stklocqty AS b
$mylist1=new bsyslist("SELECT a.stkid \"STOCK ID\", a.stkname \"NAME\", a.uom \"UOM\", a.activesp \"UNIT PRICE\", a.ucost \"COST\",b.ohqty \"QTY\"", "FROM stkprice as a left join stklocqty as b ON a.stkid=b.stkid and a.lvl=b.lvl and b.outletid=$myuser->outletid", "", "STOCK LISTING");
$mylist1->actualfield = array("a.stkid","a.stkname","a.uom","a.activesp","a.ucost","b.ohqty");
break;
case "INVF2":
$mylist1=new bsyslist("SELECT stkid \"STOCK ID\",stkname \"NAME\", stkdesc \"DESCRIPTION\",uom \"UOM\", activesp \"UNIT PRICE\",barcode \"BARCODE\",pt \"PT\",lvl \"LEVEL\"", "FROM stkprice", "", "STOCK LISTING");
$mylist1->actualfield = array("stkid","stkname","stkdesc","uom","activesp","barcode","pt","lvl");
$mylist1->fieldalign = array("","","","","","center","","right","center");
$mylist1->fieldwidth = array("","10%","20%","20%","10%","10%","23%","10%","5%");
break;
case "INVF9":
$mylist1=new bsyslist("SELECT a.stkid \"STOCK ID\", a.stkname \"NAME\", a.stkdesc \"DESCRIPTION\", a.uom \"UOM\", a.activesp \"UNIT PRICE\", b.ohqty \"QTY\", a.ucost \"COST\",a.lvl \"LVL\"", "FROM stkprice as a left join stklocqty as b ON a.stkid=b.stkid and a.lvl=b.lvl and b.outletid=$myuser->outletid", "", "STOCK LISTING");
$mylist1->actualfield = array("a.stkid","a.stkname","a.stkdesc","a.uom","a.activesp","b.ohqty","a.ucost","a.lvl");
break;
case "PTYPE":
$mylist1=new bsyslist("SELECT lkid \"PAYMENT ID\",edesc \"DESCRIPTION\"", "FROM lkptype", "", "PAYMENT TYPE LISTING");
$mylist1->actualfield = array("lkid","edesc");
break;
// version 2.3.x
case "F2WPOS1":
$mylist1=new bsyslist("SELECT stkid \"STOCK ID\",stkname \"NAME\", stkdesc \"DESCRIPTION\",uom \"UOM\", sp1 \"UNIT PRICE\",barcode \"BARCODE\",pt \"PT\",lvl \"LEVEL\"", "FROM stkprice", "", "STOCK LISTING");
$mylist1->actualfield = array("stkid","stkname","stkdesc","uom","sp1","barcode","pt","lvl");
$mylist1->fieldalign = array("","","","","","center","","right","center");
$mylist1->fieldwidth = array("","10%","20%","20%","10%","10%","23%","10%","5%");
break;
case "F2WPOS2":
$mylist1=new bsyslist("SELECT stkid \"STOCK ID\",stkname \"NAME\", stkdesc \"DESCRIPTION\",uom \"UOM\", sp2 \"UNIT PRICE\",barcode \"BARCODE\",pt \"PT\",lvl \"LEVEL\"", "FROM stkprice", "", "STOCK LISTING");
$mylist1->actualfield = array("stkid","stkname","stkdesc","uom","sp2","barcode","pt","lvl");
$mylist1->fieldalign = array("","","","","","center","","right","center");
$mylist1->fieldwidth = array("","10%","20%","20%","10%","10%","23%","10%","5%");
break;
case "F2WPOS3":
$mylist1=new bsyslist("SELECT stkid \"STOCK ID\",stkname \"NAME\", stkdesc \"DESCRIPTION\",uom \"UOM\", sp3 \"UNIT PRICE\",barcode \"BARCODE\",pt \"PT\",lvl \"LEVEL\"", "FROM stkprice", "", "STOCK LISTING");
$mylist1->actualfield = array("stkid","stkname","stkdesc","uom","sp3","barcode","pt","lvl");
$mylist1->fieldalign = array("","","","","","center","","right","center");
$mylist1->fieldwidth = array("","10%","20%","20%","10%","10%","23%","10%","5%");
break;
case "F2WPOS4":
$mylist1=new bsyslist("SELECT stkid \"STOCK ID\",stkname \"NAME\", stkdesc \"DESCRIPTION\",uom \"UOM\", sp4 \"UNIT PRICE\",barcode \"BARCODE\",pt \"PT\",lvl \"LEVEL\"", "FROM stkprice", "", "STOCK LISTING");
$mylist1->actualfield = array("stkid","stkname","stkdesc","uom","sp4","barcode","pt","lvl");
$mylist1->fieldalign = array("","","","","","center","","right","center");
$mylist1->fieldwidth = array("","10%","20%","20%","10%","10%","23%","10%","5%");
break;
case "F2WPOS5":
$mylist1=new bsyslist("SELECT stkid \"STOCK ID\",stkname \"NAME\", stkdesc \"DESCRIPTION\",uom \"UOM\", sp5 \"UNIT PRICE\",barcode \"BARCODE\",pt \"PT\",lvl \"LEVEL\"", "FROM stkprice", "", "STOCK LISTING");
$mylist1->actualfield = array("stkid","stkname","stkdesc","uom","sp5","barcode","pt","lvl");
$mylist1->fieldalign = array("","","","","","center","","right","center");
$mylist1->fieldwidth = array("","10%","20%","20%","10%","10%","23%","10%","5%");
break;
case "F2WPOS6":
$mylist1=new bsyslist("SELECT stkid \"STOCK ID\",stkname \"NAME\", stkdesc \"DESCRIPTION\",uom \"UOM\", sp6 \"UNIT PRICE\",barcode \"BARCODE\",pt \"PT\",lvl \"LEVEL\"", "FROM stkprice", "", "STOCK LISTING");
$mylist1->actualfield = array("stkid","stkname","stkdesc","uom","sp6","barcode","pt","lvl");
$mylist1->fieldalign = array("","","","","","center","","right","center");
$mylist1->fieldwidth = array("","10%","20%","20%","10%","10%","23%","10%","5%");
break;
case "F2WPOS7":
$mylist1=new bsyslist("SELECT stkid \"STOCK ID\",stkname \"NAME\", stkdesc \"DESCRIPTION\",uom \"UOM\", sp7 \"UNIT PRICE\",barcode \"BARCODE\",pt \"PT\",lvl \"LEVEL\"", "FROM stkprice", "", "STOCK LISTING");
$mylist1->actualfield = array("stkid","stkname","stkdesc","uom","sp7","barcode","pt","lvl");
$mylist1->fieldalign = array("","","","","","center","","right","center");
$mylist1->fieldwidth = array("","10%","20%","20%","10%","10%","23%","10%","5%");
break;
case "F2WPOS8":
$mylist1=new bsyslist("SELECT stkid \"STOCK ID\",stkname \"NAME\", stkdesc \"DESCRIPTION\",uom \"UOM\", sp8 \"UNIT PRICE\",barcode \"BARCODE\",pt \"PT\",lvl \"LEVEL\"", "FROM stkprice", "", "STOCK LISTING");
$mylist1->actualfield = array("stkid","stkname","stkdesc","uom","sp8","barcode","pt","lvl");
$mylist1->fieldalign = array("","","","","","center","","right","center");
$mylist1->fieldwidth = array("","10%","20%","20%","10%","10%","23%","10%","5%");
break;
case "F2WPOS9":
$mylist1=new bsyslist("SELECT stkid \"STOCK ID\",stkname \"NAME\", stkdesc \"DESCRIPTION\",uom \"UOM\", sp9 \"UNIT PRICE\",barcode \"BARCODE\",pt \"PT\",lvl \"LEVEL\"", "FROM stkprice", "", "STOCK LISTING");
$mylist1->actualfield = array("stkid","stkname","stkdesc","uom","sp9","barcode","pt","lvl");
$mylist1->fieldalign = array("","","","","","center","","right","center");
$mylist1->fieldwidth = array("","10%","20%","20%","10%","10%","23%","10%","5%");
break;
case "F2WPOS10":
$mylist1=new bsyslist("SELECT stkid \"STOCK ID\",stkname \"NAME\", stkdesc \"DESCRIPTION\",uom \"UOM\", sp10 \"UNIT PRICE\",barcode \"BARCODE\",pt \"PT\",lvl \"LEVEL\"", "FROM stkprice", "", "STOCK LISTING");
$mylist1->actualfield = array("stkid","stkname","stkdesc","uom","sp10","barcode","pt","lvl");
$mylist1->fieldalign = array("","","","","","center","","right","center");
$mylist1->fieldwidth = array("","10%","20%","20%","10%","10%","23%","10%","5%");
break;
case "F2WPOSA":
$mylist1=new bsyslist("SELECT stkid \"STOCK ID\",stkname \"NAME\", stkdesc \"DESCRIPTION\",uom \"UOM\", activesp \"UNIT PRICE\",barcode \"BARCODE\",pt \"PT\",lvl \"LEVEL\"", "FROM stkprice", "", "STOCK LISTING");
$mylist1->actualfield = array("stkid","stkname","stkdesc","uom","activesp","barcode","pt","lvl");
$mylist1->fieldalign = array("","","","","","center","","right","center");
$mylist1->fieldwidth = array("","10%","20%","20%","10%","10%","23%","10%","5%");
break;
// Last Cost (lcost), Average Cost (ucost), Supplier List Price (slprice)
case "GRPOUC": // stock-in use ucost
$mylist1=new bsyslist("SELECT stkid \"STOCK ID\",stkname \"NAME\", stkdesc \"DESCRIPTION\",uom \"UOM\", activesp \"UNIT PRICE\",barcode \"BARCODE\",ucost \"PT\",lvl \"LEVEL\"", "FROM stkprice", "", "STOCK LISTING");
$mylist1->actualfield = array("stkid","stkname","stkdesc","uom","activesp","barcode","ucost","lvl");
$mylist1->fieldalign = array("","","","","","center","","right","center");
$mylist1->fieldwidth = array("","10%","20%","20%","10%","10%","23%","10%","5%");
break;
case "GRPOSL": // stock-in use supplier list price, ispocosting=1
$mylist1=new bsyslist("SELECT stkid \"STOCK ID\",stkname \"NAME\", stkdesc \"DESCRIPTION\",uom \"UOM\", activesp \"UNIT PRICE\",barcode \"BARCODE\",aplistprice \"AP LIST PRICE\",lvl \"LEVEL\"", "FROM stkprice", "", "STOCK LISTING");
$mylist1->actualfield = array("stkid","stkname","stkdesc","uom","activesp","barcode","aplistprice","lvl");
$mylist1->fieldalign = array("","","","","","center","","right","center");
$mylist1->fieldwidth = array("","10%","20%","20%","10%","10%","23%","10%","5%");
break;
case "LKMEMID":
$mylist1=new bsyslist("SELECT memid \"MEMBER ID\",memname \"NAME\", mempname \"PREFERRED NAME \"", "FROM mem", "WHERE outletid='$myuser->outletid'", "MEMBERS LISTING");
$mylist1->actualfield = array("memid","memname","mempname");
$mylist1->fieldalign = array("","","");
$mylist1->fieldwidth = array("","20%","40%");
break;
}
$mylist1->lookup=$lookup;
$mylist1->controlable=false;
$mylist1->viewable=false;
$mylist1->editable=false;
$mybody1->addcontent($mylist1->show());
$noheader=true;$nofooter=true;
} else {
require "main.php";
}
}
$myimage1=new bsysimage("top_signout.gif","?cmd=logout");
$msg = "Privacy Policy - Term of Use - BSYS
Open License
© 2000-2007 BSYS Solution (M) Sdn Bhd and its licensors. All rights reserved. ";
$mytblf=new bsystable();
$mytblf->width="100%";
$mytblf->cellspacing=0; $mytblf->cellpadding=3;
$mytblf->fieldwidth=array("90%","10%");
$mytblf->fieldalign=array("center","right");
$mytblf->fieldvalign=array("middle","middle");
$mytblf->fieldbgcolor=array("#cccccc","#FFFFFF");
$mytblf->border=0;
$mytblf->addrow(array($msg, $myimage1->show()));
$myframe=new bsysframe($mytblf->show());
$myfooter1->addcontent($myframe->show());
} else {
require "login.php";
require "loginf.php";
}
}
$mybody1->align="center";
if (!$noheader) {
echo $myheader1->show();
}
echo $mybody1->show();
if (!$nofooter) {
echo $myfooter1->show();
}
?>