LS- neues Dokument in andere Datenbank erstellen

[Birgit]

Hi @All,

in einem geöffneten Dokument A in Datenbank A möchte ich einen Aktion-Button haben,

a) Datenbank B öffnet
b) dort ein neues Dokument B erstellt
c) einige Daten von Dokument A in Dokument B übernimmt
d) ein Feld in Dokument A ändert, speichert, schließt
e) Dokument B soll für das Finetuning auf dem Bildschirm prangern.

Tja, leider scheiter ich schon bei Punkt a)
Kann mir jemand verraten, wie ich in dieser Konstellation diese <zensur> Datenbank geöffnet und ein neues Dokument erstellt bekomme. Eigentlich ist das doch nicht schwer zumindest nicht bei gescheduleten Agents - und dementsprechend blöde komme ich mir gerade vor.

Danke schon mal,
Birgit

[Till_21]

Hi Birgit, probiers mal hiermit:

dim session as new notessession
Set db = session.getdatabase(server,pfad)
Set doc = db.CreateDocument
doc.form = ?
doc.xyz = quelldokument.feld(0)
etc.
call doc.save(true,false)

das ist nur eine variante...
schönen feiertag wünsch ich Dir und natürlich auch allen anderen...
Gruss Till

[Linus]

wenn du das neue, im backend angelegte Dokument dann Öffnen willst, versuch's mal damit:
Call workspace.EditDocument(True, doc)

[Birgit]

Danke, Birgit

[Silke]

Vom Prinzip her ist es dasselbe wie eine Mail erstellen  nur das die DB anders heissen muss und die form:

 
Sub Initialize
 
Dim ws As New NotesUIWorkspace  
Dim session As New NotesSession  
Dim db As NotesDatabase  

Dim currentdb As NotesDatabase
Dim collection As NotesDocumentCollection
Dim coldoc As NotesDocument

Dim doc As NotesDocument  
 'Dim uidoc As NotesUIDocument  
 'Dim eigener As String  
 'Dim server As String  
 'Set uidoc = ws.CurrentDocument
 

Set currentdb = session.CurrentDatabase
Set collection = currentdb.UnprocessedDocuments
 
Set coldoc = collection.GetFirstDocument

 
 eigener = session.GetEnvironmentString ("MailFile", True)  
 server = session.GetEnvironmentString ("MailServer", True)  
 Set db = New Notesdatabase (server, eigener)  
 Set doc = db.createDocument  
 doc.Form = "Memo"  
 doc.Subject = "Feedback"  

 doc.SendTo = coldoc.Mailadresse 'Feldinhalt aus markiertem Dokument
 
 Call ws.EditDocument (True, doc)  
End Sub


Silke