Überprüfung ob das RT-Feld nicht leer ist.

[Bruce Willis]

Hallo,

ich möchte vor dem Speichern eines neuen Dokuments per Button überprüfen, ob ein bestimmtes RT-Feld nicht leer ist, und falls doch, dann das Speichern etc. abbrechen und eine Prompt-Meldung für den Benutzer ausgeben. Zumindest irgendein Text sollte im RT-Feld stehen.

Eine Validierung beim Speichern habe ich eingebaut:

Code

T1Failed :="Bitte einen Text ins RT-Feld eingeben";
@If(
@Length ( @Text(RT-Feld) )  < 3 ; T1Failed;
"")

Aber die beim Speichern ausgegebene Meldung ist nicht besonders benutzerfreundlich (z.B. kein Fenstertitel) und danach kommt noch eine Meldung vom System selbst.

Diese Validierung per Button auszuführen bringt leider nichts.

Hätte vielleicht jemand einen Vorschlag?

Oder gilt es immer noch, dass RT-Felder erst nach dem Speichern bekannt sind?

http://atnotes.de/index.php/topic,10458.0.html

Vielen Dank im Voraus.

Gruß
Leo


P.S.

Notes 8.5 Designer Hilfe:
Achtung  Rich text fields are not part of a document until saved. If you want @Abstract to work on additions and changes to the current document, you must first save and then recalculate the document.

[koehlerbv]

Definiere bei einem RTF "leer". "Irgendein Text" ist allerdings schon mal eine Ansage.

Mit Formel hast Du da keine Chance. Du hast insofern Recht, dass nur gespeicherter Richt Text auch auswertbar ist.

Der einfachste Weg ist hier - kurz beschrieben - folgender:
In ein persönliches (!) ProfileDocument überträgst Du den aktuellen Inhalt des RTI via Frontend (!) vom aktuellen Dokument. Dieses ProfileDocument muss dann gespeichert werden (was nichts schadet - das wird ja immer wieder recycelt ;-) Dort kannst Du es dann auswerten (NotesRichtTextItem.Text or whatever - da kannst Du auch auf Attachments, embedded objects, Bilder usw. testen)

Kurzfassung: Mit LotusScript geht was, mit @Functions - no way.

Bernhard

[Bruce Willis]

Hi Bernhard,

Du bist immer der erste, der sich meldet.
Danke!

"Irgendein Text" ist allerdings schon mal eine Ansage.

So ist es. 

Der einfachste Weg ist hier - kurz beschrieben - folgender:
In ein persönliches (!) ProfileDocument überträgst Du den aktuellen Inhalt des RTI via Frontend (!) vom aktuellen Dokument. Dieses ProfileDocument muss dann gespeichert werden (was nichts schadet - das wird ja immer wieder recycelt ;-) Dort kannst Du es dann auswerten (NotesRichtTextItem.Text or whatever - da kannst Du auch auf Attachments, embedded objects, Bilder usw. testen)

Ein toller Trick, Danke!

Könntest Du bitte - so wie immer   - ein paar Zeilen Code hier posten, damit ich am Wochenende ein paar Stunden freier Zeit mehr hätte? 

Gruß
Leo

[koehlerbv]

Netter Versuch, Leo  (altes Schlitzohr).

Irgendwann hattest Du ja schonmal meine Telefonnummer ergoogelt. Damit hast Du auch eine Adresse. Wenn dann dort ein Paket mit einer (1-Liter!)-Flasche echtem (also wirklich sauberem) Wodka eingeht (russisch oder ukrainisch - das wäre mir egal), dann kriegst Du den kompletten Code.

Bis dahin: Auf konkrete Fragen gibt es von mir auch immer konkrete Antworten 
Fang einfach an, und wenn es hapert, sind wir bei Dir.

Bernhard

[Bruce Willis]

Alles klar, ein schönes Wochenende!

------------
P.S. Ein paar Bekannten von mir werden sich bald bei Dir zuhause melden...

У нас длинные руки! (c)
 

[koehlerbv]

Na, wenn Ihr schon lange Arme habt, dann könnt Ihr ja auch die Schneeschieber bedienen. Dann schauen wir mal, was Ihr für Wodka dabei habt, und dann reden wir über die fertige Lösung 

Bernhard

[Bruce Willis]

Okay, alter Hase! 
Ich hab Deine Idee anstatt LS mit der Formel-Sprache gelöst!

Vielleicht hilft die Lösung noch jemandem.

Dieser Script überprüft vor dem Speichern des Doks, ob das RT-Feld "Body" zumindest 4 Zeichen enthält:

