<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
|
<%Session.CodePage=65001%>
|
<!--#include virtual="/inc/chkadmin.gds"-->
|
<!--#include virtual="/inc/function.gds"-->
|
<%
|
StItmSearchTXT=trim(Request("StItmSearchTXT"))
|
WarehouseID=trim(Request("WarehouseID"))
|
InWarehouseID=trim(Request("InWarehouseID"))
|
classId=trim(Request("classId"))
|
OrdType=trim(Request("OrdType"))
|
acc1=trim(Request("page"))
|
if acc1="" then acc1=1
|
acc2=1
|
i=0
|
acc3=0
|
Set rs = Server.CreateObject("ADODB.Recordset")
|
if WarehouseID<>"" then
|
SqlStock="(select isnull(sum(StockQty),0) from MRP_Stock where StItmIDPK=strItmID and StockWarehouseID="&WarehouseID&")"
|
else
|
SqlStock="'--'"
|
end if
|
if InWarehouseID<>"" then
|
SqlInStock="(select isnull(sum(StockQty),0) from MRP_Stock where StItmIDPK=strItmID and StockWarehouseID="&InWarehouseID&")"
|
else
|
SqlInStock="'--'"
|
end If
|
If classId<>"" And classId<>"0" Then
|
SqlClass=" and strItmClassID in ("&classId&") "
|
ElseIf len(StItmSearchTXT)=0 Then
|
SqlClass=" and isCarStItm=1 "
|
End If
|
if len(StItmSearchTXT)>0 then
|
sql="select strItmID,strItmNo,strItmName,strItmUnit,PurchasePrice,SellingPrice,strItmBarcode,Stock="&SqlStock&",InStock="&SqlInStock&" from tblStItm where strItmState>0"&SqlClass&" and (strItmNo='"&StItmSearchTXT&"' or strItmBarcode='"&StItmSearchTXT&"' or strItmName like '%"&StItmSearchTXT&"%' or strItmPinyin like '"&StItmSearchTXT&"%') order by strItmID"
|
else
|
sql="select strItmID,strItmNo,strItmName,strItmUnit,PurchasePrice,SellingPrice,strItmBarcode,Stock="&SqlStock&",InStock="&SqlInStock&" from tblStItm where strItmState>0"&SqlClass&" order by strItmID"
|
end If
|
'Response.Write sql
|
rs.open Sql,objConn,1,1
|
if not rs.eof then
|
rs.pagesize=10
|
rs.absolutepage=acc1
|
acc2=rs.pagecount
|
acc3=rs.recordcount
|
Else
|
%>
|
<div style="font-size: 30px;">
|
<p>没有找到对应物品!</p>
|
<div class="clear"></div>
|
</div>
|
<%
|
end if
|
do while not rs.Eof and i<10
|
strItmID = rs("strItmID")
|
strItmNo = rs("strItmNo")
|
strItmName = rs("strItmName")
|
strItmUnit = rs("strItmUnit")
|
PurchasePrice=FN(rs("PurchasePrice"))
|
SellingPrice=FN(rs("SellingPrice"))
|
strItmBarcode=rs("strItmBarcode")
|
Stock = rs("Stock")
|
InStock = rs("InStock")
|
|
if OrdType="11" or OrdType="16" then
|
Price=SellingPrice '标准售价
|
elseif OrdType="14" then
|
Price=InStock '转入仓库存
|
else
|
Price=PurchasePrice '标准进价
|
end if
|
%>
|
<li>
|
<input type="hidden" class="strItmIDBySearch" value="<%=strItmID%>" />
|
<input type="hidden" class="strBarcode" value="<%=strItmBarcode%>" />
|
<div class="fl ListDivLeft">
|
<img src="http://images.v.com.cn/TVupfile/NewItm_60x60.png" alt="">
|
</div>
|
<div class="fr ListDivRight">
|
<p class="mc"><%=strItmName%><%If strItmUnit<>"" Then Response.Write " ("&strItmUnit&")"%></p>
|
<p class="dm"><%=strItmNo%></p>
|
<p class="sl">
|
<span>数量：<input type="number" name="searchqty" value="0" /></span>
|
<span>原有：<label name="searchStock"><%=Stock%></label></span>
|
<span>仓库：<label name="searchInStock"><%=InStock%></label></span>
|
</p>
|
</div>
|
<div class="clear"></div>
|
</li>
|
<%i=i+1
|
rs.movenext
|
loop
|
rs.close()
|
%>
|
<script>
|
//当输入框获得焦点时
|
$(document).ready(function(){
|
$("input").focus(function(){
|
if ($(this).val()=='0' && $(this).attr("type")=="number")
|
{
|
$(this).val('');
|
}
|
});
|
$("input").blur(function(){
|
if ($(this).val()=='' && $(this).attr("type")=="number")
|
{
|
$(this).val('0');
|
}
|
});
|
});
|
|
|
</script>
|
