Domino 9 und frühere Versionen > Entwicklung

per Dialogfeld doc erstellen

(1/2) > >>

robertpp:
Hallo, Ich bräuchte mal eure hilfe!!

Ich hab in einem Doc ein Dialoglisten-Feld mit einigen Werten:

AS/400,
Windows,
Internet,
Docuware,
EIS,
Remotezugriff,
Kundenportal

und es kommen auch immer wieder werte dazu!!!(wird über @DbColumn gefüllt)

In diesem Feld kann man mehrfachauswahlen treffen.
So ich möchte jetzt wenn man so einen oder mehrere Werte auswählt zb:  "Windows" das ein antwort doc und bei mehrfachauswahl pro auswahl ein doc erstellt wird oder zumindestens ein doc mit diesem Wert erstellt wird und anderen werte die ich dann beim erstellen noch mitgebe.

Ist soetwas möglich?

robertpp

ata:
... grundsätzlich ja, aber nur mit LS...

ata

robertpp:
Ja sollte kein problem sein ich bräuchte nur einen ansatz!!
Wenn ich mich dann nicht auskenne dann rühre ich mich eh!!!

@ata
heisst das du hast schon so etwas ähnliches gemacht und du würdest mir da einen ansatz geben oder mir erklären wie ich das mache?

danke robertpp

koehlerbv:
Mal so auf die Schnelle ;-)

docCurrent ist das Dokument, zu dem Responses erstellt werden sollen
vChoice übernimmt die gewählten Keywords
Mit dem Rest solltest Du klar kommen ;-)

HTH,
Bernhard


Sub Click(Source As Button)
   Dim ws As New NotesUIWorkspace
   Dim session As New NotesSession
   Dim dbCurrent As NotesDatabase
   Dim docCurrent As NotesDocument
   Dim docResponse As NotesDocument
   Dim uidocResponse As NotesUIDocument
   Dim iLoop As Integer
   Dim vChoice As Variant
   
   Set docCurrent = ws.CurrentDocument.Document
   Set dbCurrent = session.CurrentDatabase
   
   vChoice = docCurrent.Keywords
   
   If Isempty (vChoice) Then   'Wenn nix eingegeben wurde ...
      Exit Sub
   End If
   
   For iLoop = 0 To Ubound (vChoice)
      Set docResponse = dbCurrent.CreateDocument    'Neues Document erzeugen
      docResponse.Form = "ResponseDoc"    'Maskenname
      docResponse.Keyword = vChoice (iLoop)    'Gewähltes Schlüsselwort eintragen
      Call docResponse.MakeResponse (docCurrent)   '$Ref setzen
      Set uidocResponse = ws.EditDocument( True, docResponse)    'Zum Editieren im FrontEnd öffnen
   Next
   
End Sub

robertpp:
Danke für die hilfe ich denke das reicht mir oder vielleicht nur für den Anfang!!!
na vorerst passt das!!!

danke robert

Navigation

[0] Themen-Index

[#] Nächste Seite