📄 f_point_index_bl.asp
字号:
<%
'功能：公文工作流程设置-工作点列表
'作者：展亮
'时间：2003-12-15 19:31
%>
<!--#include file="../inc/NoCatch.asp"-->
<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/Conn.asp"-->
<!--#include file="../inc/Const.asp"-->
<%
'------------------------------------------------设置参数
sRecordID=Request("RecordID")
sdqgzdxh=Request("dqgzdxh")
sblxh=request("blxh")
'------------------------------------------------
if sRecordID="" then
call MsgOut("没有指定公文号","javascript:history.back()",1)
oConn.close
set oConn=nothing
Response.End
end if
'------------------------------------------------取记录
set rs=server.CreateObject("ADODB.recordset")
rs.open "Select Subject from tbioaOffice_Document where RecordID='" & sRecordID & "'" ,oConn,1,1
if rs.eof then
call MsgOut("指定的公文不存在","javascript:history.back()",1)
rs.close
set rs=nothing
oConn.close
set oConn=nothing
Response.End
end if
'------------------------------------------------赋值
slcmc=rs("Subject")
'------------------------------------------------
'当前此公文的最大办理序号所对应的工作点序号，就是当前处理中的工作点
'有办理记录并且这些记录中至少有一条未处理的办理记录所对应的工作点
'即为当前处理中工作点
sql_dqgzd="SELECT GZDXH FROM tbioaOffice_Flow_Blqk WHERE (BLXH = (SELECT MAX(blxh) FROM tbioaOffice_Flow_Blqk WHERE RecordID = '"&sRecordID&"')) AND (RecordID = '"&sRecordID&"')"
'Response.Write sql_dqgzd
set rs_dqgzd=createobject("adodb.recordset")
rs_dqgzd.Open sql_dqgzd,oConn,1,1
if not (rs_dqgzd.EOF and rs_dqgzd.BOF) then
sdqgzdxh=rs_dqgzd("gzdxh") '当前工作点序号
end if
rs_dqgzd.Close
set rs_dqgzd=nothing
'------------------------------------------------
%>
<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="F_Point_Edit.asp"
frmcz.submit
end sub
sub doSC(sgzdxh)
if msgbox("是否确定要删除选定的工作点?相关的信息会一并被删除",vbquestion+vbyesno,"删除确认")=vbno then exit sub
frmcz.gzdxh.value=sgzdxh
frmcz.action="F_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"> 设置工作点－<%=server.HTMLEncode(slcmc)%></td>
<td align=right valign=bottom>
<input type=button class="button0" value="关闭" id=bQuery name=del_button onclick="javascript:window.close()">
</td></tr>
</table>
<hr width="100%" size=1 color="#000000">
<br>
<table width=98% border=0 align=center>
<tr valign=center><td align=center>
<b>工作点情况
</td>
</tr>
</table>
<form id=frmcz method=post>
<input type=hidden id=RecordID name=RecordID value=<%=sRecordID%>>
<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 a,tbioaOffice_Flow_Bldy b " _
& "where a.RecordID='" & sRecordID & "' " _
& "and a.gzdxh not in(" _
& "select zgzdxh as gzdxh from tbioaOffice_Flow " _
& "where RecordID='" & sRecordID & "') " _
& "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>
<%
if clng(sdqgzdxh)=0 then '没有当前工作点序号则都可编辑
bEditable=true
else
bEditable=false
end if
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 Where RecordID='" & sRecordID & "' 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 Where RecordID='" & sRecordID & "' 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=td2><%=server.HTMLEncode(rs("blgzmc"))%></td>
<%if bEditable then%>
<td nowrap width=225 class=td2><a href='javascript:doedit("<%=rs("gzdxh")%>","<%=ssPrev%>","<%=ssPrevType%>","<%=ssNextType%>")'><%=server.HTMLEncode(rs("gzdmc"))%></a></td>
<%else%>
<td nowrap width=225 class=td2><%=server.HTMLEncode(rs("gzdmc"))%></td>
<%end if%>
<td width=55 nowrap class=td2 align=center>
<%if bShowDel and bEditable then
sclass="td1"
%>
<a href='javascript:doSC(<%=rs("gzdxh")%>)'><img src="../images/icon_dele1.gif" border=0 alt="删除"></a>
<%elseif not bEditable then%>
<%if clng(sdqgzdxh)<>rs("gzdxh") then
sclass="tdBottom"
%>
<img src="../images/icon_ok.gif" border=0 alt="已办理" >
<%elseif clng(sdqgzdxh)=rs("gzdxh") then
sclass="td2"
%>
<font color=000080>办理中</font>
<%end if%>
<%end if%>
</td>
</tr>
<tr>
<td colspan=3 class=<%=sclass%>><a style="cursor:default" title=<%=Server.HTMLEncode(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 "一人完成继续"%>
</td>
<td colspan=2 class=tdbottom>
<%if rs("tqqx") & ""="1" then Response.Write "<font color='green'>√退签</font>" else Response.Write "<font color='red'>×退签</font>"%>
<%if rs("jqqx") & ""="1" then Response.Write "<font color='green'>√加签</font>" else Response.Write "<font color='red'>×加签</font>"%>
<%if rs("cxqx") & ""="1" then Response.Write "<font color='green'>√撤销</font>" else Response.Write "<font color='red'>×撤销</font>"%>
</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>
<%
'如果当前点序号和循环序号相同则从此点后可编辑
if clng(sdqgzdxh)=rs("gzdxh") then
bEditable=true
end if
%>
<%if bEditable then%>
←<a href='javascript:doedit("","<%=rs("gzdxh")%>","<%=rs("blgzbh") & ""%>","<%=ssNextType%>")'>插入工作点</a>
<%end if%>
<td>
</tr>
</table>
</td>
</tr>
<%
'取得下一点的信息
lfirst=rs("gzdxh")
rs.Close
rs.Open "select a.*,c.blgzmc from tbioaOffice_FlowPoint a,tbioaOffice_Flow b,tbioaOffice_Flow_Bldy c " _
& "where a.RecordID='" & sRecordID & "' " _
& "and a.RecordID=b.RecordID " _
& "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>
</table>
<br><center>
<%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
%>
</body>
</html>
<%'释放对象变量
oConn.close
%> ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -