Domino 9 und frühere Versionen > ND6: Entwicklung

Antwortdokumente kopieren?

<< < (4/5) > >>

wuwu:
Aktualiserung der Antwortdokumente:

per Button der einen Agenten aufruft oder etwas macht, das die Antwortdokumente automatisch aktualisiert werden.

Das die 3 berechnten Felder nicht per Hand -> Edit -> Save -> Close aktualisiert werden müssen.

Mein Problem, das sind pro Hauptdokument nicht 3 Antwortdokumente, es können schon mal 30 werden!!!

Du hast sicherlich etwas auf Lager aus deinem jahrelangem Wissen, oder?

danke im vorhinein, Horst

koehlerbv:
Entweder, Du berechnest die Ergebnisse selber und füllst die Felder, oder Du verwendest NotesDocument.ComputeWithForm.

Bernhard

TMC:
Ich bin jetzt nicht mehr auf dem laufenden, hast Du die Antwortdokumente in einer NotesDocumentCollection?

Wenn Du auf einen Schlag ein Item in allen Docs der Collection ersetzen willst, bietet sich auch NotesDocumentCollection.StampAll an.

wuwu:
Die Antwortdokuemnte werden über eine DC erzeugt, siehe ->

......
   Dim view As notesview
         Dim v_doc As NotesDocument
         
         Set view = db2.GetView("vwork_plan_details")
         Set dc = view.GetAllDocumentsByKey(doc.KTR_Detail(0))
         Set v_doc = dc.GetFirstDocument
         
         Do Until v_doc Is Nothing
            
            Set docResponse = db.CreateDocument
            
         'Dim count_response As Integer
         'Count_response = count_response+ 10
            
            With docResponse
               
               .Form = "work_plan"
               .work_plan = ""
               .work_plan_ReqNumber = doc.ReqNumber(0)
               .work_plan_autor = session.CommonUserName
               .work_plan_piece_scale = Csng(doc.piece_scale(0))
               .work_plan_follow_nr = Cint(v_doc.PAPAFO(0))
               .work_plan_number = Cint(v_doc.PAPAGA(0))
               .work_plan_device_number = Clng(v_doc.PAPMNR(0))
               
Dim item As NotesItem
               Set item =  docResponse.GetFirstItem( "work_plan_Autor" )
               item.IsAuthors = True
               
               Call .MakeResponse( doc )
               Call .ComputeWithForm( False, False )               
               Call .Save( True , True )
                        
            End With
         'var = var & v_doc.t_KTR(0) & Chr(10)
            Set  v_doc = dc.GetNextDocument(v_doc)
         Loop

und nun ist eben mein Problem, das ich im erzeugten Antwortdokument 3 berechnete Felder drinnen habe, die ich per Hand aktualisieren mus -> Edit -> Save -> Close.
Ich habe pro Hauptdokument nicht 3 sondern es können schon mal 30 Antwortdok. werden und das ist sehr mühsam!

Danke für eure Hilfen im vorhinein,

Horst

dirk_2909:
Hallo,

so ganz verstehe ich Dein Problem auch nicht  ??? :-\

Willst Du die Antwortdokumente aktualisieren, wenn sich etwas am Hauptdokument ändert? -> Dann musst Du die geämdertten Werte manuell in die Antwortdokumente schreiben (über die Collection - doc.Responses) und die Dokumente neue berechnen lassen ( docResponse.ComputeWithForm(...) ).

Wenn in den  Antwortdoks beim Anlegen was berechnet werden soll, dann ist deine Lösung schon O.K.

Oder habe ich Dein Problem falsch verstanden ??

Dirk

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete