Maske schließen, wenn Ansicht EIN Dokument enthält?

[Bellerophon]

*greetz* aus Köln!

Ich möchte beim öffnen einer Maske abfragen, ob in einer bestimmten Ansicht EIN Dokument vorhanden ist, wenn JA, dann soll sich die Maske nach einem Hinweis dazu wieder schließen.

Habe es schon mit folgender FORMEL versucht:

Code

@If(@Prompt([Ok];"Anzahl der vorhandenen Dokumente in dieser Datenbank: ";@Text(@Elements(@DbColumn( "" : "NoCache" ; "" : "" ; "NameAnsicht" ; Spaltennummer ))))=1;
@Prompt([Ok];"ACHTUNG";"Es gibt schon ein Dokument! Löschen, oder Editieren Sie dieses! Es darf NUR 1 Dokument geben!");"")

Leider ohne Erfolg! Die Meldung kommt zwar, aber die kommt auch wenn es KEIN Dokument in dieser Ansicht gibt.

Hat da einer ne Idee?




/Moderator-EDIT: Anpassung Code an Bildschirmgrösse

[koehlerbv]

@Prompt hat keinen Rückgabewert.

Mach das ganze in LotusScript und frage im QueryOpen die Anzahl der Dokumente ab. Vor allem solltest Du nur auf <> 0 testen, sonst funktioniert das ja auch bei mehr als einem Dokument nicht.

Bernhard

[Bellerophon]

Hi!

Naja, da waren Sie wieder, meine 11 Probleme:

L o t u s S c r i p t

KANN ich leider nicht ;-(
(OK, Formelsprache wohl auch nicht *grins*)

[pram]

Da hilft nur lernen, aber ich bin mal so nett und mach mal Hausaufgaben für dich. 

Im Queryopen machst du folgendes rein

dim sess as new NotesSession
dim view as NotesView
set view = sess.currentDatabase.getView("NameAnsicht")
if view.EntryCount = 1  then
  msgbox "Es gibt nur ein Dokument"
  continue = false
end if

(ungetestet!)
Gruß
Roland

[Bellerophon]

Hallo aus Köln!

DAAAAANKKEEEEEE funzt Prima soweit. 

A-BÄR:
Jetzt kann ich das Dokument NICHT mehr Editieren  Kann man da etwas basteln, dass danach eine Abfrage kommt wie "Wollen Sie das Dokument bearbeiten" und sich das Dokument dann auch "Bearbeiten" lässt?
ODER sich das vorhandene Dokument im Bearbeitungsmodus öffnet?

PS:
Naja, habe es schon OFT mit Script versucht, war schon auf Lehrgang, aber da macht es bei mir einfach nicht "Klick"  

[C_T]

HI,

bist du den Notesentwickler bei euch? Wenn ja solltest du vielleicht gucken, das du dich dennoch dadurch kämpfst, den du wirst sonst immer wieder an die Problematik kommen "In Formelsprache klappt das nicht!"

Dennoch war gerade motiviert:

Im Queryopen machst du folgendes rein

dim sess as new NotesSession
dim view as NotesView
set view = sess.currentDatabase.getView("NameAnsicht")
if view.EntryCount = 1  then
  if Messagebox("Es gibt nur ein Dokument, wollen Sie es dennoch bearbeiten?",4) <> 6 then
  continue = false
end if

(ungetestet)

P.S. @Pram sry habe deinen Code als Vorlage genommen

[Kadlec]

Unabhängig davon dass Ihr natürlich Recht habt in Bezug auf Script warum nicht so:?
Temp := @Subset(@DbColumn("Notes" : "NoCache"; "";"CatNoOnHold_V" ; 6 );1);
@If(Temp != "";
@prompt([ok];"ACHTUNG";"Es gibt schon ein Dokument! Löschen, oder Editieren Sie dieses! Es darf NUR 1 Dokument geben!");@success)

Boris

[dirk_2909]

Evtl. weil @Prompt kein Rückgabewert zurück gibt, um Continue auf False zu setzen?

[Kadlec]

OK ich habe jetzt das ganze Scenario nicht geprüft.
Aaaaber die Formel reagiert auf alle Fälle dahin, wenn Dokumente in der Ansicht entsprechende Meldung und wenn keine da sind keine Meldung.
Und da haperts ja schon beim Ersteller ds Freds, oder??

[dirk_2909]

Oder!

Ich möchte beim öffnen einer Maske abfragen, ob in einer bestimmten Ansicht EIN Dokument vorhanden ist, wenn JA, dann soll sich die Maske nach einem Hinweis dazu wieder schließen.

dann soll sich die Maske nach einem Hinweis dazu wieder schließen.

[Kadlec]

Ja das war schon klar und (bzw.) ich habe nur auf das Problem mit der falschen Rückgabe des @DbColumn geantwortet...weil.
Hatte in der Vergangenheit (schon lange her) gleiches Problem, hatte es so gelöst das ich den Button mit der Formel versteckt hatte, somit wenn Dok vorhanden kein Button zum erstellen.