📄 subsaleorder_show.asp
字号:
<!--#include file="../inc/function.asp"-->
<!--#include file="../inc/ChkPurview.asp"-->
<%
Dim ID
ID=Trim(Request("ID"))
if ID = "" then
Call Msg("信息不存在",1,"")
end if
%>
<html>
<head>
<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");
}
function ShowSubOutOrder(id) {
var url = "ShowSubOutOrderInfo.asp?ID=" + id ;
window.open(url,"","scrollbars=yes,resizable=no, width=800,height=500");
}
//-->
</script>
<title>销售记录-查看</title>
</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=""mySubSaleOrder.asp"">我的销售记录</a>"
Response.write " | <a href=""SubSaleOrder_add.asp"">添加销售记录</a>"
if GetUserGPower=9999 then
Response.write " | <a href=""P_SubSaleOrder_s.asp"">(省)销售统计</a>"
elseif GetUserGPower=999 then
Response.write " | <a href=""S_SubSaleOrder_s.asp"">(市)销售统计</a>"
elseif GetUserGPower=99 then
Response.write " | <a href=""X_SubSaleOrder_s.asp"">(县)销售统计</a>"
end if
%>
</td>
</tr>
</table><br>
<%
if GetUserGPower=9 then '分销点能看到自己的
Sql = "Select * from T_SubSaleOrder where UserID = "&cstr(GetUserID)&" and SaleID="&cstr(ID)&""
elseif GetUserGPower=99 then
Sql = "Select * from T_SubSaleOrder where SaleID="&cstr(ID)&" and CountyID = "&GetCountyID&""
elseif GetUserGPower=999 then
Sql = "Select * from T_SubSaleOrder where SaleID="&cstr(ID)&" and CityID = "&GetCityID&""
elseif GetUserGPower=9999 then
Sql = "Select * from T_SubSaleOrder where SaleID="&cstr(ID)&""
end if
Call sql_open(Rs,Sql,Conn,1,1)
if Rs.eof and Rs.bof then
Response.write "信息不存在"
else
%>
<table width="80%" border="0" align="center" cellpadding="2" cellspacing="1" class="border" >
<tr class="title">
<td height="22" colspan="4"> <div align="center">销售记录-查看</div></td>
</tr>
<tr class="tdbg">
<td width="15%" class="tdbg">产品名称/型号</td>
<td width="35%" class="tdbg"><a href="javascript:ShowPro('<%=Rs("Pro_ID")%>')" title="查看产品信息"><font color="#0000FF"><%=Rs("Pro_Name")%></font></a></td>
<td width="15%" class="tdbg">产品颜色</td>
<td width="35%" class="tdbg"><a href="javascript:ShowPro('<%=Rs("Pro_ID")%>')" title="查看产品信息"></a><a href="javascript:ShowPro('<%=Rs("Pro_ID")%>')" title="查看产品信息"></a><%=rs("Pro_Col")%></td>
</tr>
<tr class="tdbg">
<td class="tdbg">产品单价</td>
<td class="tdbg"><%=Rs("Pro_Price")%></td>
<td class="tdbg"> </td>
<td class="tdbg"> </td>
</tr>
<tr class="tdbg">
<td class="tdbg">销售单价</td>
<td class="tdbg"><%=rs("Sale_Price")%></td>
<td class="tdbg">销售数量</td>
<td class="tdbg"><%=rs("Sale_Num")%></td>
</tr>
<tr class="tdbg">
<td class="tdbg">回款数目</td>
<td class="tdbg"><%=Rs("Fund_Num")%></td>
<td class="tdbg">回款金额</td>
<td class="tdbg"><%=rs("BackFundMoney")%></td>
</tr>
<tr class="tdbg">
<td class="tdbg">填写人</td>
<td class="tdbg"><%
Dim CityName,CountyName
Dim crs,csql
csql = "Select * from City where CityID="&Cstr(Rs("CityID"))&""
call sql_open(crs,csql,Conn,1,1)
if crs.eof and crs.bof then
CityName = "无"
else
CityName = crs("CityName")
end if
call rs_end(crs)
Response.write CityName
'县级收货
csql = "Select * from County where CountyID="&Cstr(Rs("CountyID"))&""
call sql_open(crs,csql,Conn,1,1)
if crs.eof and crs.bof then
CountyName = " "
else
CountyName = crs("CountyName")
end if
call rs_end(crs)
Response.write " "&CountyName
csql = "Select * from T_User where UserID="&Cstr(Rs("UserID"))&""
call sql_open(crs,csql,Conn,1,1)
if crs.eof and crs.bof then
Response.write " <font color='#FF0000'> </font>"
else
Response.write " <a href=""javascript:ShowUser('"&Rs("UserID")&"')"" title='查看用户信息'><font color='#0000FF'>"&crs("UserName")&"</font></a>"
end if
call rs_end(crs)
%></td>
<td class="tdbg"> </td>
<td class="tdbg"> </td>
</tr>
<tr class="tdbg">
<td class="tdbg">说明</td>
<td colspan="3" class="tdbg"><%=rs("Sale_Info")%></td>
</tr>
<tr class="tdbg">
<td class="tdbg">填写时间</td>
<td class="tdbg"><%=rs("Intime")%></td>
<td class="tdbg"> </td>
<td class="tdbg"> </td>
</tr>
<%if Rs("IsChk")=1 or Rs("IsChk")=2 then%>
<tr class="tdbg">
<td class="tdbg">是否确认</td>
<td class="tdbg"><%
if Rs("IsChk")=0 then
Response.write "未审核"
elseif Rs("IsChk")=1 then
Response.write "已审核"
elseif Rs("IsChk")=2 then
Response.write "已拒绝"
end if
%></td>
<td class="tdbg"> </td>
<td class="tdbg">
</td>
</tr>
<tr class="tdbg">
<td class="tdbg">内容</td>
<td colspan="3" class="tdbg"><%=rs("Chk_Info")%></td>
</tr>
<tr class="tdbg">
<td class="tdbg">审核人</td>
<td class="tdbg"><%=rs("Chk_UserName")%></td>
<td class="tdbg"> </td>
<td class="tdbg"> </td>
</tr>
<tr class="tdbg">
<td class="tdbg">时间</td>
<td class="tdbg"><%=rs("Chk_Time")%></td>
<td class="tdbg"> </td>
<td class="tdbg"> </td>
</tr>
<%end if%>
</table>
<br>
<%
'只能省级用户有审核权
if GetUserGPower=9999 then
if Rs("IsChk")=0 or Rs("IsChk")=2 then %>
<form name="form1" method="post" action="SubSaleOrder_showok.asp">
<table width="80%" border="0" align="center" cellpadding="2" cellspacing="1" class="border" >
<tr class="title">
<td height="22" colspan="2">
<div align="center">销售记录-回复确认</div></td>
</tr>
<tr class="tdbg">
<td width="35%" class="tdbg">是否确认</td>
<td width="65%" class="tdbg"><input name="IsChk" type="radio" value="1" <%if Rs("IsChk")=1 then Response.write "checked"%>>
确认
<input type="radio" name="IsChk" value="2" <%if Rs("IsChk")=2 then Response.write "checked"%>>
未确认
<input name="ID" type="hidden" id="ID" value="<%=Rs("SaleID")%>">
<input name="Chk_UserName" type="hidden" id="Chk_UserName" value="<%=GetUserName%>"></td>
</tr>
<tr class="tdbg">
<td class="tdbg">其它说明</td>
<td class="tdbg"><textarea name="ChkInfo" cols="50" rows="6" id="ChkInfo"><%=Rs("Chk_Info")%></textarea></td>
</tr>
<tr class="tdbg">
<td height="40" colspan="2" class="tdbg"><div align="center">
<input type="submit" name="Submit" value="提交">
</div></td>
</tr>
</table>
</form>
<%
end if
end if
end if
Call Rs_end(Rs)
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -