📄 salesendcheck_approve_operate.asp
字号:
<%@ Language=VBScript %>
<%'******************************************************
'功能：送检审批操作页
'入口参数：
' 1,送检定单编号
'出口参数：
'作者：钟宇 日期：2001年6月14日
'******************************************************
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<FORM action="SaleSendCheck_Approve.asp" method=post id=form1 name=form1>
</FORM>
<!--#include file="../PublicFunction.inc"-->
<%
Dim DBConn,Rs,LStr_Sql,TStr_SalID,TStr_SalType,TStr_StfID
Dim LStr_ArraySalID,LInt_i
TStr_StfID=Session("Gs_StaffID")
TStr_SalType=Trim(Request.Form("ReturnType"))
TStr_SalID=Trim(Request.Form("CheckBox1"))
If TStr_SalType="" Or TStr_SalID="" Or TStr_StfID="" Then
Response.Write "网页已经过期，添加操作被取消，请重新登录系统！"
Response.End
End If
LStr_ArraySalID=Split(TStr_SalID,",")
Dim LInt_NoSuc,LInt_Suc,LStr_WhsOutNoticeID,LStr_NoSuc
''***审批不成功的记录数***
LInt_NoSuc=0
''***审批成功的记录数***
LInt_Suc=0
LStr_NoSuc=""
Set DBConn=Server.CreateObject("ADODB.Connection")
DBconn.ConnectionTimeout=Application("Connection2_ConnectionTimeout")
DBconn.cursorlocation=Application("Connection2_Cursorlocation")
DBconn.OPEN Application("Connection2_ConnectionString")
If TStr_SalType="否决" Then
For LInt_i=0 to Ubound(LStr_ArraySalID)
LStr_Sql ="UPDATE Sale_Sale SET Auditor='"& TStr_StfID &"',AuditDate='"& Date()
LStr_Sql =LStr_Sql +"',ProcMark='否决' "
LStr_Sql =LStr_Sql +"WHERE Sal_SalID='"& Left(Trim(LStr_ArraySalID(LInt_i)),12) &"'"
DBConn.Execute LStr_Sql
LInt_Suc=LInt_Suc+1
Next
Else
Set Rs=Server.CreateObject("ADODB.Recordset")
For LInt_i=0 To UBound(LStr_ArraySalID)
LStr_Sql="SELECT (Warehouse_Stock.Whs_StkNumCanOut - Sale_Sale.Sal_SalQty) AS Result,"
LStr_Sql=LStr_Sql+"Sale_Sale.Sal_SalQty,Sale_Sale.Sal_SalReceiver,"
LStr_Sql=LStr_Sql+"Sale_Sale.Sal_SalRcvAddr,Sale_Sale.Sal_SalRcvZipCode,"
LStr_Sql=LStr_Sql+"Sale_Sale.Sal_SalRcvTel,Sale_Sale.Ctg_ID "
LStr_Sql=LStr_Sql+"FROM Sale_Sale,Warehouse_Stock "
LStr_Sql=LStr_Sql+"WHERE Warehouse_Stock.Ctg_ID = Sale_Sale.Ctg_ID AND "
LStr_Sql=LStr_Sql+"Sale_Sale.Sal_SalID = '"& Left(Trim(LStr_ArraySalID(LInt_i)),12) &"' AND "
LStr_Sql=LStr_Sql+"Warehouse_Stock.Whs_ID='"& Mid(Trim(LStr_ArraySalID(LInt_i)),13) &"'"
Rs.Open LStr_Sql,DBConn
If (Rs.EOF And Rs.BOF) Then
If LStr_NoSuc<>"" Then
LStr_NoSuc=LStr_NoSuc+","+Left(Trim(LStr_ArraySalID(LInt_i)),12)
Else
LStr_NoSuc=Left(Trim(LStr_ArraySalID(LInt_i)),12)
End If
LInt_NoSuc=LInt_NoSuc+1
Rs.Close
Else
If (CSng(Rs("Result"))<0) Then
If LStr_NoSuc<>"" Then
LStr_NoSuc=LStr_NoSuc+","+Left(Trim(LStr_ArraySalID(LInt_i)),12)
Else
LStr_NoSuc=Left(Trim(LStr_ArraySalID(LInt_i)),12)
End If
LInt_NoSuc=LInt_NoSuc+1
Rs.Close
Else
DBConn.BeginTrans
LStr_Sql ="UPDATE Sale_Sale SET Auditor='"& TStr_StfID &"',AuditDate='"& Date()
LStr_Sql =LStr_Sql +"',ProcMark='认可',Sal_SalFlgDeal='通知出库' "
LStr_Sql =LStr_Sql +"WHERE Sal_SalID='"& Left(Trim(LStr_ArraySalID(LInt_i)),12) &"'"
DBConn.Execute LStr_Sql
LStr_WhsOutNoticeID=GetNewID("Warehouse_OutNotice","Whs_OutNID")
LStr_Sql ="INSERT INTO Warehouse_OutNotice(Whs_OutNID,Whs_ID,"
LStr_Sql =LStr_Sql +"Ctg_ID,Sal_SalID,Whs_OutNQty,Whs_OutNReceiver,"
LStr_Sql =LStr_Sql +"Whs_OutNRcvAddr,Whs_OutNRcvTel,Whs_OutNRcvZip,"
LStr_Sql =LStr_Sql +"Whs_OutNHandler,Whs_OutNDate,"
LStr_Sql =LStr_Sql +"Whs_OutNFlg,Whs_OutNNoteType) VALUES('"& Trim(LStr_WhsOutNoticeID)
LStr_Sql =LStr_Sql +"','" & Mid(Trim(LStr_ArraySalID(LInt_i)),13)
LStr_Sql =LStr_Sql +"','" & Trim(Rs("Ctg_ID"))
LStr_Sql =LStr_Sql +"','" & Left(Trim(LStr_ArraySalID(LInt_i)),12)
LStr_Sql =LStr_Sql +"'," & Trim(Rs("Sal_SalQty"))
LStr_Sql =LStr_Sql +",'" & Trim(Rs("Sal_SalReceiver"))
LStr_Sql =LStr_Sql +"','" & Trim(Rs("Sal_SalRcvAddr"))
LStr_Sql =LStr_Sql +"','" & Trim(Rs("Sal_SalRcvTel"))
LStr_Sql =LStr_Sql +"','" & Trim(Rs("Sal_SalRcvZipCode"))
LStr_Sql =LStr_Sql +"','" & TStr_StfID & "','" & Date()
LStr_Sql =LStr_Sql +"','未出库','特殊出库')"
DBConn.Execute LStr_Sql
Rs.Close
If DBConn.Errors.Count =0 Then
DBConn.CommitTrans
LInt_Suc=LInt_Suc+1
Else
DBConn.RollbackTrans
If LStr_NoSuc<>"" Then
LStr_NoSuc=LStr_NoSuc+","+Left(Trim(LStr_ArraySalID(LInt_i)),12)
Else
LStr_NoSuc=Left(Trim(LStr_ArraySalID(LInt_i)),12)
End If
LInt_NoSuc=LInt_NoSuc+1
End If
End If
End If
Next
End If
DBConn.Close
Set Rs=Nothing
Set DBConn=Nothing
If LInt_NoSuc=0 Then
If LInt_Suc>0 Then
%>
<SCRIPT LANGUAGE=vbscript>
MsgBox "已成功完成操作！",,"CMS系统提示"
</SCRIPT>
<%
Else
%>
<SCRIPT LANGUAGE=vbscript>
MsgBox "数据操作可能有误，请查询确认！",,"CMS系统提示"
</SCRIPT>
<%
End If
Else
%>
<SCRIPT LANGUAGE=vbscript>
MsgBox "对不起！你所选择的送检单号：<%=LStr_NoSuc%>其指定仓库的可出货量不足！",,"CMS系统提示"
</SCRIPT>
<%
End If
%>
<SCRIPT LANGUAGE=javascript>
<!--
/*提交操作，返回上一页*/
form1.submit()
//-->
</SCRIPT>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -