📄 ft_point_index.asp

📁 OFFICE办公自动化
💻 ASP
字号:
<%
'功能：公文工作流程模板设置-工作点列表
'作者：展亮
'时间：2003-12-12 14:43
%>
<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/Conn.asp"-->
<!--#include file="../inc/Const.asp"-->
<%
'------------------------------------------------设置参数
slcbh=Request("lcbh")
surl=Request.form("url")
'------------------------------------------------
if slcbh="" then
	call MsgOut("没有指定工作流模板","javascript:history.back()",1)
	oConn.close
	set oConn=nothing
	Response.End
end if

'------------------------------------------------

%>

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../css/main.css">
<title>工作流程之工作点定义</title>
<script language=vbscript>
	sub doedit(sgzdxh,sprev,sprevtype,snexttype)
		frmcz.gzdxh.value=sgzdxh
		frmcz.prev.value=sprev
		frmcz.prevtype.value=sprevtype
		frmcz.nexttype.value=snexttype
		frmcz.action="FT_Point_Edit.asp"
		frmcz.submit
	end sub
	sub doSC(sgzdxh)
		if msgbox("是否确定要删除选定的工作点?相关的信息会一并被删除",vbquestion+vbyesno,"删除确认")=vbno then exit sub
		frmcz.gzdxh.value=sgzdxh
		frmcz.action="FT_Point_Del.asp"
		frmcz.submit
	end sub
</script>
</head>

<body topmargin="10" leftmargin="10">

<table width=98% border=0 align=center>
	<tr valign=center><td align=left><img src="../images/icon_title.gif" align="absmiddle"> 设置工作点</td>
	<td align=right valign=bottom>
		<input type=button class="button0" onmouseout=className="button0" onmouseover=className="button1" value="返回" id=bQuery name=del_button onclick="location.href='FT_Index.asp'">
	</td></tr>
</table>
<hr width="100%" size=1 color="#000000">
<br>
<table width=98% border=0 align=center>
	<tr valign=center><td align=center>
		模板【<%=server.HTMLEncode(GetTableValue("tbioaOffice_Flow_TemplateName","lcmc","lcbh",slcbh))%>】工作点情况
	    </td>
	</tr>
</table>

<form id=frmcz method=post>
	<input type=hidden id=lcbh name=lcbh value=<%=slcbh%>>
	<input type=hidden id=gzdxh name=gzdxh>
	<input type=hidden id=prev name=prev>
	<input type=hidden id=prevtype name=prevtype>
	<input type=hidden id=nexttype name=nexttype>
</form>

<%
set rs=server.CreateObject("ADODB.recordset")

'取得入度为0的工作点（只可能有一个）
sql = "select a.*,b.blgzmc from tbioaOffice_FlowPoint_Template a,tbioaOffice_Flow_Bldy b " _
		& "where a.lcbh=" & slcbh & " " _
		& "and a.gzdxh not in(" _
		& "select zgzdxh as gzdxh from tbioaOffice_Flow_Template " _
		& "where lcbh=" & slcbh & ") " _
		& "and a.blgzbh=b.blgzbh "
rs.Open sql,oConn,1,1
lfirst=-1
bend=true
if not rs.EOF then
	lfirst=rs("gzdxh") & ""
	bend=false
end if

if not bend then			'不是一个都没有
%>
<table align=center cellspacing=0 cellpadding=0 border=0 width="400">
  <tr>
    <td>
        <table width=100% border=0 cellspacing=1 cellpadding=2 class=tab>
		<tr><td nowrap align=center class=tdtop>公文办理开始</td></tr>
	</table>
    </td>
  </tr>
  <tr>
    <td>
	<table width=100% border=0 cellspacing=0 cellpadding=2>
		<tr>
			<td align=right width=50%><b>↓</b></td>
			<td align=left width=50% nowrap></td>
		</tr>
	</table>
    </td>
  </tr>
<%
	do while not rs.EOF
		'如果该点的后继节点可以接在该点的前驱节点上则显示删除链接
		dim ssPrev,ssNext,ssPrevType,ssNextType
		ssPrev=0
		ssPrevType=""
		ssNext=0
		ssNextType=""
		set rs1=server.CreateObject("ADODB.recordset")
		sql="select sgzbh,sgzdxh from tbioaOffice_Flow_Template Where lcbh=" & slcbh & " And zgzdxh=" & rs("gzdxh")
		rs1.Open sql,oConn,1,1
		if not rs1.EOF then
			ssPrev=rs1("sgzdxh")
			ssPrevType=rs1("sgzbh")
		end if
		rs1.Close

		sql="select zgzbh,zgzdxh from tbioaOffice_Flow_Template Where lcbh=" & slcbh & "And sgzdxh=" & rs("gzdxh")
		rs1.Open sql,oConn,1,1
		if not rs1.EOF then
			ssNext=rs1("zgzdxh")
			ssNextType=rs1("zgzbh")
		end if
		rs1.Close

		dim bShowDel
		bShowDel=false
		'Response.Write ssprev & "/" & ssprevtype & "/" & ssnext & "/" & ssnexttype
		if ssNext=0 then
			bshowDel=true
		else
			'判断
			if ssPrevType<>"" then
				rs1.Open "Select blgzbh from tbioaOffice_Flow_Bldy " _
						& "where blgzbh='" & ssNextType & "' " _
						& "and ','+qtgzbh+',' like '%," & ssPrevtype & ",%'" _
						,oConn,1,1
				if not rs1.eof then
					bShowDel=true
				end if
				rs1.close
			else
				'看ssNextType能不能在最前面
				rs1.Open "Select blgzbh from tbioaOffice_Flow_Bldy " _
						& "where blgzbh='" & ssNextType & "' " _
						& "and (qtgzbh='' or qtgzbh is null or qtgzbh='" & ssNextType & "') " _
						,oConn,1,1
				if not rs1.eof then
					bShowDel=true
				end if
				rs1.close
			end if
		end if
		'显示信息
