Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: CarlGustav am 05.02.03 - 11:23:04

Titel: Dumme Fragen....
Beitrag von: CarlGustav am 05.02.03 - 11:23:04

......


Tja, ist eh ganz eine einfache Frage und wenn ich hier im Forum suche, dann finde ich wahrscheinlich auch Postings darüber,
aber ich frag trotzdem mal so:


Wie kann ich es umsetzen in einem Script auf die Schnelle eine Dialogbox zu öffnen um einen Server auswählen zu können.
Irgendeine Auswahlbox für den User...

Und eine weitere Auswahlbox wo er dann den Pfad zur Datei wählen kann. (Datenbank öffnen...)


Vielen Dank für eure Hilfe,


CG

Titel: Re:Dumme Fragen....
Beitrag von: tower am 05.02.03 - 13:12:45

ich hab nur was in Kommandosprache

FIELD FLD_view_server := "Local";
FIELD FLD_view_db := "";
@Command([ViewRefreshFields]);
x := @Prompt( [ChooseDatabase]; ""; ""; ""; "");
v_server := @If(@GetMembers( x; 1) = "";"Local"; @GetMembers( x; 1));

FIELD FLD_view_Server := @Name([CN];v_server);
FIELD FLD_view_db := @GetMembers( x; 2);
@Command([ViewRefreshFields]);
""

Titel: Re:Dumme Fragen....
Beitrag von: ata am 05.02.03 - 13:20:58

... so auf die schnelle - schau mal unter @Prompt in der Notes-Hilfe. Dort gibt es eine spezielle Box für die Dateiauswahl, wie sie dir Notes immer bietet , damit hast du alles in einem Dialog...

ata

Titel: Re:Dumme Fragen....
Beitrag von: Axel am 05.02.03 - 13:37:46

Hi,

meines Wissens ist es in Script nicht möglich, den DatenbankÖffnen-Dialog anzuzeigen.

Es gibt nur die OpenFileDialog - Methode aus UIWorkspace.

Beispiel:

Dim workspace As New NotesUIWorkspace
Dim files As Variant
files = workspace.OpenFileDialog(True, "File List", _
        "", "c:")
Dim messagelist As String
Forall filelist In files
     messagelist = messagelist & filelist & Chr(10)
End Forall
Messagebox messagelist

Axel
 

Titel: Re:Dumme Fragen....
Beitrag von: wflamme am 05.02.03 - 15:25:50

http://www-10.lotus.com/ldd/46dom.nsf/55c38d716d632d9b8525689b005ba1c0/a2bc53a294c88ae185256aa30049b76a?OpenDocument (http://www-10.lotus.com/ldd/46dom.nsf/55c38d716d632d9b8525689b005ba1c0/a2bc53a294c88ae185256aa30049b76a?OpenDocument)
HTH

Titel: Re:Dumme Fragen....
Beitrag von: ata am 05.02.03 - 16:29:13

@wflamme...

... den habe ich gemeint...

ata

Titel: Re:Dumme Fragen....
Beitrag von: CarlGustav am 05.02.03 - 16:35:31

Ich weiß nicht recht wie man hier Bilder einfügt........
 Darum hab ich eins angehängt...


So wie auf dem Bild, so würde ich mir das vorstellen. Ein Dialog mit allen verfügbaren Servern im Netzwerk.

Das wär was... Aber das krieg ich irgendwie nicht ganz hin...


Was ich noch gefunden habe ist dieser Code, der bringt aber nicht ganz so diese Ergebnisse wie auf dem Bild:

mailserver := @Subset(@MailDbName; 1);
servers := @DbColumn("":""; mailserver:" "; "($Connections)"; 3);
local_servers := @If(mailserver = ""; ""; @DbColumn("":""; "":"names.nsf"; "($Connections)"; 3));
choices :=  "Local"  :
  @Name([Abbreviate];
    @Unique(@Trim(@If(@IsError(servers); ""; servers) : @If(@IsError(local_servers); "";local_servers))));

FIELD Server := @Prompt([OKCANCELLIST]; "Server"; "Please select a server from this list"; Server; choices);0


Vielleicht (bestimmt) fällt euch dazu noch was ein,


LG,


CG

Titel: Re:Dumme Fragen....
Beitrag von: ata am 05.02.03 - 16:37:24

... das mit der Grafik hat leider nicht so ganz geklappt

ata

Titel: Re:Dumme Fragen....
Beitrag von: CarlGustav am 05.02.03 - 16:40:21

Uuuuppppss...


Aber nun müßte mans anschauen können!!!!


LG,



CG

Titel: Re:Dumme Fragen....
Beitrag von: ata am 05.02.03 - 16:51:18

... klappt...

... mir fällt auch nur der Weg über die Dörfer - sprich die bekannten Notes-Adressbücher - ein. Dort gibt es Serverdokumente etc...

ata

Titel: Re:Dumme Fragen....
Beitrag von: CarlGustav am 05.02.03 - 18:56:51

@ATA


Danke für die Antwort.

Wie geh ich das denn an - wie sprech ich die Dörfer an???


LG,

CG

Titel: Re:Dumme Fragen....
Beitrag von: CarlGustav am 06.02.03 - 08:50:02

Morgen!


Also nun geht das mit der Serversuche folgendermaßen:

mailserver := @Subset(@MailDbName; 1);
servers := @DbColumn("":""; mailserver:"names.nsf"; "($Servers)"; 1);
local_servers := @If(mailserver = ""; ""; @DbColumn("":""; "":"names.nsf"; "($Servers)"; 1));
choices :=
  "Local"
  :
  @Name([Abbreviate];
    @Unique(@Trim(
      @If(@IsError(servers); ""; servers) : @If(@IsError(local_servers); ""; local_servers)
    ))
  );

FIELD Server := @Prompt([OkCancelList]; "Server"; "Please select a server from this list"; Server; choices);
0



Vorher war die falsche Ansicht angegeben. Nun bekomme ich alle benötigten Server zur Auswahl.


Danke für alle Tips,


CG