Domino 9 und frühere Versionen > Entwicklung

Abfrage auf Doclinks?

<< < (3/3)

Driri:
Hi,

ich wüßte nicht, wie das funktionieren sollte. Das heißt allerdings nicht, daß es nicht geht.

immanuel:
Hallo Zusammen

Auf die Schnelle habe ich mir überlegt, dass ich einen Link ala
Notes:///4125687B0031AF3F/BDEDFCA988B2DB3C85256207004F45A9/CEDCE3F236FE927EC1256D81002780F2
machen könnte und dann das Dokument per @URLOpen(link) öffne.

Dies hat geklappt. Die NotesURL habe ich von den Dokumenteigenschaften, und heisst dort Bezeichner. Ist dieser Bezeicher immer eindeutig und verändert sich nicht?

Grüsse
Manuel

immanuel:
Hallo!

Ich stehe nun vor einer weiteren Herausforderung.
Da die Auswahl im Dropdownfeld der Input für eine Abfrage mit DBLookup ist,soll direkt nach der Auswahl ein DBLookup gemacht werden. Leider schluckt Notes nur LS beim betreten/verlassen eines Feldes.
Ich möchte FIELD iqProblemTypeLink := @DbLookup("":"NoCache";""  ; "ProblemType Handler\\By Problem Type"  ; iq_ProblemType  ; "pthProblemTypeText" );
Nach dem Verlassen des Feldes betätigen.
Gibt es Umwege, oder kann ich wirklich nur LS verwenden? Wenn nur LS, wie heisst die DBLookup Funktion in LS?

Denke für euere Hilfe!

Greez
Manuel

Axel:
Hi,

bei den beiden Events Entering und Exiting ist nur Script möglich. Als einzigster "Umweg" kannst du die Evaluate - Anweisung einsetzen. Aber Achtung. Mit Evalute funktionieren nicht alle Formelbefehle, @Command z.B. geht nicht.

Such mal hier im Forum nach Evaluate. Du bekommst jede Menge Treffer. Und hier Iris Today findest du auch noch Infos.

Als Script-Alternative zu @DbLookup kann man GetDocumentByKeys aus der NotesView - Klasse ansehen.


Axel
 

immanuel:
Hi Axel!
Danke, habs jetzt im LS zum Laufen gebracht. Hier der Code:

--- Code: ---Sub Exiting(Source As Field)
   ' This code has been written because it's not possible in Formula Language   
   
   Dim workspace As New NotesUIWorkspace
   Set doc1 = workspace.CurrentDocument
   Set doc1 = workspace.EditDocument( True )'go in Edit mode
   
   Dim ws As New NotesUIWorkspace
   Dim doc As NotesDocument
   Set doc = ws.CurrentDocument.Document 'Shortcut
   
    ' Get the ProblemTypeText array. (0) ist the needed entry   
   aProblemTypeText = Evaluate ( {@DbLookup("":"NoCache";""  ; "ProblemType Handler\\By Problem Type"  ; iq_ProblemType  ; "pthProblemTypeText" )}, doc )
   sProblemTypeText = aProblemTypeText (0) ' get the value by accessing the array
   
   ' print out
   Call doc1.FieldSetText("Testfeld",sProblemTypeText ) 'assign to that person
   Msgbox sProblemTypeText
   
End Sub
--- Ende Code ---

Hier noch was interessantes aus der IBM Info:

--- Zitat ---However, there is one example of where using an Evaluate statement can actually make your code run faster -- a lot faster: using an Evaluate ({@Dblookup...}) in place of the NotesDatabase method GetAllDocumentsByKey.
--- Ende Zitat ---

Greez
Manuel

Navigation

[0] Themen-Index

[*] Vorherige Sete