Lotus Notes / Domino Sonstiges > Companion Products

Hat schoma Jemand eine LN DB nach Quickr migriert?

<< < (2/2)

MacSpudik:

--- Zitat von: sral am 05.10.12 - 15:23:19 ---Hallo,

ich habe einen Agent, der Notes Teamroom Dokumenten in Lotus Quickr Dokumente speichert. Damit migiriere ich alte Teamräume nach Lotus Quickr.

Lars

--- Ende Zitat ---

Hallo Lars,

könntest Du den Agenten SourceCode o.ä. (dennoch) posten bzw. mir zukommen lassen.
Das wäre super. Danke :)

Grüße von
Sebastian

sral:
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 :-)

Navigation

[0] Themen-Index

[*] Vorherige Sete