Domino webservice开发实例

1、在Domino Designer 新建webservice提供者

2、代码

Dim s As NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument

Class approveInfoUpdate
   Sub NEW
       Set s = New NotesSession
       Set db = s.CurrentDatabase
       Set doc=s.DocumentContext
   End Sub

   Function changeDocInfo(docId As String, operationType As String, opi As String) As String
       On Error Goto err_handle
       Dim tempdoc As NotesDocument
       Dim resultInfo As String

       resultInfo = ""
       If docId <>"" And operationType <> "" Then
           Set tempdoc = db.GetDocumentByUNID(docId)

           Dim Item As NotesItem
           Dim PrevStatus As Variant
           Dim itemCourse As NotesItem
           If operationType = "0" Then
               Set Item = tempdoc.Getfirstitem("PrevStatus")
               PrevStatus = Split(Item.Values(0),"|")
               tempdoc.status_num = PrevStatus(0)
               tempdoc.status_type = "0"
               tempdoc.Status = PrevStatus(1)
               tempdoc.Status_UNID = PrevStatus(2)
               tempdoc.Cur_approver = tempdoc.qicaozuoz(0)

               Set itemCourse = tempdoc.getfirstitem("HowDo_Crouse")
               Call itemCourse.AppendToTextList(opi + Cstr(Now) + ")" & Chr(13) & Chr(10))
               Call tempdoc.save(True,False)

               Call writeFlowInfoToSQL(tempdoc)
               resultInfo = "toDraft"
           Elseif operationType = "1" Then
               If tempdoc.Status(0) = "Dept Leader" Then
                   Dim Lastmodified As Variant
                   Lastmodified = Evaluate("@Text(@Modified)",tempdoc)
                   tempdoc.f_lastSaveTime = Lastmodified(0)

                   tempdoc.HowDo = opi
                   Call getLiuXiang(db,tempdoc)

                   Dim cfgview As NotesView
                   Dim cfgdoc As NotesDocument
                   Dim itemA As NotesItem
                   Dim next_approver As String
                   next_approver =""

                   If Trim(tempdoc.PayTypeID(0)) = "5" Or Trim(tempdoc.PayTypeID(0)) = "13" Then
                       If Trim(tempdoc.LiuXiang_Index(0)) = "2" Then
                           Set cfgview = db.GetView("v_person")
                           If tempdoc.payforanotherCompany(0) = "" Then
                               Set cfgdoc = cfgview.GetDocumentByKey(tempdoc.PayOfCompanyID(0),True)
                           Else
                               Set cfgdoc = cfgview.GetDocumentByKey(tempdoc.payforanotherCompany(0),True)
                           End If
                           next_approver = Trim(cfgdoc.debt(0))
                           If next_approver ="" Then
                               next_approver = "CN=admin/O=OGR"
                           End If
                       Elseif Trim(tempdoc.LiuXiang_Index(0)) = "1" Then
                           next_approver = ""
                       End If
                   Else
                       next_approver = ""
                   End If
                   tempdoc.SelectUser = next_approver

                   If Trim(tempdoc.SelectUser(0)) = "" And tempdoc.LiuXiang_Show(0)<> "完成" Then
                       tempdoc.SelectUser = "CN=admin/O=ORG"
                   End If

                   Call submitNoSave(db,tempdoc)
                   Call doc.RemoveItem("selectuser")
                   Call writeFlowInfoToSQL(tempdoc)
                   Call tempdoc.save(True,False)
                   resultInfo = "toNext"
               Else
                   resultInfo = "toNext"
               End If
           End If
       End If

       changeDocInfo = resultInfo
       Exit Function

err_handle:
       changeDocInfo = "(line "+ Str(Erl) + "): " + Error$ + " Error number:" + Str(Err)
       Exit Function
   End Function

End Class

3、webservice属性配置

代码窗右键，单击

按下截图配置好后保存，安全性按需选择

4、浏览器访问验证，如果出现了代码中的方法名，说明成功了

5、提供给其他系统使用时，修改地址为http://a.com/.../changeWorkflowInfo?wsdl，供调用使用

Domino webservice开发实例相关推荐

eclipse+webservice开发实例
1.參考文献: 1.利用Java编写简单的WebService实例 http://nopainnogain.iteye.com/blog/791525 2.Axis2与Eclipse整合开发Web ...
eclipse java开发实例_eclipse+webservice开发实例
1.參考文献: 2.实例1(主要看到[2]) 2.1.系统功能: 开发一个计算器服务CalculateService,这个服务包括加(plus).减(minus).乘(multiply).除(divi ...
eclipse+axis2+webservice开发实例
myeclipse10安装axis2插件第一步:下载axis2-1.6的插件压缩包,axis2-eclipse-codegen-plugin-1.6.2.zip 和 axis2-eclipse-se ...
基于JAX-WS的webService开发实例
最近因为工作原因接触到webService,所以记录下开发中碰到的问题,方便自己以后复习,顺便发扬一下开源精神.刚刚接触webServie如果有什么错误欢迎大家指正. 本地环境:myEclipse10 ...
Flex beta2+XFire开发实例
Flex beta2+XFire开发实例本文主要目的是让大家对Flex beta2对WebService应用开发有个启示作用,业务实例比较单一,看完本教程你可以建立自己的WebService. 我想 ...
axis2 webService开发附深入理解 Java 垃圾回收机制
相关文章: axis web服务(axis2安装和eclipse.tomcat结合开发) axis2 webService开发 axis2 webService开发(打包aar文件) 使用Axis2开 ...
Java Web 后台中餐饮业报表系统开发实例
本期葡萄城公开课,我们诚邀石家庄品智技术有限公司,高级软件工程师--刘永政先生,为大家在线分享餐饮业报表系统设计模式,以及在 HTML5 报表浏览器.Java 架构中跨平台使用ActiveReport ...
WebService开发与代码的编写
WebService开发与代码的编写大家或多或少都听过 WebService(Web服务),有一段时间很多计算机期刊.书籍和网站都大肆的提及和宣传WebService技术,其中不乏很多吹嘘和做广告的 ...
JBOSS+EJB3之Entity 开发实例
我用的是 mysql 数据库, EJB3.0 相对于2.0 变化蛮大的,真的是迫于 Spring+Hibernate 的逼式,ejb 3.0 已经出现几年了,自从她轻装上阵,也不知道现在的应用情况如何 ...

Domino webservice开发实例

Domino webservice开发实例相关推荐

最新文章

热门文章