Da wirst Du wohl nicht um LotusScript herum kommen. Da wurden aber gerade kürzlich Konzepte dazu diskutiet. Bemühe mal die Suche

Wäre Script für Dich machbar? Es ist der einzige (vernünftige) Weg.

Welche Kenntnisse hast Du?

Andreas

Bei Script hab ich leider so gut wie gar keine Kenntnisse.  

Christian

Das können wir ja ändern  
Bereit, wenn Sie es sind.

@Formel-mäßig bist Du gut drauf, oder?

Andreas

Ok. Um eine Datenbank per Replik-ID zu öffnen, gibt es die Methode
flag  = notesDatabase.OpenByReplicaID( server$, replicaID$ )

In Script wird - im Gegensatz zur Formelsprache - die Replik-ID OHNE Doppelpunkt verwendet.   Blöd, aber nicht zu ändern. Eine kleine Challenge für den Programmierer.

Um ein Notesdokument per DocID zu holen:
Set notesDocument = notesDatabase.GetDocumentByUNID( unid$ )

Für Deinen Fall: Wo steht denn die Replik-ID der Zieldatenbank und die Dok-ID des Zieldokuments? Im aktuell geöffneten Dokument?

Andreas

Das ist gut.
Lotus Script ist Objekt-orientiert, cool  
D.h. es gibt Objekte, die Notes-Datenbanken, Notes-Ansichten, Notes-Dokumente (auf der Festplatte), geöffnete Notes-Dokumente, geöffnete Ansichten, geöffnete Datenbanken etc. repräsentieren.
Es gibt also Backend (das was auf der Platte ist) und Frontend (das was der User auf dem Bildschirm "sieht") Klassen.
Das schöne ist, je nachdem wo man den Scriptcode eingibt, werden einem bestimmte Objekte "geschenkt".
Wenn Du bspw. in das Event Postopen gehst, siehst Du dort als Parameter
Source as NotesUIDocument
D.h. Source repräsentiert das aktuell geöffnete Dokument (UI = User Interface, d.h. das was der Anwender sieht).

Was Dir noch helfen würde, ist das Klassenmodell von Notes. Das gibt es als Poster. Ich habe etliche von den Dingern hier, Du auch?

In dem Klassenmodell siehst Du, wie man von einer Klasse zu einer anderen kommt. Wenn Du bspw. eine Notes-Datenbank hast, kannst Du damit zu einem Notes-Dokument und damit zu einem Notes-Feld (sog. Item) kommen.

Klar so weit  

Andreas

Ich verwende bei der Programmierung immer die Notes Designer Hilfe. Was anderes braucht eigentlich kein Mensch.
Die Bespiele dort sind gut.

Nach einigen Scripts geht es dann in Fleisch und Blut über.

Zurück zu deinem Problem: Du hast im aktuell geöffneten Dokument (NotesUIDocument) die Replik-ID und die Dok-ID stehen. Du willst wenn ein neues Dokument erstellt wird, beim Schliessen im Zieldokument ein Feld setzen. Also brauchst Du

(Declarations)
dim session as NotesSession
dim db as NotesDatabase
dim zieldb as NotesDatabase
dim zieldoc as NotesDocument
dim doc as NotesDocument

dim DocIsNew as Integer
dim zielReplicaID as String
dim zielDocID as String

Im Postopen...
set session = New NotesSession
set db = session.CurrentDatabase
set doc = Source.Document  

zielReplicaID = doc.ReplikID(0)   'das ist Extended Class Syntax : äquivalent zu doc.GetItemValue("ReplikID")(0)

'":" ausschneiden
if Instr(zielReplicaID ;":") > 0 then
 zielReplicaID = Left$(zielReplicaID,8) & Right$(zielReplicaID,8)
end if

zielDocID = doc.DocID(0)

if Source.IsNewDoc then
 DocIsNew = true
else
 DocIsNew = false
end if


Im QueryClose...
if DocIsNew then
 set zieldDB = New NotesDatabase("","")
 call zielDB.Open( db.Server, zielReplicaID )

 if zielDB.IsOpen then
   set zieldoc = zielDB.GetDocumentByUNID( zielDocID )
  if not zieldoc is Nothing then
     zieldoc.bearbeitet = "1"
     call zieldoc.Save(false,true,true)    
  end if
 end if
end if


Das sollte es tun. Wichtig ist, dass Du die einzelnen Schritte verstehst!

Andreas

Vielen Dank Andreas für das Script und auch danke für das Klassenmodell!

Ich habe das Script ins (Declarations), PostOpen und QueryClose meiner Maske eingebaut, die beiden eingeschlichenen Tippfehler behoben und probiert. So ganz funktioniert's noch nicht. Ich hab mir dann alles mit dem Debugger anzeigen lassen. Die Variablen werden alle richtig gesetzt, allerdings wird das Feld "bearbeitet" nicht gesetzt, weil die ZielDB nicht geöffnet wird. Du hattest

   Call zielDB.Open(db.Server, zielReplicaID )

geschrieben. Ich habe dann das db.Server weggelassen, weil die ZielDB auf dem gleichen Server liegt. Auch wenn ich anstelle von zielReplicaID den Dateinamen angebe, öffnet's die DB nicht. Der Abschnitt

   If zielDB.IsOpen Then

wird dann übersprungen, zieldoc nicht gesetzt und das Feld demzufolge auch nicht.

Woran kann das liegen?

Christian

Genau so steht's bei mir da. Bringt denn die ReplikID nicht den Server-Namen mit? In der Hilfe steht:

server$
String. The name of the server on which the database resides. Use an empty string ("") to indicate a database on the current computer, or for a NotesDatabase that's already assigned to a database.

Also kann ich doch auch den Server-Namen als Leerstring lassen.

Der Wert für die zielReplicaID ist der von der Ziel-DB, ohne ":".
Auch der Wert für die zielDocID stimmt. Wenn ich ZIELDB im Debugger aufklappe, steht bei FILENAME und FILEPATH die zielReplicaID. Bei ISOPEN steht nach dem Call Aufruf "False".

Christian

Sorry, mein Fehler. Es muss
set zielDB = New NotesDatabase("","")
call zielDB.OpenByReplicaID( db.Server, zielReplicaID )
heissen.

Andreas

Bist Du sicher, dass es QueryClose ist? Das sollte nur einmal durchlaufen werden, ausser das Dokument wird nicht geschlossen.

Im QueryClose folgendes:


if DocIsNew and doc.DocID(0) <> "" then
  set zielDB = New NotesDatabase("","")
  call zielDB.OpenByReplicaID( db.Server, zielReplicaID )
... ... ...

 doc.DocID = ""
 call doc.Save(true,true,true)
end if

Andreas