Werte von Antwortdokumenten in Hauptdokument

[hmarco]

Hallo,

ich habe ein paar Antwortobjekte,  in denen im Feld
SA entweder "Ja" oder "Nein" steht,

jetzt möchte ich, dass wenn ein Antwortdokument
ein "Ja" enthält, dass dies im Hauptdokument in einer
Ansicht ein "Ja" angezeigt wird.

Ansonsten ein "Nein".

Mfg Marco

[Axel]

Hi,

füge im Hauptdokument ein entsprechendes Feld ein und setze den Vorgagewert auf "Nein".

Im QuerySave-Event des Antwortdokumentes füllst du dann dieses Feld in Abhängigkeit des Feldes SA.

Das könnte so aussehen:

Sub Querysave(Source As Notesuidocument, Continue As Variant)

Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim parentdoc As Notesdocument

Set db = session.CurrentDatabase
Set doc = Source.Document

If doc.SA(0) = "Ja" Then
 Set parentdoc = db.GetDocumentByUNID(doc.ParentDocumentUNID )
 parentdoc.Feldname = "Ja"
 Call parentdoc.Save(True, True)
End If

Ich hoffe das hilft dir weiter.

Axel

[hmarco]

Hallo,

wie ich deinen Quellcode verstehe:

Ich erstelle ein Antwortobjekt mit "Ja" und danach ein
Antwortobjekt mit "Nein".

Dann würde er doch auch "Nein" ins Hauptdokument schreiben. Jedoch ich möchte es ja so haben,
dass im Hauptdokument ein "Ja" steht, wenn mindestenes ein Antwortobjekt ein "Ja" enthält.

Aber der Ansatz ist ja schon mal nicht schlecht.

Mfg Marco

[Axel]

Ich erstelle ein Antwortobjekt mit "Ja" und danach ein
Antwortobjekt mit "Nein".  

Dann würde er doch auch "Nein" ins Hauptdokument schreiben.

Hi,

dem ist nicht so, denn er bearbeitet das Feld im Hauptdokument nur, wenn im Antwortdokument im Feld SA ein Ja steht -> If - Abfrage.

Das sollte eingentlich so funktionieren. Hast du's mal probiert?

Axel

[hmarco]

Hallo,

geht leider nicht er setzt den Wert nicht um.

Kann es am Vorgabewert liegen?

Habe folgendes eingegeben:

@If(@IsNewDoc;"Nein";SA)

Mfg Marco

[Axel]

Hi,

glaube ich eigentlich nicht. Aber versuch's mal ohne bzw. nur mit "Nein".

Bekommst du eine Fehlermeldung, setzt er den Feldwert im Antwortdokument nicht oder hat er Probleme mit dem Script (was sieht man im Debugger) ?

Axel

[rar]

Hi Marco!
Probier mal das im Querysave der Antwortmaske:

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)

-rar

[Axel]

@rar

Ähhh?!

Warum alle Antwortdokumente durchlaufen, wenn man nur eins bearbeitet?  


Axel

[rar]

Angenommen:
Ich habe 2 Antworten. Beide "Nein"
Dann setze ich den Wert einer Antwort auf "Ja". Dann würde es reichen, wenn ich nur in dem einen Antwortdokument nachschaue.
Jetzt wird noch das zweite auf  "Ja" gesetzt. Dann passts auch noch.
Wenn aber dann das erste AntwortDoc wieder auf "Nein" gesetzt wird, muß ich ja (bevor ich den Wert im HauptDoc wieder auf "Nein" setze) nachschauen, ob in irgendeiner anderen Antwort "Ja" steht.
Glaub ich. War das irgendwie verständlich?
-rar

[Axel]

@rar

Yoo!

Von der Seite betrachtet hast du recht. Diese Seite der Medaille hab ich bisher ausser Acht gelassen.


Axel

[rar]

*mirselberaufdieschulterklopfend*

[Axel]

@rar

Aber nicht so fest, denn du kennst ja das Sprichwort
"Eigenlob....."  

Trotzdem, darfst du ein bisschen klopfen. Hast das gut gemacht.  

Axel

[hmarco]

Hallo,

beide Skripts gehen nicht.

Es wird der Wert in SA wird nicht
gesetzt.

Mfg Marco

[Axel]

Hi,

wie setzt du denn den Wert von SA? Soweit ich das bisher verstanden haben macht das der User per Eingabe.


Axel

[rar]

Heißt das Feld im Hauptdoc auch SA?

[hmarco]

Hallo,

das Feld heißt im Hauptdokument wie auch im Antwortdokument "SA".

Das Feld "SA" im Antwortobjekt ist nach einem anderem Feld berechnet.

Mfg Marco

[hmarco]

hallo,

habt ihr noch eine Idee?

Wäre euch sehr dankbar.

Mfg Marco

[Axel]

Hi,

kann es sein, dass durch die Berechnung nach einem anderen Feld ein falscher Wert in SA steht, und dadurch die Aktualisierung des HauptDoks nicht zustande kommt?

Was sagt denn der Debugger? Welchen Feldinhalt hat SA bei der IF-Abfrage ?

Axel
 

[hmarco]

Hallo,

merkwürdig in QuerySave hat Notes
das Skript nicht gespeichert.  

Ich habe jetzt das Skript von "rar" eingefügt und bekomme jetzt den Fehler:

"invalid universal id"

Was bedeutet das?

Mfg Marco

[Axel]

Hi,

das bedeutet, dass er das Dokument mit dieser ID nicht finden kann.

Überprüfe das Script nochmal.


Axel