📄 outnotice_view.asp
字号:
<%@ Language=VBScript %>
<%
'***************************************************
'功能：查看指定出库通知单信息
'入口参数：
'1.Tstr_WhsOutNID:出库单号
'出口参数：
'无
'作者：王伟锋，日期：2001.6.21
'***************************************************
'接收参数
LStr_WhsOutNID=trim(request("TStr_WhsOutNID"))
'建立数据库连接
dim DBconn
set DBconn=server.CreateObject("adodb.connection")
DBconn.ConnectionTimeout =application("Connection2_Connectiontimeout")
DBconn.OPEN Application("Connection2_ConnectionString")
'DBconn.Open "DRIVER=SQL Server;SERVER=fileserver;UID=sa;DATABASE=CMS"
'打开表basic_Staffer,basic_Category,basic_Warehouse,warehouse_OutNotice
dim wwf_RsviewON
set wwf_RsviewON=server.CreateObject("adodb.recordset")
wwf_SqlviewON="select o.Whs_OutNID,o.Whs_OutNQty,c.Ctg_Name,o.Whs_OutNReceiver,o.Whs_OutNRcvAddr,o.Whs_OutNRcvZip,o.Whs_OutNOutType,w.Whs_Name,o.Whs_OutNDate,s.Stf_Name,o.Whs_OutNFlg"
wwf_SqlviewON=wwf_SqlviewON&" from basic_Staffer s,basic_Category c,basic_Warehouse w,warehouse_OutNotice o"
wwf_SqlviewON=wwf_SqlviewON&" where o.Ctg_ID=c.Ctg_ID and o.Whs_ID=w.Whs_ID and o.Whs_OutNHandler=s.Stf_ID and o.Whs_OutNID='"&LStr_WhsOutNID&"'"
wwf_RsviewON.Open wwf_SqlviewON,DBconn,2
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE></TITLE>
</HEAD>
<BODY>
<H3>查看出库通知单
<HR>
</H3>
<table width="300" border="1">
<tr>
<td width="120" align="right">出库通知编号：</td>
<td><%=trim(wwf_RsviewON("Whs_OutNID"))%></td>
</tr>
<tr>
<td width="120" align="right">出库品种：</td>
<td><%=trim(wwf_RsviewON("Ctg_Name"))%></td>
</tr>
<tr>
<td width="120" align="right">通知出库数量：</td>
<td><%=trim(wwf_RsviewON("Whs_OutNQty"))%></td>
</tr>
<tr>
<td width="120" align="right">收货人：</td>
<td><%=trim(wwf_RsviewON("Whs_OutNReceiver"))%></td>
</tr>
<tr>
<td width="120" align="right">收货地址：</td>
<td><%=trim(wwf_RsviewON("Whs_OutNRcvAddr"))%></td>
</tr>
<tr>
<td width="120" align="right">邮政编码：</td>
<td><%=trim(wwf_RsviewON("Whs_OutNRcvZip"))%></td>
</tr>
<tr>
<td width="120" align="right">出库类型：</td>
<td><%=trim(wwf_RsviewON("Whs_OutNOutType"))%></td>
</tr>
<tr>
<td width="120" align="right">出货仓库：</td>
<td><%=trim(wwf_RsviewON("Whs_Name"))%></td>
</tr>
<tr>
<td width="120" align="right">通知出库日期：</td>
<td><%=trim(wwf_RsviewON("Whs_OutNDate"))%></td>
</tr>
<tr>
<td width="120" align="right">通知状态：</td>
<td><%=trim(wwf_RsviewON("Whs_OutNFlg"))%></td>
</tr>
<tr>
<td width="120" align="right">处理人员：</td>
<td><%=trim(wwf_RsviewON("Stf_Name"))%></td>
</tr>
</table>
<P align=center><INPUT style="HEIGHT: 24px; WIDTH: 121px" type="button" value="关闭窗体" onclick="javascript:window.close()"></P>
</BODY>
</HTML>
<%
wwf_RsviewON.Close
DBconn.Close
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -