<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
|
<%Session.CodePage=65001%>
|
<!--#include virtual="/inc/chkadmin.gds"-->
|
<!--#include virtual="/inc/function.gds"-->
|
<script language=javascript>
|
var StItmListArray=new Array()
|
<%
|
StItmSearchTXT=trim(Request("StItmSearchTXT"))
|
WarehouseID=trim(Request("WarehouseID"))
|
if WarehouseID="" then WarehouseID=0
|
acc1=trim(Request("page"))
|
if acc1="" then acc1=1
|
acc2=1
|
i=0
|
Set rs = Server.CreateObject("ADODB.Recordset")
|
ClassSql=""
|
if len(StItmSearchTXT)>0 then
|
sql="select *,StockQty=(select SUM(StockQty) from MRP_Stock where StItmIDPK=strItmID and StockWarehouseID="&WarehouseID&") from tblStItm where strItmState=1 and (strItmName like '%"&StItmSearchTXT&"%' or strItmNo like '%"&StItmSearchTXT&"%') order by strItmID desc"
|
else
|
sql="select *,StockQty=(select SUM(StockQty) from MRP_Stock where StItmIDPK=strItmID and StockWarehouseID="&WarehouseID&") from tblStItm where strItmState=1 and strItmClassID=2"
|
end if
|
rs.open Sql,objConn,1,1
|
if not rs.eof then
|
rs.pagesize=6
|
rs.absolutepage=acc1
|
acc2=rs.pagecount
|
acc3=rs.recordcount
|
end if
|
do while not rs.Eof and i<6
|
strItmID = rs("strItmID")
|
strItmNo = rs("strItmNo")
|
strItmBarcode = rs("strItmBarcode")
|
strItmName = rs("strItmName")
|
strItmUnit = rs("strItmUnit")
|
PurchasePrice = FN(rs("PurchasePrice"))
|
strItmRemarks = rs("strItmRemarks")
|
if not isnull(rs("StockQty")) then
|
StockQty = rs("StockQty")
|
else
|
StockQty = "--"
|
end if
|
%>
|
StItmListArray[<%=i%>]=new Array("<%=strItmID%>","<%=strItmNo%>","<%=strItmName%>","<%=strItmUnit%>","<%=PurchasePrice%>","<%=strItmBarcode%>","<%=StockQty%>");
|
<%i=i+1
|
rs.movenext
|
loop
|
rs.close()
|
%>
|
parent.JS_StItmList(StItmListArray,<%=acc1%>,<%=acc2%>,'<%=StItmSearchTXT%>',<%=acc3%>);
|
</script>
|
|
<%Response.End%>
|
