Werte von Antwortdokumenten in Hauptdokument

[hmarco]

Hallo,

bei dieser Anweisung bleibt er hängen:

Set ParentDocument = db.GetDocumentByUNID(parentUNID)


Mfg Marco

[rar]

Hi!
Vergleich mal die parentUNID aus dem Debugger mit der UNID des Hauptdokumentes...
Kann es vielleicht sein, daß das ParentDoc der Antwort schon gelöscht ist?
-rar

[hmarco]

Hallo,

kann es evt. angehen, dass ein Skript was ich mal eingefügt habe um Dokumente vor dem bearbeiten zu
schützen die UID verändert.


Ich habe in der Datenbank auch noch das Problem,
dass immer wenn ich die Maske "Lizenz" öffne, dass
ein Dokument mit den Werten die ich dort eingetragen
habe erscheint und auch nicht mehr weg geht.


Er zeigt mir dann immer an Vorgabemaske nicht gefunden.

Mfg Marco

[Axel]

kann es evt. angehen, dass ein Skript was ich mal eingefügt habe um Dokumente vor dem bearbeiten zu
schützen die UID verändert.

Hi,

die ID eines Dokumentes wird nicht verändert. Sie wird einmal vergeben (beim Anlegen) und bleibt, die Lebendauer der Dokumentes über, unverändert.

Hast du evt. Dokumente über die Zwischenablage ausgeschnitten oder kopiet und dann wieder eingefügt?

Ich habe in der Datenbank auch noch das Problem,
dass immer wenn ich die Maske "Lizenz" öffne, dass
ein Dokument mit den Werten die ich dort eingetragen
habe erscheint und auch nicht mehr weg geht.

Er zeigt mir dann immer an Vorgabemaske nicht gefunden.

Was meinst du, mit nicht mehr weg geht. Ich werde das Gefühl nicht los in der Datenbank stimmen noch einige andere Dinge nicht.

Axel

[rar]

Grüße!

die ID eines Dokumentes wird nicht verändert. Sie wird einmal vergeben (beim Anlegen) und bleibt, die Lebendauer der Dokumentes über, unverändert.

Ist nicht ganz richtig. Über die Property UniversalID im NotesDocument kann man die UNID ändern.

Marco:
Dein Problem mit der Vorgabemaske kann auftreten, wenn man ein Doc ohne dem Feld 'Form' oder mit einer Maske, die es in der Db nicht gibt, aufmachen will.
Den Fehler könntest du beheben, wenn du in den Eigenschaften der Maske die Option Vorgabe-Datenbankmaske anhack ist.

Was sagt denn der UNID Vergleich?

-rar

[Axel]

Ist nicht ganz richtig. Über die Property UniversalID im NotesDocument kann man die UNID ändern.

@rar

Ist mir entgangen, danke für den Hinweis.

Axel

[hmarco]

Hallo,

ich weiß auch, dass da was nicht stimmt.

Ich habe aber schon mal ein bisschen experimentiert und herausgefunden, dass diese "Vorgabemaske nicht gefunden"-Dokumente erstellt werden, wenn ich ein neues Dokument erstellen will, es nicht speichere wenn ich das Fenster schließe. Danach habe ich diese Dokumente. Dies passiert auch bei anderen Datenbanken, die das gleiche Skript enthalten.

Ich schreib euch mal was für Skripte überhaupt in meinen Masken sind:

Sub Postopen(Source As Notesuidocument)
     Dim sess As New NotesSession
     Dim doc As NotesDocument
     Dim thatUser As String
     Set doc = source.document
     If Source.EditMode Then
           If doc.HasItem("LockEdit") Then
                 Source.EditMode = False
                 thatUser = doc.LockEdit(0)
                 Msgbox thatUser & " bearbeitet derzeit dieses Dokument. Solange dieser Benutzer es bearbeitet, können sie nichts ändern."
           Else
                 Call doc.ReplaceItemValue("LockEdit", sess.CommonUserName)
                 Call doc.ReplaceItemValue("LockEditTime", Now)
                 Call doc.Save(True, True)
           End If
     End If
End Sub

Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
     Dim sess As New NotesSession
     Dim doc As NotesDocument
     Dim thatUser As String
     Set doc = source.document
     If Source.EditMode Then
           Continue = True
     Else
           If doc.HasItem("LockEdit") Then
                 thatUser = doc.LockEdit(0)
                 Msgbox thatUser & " bearbeitet derzeit dieses Dokument. Solange dieser Benutzer es bearbeitet, können sie nichts ändern."
                 Continue = False
           Else
                 Continue = True
                 Call doc.ReplaceItemValue("LockEdit", sess.CommonUserName)
                 Call doc.ReplaceItemValue("LockEditTime", Now)
                 Call doc.Save(True, True)
           End If
     End If
End Sub

Sub Querysave(Source As Notesuidocument, Continue As Variant)
     
     Dim session As New NotesSession
     Dim db As NotesDatabase
     Dim parentUNID As String
     Dim ParentDocument As NotesDocument
     Dim sa As NotesItem
     Dim saValue As String
     Dim responses As NotesDocumentCollection
     Dim doc As NotesDocument  
     Set db = session.CurrentDatabase
     Set doc = Source.Document
     parentUNID = doc.ParentDocumentUNID
     Set ParentDocument = db.GetDocumentByUNID(parentUNID)
     Set responses = ParentDocument.Responses
     Set doc = responses.GetFirstDocument
     Do While Not doc Is Nothing
           Set sa = doc.GetFirstItem("SA")
           saValue = sa.Values(0)      
           If saValue = "ja" Then
                 ParentDocument.FeldName = "Ja"
                 Call ParentDocument.Save(True,True)
                 Exit Sub  
           End If
           Set doc = responses.GetNextDocument(doc)
     Loop
     ParentDocument.FeldName = "Nein"    
     Call ParentDocument.Save(True,True)
     
End Sub

Sub Queryclose(Source As Notesuidocument, Continue As Variant)
     Dim sess As New NotesSession
     Dim doc As NotesDocument
     Set doc = source.document
     If doc.LockEdit(0) = sess.CommonUserName Then
           Call doc.RemoveItem("LockEdit")
           Call doc.RemoveItem("LockEditTime")
           Call doc.Save(True, True)
     End If
End Sub


Mfg Marco