📄 saleoutstore.asp
字号:
<%
'*****************************************
'功能：根据出库通知单进行出库操作
'入口参数
'1.TStr_StfID:登陆ID
'出口参数
'1.TStr_Whs_OutNID:出库通知单编号
'2.TStr_WhsID:仓库编号
'3.TStr_CtgID:品种编号
'4.TStr_SalID:定单编号
'5.TLg_Page:返回页面
'6.Lstr_agn:区域ID
'作者：王伟锋，日期：2002.6.18
'*****************************************
'接收参数
TStr_StfID=trim(session("Gs_StaffID"))
if TStr_StfID="" then
Response.Write "网页已经过期，请重新登陆！"
Response.end
end if
Lstr_agn=trim(request("Lstr_agn"))
'建立数据库连接
dim DBconn
set DBconn=server.CreateObject("adodb.connection")
DBconn.open Application("Connection2_ConnectionString")
'打开表Warehouse_OutNotice--->出库信息
dim wwf_RsWhsOn
set wwf_RsWhsOn=server.CreateObject("adodb.recordset")
wwf_RsWhsOn.CursorLocation=3
wwf_SqlWhsOn="select distinct w.Whs_OutNID,w.Whs_ID,w.Sal_SalID,w.Whs_OutNReceiver,w.Whs_OutNRcvAddr,w.Whs_OutNRcvZip,c.Ctg_ID,c.Ctg_Name,w.Whs_OutNQty from Warehouse_OutNotice w,Basic_Category c,Sale_sale s where w.Ctg_ID=c.Ctg_ID and s.sal_salID=w.Sal_salID and w.Whs_OutNFlg='未出库' "
if Lstr_agn<>"" then
wwf_SqlWhsOn=wwf_SqlWhsOn&" and s.Agn_ID='"&Lstr_agn&"' "
end if
'wwf_SqlWhsOn=wwf_SqlWhsOn&" order by w.Whs_OutNID Desc"
wwf_RsWhsOn.Open wwf_SqlWhsOn,DBconn,2
%>
<HTML>
<HEAD>
<TITLE>出库页面</TITLE>
</HEAD>
<BODY>
<H3 align=left>待处理出库通知单列表 </H3>
<H3 align=center>
<HR>
</H3>
<P>
<TABLE border=1 cellPadding=1 cellSpacing=1 width="75%" style="HEIGHT: 102px; WIDTH: 713px">
<form name="listForm" action="SaleOutStore.asp" method="post">
<%
dim wwf_rsAgn
set wwf_rsAgn=server.CreateObject("adodb.recordset")
wwf_SqlAgn="select distinct Agn_ID,Agn_Name from basic_agency where Agn_ID in(select Agn_ID from Sale_sale where Sal_salID in(select Sal_salId from Warehouse_OutNotice where Whs_OutNFlg='未出库'))"
wwf_rsAgn.Open wwf_SqlAgn,DBconn,2
%>
<TR>
<TD colspan="9" height="30">
<select name="Lstr_agn" size="1" onchange='javascript:listForm.submit()'>
<option value="" <%if Lstr_agn="" then%>selected<%end if%>>所有区域</option>
<%
do while not wwf_rsAgn.EOF
%>
<option value="<%=trim(wwf_RsAgn("Agn_ID"))%>" <%if Lstr_agn=trim(wwf_RsAgn("Agn_ID")) then%>selected<%end if%>><%=trim(wwf_RsAgn("Agn_Name"))%></option>
<%
wwf_rsAgn.MoveNext
loop
%>
</select>
</TD>
</TR>
<TR>
<!--TD>出库类型</TD-->
<TD>出库通知单编号</TD>
<TD>收货人</TD>
<TD>收货地址</TD>
<TD>邮政编码</TD>
<TD>定单号</TD>
<TD>品种名称</TD>
<TD>需出库数量</TD>
<TD>出库操作</TD>
</TR>
<%
'设置显示记录条数
wwf_RsWhsOn.PageSize = 12
dim TLg_Page
TLg_Page = CLng(Request("TLg_Page"))
If TLg_Page < 1 Then TLg_Page = 1
If TLg_Page > wwf_RsWhsOn.PageCount Then TLg_Page = wwf_RsWhsOn.PageCount
'分页显示程序
if not wwf_RsWhsOn.EOF then
wwf_RsWhsOn.AbsolutePage = TLg_Page
dim LINTi
LINTi=0
dim LINTiPage
For LINTiPage = 1 To wwf_RsWhsOn.PageSize
%>
<TR>
<!--TD><%'=trim(wwf_RsWhsOn("Whs_OutNOutType"))%></TD-->
<TD><%=trim(wwf_RsWhsOn("Whs_OutNID"))%></TD>
<TD><%=trim(wwf_RsWhsOn("Whs_OutNReceiver"))%></TD>
<TD><%=trim(wwf_RsWhsOn("Whs_OutNRcvAddr"))%></TD>
<TD><%=trim(wwf_RsWhsOn("Whs_OutNRcvZip"))%></TD>
<TD><A href="../view/SaleOrder_View.asp?TStr_SaleOrderID=<%=trim(wwf_RsWhsOn("Sal_SalID"))%>" target="_blank"><%=trim(wwf_RsWhsOn("Sal_SalID"))%></A></TD>
<TD><%=trim(wwf_RsWhsOn("Ctg_Name"))%></TD>
<TD><%=abs(cdbl(wwf_RsWhsOn("Whs_OutNQty")))%></TD>
<TD><A href="SaleOutStoreDetl.asp?TStr_Whs_OutNID=<%=trim(wwf_RsWhsOn("Whs_OutNID"))%>&TStr_WhsID=<%=trim(wwf_RsWhsOn("Whs_ID"))%>&TStr_CtgID=<%=trim(wwf_RsWhsOn("Ctg_ID"))%>&TStr_SalID=<%=trim(wwf_RsWhsOn("Sal_SalID"))%>&TLg_Page=<%=TLg_Page%>&Lstr_agn=<%=Lstr_agn%>" target=_blank>出库</A></TD>
</TR>
<%
LLgi=LINTi+1
wwf_RsWhsOn.movenext
if wwf_RsWhsOn.eof then exit for
next
%>
</form>
</TABLE>
<table border="0" cellspacing="0" cellpadding="0" height="20">
<tr>
<%
If TLg_Page <> 1 Then
If TLg_Page <> wwf_RsWhsOn.PageCount Then
%>
<td width="60" height="20"><a href="SaleOutStore.asp?TLg_Page=1&Lstr_agn=<%=Lstr_agn%>">首 页</a></td>
<td width="60" height="20"><a href="SaleOutStore.asp?TLg_Page=<%=TLg_Page-1%>&Lstr_agn=<%=Lstr_agn%>">上一页</a></td>
<td width="60" height="20"><a href="SaleOutStore.asp?TLg_Page=<%=TLg_Page+1%>&Lstr_agn=<%=Lstr_agn%>">下一页</a></td>
<td width="60" height="20"><a href="SaleOutStore.asp?TLg_Page=<%=wwf_RsWhsOn.PageCount%>&Lstr_agn=<%=Lstr_agn%>">末 页</a></td>
<%
else
%>
<td width="60" height="20"><a href="SaleOutStore.asp?TLg_Page=1&Lstr_agn=<%=Lstr_agn%>">首 页</a></td>
<td width="60" height="20"><a href="SaleOutStore.asp?TLg_Page=<%=TLg_Page-1%>&Lstr_agn=<%=Lstr_agn%>">上一页</a></td>
<td width="60" height="20">下一页</td>
<td width="60" height="20">末 页</td>
<%
End If
else
If wwf_RsWhsOn.PageCount <> 1 Then
%>
<td width="60" height="20">首 页</td>
<td width="60" height="20">上一页</td>
<td width="60" height="20"><a href="SaleOutStore.asp?TLg_Page=<%=TLg_Page+1%>&Lstr_agn=<%=Lstr_agn%>">下一页</a></td>
<td width="60" height="20"><a href="SaleOutStore.asp?TLg_Page=<%=wwf_RsWhsOn.PageCount%>&Lstr_agn=<%=Lstr_agn%>">末 页</a></td>
<%
else
%>
<td width="60" height="20">首 页</td>
<td width="60" height="20">上一页</td>
<td width="60" height="20">下一页</td>
<td width="60" height="20">末 页</td>
<%
End If
End If
%>
<td width="250" height="20" align="right">
<font size=3>第<%=TLg_page%>页 共<%=wwf_RsWhsOn.PageCount%>页</font>
</td>
</tr>
</table>
<%
else
%>
</table>
<table border="0" cellspacing="0" cellpadding="0" height="20">
<tr>
<td width="60" height="20">首页</td>
<td width="60" height="20">上一页</td>
<td width="60" height="20">下一页</td>
<td width="60" height="20">末页</td>
<td width="250" height="20" align="right">
<font size=3>第0页 共0页</font>
</td>
</tr>
</table>
<%
end if
%>
</SPAN>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -