Anzahl Dokumente abhängig vom Datum

Hallo zusammen,

ich habe in einer Maske, die neben anderen Feldern noch die Feder N_Beginn1( Startdatum) und N_BEGINN3 (Endedatum ) . Wenn nun ein Benutzer

N_Beginn1= 25.06.2018

N_Beginn3= 28.06.2018

eingibt, müssten eigentlich 4 Dokumente erstellt werden, die sich jeweils am N_Beginn3 Feld unterscheiden. N_Beginn1 und N_Beginn3 sind vom Typ Datumsfelder

Irgendwie komme ich aber nicht weiter. Kann man das mit einer Do While Schleife überhaupt lösen ?

Function termineintrag()

Dim ws As New NotesuIWorkspace

Dim uidoc As NotesUIDocument

Set uidoc=ws.CurrentDocument

quelldocdat=uidoc.FieldGetText("N_beginn1")

quelldocdat3=uidoc.FieldGetText("N_beginn3")

If quelldocdat <> quelldocdat3 Then

Do While quelldocdat <> quelldocdat3

quelldocdat=quelldocdat+1

Call uidoc.Save

Loop

End If

termineintrag=True

End Function

Vielen Dank. Jetzt rechn Notes zumindest schon mal richtig. Was ich aber nicht verstehe, warum werden nicht mehrere Dokumente angelegt ?

quelldocdat=uidoc.FieldGetText("N_beginn1")

quelldocdat3=uidoc.FieldGetText("N_beginn3")

tmpquelldocdat=Cdat(quelldocdat)

tmpquelldocdat3=Cdat(quelldocdat3)

If tmpquelldocdat <> tmpquelldocdat3 Then

Do While tmpquelldocdat <> tmpquelldocdat3

tmpquelldocdat=tmpquelldocdat+1

Call uidoc.FieldSetText("N_Beginn1",Cstr(tmpquelldocdat))

Call uidoc.Save

Loop

Else

Call uidoc.Save

End If

Hane das Script nun soweit angepasst, das in der Scheliefe mit "Set neutermin = New NotesDocument ( db )" ein neues Dokument erzeugt werden soll.

Klappt leider nicht. Das Dokument wird auch gespeichert. Aber eben nur das eine. Woran kann das noch liegen ?

Dim neutermin As NotesDocument

quelldocdat=uidoc.FieldGetText("N_beginn1")

quelldocdat3=uidoc.FieldGetText("N_beginn3")

tmpquelldocdat=Cdat(quelldocdat)

tmpquelldocdat3=Cdat(quelldocdat3)

If tmpquelldocdat <> tmpquelldocdat3 Then

Do While tmpquelldocdat = tmpquelldocdat3

tmpquelldocdat=tmpquelldocdat+1

Set neutermin = New NotesDocument ( db )

neutermin.Form = "Termin"

Call neutermin.ReplaceItemValue("N_Beginn",Cstr(tmpquelldocdat))

Call neutermin.Save(False,False)

Loop

Else

Call uidoc.Save

End If

Vielen Dank jetzt funktioniert es !