📄 k_rkbrow2.asp
字号:
<!--#include file="../include/Pubconn.asp"-->
<!--#include file="../include/PubFun.asp"-->
<% username=Getuser()
userclass=TableVisitor("k_instock",username)
if userclass<1 then
response.write"<br>"
response.write"<br>"
response.write "<center><font size=2>抱歉，您没有此项操作权限！"
response.end
end if
%>
<%
'得到入库仓库下拉单
set AdoRs3=Server.CreateObject("AdoDB.RecordSet")
lcsql="select NumValue from A_ConfigInfo Where Subject='storehouse'"
AdoRS3.Open lcSql,PubConn,1,1
HYvalue=Adors3("NumValue")
if not isNull(HYvalue) then
house=Split(HYValue,",")
end if
Set Adors3=Nothing
year1=request("year1")
month1=request("month1")
date1=request("date1")
'当年月日同时选择中了，才能进入查询条件，合并
if year1<>"" and month1<>"" and date1<>"" then
total1=year1+"-"+month1+"-"+date1
end if
'当年月日同时选择中了，才能进入查询条件，合并
year2=request("year2")
month2=request("month2")
date2=request("date2")
if year2<>"" and month2<>"" and date2<>"" then
total2=year2+"-"+month2+"-"+date2
end if
rkck=request("rkck")
ckxh=rkck
ysr=request("ysr")
%>
<%
set rst=server.createobject("adodb.recordset")
str="select * from k_tblstock where (DepartID like '"&Session("DepartID")&"%') and sfyrk='Y'"
if rkck<>"" then
str=str&" and rkck='"&rkck&"'"
end if
if ysr<>"" then
str=str&" and ysr='"&ysr&"'"
end if
if total1<>"" and total2="" then
str=str&" and rkrq<='"&total1&"'"
end if
if total1="" and total2<>"" then
str=str&" and rkrq<='"&total2&"'"
end if
if total1<>"" and total2<>"" then
str=str&" and (rkrq between '"&total1&"' and '"&total2&"')"
end if
str=str&"order by id desc"
rst.open str,pubconn,1
'response.write str
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title></title><link href="../cread.css" rel="stylesheet" type="text/css">
</head>
<script language="vbscript">
sub GoPage()
page1=document.form1.page1.value
year1=document.myform.year1.value
month1=document.myform.month1.value
date1=document.myform.date1.value
year2=document.myform.year2.value
month2=document.myform.month2.value
date2=document.myform.date2.value
rkck=document.myform.rkck.value
a="k_rkbrow2.asp?page="+page1+"&year1="+year1+"&month1="+month1+"&date1="+date1+"&year2="+year2+"&month2="+month2+"&date2="+date2+"&rkck="+rkck
window.location=a
end sub
</script>
<body bgcolor="#FFFFFF">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="100%"><b><font size="3"><img border="0" src="../pic/it_22.gif" width="34" height="15"></font>
<font size="2">入库明细查询</font></b><hr width="40%" size="1" align="left">
</td>
</tr>
</table>
<form method="post" action="k_rkbrow2.asp" name="myform">
<input type="hidden" name="year1" value="<%=year1%>">
<input type="hidden" name="month1" value="<%=month1%>">
<input type="hidden" name="date1" value="<%=date1%>">
<input type="hidden" name="year2" value="<%=year2%>">
<input type="hidden" name="month2" value="<%=month2%>">
<input type="hidden" name="date2" value="<%=date2%>">
<input type="hidden" name="ckxh" value="<%=ckxh%>">
<table border="0" cellspacing="0" width="574" align="center" width="630" width="636">
<tr>
<td width="71" align="right" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA" >
进货日期
</td><td width="190" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA">
<input type="text" size="11" name="sdate" <%if total1<>"" then%> value="<%=total1%>" <%end if %> value="0000-00-00" readonly style="background-color: #edefef"> 至
<input type="text" size="10" name="edate" <%if total2<>"" then%> value="<%=total2%>" <%end if %> value="9999-99-99" readonly style="background-color: #edefef" > </td>
<td width="269" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA">
入库仓库<input type="text" size="17" name="ck" value="<%=ckxh%>" readonly style="background-color: #edefef"></td>
</tr>
</table>
<p align="center">
<%
if rst.eof then%>
<font size="2">>无记录！
<%
response.end
else
if request.querystring("page")<>"" then
page=cint(request.querystring("page"))
else
page=1
end if
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -