📄 saleorder_view.asp
字号:
<%
'******************************************
'功能：查看销售定单
'入口参数
'1.TStr_ID:登陆ID
'2.TStr_SaleOrderID:定单代码
'出口参数
'无
'作者：王伟锋，日期：2001.6.13
'******************************************
'接收参数
TStr_ID=trim(session("Gs_StaffID"))
if TStr_ID="" then
Response.Write "网页已经过期，请重新登陆！"
Response.end
end if
TStr_SaleOrderID=trim(request("TStr_SaleOrderID"))
'建立数据库连接
dim DBconn
set DBconn=server.CreateObject("adodb.connection")
DBconn.ConnectionTimeout =application("Connection2_Connectiontimeout")
DBconn.OPEN Application("Connection2_ConnectionString")
'打开表Sale_Sale,Basic_Staffer,Basic_Customer,Basic_Category,Sale_Order,basic_Agency
dim wwf_RsViewSalOrder
set wwf_RsViewSalOrder=server.CreateObject("adodb.recordset")
wwf_SqlViewSalOrder="select ss.Sal_SalID,s.Stf_Name,Agn_Name=(select Agn_Name from Basic_Agency where Agn_ID=ss.Agn_ID),Cst_Name=(select Cst_Name from Basic_Customer where Cst_ID=ss.Cst_ID),ss.Cst_ID,ct.Ctg_Name,ss.Sal_SalPrice,ss.Sal_SalDiscount,ss.Sal_SalQty,ss.Sal_SalSum,ss.Sal_SalReceiver,ss.Sal_SalRcvAddr,ss.Sal_SalRcvZipCode,ss.Sal_SalRcvTel,ss.Sal_SalRemark,Sal_OdrContractID=(select Sal_OdrContractID from Sale_Order where Sal_SalID='"&TStr_SaleOrderID&"'),Sal_OdrInvType=(select Sal_OdrInvType from Sale_Order where Sal_SalID='"&TStr_SaleOrderID&"'),Sal_OdrMakeInvType=(select Sal_OdrMakeInvType from Sale_Order where Sal_SalID='"&TStr_SaleOrderID&"')"
wwf_SqlViewSalOrder=wwf_SqlViewSalOrder&" from Sale_Sale ss,Basic_Staffer s,Basic_Category ct,basic_StafferAgn sa "
wwf_SqlViewSalOrder=wwf_SqlViewSalOrder&"where ss.Ctg_ID=ct.Ctg_ID and ss.Stf_ID=s.Stf_ID and ss.Stf_ID=sa.Stf_ID and ss.Sal_SalID='"&TStr_SaleOrderID&"'"
wwf_RsViewSalOrder.open wwf_SqlViewSalOrder,DBconn,2
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE></TITLE>
</HEAD>
<BODY>
<H3 align=center>
<H3 align=left>销售定单详细信息 </H3>
<H3 align=center>
<HR>
</H3></H3>
<P><FONT face=宋体>申请区域：<%=wwf_RsViewSalOrder("Agn_Name")%></FONT></P>
<%if wwf_RsViewSalOrder("Cst_ID")<>"" then%><P><FONT face=宋体>客户：<%=wwf_RsViewSalOrder("Cst_Name")%><A HREF="../SaleQuery/CstActReceive_View.asp?TStr_CstID=<%=trim(wwf_RsViewSalOrder("Cst_ID"))%>" target="_blank">客户应收款</A> </FONT></P><%end if%>
<P><FONT face=宋体>品种：<%=trim(wwf_RsViewSalOrder("Ctg_Name"))%></FONT></P>
<P><FONT face=宋体>分管业务员：<%=trim(wwf_RsViewSalOrder("Stf_Name"))%></FONT></P>
<DIV align=left>
批价:<%=trim(wwf_RsViewSalOrder("Sal_SalPrice"))%>
</DIV>
<DIV> </DIV>
<DIV align=left>
扣率：<%=trim(wwf_RsViewSalOrder("Sal_SalDiscount"))%>
</DIV>
<DIV align=left>定货数量：<%=abs(cdbl(wwf_RsViewSalOrder("Sal_SalQty")))%></DIV>
<DIV align=left>定货金额：<%=abs(cdbl(wwf_RsViewSalOrder("Sal_SalSum")))%></DIV>
<DIV align=left>合 同 号：<%=wwf_RsViewSalOrder("Sal_OdrContractID")%></DIV>
<DIV align=left>
发票类型：<%=wwf_RsViewSalOrder("Sal_OdrInvType")%>
</DIV>
<DIV align=left>
开票方式：<%=wwf_RsViewSalOrder("Sal_OdrMakeInvType")%>
</DIV>
<DIV> </DIV>
<DIV align="left">
<TABLE border=1 cellPadding=1 cellSpacing=1 width="75%">
<TR>
<TD></TD>
<TD>收货地址</TD>
<TD>收货人</TD>
<TD>邮政编码</TD>
<TD>收货电话</TD>
</TR>
<TR>
<TD></TD>
<TD><%=trim(wwf_RsViewSalOrder("Sal_SalRcvAddr"))%></TD>
<TD><%=trim(wwf_RsViewSalOrder("Sal_SalReceiver"))%></TD>
<TD><%=trim(wwf_RsViewSalOrder("Sal_SalRcvZipCode"))%></TD>
<TD><%=trim(wwf_RsViewSalOrder("Sal_SalRcvTel"))%></TD>
</TR>
</TABLE>
</DIV>
<DIV> </DIV>
<DIV align=left>备注： </DIV>
<DIV align=left>
<%=trim(wwf_RsViewSalOrder("Sal_SalRemark"))%>
</DIV>
<DIV></DIV>
<P align=left>
<INPUT style="HEIGHT: 24px; WIDTH: 85px" type="Button" value="关闭" onclick='javascript:window.close()' id=Button1 name=Button1>
</P>
</BODY>
</HTML>
<%
wwf_RsViewSalOrder.close
DBconn.Close
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -