📄 salechange_view.asp
字号:
<%@ Language=VBScript %>
<%
' ******************************************************
'功能:换货查看
'入口参数：Request("Sal_id")
'
'出口参数：
'作者：易江波 日期：2001年6月14日
'******************************************************
%>
<%
option Explicit
Response.Expires=0
if Session("Gs_StaffID")="" then
Response.Write "网页已经过期，请重新登陆！"
'Response.end
end if
dim DBConn
Set DBConn=Server.CreateObject("ADODB.Connection")
DBconn.ConnectionTimeout =application("Connection2_Connectiontimeout")
DBconn.OPEN Application("Connection2_ConnectionString")
dim Rs_SChage,s_SChage
set Rs_SChage=server.CreateObject("adodb.recordset")
s_SChage="SELECT distinct Sale_Change.Sal_SalID,"
s_SChage=s_SChage+" Basic_Customer.Cst_Name,"
s_SChage=s_SChage+" Sale_Sale.Sal_SalReceiver,"
s_SChage=s_SChage+" Sale_Sale.Sal_SalRcvAddr,"
s_SChage=s_SChage+" Sale_Sale.Sal_SalRcvZipCode,"
s_SChage=s_SChage+" Sale_Sale.Sal_SalRcvTel,"
s_SChage=s_SChage+" Basic_Category.Ctg_Name,"
s_SChage=s_SChage+" Sale_Sale.Sal_SalQty,"
s_SChage=s_SChage+" Sale_Change.Sal_ChgSeason,"
s_SChage=s_SChage+" Sale_Change.Sal_ChgProFile,"
s_SChage=s_SChage+" Sale_Sale.Sal_SalRemark,"
s_SChage=s_SChage+" Basic_Agency.Agn_Name,"
's_SChage=s_SChage+" Sale_Sale.Applier,"
s_SChage=s_SChage+" Applier_name=(select stf_Name from Basic_Staffer where"
s_SChage=s_SChage+" Sale_Sale.Applier = Basic_Staffer.stf_id),"
s_SChage=s_SChage+" Sale_Sale.ApplyDate,"
's_SChage=s_SChage+" Sale_Sale.Auditor,"
s_SChage=s_SChage+" Auditor_name=(select stf_Name from Basic_Staffer where"
s_SChage=s_SChage+" Sale_Sale.Auditor = Basic_Staffer.stf_id),"
s_SChage=s_SChage+" Sale_Sale.AuditDate,"
s_SChage=s_SChage+" Sale_Sale.Sal_SalFlgDeal"
s_SChage=s_SChage+" FROM Sale_Change,"
s_SChage=s_SChage+" Sale_Sale,"
s_SChage=s_SChage+" Basic_Customer,"
s_SChage=s_SChage+" Basic_Agency,"
s_SChage=s_SChage+" Basic_Category"
s_SChage=s_SChage+" WHERE ( Sale_Sale.Sal_SalID = Sale_Change.Sal_SalID ) and"
s_SChage=s_SChage+" ( Basic_Customer.Cst_ID = Sale_Sale.Cst_ID ) and"
s_SChage=s_SChage+" ( Basic_Agency.Agn_ID = Sale_Sale.Agn_ID ) and"
s_SChage=s_SChage+" ( Basic_Category.Ctg_ID = Sale_Sale.Ctg_ID ) and"
s_SChage=s_SChage+" ( Sale_Change.Sal_SalID ='"& trim(Request("Sal_id")) & "' )"
Rs_SChage.Open s_SChage,DBConn
Rs_SChage.MoveFirst
if not Rs_SChage.EOF then
else
Response.Write s_SChage
end if
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<P>查看换货单 </P>
<hr noshade>
<table width="100%" border="0">
<tr>
<td width="12%" align="right">换货单号:</td>
<td width="88%" align="left">
<%'Response.End %>
<input type="text" name="text" readonly value="<%=Rs_SChage("Sal_SalID")%>" >
</td>
</tr>
<tr>
<td width="12%" align="right">客户名称:</td>
<td width="88%" align="left">
<input type="text" name="text2" readonly size="60" value="<%=Rs_SChage("Cst_Name")%>">
</td>
</tr>
<tr>
<td width="12%" align="right">收货人:</td>
<td width="88%" align="left">
<input type="text" name="text3" readonly value="<%=Rs_SChage("Sal_SalReceiver")%>">
</td>
</tr>
<tr>
<td width="12%" align="right">收货地址:</td>
<td width="88%" align="left">
<input type="text" name="text4" readonly size="60" value="<%=Rs_SChage("Sal_SalRcvAddr")%>">
</td>
</tr>
<tr>
<td width="12%" align="right">邮政编码:</td>
<td width="88%" align="left">
<input type="text" name="text5" readonly value="<%=Rs_SChage("Sal_SalRcvZipCode")%>" >
</td>
</tr>
<tr>
<td width="12%" align="right">收货电话:</td>
<td width="88%" align="left">
<input type="text" name="text6" readonly value="<%=Rs_SChage("Sal_SalRcvTel")%>">
</td>
</tr>
<tr>
<td width="12%" align="right">换货品种:</td>
<td width="88%" align="left">
<input type="text" name="text7" readonly value="<%=Rs_SChage("Ctg_Name")%>">
</td>
</tr>
<tr>
<td width="12%" align="right">换货数量:</td>
<td width="88%" align="left">
<input type="text" name="text8" readonly value="<%=Rs_SChage("Sal_SalQty")%>">
</td>
</tr>
<tr>
<td width="12%" align="right">换货原因:</td>
<td width="88%" align="left">
<input type="text" name="text11" readonly value="<%=Rs_SChage("Sal_ChgSeason")%>">
</td>
</tr>
<tr>
<td width="12%" align="right">证明文件:</td>
<td width="88%" align="left">
<input type="text" name="text10" readonly value="<%=Rs_SChage("Sal_ChgProFile")%>">
</td>
</tr>
<tr>
<td width="12%" align="right" valign="top">换货说明:</td>
<td width="88%" align="left">
<TEXTAREA id=TEXTAREA1 name=TEXTAREA1 style="HEIGHT: 88px; WIDTH: 472px" readonly><%=Rs_SChage("Sal_SalRemark")%></TEXTAREA>
</td>
</tr>
<tr>
<td width="12%" align="right">申请区域:</td>
<td width="88%" align="left">
<input type="text" name="text12" readonly value="<%=Rs_SChage("Agn_Name")%>">
</td>
</tr>
<tr>
<td width="12%" align="right">申请人:</td>
<td width="88%" align="left">
<input type="text" name="text13" readonly value="<%=Rs_SChage("Applier_name")%>">
</td>
</tr>
<tr>
<td width="12%" align="right">申请日期:</td>
<td width="88%" align="left">
<input type="text" name="text14" readonly value="<%=Rs_SChage("ApplyDate")%>">
</td>
</tr>
<tr>
<td width="12%" align="right">审批人:</td>
<td width="88%" align="left">
<input type="text" name="text15" readonly value="<%=Rs_SChage("Auditor_name")%>">
</td>
</tr>
<tr>
<td width="12%" align="right">审批日期:</td>
<td width="88%" align="left">
<input type="text" name="text16" readonly value="<%=Rs_SChage("AuditDate")%>">
</td>
</tr>
<tr>
<td width="12%" align="right">处理状态:</td>
<td width="88%" align="left">
<input type="text" name="text17" readonly value="<%=Rs_SChage("Sal_SalFlgDeal")%>">
</td>
</tr>
<tr>
<td width="12%" align="right"> </td>
<td width="88%" align="left"><input type="button" value="关闭此窗口" onclick="javascript:window.close();">
</td>
</tr>
</table>
<p> </p>
<p><br>
<%Rs_SChage.Close%>
</p></BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -