📄 order_list.asp
字号:
<!--#include file="Conn.asp"-->
<!--#include file="Check.asp"-->
<!--#include file="Inc/No.asp"-->
<!--#include file="Inc/Count.asp"-->
<!--#include file="Inc/Print.asp"-->
<HTML>
<HEAD>
<TITLE>管理中心</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="Image/style.css" type=text/css rel=stylesheet>
<script language="JavaScript" src="Image/js.js"></SCRIPT>
<BODY text="#000000">
<SCRIPT language=javascript>
function Chk(theForm)
{
if (theForm.selpayer.value == ""){
alert("请输入订单编号!");
theForm.selpayer.focus();
return (false);
}else{
updated.style.display = '';
}
}
</SCRIPT>
<DIV id=overDiv style="Z-INDEX: 1; POSITION: absolute"></DIV>
<TABLE cellSpacing=1 cellPadding=0 width="98%" align=center border=0 class="tableBorder">
<TBODY>
<TR>
<FORM name="Form1" action="?action=go" method="post" onSubmit="return Chk(this);">
<th align=middle colSpan=6 height=22>
<select name="selpayer" id="selpayer">
<option value="" selected>请选择订单编号</option>
<%
Dim ddStr,dd
Dim userfen
userfen = Manage_Level(adl)
ddStr = "Select Order_ID From [Order] Where BaoFei=0 "
If userfen="财务员" or userfen="销售经理" Then
ddStr = ddStr
Else
ddStr = ddStr & " and Manage_ID='"&chk_id&"'"
End if
Set dd=Conn.Execute(ddStr)
Do While Not dd.Eof
Response.Write "<option value="& dd(0) &">"& dd(0) & "</option>"
dd.MoveNext
Loop
dd.Close
Set dd=Nothing
%>
</select>
<input type="submit" name="Submit" value=" 点 击 查 找 ">
公司销售订单</th>
</FORM>
</TR>
<TR>
<td align=middle colSpan=6>
<DIV id="updated" style="DISPLAY: none" align="center">
<table width="100%" border="0" align="center" cellpadding="4" cellspacing="4">
<tr>
<td height="50">
<div align="center"><b>正在统计，请稍后...<b> <img height="15" alt="Laoding..." src="Image/loading.gif" width="150"></b></b></div></td>
</tr>
</table>
</DIV>
<%
If Request.QueryString("action") = "go" Then
Call CountHui
End if
Sub CountHui
Dim oh,jgl,summoney
Dim ord_id,dj
Dim oh_1,oh_2,oh_3,oh_4,oh_5,oh_6,oh_7,oh_8,oh_9,oh_10,oh_11,oh_12
Dim gg,gg_na,gg_add,gg_tel
ord_id = Trim(Request.Form("selpayer"))
Set oh=Conn.Execute("Select ID,Order_ID,Manage_ID,Customer_ID,Out_Time,DingJin,WuLiu,YunFei,HuiKuan,Time,Check_JiLi,Check_CaiWu,Check_KuGuan From [Order] Where Order_ID='"&ord_id&"'")
oh_1 = oh(1)
oh_2 = oh(2)
oh_3 = oh(3)
oh_4 = oh(4)
oh_5 = oh(5)
oh_6 = oh(6)
oh_7 = oh(7)
oh_8 = oh(8)
oh_9 = oh(9)
oh_10 = oh(10)
oh_11 = oh(11)
oh_12 = oh(12)
jgl = Customer_Disc(Customer_Lev(oh_3))
dj = oh_5
summoney = AllMoney(oh_1,jgl)
oh.Close
Set oh=nothing
Set gg = Conn.Execute("Select Customer,Address,Telphone From [Customer] Where Customer_ID='"&oh_3&"'")
gg_na = gg(0)
gg_add =gg(1)
gg_tel = gg(2)
gg.Close
Set gg=Nothing
%>
<table width="100%" border="0" cellpadding="4" cellspacing="1" bgcolor="#eeeeee">
<tr>
<td width="74%" height="25" colspan="7" bgcolor="#FFFFFF" class=forumrow>
销售经理：
<%If oh_10=0 Then
Response.Write "未审核"
Else
Response.Write User_Name(oh_10)
End if
%>
财务部：
<%If oh_11=0 Then
Response.Write "未审核"
Else
Response.Write User_Name(oh_11)
End if
%>
库管：
<%If oh_12=0 Then
Response.Write "未审核"
Else
Response.Write User_Name(oh_12)
End if
%>
</td>
</tr>
<tr>
<td height="25" colspan="7" bgcolor="#FFFFFF" class=forumrow>您是业务员：<%=User_Name(oh_2)&" ("&oh_2&")"%>
日期：<%=oh_9%> 交货时间：<%=oh_4%> 订单编号：<%=oh_1%></td>
</tr>
<tr>
<td height="25" colspan="7" bgcolor="#FFFFFF" class=forumrow> 客户代码：<%=oh_3%>
客户名称：<%=gg_na%> 折扣率：<%=jgl & "%"%> 客户地址：<%=gg_add%>
客户电话：<%=gg_tel%></td>
</tr>
</table>
<br>
<table width="100%" border="0" cellpadding="4" cellspacing="1" bgcolor="#eeeeee">
<tr>
<td width="6%" class=forumrow> <div align="center">项目</div></td>
<td width="10%" class=forumrow> <div align="center">商品代码</div></td>
<td width="15%" class=forumrow> <div align="center">商品名称</div></td>
<td width="10%" class=forumrow> <div align="center">规格</div></td>
<td width="8%" class=forumrow> <div align="center">零售价</div></td>
<td width="8%" class=forumrow> <div align="center">折扣价</div></td>
<td width="8%" class=forumrow> <div align="center">数量</div></td>
<td width="8%" class=forumrow> <div align="center">销收款</div></td>
<td class=forumrow> <div align="center">备注</div></td>
</tr>
<%
Dim or2,h,disc
h=1
Set or2=Conn.Execute("Select ID,Product_ID,Out_ShuLiang,Discount,Mone From [Order2] Where Order_ID='"&ord_id&"'")
Do While Not or2.Eof
%>
<tr>
<td bgcolor="#FFFFFF"><div align="center"><%=h%></div></td>
<td bgcolor="#FFFFFF"><div align="center"><%=or2(1)%></div></td>
<td bgcolor="#FFFFFF"><div align="center"><%=Product(or2(1))%></div></td>
<td bgcolor="#FFFFFF"><div align="center"><%=Product_GuiGe(or2(1))%></div></td>
<td bgcolor="#FFFFFF"><div align="center"><%=Product_Mon(or2(1))%></div></td>
<td bgcolor="#FFFFFF"><div align="center">
<%
If or2(3)=0 Then
disc = Product_Mon(or2(1))*(jgl/100)
Else
disc = or2(3)
End if
Response.Write disc
%>
</div></td>
<td bgcolor="#FFFFFF"><div align="center"><%=or2(2)%></div></td>
<td bgcolor="#FFFFFF"><div align="center"><%=disc*or2(2)%></div></td>
<td bgcolor="#FFFFFF"><div align="center"><%=or2(4)%></div></td>
<%
h=h+1
or2.MoveNext
Loop
or2.Close
Set or2=Nothing
%>
</tr>
<tr>
<td height="30" bgcolor="#FFFFFF">合计：</td>
<td colspan="8" bgcolor="#FFFFFF"><div align="right">销售款总额：<%=summoney%>
应收张款：<%=summoney-dj%> 预收订金：<%=dj%> 预付比例：<%=Left(100*dj/summoney,5) & "%"%>
物流：<%=oh_6%> 运费：<%=oh_7%> </div></td>
</tr>
<tr>
<td colspan="9" bgcolor="#FFFFFF">
<a href="#" onClick="javascript:window.print();"><strong>打印票据</strong></a>
<a href="#" onclick="javascript:printpreview();"><strong>打印预览</strong></a></td>
</tr>
</table>
<%End SUb%>
</td>
</TR>
</TBODY>
</TABLE>
</BODY>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -