<html xmlns="http://www.w3.org/1999/xhtml">
<!--#include file="../Inc/Conn.asp" -->
<!--#include file="../Inc/SK.Session.asp" -->
<!--#include file="../Inc/SK.Funtion.asp" -->
<%if Not (Getconfig("SK_Sales")="0" AND (Session("Manager")="1" OR (JudgePopedomTF(Session("UserName"),"SK300000000") AND JudgePopedomTF(Session("UserName"),"SK300000400")))) then Call ReturnError()%>
<%
if not isnumeric(JCID(F("ID"))) then Call ReturnError10()
set rs=server.createobject("adodb.recordset")
if Session("Manager")=1 or Session("Manager")=2 then
sql="SELECT * from SK_SalesOrders where OrdersID="&JCID(F("ID"))&""
elseif Session("Manager")=3 then
sql="SELECT * from SK_SalesOrders where OrdersID="&JCID(F("ID"))&""
elseif Session("Manager")=4 then
sql="SELECT * from SK_SalesOrders where OrdersID="&JCID(F("ID"))&""
elseif Session("Manager")=5 then
sql="SELECT * from SK_SalesOrders where OrdersID="&JCID(F("ID"))&""
elseif Session("Manager")=6 then
sql="SELECT * from SK_SalesOrders where SK_SalesID="&Session("UID")&" and OrdersID="&JCID(F("ID"))&""
end if
rs.Open sql,conn,1,1
if rs.eof and rs.bof then Call ReturnError4()
%>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=GB2312" />
<title>查看产品销售订单</title>
<META http-equiv=Page-Enter content=SKCRM>
<META http-equiv=Page-Exit content=SKCRM>
<META content="MSHTML 6.00.3790.2858" name=GENERATOR>
<LINK href="../images/style.css" type=text/css rel=stylesheet>
<script language="javascript" src="../Inc/Check.js"></script>
<script language="javascript" src="../Inc/Calendar.js"></script>
<script language="javascript" src="../Inc/jquery.js"></script>
<SCRIPT language=javascript src="../inc/Openwin.js"></SCRIPT>
<style type="text/css">
<!--
body {
margin: 5px 0px 5px 0px;
overflow-x: hidden;
}
-->
</style>
</head>
<body>
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="0">
<TBODY>
<tr>
<td class="SK_Td_Top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="12" height="25"><img src="../images/tab_03.gif" width="12" height="25" /></td>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="46%" valign="middle">查看产品销售订单</td>
<td width="54%"></td>
</tr>
</table></td>
<td width="16"><img src="../images/tab_07.gif" width="16" height="25" /></td>
</tr>
</table></td>
</tr>
<tr>
<td>

<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="8" background="../images/tab_12.gif"></td>
<td>

<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="b5d6e6">

<tr>
  <td width="14%" class="SK_Text2">关联客户</td>
  <td width="37%" class="SK_Text1"><%
set rsClient=server.createobject("adodb.recordset")
sqlClient="select * from SK_Client where ClientID="&Rs("SK_ClientID")&""
rsClient.open sqlClient,conn,1,1
if rsClient.eof and rsClient.bof then Call ReturnError13()
Response.write""&RsClient("SK_Wname")&""
RsClient.close
Set RsClient=Nothing
%></td>
  <td width="9%" class="SK_Text2">订单编号</td>
  <td width="40%" class="SK_Text1"><%=Rs("SK_OrdersNo")%></td>
</tr>
<tr>
  <td class="SK_Text2">订单主题</td>
  <td class="SK_Text1"><%=Rs("SK_OrdersTitle")%></td>
  <td class="SK_Text2">签约日期</td>
  <td class="SK_Text1"><%=Rs("SK_OrdersTime")%></td>
</tr>
<tr>
  <td class="SK_Text2">生效日期</td>
  <td class="SK_Text1"><%=Rs("SK_ATime")%></td>
  <td class="SK_Text2">终止日期</td>
  <td class="SK_Text1"><%=Rs("SK_BTime")%></td>
</tr>
<tr>
  <td class="SK_Text2">我方代表</td>
  <td class="SK_Text1"><%=Rs("SK_AName")%></td>
  <td class="SK_Text2">对方代表</td>
  <td class="SK_Text1"><%=Rs("SK_BName")%></td>
</tr>
<tr>
  <td class="SK_Text2">订单类别</td>
  <td class="SK_Text1">
