uidoc für inherit vorselektieren

netbasset · 26. September 2007

hi ... ich möchte ein ParentDoc im Workspace aufgrund einer Kundennummer auswählen und dazu bzw darunter ein neues Dokument mit ComposeDocument erstellen. Es soll die Feldwerte erben.

Leider erbt das neue ComposeDocument immer die Felder von dem gerade in der Ansicht selektierten Dokument. Nachdem beenden der Aktion ist das richtige VaterDokument ausgewählt, aber eben zu spät.

Set uiview = ws.CurrentView
Set ParentVw = db.GetView("FaOnlyKdnr")
Set ParentDoc = ParentVw.GetDocumentByKey(" 1071234")
If Not ParentDoc Is Nothing Then

Call uiview.SelectDocument(ParentDoc)

'klappt alles bis hierher

Set uidoc = ws.ComposeDocument("", "", "Person")
'erbt leider nicht vom ParentDoc
Call uidoc.FieldSetText("GHSAspNr","111")
Call uidoc.FieldSetText("Salutation","Herrn")
Call uidoc.FieldSetText("FirstName","Dieter")

jemand ne idee wie ich das currentdoc setzen kann?

Laura · 27. September 2007

Probiere mal das aus...

Code

Dim ws As New NotesUIWorkspace
Dim Responsedoc As notesdocument
...
Set uiview = ws.CurrentView 
Set ParentVw = db.GetView("FaOnlyKdnr")
Set ParentDoc = ParentVw.GetDocumentByKey("1071234")
If Not ParentDoc Is Nothing Then


Set Responsedoc = db.CreateDocument
Responsedoc.Form = "Person"
Call Responsedoc.makeresponse(ParentDoc)
Call Responsedoc.computewithForm(True,False)   'Hier werden die Feld-Inhalte übernommen (natürlich nur dann, wenn die Antwort-Maske entsprechend gestrickt ist)
Responsedoc.GHSAspNr = "111"  'Nachträglich die Felder ändern


'und den Rest der Felder setzen...




Set uidoc = ws.editdocument(True,Responsedoc)   'Erst hier wird das Antwort-Doc zum Bearbeiten geöffnet und muss manuell gespeichert werden
'Oder
Call Responsedoc.Save(True,False)




End If   ' Not ParentDoc Is Nothing

Alles anzeigen

Habe nicht getestet, daher keine Garantie...

Teilen