@Command( [EditGotoField];"Body");
@Command( [EditSelectAll] ) ;
@Command( [EditCopy] ) ;
@Command( [EditProfileDocument];"RTFieldCheck");
@Command( [EditGotoField];"pBody");
@Command( [EditSelectAll] ) ;
@Command( [Clear] ) ;
@Command( [EditPaste] ) ;
@Command( [FileSave]) ;
@Command( [CloseWindow]) ;
tmp := @GetProfileField("RTFieldCheck";"Check");
@If (@Length (tmp) < 4 ; @Do (
@Prompt([Ok]; "Hallo" ; "Der Text ist zu kurz" ) ; @Return ("")
); "")

Zusätzlich habe ich ein Profildokument "RTFieldCheck" mit zwei Feldern erstellt:
1. RT-Feld "pBody"
2. Berechnetes Feld "Check" mit der Formel:
@Trim ( @Abstract ( [TextOnly] ; 7 ; "" ; "pBody") )

Und es läuft, läuft und läuft!!!   

Gruß
Leo


P.S. Das einzige was mich wundert, warum auch die in "Body" evtl. eingefügten Bilder ins Profildokument nicht mitkopiert werden...

[Bruce Willis]

Hi Bernhard,

...In ein persönliches (!) ProfileDocument überträgst Du den aktuellen Inhalt des RTI via Frontend (!) vom aktuellen Dokument.

Warum sollte ein persönliches ProfileDocument benötigt werden?
Bei mir läuft's mit einem gemeinsamen.
Wo definiert man diese persönliche Eigenschaft?

Kurzfassung: Mit LotusScript geht was, mit @Functions - no way.

Kurzfassung:
Irren ist menschlich. 

[koehlerbv]

Warum das mit dem gemeinsamen ProfileDocument Dir wenig Freude machen wird, wirst Du nach einiger Laufzeit schon noch ergründen, Leo 

Du hast auch meine Frage "Was verstehst Du unter 'leer'" nicht beantwortet ... Dafür, dass Du nur auf vier Zeichen überprüfen willst, hättest Du gar nicht so ein Gedöns veranstalten müssen.
Die nächsten User, die ein ganzes Essay als Attachment zur Erläuterung in Dein RTF gehangen hat oder die, die sich sagen "Ein Bild sagt mehr als 1000 Worte", werden Dir wegen Deiner "Fehler"meldung sehr dankbar sein 

Vielleicht haben die dann auch длинные руки 

Bernhard (durchaus amüsiert)

[Bruce Willis]

Warum das mit dem gemeinsamen ProfileDocument Dir wenig Freude machen wird, wirst Du nach einiger Laufzeit schon noch ergründen

Schon möglich.
Kannst Du deine Aussage begründen?

Du hast auch meine Frage "Was verstehst Du unter 'leer'" nicht beantwortet

Doch, das hatte ich.
Verwendest Du noch keine Brille?
Ich schon.

Dafür, dass Du nur auf vier Zeichen überprüfen willst, hättest Du gar nicht so ein Gedöns veranstalten müssen.

Auch schon möglich.
Kannst Du deine super tolle Version auch zeigen?

Die nächsten User, die ein ganzes Essay als Attachment zur Erläuterung in Dein RTF gehangen hat oder die, die sich sagen "Ein Bild sagt mehr als 1000 Worte", werden Dir wegen Deiner "Fehler"meldung sehr dankbar sein 

Warum das denn?
Mein Script funktioniert auch mit Screenshots etc.

Bernhard (durchaus amüsiert)

Weswegen denn?

[koehlerbv]

Kannst Du deine Aussage begründen?

Kannst Du verstehen, dass ich dazu schlicht keine Lust mehr habe?

Bernhard

PS: Überarbeite mal Deine Website - bevor der Rechtsanwalt eines Abmahngeilen dafür sorgt oder Dich zumindest wochenlang beschäftigt.

[pram]

Der einfachste Weg ist hier - kurz beschrieben - folgender:
In ein persönliches (!) ProfileDocument überträgst Du den aktuellen Inhalt des RTI via Frontend (!) vom aktuellen Dokument. Dieses ProfileDocument muss dann gespeichert werden (was nichts schadet - das wird ja immer wieder recycelt ;-) Dort kannst Du es dann auswerten (NotesRichtTextItem.Text or whatever - da kannst Du auch auf Attachments, embedded objects, Bilder usw. testen)

So kompliziert muss man es meiner Meinung nach nicht machen.
im QuerySave müsste es folgender code "tun"

Code

call Source.refresh(true) ' holt den Richtext ins Backend
if Source.document.body.values = "" then ' leer im Sinne von "kein Text"
  continue = false
  msgbox "Bitte füllen Sie das Feld aus"
end if

Gruß
Roland

[Bruce Willis]

Kannst Du verstehen, dass ich dazu schlicht keine Lust mehr habe?

Jetzt schon.

Früher habe ich aber gedacht, dass Du deine Worte ernst meinst - wie die z.B. von 13.02.09 - 23:39:30 hier - "Auf konkrete Fragen gibt es von mir auch immer konkrete Antworten"

