Domino 9 und frühere Versionen > Entwicklung

Automatisches Erzeugen und umbenennen eines privaten Ordners mit Lotusscript

(1/2) > >>

anderlaender:
Hallo,

ich arbeite gerade an einem Problem einer älteren 4.X Notesapplikation. Die genauen technischen Details/Hintergründe, warum
die Anwendung so aussieht sind mir leider unbekannt.

Zur Sache:

In der Anwendung werden "Shared, private folder on first use" Ordner verwandt.
Bislang wurde der Ordner immer manuell vom jeweiligen Anwender erzeugt.

Buttonformel

rc:=@Prompt([YESNOCANCEL];"Info";"Bitte benennen Sie im folgenden Dialog den Ordner mit dem Namen \"Warenkorb\"!"+@Char(10)+
"Diese Funktion müssen Sie abbrechen, wenn Sie bereits einen funktionierende Warenkorb angelegt haben!");
@If(rc=0 | rc = -1;@Return("");"");
@Command([OpenView];"XXXWarenkorb");
@Command([FolderRename];"";"XXXWarenkorb");

Ab und an haben wir verständlicherweise damit Schwierigkeiten. Der Ordner wird nicht oder falsch angelegt.
Nach einer neuen Anforderung soll dies nun nach Möglichkeit automatisiert werden. Aus diesem
Grund versuche ich nun im Postopen der Anwendung den
Button zu ersetzen. Unglücklicherweise bekomme ich jedoch stets Error - script is busy...

Sub Postopen(Source As Notesuidatabase)
On Error Goto Errorhandler

'/ Check is a shopping cart for a user is availabale or not.
'/ If no the cart is not available - create one.

Dim dbCurrent As Notesdatabase
Dim intIsFolder As Integer '/ bool
Dim session As New NotesSession
Dim viewShoppingCart As NotesView

'/ Access current database backend
Set dbCurrent = source.database

Print "Suche Warenkorb..."

'/ Get view/folder "Warenkorb"
Set viewShoppingCart = dbCurrent.getView("Warenkorb")
If Not viewShoppingCart Is Nothing Then
intIsFolder = viewShoppingCart.isFolder
If intIsFolder Then
Print "Warenkorb vorhanden."
Else
Print "Warenkorb ist kein Ordner. Bitte wenden Sie sich an Ihren Administrator. "
End If
Else
'/ Check if the view object is a folder...
Print "Kein Warenkorb vorhanden. Versuche diesen zu erzeugen..."
Call source.OpenView("WWSWarenkorb")
'/ Get VIEW-Unid, Set $Title to "Warenkorb"
End If

Finish:
Exit Sub
Errorhandler:
'/ Print {Fehler Nr.} & Str(Err) & { in "Datenbank - Initialisieren", Zeile } & Str(Erl) & {, } & Error$
Resume Finish

End Sub

Auch eine intensive Suche im Web brachte keinen Lösungsansatz. Also hat jemand eine Idee wie ich den Vorgang automatisieren kann.

Vorab herzlichen Dank für Interesse und Unterstützung

anderlaender

PS: Schönes Forum ...

Original englischsprachiges Posting
http://www-10.lotus.com/ldd/46dom.nsf/ShowMyTopicsAllThreadedweb/210129f5af00269e85256ebc003f008f?OpenDocument

anderlaender:
OOOps, kann man einen Beitrag auch einem Forumbereich zuordnen, denn es gehört wohl eher in R5 Entwicklerforum...

Sorry

ata:
... ein Umbenennen des Ordners geht nach meiner Erkenntnis nicht. Anstelle dessen kannst du einen neuen, richtigen Ordner erstellen, die Dokumente verschieben und den falschen Ordner letztendlich löschen...

ata

koehlerbv:
@ata:
Um das Umbenennen ging es - soweit ich das verstanden habe - nicht, es soll lediglich der SPOFU-Folder erzeugt werden.

@Ingo AKA anderlaender:
Im LDD-Forum hat Ronny eigentlich das geschrieben, was mir dazu auch gestern spontan einfiel:

--- Zitat ---The normal way for a user to obtain such a folder is to click on the shared folder. Users who find the information in this folder of interest will definitely click on it. The rest doesn't need the private folder ;-)
--- Ende Zitat ---
In Deinem Code verwendest Du ausserdem gleich drei Bezeichnungen für den Folder:
"XXXWarenkorb" (im @function-Button)
"Warenkorb" und
"WWSWarenkorb" (im LS-Code).
Das macht mich natürlich erstmal stutzig hinsichtlich der Strukturiertheit des Vorgehens.

Weiterhin:
Was meint der Debugger, bevor Du die Meldung "Script is busy" bekommst ? Bis zu welcher Zeile geht Dein Code gut ?
Du sprichst von R4. Ist das eine alte R4-Applikation oder bist Du noch auf R4 ? Auch das wäre eine xtrem wichtige Angabe für uns.

So long,
Bernhard

anderlaender:
Wow, herzlichen Dank für die ganzen Antworten und das Verschieben meiner Frage in das richtige Forum... DANKE

-> koehlerbv
Ich habe die Anwendung nicht geschrieben und sie entstand scheinbar noch unter 4.5.
Der 'private' Warenkorb Folder (XXXWarenkorb =  WWSWarenkorb) wird benötigt, da jeder User seinen eigenen Warenkorb erhalten soll. Jedoch heißt der private Ordner einfach "Warenkorb".

1. Damit dieser private Ordner angelegt wird, muß dieser zumindest 1* mit den Userrechten geöffnet werden.
2. Ich denke schon das man das $Title-Feld des Ordners (Zugriff auf das Designdokument über view.universalID) ändern kann und somit den Ordner umbenennen kann, aber im Postopen schmiert mir der Debugger direkt nach der ersten Zeile ab.

Ich öffne anschließend die Anwendung und dann steht in der Statuszeile Error - Script is busy. Scheibenkleister

Momentan habe ich einfach keine Idee, wie ich diesen Ordner im Hintergrund anlege und nichtsdestotrotz die Standardansicht öffnen kann.

DANKE für die Unterstützung, schönen Tag

Ingo AKA anderlaender :-)

Navigation

[0] Themen-Index

[#] Nächste Seite