📄 outstorebill_view.asp
字号:
<%@ Language=VBScript %>
<%
'***************************************************
'功能：查看指定出库单信息
'入口参数：
'1.Tstr_WhsOutID:出库单号
'出口参数：
'无
'作者：王伟锋，日期：2001.6.20
'***************************************************
'接收参数
LStr_WhsOutID=trim(request("TStr_WhsOutID"))
'建立数据库连接
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_StafferHO,basic_Category,basic_Warehouse,warehouse_Out,warehouse_OutDtl
dim wwf_RsviewOSB
set wwf_RsviewOSB=server.CreateObject("adodb.recordset")
wwf_SqlviewOSB="select o.Whs_OutNID,o.Whs_OutID,c.Ctg_Name,o.Whs_OutReceiver,o.Whs_OutRcvAddress,o.Whs_OutRcvZipCode,o.Whs_OutRcvTel,o.Whs_OutType,w.Whs_Name,o.Whs_OutDate,s.Stf_Name"
wwf_SqlviewOSB=wwf_SqlviewOSB&" from basic_Staffer s,basic_Category c,basic_Warehouse w,warehouse_Out o,warehouse_OutDtl od"
wwf_SqlviewOSB=wwf_SqlviewOSB&" where o.Ctg_ID=c.Ctg_ID and o.Whs_ID=w.Whs_ID and o.Whs_OutHandler=s.Stf_ID and o.Whs_OutID='"&LStr_WhsOutID&"'"
wwf_RsviewOSB.Open wwf_SqlviewOSB,DBconn,2
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE></TITLE>
</HEAD>
<BODY>
<H3>查看出库单信息
<HR>
</H3>
<P>出库通知单号：<%=trim(wwf_RsviewOSB("Whs_OutNID"))%></P>
<P>出库单号：<%=trim(wwf_RsviewOSB("Whs_OutID"))%></P>
<P>品种：<%=trim(wwf_RsviewOSB("Ctg_Name"))%></P>
<P>出库明细：</P>
<P>
<%
dim wwf_RsViewOD
set wwf_RsViewOD=server.CreateObject("adodb.recordset")
wwf_SqlViewOD="select Whs_OutDtlCtgBth,Whs_OutDtlBthFrmNo,Whs_OutDtlBthEndNo,Whs_OutDtlQty from Warehouse_OutDtl where Whs_OutID='"&LStr_WhsOutID&"'"
wwf_RsViewOD.Open wwf_SqlViewOD,DBconn,2
if not wwf_RsViewOD.EOF then
%>
<TABLE border=1 cellPadding=1 cellSpacing=1 width="75%">
<TR>
<TD>品种批号</TD>
<TD>产品编号范围</TD>
<TD>出库数量</TD></TR>
<%
do while not wwf_RsViewOD.EOF
%>
<TR>
<TD><%=trim(wwf_RsViewOD("Whs_OutDtlCtgBth"))%></TD>
<TD><%=trim(wwf_RsViewOD("Whs_OutDtlBthFrmNo"))%>--<%=trim(wwf_RsViewOD("Whs_OutDtlBthEndNo"))%></TD>
<TD><%=trim(wwf_RsViewOD("Whs_OutDtlQty"))%></TD></TR>
<%
wwf_RsViewOD.MoveNext
loop
%>
</TABLE>
<%
end if
%>
<p></P>
<P>收货人：<%=trim(wwf_RsviewOSB("Whs_OutReceiver"))%></P>
<P>收货地址：<%=trim(wwf_RsviewOSB("Whs_OutRcvAddress"))%></P>
<P>邮政编码：<%=trim(wwf_RsviewOSB("Whs_OutRcvZipCode"))%></P>
<P>收货电话：<%=trim(wwf_RsviewOSB("Whs_OutRcvTel"))%></P>
<P>出库类型：<%=trim(wwf_RsviewOSB("Whs_OutType"))%></P>
<P>出货仓库：<%=trim(wwf_RsviewOSB("Whs_Name"))%></P>
<P>出库日期：<%=trim(wwf_RsviewOSB("Whs_OutDate"))%></P>
<P>处理人员：<%=trim(wwf_RsviewOSB("Stf_Name"))%></P>
<P
align=center><INPUT type="button" value="关闭窗体" onclick="vbscript:window.close()"></P>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -