📄 k_xsthrkbrow.asp
字号:
<!--#include file="../include/Pubconn.asp"-->
<!--#include file="../include/PubFun.asp"-->
<% username=Getuser()
userclass=TableVisitor("k_salethrk",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") '入库仓库
ysr=request("ysr")
flag=request("flag") '按确定按扭的标志
%>
<%
set rst=server.createobject("adodb.recordset")
str="select * from F_Tblretdetail where (DepartID like '"&Session("DepartID")&"%') and cdate(rkrq) between (date()-3) and (date()) and sfyrk='Y'"
if flag="1" then
str="select * from F_Tblretdetail where (DepartID like '"&Session("DepartID")&"%') and sfyrk='Y'"
if rkck<>"" then
str=str&" and ckxh='"&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
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
ysr=document.myform.ysr.value
flag=document.myform.flag.value
a="k_xsthrkbrow.asp?page="+page1+"&year1="+year1+"&month1="+month1+"&date1="+date1+"&year2="+year2+"&month2="+month2+"&date2="+date2+"&rkck="+rkck+"&ysr="+ysr+"&flag="+flag
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_xsthrkbrow.asp" name="myform">
<input type="hidden" name="flag" value="1">
<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="459" colspan="3" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA">
<input type="text" size="4" name="year1" <%if year1<>"" then%> value="<%=year1%>" <%end if %> value="<%=year(date())%>" maxlength="4">年
<select name="month1" style="width: 51; height: 23" size="1">
<option value=""></option>
<%for i=1 to 9%>
<option value="<%="0"&i%>" <%
if month1<>"" then
if cint(month1)=i then
response.write ("selected")
end if
end if
%>
><%="0"&i%></option>
<%next%>
<%for i =10 to 12%>
<option value="<%=i%>" <%
if month1<>"" then
if cint(month1)=i then
response.write ("selected")
end if
end if
%>
><%=i%></option>
<%next%>
</select>月<select name="date1" style="width: 51; height: 23" size="1">
<option value=""></option>
<%for i=1 to 9%>
<option value="<%="0"&i%>" <%
if date1<>"" then
if cint(date1)=i then
response.write ("selected")
end if
end if
%>
><%="0"&i%></option>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -