Nicht vorhandene Methode in NotesDocument?

[Dubidu]

Hallo,
ich eigne mir gerade die Basics von LotusScript an und ein Beispiel in einem LotusScript-Buch, das schon etwas älter ist, will einfach nicht funktionieren:

Code

Sub Click(Source As Button)
	Dim ns As New NotesSession
	Dim ws As New NotesUIWorkspace
	Dim db As NotesDatabase
	Set db = ns.CurrentDatabase
	
	Dim doc As NotesDocument
	Set doc = New NotesDocument(db)
	
	doc.form = "FormOne"
	doc.FieldOne = "Created by View ActionScript"
	doc.SaveTrue, True
	
	Messagebox "New doc created, shouldn't be visible"
	
	ws.ViewRefresh
	
	Messagebox "New doc should now be visible"
	
	
End Sub

Sowohl bei die Methode "form" als auch "FieldOne" wurden bei mir beim Abtippen nicht automatisch angezeigt.
Beim Ausführen der Anwendung bekomme ich die Fehlermeldung "Illegal Use of Property".

Was genau mache ich falsch?!

Danke, im Voraus!

Liebe Grüße
Giordano

[klaussal]

Es muss heissen "Call doc.save......"

Lies dir bitte dazu die Designer-Hilfe durch. Da gibt es sehr viele + gute Beispiele.

Dann fehlt da nooch ein Dim doc as.....


Benutze im Designer auch immer die Option declare.

[DerAndre]

Und der vielgeliebte Errorhandle.

Direkt angewöhnen.

[Axel]

Sowohl bei die Methode "form" als auch "FieldOne" wurden bei mir beim Abtippen nicht automatisch angezeigt.
Beim Ausführen der Anwendung bekomme ich die Fehlermeldung "Illegal Use of Property".

Form und FieldOne sind keine Methoden sondern Felder innerhalb der Maske. Wobei das Feld Form ein internes Feld ist und den Namen der Maske enthält.

Die Fehlermeldung "Illegal...." kommt wahrscheinlich von der Save-Anweisung. Hier musst du ein Call davor setzen.

Die Zeile muss so aussehen:  Call doc.Save(True, True)


Axel

[m3]

1) "Form" und "FieldOne" sind keine Methoden, sondern Attribute bzw. Felder in der Notes-Diktion

2) "Save" wäre eine Methode ("SaveTrue" allerdings nicht), die man dann aber auch entsprechend aufrufen muss

Code

Call doc.Save( True, True )

Die von Dir verwendete Syntax

Code

doc.SaveTrue, True

wirft natürlich einen Fehler, steht so aber auch sicher nicht in dem Buch.

[Axel]

Dann fehlt da nooch ein Dim doc as.....

Das ist aber vorhanden.

Nach Set db = ....

Axel

[Thomas Schulte]

Und doc.form ist keine Methode sondern ein Feldname. Genauso wie doc.FieldOne. Und wenn das in der verkürzten Notation angesprochen wird, dann musst du es so schreiben doc.Form(0).

Und doc.savetrue gibt es auch nicht.

Welches Script Buch ist das eigentlich?

[m3]

Und doc.form ist keine Methode sondern ein Feldname. Genauso wie doc.FieldOne. Und wenn das in der verkürzten Notation angesprochen wird, dann musst du es so schreiben doc.Form(0).

Wenn er sie auslesen würde - aber er setzt sie ja, da ist das (0) nicht notwendig, odrrr?

[Thomas Schulte]

Stimmt. Wobei ich das beim Setzen mittlerweile wirklich hassen gelernt habe.
Sinnvoller ist eigentlich immer der Weg über das Notesitem.

[Dubidu]

Hi,
danke, an alle, für die schnelle Antworten!
Ich hatte ein Leerzeichen vergessen, denn mit

Code

doc.Save True, True

funktioniert es und es steht so auch im Buch!

Allerdings kann ich nicht erkennen, was nun zusätzlich sichtbar sein soll!

Und doc.form ist keine Methode sondern ein Feldname.

Was genau soll das sein? In der Designer-Hilfe konnte ich dazu nichts finden (womöglich weil ich nicht die richtigen Stichwörter eingebe).

Welches Script Buch ist das eigentlich?

