Hallo zusammen,
hier die Anleitung zur Migration:
1. Im Notes Teamroom in der Maske "MainTopic" eine Aktion "Übernahme Quickr" erstellen mit folgenden Code:
Sub Click(Source As Button)
Dim s As New NotesSession
Dim Ws As New NotesUIWorkspace
Dim Quickr As New NotesDatabase("Servername", "LotusQuickr/xxx/Main.nsf")
Dim thisUiDoc As NotesUIDocument
Dim thisDoc As NotesDocument
Dim NewDoc As NotesDocument
Dim SBody As NotesRichtextItem
Dim TBody As NotesRichTextItem
Dim Topics As String
Dim n As Long
Set thisUiDoc = Ws.CurrentDocument
Set thisDoc = thisUiDoc.Document
Set NewDoc = Quickr.CreateDocument
NewDoc.Form = "h_PageUI"
NewDoc.h_Name = thisDoc.Subject
NewDoc.h_TextAbstract = thisDoc.Subject
NewDoc.h_Originator = thisDoc.DocEditor
NewDoc.h_Type = "0"
NewDoc.h_Readers = Arrayappend( thisDoc.readers, Split( "[h_Managers]:[h_SuperUser]", ":" ) )
NewDoc.h_IsPublished = "1"
NewDoc.h_VersionType = "explicit"
NewDoc.h_ShowVersionsTab = "1"
NewDoc.h_ShowPageHeader = "1"
NewDoc.h_ShowCommentsTab = "1"
NewDoc.h_ShowAboutTab = "1"
NewDoc.h_SetReadScene ="h_StdPageRead"
NewDoc.h_SetErrorScene ="h_HaikuErrorAnimation"
NewDoc.h_SetEditScene = "h_StdPageEdit"
NewDoc.h_PageCmdStage = "h_After"
NewDoc.h_PageCmd ="h_Publish"
NewDoc.h_CurrentBgColor = "#e6e6e6"
NewDoc.h_CurrentSkinName = "h_ModernPlusSkin"
NewDoc.h_CurrentSkinType = "h_Edit"
NewDoc.h_AbsoluteURLPart = "
http://xxx.de/LotusQuickr/xxx/Main.nsf"
NewDoc.h_Form = "30DF3123AEFAF358052567080016723D"
For n = 2 To 4
If thisDoc.GetItemValue("Subject" & Cstr(n))(0) <> "" Then
If Topics <> "" Then
Topics = Topics & "\"
End If
Topics = Topics & thisDoc.GetItemValue("Subject" & Cstr(n))(0)
End If
Next
NewDoc.Topics = Topics
Set SBody = thisDoc.GetFirstItem("Body")
If Not(SBody Is Nothing) Then
Set TBody = New NotesRichTextItem(NewDoc, "PageBody")
Call TBody.AppendRTItem(SBody)
Call TBody.Update
End If
Call Ws.EditDocument(True, NewDoc)
Call thisUiDoc.Close(True)
End Sub
2. Im Quickr Teamroom die Maske "Page | QDK_h_Page" durch den Alias "h_PageUI" erweitern >>> "Page | h_PageUI | QDK_h_Page"
3. Im Notes Teamroom jedes Dokument öffnen und die Aktion "Übernahme Quickr" drücken >>> das neue Lotus Quickr Dokument mit STRG+ S speichern
4. Über den Quickr Connector alle neuen Dokumente in den Zeilordner verschieben
5. Im Lotus Quickr Teamroom ein Agent erstellen und über alle Dokumente in dem neuen Ordner ausführen lassen >>> damit die Dokument nicht unter Task angezeigt werden
FIELD h_TaskDueDate:= @DeleteField;
@True;
SELECT @All
Alle Angeben ohne Garantie :-)