document_editsave.asp

来自「OFFICE办公自动化」· ASP 代码 · 共 533 行 · 第 1/2 页

		    		zblgzd = "销毁"
		    	case "CX"
		    		zblgzd = "撤销"
		    	case else
		    		set rs1 = server.CreateObject("ADODB.RecordSet")
		    		rs1.Open "select blgzmc from tbioaOffice_Flow_Bldy where blgzbh='" & zblgzdbh & "'",oConn,1,1
		    		if not rs1.EOF then
		    			zblgzd = server.HTMLEncode(rs1(0) & "")
		    		end if
		    		rs1.close
		    end select
                    body=body&"办理状态："&zblgzd

                    'call AgentSysMsg(array_yglb(i),body)'OA精灵提醒
               next

             '修改属性表
             zsql="update tbioaOffice_Document set Step='"&zblgzdbh&"' where RecordID='"&gwxh&"'"
             oConn.execute(zsql)
         end if

     end if
end function
'-------------------------------------------------------
'-------------------------------------------------------'撤销
function czlx_chexiao(gwxh,blxh)
     dim csql
     csql="update tbioaOffice_Flow_Blqk set blbz='Y' where RecordID='"&gwxh&"' and blxh="&blxh
     oConn.execute csql
     csql="update tbioaOffice_Document set Step='CX',cxblxh="& blxh &" where RecordID='"&gwxh&"'"
     oConn.execute(csql)