<%
set rsDi=server.createobject("adodb.recordset")
sqlDi="select * from SK_SystemCategory where SK_Di=44 and CategoryID="&Rs("SK_Di")&""
rsDi.open sqlDi,conn,1,1
Response.write""&RsDi("SK_Name")&""
RsDi.close
RsDi=Nothing
%></td>
  <td class="SK_Text2">订单状态</td>
  <td class="SK_Text1">
<%
set rsFeet=server.createobject("adodb.recordset")
sqlFeet="select * from SK_SystemCategory where SK_Di=45 and CategoryID="&Rs("SK_Feet")&""
rsFeet.open sqlFeet,conn,1,1
Response.write"<font color=blue>"&RsFeet("SK_Name")&"</font>"
RsFeet.close
RsFeet=Nothing
%></td>
</tr>
<tr>
  <td class="SK_Text2">审核状态</td>
  <td class="SK_Text1">
<font color="#009999">
<%
if Rs("SK_ShFeet")=0 then
Response.write"未审核"
elseif Rs("SK_ShFeet")=1 then
Response.write"已通过"
elseif Rs("SK_ShFeet")=2 then Response.write"未通过" 
end if
%></font></td>
  <td class="SK_Text2">审核人员</td>
  <td class="SK_Text1"><%
set RsFuser=server.createobject("adodb.recordset")
SqlFuser="select * from SK_SystemUsers where UsersID="&Rs("SK_ShUID")&""
RsFuser.open SqlFuser,conn,1,1
Response.write""&RsFuser("SK_OName")&""
RsFuser.close
Set RsFuser=Nothing
%></td>
</tr>
<%if Rs("SK_ShContent")<>"" and Rs("SK_ShFeet")<>"0" then%>
<tr>
  <td class="SK_Text2">审核备注</td>
  <td class="SK_Text1"><%=Rs("SK_ShContent")%></td>
  <td class="SK_Text2">关联报价</td>
  <td class="SK_Text1"><%
set rsPrice=server.createobject("adodb.recordset")
sqlPrice="select * from SK_SalesProPrice where ProPriceID="&Rs("SK_ProPriceID")&""
rsPrice.open sqlPrice,conn,1,1
Response.write""&RsPrice("SK_PriceNo")&""
RsPrice.close
Set RsPrice=Nothing
%></td>
</tr>
<%end if%>

<%if Rs("SK_Delivery")="1" then%>
<tr>
  <td class="SK_Text2">快递公司</td>
  <td class="SK_Text1"><%
set rsExpress=server.createobject("adodb.recordset")
sqlExpress="select * from SK_Express where ExpressID="&Rs("SK_ExpressID")&""
rsExpress.open sqlExpress,conn,1,1
Response.write""&RsExpress("SK_Company")&""
RsExpress.close
Set RsExpress=Nothing
%></td>
  <td class="SK_Text2">发货单号</td>
  <td class="SK_Text1"><%=Rs("SK_ExpressNo")%></td>
</tr>
<tr>
  <td class="SK_Text2">发货费用</td>
  <td class="SK_Text1"><%=Rs("SK_ExpressTotal")%></td>
  <td class="SK_Text2">发货日期</td>
  <td class="SK_Text1"><%=Rs("SK_ExpressTime")%></td>
</tr>
<tr>
  <td class="SK_Text2">收件人名</td>
  <td class="SK_Text1"><%=Rs("SK_ExpressToUsers")%></td>
  <td class="SK_Text2">联系电话</td>
  <td class="SK_Text1"><%=Rs("SK_ExpressToTel")%></td>
</tr>
<tr>
  <td class="SK_Text2">收件地址</td>
  <td colspan="3" class="SK_Text1"><%=Rs("SK_ExpressAddress")%></td>
</tr>
<tr>
  <td class="SK_Text2">发货备注</td>
  <td colspan="3" class="SK_Text1"><%=Rs("SK_ExpressContent")%></td>
</tr>
<%end if%>

<tr>
  <td valign="top" class="SK_Text2">报价备注</td>
  <td colspan="3" valign="top" class="SK_FContent"><%=Rs("SK_Content")%></td>
</tr>
<%
'自定义选项开始
set RsOptions=server.createobject("adodb.recordset")
sqlOptions="SELECT * from SK_SalesOptions where SK_Di=3 and SK_ShowOnForm=0 Order by SK_OrderID asc"
RsOptions.Open sqlOptions,conn,1,1
if RsOptions.bof and RsOptions.eof then
else
%>
<tr>
  <td colspan="4" class="SK_Title1">自定义选项</td>
  </tr>
