2014年3月7日 星期五

[AP] 開立文件;PickListCollection

Set setupcol = jmcws.PickListCollection( PICKLIST_CUSTOM ,False , SourceDB.Server, SourceDB.FilePath, "View-DocSetup", "Line", "please select:" )
Set personcol =  jmcws.PickListCollection( PICKLIST_CUSTOM ,False , PersonDB.Server, personDB.FilePath, "Empnoview", "點將錄", "please select:" )

If setupcol.Count = 0 Then Exit Sub
Set setupdoc = setupcol.GetFirstDocument
If Not setupdoc Is Nothing Then
Set newdoc = New NotesDocument(SourceDB)
Call newdoc.ReplaceItemValue("Form", "Form-Main")
newdoc.Line = setupdoc.Line
Call jmcws.EditDocument (False,newdoc)
End If

沒有留言:

張貼留言