Formel in Lotus Script ausführen

[dani_blues]

Hallo zusammen, ich habe bereits in diesem Thread http://atnotes.de/index.php?topic=41643.0 nach einer Lösung für mein Problem gefragt.

Nachdem dort keine Antwort kam, probier ich es jetzt einfach über einen neuen Thread, da es sich ja eigentlich um ein neues Problem handelt.

Meine Frage: Wie bekomme ich diese Formel in das Exiting eines Feldes? Da geht nur Lotus Script.

@SetField("alter";@DbLookup("":"NoCache"; ""; "Ansicht"; konvert1_2; "Alterandersdok"));
@If(@IsError(alter);@Prompt([Ok];"Hinweis";"Keine Übereinstimmung gefunden");"")

Gruss und Danke
Dani

[koehlerbv]

Im anderen Thread ist Dir aber auch schon gesagt worden, dass Dein Konstrukt im Exiting Event nichts taugt. Kein Benutzer ist verpflichtet, das Feld auch zu verlassen.

Bau das in LS (NotesView.GetDocumentByKey) ins PostRecalc rein, dann wird das auch im QuerySave ausgeführt und bei F9. Und ins Exiting packst Du ein NotesUIWorkspace.ViewRefresh ein - das triggert dann das PostRecalc beim Verlassen des Feldes.

Bernhard

[dani_blues]

Dankeschön!

Wenn ich nun diesen Code hinter eine Schaltfläche zum testen lege, erscheint erst der Fehler: Object variable not set
danach: Invalid key value type.

Hängt es wohl mit key = konvert_z1    zusammen?
konvert_z1 ist ein Feld.



Sub Click(Source As Button)
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim view As NotesView
   Dim doc As NotesDocument
   key =  konvert_z1
   Set db = session.CurrentDatabase
   Set view = db.GetView ("VorbelegteAlterView" )
   Set doc = view.GetDocumentByKey (key )
   If Not (doc Is Nothing) Then
      Messagebox "$" & doc.GetItemValue ("Alter")(0),, _
      "Alter"
   Else
      Messagebox "VorbelegteAlterView " + key,, "Not found"
   End If
End Sub

W

Sub Click(Source As Button)
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim view As NotesView
   Dim doc As NotesDocument
   key =  konvert_z1
   Set db = session.CurrentDatabase
   Set view = db.GetView ("VorbelegteAlterView" )
   Set doc = view.GetDocumentByKey (key )
   If Not (doc Is Nothing) Then
      Messagebox "$" & doc.GetItemValue ("Alter")(0),, _
      "Alter"
   Else
      Messagebox "VorbelegteAlterView " + key,, "Not found"
   End If
End Sub

[m3]

Na dann würde ich das Feld "konvert_z1" auch als solches verwenden NotesDocument.GetItemValue(...).

Im Gegensatz zur @-Formelsprache stehen einem die Felder in Lotusscript nicht automatisch als Variablen zur Verfügung.

[eknori]

Object variable not set

Benutze Option Declare und den debugger. Dann lösen sich solche Fehler sofort in Wohlgefallen auf.

[dani_blues]

Bei dem NotesItem.... kommt lt Debugger ein Variant does not contain an object

Das Script sieht so aus:

Sub Click(Source As Button)
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim view As NotesView
   Dim doc As NotesDocument
   NotesDocument.GetItemValue(konvert_z1)
   key =  konvert_z1
   Set db = session.CurrentDatabase
   Set view = db.GetView ("VorbelegtealterView" )
   Set doc = view.GetDocumentByKey (key )
   If Not (doc Is Nothing) Then
      Messagebox "$" & doc.GetItemValue ("alter")(0),, _
      "alter"
   Else
      Messagebox "VorbelegtealterView " + key,, "Not found"
   End If
End Sub

[koehlerbv]

Warum sieht das immer noch so aus? Martin hat doch den Fehler schon genannt samt Lösung.

Bernhard

[dani_blues]

Ja aber ich hab doch das Feld konvert_z1 als Variable NotesItem.... angesprochen?!?

Hatte ich vorher nicht. 

Generell: Wenn ich mir aus der Notes-Hilfe den Code rauskopiere in meine Schaltfläche und es exitstieren genau die Ansichten und Felder -> funktioniert das dann oder muss man diesem Code noch etwas hinzufügen?

