📄 order_tuiadd.asp
字号:
<!--#include file="Conn.asp"-->
<!--#include file="Check.asp"-->
<!--#include file="Inc/No.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 Chk2(theForm)
{
if (theForm.tui_id.value == ""){
alert("请输入此次退单编号!");
theForm.tui_id.focus();
return (false);
}
if (theForm.tuisl1.value == ""){
alert("请输入此次退回数量!");
theForm.tuisl1.focus();
return (false);
}
if (theForm.sl1.value == ""){
alert("请输入损耗数量!");
theForm.sl1.focus();
return (false);
}
if (theForm.mone1.value == ""){
alert("请输入备注!");
theForm.mone1.focus();
return (false);
}
if (theForm.tuikuan.value ==""){
alert("请输入此次退款");
theForm.tuikuan.focus();
return (false);
}
}
function CheckNum(){
if((event.keyCode<48||event.keyCode>57)&&event.keyCode!=46) event.returnValue=false;
}
</SCRIPT>
<TABLE cellSpacing=1 cellPadding=0 width="98%" align=center border=0 class="tableBorder">
<TBODY>
<FORM name="Form2" action="?action=go" method="post">
<TR>
<th align=middle colSpan=6 height=25>添加公司退货单</th>
</TR>
<TR>
<td height=25 colSpan=6 align=middle>
<div align="center">查询订单号：
<input name="ddh" type="text" id="ddh" size="10" maxlength="20">
日期查询：
<input name="rq" type="text" id="rq" size="20" maxlength="30">
客户名：
<input name="khm" type="text" id="khm" size="20" maxlength="35">
<input type="submit" name="Submit" value="查 询">
</div></td>
</TR> </FORM>
<TR class=forumRow>
<td align=middle bgcolor="#FFFFFF">
<%If Request.QueryString("action")="go" Then
Dim ord_id,dates,kehum
Dim sqlstr,rr,rr_oid,rr_ot,rr_mid,rr_cid,rr_time,rr_dj,rr_hk
Dim rr2,rr2_cid
Dim or2,j
Dim cou,cou_ts,cou_shsl,cou2
ord_id = Trim(Request.Form("ddh"))
dates = Trim(Request.Form("rq"))
kehum = Trim(Request.Form("khm"))
if ord_id="" and dates="" and kehum="" Then
Response.write "<script language='javascript'>alert('请输入查询条件!!');" & chr(13)
Response.write "window.document.location.href='javascript:history.go(-1)';</script>"
Else
If kehum<>"" Then
Set rr2 = Conn.Execute("Select Customer_ID From [Customer] Where Customer like '%"&kehum&"%'")
if rr2.Eof Then
rr2_cid=""
Else
rr2_cid = rr2(0)
End if
rr2.Close
Set rr2=Nothing
Else
rr2_cid=""
End if
Set rr=Server.Createobject("Adodb.RecordSet")
sqlstr = "Select Order_ID,Out_Time,Manage_ID,Customer_ID,DingJin,Time,HuiKuan From [Order] Where Check_JiLi<>0 and Check_CaiWu<>0 and Check_KuGuan<>0 "
If ord_id<>"" Then
sqlstr = sqlstr & " and Order_ID='"&ord_id&"' "
End if
If dates<>"" Then
sqlstr = sqlstr & " and Time=#"&dates&"# "
End if
if rr2_cid<>"" Then
sqlstr = sqlstr & " and Customer_ID='"&rr2_cid&"' "
End if
rr.Open sqlstr,Conn,1,1
rr_oid = rr(0)
rr_ot = rr(1)
rr_mid = rr(2)
rr_cid = rr(3)
rr_dj = rr(4)
rr_time = rr(5)
rr_hk = rr(6)
rr.Close
Set rr=Nothing
Set or2 = Conn.Execute("Select Product_ID,Out_ShuLiang From [Order2] Where Order_ID='"&rr_oid&"'")
Set cou2 = Conn.Execute("Select Sum(Tui_Kuan) From [Order2] Where Order_ID='"&rr_oid&"'")
%>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td><form name="form1" method="post" action="Order_TuiAdd2.asp" onSubmit="return Chk2(this);">
<table width="100%" border="0" cellpadding="4" cellspacing="1" bgcolor="#eeeeee">
<tr bgcolor="#FFFFFF">
<td height="40" colspan="7">业务员代码：<%=rr_mid%>
<input name="all_hk" type="hidden" id="all_hk" value="<%=rr_dj+rr_hk-cou2(0)%>">
订单编号：<%=rr_oid%> 订单日期：<%=rr_time%> 送货日期：<%=rr_ot%>
退单编号：
<input name="tui_id" type="text" id="tui_id" size="10" maxlength="20"> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="5%" height="25"><div align="center">项目 </div></td>
<td width="10%"><div align="center">商品编号 </div></td>
<td width="15%"><div align="center">商品名称 </div></td>
<td width="10%"><div align="center">数量 </div></td>
<td width="15%"><div align="center">此次退回数量 </div></td>
<td width="10%"><div align="center">损耗数量 </div></td>
<td> <div align="center">备注</div></td>
</tr>
<%
j=1
If or2.Eof Then
Response.Write "<tr><td colspan=7>没有任何记录!</td></tr>"
Else
Do While Not or2.Eof
Set cou = Conn.Execute("Select Tui_ShuLiang,Tui_Sunhao From [Order2] Where Order_ID='"&rr_oid&"'")
If cou.Eof Then
cou_ts = 0
cou_shsl = 0
Else
cou_ts = cou(0)
cou_shsl = cou(1)
End if
%>
<tr bgcolor="#FFFFFF">
<td height="25"><div align="center"><%=j%></div></td>
<td><div align="center"><%=or2(0)%></div></td>
<td><div align="center"><%=Product(or2(0))%>
<input name="<%Response.Write "pro_name"&j%>" type="hidden" value="<%=or2(0)%>">
</div></td>
<td><div align="center"><%=or2(1)-cou_ts-cou_shsl%>
<input name="<%Response.Write "shuliang"&j%>" type="hidden" value="<%=or2(1)-cou_ts-cou_shsl%>">
</div></td>
<td><div align="center">
<input name="<%Response.Write "tuisl"&j%>" type="text" size="10" maxlength="20" onKeyPress="javascript:CheckNum();">
</div></td>
<td><div align="center">
<input name="<%Response.Write "sl"&j%>" type="text" size="10" maxlength="20" onKeyPress="javascript:CheckNum();">
</div></td>
<td><div align="center">
<input name="<%Response.Write "mone"&j%>" type="text" size="50" maxlength="60">
</div></td>
</tr>
<%j=j+1
or2.MoveNext
Loop
%>
<tr bgcolor="#FFFFFF">
<td height="30" colspan="7">
<div align="center">
<input name="huikuan" type="hidden" id="huikuan" value="<%=rr_hk%>">
<input name="order_id" type="hidden" id="order_id" value="<%=rr_oid%>">
<input name="jj" type="hidden" id="jj" value="<%=j-1%>">
<input type="submit" name="Submit2" value="提 交">
<input type="reset" name="Submit3" value="重置">
此次退款
<input name="tuikuan" type="text" id="tuikuan" onKeyPress="javascript:CheckNum();" size="10" maxlength="20">
代表只能添数字 <br>
</div></td>
</tr>
<%End if
cou.Close
Set cou=Nothing
or2.Close
Set or2=Nothing
%>
</table>
</form></td>
</tr>
</table>
<%
End if
End if%>
</td>
</TR>
</TBODY>
</TABLE>
</BODY>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -