Hallo zusammen,
über eine Aktion, hole ich mir felder von einer datenbank in eine andere. Mit dem Client klappt das auch super. Aber wie kann ich sowas auch "Webfähig" machen?
Zum bessern Verständnis hier mal mein kleines LotusScript:
Sub Click(Source As Button)
Dim ws As New NotesUIWorkSpace
Dim session As New NotesSession
Dim db2 As NotesDatabase
Dim uidoc1 As NotesUIDocument ' das aktuell geöffnete Dokument
Dim uidoc2 As NotesUIDocument ' das neue Dokument
Dim doc1 As NotesDocument
Dim doc2 As NotesDocument
Set db2 = session.getDatabase("server/DBname") ' DB für neues Dokument zuweisen
Set uidoc1 = ws.CurrentDocument
Set doc1 = uidoc1.Document ' FrontEnd Dokument ins BackEnd holen
Set doc2 = New NotesDocument(db2) ' neues Dokument im Backend erstellen
doc2.Form = "Bestellung" ' MaskenName vergeben
doc2.Anlass = doc1.Purpose ' Felder kopieren...
doc2.Raum = doc1.dResourceName
doc2.Leitung = doc1.dReservedBy
doc2.Beginn = doc1.dStartTime
doc2.Ende = doc1.dEndTime
doc2.Datum = doc1.dStartDate
Set uidoc2 = ws.EditDocument(True, doc2) ' neues Dokument ins FrontEnd holen
End Sub
Danke für Eure Hilfe