[koehlerbv]

Bevor Du Code kopierst, solltest Du Dir die Dokumentation dazu durchlesen. Dein NotesDocument.GetItemValue ist vollkommener Nonsens.

Bernhard

[jokky]

Na dann würde ich das Feld "konvert_z1" auch als solches verwenden NotesDocument.GetItemValue(...).

Im Gegensatz zur @-Formelsprache stehen einem die Felder in Lotusscript nicht automatisch als Variablen zur Verfügung.

[m3]

Ja, aber Du solltest schon den Unterschied zwischen einem Klassennamen wie "NotesDocument" und einer Instanzvariablen wie "doc", über die dann die Methode einer Klasse aufgerufen werden kennen/verstehen.
Ansonsten würde ich mal mit einem Programmier-Grundkurs beginnen.

[SlyFox]

Versuch's doch mal mit

Code

key = doc.GetItemValue(konvert_z1)

Christoph

[koehlerbv]

Christoph, das ist auch falsch. Und wir sollten uns hier auch keine Mühe mehr geben: Daniel war hier vor genau einem Monat das letzte Mal angemeldet.

Jetzt aber: Warum ist Dein Hinweis falsch? Er würde zu einem type mismatch führen, da
NotesDocument.GetItemValue
ein Array zurückliefert, der "Einsatzort" NotesView.GetDocumentByKey jedoch einen skalaren Wert erwartet.

Ich schlage jetzt (für meine eigene Person!) hier ein Ei darüber. Daniel "dani_blue" ("blue" wäre ich dann wohl auch) ist sehr offensichtlich mit einer Aufgabe konfrontiert, der er nicht gewachsen ist, und in seiner Organisation kann er ja wohl zu Weiterbildungszwecken nichts aktivieren. Das, was in *den* Dokumentationen steht, mag er auch nicht nachlesen.

Dieses von manchen vielleicht als "brutalen Text" erscheinende Posting mag vielleicht als Erklärung dienen, warum ich auf manche Anfragen einfach nicht mehr beantworte.

Bernhard

[dani_blues]

Das glaub ich ja etz doch nicht. Ich hatte im Juli ein Problem. Aus irgendeinem Grund wird das Thema wieder aufgegriffen, und dann geht der Superhirni Koehlersdings ab wie 80er Rettich.
Weißte was Koehlersdings: ich habe übringends bereits im Juli die gutgemeinten Ratschläge im Forum befolgt, mich informiert und es hat gefunzt.

Wenn ich nun nur noch 1 bis 2 Wochen weitergelernt hätte, könnte ich mindestens genauso arrogant durchs Forum streifen wie Du.

Und bitte: Unterstell niemanden hier im Forum Inkompetenz. Den dafür ist glaub dieses Forum nicht gedacht. Prüf lieber selber mal deine soziale Kompetenz!

[gossifu]

Hallo dani_blues,

Du brauchst eine Objektvariable für dein aktuelles Dokument und eine für das zu beschreibende.

Das aktuelle holst Du Dir über den NotesUIWorkpace (erst ein UIDoc setzen und davon das Document ableiten)
Dann setzt Du in eine Variable x den Wert aus dem aktuellen Dokument.
Und benutzt diesen Wert bei der Suche.

Code

Sub Click(Source As Button)
   Dim ws as New NotesUIWorkspace 'ZUSATZ
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim view As NotesView
   Dim doc As NotesDocument
   Dim uidoc as NotesUIDocument   'ZUSATZ
   Dim currDoc as NotesDocument   'ZUSATZ
   
   Set uidoc = ws.CurrentDocument
   Set CurrDoc = uidoc.Document
   key =  currDoc.GetItemValue("konvert_z1")(0) 'Um genau das Feldelement zu bekommen Achso, war ein Edit
   Set db = session.CurrentDatabase
   Set view = db.GetView ("VorbelegtealterView" )
   Set doc = view.GetDocumentByKey (key, true )'Beachte bei GetDocumentByKey exakte Treffer
   If Not (doc Is Nothing) Then
      Messagebox "$" & doc.GetItemValue ("alter")(0),, _
      "alter"
   Else
      Messagebox "VorbelegtealterView " + key,, "Not found"
   End If
End Sub

mfg

Kjeld