<tr>
  <td colspan="4" class="SK_Text1">
<%
Response.write"<table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""1"">"
for Optionsi=1 to RsOptions.recordCount '变量i从1循环到数据库中的全部记录数 
if (Optionsi mod 2 =1) then '每个tr即每行显示1个记录,可根据需要自行修改, 将左边的1修改为2即显示两行。
response.write "<tr>" 
end if
Response.write"<td class=""SK_Text2"" width=""14%"">"&RsOptions("SK_Title")&"</td><td class=""SK_Text1"">"

Set rs1=Server.CreateObject("ADODB.RecordSet") 
sql1="SELECT * from SK_SalesOptionsDetail where SK_OptionsID="&RsOptions("FieldID")&" and OptionsDetailID="&rs(""&RsOptions("SK_FieldName")&"")&"" 
rs1.Open sql1,conn,1,1
Response.write""&rs1("SK_OName")&""
rs1.close
set rs1=Nothing

Response.write"</td>"
if (Optionsi mod 2 = 0) then '每个tr即每行显示1个记录,可根据需要自行修改, 将左边的1修改为2即显示两行。
response.write "</tr>" 
end if 
RsOptions.movenext 
next 
Response.write"</table>"
%></td>
</tr>
<%
end if
RsOptions.close
set RsOptions=Nothing
'自定义选项结束
'自定义字段开始
set RsFields=server.createobject("adodb.recordset")
sqlFields="SELECT * from SK_SalesFields where SK_Di=3 and SK_ShowOnForm=0 Order by SK_OrderID asc"
RsFields.Open sqlFields,conn,1,1
if RsFields.bof and RsFields.eof then
else
%>
<tr>
  <td colspan="4" class="SK_Title1">自定义字段</td>
</tr>
<tr>
  <td colspan="4" class="SK_Text1">
<%
Response.write"<table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""1"">"
for Fieldsi=1 to RsFields.recordCount '变量i从1循环到数据库中的全部记录数 
if (Fieldsi mod 2 =1) then '每个tr即每行显示1个记录,可根据需要自行修改, 将左边的1修改为2即显示两行。
response.write "<tr>" 
end if
Response.write"<td class=""SK_Text2"" width=""14%"">"&RsFields("SK_Title")&"</td><td class=""SK_Text1"">"&Rs(""&RsFields("SK_FieldName")&"")&"</td>"
if (Fieldsi mod 2 = 0) then '每个tr即每行显示1个记录,可根据需要自行修改, 将左边的1修改为2即显示两行。
response.write "</tr>" 
end if 
RsFields.movenext 
next 
Response.write"</table>"
%></td>
</tr>
<%
end if
RsFields.close
set RsFields=Nothing
'自定义字段结束
%>
<tr>
  <td colspan="4" class="SK_Title1">其他信息</td>
</tr>
<tr>
  <td valign="top" class="SK_Text2">业务人员</td>
  <td class="SK_Text1"><%
set RsSales=server.createobject("adodb.recordset")
SqlSales="select * from SK_SystemUsers where UsersID="&RS("SK_SalesID")&""
RsSales.open SqlSales,conn,1,1
Response.write""&RsSales("SK_OName")&""
RsSales.close
Set RsSales=Nothing
%></td>
  <td class="SK_Text2">&nbsp;</td>
  <td class="SK_Text1">&nbsp;</td>
</tr>
<tr>
  <td valign="top" class="SK_Text2">创建人员</td>
  <td class="SK_Text1"><%=Rs("SK_Addor")%></td>
  <td class="SK_Text2">新建时间</td>
  <td class="SK_Text1"><%=Rs("SK_Time")%></td>
</tr>
<%if Rs("SK_Editor")<>"0" then%>
<tr>
  <td valign="top" class="SK_Text2">修改人员</td>
  <td class="SK_Text1"><%
set RsClientEditor=server.createobject("adodb.recordset")
SqlClientEditor="select * from SK_SystemUsers where UsersID="&Rs("SK_Editor")&""
RsClientEditor.open SqlClientEditor,conn,1,1
Response.write"<font color=#999999>"&RsClientEditor("SK_OName")&"</font>"
RsClientEditor.close
Set RsClientEditor=Nothing
%></td>
  <td class="SK_Text2">修改时间</td>
  <td class="SK_Text1"><%=Rs("SK_ETime")%></td>
</tr>
<%end if%>
<tr>
  <td colspan="4" class="SK_Title1">产品明细</td>
