财务共享中心计件需求

计件库FormJs针对对应表单修改

sumit_checkForJJ()

流程信息子表单增加字段

计件认领标记：StClaimFlag
计件认领人：StClaimUserEN
认领人存储：StClaimUserENTmp
认领日期：StClaimDate
提交前环节名称：TFPreNodeName

共享域$$HTMLHEAD增加js引入

claimserver:=@If(@Contains(@LowerCase(@ServerName);"test");"dcgoatest1";"dcgoa1");


+"<script src='http://"+claimserver+".digitalchina.com/Application/DigiFlowClaim.nsf/FormJS?openjavascriptlibrary'></script>"

提交按钮增加检测

//计件检测不通过，不允许提交
if(!sumit_checkForJJ()){
	GuanJunKK_ButtonFlag="yes";
}

驳回按钮增加检测

//计件检测不通过，不允许操作
if(!sumit_checkForJJ()){
	return false;
}

创建ws使用者

shareCenterLog
http://dcgoa1.digitalchina.com:80/Application/TiDbLog.nsf/shareCenterLog_ws?OpenWebService

流程初始化（具体表单与环节需修改）

'已认领，并且操作者是认领人，记录日志
	If doc.StClaimFlag(0) = "yes" And doc.StClaimUserEN(0) = doc.CurUserITCode(0) Then
		Dim logs As New LogPort
		Dim logServer As String
		Dim logPath As String
		Dim Itcode As String
		Dim nodename As String
		Dim logFlag As Boolean
		logServer = db.Server
		logpath = db.Filepath
		itcode = doc.CurUserITCode(0)
		nodename = doc.TFCurNodeName(0)
		logFlag = false
		If doc.Form(0) = "AppMPayForm" Then
			If nodename = "应付岗审批" Or nodename = "应付岗制证" Or nodename = "应收岗制证" Then
				logFlag = True
			End If
		ElseIf doc.Form(0) = "AppPPayForm" Or doc.Form(0) = "AppWTForm" Then
			If nodename = "应收岗制证" Then
				logFlag = true
			End If
		End If
		
		If logFlag Then
			Call logs.Addlog(logServer, logPath, doc.Universalid, itcode, "open", "")
		End If
	End If

流程流转控制（具体表单与环节需修改）

'已认领，并且操作者是认领人，记录日志
	If doc.StClaimFlag(0) = "yes" And doc.StClaimUserEN(0) = doc.CurUserITCode(0) Then
		Dim logs As New LogPort
		Dim logServer As String
		Dim logPath As String
		Dim Itcode As String
		Dim nodename As String
		Dim operate As String
		Dim logFlag As Boolean
		logServer = db.Server
		logpath = db.Filepath
		itcode = doc.CurUserITCode(0)
		nodename = doc.TFPreNodeName(0)
		operate = doc.TFCurNodeDoOption(0) + "_" + doc.TFCurNodeDoOptionType(0)
		logFlag = False
		If doc.Form(0) = "AppMPayForm" Then
			'应付岗制证环节清楚认领标记，以便应收岗认领
			If doc.TFCurNodeDoOptionType(0) = "ZC" And nodename = "应付岗制证" Then
				doc.StClaimFlag = ""
			End If
			If nodename = "应付岗审批" Or nodename = "应付岗制证" Or nodename = "应收岗制证" Then
				logFlag = True
			End If
		ElseIf doc.Form(0) = "AppPPayForm" Or doc.Form(0) = "AppWTForm" Then
			If nodename = "应收岗制证" Then
				logFlag = True
			End If
		End If
		
		If logFlag Then
			Call logs.Addlog(logServer, logPath, doc.Universalid, itcode, operate, "")
		End If
	End If