长颈叔叔
13-09-07, 07:36 PM
Sub Initialize
'Created by Liuhm
'At 2006-10-16
Dim s As New notessession
Dim dbold As notesdatabase
Dim dbnew As notesdatabase
Dim viewold As notesview
Dim docold As notesdocument
Dim docnew As notesdocument
Set db = s.CurrentDatabase
Set dbold = New NotesDatabase(db.server,"***\tmp\gslplc.nsf") '旧的数据库
Set dbnew = New NotesDatabase(db.server,"***\WorkFlow\appgiftOutlk.nsf") '新的数据库
Set viewold = dbold.GetView("按日期分")
Set docold = viewold.GetFirstDocument
While Not(docold Is Nothing)
'开始进行文档的拷贝
If docold.form(0) = "lplyd" Then
Set docnew = docold.CopyToDatabase(dbnew)
docnew.FORM = "WFApplication_WEB"
docnew.SysSubFormNameLK = "CN_change_WEB"
docnew.Spec_1 = docold.pmgg1(0) '名称
docnew.Number_1 = docold.sl(0) '数量
docnew.Price_1 = docold.dj(0) '单价
docnew.Total_1 = Val(docold.sl(0))*Val(docold.dj(0)) '金额
docnew.Memo_1 = "" '备注
docnew.SysDocStatusLK="C" '流转状态＝已经结束
docnew.CreateDate = Cstr(Format(docold.lyrq(0),"YYYY-MM-DD")) '表单显示申请日期
docnew.SysCreateDateLK = Cstr(Format(docold.lyrq(0),"YYYY-MM-DD")) '视图显示申请
docnew.UseName = docold.lyr(0) + "(从老系统导入)" '领用人
docnew.SysInitiatorNameLK = docold.lyr(0) '领用人－视图用
docnew.UseDept = docold.lybm(0) '使用部门
docnew.Check = "无(从老系统导入)" '负责人
docnew.SysIsDeletedLK = "0" '文档删除状态 = 未删除
docnew.TypeByLiuhm = "LY"
Call docnew.ReplaceItemValue("$$W_GroupList","")
Call docnew.ReplaceItemValue("$$W_RoleList","")
Call docnew.Save(True,True)
End If
Set docold = viewold.getnextdocument(docold)
Wend
End Sub
'Created by Liuhm
'At 2006-10-16
Dim s As New notessession
Dim dbold As notesdatabase
Dim dbnew As notesdatabase
Dim viewold As notesview
Dim docold As notesdocument
Dim docnew As notesdocument
Set db = s.CurrentDatabase
Set dbold = New NotesDatabase(db.server,"***\tmp\gslplc.nsf") '旧的数据库
Set dbnew = New NotesDatabase(db.server,"***\WorkFlow\appgiftOutlk.nsf") '新的数据库
Set viewold = dbold.GetView("按日期分")
Set docold = viewold.GetFirstDocument
While Not(docold Is Nothing)
'开始进行文档的拷贝
If docold.form(0) = "lplyd" Then
Set docnew = docold.CopyToDatabase(dbnew)
docnew.FORM = "WFApplication_WEB"
docnew.SysSubFormNameLK = "CN_change_WEB"
docnew.Spec_1 = docold.pmgg1(0) '名称
docnew.Number_1 = docold.sl(0) '数量
docnew.Price_1 = docold.dj(0) '单价
docnew.Total_1 = Val(docold.sl(0))*Val(docold.dj(0)) '金额
docnew.Memo_1 = "" '备注
docnew.SysDocStatusLK="C" '流转状态＝已经结束
docnew.CreateDate = Cstr(Format(docold.lyrq(0),"YYYY-MM-DD")) '表单显示申请日期
docnew.SysCreateDateLK = Cstr(Format(docold.lyrq(0),"YYYY-MM-DD")) '视图显示申请
docnew.UseName = docold.lyr(0) + "(从老系统导入)" '领用人
docnew.SysInitiatorNameLK = docold.lyr(0) '领用人－视图用
docnew.UseDept = docold.lybm(0) '使用部门
docnew.Check = "无(从老系统导入)" '负责人
docnew.SysIsDeletedLK = "0" '文档删除状态 = 未删除
docnew.TypeByLiuhm = "LY"
Call docnew.ReplaceItemValue("$$W_GroupList","")
Call docnew.ReplaceItemValue("$$W_RoleList","")
Call docnew.Save(True,True)
End If
Set docold = viewold.getnextdocument(docold)
Wend
End Sub