关于工作流的问题！我的工作流脚本代码

storm97 2002-04-04 04:41:26
Sub completed_OnEnter
Delete1_OnDelete
End Sub

Sub denied_OnEnter
Delete2_OnDelete
End Sub

Function Create_OnCreateValidate
If workflowsession.fields("FeatureRequestStatus")="Submitted" Then
Create_OnCreateValidate=true
WorkflowSession.ItemAuthors.Add "administrator@oaserver.exchange", 0
else
Create_OnCreateValidate = false
End If

End Function

function Create_OnCreate
LogAudit
SendMessage "lussia","ProdMgmt: New Feature Request","Marketing has submitted a new feature request for your approval."
End function

Function complete_OnChangeValidate
If workflowsession.fields("FeatureRequestStatus")= "Completed" Then
complete_OnChangeValidate=true
else
complete_OnChangeValidate = false
end if
End Function

function complete_OnChange
LogAudit
SendMessage "lussia","Marketing and ProdMgmt: Feature Complete","Development has completed the new feature."
SendMessage "administrator","Marketing and ProdMgmt: Feature Complete","Development has completed the new feature."
End function

Function deny_OnChangeValidate
If workflowsession.fields("FeatureRequestStatus")= "Denied" Then
deny_OnChangeValidate=true
denied_OnEnter
else
deny_OnChangeValidate = false
end if
End Function

function deny_OnChange
LogAudit
SendMessage "administrator","Marketing: Feature Denied","Product management has denied a new feature request."
End function


Function approve_OnChangeValidate
If workflowsession.fields("FeatureRequestStatus")="Approved" Then
approve_OnChangeValidate=true
else
approve_OnChangeValidate = false
end if
End Function

function approve_OnChange
LogAudit
SendMessage "michael","Dev Team: Feature Approval","Product management has approved a new feature."
End function


Sub Delete1_OnDelete
LogAudit
SendMessage "administrator","Marketing and ProdMgmt: Feature Complete","Development has completed the new feature.is deleted"
End Sub

Sub Delete2_OnDelete
LogAudit
SendMessage "administrator","Marketing and ProdMgmt: Feature Complete","Development has completed the new feature.is deleted"
End Sub


