📄 order_huiadd.asp
字号:
<!--#include file="Conn.asp"-->
<!--#include file="Check.asp"-->
<!--#include file="Inc/No.asp"-->
<!--#include file="Inc/Count.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 Chk2(theForm)
{
if (theForm.huikuan.value == ""){
alert("请输入此次回款!");
theForm.huikuan.focus();
return (false);
}
if (theForm.feiyong.value == ""){
alert("请输入费用!");
theForm.feiyong.focus();
return (false);
}
if (theForm.mone.value == ""){
alert("请输入备注!");
theForm.mone.focus();
return (false);
}
}
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 Order_ID From [Order] 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
Dim mm
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
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)
%>
<form name="form1" method="post" action="Order_HuiAdd2.asp" onSubmit="return Chk2(this);">
<table width="100%" border="0" cellpadding="6" cellspacing="1" bgcolor="#FFFFFF">
<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 colspan="2" class=forumrow> <div align="center"></div>
<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="15%" class=forumrow><div align="center">此次回款</div></td>
<td width="10%" class=forumrow><div align="center">费用</div></td>
<td class=forumrow id=upid><div align="center">备注</div></td>
</tr>
<tr>
<td height="30" colspan="2" class=forumrow> <div align="center"><%=Order_ID%><font color="#FF0000">
<input name="order_id" type="hidden" id="order_id" value="<%=Order_ID%>">
</font></div>
</td>
<td class=forumrow><div align="center"><font color="#FF0000"><%=SunMoney-DingJin-HuiKuan%>
<input name="havehk" type="hidden" id="havehk" value="<%=SunMoney-DingJin-HuiKuan%>">
</font></div></td>
<td class=forumrow><div align="center"><%=HuiKuan+DingJin%></div></td>
<td class=forumrow><div align="center">
<input name="huikuan" type="text" id="huikuan" size="10" maxlength="20" onKeyPress=javascript:CheckNum();>
</div></td>
<td class=forumrow><div align="center">
<input name="feiyong" type="text" id="feiyong" size="10" maxlength="20" onKeyPress=javascript:CheckNum();>
</div></td>
<td class=forumrow><div align="center">
<input name="mone" type="text" id="mone" size="45" maxlength="60">
</div></td>
</tr>
<tr>
<td width="8%" height="30" class=forumrow>合计：</td>
<td colspan="6" class=forumrow><div align="right">销售款总额：<%=SunMoney%>
应收张款：<%=SunMoney-DingJin%> 预收订金：<%=HuiKuan+DingJin%> 预付比例：<%=Left(100*(HuiKuan+DingJin)/SunMoney,5)%>%
物流：<%=WuLiu%> 运费：<%=YunFei%> </div></td>
</tr>
<tr>
<td height="30" colspan="7" class=forumrow> <div align="center">
<input type="submit" name="Submit2" value="添 加">
<input type="reset" name="Submit3" value="重置">
</div></td>
</tr>
</table>
</form>
<%End Sub%>
</td>
</TR>
</TBODY>
</TABLE>
</BODY>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -