Du mußt dazu im DB weiten QueryDocumentDelete einen Code einbauen, der den Zähler im Hauptdoc um -1 versetzt und dabei den Status von belegt auf frei stellt, wenn Du denn mit Stati im Hauptdoc arbeitest.
Kann mir da nochmal jemand helfen?
Ich habe in der Seminar-DB aus der Sandbox das hier gefunden:
Was muss ich ändern: View "Class Description" und Feld "Current Enrollment"?
Oder ist das skript viel zu kompliziert und das wäre einfacher zu lösen?
Es geht darum, dass beim Hauptdokument ein Feld runtergezählt wird, wenn ein Antwortdokument erstellt wird..
Sub Click(Source As Button)
Dim workspace As New NotesUIWorkspace
Dim Session As New NotesSession
Dim Db As NotesDatabase
Dim View As NotesView
Dim User As Variant
Dim RegUIDoc As NotesUIDocument
Dim RegDoc As NotesDocument
Dim ClassDoc As NotesDocument
Dim CurrentEnrollment As Variant
Dim NewEnrollment As Variant
Dim RefreshAgent As NotesAgent
Set Db = Session.CurrentDatabase
User = Session.UserName
Set RegUIDoc = Workspace.CurrentDocument
Set view = Db.GetView("ClassDescriptions")
Set RegDoc = RegUIDoc.Document
Call RegUIDoc.Save
Dim parentUnid As String
parentUnid = RegDoc.ParentDocumentUNID
Set ClassDoc = Db.GetDocumentByUNID( parentUnid)
CurrentEnrollment = ClassDoc.Enrollment
NewEnrollment = CurrentEnrollment(0) + 1
ClassDoc.Enrollment = NewEnrollment
Call ClassDoc.Save(False,False)
Call RegUIDoc.Close
Call View.Refresh
End Sub