</tr>
<tr>
<td colspan="4" valign="top" class="SK_Text">
<!--产品列表开始-->
<%
set rsDetail=Server.createobject("adodb.recordset")
sqlDetail="select * from SK_SalesOrdersDetail where SK_ProOrdersID="&Rs("OrdersID")&" order by OrdersDetailID asc"
rsDetail.open sqlDetail,conn,1,1
if rsDetail.bof and rsDetail.eof then 
Call ReturnError8()
else
%>
<TABLE width="100%" border=1 align="center" cellPadding=1 cellSpacing=0 borderColor=#ffffff borderColorLight=#dfdfdf borderColorDark=#ffffff>
 <tr>
  <th width="36%" class="Pheadtd">产品名称</th>
   <th width="23%" class="Pheadtd">数量</th>
   <th width="20%" class="Pheadtd">单价</th>
   <th width="21%" class="Pheadtd">金额</th>
   </tr>
<%
For J = 1 To RsDetail.recordcount
set rsProduct=server.createobject("adodb.recordset")
sqlProduct="select * from SK_Product where ProID="&RsDetail("SK_ProID")&""
rsProduct.open sqlProduct,conn,1,1
set RsUnit=server.createobject("adodb.recordset")

SqlUnit="select * from SK_SystemCategory where SK_Di=161 and CategoryID="&rsProduct("SK_Unit")&""
RsUnit.open SqlUnit,conn,1,1
%>
<tr>
  <td class="Ptetd"><%=RsProduct("SK_ProName")%></td>
  <td class="Ptetd"><%=RsDetail("SK_Total")%> / <%=RsUnit("SK_Name")%></td>
  <td class="Ptetd"><%=formatnumber(RsDetail("SK_Price"),2)%></td>
  <td class="Ptetd"><%=formatnumber(RsDetail("SK_Price")*RsDetail("SK_Total"),2)%></td>
  </tr>
<%
RsUnit.close
Set RsUnit=Nothing

rsProduct.close
RsDetail.movenext
next
%>
<tr>
  <td colspan="3" class="Ptetd">合计</td>
  <td class="Ptetd"><%
set RsCurrency=server.createobject("adodb.recordset")
SqlCurrency="select * from SK_SystemCategory where SK_Di=142 and CategoryID="&Rs("SK_Currency")&""
RsCurrency.open SqlCurrency,conn,1,1
Response.write"<font color=""#999999"">"&RsCurrency("SK_Name")&"</font> "
RsCurrency.close
Set RsCurrency=Nothing

set RsAG=server.createobject("adodb.recordset")
SqlAG="select sum(SK_Total*SK_Price) as AG from SK_SalesOrdersDetail where SK_ProOrdersID="&Rs("OrdersID")&""
RsAG.open SqlAG,Conn,1,1
Response.write"<font color=blue>"&formatnumber(RsAG("AG"),2)&"</font>"
RsAG.close
set RsAG=Nothing
%></td>
  </tr>
</table>
<%
end if
rsDetail.close
Set RsDetail=Nothing
%>
<!--产品列表结束--></td>
</tr>
<tr>
  <td colspan="4" class="SK_Title1">回款记录 <%if Rs("SK_ShFeet")="1" and (Session("Manager")="1" OR JudgePopedomTF(Session("UserName"),"SK300000501")) then%> <a href="javascript:void(0)" onClick="javascript:var win=window.open('SK.AddProPayment.asp?id=<%=Rs("OrdersID")%>','Mod','width=820,height=400,top=170,left=161,center:yes,status:no,help:no,toolbar=no,location=no,directories=no,status=no,menubar=no,resizable=yes,scrollbars=yes'); win.focus()">
<img src="../images/add.gif" title="新建回款计划" /></a><%end if%></td>
</tr>
<tr>
  <td colspan="4" valign="top" class="SK_Text">
<!--回款列表开始-->
<%
Dim RsPayment,M
set rsPayment=Server.createobject("adodb.recordset")
sqlPayment="select * from SK_Accounts where SK_Di=0 and SK_SalesOrders="&Rs("OrdersID")&" order by AccountsID asc"
rsPayment.open sqlPayment,conn,1,1
if rsPayment.bof and rsPayment.eof then 
Call ReturnError8()
else
%>
<TABLE width="100%" border=1 align="center" cellPadding=1 cellSpacing=0 borderColor=#ffffff borderColorLight=#dfdfdf borderColorDark=#ffffff>
 <tr>
   <th width="10%" class="Pheadtd">回款日期</th>
   <th width="21%" class="Pheadtd">回款金额</th>
   <th width="13%" class="Pheadtd">确定否</th>
   <th width="28%" class="Pheadtd">财务人员</th>
   <th width="28%" class="Pheadtd">创建时间</th>
 </tr>
