📄 warehousedeliver_view.asp
字号:
<%@ Language=VBScript %>
<%
' ******************************************************
'功能:发货查看
'入口参数：Request("Whs_Dlvid")
'
'出口参数：
'作者：易江波 日期：2001年6月20日
'******************************************************
%>
<%
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")
'DBConn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=CMS;Data Source=fileserver","sa",""
dim Rs_SChage,s_SChage
set Rs_SChage=server.CreateObject("adodb.recordset")
s_SChage="SELECT distinct Warehouse_Deliver.Whs_DlvID,"
s_SChage=s_SChage+" Warehouse_Deliver.Whs_OutID,"
s_SChage=s_SChage+" Basic_Customer.Cst_Name,"
s_SChage=s_SChage+" Basic_Category.Ctg_Name,"
s_SChage=s_SChage+" Warehouse_Deliver.Whs_DlvNum,"
s_SChage=s_SChage+" Warehouse_Deliver.Whs_DlvReceiver,"
's_SChage=s_SChage+" Whs_DlvReceiverName = (select Basic_Staffer.Stf_Name from Basic_Staffer where Basic_Staffer.Stf_ID = Warehouse_Deliver.Whs_DlvReceiver),"
s_SChage=s_SChage+" Warehouse_Deliver.Whs_DlvReceiveAddr,"
s_SChage=s_SChage+" Warehouse_Deliver.Whs_DlvReceiveZip,"
s_SChage=s_SChage+" Basic_Warehouse.Whs_Name,"
s_SChage=s_SChage+" Warehouse_Deliver.Whs_DlvFreightBillNo,"
s_SChage=s_SChage+" Warehouse_Deliver.Whs_DlvType,"
s_SChage=s_SChage+" Warehouse_Deliver.Whs_DlvFreightType,"
s_SChage=s_SChage+" Warehouse_Deliver.Whs_DlvFreightCorp,"
s_SChage=s_SChage+" Warehouse_Deliver.Whs_DlvWeight,"
s_SChage=s_SChage+" Warehouse_Deliver.Whs_DlvFee,"
s_SChage=s_SChage+" Warehouse_Deliver.Whs_DlvDate,"
s_SChage=s_SChage+" Warehouse_Deliver.Whs_DlvHandler,"
s_SChage=s_SChage+" Warehouse_Deliver.Whs_DlvArvQty,"
s_SChage=s_SChage+" Warehouse_Deliver.Whs_DlvArvQtyDmg,"
s_SChage=s_SChage+" Warehouse_Deliver.Whs_DlvArvDate,"
s_SChage=s_SChage+" Warehouse_Deliver.Whs_DlvArvHandler,"
s_SChage=s_SChage+" Whs_DlvHandlerName = (select Basic_Staffer.Stf_Name from Basic_Staffer where Basic_Staffer.Stf_ID = Warehouse_Deliver.Whs_DlvHandler),"
s_SChage=s_SChage+" Warehouse_Deliver.Whs_DlvFlag"
s_SChage=s_SChage+" FROM Warehouse_Deliver,"
s_SChage=s_SChage+" Basic_Category,"
s_SChage=s_SChage+" Basic_Customer,"
s_SChage=s_SChage+" Basic_StafferHO,"
s_SChage=s_SChage+" Basic_Warehouse"
s_SChage=s_SChage+" WHERE ( Basic_Category.Ctg_ID = Warehouse_Deliver.Ctg_ID ) and"
s_SChage=s_SChage+" ( Basic_Customer.Cst_ID = Warehouse_Deliver.Cst_ID ) and"
s_SChage=s_SChage+" ( Basic_Warehouse.Whs_ID = Warehouse_Deliver.Whs_ID ) and"
s_SChage=s_SChage+" ( ( Warehouse_Deliver.Whs_DlvID ='"&Request("Whs_Dlvid")& "') )"
'Response.Write s_SChage' :Response.End
Rs_SChage.Open s_SChage,DBConn
'Response.Write "<br>AA"&Rs_SChage("Whs_DlvHandlerName")&Rs_SChage("Whs_DlvHandler")
%>
<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="25%" align="left">
<input text="text" readonly name="Input" value="<%=Rs_SChage("Whs_DlvID")%>" >
</td>
<td width="15%" align="right">货运方式: </td>
<td width="48%" align="left">
<input text="text" readonly name="Input12" value="<%=Rs_SChage("Whs_DlvFreightType")%>">
</td>
</tr>
<tr>
<td width="12%" align="right">出库单号:</td>
<td align="left" width="25%">
<input text="text" readonly name="Input2" value="<%=Rs_SChage("Whs_OutID")%>">
</td>
<td align="right" width="15%">货运公司: </td>
<td align="left" width="48%">
<input text="text" readonly name="Input132" value="<%=Rs_SChage("Whs_DlvFreightCorp")%>" >
</td>
</tr>
<tr>
<td width="12%" align="right">客户名称:</td>
<td align="left" width="25%">
<input text="text" readonly name="Input3" value="<%=Rs_SChage("Cst_Name")%>">
</td>
<td align="right" width="15%">货运重量: </td>
<td align="left" width="48%">
<input text="text" readonly name="Input14" value="<%=Rs_SChage("Whs_DlvWeight")%>">
</td>
</tr>
<tr>
<td width="12%" align="right">品种:</td>
<td align="left" width="25%">
<input text="text" readonly name="Input4" value="<%=Rs_SChage("Ctg_Name")%>">
</td>
<td align="right" width="15%">货运费用: </td>
<td align="left" width="48%">
<input text="text" readonly name="Input15" value="<%=Rs_SChage("Whs_DlvFee")%>">
</td>
</tr>
<tr>
<td width="12%" align="right">发货数量:</td>
<td align="left" width="25%">
<input text="text" readonly name="Input5" value="<%=Rs_SChage("Whs_DlvNum")%>">
</td>
<td align="right" width="15%">发货日期: </td>
<td align="left" width="48%">
<input text="text" readonly name="Input16" value="<%=Rs_SChage("Whs_DlvDate")%>">
</td>
</tr>
<tr>
<td width="12%" align="right">收货人:</td>
<td align="left" width="25%">
<input text="text" readonly name="Input6" value="<%=Rs_SChage("Whs_DlvReceiver")%>">
</td>
<td align="right" width="15%">发货人员: </td>
<td align="left" width="48%">
<input text="text" readonly name="Input17" value="<%=Rs_SChage("Whs_DlvHandlerName")%>">
</td>
</tr>
<tr>
<td width="12%" align="right">收货地址:</td>
<td align="left" width="25%">
<input text="text" readonly name="Input7" value="<%=Rs_SChage("Whs_DlvReceiveAddr")%>">
</td>
<td align="right" width="15%">到货数量: </td>
<td align="left" width="48%">
<input text="text" readonly name="Input18" value="<%=Rs_SChage("Whs_DlvArvQty")%>">
</td>
</tr>
<tr>
<td width="12%" align="right">邮政编码:</td>
<td align="left" width="25%">
<input text="text" readonly name="Input8" value="<%=Rs_SChage("Whs_DlvReceiveZip")%>" >
</td>
<td align="right" width="15%">损坏数量: </td>
<td align="left" width="48%">
<input text="text" readonly name="Input19" value="<%=Rs_SChage("Whs_DlvArvQtyDmg")%>">
</td>
</tr>
<tr>
<td width="12%" align="right" height="17">发货类型:</td>
<td align="left" height="17" width="25%">
<input text="text" readonly name="Input9" value="<%=Rs_SChage("Whs_DlvType")%>" >
</td>
<td align="right" height="17" width="15%">到货日期: </td>
<td align="left" height="17" width="48%">
<input text="text" readonly name="Input20" value="<%=Rs_SChage("Whs_DlvArvDate")%>">
</td>
</tr>
<tr>
<td width="12%" align="right">出货仓库:</td>
<td align="left" width="25%">
<input text="text" readonly name="Input10" value="<%=Rs_SChage("Whs_Name")%>">
</td>
<td align="right" width="15%">到货处理人员: </td>
<td align="left" width="48%">
<input text="text" readonly name="Input21" value="<%=Rs_SChage("Whs_DlvArvHandler")%>">
</td>
</tr>
<tr>
<td width="12%" align="right">货运单号:</td>
<td align="left" width="25%">
<input text="text" readonly name="Input11" value="<%=Rs_SChage("Whs_DlvFreightBillNo")%>">
</td>
<td align="right" width="15%">发货状态: </td>
<td align="left" width="48%">
<input text="text" readonly name="Input22" value="<%=Rs_SChage("Whs_DlvFlag")%>">
</td>
</tr>
<tr>
<td width="12%" align="right"> </td>
<td align="left" colspan="3">
<input type="button" value="关闭此窗口" onClick="javascript:window.close();" id=button1 name=button1>
</td>
</tr>
</table>
<%Rs_SChage.Close%>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -