📄 order_tuicheck2.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.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,pro_id
Dim rrs,tk,tui_id
Dim k
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 isTuiHuo=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 Tui_ID,Product_ID,TuiShuliang,SunHaoShuliang,Mone,TuiKuan,Time From [OrderTui] Where Order_ID='"&rr_oid&"' and isTui=2")
%>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td> <form name="form1" method="post" action="Order_TuiOK2.asp?id=<%=rr_oid%>">
<table width="100%" border="0" cellpadding="4" cellspacing="1" bgcolor="#eeeeee">
<tr bgcolor="#FFFFFF">
<td height="40" colspan="8">业务员代码：<%=rr_mid%> 订单编号：<%=rr_oid%>
订单日期：<%=rr_time%> 送货日期：<%=rr_ot%> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="8%" height="25"> <div align="center">退单编号 </div></td>
<td width="10%"><div align="center">商品编号</div></td>
<td width="12%"> <div align="center">商品名称</div></td>
<td width="8%"> <div align="center">数量 </div></td>
<td width="8%"> <div align="center">退回数量 </div></td>
<td width="8%"> <div align="center">损耗数量 </div></td>
<td width="8%"> <div align="center">此次退款</div></td>
<td> <div align="center">备注</div>
<div align="center"></div></td>
</tr>
<%
If or2.Eof Then
Response.Write "<tr><td colspan=7>没有任何记录!</td></tr>"
Else
k=1
Do While Not or2.Eof
tui_id = or2(0)
pro_id = or2(1)
tk = or2(5)
Set rrs = Conn.Execute("Select Out_ShuLiang,Tui_ShuLiang,Tui_Sunhao From [Order2] Where Order_ID='"&rr_oid&"' and Product_ID='"&pro_id&"'")
%>
<tr bgcolor="#FFFFFF">
<td height="25"><div align="center"><%=or2(0)%></div></td>
<td><div align="center"><%=or2(1)%>
<input name="<%Response.Write "pro_id"&k%>" type="hidden" id="pro_id" value="<%=or2(1)%>">
</div></td>
<td><div align="center"><%=Product(or2(1))%></div></td>
<td><div align="center"><%=rrs(0)-rrs(1)-rrs(2)%></div></td>
<td><div align="center"><%=or2(2)%>
<input name="<%Response.Write "tuisl"&k%>" type="hidden" value="<%=or2(2)%>">
</div></td>
<td><div align="center"><%=or2(3)%>
<input name="<%Response.Write "haosl"&k%>" type="hidden" value="<%=or2(3)%>">
</div></td>
<td> <div align="center"><%=tk%></div></td>
<td> <div align="center"><%=or2(4)%></div>
<div align="center"> </div></td>
</tr>
<%
k=k+1
or2.MoveNext
Loop
%>
<tr bgcolor="#FFFFFF">
<td colspan="8"> <div align="center">
<input name="ord_id" type="hidden" id="ord_id" value="<%=rr_oid%>">
<input name="k_id" type="hidden" id="k_id" value="<%=k%>">
<input name="tuikuan" type="hidden" id="tuikuan" value="<%=tk%>">
<input type="submit" name="Submit2" value="通 过">
<input type="button" name="Submit3" value="退 回" onClick="javascript:window.document.location.href='Order_TuiNo.asp?id=<%=tui_id%>';">
</div></td>
</tr>
<%
End if
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 + -