📄 f_insuborder.asp
字号:
<!--#include file="../inc/function.asp"-->
<!--#include file="../inc/ChkPurview.asp"-->
<%
'订单管理:SubOrder.asp
'用户限权检查
Dim Action,crs,csql,Pro_Name
Dim j
Dim Se
Dim syear,smonth,sday,Stime
Action = Trim(Request("Action"))
if Action="Se" then
Stime=Request("syear")&"-"&Request("smonth")&"-"&Request("sday")
else
Stime=Format_Time(now(),2)
end if
Stime = RequestTime(Stime)
%>
<html>
<head>
<title>今日日进货管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../css/mobile_sale.css" rel="stylesheet" type="text/css">
<script language="JavaScript">
<!--
function ShowPro(id) {
var url = "../product/ShowProInfo.asp?ID=" + id ;
window.open(url,"","scrollbars=yes,resizable=no, width=800,height=500");
}
function ShowUser(id) {
var url = "../User/ShowUserInfo.asp?ID=" + id ;
window.open(url,"","scrollbars=yes,resizable=no, width=800,height=500");
}
//-->
</script>
</head>
<body leftmargin="2" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
<tr class="topbg">
<td height="22" colspan="2" align="center">进货管理</td>
</tr>
<tr class="tdbg">
<td width="70" height="30"><strong>管理导航：</strong></td>
<td height="30">
<%
Response.write "<a href=""F_InSubOrder_Chk.asp"">进货审核</a>"
Response.write " | <a href=""F_InSubOrder.asp"">进货列表</a> "
%>
</td>
</tr>
</table><br>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="65%" valign="bottom"> <font color="#0000FF"><%Response.Write Stime&" 的进货列表"%></font></td>
<td width="35%"><table width="300" border="0" cellspacing="2" cellpadding="0">
<form name="sfrm" method="post" action="F_InSubOrder.asp?Action=Se">
<tr>
<td valign="bottom">历史进货</td>
<td>
<select name="syear" id="select">
<%call tTime(2005,year(Now()),year(Now()))%>
</select>
年
<select name="smonth" id="select2">
<%call tTime(1,12,month(Now()))%>
</select>
月
<select name="sday" id="select3">
<%call tTime(1,31,day(Now()))%>
</select>
日</td>
<td><input type="submit" name="Submit" value="查询"></td>
</tr>
</form>
</table></td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
<tr align="center" class="topbg">
<td>产品名称/型号</td>
<td>单价(元)</td>
<td>进货数量(部)</td>
<td>总金额(元)</td>
<td>发货方</td>
<td>发货日期</td>
<td>确认</td>
<td width="200" height="22">操作</td>
</tr>
<%
'/////////////////////////////////////////////
Sql = "Select * from T_SubOutOrder where InChk_UserPower="&GetUserGPower&" and InChk_UserID="&GetUserID&" and convert(varchar(10),Intime,120)='"&Stime&"'order by InTime desc;"
Call sql_open(Rs,Sql,Conn,1,1)
if Rs.eof and Rs.bof then
Response.Write("<tr class=""tdbg""><td colspan=""8"" align=""center"" height=40><font color='#FF0000'>没有进货，您可以查询以前的进货情况</font></td></tr>")
else
for j=0 to rs.recordcount
%>
<tr class="tdbg" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'">
<td><a href="javascript:ShowPro('<%=Rs("Pro_ID")%>')" title="查看产品信息"><%=Rs("Pro_Name")%></a></td>
<td align="center"><%=Rs("Pro_Price")%></td>
<td align="center"><%=Rs("Pro_Num")%></td>
<td align="center"><%=Rs("Pro_Money")%></td>
<td align="center">
<%
if Rs("UserPower")=99 then
Response.write "县公司"
elseif Rs("UserPower")=999 then
Response.write "市公司"
elseif Rs("UserPower")=9999 then
Response.write "省公司"
end if
%> </td>
<td align="center"><%=Format_Time(Rs("InTime"),8)%></td>
<td align="center"><%
if Rs("IsChk")=0 then
Response.Write("<font color='#0000FF'>未确认</font>")
elseif Rs("IsChk")=1 then
Response.Write("已确认")
elseif Rs("IsChk")=2 then
Response.Write("<font color='#ff0000'>信息不符</font>")
end if
%></td>
<td align="center"><a href="Show_InSubOrder.asp?ID=<%=Rs("OutOrder_ID")%>" title="查看进货详情">查看</a>
</td>
</tr>
<%
rs.movenext
If rs.eof then Exit for
Next
%>
</table>
<br>
<%
end if
Call Rs_end(Rs)
Call Conn_End(Conn)
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -