f_point_save.asp

OFFICE办公自动化

<%
'功能：公文工作流程设置-保存工作点信息
'作者：展亮
'时间：2003-12-13 17:10
%>
<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/Conn.asp"-->
<!--#include file="../inc/Const.asp"-->

<%
	function exitsave(smsg,stag)
		call MsgOut(smsg,"javascript:history.back()",1)
		if stag="1" then
			oConn.rollbacktrans
		end if
		set rs=nothing
		oConn.close
		set oConn=nothing
		Response.End
	end function
%>
<%
	dim sRecordID
	dim sPrev,sPrevType	'前驱节点编号，为0表示是第一个
	sRecordID=Request.form("RecordID")
	sPrevType=Request.Form("PrevType")
	sPrev=Request.Form("Prev")
	if sRecordID="" or not isnumeric(sPrev) then
		call MsgOut("参数错误","javascript:history.back()",1)
		Response.End
	end if

	dim rs
	set rs=server.CreateObject("ADODB.recordset")
	dim sblgzbh,sgzdxh,sgzdmc,sblrylb,sblrysm,stqqx,sjqqx,scxqx,slzbz,sgzsx
	sgzdxh=Request.Form("gzdxh")
	sblgzbh=Request.Form("blgzbh")
	sgzdmc=Request.Form("gzdmc")
	sblrylb=Request.Form("blrylb")
	sblrysm=Request.Form("blrysm")
	stqqx=Request.Form("tqqx")
	sjqqx=Request.Form("jqqx")
	scxqx=Request.Form("cxqx")
	slzbz=Request.Form("lzbz")
	sgzsx=Request.Form("gzsx")

	oConn.begintrans
	'保存工作点
	dim sOPMode
	sOPMode="EDIT"
	if sgzdxh="" then
		sOPMode="ADD"
		sgzdxh=1
		rs.open "select max(gzdxh) from tbioaOffice_FlowPoint where RecordID='" & sRecordID & "'",oConn,1,1
		if not rs.EOF then
			if rs(0) & ""<>"" then
				sgzdxh=clng(rs(0))+1
			end if
		end if
		rs.Close
	end if
	rs.Open "select * from tbioaOffice_FlowPoint " _
			& "where RecordID='" & sRecordID & "'" _
			& "and gzdxh=" & sgzdxh _
			,oConn,3,2
	if rs.EOF then
		rs.AddNew
		rs("RecordID")=sRecordID
		rs("gzdxh")=sgzdxh
	end if
	rs("blgzbh")=sblgzbh
	rs("gzdmc")=sgzdmc
	rs("blrylb")=sblrylb
	rs("blrysm")=sblrysm
	rs("tqqx")=stqqx
	rs("jqqx")=sjqqx
	rs("cxqx")=scxqx
	rs("lzbz")=slzbz
	rs("gzsx")=sgzsx
	rs.Update
	rs.Close
	'保存工作流
	if sPrev<>"" and sPrevType<>"" and sOPMode="ADD" then		'不是第一个点且是增加点
		'如果原来的点有下级则将原来的点的下级设为当前点，并增加当前点的下级设为原来的下级
		oConn.execute "update tbioaOffice_Flow set " _
				& "sgzbh='" & sblgzbh & "'," _
				& "sgzdxh=" & sgzdxh & " " _
				& "where RecordID='" & sRecordID & "' " _
				& "and sgzdxh=" & sprev & " "
		sgzlbh=1
		rs.open "select max(gzlbh) from tbioaOffice_Flow where RecordID='" & sRecordID & "'",oConn,1,1
		if not rs.EOF then
			if rs(0) & ""<>"" then
				sgzlbh=clng(rs(0))+1
			end if
		end if
		rs.Close
		rs.Open "select * from tbioaOffice_Flow where RecordID='" & sRecordID & "'",oConn,3,2
		rs.AddNew
		rs("RecordID")=sRecordID
		rs("gzlbh")=sgzlbh
		rs("sgzbh")=sPrevType
		rs("sgzdxh")=sPrev
		rs("zgzbh")=sblgzbh
		rs("zgzdxh")=sgzdxh
		rs.Update
		rs.Close
	end if

	oConn.committrans
	set rs=nothing
	oConn.close
	set oConn=nothing
%>
<script language="javascript">history.go(-2);</script>