Dokument --> Antwortdokument --> $REF

[Fbaum]

Tja, so habe ich´s schon versucht. Das Feld $REF wird aber als Text Feld angelegt und nicht als RESPONSE Feld...

[ata]

... dann mit LS die Dokumente mit UnprocessedDocuments holen und dann mit...

Call notesAntwortDocument.MakeResponse( notesHauptDocument )

... dann müßte es funktionieren...

ata

[Fbaum]

Hallo ata,
ich weiß ich verlange fast zuviel....aber könntest Du mir bei dem Script etwas helfen? Bin in LS noch nicht so ganz bewandert...
Danke schöööön schon mal....!!

[ata]

... wenn ich zu Hause bin, "g'veschbert" habe, dann schau ich mal, was ich für dich tun kann...

ata

[Fbaum]

"Hot´s Veschber gschmeckd?"  
FBaum

[ata]

... wie es eben so ist - erstens komt es anders und zweitens als man denkt...

... ich kümmer mich gleich noch drum...

ata

[Fbaum]

kein problem...eins nach dem anderen...

[Performance]

@rob
copy&paste - geht wenn das dok ein $REF vom speziellen Feldtyp Response hat, hat das dok ein gleiches Feld vom Typ Text funktioniert das c$p nicht


@Fbaum
''''' habe in meiner Knowoledge Base gekuckt
Dim s as New NotesSession
Dim db as NotesDatabase
Dim Col as NotesDocumentCollection
Set db = s.CurrentDatabase
Set col = db.UnprocessedDocuments
Set doc = col.GetFirstDocument
If doc.IsResponse Then
   Set parent = db.GetDocumentByUNID( doc.ParentDocumentUNID )
    If parent.IsResponse Then

Dim grandPa As NotesDocument
 Set grandPa = db.GetDocumentByUNID(parent.ParentDocumentUNID )
'## im Prinzip ist diese Zeile wichtig ##
  Call doc.MakeResponse( grandPa )
Else
'....                                    
End If
End If
Call doc.Save( True, False )
End Sub



cu

[Fbaum]

Hallo,
irgendwie macht das Script nix.
Habe es in einen Agenten eingebaut.
Was ist sonst noch zu machen oder war das schon falsch?

[Performance]

das war nur ein Beispiel....


wo willst du die Aktion auslösen ?
ist dein Antwortdok auch als soclches im Designer deklariert ?
soll die Aktion nur für ein dok gelten ?


cu

[Fbaum]

Ich möchte die Aktion in der Ansicht auslösen. Am besten damit, daß ich das orginal Dok und das Antwortdok markiere.
Das Antwortdok ist im Designer auch als solches angegeben. Nur über LS wird das Dok nicht als Antwortdok erstellt.

[Performance]

moment ich bin dran.......

[Rob Green]

sach mal, FBaum, schieb doch endlich in drei Teufels Namens diese beknackte DB rüber...sakra sappra diamiamau...

*nix für ungut, bin nit böse, nur etwas ungeduldig  , es ist ein rumstochern im Nebel, weil Du doch selbst nicht weißt, ob das Doc ein Response ist oder was auch immer...ich denke, daß es schona us Respekt vor den Bemühung vieler schon angebracht wäre..und wenn sich Deine Firma eben jungfräulich mit der obergeheimen Anwendung anstellt, dann lass es einfach...dag denen, daß es nicht geht und schluß...meine Meinung natürlich..dann quälst Du Dich nicht mehr so..ok, nur ein gut gemeinter Rat*

[ata]

... mit dem ersten Agenten (alle markierten Dokumente) übernimmst du die Zuweisung der DocID in die Notes.ini

@Environment("MainDocID" ; @Text(@DocumentUniqueID))

... der zweite Agent hat folgenden Code

Code

   Dim session    As New NotesSession
   Dim dbThis       As NotesDatabase
   Dim dc          As NotesDocumentCollection
   Dim docMain   As NotesDocument
   Dim doc          As NotesDocument
   Dim sDocID      As String
   Dim i             As Integer
   
   Set dbThis       = session.CurrentDatabase
   Set dc          = dbThis.UnprocessedDocuments
   
   ' # Die DocID einlesen
   sDocID         = session.GetEnvironmentString("MainDocID")   
   If sDocID = "" Then
      Msgbox "Es konnte keine zugehörige DocID gelesen werden"
      Exit Sub
   End If
   
   ' # Das Haupdokument initialisieren
   Set docMain = dbThis.getDocumentByUNID(sDocID)
   If docMain Is Nothing Then
      Msgbox "Das Haupt-Document konnte nicht geöffnet werden"
      Exit Sub
   End If
   
   If dc.Count > 0 Then
      Set doc = dc.GetFirstDocument
      Call Doc.RemoveItem("$Ref")
      For i = 1 To dc.Count
         Call doc.MakeResponse( docMain )
         Call doc.Save(True , True)
         Set doc = dc.GetNextDocument(doc)         
      Next
   Else
      Print "Es waren keine Dokumente markiert"
   End If
   Call session.SetEnvironmentVar("MainDocID" , "")

Ich habe den Code getestet , der funzt...

ata

Edit: ... das ist ja mittlerweile richtig lebhaft geworden..

ata

[Performance]

ich geb dann auch meinen Senf dazu

@rob
es ist manchmal frustrierend ellenlange beiträge zu lesen wo man nicht den roten Faden erkennen kann

@Fbaum
ich habe das in der view mit einem Aktion button gemacht

Sub Click(Source As Button)
   Dim ws As New NotesUIWorkspace   
   Dim s As New NotesSession
   Dim db As NotesDatabase
   Dim parent As NotesDocument, child As NotesDocument
   Dim col As NotesDocumentCollection
   
   Set db = s.CurrentDatabase
   
   Set col = db.Unprocesseddocuments
   If col.count <> 2 Then Exit Sub
   Set parent = col.GetFirstDocument
   Set child = col.GetLastDocument
   REM Dokument aufgrund eines Feldes unterscheiden
   If (Messagebox("Ist  < " + parent.subject(0) + " > das Hauptdokument ?", 3 + 32, "Info") ) = 6 Then
      ''' ok
   Elseif (Messagebox("Ist < " + child.subject(0) + " > das Hauptdokument ?", 3 + 32, "Info") ) = 6 Then
      Set child = col.GetFirstDocument
      Set parent = col.GetLastDocument
   Else
      Exit Sub
   End If
   REM damit nicht das Hauptdok ein Kinddok des Kindes wird checkst du hier nochmal die Form ab
   If parent.Form(0) <> "MainTopic" Then Exit Sub
   
   Call child.MakeResponse(parent)   
   child.save True, False
   Call ws.viewrefresh
   
End Sub




cu

[Fbaum]

@ata
Genau so habe ich mir das vorgestellt...!!  
FUNKTIONIERT!!
Vielen Dank für die Hilfe !!

@all
Danke an alle...!

Gruß FBaum

[ata]

@Performance

... das klappt aber nur bei jeweils einem Antwortdokument - bei mehreren klappt das nicht...

... da das Kriterium für das Haupdokument nicht bekannt ist, und es sieht mir danach aus, daß die Antwortmaske später zur Antwortmaske gemacht wurde, und daß es bereits manuelle $Ref-Felder gibt, habe ich hier den 2-Agenten-Weg gewählt - man kann das auch in einem Rutsch machen - wenn das Kriterium (Maske?) des Hauptdokumentes eindeutig ist.

... mit dem Weg interessieren mich die Kriterien nicht - funktioniert völlig unabhängig in jeder DB...

ata

[Performance]

yep ata

hatte auch so verstanden - jeweils 2 doks


**** alles wird gut ****


cu

[Rob Green]

[Performance]

und da beschwere sich noch einer über nichtssagende Postings  

cu