<%
M=0
while not rsPayment.eof
M=M+1
%>
<tr>
  <td class="Ptetd"><%=RsPayment("SK_Atime")%></td>
  <td class="Ptetd"><font color=red><%=formatnumber(RsPayment("SK_Amount"),2)%></font></td>
  <td class="Ptetd"><%if RsPayment("SK_Feet")=0 then Response.write"<font color=red>未确定</font>" else Response.write"<font color=blue>已确定</font>" end if%></td>
  <td class="Ptetd"><%
set RsFuser=server.createobject("adodb.recordset")
SqlFuser="select * from SK_SystemUsers where UsersID="&RsPayment("SK_FinanceID")&""
RsFuser.open SqlFuser,conn,1,1
Response.write""&RsFuser("SK_OName")&""
RsFuser.close
set RsFuser=Nothing
%></td>
  <td class="Ptetd"><%=RsPayment("SK_Time")%></td>
</tr>
<%
rsPayment.movenext
wend
%>
</table>
<%
end if
rsPayment.close
Set RsPayment=Nothing
%>
<!--回款列表结束-->
</td>
</tr>

<tr>
  <td colspan="4" class="SK_Title1">退货记录 <%if Rs("SK_ShFeet")=1 and (Session("Manager")="1" OR JudgePopedomTF(Session("UserName"),"SK300000701")) then%> <a href="javascript:void(0)" onClick="javascript:var win=window.open('SK.AddProReturned.asp?id=<%=Rs("OrdersID")%>','Mod','width=820,height=400,top=170,left=161,center:yes,status:no,help:no,toolbar=no,location=no,directories=no,status=no,menubar=no,resizable=yes,scrollbars=yes'); win.focus()"><img src="../images/add.gif" title="申请退货" /></a><%end if%></td>
</tr>
<tr>
  <td colspan="4" valign="top" class="SK_Text">
<!--退货列表开始-->
<%
set RsReturns=Server.createobject("adodb.recordset")
sqlReturns="select * from SK_SalesReturns where SK_OrderID="&Rs("OrdersID")&" order by ReturnsID asc"
RsReturns.open sqlReturns,conn,1,1
if RsReturns.bof and RsReturns.eof then 
Call ReturnError8()
else
%>
<TABLE width="100%" border=1 align="center" cellPadding=1 cellSpacing=0 borderColor=#ffffff borderColorLight=#dfdfdf borderColorDark=#ffffff>
 <tr>
   <th width="10%" height="24" class="Pheadtd">退货日期</th>
   <th width="21%" class="Pheadtd">退货原因</th>
  <th width="13%" class="Pheadtd">退货状态</th>
  <th width="28%" class="Pheadtd">审核</th>
  <th width="28%" class="Pheadtd">创建时间</th>
 </tr>
<%
N=0
while not rsReturns.eof
N=N+1
%>
<tr>
  <td class="Ptetd"><a href="javascript:void(0)" onClick="javascript:var win=window.open('SK.ReProReturned.asp?id=<%=RsReturns("ReturnsID")%>','RePro','width=820,height=400,top=170,left=161,center:yes,status:no,help:no,toolbar=no,location=no,directories=no,status=no,menubar=no,resizable=yes,scrollbars=yes'); win.focus()"><%=RsReturns("SK_Atime")%></a></td>
  <td class="Ptetd"><%
set rsDi=server.createobject("adodb.recordset")
sqlDi="select * from SK_SystemCategory where SK_Di=46 and CategoryID="&RsReturns("SK_Di")&""
rsDi.open sqlDi,conn,1,1
Response.write""&RsDi("SK_Name")&""
RsDi.close
RsDi=Nothing
%></td>
  <td class="Ptetd"><% 
Response.write"<font color=blue>"
if RsReturns("SK_Feet")=0 then
Response.write"计划退货"
elseif RsReturns("SK_Feet")=1 then
Response.write"已经退货"
elseif RsReturns("SK_Feet")=2 then
Response.write"申请入库"
elseif RsReturns("SK_Feet")=3 then
Response.write"已经入库"
end if
Response.write"</font>"
%></td>
  <td class="Ptetd"><%if RsReturns("SK_ShFeet")=0 then
  Response.write"未审核"
  elseif RsReturns("SK_ShFeet")=1 then
  Response.write"已通过"
  elseif RsReturns("SK_ShFeet")=2 then
  Response.write"未通过"
  end if%></td>
  <td class="Ptetd"><%=RsReturns("SK_Time")%></td>