Überarbeite mal Deine Website - bevor der Rechtsanwalt eines Abmahngeilen dafür sorgt oder Dich zumindest wochenlang beschäftigt.

Noch eine leere Deklaration ohne jegliche Begründung.
Wirklich super.

Gute Nacht.
Leo

[Bruce Willis]

Hallo Roland,

Danke für Deinen Vorschlag!

So kompliziert muss man es meiner Meinung nach nicht machen.
im QuerySave müsste es folgender code "tun"
 
call Source.refresh(true) ' holt den Richtext ins Backend
if Source.document.body.values = "" then ' leer im Sinne von "kein Text"
  continue = false
  msgbox "Bitte füllen Sie das Feld aus"
end if
 

Wie kann diese Aktion aussehen, um sie mit einem Button zu starten?

Gruß
Leo

[koehlerbv]

So kompliziert muss man es meiner Meinung nach nicht machen.
im QuerySave müsste es folgender code "tun"
call Source.refresh(true) ' holt den Richtext ins Backend
if Source.document.body.values = "" then ' leer im Sinne von "kein Text"
  continue = false
  msgbox "Bitte füllen Sie das Feld aus"
end if

Roland, das tut es bekanntermassen nicht (zuverlässig). Ausserdem bist Du da wieder nur bei Text als zu überprüfender "Masse".

Bernhard

[koehlerbv]

Zu Deiner Website:

Noch eine leere Deklaration ohne jegliche Begründung.
Wirklich super

Soll ich da jetzt die Adresse angeben und ansagen, was fehlt (worauf einige Abmahner so scharf sind)? Wirklich? Ich bin nicht fies.

Was Deine anderen Anwürfe angeht: Lies mal Deine letzten Threads durch. Es lief zum Schluss immer auf "zeig doch mal Deinen Code" hinaus. Das war mal ein netter Versuch, ist jetzt aber nur noch öde.

Ich habe jetzt wirklich schlicht keine Lust mehr, auf sowas zu antworten.

Bernhard

PS: Ein "Nobody is perfect but I am pretty close" traue ich mir nicht zu ...

[pram]

So kompliziert muss man es meiner Meinung nach nicht machen.
im QuerySave müsste es folgender code "tun"
call Source.refresh(true) ' holt den Richtext ins Backend
if Source.document.body.values = "" then ' leer im Sinne von "kein Text"
  continue = false
  msgbox "Bitte füllen Sie das Feld aus"
end if

Roland, das tut es bekanntermassen nicht (zuverlässig). Ausserdem bist Du da wieder nur bei Text als zu überprüfender "Masse".

Bernhard

Hallo Bernhard,

kannst du mir sagen mit welchen Problemen ich zu rechnen habe. Wir verwenden dies nämlich häufig, um zu protokollieren, welche Änderungen der User am Dokument vorgenommen hat. Bis jetzt konnten wir hier noch keine Probleme feststellen (Was aber nichts heißen muss)
Allerdings beschränken wir uns auch auf das Auslesen von Text

@leo Du musst dir ein neues UIWorkspace-Objekt anlegen (dim ws as new NotesUiWorkspace) und dann kannst mit ws.CurrentDoument auf das aktuelle UIdoc zugreifen

Gruß
Roland

[Bruce Willis]

Soll ich da jetzt die Adresse angeben und ansagen, was fehlt (worauf einige Abmahner so scharf sind)? Wirklich?

An dieser Frage kann jeder erkennen, dass du nicht so klever bist, wie man es erst annimmt.

Lies mal Deine letzten Threads durch. Es lief zum Schluss immer auf zeig doch mal Deinen Code" hinaus.

Ich dachte, sogar du wusstest, dass es bei einer Diskussion blöd ist, das Wort "immer" zu verwenden.

Was diesen konkreten Fall betrifft, hatte ich hier für alle Interessierten meine funktionierende Lösung abgelegt, die du ohne jegliche Begründung stumpfsinnig kritisiert hast.

Aber wenn du nicht fähig bist, deine Vorwürfe zu erklären, wäre es nur ehrlich, deine eigene "perfekte" Lösung zu zeigen. Schade, dass du solche Begriffe anders siehst.

Ich habe jetzt wirklich schlicht keine Lust mehr, auf sowas zu antworten.

Du wiederholst dich ständig. Es ist wirklich langweilig.
Ich érwarte von dir überhaupt keine Antworten mehr.

Ein "Nobody is perfect but I am pretty close" traue ich mir nicht zu ...

Da du keinen Sinn für Humor hast, lebst du wirklich öde.
Schade um dich.

[Bruce Willis]

@leo ...

Danke, Roland.

Gruß
Leo

[Demian]

Achtung OT:

Könnt ihr das nicht per PM klären? Sowas hat IMHO in der Öffentlichkeit nichts zu suchen.

OT Ende

Gruß
Demian