"Lotus Notes and Domino R5 Development" von Deborah Lynd & Steven Kern.

Liebe Grüße
Giordano

[klaussal]

Lies dir am besten in der Designer-Hilfe solche Kapitel durch wie:

- Masken erstellen
- Feldnamen
- Ansichten erstellen
- usw usw.

[Glombi]

Aus der Designer Hilfe zur Methode "ReplaceItemValue" der Klasse "NotesDocument":

"Extended class" syntax
You can also change an item's value using the NotesDocument "extended class" syntax, which eliminates the need for ReplaceItemValue. For example, you have the following script:

Dim item As NotesItem
Set item = doc.ReplaceItemValue _
( "Subject", "Update on stock options" )
Call doc.Save( False, True )
You can achieve the same result by doing the following:
doc.Subject = "Update on stock options"
Call doc.Save( False, True )

This syntax lets you treat NotesDocument as an "extended class" by using an item name as if it were a property of NotesDocument. In the example above, "Subject" is used as if it is a property of the NotesDocument class. The result is the same as if you used ReplaceItemValue, except that ReplaceItemValue returns a NotesItem object representing the item you just created, and the IsSummary property defaults to True.



Das kann man sozusagen als Abkürzung verwenden. Diese Art ist aber nicht so performant wie ReplaceItemValue.



Andreas

[DerAndre]

Und eine aktuelle Version des Buches wäre bestimmt auch nicht schlecht.
Lektüre gibt es auch beim Herdt-Verlag.

[Dubidu]

Hi,
danke, für die Erklärungen!
Trotzdem kann ich nirgends erkennen, was bei meiner Anwendung eingeblendet werden soll nach dem ich das NotesUIWorkspace refreshe!

Liebe Grüße
Giordano

[klaussal]

Trotzdem kann ich nirgends erkennen, was bei meiner Anwendung eingeblendet werden soll nach dem ich das NotesUIWorkspace refreshe!

Meinst Du jetzt das Doc oder die Messagebox ?

[Thomas Schulte]

Das im Hintergrund erstellte neue Dokument sollte dann in deiner Ansicht auftauchen.
Das ist genau das was das ws.viewRefresh bezwecken soll.

Es wird das aber vermutlich nicht tun. Denn diese Art Feldern Werte zuzuweisen setzt das Issummary Flag des Notesitems nicht. Und das wird wiederum in Ansichten gebraucht damit er den Wert darstellen kann.

[koehlerbv]

Denn diese Art Feldern Werte zuzuweisen setzt das Issummary Flag des Notesitems nicht. Und das wird wiederum in Ansichten gebraucht damit er den Wert darstellen kann.

Doch, das tut es, Thomas.

Bernhard

[Thomas Schulte]

Du hast recht Bernhard. Falscher Film.

[Dubidu]

Trotzdem kann ich nirgends erkennen, was bei meiner Anwendung eingeblendet werden soll nach dem ich das NotesUIWorkspace refreshe!

Meinst Du jetzt das Doc oder die Messagebox ?

Nein, das neu erstelle Dokument meine ich.

Ich habe es mal mit der längeren Methode versucht. Da passiert auch nichts.

Code

Sub Click(Source As Button)
	Dim ns As New NotesSession
	Dim ws As New NotesUIWorkspace
	Dim db As NotesDatabase
	Set db = ns.CurrentDatabase
	
	Dim doc As NotesDocument
	Set doc = New NotesDocument(db)
	
	'doc.form = "FormOne"
	'doc.FieldOne = "Created by View ActionScript"
	
	Dim item As NotesItem
	Set item = doc.ReplaceItemValue _
	( "FormOne", "Created by View ActionScript" )	
	item.IsSummary = True
	doc.Save True, True
	
	Messagebox "New doc created, shouldn't be visible"
	
	ws.ViewRefresh
	
	Messagebox "New doc should now be visible"
	
	
End Sub

Liebe Grüße
Giordano

[Axel]

Ich habe es mal mit der längeren Methode versucht. Da passiert auch nichts.

Was heißt: "Da passiert auch nichts"?

Ein bisschen genauer musst du das schon definieren.  Meine Kristallkugel befindet sich schon im Osterurlaub. 


Axel