<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
|
<%Session.CodePage=65001%>
|
<!--#include virtual="/inc/chkadmin.gds"-->
|
<!--#include virtual="/inc/function.gds"-->
|
<%
|
if isDepartment("040401")=0 then
|
Response.Redirect "/"
|
Response.End()
|
end If
|
|
searchTXT=SafeRequest(Request("searchTXT"))
|
StockWarehouseID=SafeRequest(Request("StockWarehouseID"))
|
strItmClassID=SafeRequest(Request("strItmClassID"))
|
|
Set rs = Server.CreateObject("ADODB.Recordset")
|
Set rsDt = Server.CreateObject("ADODB.Recordset")
|
|
'各种返回信息
|
SystemMessageType=trim(Request("SystemMessageType"))
|
SMT=trim(Request("SMT"))
|
if SystemMessageType<>"" then
|
if SMT="1" then
|
SystemMessageTXT="单据编号错误!!"
|
elseif SMT="2" then
|
SystemMessageTXT="物料名称重复!!"
|
elseif SMT="3" then
|
SystemMessageTXT="新增物料完成!!"
|
elseif SMT="4" then
|
SystemMessageTXT="请选择需要修改的项目!!"
|
elseif SMT="5" then
|
SystemMessageTXT="修改物料完成!!"
|
elseif SMT="6" then
|
SystemMessageTXT="停用物料完成!!"
|
elseif SMT="7" then
|
SystemMessageTXT="物料号重复!!"
|
elseif SMT="7" then
|
SystemMessageTXT="启用物料完成!!"
|
end if
|
end if
|
|
'仓库列表
|
If StockWarehouseID="" Or StockWarehouseID="0" Then
|
StockWarehouseName="全部"
|
StockWarehouseID=0
|
End If
|
StockWarehouseTypes = "0,全部|"
|
sql="select WarehouseID,WarehouseName from MRP_Warehouse order by WarehouseID desc"
|
rs.open Sql,objConn,1,1
|
do while not rs.Eof
|
If CInt(StockWarehouseID)=rs("WarehouseID") Then StockWarehouseName = rs("WarehouseName")
|
StockWarehouseTypes = StockWarehouseTypes & rs("WarehouseID") &","& rs("WarehouseName") & "|"
|
rs.movenext
|
Loop
|
rs.close()
|
StockWarehouseTypes = left(StockWarehouseTypes,len(StockWarehouseTypes)-1)
|
StockWarehouseTypesPS = SPLIT(StockWarehouseTypes,"|")
|
|
'物品类型表列
|
If strItmClassID="" Then
|
strItmClassName="全部"
|
strItmClassID=0
|
End If
|
strItmClassTypes = "0,全部|"
|
sql="select vID,vtext,vType from dictionary where vtitle='strItmClass' and vType>0 order by vOrder"
|
rs.open Sql,objConn,1,1
|
do while not rs.Eof
|
ClassName=rs("vtext")
|
vType=rs("vType")
|
If vType>1 Then
|
vTypeTXT=""
|
For I = 2 to vType
|
vTypeTXT=vTypeTXT&"--"
|
Next
|
ClassName=vTypeTXT&ClassName
|
End If
|
If CInt(strItmClassID)=rs("vID") Then strItmClassName = ClassName
|
strItmClassTypes = strItmClassTypes & rs("vID") &","& ClassName & "|"
|
rs.movenext
|
Loop
|
rs.close()
|
strItmClassTypes = left(strItmClassTypes,len(strItmClassTypes)-1)
|
strItmClassTypesPS = SPLIT(strItmClassTypes,"|")
|
|
|
page_URL="&searchTXT="&searchTXT&"&StockWarehouseID="&StockWarehouseID&"&strItmClassID="&strItmClassID
|
%>
|
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
|
<html xmlns="http://www.w3.org/1999/xhtml">
|
<head>
|
<title><%=LindemanAdmin%></title>
|
<!--#include virtual="/inc/ccs.gds"-->
|
</head>
|
<body onkeydown="xKeyEvent(event)">
|
<!--#INCLUDE FILE="menu_header.gds" -->
|
<!-- content -->
|
<div id="content">
|
<!--#INCLUDE FILE="MRP_menu_left.gds" -->
|
<!-- content / right -->
|
<div id="right">
|
<!-- table -->
|
<div class="box">
|
<!-- box / title -->
|
<div class="title">
|
<h5><%If searchTXT<>"" then%>库存查询 <%=searchTXT%><%else%>库存查询<%End if%></h5>
|
<ul class="links">
|
<li>
|
<%
|
'下拉菜单设定
|
DownMenuName="仓库" '菜单名称
|
DownMenuNameID="StockWarehouseID" '菜单ID
|
DownMenuOldName=StockWarehouseName '默认值名称
|
DownMenuOldID=StockWarehouseID '默认值ID
|
%>
|
<div class="search">
|
<div name="DownMenu_container" id="<%=DownMenuNameID%>_container" class="select-container" style="overflow: hidden;cursor:pointer" onclick="JS_DownMenu('<%=DownMenuNameID%>')">
|
<span class="select-content" style="width: 46px;"><%=DownMenuName%>：<%=DownMenuOldName%></span><span class="arrow" id="<%=DownMenuNameID%>_arrow" name="DownMenu_arrow"></span>
|
</div>
|
|
<div name="DownMenu_list" id="<%=DownMenuNameID%>_list" class="select-list scroll-pane" style="width: 450px;overflow: hidden; position: absolute; background-color: white;display: none;background-position: initial initial; background-repeat: initial initial;margin-left: -136px;">
|
<div class="jspContainer" style="width: 100%;">
|
<div style="padding: 0px; top: 0px; width: 100%;">
|
<%for z = 0 to UBOUND(StockWarehouseTypesPS)
|
StockWarehouseTypesPS1=SPLIT(StockWarehouseTypesPS(z),",")
|
vID=StockWarehouseTypesPS1(0)
|
vtext=StockWarehouseTypesPS1(1)
|
%>
|
<span title="<%=vtext%>" name="DownMenu_<%=DownMenuNameID%>" onmouseover="JS_DownMenuMouseover('<%=DownMenuNameID%>',<%=z%>)" onclick="JS_DownMenuJump('<%="?"&mid(page_URL,2)%>','<%=DownMenuOldID%>','<%=DownMenuNameID%>','<%=vID%>')" class="list-option<%if vID=DownMenuOldID then Response.Write " option"%>"><%=vtext%></span>
|
<%next%>
|
</div>
|
</div>
|
</div>
|
|
</div>
|
<input id="DownMenuTime" type="hidden" value="">
|
</li>
|
<li>
|
<%
|
'下拉菜单设定
|
DownMenuName="分类" '菜单名称
|
DownMenuNameID="strItmClassID" '菜单ID
|
DownMenuOldName=strItmClassName '默认值名称
|
DownMenuOldID=strItmClassID '默认值ID
|
%>
|
<div class="search">
|
<div name="DownMenu_container" id="<%=DownMenuNameID%>_container" class="select-container" style="overflow: hidden;cursor:pointer" onclick="JS_DownMenu('<%=DownMenuNameID%>')">
|
<span class="select-content" style="width: 46px;"><%=DownMenuName%>：<%=DownMenuOldName%></span><span class="arrow" id="<%=DownMenuNameID%>_arrow" name="DownMenu_arrow"></span>
|
</div>
|
<div name="DownMenu_list" id="<%=DownMenuNameID%>_list" class="select-list scroll-pane" style="overflow: hidden; position: absolute; background-color: white; width: 90px; display: none;background-position: initial initial; background-repeat: initial initial;margin-left: 69px;">
|
<div class="jspContainer" style="width: 90px;">
|
<div style="padding: 0px; top: 0px; width: 90px;">
|
<%for z = 0 to UBOUND(strItmClassTypesPS)
|
strItmClassTypesPS1=SPLIT(strItmClassTypesPS(z),",")
|
vID=strItmClassTypesPS1(0)
|
vtext=strItmClassTypesPS1(1)
|
%>
|
<span title="<%=vtext%>" name="DownMenu_<%=DownMenuNameID%>" onmouseover="JS_DownMenuMouseover('<%=DownMenuNameID%>',<%=z%>)" onclick="JS_DownMenuJump('<%="?"&mid(page_URL,2)%>','<%=DownMenuOldID%>','<%=DownMenuNameID%>','<%=vID%>')" class="list-option<%if vID=DownMenuOldID then Response.Write " option"%>"><%=vtext%></span>
|
<%next%>
|
</div>
|
</div>
|
</div>
|
</div>
|
</li>
|
<div class="search">
|
<form action="?" method="post">
|
<div class="input">
|
<input type="text" id="searchTXT" name="searchTXT" value="<%=searchTXT%>" />
|
</div>
|
<div class="button">
|
<input type="submit" name="submit" value="搜索" />
|
</div>
|
</form>
|
</div>
|
</ul>
|
</div>
|
<!-- end box / title -->
|
<%
|
acc1=request("page")
|
if acc1=empty then acc1=clng(1)
|
QuantityInt = 20
|
acc2=0
|
acc3=0
|
|
if searchTXT<>"" Then
|
searchSql=" where (strItmName like '%"&searchTXT&"%' or strItmNo='"&searchTXT&"' or strItmBarcode='"&searchTXT&"' or strItmPinyin like '"&searchTXT&"%') "
|
else
|
'searchSql=" where strItmState<>0 "
|
end If
|
If StockWarehouseID<>"" And StockWarehouseID<>"0" Then
|
searchSql=searchSql&" and WarehouseID="&StockWarehouseID
|
End If
|
If strItmClassID<>"" and strItmClassID<>"0" Then
|
searchSql=searchSql&" and strItmClassID="&strItmClassID
|
End If
|
If InStr(searchSql," and ")=1 Then
|
searchSql="|"&searchSql
|
searchSql=Replace(searchSql,"| and"," where")
|
End If
|
|
sql="select * from (select strItmID,strItmNo,strItmName,strItmUnit,PurchasePrice,SellingPrice,strItmClassID,strItmRemarks,strItmState,isCarStItm,strItmBarcode,WarehouseID,WarehouseName,StockQty=isnull(SUM(StockQty),0),strItmPinyin from tblStItm LEFT JOIN MRP_Stock on strItmID=StItmIDPK LEFT JOIN MRP_Warehouse on WarehouseID=StockWarehouseID GROUP BY strItmID,strItmNo,strItmName,strItmUnit,PurchasePrice,SellingPrice,strItmClassID,strItmRemarks,strItmState,isCarStItm,strItmBarcode,WarehouseID,WarehouseName,strItmPinyin) as StockList "&searchSql&" order by strItmID desc,WarehouseID"
|
'Response.Write sql
|
rs.open sql,objConn,1,1
|
if not rs.eof then
|
rs.pagesize=QuantityInt
|
rs.absolutepage=acc1
|
acc2=rs.pagecount
|
acc3=rs.recordcount
|
else
|
SystemMessageType=2
|
SystemMessageTXT="数据库中相关无数据！"
|
end if
|
%>
|
<!--#include virtual="/inc/SystemMessages.gds" -->
|
<div class="table" style="overflow:auto">
|
<form id="form1" name="form1" action="" method="post">
|
<input name="admin_save" type="hidden" value="52">
|
<input name="Car_Check" type="hidden" value="">
|
<input name="searchTXT" type="hidden" value="<%=searchTXT%>">
|
<input name="page" type="hidden" value="<%=acc1%>">
|
<table>
|
<thead>
|
<tr style="white-space: nowrap;">
|
<th>停用</th>
|
<th>物料号</th>
|
<th>物品名称</th>
|
<th>单位</th>
|
<th>仓库</th>
|
<th>库存数量</th>
|
<th>库位</th>
|
<th>成本价</th>
|
<th>销售价</th>
|
<th>成本总金额</th>
|
<th>销售总金额</th>
|
<th class="last">条形码</th>
|
</tr>
|
</thead>
|
<tbody>
|
|
<%i=1
|
do while not rs.Eof and i<=QuantityInt
|
strItmID = rs("strItmID") '商品ID
|
strItmNo = rs("strItmNo") '物料号
|
strItmName = rs("strItmName") '物品名称
|
strItmUnit = rs("strItmUnit") '单位
|
strItmBarcode = rs("strItmBarcode") '条形码
|
PurchasePrice = rs("PurchasePrice") '标准进货价
|
SellingPrice = rs("SellingPrice") '标准销售价
|
strItmClassID = rs("strItmClassID") '分类ID
|
strItmRemarks = rs("strItmRemarks") '备注
|
strItmState = rs("strItmState") '商品状态(0停用,1正常)
|
isCarStItm = rs("isCarStItm") '是否车载用品(0否,1是)
|
WarehouseID = rs("WarehouseID") '仓库ID
|
WarehouseName = rs("WarehouseName") '仓库名称
|
StockQty = rs("StockQty") '库存数量
|
|
If PurchasePrice="" Or PurchasePrice="0" Then
|
PurchasePriceTXT = "--"
|
Else
|
PurchasePriceTXT = PurchasePrice&"元"
|
End If
|
If SellingPrice="" Or SellingPrice="0" Then
|
SellingPriceTXT = "--"
|
Else
|
SellingPriceTXT = SellingPrice&"元"
|
End If
|
If strItmState="0" Then
|
strItmStateTXT = "√"
|
Else
|
strItmStateTXT = ""
|
End If
|
If isCarStItm="1" Then
|
isCarStItmTXT = "√"
|
Else
|
isCarStItmTXT = ""
|
End If
|
If isnull(WarehouseName) Then WarehouseName="没入库记录"
|
ShelvesName=""
|
'WarehouseID=1
|
If Not isnull(WarehouseID) Then
|
sql="select vtext from MRP_WarehouseShelves,MRP_Warehouse,dictionary where ShelvesID=dictionary.id and vOrder=WarehouseID and isShelves=1 and ItmID="&strItmID&" and WarehouseID="&WarehouseID&" order by MRP_WarehouseShelves.id desc"
|
rsDt.open sql,objConn,1,1
|
do while not rsDt.Eof
|
ShelvesName=ShelvesName&","&rsDt(0)
|
rsDt.movenext
|
loop
|
rsDt.close()
|
If ShelvesName<>"" Then ShelvesName=Mid(ShelvesName,2)
|
End If
|
i=i+1
|
|
%>
|
|
<tr style="white-space: nowrap;">
|
<td class="selected"><%=strItmStateTXT%></td>
|
<td class="category"><%=strItmNo%></td>
|
<td class="title"><%=strItmName%></td>
|
<td class="selected"><%=strItmUnit%></td>
|
<td class="category"><%=WarehouseName%></td>
|
<td class="category"><%=StockQty%></td>
|
<td class="category"><%=ShelvesName%></td>
|
<td class="category"><%=PurchasePriceTXT%></td>
|
<td class="category"><%=SellingPriceTXT%></td>
|
<td class="category"><%=StockQty*PurchasePrice%></td>
|
<td class="category"><%=StockQty*SellingPrice%></td>
|
<td class="category category2 last"><%=strItmBarcode%></td>
|
</tr>
|
<%rs.movenext
|
loop
|
rs.close()
|
%>
|
<%for j=i to 20%>
|
<tr>
|
<td> </td>
|
<td> </td>
|
<td> </td>
|
<td> </td>
|
<td> </td>
|
<td> </td>
|
<td> </td>
|
<td> </td>
|
<td> </td>
|
<td> </td>
|
<td> </td>
|
<td class="last"> </td>
|
</tr>
|
<%next%>
|
</tbody>
|
</table>
|
<!-- pagination -->
|
<div class="pagination pagination-left">
|
<div class="results">
|
<%
|
ShowingLeast = (acc1-1)*QuantityInt+1
|
ShowingMax = QuantityInt*acc1
|
if ShowingMax>acc3 then ShowingMax=acc3
|
%>
|
<span><%="显示 "& ShowingLeast &"-"& ShowingMax &" of "&acc3%></span>
|
</div>
|
<%if acc2>1 then%>
|
<ul class="pager">
|
<%if acc1=1 then%>
|
<li class="disabled">« 上页</li>
|
<%else%>
|
<li><a href="?page=<%=acc1-1%><%=page_URL%>">« 上页</a></li>
|
<%end if%>
|
<%
|
acc4=""
|
for i=1 to acc2
|
if acc2<=9 then
|
acc4=acc4&","&i
|
else
|
if i=1 then
|
acc4=acc4&","&i
|
elseif acc1<=5 and i<=7 then
|
acc4=acc4&","&i
|
elseif acc1>=acc2-4 and i>=acc2-6 then
|
acc4=acc4&","&i
|
elseif i>=acc1-2 and i<=acc1+2 then
|
acc4=acc4&","&i
|
elseif i=acc2 then
|
acc4=acc4&","&i
|
elseif i=2 or i=acc2-1 then
|
acc4=acc4&",0"
|
end if
|
end if
|
next
|
acc4SP=SPLIT(acc4,",")
|
for i = 1 to UBOUND(acc4SP)%>
|
<%if acc4SP(i)="0" then%>
|
<li class="separator">...</li>
|
<%elseif acc1=cint(acc4SP(i)) then%>
|
<li class="current"><%=acc4SP(i)%></li>
|
<%else%>
|
<li><a href="?page=<%=acc4SP(i)%><%=page_URL%>"><%=acc4SP(i)%></a></li>
|
<%end if%>
|
<%next%>
|
<%if acc1>=acc2 then%>
|
<li class="disabled">下页 »</li>
|
<%else%>
|
<li><a href="?page=<%=acc1+1%><%=page_URL%>">下页 »</a></li>
|
<%end if%>
|
</ul>
|
<%end if%>
|
</div>
|
<!-- end pagination -->
|
</form>
|
</div>
|
</div>
|
<!-- end table -->
|
|
|
|
</div>
|
<!-- end content / right -->
|
</div>
|
<!-- end content -->
|
<!--#include FILE="vicgame.asp"-->
|
<IFRAME id="HiddenFrame" name="HiddenFrame" WIDTH=0 HEIGHT=0 MARGINWIDTH=0 MARGINHEIGHT=0 HSPACE=0 VSPACE=0 FRAMEBORDER=0 SCROLLING=no BORDERCOLOR=#ffffff></IFRAME>
|
</body>
|
</html>
|
