欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

lotusscript简略代理

更新时间: 2014-01-05 03:00:59 责任编辑: Author_N1

 

lotusscript简单代理
Sub Initialize

Dim session As New notessession
Dim doc As notesdocument
Dim sURL As String
Dim filepath As String 

Dim db_WF As NotesDatabase
Set db_WF = mOAfactory.getSelfWF()

filepath = Replace(session.CurrentDatabase.FilePath, "\", "/")
sURL = Lcase("/" + filepath)

Dim sAlert As String
sAlert = ""
Set doc = session.DocumentContext

If doc.UniversalID=doc.fld_CurrentDocUNID1(0) Then
doc.saveoptions="1"
Else
sAlert = "当前文档已被占用,请稍候重新打开此文件进行操作。"
End If

Dim TmpDoc As NotesDocument
Dim dc_WF As NotesDocumentCollection
Dim doc_WF As NotesDocument
Dim DB As NotesDatabase
Set DB = session.CurrentDatabase

End Sub

是什么意思,可以的话,都帮忙注释一下,谢谢。
--参考方法--


Sub Initialize

Dim session As New notessession
Dim doc As notesdocument
Dim sURL As String
Dim filepath As String 

Dim db_WF As NotesDatabase
Set db_WF = mOAfactory.getSelfWF() 
%REM
mOAfactory是一个自定义类的实体对象,因该是已经初始化过的全局变量,它用getSelfWF()方法返回一个数据库对象,估计这个数据库是存储工作流数据的,从名字来开那个mOAfactory对应的是一个工作流类,db_WF就是工作流所在的数据库
%END REM

filepath = Replace(session.CurrentDatabase.FilePath, "\", "/")
sURL = Lcase("/" + filepath)
%REM
filepath 里取得的是当前数据库的WEB浏览器访问时的数据库路径信息
%END REM

Dim sAlert As String
sAlert = ""
Set doc = session.DocumentContext
%REM
doc 就是在WEB浏览器里激活这个代理时那个界面对应的文档,如果界面是视图对应的是一个后台默认的临时文档,这个文档的特殊性: 可以用它访问当前会话的系统变量,比如: Remote_User, 用的doc.Remote_User(0)可以得到当前登录的用户名。
%END REM

If doc.UniversalID=doc.fld_CurrentDocUNID1(0) Then
doc.saveoptions="1"
Else
sAlert = "当前文档已被占用,请稍候重新打开此文件进行操作。"
End If
%REM
当某个用户打开当前文档编辑时,有个程序在字段fld_CurrentDocUNID1里保存了当前文档的Universal ID,关闭时会有另一个程序清空它,如果没有清空,第2个试图编辑它的人会看到那个提示(就是上面那个判断),目的是防止产生冲突文档。
%END REM
Dim TmpDoc As NotesDocument
Dim dc_WF As NotesDocumentCollection
Dim doc_WF As NotesDocument
Dim DB As NotesDatabase
Set DB = session.CurrentDatabase

End Sub


上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 03:00:59
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/17285/
本文WWW.DOC100.NET DOC100.NET版权所有。