f_point_tz_save.asp

OFFICE办公自动化

<%
'功能：公文跳转
'作者：展亮
'时间：2003-12-27 23:14
%>
<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/Conn.asp"-->
<!--#include file="../inc/Const.asp"-->

<%
sRecordID=Request.form("RecordID")
gzdxh=Request.Form("tzjd")
if sRecordID="" or gzdxh="" then
	call MsgOut("缺少必要参数","javascript:history.back()",1)
	Response.End
end if

oConn.beginTrans
dim sql,rs
	'删除未办理的记录
	sql="delete from tbioaOffice_Flow_Blqk where RecordID='"&sRecordID&"' and blbz='N'"
	oConn.execute(sql)
	'设置已办理记录为不可修改
	sql="update tbioaOffice_Flow_Blqk set xgbz='0' where RecordID='"&sRecordID&"'"
	oConn.execute(sql)


	sql="select * from tbioaOffice_FlowPoint where RecordID='"&sRecordID&"' and gzdxh="&gzdxh
	set rs=createobject("adodb.recordset")
	rs.Open sql,oConn,1,1
	if not rs.EOF and not rs.BOF then
                 zxyblr=GetTableValue("tbioaOffice_Flow_Bldy","xyblr","blgzbh",rs("blgzbh"))
                 if zxyblr=0 then
                   zblrylb=rs("blrylb")	'办理人列表
                 else
                   zblrylb=GetTableValue("tbioaOffice_Document","Author","RecordID",sRecordID)	'办理人列表
                 end if
                 zgzdxh=rs("gzdxh")'工作点序号
                 zblgzdbh=rs("blgzbh")'办理工作编号(工作定义编号)
                 zgzsx=rs("gzsx")'处理时限
                 zlzbz=rs("lzbz")'流转标志（1全部完成继续/0一人完成继续）
	end if
        rs.close
	zsgzsx=formatdatetime(dateadd("d",zgzsx ,now),2) '处理时限（这里转换成日期）

	'增加新纪录
	zsql="select blxh,gzdxh from tbioaOffice_Flow_Blqk where RecordID='"&sRecordID&"' order by blxh desc"
	rs.Open zsql,oConn,1,1
	dim lyblxh,lygzdxh
	lyblxh=null
	lygzdxh=null
	if not rs.EOF and not rs.BOF then
		lyblxh=rs("blxh") '办理序号
		lygzdxh=rs("gzdxh") '工作点序号
	end if
	rs.Close

	array_yglb=split(zblrylb,",") '办理人列表（数组）
	for i=lbound(array_yglb) to ubound(array_yglb)
	      '取办理序号
	      zsql="select blxh from tbioaOffice_Flow_Blqk where RecordID='"&sRecordID&"' order by blxh desc"
	      rs.Open zsql,oConn,1,1
	      if not rs.EOF and not rs.BOF then
	         count=rs(0)+1
	      else
	         count=1
	      end if
	      rs.close

	      '增加办理记录
	      rs.Open "tbioaOffice_Flow_Blqk",oConn,3,2
	      rs.addnew
	      rs("RecordID")=sRecordID
	      rs("blxh")=count
	      rs("gzdbh")=zblgzdbh
	      rs("gzdxh")=zgzdxh
	      rs("blr")=array_yglb(i)
	      rs("xgbz")="1"
	      rs("blbz")="N"
	      rs("zcbz")="4"
	      rs("tjlzbj")=zlzbz
	      rs("clsj")=date()
	      rs("clsx")= zsgzsx
	      rs("lygzdxh")=lygzdxh
	      rs("lyblxh")=lyblxh
	      rs.update
	      rs.close
	next

	'修改属性表
	zsql="update tbioaOffice_Document set step='"&zblgzdbh&"' where RecordID='"&sRecordID&"'"
	oConn.execute(zsql)

	oConn.CommitTrans
	oConn.close
    set oConn=nothing
    Response.Redirect "F_Point_Index_Tz.asp?RecordID="&sRecordID
%>