Das Notes Forum
Lotus Notes / Domino Sonstiges => Companion Products => Thema gestartet von: fsinani am 02.10.12 - 10:15:07
-
Hallo Freunde anforderungsfreier ergebnisoffener stets positiv bewerteter Arbeit ;D
Hab da mal nen Auftrag erhalten zu Testzwecken eine einfachste NotesDB zu einem Bereich migrieren. Der Bereich exisitert noch nicht und soll nur die DB ersetzen.
Die DB hat genau 2 Masken und unter 50 Felder. Weiterhin gibt es ca. 3 Ansichten. Überwiegend handelt es sich um Notesdokumente, in denen Autoren und Kategorien ausgewählt werden und in einem RTF ein Attachment hängt.
Frage:
- Jemand von Euch schon mal gemacht? Bitte auf eine Antwort verzichten ala (ganz bestimmt gibt es viele, die das schon mal gemacht haben o.ä.)
- wie seid Ihr vorgegangen. Vorbereitungen, Doing
- habt Ihr per Script alle Dokumente automatische in den Bereichen erszeugt, oder alles manuell über den Connector?
Vorgabe:
Ich möchte die Notesdokumente mit den Attachments nicht als EML im Quickr haben. SOmit fällt eigentlich eine Maus-Verschiebe-Aktion auch weg :-)
Vielen Dank für Eure Tipps.
Gruß
fsinani
-
Hallo,
ich glaube nicht, dass Quickr das richtige Zielsystem ist.
Wenn (wie ich annehme) die Aufgabe lautet, eine Notesdatenbank webfähig zu machen, solltest du das besser mit XPages angehen.
Gruss
Toralf
-
Hi Toralf und Danke!
Nein, das ist tatsächlich nicht die Aufgabenstellung.
Das Ziel soll sein, eine recht statische NotesDB als Quickr Bereich abzubilden, um einfach mal mit der Nutzung von Quickr zu beginnen - in einem Testzeitraum soll dann herauskommen, ob das gut oder schlecht war, was wir getan haben.
Ganz sicher ist aber XPages für die Webfähigmachung einer DB die zuwählende Lösung.
Uns geht es jetzt erstmal darum, unser lizensiertes Quickr endlich mal zu benutzen :-)
-
Hallo,
ich habe einen Agent, der Notes Teamroom Dokumenten in Lotus Quickr Dokumente speichert. Damit migiriere ich alte Teamräume nach Lotus Quickr.
Lars
-
Hallo Lars,
vielen Dank für das "Angebot". Ich würde es gerne in Anspruch nehmen, befürchte jedoch, dass Teamroom Dokumente anders strukturiert sind, als Notesdokumente.
Ich stelle insgesamt fest, dass es eine blöde Idee ist, eine Notes DB (egal, wie wenig sie kann) 1zu1 in einen Quickplace zu migrieren.
Ich werde mir wohl zwingend Gedanken machen, welche Features von Quickr nützlich sind, um diese DB als Bereich abzubilden.
Dafür fehlt mir im Moment das Quickr Know-How.
Danke
-
Hallo,
ich habe einen Agent, der Notes Teamroom Dokumenten in Lotus Quickr Dokumente speichert. Damit migiriere ich alte Teamräume nach Lotus Quickr.
Lars
Hallo Lars,
könntest Du den Agenten SourceCode o.ä. (dennoch) posten bzw. mir zukommen lassen.
Das wäre super. Danke :)
Grüße von
Sebastian
-
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 :-)