Domino 9 und frühere Versionen > ND7: Entwicklung

Parentdocument neu zuweisen, aber wie?!

<< < (3/3)

Schorschi353:
Danke Thomas, für deine Erläuterung.

Aber hier nochmal zum angucken  ;)

dirk_2909:
Aber die von Thomas beschriebene Lösung wäre genauso schnell umzusetzen
gewesen, wie Deine Grafik.

Mach es so wie Thomas beschrieben hat oder rufe in Deinem Agenten eine Inputbox
auf, in der Du/der Benutzer die UNID eingeben kann....

Schorschi353:
Hab jetzt noch PickListString eingebaut, jetzt kann man das Dokument auswählen, welches man als neues Hauptdokument deklarieren will, der Code sieht jetzt so aus:


   Dim session As New notessession
   Dim uiws As New NotesUIWorkspace
   Dim db As notesdatabase
   Dim dc As notesdocumentcollection
   Dim doc As notesdocument
   Dim docH As NotesDocument
   Dim vPicklist As Variant
   
   Set db=session.currentdatabase
   
   vPicklist = uiws.PickListStrings( PICKLIST_CUSTOM, , db.Server , db.FilePath , "Lookup\ProjektNachUNID", "Projekt wählen", "Bitte deklarieren Sie ein Projekt als Hauptdokument!", 1  )
   If ( Isempty( vPicklist ) ) Then
      Messagebox "Vorgang abgebrochen!" , , "Projekt auswählen"
      Exit Sub
   Else
      Messagebox Cstr(vPicklist(0)) , , "Ausgewählte Projekt-UNID:"
   End If
   
   Set docH = db.GetDocumentByUNID(Cstr(vPicklist(0)))
   Set dc=db.unprocesseddocuments
   Set doc = dc.GetFirstDocument
   Call doc.MakeResponse(docH)
   
   Call doc.save(False,False,True)

Danke euch nochmal!  :)

Marius

Navigation

[0] Themen-Index

[*] Vorherige Sete