end function
'-------------------------------------------------------
'-------------------------------------------------------'加签
function czlx_add(gwxh,blxh,jqyg) '加签
     dim Asql,Ars
     dim array_jqyg

     call gwlz_pub1(gwxh,blxh)'把已办理的工作点修改标志置为不可修改

     set Ars=createobject("adodb.recordset")
     array_jqyg=split(jqyg,",")
     Asql="select * from tbioaOffice_Flow_Blqk where RecordID='"&gwxh&"' and blxh="&blxh
     Ars.Open Asql,oConn,1,1
     if not Ars.EOF and not Ars.BOF then
             Agzdxh=Ars("gzdxh")
             Ablgzdbh=Ars("gzdbh")
             Aclsx=Ars("clsx")
             Atjlzbj=Ars("tjlzbj")
     end if
     Ars.close


     '一人流转则先删除同级其它记录
     if Atjlzbj="0" then
        Asql="delete from tbioaOffice_Flow_Blqk where RecordID='"&gwxh&"' and gzdxh="&Agzdxh&" and blbz<>'Y'"
        oConn.execute(Asql)
     end if

     '新增记录
      for i=lbound(array_jqyg) to ubound(array_jqyg)
         Asql="select max(blxh) from tbioaOffice_Flow_Blqk where RecordID='"&gwxh&"'"
         Ars.Open Asql,oConn,1,1
             count=Ars(0)
         Ars.close

         Ars.Open "tbioaOffice_Flow_Blqk",oConn,3,2
         Ars.addnew
         Ars("RecordID")=gwxh		'公文编号
         Ars("blxh")=count+1		'办理序号
         Ars("gzdbh")=Ablgzdbh		'办理工作编号(工作定义编号)
         Ars("gzdxh")=Agzdxh		'工作点序号
         Ars("blr")=array_jqyg(i)	'办理人ID
         Ars("xgbz")="1"		'1 修改标志(1可修改)
         Ars("blbz")="N"		'办理标志（N）
         Ars("zcbz")="2"		'2加签
         Ars("tjlzbj")=Atjlzbj		'流转标志（1全部完成继续/0一人完成继续）
         Ars("clsj")=date()		'处理开始时间
         Ars("clsx")= Aclsx		'处理结束时间
         Ars("lygzdxh")=Agzdxh		'工作点序号
         Ars("lyblxh")=blxh		'办理序号
         Ars.update
         Ars.close

         'OA精灵提醒
	 set rs1=Server.CreateObject("ADODB.RecordSet")
	 sql="select * from tbioaOffice_Document where RecordID='"&gwxh&"'"
	 rs1.open sql,oConn,1,1
         body="你收到一条由"""&Session("RealName")&"""交办的公文："&vbcrlf&vbcrlf
         body=body&"公文标题："&rs1("Subject")&vbcrlf
         body=body&"公文类型："&rs1("DocType")&vbcrlf
         body=body&"紧急程度："&rs1("DC_Doc_Exigence")&vbcrlf
         rs1.close
		select case sblgzdbh
			case "FW"
				zblgzd = "发文拟制"
			case "SW"
				zblgzd = "收文登记"
			case "GD"
				zblgzd = "待归档"
			case "XH"
				zblgzd = "销毁"
			case "CX"
				zblgzd = "撤销"
			case else
				set rs1 = server.CreateObject("ADODB.RecordSet")
				rs1.Open "select blgzmc from tbioaOffice_Flow_Bldy where blgzbh='" & Ablgzdbh & "'",oConn,1,1
				if not rs1.EOF then
					zblgzd = server.HTMLEncode(rs1(0) & "")
				end if
				rs1.close
		end select
         body=body&"办理状态："&zblgzd

         'call AgentSysMsg(array_jqyg(i),body)'OA精灵提醒
     next

end function
'-------------------------------------------------------
'-------------------------------------------------------'退签
function czlx_back(gwxh,blxh,gzdxh)
     dim bsql,brs,bgzdxh,count
     dim syglb,sgzdxh,sblgzbh,sgzsx,slzbz
     set brs=createobject("adodb.recordset")
      bsql="select sgzdxh from tbioaOffice_Flow where RecordID='"& gwxh &"' and zgzdxh=" & gzdxh
      brs.Open bsql,oConn,1,1
      if brs.EOF and  brs.EOF then
         call error_wer("节点错误")
      exit function
      end if
     brs.close

     '删除此公文所有未办理记录
     bsql="delete from tbioaOffice_Flow_Blqk where RecordID='"&gwxh&"' and blbz='N'"
     oConn.execute(bsql)

     '修改所有可修改记录为不可修改
     bsql="update tbioaOffice_Flow_Blqk set xgbz='0' where RecordID='"&gwxh&"'"
     oConn.execute(bsql)

     '寻找上级工作点
     bsql="select * from tbioaOffice_FlowPoint where RecordID='"&gwxh&"' and gzdxh=(select sgzdxh from tbioaOffice_Flow where RecordID='"& gwxh &"' and zgzdxh=" & gzdxh &")"
     brs.Open bsql,oConn,1,1

     if not brs.EOF and not brs.BOF then
        bxyblr=GetTableValue("tbioaOffice_Flow_Bldy","xyblr","blgzbh",brs("blgzbh"))
        if bxyblr=0 then
          syglb=brs("blrylb")	'办理人列表
        else
         syglb=GetTableValue("tbioaOffice_Document","Author","RecordID",gwxh)	'办理人列表
        end if
        sgzdxh=brs("gzdxh")
        sblgzdbh=brs("blgzbh")
        sgzsx=brs("gzsx")
        slzbz=brs("lzbz")
     end if
     brs.close

     ssgzsx=formatdatetime(dateadd("D",sgzsx,now()),2)
     dim array_yglb
     array_yglb=split(syglb,",")
     '新增记录
     for i=lbound(array_yglb) to ubound(array_yglb)
         bsql="select max(blxh) from tbioaOffice_Flow_Blqk where RecordID='"&gwxh&"'"
         brs.Open bsql,oConn,1,1
             count=brs(0)
         brs.close

         brs.Open "tbioaOffice_Flow_Blqk",oConn,3,2
         brs.addnew
         brs("RecordID")=gwxh		'公文编号
         brs("blxh")=count+1		'办理序号
         brs("gzdbh")=sblgzdbh		'办理工作编号(工作定义编号)
         brs("gzdxh")=sgzdxh		'工作点序号
         brs("blr")=array_yglb(i)	'办理人ID
         brs("xgbz")="1"		'1 修改标志(1可修改)
         brs("blbz")="N"		'办理标志（N）
         brs("zcbz")="3"		'3退签
         brs("tjlzbj")=slzbz		'流转标志（1全部完成继续/0一人完成继续）
         brs("clsj")=date()		'处理开始时间
         brs("clsx")= ssgzsx		'处理结束时间
         brs("lygzdxh")=gzdxh		'工作点序号
         brs("lyblxh")=blxh		'办理序号
         brs.update
         brs.close

         'OA精灵提醒
	 set rs1=Server.CreateObject("ADODB.RecordSet")
	 sql="select * from tbioaOffice_Document where RecordID='"&gwxh&"'"
	 rs1.open sql,oConn,1,1
         body="你收到一条被退签的公文："&vbcrlf&vbcrlf
         body=body&"公文标题："&rs1("Subject")&vbcrlf
         body=body&"公文类型："&rs1("DocType")&vbcrlf
         body=body&"紧急程度："&rs1("DC_Doc_Exigence")&vbcrlf
         rs1.close
		select case sblgzdbh
			case "FW"
				zblgzd = "发文拟制"
			case "SW"
				zblgzd = "收文登记"
			case "GD"
				zblgzd = "待归档"
			case "XH"
				zblgzd = "销毁"
			case "CX"
				zblgzd = "撤销"
			case else
				set rs1 = server.CreateObject("ADODB.RecordSet")
				rs1.Open "select blgzmc from tbioaOffice_Flow_Bldy where blgzbh='" & sblgzdbh & "'",oConn,1,1
				if not rs1.EOF then
					zblgzd = server.HTMLEncode(rs1(0) & "")
				end if
				rs1.close
		end select
         body=body&"办理状态："&zblgzd

         'call AgentSysMsg(array_yglb(i),body)'OA精灵提醒
     next

     '修改属性表
     bsql="update tbioaOffice_Document set Step='"&sblgzdbh&"' where RecordID='"&gwxh&"'"
     oConn.execute(bsql)
end function
'-------------------------------------------------------

'-------------------------------------------------------判断操作类型(mCZLX)
if mCZLX="" then
   call error_wer("缺少必要参数")
end if

select case mCZLX
       case "add"	'加签
          jqygbh=request.Form("jqygbh")
          call czlx_add(mRecordID,mBLXH,jqygbh)
       case "chexiao"	'撤销
          call czlx_chexiao(mRecordID,mBLXH)
       case "back"	'退签
          call czlx_back(mRecordID,mBLXH,gzdxh)
       case "zclz"	'正常流转
          call czlx_zclz(mRecordID,mBLXH)
end select

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

'-------------------------------------------------------错误处理
function error_wer(info)
    oConn.RollBackTrans
    oConn.close
    set oConn=nothing
    %><script language="javascript">alert("<%=info%>"); history.back()</script><%
    Response.end
end function
'-------------------------------------------------------
'=====================================================================================
oConn.CommitTrans
%>

<script language=javascript>
  opener.location.reload();
  window.close();
</script>


<%'释放对象变量
<!--#include file="../inc/conn_close.asp"-->
%>