Lotusscript : Hent data fra felt i en oversigt
jeg skal starte med at sige jeg er ny i programmering af Notes script. Jeg ønsker at markere en eller flere dokumenter i en oversigt og deraf skrive et nyt dokument med disse data. Databasen er en feriedatabase, hvor der er en oversigt over alle dem der har ferie i firmaet. Jeg vil så markere de dokumenter, hvor ferien er overstået og deraf skrive i en anden form, hvor antal feriedage, navn bliver skrevet. Det bruges til at se hvor mange feriedage personen har haft. Det jeg indtil videre har lavet er dog lavet i samme form og oversigt.Altså det jeg ønsker er at få at vide hvad ex. navn er i det markeret dokument. (navn = KonsulentFerie). Det skal så skrives i det nye dokument.
Når det er lykkedes for mig med markering af et dokument, så ønsker jeg markere flere dokumenter og deraf gøre det samme.
Min kode indtil videre er :
Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
Dim s As New NotesSession
Dim db As notesdatabase
Dim view As NotesView
Dim doc As NotesDocument
Dim item As NotesItem
Dim uidoc As NotesUIDocument
Set db = s.CurrentDatabase
Set view = db.GetView("F2")
Set uidoc = ws.CurrentDocument
Set doc = db.CreateDocument
' Skriv
doc.KonsulentFerie = "Det er her jeg ønsker værdi fra dokumentet"
doc.FerieFra = "12-07-2004"
doc.FerieTil = "12-08-2004"
doc.FerieUdført = ""
doc.EvtFerie ="TEST KJ"
Set item = New NotesItem (doc , "Authors" , s.UserName , AUTHORS)
doc.Form = "ferie2"
doc.Save True, True
' refresh
ws.ViewRefresh
End Sub