lokale Teilreplik per Script erstellen

[rubberduck]

Hallo,

ich habe von Lotusscript nicht wirklich Ahnung. Ich suche aber dennoch eine Möglichkeit per Schaltfächen Script eine lokale Teilreplik einer 12 GB Datenbank auf ca. 70 LN 6.5 Clients zuerstellen.

Ein funtionierendes Script zum erstellen einer Vollreplik habe ich mir bereits zusammen aus der LN Hilfe zusammen geklaut, das funktioniert auch soweit.

Nur bekomme ich leider nicht raus wie man eine Teilreplik mit einer Formel erstellt.

Wobei in der Formel ( SELECT @IsMember("CN=Vorname Nachname/O=CFB/C=DE"; ToYourNotice:NextEditor:SalesRep:Owner) | DocType="Address" ) der Name eines jeden Benutzers der eine Lokale Teilreplik benötigt angepasst werden muß.

Hat jemand eine Idee die mir hilft?

Danke

Rubber Duck



Sub Click(Source As Button)
   Dim session As New NotesSession
   Dim ws As New notesuiworkspace
   Dim db As NotesDatabase
   Dim replica As NotesDatabase
   Set db = New NotesDatabase("server" , "temp/1234.nsf")
   If Messagebox ("Wollen Sie eine lokale Replik der Archiv xxx DB erstellen?",1 + 32,"Question") = 1 Then
      Continue = True     
   Else
      Exit Sub     
   End If
   Set replica = db.CreateReplica( "", "temp/1234.nsf" )
   Call ws.AddDatabase( "", "temp/1234.nsf" )
   Call ws.AddDatabase( "server", "temp/1234.nsf" )
   
End Sub

[joringel]

Hi Rubber Duck,

mein Ansatz war, erstmal einen lokalen Replicationstub zu erstellen, dort dann mittels der Klassen NotesReplication und NotesReplicationEntry die Auswahlformel zu setzen und dann die Replikation anzustoßen.

Leider erstellt CreateReplica scheinbar immer eine vollständige Replik, die Designerhilfe ist da auch etwas widersprüchlich... Kann Dir also nicht weiterhelfen, aber vielleicht findet ja noch ein anderer eine Lösung

         .
         .
         Dim db As NotesDatabase
   Dim replica As NotesDatabase
   
   Set db = New NotesDatabase("ServerName/Bla" , "catalog.nsf")
   
   ' Replication_STUB_ erstellen .. funktioniert leider nicht...
   Set replica = db.CreateReplica( "", "catalog.nsf" )
   
   ' Folgendes geht auch nicht - DB muss geöffnet, also phys. vorhanden sein
   ' Set replica = New NotesDatabase("", "")
   
   Set replication = replica.ReplicationInfo
   Set replicationEntry = replication.getentry("ServerName/Bla", "Max Meier/Bla", True)
   
   ' Hier kommt die Select-Formel   
   replicationEntry.formula = |dbtemplatename = "StdR4AgentLog"|
   
         ' Repl.-Einträge speichern
   Call replicationEntry.save()
   Call replication.save()
      

   Call replica.replicate("ServerName/Bla")
         .
         .

[koehlerbv]

Um wirklich nur ein Replica stub zu erstellen, um danach weitere Einstellungen vornehmen zu können: Setz in der ReplicationInfo Disabled auf True (und anschliessend wieder zurück).

HTH,
Bernhard

[rubberduck]

Hi,

mir ist immer noch unklar wie die Syntax zum Einfügen meiner Selectformel ist

 ' Hier kommt die Select-Formel   
   replicationEntry.formula = |dbtemplatename = "StdR4AgentLog"|
   
Ich habe es wie folgt versucht aber leider ohne Erfolg.

replicationEntry.formula = ( SELECT @IsMember("CN=Vorname Nachname/O=CFB/C=DE"; ToYourNotice:NextEditor:SalesRep:Owner) | DocType="Address" )

Ich bekomme im Scripteditor folgende Fehlermeldung....

Unexpected: SELECT; Expected Expression

Hat jemand eine Idee wo mein Problem liegt???

Danke Rubberduck

[koehlerbv]

Die Formel muss ein String (!!) sein, der eine gültige Notes-@function enthält.

Bernhard