</tr>
<%
rsReturns.movenext
wend
%>
</table>
<%
end if
rsReturns.close
Set RsReturns=Nothing
%>
<!--退货列表结束--></td>
</tr>

<tr>
  <td colspan="4" class="SK_Title1">退款记录 <%if Rs("SK_ShFeet")=1 and (Session("Manager")="1" OR JudgePopedomTF(Session("UserName"),"SK300000801")) then%> <a href="javascript:void(0)" onClick="javascript:var win=window.open('SK.AddProReFund.asp?id=<%=Rs("OrdersID")%>','Mod','width=820,height=400,top=170,left=161,center:yes,status:no,help:no,toolbar=no,location=no,directories=no,status=no,menubar=no,resizable=yes,scrollbars=yes'); win.focus()">
<img src="../images/add.gif" title="申请退款" /></a><%end if%></td>
</tr>
<tr>
  <td colspan="4" valign="top" class="SK_Text">
<!--退款列表开始-->
<%
set RsReFund=Server.createobject("adodb.recordset")
sqlReFund="select * from SK_Accounts where SK_Di=1 and SK_SalesOrders="&Rs("OrdersID")&" order by AccountsID asc"
RsReFund.open sqlReFund,conn,1,1
if RsReFund.bof and RsReFund.eof then 
Call ReturnError8()
else
%>
<TABLE width="100%" border=1 align="center" cellPadding=1 cellSpacing=0 borderColor=#ffffff borderColorLight=#dfdfdf borderColorDark=#ffffff>
 <tr>
   <td width="10%" class="Pheadtd">退款日期</td>
  <td width="21%" height="24" class="Pheadtd">退款金额</td>
   <td width="13%" class="Pheadtd">确定否</td>
   <td width="28%" class="Pheadtd">财务人员</td>
   <td width="28%" class="Pheadtd">创建时间</td>
 </tr>
<%
ReFund=0
while not RsReFund.eof
ReFund=ReFund+1
%>
<tr>
  <td class="Ptetd"><font color=red><%=formatnumber(RsReFund("SK_Amount"),2)%></font></td>
  <td class="Ptetd"><%=RsReFund("SK_Atime")%></td>
  <td class="Ptetd"><%if RsReFund("SK_Feet")=0 then Response.write"<font color=red>未确定</font>" else Response.write"<font color=blue>已确定</font>" end if%></td>
  <td class="Ptetd"><%
set RsFuser1=server.createobject("adodb.recordset")
SqlFuser1="select * from SK_SystemUsers where UsersID="&RsReFund("SK_FinanceID")&""
RsFuser1.open SqlFuser1,conn,1,1
Response.write""&RsFuser1("SK_OName")&""
RsFuser1.close
set RsFuser1=Nothing
%></td>
  <td class="Ptetd"><%=RsReFund("SK_Time")%></td>
</tr>
<%
RsReFund.movenext
wend
%>
</table>
<%
end if
RsReFund.close
Set RsReFund=Nothing
%>
<!--退款列表结束--></td>
</tr>

<tr>
<td colspan="4" class="SK_Text">
<%if Session("Manager")="1" OR JudgePopedomTF(Session("UserName"),"SK300000404") then%>
<input type="button" value=" 导出 " class="button1" onClick="location.href='SK.ExcelProOrderDetail.asp?ID=<%=Rs("OrdersID")%>'">
<%end if%>
<input type="button" value=" 打印 " class="button1" onClick="location.href='SK.PrintProOrder.asp?ID=<%=Rs("OrdersID")%>'">
<input type="button" value=" 关闭 " onClick="window.close();" class="button1" /></td>
</tr>
</table>

</td>
<td width="8" background="../images/tab_15.gif"></td>
</tr>
</table></td>
</tr>
<tr>
<td class="SK_Td_Foot">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="1%" height="20"><img src="../images/tab_18.gif" width="12" height="20" /></td>
<td width="98%" class="SK_Td_Page"></td>
<td width="1%"><img src="../images/tab_20.gif" width="16" height="20" /></td>
</tr>
</table>

</td>
</tr>
</TBODY>
</table>
</body>
<%
Call CloseDB()
%>
</html>