%>
  <tr>
    <td>
	<table width=100% border=0 cellspacing=1 cellpadding=2 class=tab>
		<tr>
			<td nowrap width=120 class=tdtop><%=server.HTMLEncode(rs("blgzmc"))%></td>
			<td nowrap width=235 class=tdtop2><a href='javascript:doedit("<%=rs("gzdxh")%>","<%=ssPrev%>","<%=ssPrevType%>","<%=ssNextType%>")' class=LinkTop><%=server.HTMLEncode(rs("gzdmc"))%></a></td>
			<td width=45 nowrap class=tdtop>
			<%if bShowDel then%>
				<a href='javascript:doSC(<%=rs("gzdxh")%>)'><img src="../images/icon_dele1.gif" border=0 alt="删除"></a>
			<%end if%>
			</td>
		</tr>
		<tr>
			<td colspan=3 class=td2><a style="cursor:default" title=<%=Server.HTMLEncode(GetUserNames(rs("blrylb") & "",","))%>>办理人员:
				<%if rs("blrysm")="" then response.write GetUserNames(rs("blrylb"),",")%>
				<%=server.HTMLEncode(rs("blrysm"))%>
			</td>
		</tr>
		<tr>
			<td colspan=1 class=tdbottom>
				<%if rs("lzbz") & ""="1" then Response.Write "全部完成继续" else Response.Write "一人完成继续"%>&nbsp;
			</td>
			<td colspan=2 class=tdbottom>
				<%if rs("tqqx") & ""="1" then Response.Write "<font color='green'>√退签</font>" else Response.Write "<font color='red'>×退签</font>"%>&nbsp;
				<%if rs("jqqx") & ""="1" then Response.Write "<font color='green'>√加签</font>" else Response.Write "<font color='red'>×加签</font>"%>&nbsp;
				<%if rs("cxqx") & ""="1" then Response.Write "<font color='green'>√撤销</font>" else Response.Write "<font color='red'>×撤销</font>"%>&nbsp;
			</td>
		</tr>
	</table>
	<table width=100% border=0 cellspacing=0 cellpadding=2>
		<tr>
			<td align=right width=50%><b>↓</b></td>
			<td align=left width=50% nowrap>←<a href='javascript:doedit("","<%=rs("gzdxh")%>","<%=rs("blgzbh") & ""%>","<%=ssNextType%>")'>插入工作点</a><td>
		</tr>
	</table>
    </td>
  </tr>
<%
		'取得下一点的信息
		lfirst=rs("gzdxh")
		rs.Close
		rs.Open "select a.*,c.blgzmc from tbioaOffice_FlowPoint_Template a,tbioaOffice_Flow_Template b,tbioaOffice_Flow_Bldy c " _
				& "where a.lcbh=" & slcbh & " " _
				& "and a.lcbh=b.lcbh " _
				& "and b.sgzdxh=" & lfirst & " " _
				& "and b.zgzdxh=a.gzdxh " _
				& "and a.blgzbh=c.blgzbh " _
				,oConn,1,1
	loop
%>
  <tr>
    <td>
        <table width=100% border=0 cellspacing=1 cellpadding=2 class=tab>
		<tr><td nowrap align=center class=tdtop>公文待归档</td></tr>
	</table>
    </td>
  </tr>
<%else%>

<table align=center cellspacing=0 cellpadding=0 border=0 width="400">
  <tr>
    <td>
	<table width=100% border=0 cellspacing=1 cellpadding=2 class=tab>
		<tr><td nowrap align=center class=tdtop>公文办理开始</td></tr>
	</table>
    </td>
  </tr>
  <tr>
    <td>
	<table width=100% border=0 cellspacing=0 cellpadding=2 style="border-collapse:collapse">
		<tr style="background-color:#ffffff;">
			<td align=right width=50%><b>↓</b></td>
			<td align=left width=50% nowrap>←<a href='javascript:doedit("",0,"","")'>插入工作点</a><td>
		</tr>
	</table>
    </td>
  </tr>
  <tr>
    <td>
        <table width=100% border=0 cellspacing=1 cellpadding=2 class=tab>
		<tr><td nowrap align=center class=tdtop>公文待归档</td></tr>
	</table>
    </td>
  </tr>
</table>
<%
end if

rs.Close
set rs=nothing
set rs1=nothing
%>
<br>
</body>
</html>

<%'释放对象变量
oConn.close
%>
💿 文件大小 12029 K
👤 上传用户 qx19860213
📂 所属分类其他
🏷️ 相关标签

#OFFICE #办公自动化
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -