Lotus Notes / Domino Sonstiges > Help-Desk Applikation !!Help!!

Fragen zu 1.0.10

<< < (6/16) > >>

Thomas Schulte:
Ulrich was passiert da wenn das kein Name ist?

eknori (retired):
nichts aufregendes; er replaced einfach mit dem Wert ...

Thomas Schulte:
Na dann bau ich das bei mir auch mal ein

tceins:
Hallo,

vielen Dank für die schnelle Lösung, bin leider erst jetzt dazu gekommen sie umzusetzen...
allerdings wurde vom Designer ein Fehler gemeldet...

      Evalstring = |@unique(@NameLookup ( [Exhaustive]; "| + uidoc.Document.user(0) + |" ;"FullName"))|
      EvalVar = CheckAndEvaluate(Evalstring)

In der zweiten Zeile stand vorher ein einfaches "Evaluate(Evalstring)"
wenn ich das "CheckAndEvaluate(Evalstring)" dagegen austausche funktioniert die Wiedervorlage.
Ich hoffe, daß dies im Sinne des Erfinders war...  :-:

Heute stelle ich Euer Produkt bei unseren Mitarbeitern vor, wenn ich danach keine Löcher im Bauch habe,
hole ich mir noch einen Kaffee und mache im WIKI unser Coming Out...

Also, bis später.....

eknori (retired):
hier die fehlende Funktion: ( in lib.appl.functions )

Function CheckAndEvaluate(Evalstring As String)As Variant
%REM
###################################################################################
Goal: Check if an Evaluation formula is correct and return the value for this formula. if the formula is not correct return an
empty string

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
VERSION / WHEN / WHO / CHANGES

1.0/23.03.2005/Thomas Schulte/--      
'###################################################################################
%END REM
   Dim irc As Variant
   
   On Error Goto ERRHANDLE
   iRC = CheckSelectionFormulaValid( Evalstring)
   If iRC(0) = NO_ERROR Then
      CheckAndEvaluate = Evaluate(EvalString)
   End If
   
EXITPOINT:
   Exit Function
ERRHANDLE:
   xProc = Getthreadinfo(LSI_THREAD_PROC)
   xError = xProc  & ": " &Trim$(Str$(Err)) & " on line " & Cstr(Erl) & ": " & Error$
   If UseOpenLog Then
      Call LogError
   Elseif LogScriptErrors Then
      Call ThrowException ( xProc, xError  )
   End If
   Print xError   'In all cases
   If ResumeMethodNext Then
      Resume Next   
   Else
      Resume EXITPOINT
   End If   
End Function

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete