f_point_applytemp.asp

来自「OFFICE办公自动化」· ASP 代码 · 共 37 行

<%
'功能：公文工作流程设置-套用流程模板
'作者：展亮
'时间：2003-12-17 15:03
%>
<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/Conn.asp"-->
<!--#include file="../inc/Const.asp"-->
<%
	slcbh=Request.Form("lcbh")
	sRecordID=Request.Form("RecordID")
	sgzdxh=Request.Form("gzdxh")
	if sRecordID="" then
		call MsgOut("没有指定公文","javascript:history.back()",1)
		Response.End
	end if
	if slcbh="" then
		call MsgOut("没有指定模板","javascript:history.back()",1)
		Response.End
	end if
%>

<%
	'套用模板
	oConn.begintrans
	oConn.execute "delete from tbioaOffice_FlowPoint where RecordID='" & sRecordID & "'"
	oConn.execute "delete from tbioaOffice_Flow where RecordID='" & sRecordID & "'"

	oConn.execute "insert into tbioaOffice_FlowPoint(RecordID,blgzbh,gzdxh,gzdmc,blrylb,blrysm,tqqx,jqqx,cxqx,lzbz,txzb,gzsx) " _
			& "select '" & sRecordID & "' as RecordID,blgzbh,gzdxh,gzdmc,blrylb,blrysm,tqqx,jqqx,cxqx,lzbz,txzb,gzsx from tbioaOffice_FlowPoint_Template where lcbh='" & slcbh & "'"
	oConn.execute "insert into tbioaOffice_Flow(RecordID,gzlbh,sgzbh,sgzdxh,zgzbh,zgzdxh,txzb) " _
			& "select '" & sRecordID & "' as RecordID,gzlbh,sgzbh,sgzdxh,zgzbh,zgzdxh,txzb from tbioaOffice_Flow_Template where lcbh='" & slcbh & "'"
	oConn.committrans
	oConn.close
	set oConn=nothing
%>
<script language="javascript">history.back();</script>