📄 order_huilist.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 = '';
}
}
function CheckNum(){
if((event.keyCode<48||event.keyCode>57)&&event.keyCode!=46) event.returnValue=false;
}
</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="Form2" action="?action=go" method="post" onSubmit="return Chk(this);">
<th align=middle colSpan=6 height=25>
<select name="selpayer" id="selpayer">
<option value="" selected>请选择订单编号</option>
<%
Dim dd,ddStr
ddStr = "Select Distinct Order_ID From [OrderHui] Where Check_JiLi<>0 and Check_CaiWu<>0 and Check_KuGuan<>0"
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 class=forumRow>
<td align=middle bgcolor="#f1f3f5">
<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 HuiAdd
End if
Sub HuiAdd
Dim or_id,di
Dim Order_ID,Out_Time,Manage_ID,Customer_ID,Product_ID,DingJin,WuLiu,YunFei,HuiKuan
Dim SunMoney,kehu_lev,jkj
or_id = Trim(Request.Form("selpayer"))
Set di=Conn.Execute("Select Order_ID,Out_Time,Manage_ID,Customer_ID,DingJin,WuLiu,YunFei,HuiKuan From [Order] Where Order_ID='"&or_id&"'")
Order_ID = di(0)
Out_Time = di(1)
Manage_ID = di(2)
Customer_ID = di(3)
DingJin = di(4)
WuLiu = di(5)
YunFei = di(6)
HuiKuan = di(7)
di.Close
Set di=Nothing
Dim Cus_men,Cus_id,Cus_na,Cus_addr,Cus_tel
Dim mm
Set mm = Conn.Execute("Select Manage,Customer_ID,Customer,Address,Telphone From [Customer] Where Customer_ID='"&Customer_ID&"'")
Cus_men = mm(0)
Cus_id = mm(1)
Cus_na = mm(2)
Cus_addr = mm(3)
Cus_tel = mm(4)
mm.Close
Set mm=Nothing
kehu_lev = Customer_Lev(Customer_ID)
jkj = Customer_Disc(kehu_lev)
SunMoney=AllMoney(Order_ID,jkj)
Dim oh,oh_id,oh_orid,oh_hk,oh_yf,oh_mone,oh_tt,i
Dim ysk,all_hk,ssh
Dim all_feiyong
Set oh=Conn.Execute("Select ID,Order_ID,HuiKuan,FeiYong,Mone,Time,Check_JiLi,Check_CaiWu,Check_KuGuan From [OrderHui] Where Order_ID='"&or_id&"'")
%>
<table width="100%" border="0" cellpadding="6" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td height="25" colspan="7" class=forumrow>销售经理：
<%If oh(6)=0 Then
Response.Write "未审核"
Else
Response.Write User_Name(oh(6))
End if
%>
财务部：
<%If oh(7)=0 Then
Response.Write "未审核"
Else
Response.Write User_Name(oh(7))
End if
%>
库管：
<%If oh(8)=0 Then
Response.Write "未审核"
Else
Response.Write User_Name(oh(8))
End if
%>
</td>
</tr>
<tr>
<td height="25" colspan="7" class=forumrow>您是业务员：(<%=Manage_ID%>)
<%=Cus_men%> 日期：<%=date()%> 订单编号：<%=Order_ID%> 交货时间：<%=Out_Time%></td>
</tr>
<tr>
<td height="12" colspan="7" class=forumrow>客户代码：<%=Customer_ID%>
客户名称：<%=Cus_na%> 客户地址：<%=Cus_addr%> 客户电话：<%=Cus_tel%>
</td>
</tr>
<tr>
<td height="12" colspan="7" class=forumrow> </td>
</tr>
<tr>
<td width="8%" 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="15%" class=forumrow><div align="center">实收款（已收）</div></td>
<td width="13%" class=forumrow> <div align="center">此次回款</div></td>
<td width="10%" class=forumrow><div align="center">费用</div></td>
<td width="31%" class=forumrow id=upid> <div align="center">备注</div></td>
</tr>
<%
If oh.Eof Then
Response.Write "<tr><td colspan=7>没有任何记录!</td></tr>"
Else
i = 1
Do While Not oh.Eof
oh_id = oh(0)
oh_orid = oh(1)
oh_hk = oh(2)
oh_yf = oh(3)
oh_mone = oh(4)
oh_tt = oh(5)
all_hk = all_hk + oh_hk
ysk = SunMoney-all_hk
ssh = ssh + oh_hk
all_feiyong = all_feiyong + oh_yf
%>
<tr>
<td height="30" class=forumrow><div align="center"><%=i%></div></td>
<td height="30" class=forumrow><div align="center"><%=oh_orid%></div></td>
<td class=forumrow><div align="center"><font color="#FF0000"><%=ysk-DingJin%>
</font></div></td>
<td class=forumrow><div align="center"><%=ssh+DingJin%></div></td>
<td class=forumrow><div align="center"><%=oh_hk%></div></td>
<td class=forumrow><div align="center"><%=oh_yf%></div></td>
<td class=forumrow><div align="center"><%=oh_mone%></div></td>
</tr>
<%
i = i+1
oh.MoveNext
Loop
End if
oh.Close
Set oh=nothing
%>
<tr>
<td width="7%" height="30" class=forumrow>合计：</td>
<td colspan="6" class=forumrow><div align="right">销售款总额：<%=SunMoney%>
应收张款：<%=SunMoney-DingJin%> 预收订金：<%=ssh+DingJin%> 预付比例：<%=Left(100*(ssh+DingJin)/SunMoney,5)%>%
物流：<%=WuLiu%> 运费：<%=YunFei%> 费用：<%=all_feiyong%> </div></td>
</tr>
<tr>
<td colspan="7" class=forumrow> <div align="center"></div></td>
</tr>
<tr>
<td height="25" colspan="7" class=forumrow><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 + -