📄 f_insuborder_chk.asp

📁 这是去年开发的中移鼎讯手机进销存系统大家
💻 ASP
字号:
<!--#include file="../inc/function.asp"-->
<!--#include file="../inc/ChkPurview.asp"-->
<%
'订单管理:SubOrder.asp
'用户限权检查
Dim Action,crs,csql,Pro_Name
Dim j
%>
<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 "&nbsp;|&nbsp;<a href=""F_InSubOrder.asp"">进货列表</a> "
	
		
%>


	</td>
  </tr>
</table><br>
<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 IsChk<>1 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 + -