📄 check_tui.asp
字号:
<!--#include file="Conn.asp"-->
<!--#include file="Check.asp"-->
<!--#include file="Inc/No.asp"-->
<%
Dim userdd
userdd = Manage_Level(adl)
%>
<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>
<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 th
Set th = Conn.Execute("Select Distinct Tui_ID From [OrderTui]")
Do While Not th.Eof
Response.Write "<option value='"& th(0) &"'>"& th(0) &"</option>"
th.movenext
Loop
th.Close
Set th=Nothing
%>
</select><input type="submit" name="Submit" value=" 点 击 查 找 ">
退货单审核</th>
</FORM>
</TR>
<TR>
<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
Dim ord_id
Dim tui_id,tui,tui_1,tui_2,tui_3,tui_4,tui_5,tui_6,tui_7,tui_8,tui_9
Dim all_tui,all_hao
Dim tk,tk_id,all_tk,all_mon
ord_id = Trim(Request.Form("selpayer"))
Set tui = Conn.Execute("Select Tui_ID,Order_ID,Product_ID,TuiShuliang,SunHaoShuliang,Mone,TuiKuan,Time,Check_JiLi,Check_KuGuan,Check_CaiWu From [OrderTui] Where Tui_ID='"&ord_id&"'")
tui_id = tui(1)
If tui(8)=0 Then
If userdd<>"销售经理" Then
Response.Write "<script language=javascript>alert('销售部经理还没有审核，请让该部门主管审核!');"
Response.Write "window.document.location.href='javascript:history.go(-1)';</script>"
End if
End if
If tui(8)<>0 and tui(9)=0 Then
If userdd<>"销售经理" and userdd<>"库管" Then
Response.Write "<script language=javascript>alert('仓库部还没有审核，请让该部门主管审核!');"
Response.Write "window.document.location.href='javascript:history.go(-1)';</script>"
End if
End if
If tui(8)<>0 and tui(9)<>0 and tui(10)=0 Then
If userdd<>"销售经理" and userdd<>"财务员" and userdd<>"财务员" Then
Response.Write "<script language=javascript>alert('财务部还没有审核，请让该部门主管审核!');"
Response.Write "window.document.location.href='javascript:history.go(-1)';</script>"
End if
End if
Set tk = Conn.Execute("Select Tui_Kuan From [Order2] Where Order_ID='"&tui_id&"'")
%>
<form name="form1" method="post" action="Check_Tui2.asp?id=<%=tui_id%>">
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#eeeeee">
<tr>
<td height="25" colspan="6" class=forumrow> 订单编号：<%=tui(1)%> 退单编号：<%=tui(0)%>
销售经理：
<%If tui(8)=0 Then
Response.Write "未审核"
Else
Response.Write User_Name(tui(8))
End if
%>
库管：
<%If tui(9)=0 Then
Response.Write "未审核"
Else
Response.Write User_Name(tui(9))
End if
%>
财务部：
<%If tui(10)=0 Then
Response.Write "未审核"
Else
Response.Write User_Name(tui(10))
End if
%>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" colspan="2"> <div align="center"></div>
<div align="center">商品代码</div></td>
<td width="13%"> <div align="center">此次退回数量</div></td>
<td width="14%"> <div align="center">损耗数量</div></td>
<td width="12%"> <div align="center">时间</div></td>
<td width="49%"> <div align="center">备注</div></td>
</tr>
<%If tui.Eof Then
Response.Write "<tr><td>没有任何记录!</td></tr>"
Else
Do While Not tui.Eof
tui_1 = tui(0)
tui_2 = tui(1)
tui_3 = tui(2)
tui_4 = tui(3)
tui_5 = tui(4)
tui_6 = tui(5)
tui_7 = tui(6)
tui_8 = tui(7)
tui_9 = tui(8)
all_tui = all_tui+tui_4
all_hao = all_hao+tui_5
all_mon = all_mon+tui_7
%>
<tr bgcolor="#FFFFFF">
<td height="25" colspan="2"> <div align="center"><%=tui_3%></div></td>
<td><div align="center"><%=tui_4%></div></td>
<td><div align="center"><%=tui_5%></div></td>
<td><div align="center"><%=formatdatetime(tui_8,2)%></div></td>
<td><div align="center"><%=tui_6%></div></td>
</tr>
<%
tui.Movenext
Loop
End if
tui.Close
Set tui=Nothing
%>
<tr bgcolor="#FFFFFF">
<td width="8%" height="25">合计：</td>
<td colspan="5"><div align="right">共退款：<%=all_mon%> 此次退款：<%=tui_7%>
退回总数量：<%=all_tui%> 损耗总数量：<%=all_hao%> </div></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" colspan="6"><div align="center">
<input type="submit" name="Submit2" value="审 核">
</div></td>
</tr>
<%End if%>
</table>
</form>
</td>
</TR>
</TBODY>
</TABLE>
</BODY>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -