📄 deliver_outoddselect.asp
字号:
<%@ Language=VBScript %>
<%
' ******************************************************
'功能:出货
'入口参数：无
'
'出口参数：
'作者：易江波 日期：2001年6月19日
'******************************************************
%>
<%
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.Open Application("Connection2_ConnectionString")
%>
<%dim selwhvalue,w_id,page
selwhvalue=Request("selwh")
'Response.Write selwhvalue&"<br>"
%>
<HTML>
<HEAD>
</HEAD>
<BODY>
<FORM action="Deliver_OutOddSelect.asp" method=POST id=form1 name=form1>
<font size="+2">待处理出库单列表</font><br>
<hr noshade width="800">
<table width="800" border="0" height="384">
<tr>
<td>选择发货仓库： <%dim Rs_warehous,s_warehous
set Rs_warehous=server.CreateObject("adodb.recordset")
s_warehous="select * from Basic_Warehouse"
Rs_warehous.Open s_warehous,DBConn
%>
<select id=selwh name=selwh onChange="javascript:form1.submit();">
<%'产生仓库
if not Rs_warehous.EOF then
Rs_warehous.MoveFirst
while not Rs_warehous.EOF
%> <%if selwhvalue="" then%>
<option value="<%=Rs_warehous("Whs_ID")%>"> <%else%>
<option <%if selwhvalue = Rs_warehous("Whs_ID") then %> selected <%end if%> value="<%=Rs_warehous("Whs_ID")%>" >
<%end if%> <%=Rs_warehous("Whs_Name")%> </option>
<%Rs_warehous.MoveNext
wend
end if'if not Rs_warehous.EOF then
%>
</select>
</td>
</tr>
<tr valign="top">
<td height="324">
<table border="1" width="800" height="63">
<tr>
<td>出库单发货状态 </td>
<td>出库类型</td>
<td>出库单编号</td>
<td>客户名称</td>
<td>收货人</td>
<td>收货地址</td>
<td>邮政编码</td>
<td>收货电话</td>
<td>品种名称</td>
<td>出库数量</td>
<td>已发货数量</td>
<td>操作</td>
</tr>
<%'待处理的出库类表
dim Rs_outwhtable,s_outwhtable
set Rs_outwhtable=server.CreateObject("adodb.recordset")
if selwhvalue="" then
Rs_warehous.MoveFirst
w_id=Rs_warehous("Whs_ID")
else
w_id=selwhvalue
end if
s_outwhtable="SELECT Warehouse_Out.Whs_OutDlvFlg,"
s_outwhtable=s_outwhtable+" Warehouse_Out.Whs_OutType,"
s_outwhtable=s_outwhtable+" Warehouse_Out.Whs_OutID,"
s_outwhtable=s_outwhtable+" Cst_Name = (select cst_name= case when Basic_Customer.Cst_Name is null then '无' else Basic_Customer.Cst_Name end from Basic_Customer where Basic_Customer.Cst_ID = Sale_Sale.Cst_ID ) ,"
s_outwhtable=s_outwhtable+" Sale_Sale.Cst_ID,"
s_outwhtable=s_outwhtable+" Warehouse_Out.Whs_OutReceiver,"
s_outwhtable=s_outwhtable+" Warehouse_Out.Whs_OutRcvAddress,"
s_outwhtable=s_outwhtable+" Warehouse_Out.Whs_OutRcvZipCode,"
s_outwhtable=s_outwhtable+" Warehouse_Out.Whs_OutRcvTel,"
s_outwhtable=s_outwhtable+" Basic_Category.Ctg_Name,"
s_outwhtable=s_outwhtable+" Warehouse_Out.Ctg_ID,"
s_outwhtable=s_outwhtable+" Warehouse_Out.Whs_OutQty,"
s_outwhtable=s_outwhtable+" Warehouse_Out.Whs_OutQtyDlv"
s_outwhtable=s_outwhtable+" FROM Warehouse_Out,"
's_outwhtable=s_outwhtable+" Basic_Customer,"
s_outwhtable=s_outwhtable+" Warehouse_OutNotice,"
s_outwhtable=s_outwhtable+" Sale_Sale,"
s_outwhtable=s_outwhtable+" Basic_Category"
s_outwhtable=s_outwhtable+" WHERE ( Warehouse_OutNotice.Whs_OutNID = Warehouse_Out.Whs_OutNID ) and"
s_outwhtable=s_outwhtable+" ( Sale_Sale.Sal_SalID = Warehouse_OutNotice.Sal_SalID ) and"
's_outwhtable=s_outwhtable+" ( Sale_Sale.Cst_ID = Basic_Customer.Cst_ID ) and"
s_outwhtable=s_outwhtable+" ( Basic_Category.Ctg_ID = Sale_Sale.Ctg_ID ) and"
s_outwhtable=s_outwhtable+" ( Basic_Category.Ctg_ID = Warehouse_OutNotice.Ctg_ID ) and"
s_outwhtable=s_outwhtable+" ( Basic_Category.Ctg_ID = Warehouse_Out.Ctg_ID ) and"
s_outwhtable=s_outwhtable+" ( ( Warehouse_Out.Whs_OutQty <> Warehouse_Out.Whs_OutQtyDlv ) AND"
s_outwhtable=s_outwhtable+" ( Warehouse_Out.Whs_ID ='"& w_id &"' ) )"
Rs_outwhtable.Open s_outwhtable,DBConn,1,2
Rs_outwhtable.PageSize=12
dim i_totalpage,s_endflag
i_totalpage=Rs_outwhtable.PageCount
Page = CLng(Request("Page"))
If Page < 1 Then Page = 1 end if
if not Rs_outwhtable.EOF then
Rs_outwhtable.AbsolutePage=page
%>
<%dim int_i%>
<%for int_i=1 to Rs_outwhtable.PageSize%>
<tr>
<td ><%=Rs_outwhtable("Whs_OutDlvFlg")%></td>
<td ><%=Rs_outwhtable("Whs_OutType")%></td>
<td ><A href="..\view\OutStoreBill_View.asp?TStr_WhsOutID=<%=Rs_outwhtable("Whs_OutID")%>" target=_blank><%=Rs_outwhtable("Whs_OutID")%></A></td>
<td ><%=Rs_outwhtable("Cst_Name")%></td>
<td ><%=Rs_outwhtable("Whs_OutReceiver")%></td>
<td ><%=Rs_outwhtable("Whs_OutRcvAddress")%></td>
<td ><%=Rs_outwhtable("Whs_OutRcvZipCode")%></td>
<td ><%=Rs_outwhtable("Whs_OutRcvTel")%></td>
<td ><%=Rs_outwhtable("Ctg_Name")%></td>
<td ><%=Rs_outwhtable("Whs_OutQty")%></td>
<td ><%=Rs_outwhtable("Whs_OutQtyDlv")%></td>
<td >
<a href="Store_Deliver_Input.asp?OutID=<%=trim(Rs_outwhtable("Whs_OutID"))%>&Outqty=<%=trim(Rs_outwhtable("Whs_OutQty"))%>&dlv=<%=trim(Rs_outwhtable("Whs_OutQtyDlv"))%>">
发货</a></td>
</tr>
<%Rs_outwhtable.MoveNext
if Rs_outwhtable.eof then exit for%>
<%next
else
s_endflag="yes"
end if
%>
</table>
</td>
</tr>
<tr>
<td>
<%if s_endflag <> "yes" then %>
<%
If Page <> 1 Then
If Page <> i_totalpage Then
%>
<a href="Deliver_OutOddSelect.asp?Page=1&selwh=<%=selwhvalue%>" >首页</a>
<a href="Deliver_OutOddSelect.asp?Page=<%=Page-1%>&selwh=<%=selwhvalue%>" >上一页</a>
<a href="Deliver_OutOddSelect.asp?Page=<%=Page+1%>&selwh=<%=selwhvalue%>" >下一页</a>
<a href="Deliver_OutOddSelect.asp?Page=<%=i_totalpage%>&selwh=<%=selwhvalue%>" >末页</a>
<%
Else
%>
<a href="Deliver_OutOddSelect.asp?Page=1&selwh=<%=selwhvalue%>" >首页</a>
<a href="Deliver_OutOddSelect.asp?Page=<%=Page-1%>&selwh=<%=selwhvalue%>">上一页</a>
<a href="#" disabled>下一页</a>
<a href="#" disabled>末页</a>
<%
End If
Else
If i_totalpage = 1 Then
%>
<a href="#" disabled >首页</a>
<a href="#" disabled >上一页</a>
<a href="#" disabled>下一页</a>
<a href="#" disabled>末页</a>
<%
Else
%>
<a href="#" disabled >首页</a>
<a href="#" disabled >上一页</a>
<a href="Deliver_OutOddSelect.asp?Page=<%=Page+1%>&selwh=<%=selwhvalue%>">下一页</a>
<a href="Deliver_OutOddSelect.asp?Page=<%=i_totalpage%>&selwh=<%=selwhvalue%>">末页</a>
<%
End If
End If
%>
第<%=page%>页，共<%=i_totalpage%>页
<%else%>
第0页，共0页
<%end if%>
</td>
</tr>
</table>
</FORM>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -