Lotus常用代碼

【Lotus常用代碼 】合集
以下内容需要回复才能看到
1.是否保存
在表单中设定一个域,名称为saveoption
下列公式添加到返回按钮中,决定文件退出是否保存
FIELD saveoptions:="1"; 保存 FIELD saveoptions:="0"; 不保存
2.用公式弹出对话框,按确定继续,取消返回.
@If(@DialogBox("表单名";[AutoHorzFit]:[AutoVertFit];"表单标题");"";@Return("
"))
3.用script弹出对话框,按确定继续,取消返回
Dim w as notesuiworkspace
If Not w.dialogbox("表单名",True,True,False,True,False,False,"填写")
Then doc.close'用户按取消退出
Exit Sub
End If
4.视图中删除文档语句
@Command([EditClear]);
@Command([ViewRefreshFields])
5.检测是否是周末
Dim dt as notesdatetime
call dt.setnow
If Weekday(dt.lslocaltime)=7
Then'是周六耶,
dt.adjustday(2) '加两天到星期一
Elseif Weekday(dt.lslocaltime)=1
Then'周日加一天
dt.adjustday(1)
End If
6.得到当前的服务器和路径
公式: ResideServer := @Subset(@DbName; 1) 
CurrentPath := @Subset(@DbName; -1) 
DirOnly := @If(@Contains(CurrentPath; "//");
@LeftBack(CurrentPath; "//") + "//"; "");
DbFile := DirOnly + "***.NSF";
7.得到当前用户名
公式Name([CN];@V3UserName)
scriptim s as notessession
Dim myname as newnotesname(s.username)
messagebox myname.common
8.得到当前日期公式:
@today @date(@created)
scriptim dt as notesdatetime
Set dt=New notesdatetime("")
Call dt.setnow
9.常用全局对象声明 '-----对象变量-----
Dim w As NotesUIWorkspace
Dim s As NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim uidoc As NotesUIdocument. Dim doc As Notesdocument. Dim item As NotesItem
Dim dt As NotesDateTime
Dim username as notesname
10.一些计算域,开始时没有值,如果不给它一个值会报错,以下公式给计算域赋值
@if(Bfield="";0;Bfield)
11.特殊字符
@char(13)可以在@prompt提示框中显示回车 script中用函数chr(13)

 

 

 

=============================================================================================

 ls中调用webservice

 Dim session As New NotesSession
        Dim db As NotesDatabase
        Dim doc As NotesDocument
        Set db        = session.CurrentDatabase
        Set doc        = session.DocumentContext
        Dim strWsdl As String
        Dim Client As Variant
        strWsdl = "http://" & doc.Server_Name(0) & "/" & doc.Current_Database(0) & "/TestWS?wsdl"
        Set Client =CreateObject("MSSOAP.SoapClient30")
        Client.ClientProperty("ServerHTTPRequest") = True
        Call Client.MSSoapInit(strWsdl)
        'Get the current database's name
        doc.txtDbName        = Client.getDBName
        'Get the current database's path
        doc.txtDbPath        = Client.getDBPath

阅读更多
个人分类: lotus软件
想对作者说点什么? 我来说一句

delphi常用技巧

2009年07月04日 7KB 下载

数控车G代码及详解

2011年10月25日 11KB 下载

UltraEditor 源代碼 語法顏色設定檔

2009年06月01日 1.69MB 下载

J2EE超全的經驗已經代碼

2007年09月01日 11KB 下载

C#記事本

2007年07月06日 376KB 下载

没有更多推荐了,返回首页

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