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

lotusscript基础有关问题

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

 

lotusscript基础问题
Sub Initialize
On Error Goto er
Dim session As New notessession
Dim doc As notesdocument
Dim sURL As String
Dim filepath As String 

Set mUtil = New Util
Set mOAfactory = New OAfactory

Dim db_WF As NotesDatabase
Set db_WF = mOAfactory.getSelfWF()
Set mWorkFlow = New WorkFlow(db_WF)
Set mDispense = New Dispense
Set mFlowLog = New FlowLog

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 = "当前文档已被占用,请稍候重新打开此文件进行操作。"
Goto ResultMsg
End If

Call setreaddoc(doc) 
Dim CurAppDoc As New AppDoc(doc)

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

If gotLock Then
releaseLock = Codeunlock(lockID)
deleteLock=Destroylock(lockID)
End If
ResultMsg:
Print |<script>|
If sAlert <> "" Then
Print |alert("| + sAlert + |");|
End If
CurStepSendType = doc.fld_CurStepSendType(0)
usernameV = Evaluate("@name([ABBREVIATE];@username)",doc)

  If CurStepSendType="11" Or CurStepSendType="8" Or CurStepSendType="6" Or CurStepSendType="23"Or CurStepSendType="25" Then
Print |parent.location.href = "|+ sURL +|";|
Else
Print |self.close()|

End If

Print |</script>|

Exit Sub
er:
Set mError=New FlowError
Call mError.TreatWithError("Sub ini,Agent AG_WkSave")
End Sub

分析解析,我实在是看不懂。谢谢!

--参考方法--
Set mUtil = New Util
Set mOAfactory = New OAfactory

这两个类的 定义代码没给出来啊,
--参考方法--
BS里面生成JAVASCRIPT来做什么跳转之类的?类库么给
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

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