IsEmpty/CheckAndEvaluate

[Herr.Vorragend]

Kurze Frage.
Ihr habt in diversen Aktionen (Annehmen,Schließen,etc.) die Funktion CheckAndEvaluate, dessen Ergebnis anschließend mit IsEmpty überprüft wird:

Code

	Evalstring = |@unique(@NameLookup ( [Exhaustive]; "| + uidoc.Document.user(0) + |" ;"FullName"))|
	EvalVar = CheckAndEvaluate(Evalstring, uidoc.document)
	If IsEmpty(EvalVar) Then
		isnotesuser = False
	Else
		isnotesuser = True
	End If

Als Ergebnis von CheckAndEvaluate erhalte ich (Debugger) ...
EvalVar as Variant
-  EvalVar(0) As String

Und bei der IsEmpty-Abfrage spring Notes grundsätzlich immer zum Else-Teil.

Fazit: IsEmpty prüft, meiner Laienmeinung nach, nicht korrekt.
Selbst wenn ich vorab (testweise) EvalVar = "" setze, springt die IF-Abfrage immer zum Else-Teil.

Hat jemand einen Tipp, woran das liegen könnte?

[eknori]

Kannst du mal mehr zur verwendeten Notes Version sagen, bitte?
Diese Routine ist schon recht lange in der Datenbank. Ich bin mir ziemlich sicher, daß die bisher immer so funktioniert hat, wie sie designed wurde.

Wenn die Funktion, wie bei dir , immer in den else Zweig springt, dann scheint EvalVar nicht leer zu sein.

Du könntest statt des IsEmpty ein

if trim(EvalVar(0)) ="" then

...

probieren.

Ich suche dann mal derweil, ob es zu Isempty irgendwelche KB EInträge gibt.

[eknori]

oder füge einfach in die Funktion CheckAndEvaluate in der lib.appl.functions ein

CheckAndEvaluate = ""

am Anfang der Funktion ein

Ich befürchte, daß CheckAnd Evaluate nicht ordentlich initiiert wird

[Herr.Vorragend]

Kannst du mal mehr zur verwendeten Notes Version sagen, bitte?

Notes 6.5.5 / Win

Wenn die Funktion, wie bei dir , immer in den else Zweig springt, dann scheint EvalVar nicht leer zu sein.

Ich bin mit dem Debugger im Einzelschrittmodus durchgegangen und er liefert nur ein EvalVar(0) mit "" aus. (Am Rande: Natürlich funktioniert die Funktion, wenn der User auch wirklich ein Notesuser ist)

Du könntest statt des IsEmpty ein
if trim(EvalVar(0)) ="" then
... probieren.

Ich suche dann mal derweil, ob es zu Isempty irgendwelche KB EInträge gibt.

So habe ich es heute auch abgeändert. Es hat mich halt nur interessiert, wieso es nicht klappt. Und ich vermute (mal wieder) ganz stark einen Client-Bug.

oder füge einfach in die Funktion CheckAndEvaluate in der lib.appl.functions ein

CheckAndEvaluate = ""

am Anfang der Funktion ein

Ich befürchte, daß CheckAndEvaluate nicht ordentlich initiiert wird

Ich habe den Code zwar gerade nicht greifbar, aber ich habe noch in Erinnerung, dass CheckAndEvaluate bis zum "echten" Evaluate ein Variant mit Inhalt "Null" ist. Erst durch das Evaluate wird es zu einem leeren String.

Danke,
Carsten

[eknori]

im 7.0.3 und im 8.0 Client ist das reproduzierbar ...

Ist übrigens ein gutes Beispiel, wofür man die "Dynamischen Aktionen" von Anton Tauscher ( ata ) in der Datenbank zum Zwecke der Fehlersuche einsetzen kann. Man muss dann nicht am eigentlichen Code rumbasteln und kann auch mit den Live Daten probieren.

[Herr.Vorragend]

oder füge einfach in die Funktion CheckAndEvaluate in der lib.appl.functions ein

CheckAndEvaluate = ""

am Anfang der Funktion ein

Das hat leider nicht funktioniert.

Ich denke, dass ich mich vom IsEmpty verabschieden muß. Wenigstens ist hier der Aufwand geringer.

[Herr.Vorragend]

Hmm, ärgerlich.
Jetzt bin ich an einem Punkt, wo ich langsam Probleme bekomme. 

Ich habe nun im Feld User eine Emailadresse drinstehen, die beim Evaluate wirklich einen leere Wert zurückliefert.

Inhalt User (mit Anführungszeichen, etc.):

Code

"Vorname Nachname" <abcdef@domain.de>

Somit erhalte ich bei ...

if trim(EvalVar(0)) ="" then

... die Fehlermeldung:

Variant enthält keinen Container

Ein EvalVar(0) existiert halt nicht und EvalVar ist "".

Hat evtl. jemand einen Tipp, wie ich das dauerhaft lösen kann? Am besten direkt in der Funktion CheckAndEvaluate, um auch weitere Inkompatibilitäten abzusichern?

Danke.

[Update]
Irgendwie ärgert mich dieser Quick&Dirty-Workaround. Aber so funktioniert es halt:

Code

	isnotesuser = False
	If Isarray(EvalVar) Then
		If Trim(EvalVar(0)) <> "" Then isnotesuser = True
	Else
		If EvalVar<>""  Then isnotesuser = True
	End If