Domino 9 und frühere Versionen > ND6: Entwicklung

Mit Dialogbox mehrere Dokumente einer Ansicht ändern.

(1/2) > >>

Kadlec:
Hallo zusammen
Ich möchte in einer Ansicht verschiedene Dokumente ändern.
Da die Dialogbox ja die Sicht auf die Ansicht verdeckt möchte ich in der Dialogbox verschiedene Felder des zu ändernden Doks. anzeigen.

Leider wird immer nur der Wert des Dokuments, das mit dem "Auswahlbalken" markiert ist angezeigt, nicht aber die anderen mit einem Haken selektierten.

Auszug aus dem Code.

Dim ws As New NotesUIWorkspace
Dim uiview As NotesUIView
Dim session As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
   
Set db = session.CurrentDatabase
Set uiview = ws.CurrentView
Set collection = uiview.Documents
Set doc = collection.GetFirstDocument
   
While Not (doc Is Nothing)
Call ws.DialogBox( "PRTSDC", True, True,False,True,  "xxxxxxx",doc )
PartNo = doc.GetItemValue( "PartNumber_T" )
Set doc = collection.GetNextDocument (doc)
Wend

Die verschiedenen Doks. sind in der collection vorhanden.

Gruss
Boris

dirk_2909:
Hallo,

Du musst Dir aus allen markierten Dokumenten die entsprechenden Werte "rausschreiben" und in entsprechende Felder eines Dokumentes schreiben, dass Du temporär erzeugst.

Dieses temporäre Dok musst Du dann der Dialogbox übergeben....

Kadlec:
Hab jetzt mal folgendes gemacht was aber auch nicht funktioniert.


Dim ws As New NotesUIWorkspace
Dim uiview As NotesUIView
Dim session As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
   
Set db = session.CurrentDatabase
Set uiview = ws.CurrentView
Set collection = uiview.Documents
Set doc = collection.GetFirstDocument
   
While Not (doc Is Nothing)
PartNo = doc.GetItemValue( "PartNumber_T" )

Set docTmp = db.CreateDocument()   
docTmp.PartNo = PartNo
Call ws.DialogBox( "PRTSDC", True, True,False,True,  "xxxxxxx",docTmp )
Set doc = collection.GetNextDocument (doc)
Wend


...und in meiner Teilmaske für die Box habe ich dann den Feldnamen PartNo angezogen.

umi:
Schau Dir nochmals die Syntax von Dialogbox an, fehlen da nicht noch ein paar parameter? oder wenigstens die ,,,

dirk_2909:
Was genau funktioniert denn nicht ????

Das funktioniert ohne Probleme ?! :

--- Code: ---docTmp = db.CreateDocument

docTmp.ReplaceItemValue( "fldMyField" , doc.GetItemValue( "fldMyFieldToo" ) )

call ws.DialogBox( strForm , True , True, False ,False, False, False , "XXX" , docTmp , True , False , False )
--- Ende Code ---

Navigation

[0] Themen-Index

[#] Nächste Seite