Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Birgit am 29.05.02 - 16:32:02

Titel: LS- neues Dokument in andere Datenbank erstellen
Beitrag von: Birgit am 29.05.02 - 16:32:02

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

Titel: Re: LS- neues Dokument in andere Datenbank erstell
Beitrag von: Till_21 am 29.05.02 - 18:00:10

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

Titel: Re: LS- neues Dokument in andere Datenbank erstell
Beitrag von: Linus am 30.05.02 - 17:45:52

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

Titel: Re: LS- neues Dokument in andere Datenbank erstell
Beitrag von: Birgit am 31.05.02 - 10:40:54

Danke, Birgit

Titel: Re: LS- neues Dokument in andere Datenbank erstell
Beitrag von: Silke am 10.06.02 - 14:25:49

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  8)