📄 salesendcheck_approve.asp
字号:
<%@ Language=VBScript %>
<HTML>
<HEAD>
<TITLE>送检审批页</TITLE>
</HEAD>
<BODY>
<%
Dim DBConn,Rs,LStr_Sql,TStr_StfID,LStr_RgnSelected,LStr_CtgSelected
Dim LArr_Whs(),LInt_i,LInt_RecCount
TStr_StfID=Session("Gs_StaffID")
TStr_StfType=Session("Gs_StafferType")
If TStr_StfID="" Then
Response.Write "网页已经过期，请重新登录系统！"
Response.End
End If
If TStr_StfType="总部职工" Then
Set DBConn=Server.CreateObject("ADODB.Connection")
DBconn.ConnectionTimeout=Application("Connection2_ConnectionTimeout")
DBconn.cursorlocation=Application("Connection2_Cursorlocation")
DBconn.OPEN Application("Connection2_ConnectionString")
Set Rs=Server.CreateObject("ADODB.Recordset")
LStr_Sql="SELECT Whs_ID,Whs_Name FROM Basic_Warehouse"
Rs.Open LStr_Sql,DBConn,3
ReDim LArr_Whs(Rs.RecordCount,2)
LInt_i=0
Do While Not Rs.EOF
LArr_Whs(LInt_i,0)=Rs("Whs_ID")
LArr_Whs(LInt_i,1)=Rs("Whs_Name")
LInt_i=LInt_i+1
Rs.MoveNext
Loop
Rs.Close
LStr_Sql="SELECT Sale_SendCheck.Sal_SalID,Sale_Sale.Sal_SalReceiver,Sale_Sale.Sal_SalRcvAddr,"
LStr_Sql=LStr_Sql+"Sale_Sale.Sal_SalRcvZipCode,Sale_Sale.Sal_SalRcvTel,Basic_Category.Ctg_Name,"
LStr_Sql=LStr_Sql+"Sale_Sale.Sal_SalQty,Sale_SendCheck.Sal_SCHandler "
LStr_Sql=LStr_Sql+"FROM Sale_Sale,Sale_SendCheck,Basic_Category "
LStr_Sql=LStr_Sql+"WHERE Sale_Sale.Sal_SalID=Sale_SendCheck.Sal_SalID AND "
LStr_Sql=LStr_Sql+"Sale_Sale.Ctg_ID=Basic_Category.Ctg_ID AND "
LStr_Sql=LStr_Sql+"Sale_Sale.ProcMark='申请'"
Rs.Open LStr_Sql,DBConn
%>
<P><FONT size=5><STRONG>送检审批</STRONG></FONT></P>
<P><FONT size=5>
<P><STRONG>
<HR>
</STRONG>
<P></P>
<P>
</FONT><FONT size=3>待送检审批列表：</FONT></P>
<FORM action="SaleSendCheck_Approve_Operate.asp" method=POST id=form1 name=form1>
<table border="1" height="60">
<tr>
<td> </td>
<td><div align="center">送检单编号</div></td>
<td><div align="center">收货人</div></td>
<td><div align="center">收货地址</div></td>
<td><div align="center">邮政编码</div></td>
<td><div align="center">联系电话</div></td>
<td><div align="center">送检品种</div></td>
<td><div align="center">送检数量</div></td>
<td>
<div align="center">经手人</div>
</td>
<td>
<div align="center"><A href="../SaleQuery/Stk_CtgQuery.asp" target=_blank>出货仓库</A></div>
</td>
</tr>
<%
LInt_RecCount=0
Do While Not Rs.EOF
Response.Write "<tr><td><INPUT type=checkbox id=checkbox1 name=checkbox1 value=" & Rs("Sal_SalID")&"></td>"
Response.Write "<td>" & "<A href=SaleSendCheck_View.asp?TStr_SalID="& Rs("Sal_SalID") &" target=_blank>"& Rs("Sal_SalID") &"</A>" & "</td>"
Response.Write "<td>"& Rs("Sal_SalReceiver") &"</td>"
Response.Write "<td>"& Rs("Sal_SalRcvAddr") &"</td>"
Response.Write "<td>"& Rs("Sal_SalRcvZipCode") &"</td>"
Response.Write "<td>"& Rs("Sal_SalRcvTel") &"</td>"
Response.Write "<td>"& Rs("Ctg_Name") &"</td>"
Response.Write "<td>"& Rs("Sal_SalQty") &"</td>"
Response.Write "<td>"& Rs("Sal_SCHandler") &"</td>"
Response.Write "<td><SELECT id=select1 name=select1 style='HEIGHT: 22px; WIDTH: 100px'>"
For LInt_i=0 To UBound(LArr_Whs)-1
Response.Write "<OPTION value="& LArr_Whs(LInt_i,0) &">"& LArr_Whs(LInt_i,1) &"</OPTION>"
Next
Response.Write "</SELECT></td></tr>"
Rs.MoveNext
LInt_RecCount=LInt_RecCount+1
Loop
%>
</table>
<INPUT id=ReturnType name=ReturnType type=hidden>
</FORM>
<P align=center>
<INPUT id=button1 name=button1 type=button value=" 认可 " onclick="SubmitOK()">
<INPUT id=button2 name=button2 type=button value=" 否决 " onclick="SubmitDel()">
<INPUT id=button3 name=button3 type=button value=" 重置 " onclick="vbscript:FormReset()">
<INPUT id=button4 name=button4 type=button value=" 关闭 " onclick=window.location="../User_RightList.asp">
</P>
<%
Rs.Close
DBConn.Close
Set Rs=Nothing
Set DBConn=Nothing
%>
</BODY>
</HTML>
<%'******************************************************************%>
<script LANGUAGE="vbscript">
<!--
'---------------------------------------------------------------------
'功能：提交到审批送检申请许可页
'参数 ：'返回值：
'--------------------------------------------------------------------
Function SubmitOK()
If <%=LInt_RecCount%>=0 Then
MsgBox "没有送检申请！",,"CMS系统提示"
Exit Function
End If
If TestCheckBox()=0 Then
MsgBox "请选择你要许可的送检申请！",,"CMS系统提示"
Exit Function
End If
form1.ReturnType.value ="认可"
If <%=LInt_RecCount%>>1 Then
For i=0 To <%=LInt_RecCount%>-1
If form1.checkbox1(i).checked=true Then
form1.checkbox1(i).value=form1.checkbox1(i).value & form1.select1(i).value
End If
Next
Else
form1.checkbox1.value=form1.checkbox1.value & form1.select1.value
End If
form1.submit
End Function
Function FormReset()
form1.reset()
End Function
'---------------------------------------------------------------------
'功能：提交到审批送检申请否决页
'参数：'返回值：
'--------------------------------------------------------------------
Function SubmitDel()
Dim LStr_iFlag
If <%=LInt_RecCount%>=0 Then
MsgBox "没有送检申请！",,"CMS系统提示"
Exit Function
End If
If TestCheckBox()=0 Then
MsgBox "请选择你要否决的送检申请！",,"CMS系统提示"
Exit Function
End If
LStr_iFlag = Msgbox("是否确认您要否决这些送检申请？",VBYesNO,"CMS系统提示")
If LStr_iFlag = 6 Then
form1.ReturnType.value ="否决"
If <%=LInt_RecCount%>>1 Then
For i=0 To <%=LInt_RecCount%>-1
If form1.checkbox1(i).checked=true Then
form1.checkbox1(i).value=form1.checkbox1(i).value & form1.select1(i).value
End If
Next
Else
form1.checkbox1.value=form1.checkbox1.value & form1.select1.value
End If
Form1.submit
End If
End Function
-->
</script>
<SCRIPT LANGUAGE="vbscript">
<!--
function button4_OnClick()
window.close
end function
-->
</SCRIPT>
<script LANGUAGE="javascript">
<!--
/*---------------------------------------------------------------------
功能：测试当前选择的添加
参数：
返回值：
--------------------------------------------------------------------
*/
function TestCheckBox()
{
var String;
var num;
String = "";
for (num = 0; num < Form1.checkbox1.length; num++)
{
if(Form1.checkbox1[num].checked)
{
String =String + Form1.checkbox1[num].value + "W";
}
}
if(Form1.checkbox1.checked)
{
String = Form1.checkbox1.value;
}
if(String == "")
{
return 0;
}
else
{
return 1;
}
}
-->
</script>
<%
else
response.write "对不起，错误的登录用户，请以总部职工帐号登录."
end if
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -