Hallo - ich habe ein Problem, an dem ich bereits seit Stunden sitze und ich verstehs nicht. Hoffe, mir kann irgend jemand erklären, was ich falsch mache!!
Folgendes: in einer DB (R6) existiert ein 1. Hauptdokument mit der Versionsnummer 0 und das Feld Archiv ist auch auf 0. Jetzt passiert folgendes: User sitzt auf Dok in Ansicht, klickt auf Aktion, die per Script eine Kopie des Dokumentes erstellt (dabei ein paar Felder und die ID des zu grunde liegenden Dokumentes füllt und ausliest). Alles wunderbar. In dem neuen Dokument nun gibt es eine weitere Aktion, die die gemachten Änderungen im neuen Dokument sper Script speichert und das Feld Archiv mit dem Wert 1 belegt, so dass das Dok ins Archiv verschoben wird und nur das neue, geänderte Dok noch existent ist. Das klappt alles ganz wunderbar beim erstn Mal. Wenn ich mich nun aber auf das eben erstellte Dokument setzte, welches jetzt die Versionsnr. 1 hat, eine neue Version erstelle (dann also ein neues Dok mit Vers.-nr.2) und dann die Änderungen speichern will, macht er das zwar, setzt mir aber nicht mehr den Wert 1 in das Archiv-Feld des nun zu grunde liegenden Dokumentes. Versteht ihr? Ich hoffe, ich hab mich schlüssig ausgedrückt.
Was mich eben so iritiert, ist, dass es beim erstn Mal funktioniert und ab dann nicht mehr. Werd gleich bekloppt.
Vielen Dank für die Hilfe - ich poste das Script direkt mal dazu:
Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = ws.CurrentDocument
Dim item As NotesItem
Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
Dim doc As NotesDocument
Set doc = uidoc.document
Dim doc_arch As NotesDocument
Dim stamm_archiv As String
Dim resp_item As NotesItem
Dim i As Integer
Dim user As String
user=session.commonusername
i=Messagebox ("Wollen Sie die Änderung speichern?",4,"Änderung speichern")
If i = 6 Then
If doc.KTO(0)<>doc.KTO_1(0) Then
Messagebox "Überprüfen Sie die Kontonummern auf Übereinstimmung",OK,"Kontonummern stimmen nicht überein!"
Exit Sub
Else
If doc.Kennwort(0)<>doc.Kennwort_1(0) Then
Messagebox "Überprüfen Sie die Kennworte auf Übereinstimmung",OK,"Kennworte stimmen nicht überein!"
Exit Sub
Else
Dim unitnr As String
unitnr=doc.docidarchivrev(0)
Set doc_arch = db.GetDocumentByUNID(unitnr)
doc_arch.stamm_archiv=1
Call doc_arch.save(True,True)
'Hier kommen Belegungen für Autoren-Felder ....
Call uidoc.Save
Call uidoc.Close
Call doc.Save(True, True)
Call doc_arch.save(True,True)
Call doc.Save(True, True)
End If
End If
End If
End Sub