Sub SendMessage(msgTo, msgSubject, msgBody)
Set objMessage =workflowsession.getNewWorkflowMessage
objMessage.To = msgTo & "@" & workflowsession.domain
objMessage.From = "administrator@oaserver.exchange"
objMessage.Subject = msgSubject
htmlBody = "<html><body>"
htmlBody = htmlBody & "<p>" & msgBody & "<p>"
htmlBody = htmlBody & "<p>Title of request: " & workflowsession.fields("DAV:displayname") & "<p>"
htmlBody = htmlBody & "<p>Please <a href=""http://" & workflowsession.server
htmlBody = htmlBody & "/testapp/test/"
htmlBody = htmlBody & workflowsession.fields("DAV:displayname") & """"
htmlBody = htmlBody & ">Click here</a> to open the request.</p>"
htmlBody = htmlBody & "</body>"
htmlBody = htmlBody & "</html>"
objMessage.textbody = htmlBody
objMessage.Send
set objMessage=nothing

End Sub

Sub LogAudit()
Dim strDebug
strDebug = vbCrLf
strDebug = strDebug & WorkflowSession.StateFrom & " -> " & WorkflowSession.StateTo
WorkflowSession.AddAuditEntry strDebug
End Sub
workflow designer是office xp开发版带的version 7.0.9064
...全文
86 13 打赏 收藏 转发到动态 举报
写回复
用AI写文章
13 条回复
切换为时间正序
请发表友善的回复…
发表回复
storm97 2002-04-09
  • 打赏
  • 举报
 回复
没人帮我看看是什么问题？我另开贴给分！分太少了！
AChu 2002-04-09
  • 打赏
  • 举报
 回复
已经搞定之
注意Validate处不能有if then………………
直接用
xxx_OnxxxxValidate=cbool(workflowsession.fields("xxx")="xxxx")

试验成功了！
storm97 2002-04-09
  • 打赏
  • 举报
 回复
你的e-mail是什么！
我把工作流图片发给你！上面有转换动作的名称和状态改变
通过代码和工作流图就能查清了！你用的workflow designer是什么版本？
我有workflow designer是office xp开发版带的version 7.0.9064
和workflow designer for exchange 2000 server version 1.0.8896
storm97 2002-04-09
  • 打赏
  • 举报
 回复
我用的是office xp开发版的那个workflow designer,那个东东好像
是不能导出XML!
徐春华 2002-04-09
  • 打赏
  • 举报
 回复
我再看了一下,你能否将你的workflow desinger项目发给我,我想是你设计中对某些应该实现的状态转换没有实现,仅从你上面的代码还是看不出错在哪里.
Advance was called with event type OnCreate, but no matching actions were found.
就是我上面所说的原因造成的.

如发项目文件不方便,可否将ACTION表发给我呢?
徐春华 2002-04-08
  • 打赏
  • 举报
 回复
根据我的经验,你可以在做删除/增加等操作后,检查一下是否在事件查看器中有没有相关的出错信息.
storm97 2002-04-08
  • 打赏
  • 举报
 回复
你指的是窗体注册的相关信息还是工作流时间注册的相关信息！？
工作流注册信息?
工作流产生以下两个注册文件：onsyncsaveDeleteEventRegistration和
OnTimerEventRegistration
他们的(DAV:contentclasses)=("urn:content-class:storeeventreg")
文件夹的permissions我已经给每个人都设为了full control
为什么不行啊？
storm97 2002-04-08
  • 打赏
  • 举报
 回复
那好象你的意思就是要重新安装exchange server服务器了？
x_space 2002-04-08
  • 打赏
  • 举报
 回复
我也遇到过类似的问题。我记得是这样引发的，我直接在服务器上的工作流目录中用资源管理器删除一个工作流文件项目。在此使用工作流的时候就出现这个问题（工作流的修改部可以保存）。我想这主要是因为我在工作流引擎外部直接修改项目，引起附着在上面的事件注册管理出错。
问题的解决方法我还没有找到。好像删除目录重新建立也不行，我想是不是破坏了exchange的事件管理机制。
storm97 2002-04-08
  • 打赏
  • 举报
 回复
应用程序日志显示：
（1）workfloweventsink
Workflow event sink error [event: OnSyncSave, URL: <file://./backofficestorage/oaserver.exchange/workflow/box/confirm.asp>]: <lockdiscovery xmlns="DAV:"></lockdiscovery>
（2）workfloweventsink
Workflow event sink error [event: OnSyncSave, URL: <file://./backofficestorage/oaserver.exchange/workflow/box/confirm.asp>]: 多步 OLE DB 操作产生错误。如果可能，请检查每个 OLE DB 状态值。没有工作被完成。
(3)exwin32
The Exchange IFS failed to commit changes to the database for \OASERVER.EXCHANGE\workflow\BOX\CONFIRM.ASP because of error 80040e92. Changes related to this object may have been lost.

For more information, click http://www.microsoft.com/contentredirect.asp.
(4)workflowaudittrail
<file://./backofficestorage/oaserver.exchange/workflow/box/12>: State transition error: Advance was called with event type OnCreate, but no matching actions were found.
(5)workflowaudittrail
<file://./backofficestorage/oaserver.exchange/workflow/box/1>: State transition error: Advance was called with event type OnCreate, but no matching actions were found.
(6)workfloweventsink
Workflow event sink error [event: OnSyncDelete, URL: <file://./backofficestorage/oaserver.exchange/workflow/box/bbb>]: 拒绝访问。
徐春华 2002-04-05
  • 打赏
  • 举报
 回复
对不起，你用的是workflow desinger，请用exchange explorer来查看相关的注册信息。
徐春华 2002-04-05
  • 打赏
  • 举报
 回复
不知道你用的是VB程序写的注册代码，还是用exchange explorer来进行注册的，请告诉我以下几件事：
（1）你的注册代码或者关键信息，指你在生成注册文件时的主要参数，如DAV:content-classes,cretira等。
（2）你在工作流目录的安全信息，请在exchange 的system manager中查看相应folder的确良pemissions.
storm97 2002-04-05
  • 打赏
  • 举报
 回复
当我把工作流应用到文件夹得时候，对该文件夹我就只有读权限了！
没有写和删的权限！我是用ADO创建新项目的！应用工作流以后就不能
用ADO创建新项目了！CDO也不行！请指教
Flowable流程高级课程
本课程是《Flowable流程入门课程》的后续高级课程。在学习本课程前，应先学习入门课程，以掌握相关基础知识。高级课程着重讲解Flowable工作流的高级概念、复杂理论和实战应用。课程内容包括流程管理思想、技术与标准、工作流的控制模式和资源模式；Flowable数据库表及变量；与Spring、Spring Boot的集成；BPMN 2.0主要类图；Flowable高级服务如JAVA服务任务、脚本任务、Web Service任务、外部工作者任务、多实例任务、补偿处理程序、子流程和调用活动等；Flowable事件侦听器、执行侦听器和任务侦听器；Flowable历史和REST API；Flowable事务、并发性、身份管理及LDAP集成；Flowable高级主题如流程实例迁移、异步执行器的设计与配置、用于高并发的UUID ID生成器、多租户、高级流程引擎配置、执行自定义SQL和实验性流程调试器等；Flowable Eclipse设计器特性及定制；Flowable 事件注册；Flowable相关标准和规范如ISO8601标准和cron等。本课程对Flowable官方文档进行了彻底梳理和融汇贯通，并结合实践，形象生动、系统全面、简单易懂地呈现给大家，让大家从开源软件文档冗长耗时、英文晦涩难懂、概念理解困难、知识点分散等困境中解脱出来，从而能快速地将Flowable具有的高级特性应用到项目的高级需求和复杂实践中去。课程特色：案例和代码驱动、基础概念与经典实战相结合、知识环节融会贯通、关联知识平滑拓展、概念和原理展示形象生动。
DolphinScheduler 能用 Python 脚本编排工作流了！PyDolphinScheduler 简介与使用演示
点亮⭐️Star · 照亮开源之路重要功能介绍2.0.5 版本更新之后，Apache DolphinScheduler 新增了 Python API 功能，用户可以通过 Python 脚本编排工作流，最后实现工作流的创建、更新、调度等操作，这给 Python 用户带来了很多便利。Apache DolphinScheduler 是一个分布式、高扩展性的可视化开源工作流任务调度框架，适用于企业级...
金蝶EAS BOS工作流开发（附带JAVA脚本）
1.  流程配置基本知识及示例 1.1. 重要概念 1.1.1．流程变量 流程变量是工作流引擎和业务系统的数据交互的桥梁。 工作流承载业务，驱动业务流程，但是不会执行业务。工作流中的业务执行，全部都会委托给具体的业务模块执行。那么，这些被工作流分割的业务功能，在工作流中被调用执行的时候，如何保证做操作的数据的一致性？ 通过流程变量，在每一步的业务功能执行的过程中，将业务数据保存在流程变量
一个工作流引擎脚本语言底层模型及实现
介绍了如何构建复杂工作流的底层脚本架构
采用springboot+flowable快速实现工作流
前言 工作流框架大家一定不陌生，各种OA系统里我们常常用到。 对于JAVA领域来说一说起工作流框架第一浮现我在脑海中的便是大名鼎鼎的Activiti了。很久以前学习Activiti框架时我也曾记录过一篇文章。见链接：工作流框架Activiti常用功能初探 尽管当时只是学习了一下在之后的相关工作和项目中并没有用到，通过学习后了解了下， 仅对于知识广度进行了扩宽。...
消息协作

535

社区成员

39,101

社区内容

发帖
与我相关
我的任务
社区描述
企业开发 Exchange Server
社区管理员
  • 消息协作社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章