LOTUS c/s 数据库归档 定时代理
各位GGMM大家好，小妹是新来的。刚进公司不久，让我做NOTES开发。可是我啥也不会。今天接到一个项目：用户要求为一个电子流建立一个归档库，让闭环的电子流在原数据库保留6个月，超过六个月就归档到归档库去，一个月查一次;如果一个电子流6个月没有被采纳就回调到上一个环节，也是一个月查一次。请问这个代理怎么写？归档库应该怎么建立啊？小妹是新手，希望各位前辈能讲详细点，谢谢大家。 --------------------编程问答-------------------- 这个对于我来说,很EASY.定时代理,用现在的时间跟文档的建立时间比较.
复制文档到新数据库. --------------------编程问答-------------------- 系统自己也带有归档库功能，看数据库属性里面有。可以利用这个功能。 --------------------编程问答-------------------- 没有你的具体环境也没法写给你呀 --------------------编程问答-------------------- 发现这里新手很多哦。新手，如果没有人带，自学很累哦。真为他们觉得尴尬。domino的开发跟其他的有很大不同，自己摸索，还是很辛苦的。 --------------------编程问答-------------------- 我不知道怎么描述具体环境，55555.
恩，尽量说得具体点。文档有个域"status",结档的文档的域就是“结档”
我个人一点小想法就是
dim doc as notesdocument
dim dc as notesdocumentcolletion
dim seafor as string
set dc=db.search(seafor,nothing,0)
set doc=dc.getfirstdocument
然后再循环的把文档一条一条的复制过去。
请教各位大虾，这样能行吗？
search这句应该怎么写呢？
还有如果一个电子流6个月没有被采纳就回调到上一个环节，应该怎么写呢？一点头绪也没有。
知道的大虾最好能帮我写出来哈，谢谢哦。
希望大家能帮帮我，不胜感激的。 --------------------编程问答-------------------- 5555.....
没一位前辈帮忙吗?
帮帮我撒。。。 --------------------编程问答-------------------- 5555.....
没一位前辈帮忙吗?
帮帮我撒。。。 --------------------编程问答--------------------
Set ArchDB = s.GetDatabase( ArchServerName ,ArchServerPath)
If ArchDB.IsOpen = False Then Exit Sub '归档库打不开就不执行归档
Set Archview = db.GetView("vhAllClosedDoc")
Set Archdoc = Archview.GetFirstDocument()
Archview.AutoUpdate = False
While Not (Archdoc Is Nothing)
Set Archnextdoc = Archview.GetNextDocument(Archdoc)
MonthDiff = 写一个比较时间的函数(curTime,Archdoc.ClosedTime(0))
If MonthDiff >= 数据归档周期 Then
Call Archdoc.CopyToDatabase(ArchDB)
Call Archdoc.Remove(True)
End If
Set Archdoc = Archnextdoc
Wend --------------------编程问答-------------------- 学习
--------------------编程问答-------------------- 谢谢 ~~
一个月查一次;如果一个电子流6个月没有被采纳就回调到上一个环节，也是一个月查一次。这个代理怎么写？
还有个问题，怎么删除工号失效的文档？怎么判断工号是否失效？
小妹是新手，希望各位前辈不吝赐教，讲得详细点 谢谢
补充：企业软件 , Lotus
