Définir la base courrante et le serveur courrant

[clementbp]

Bonjour.

J'aurais besoin de définir en LS deux variables correspondant à la base et au serveur courrant.

Est-ce possible?

Merci de votre aide

[Michael DELIQUE]

oui !

base courant

dim Session as New NotesSession
dim db as Notesdatabase

set Db = Session.currentdatabase

server courant

msgbox db.server

[clementbp]

J'ai essayer de faire un agent en LS qui fait l'équivalent du @Picklist avec les parametres suivant

Serveur : serveur courant
Base : Base courante
Vue : vCBPPersonne*
Et qui renvoie la 4eme colonne de la vue

J'ai fait le code suivant à partir des éléments de l'aide Lotus et de vos informations mais j'ai un problème


Dim workspace As New NotesUIWorkspace
Dim picklist As Variant
Dim messagelist As String

'DEFINI LE SERVEUR COURANT
Dim Session As New NotesSession
Dim db As NotesDatabase
Set Db = Session.currentdatabase

'DEFINI LA BASE COURANTE
MsgBox db.server

picklist = workspace.PickListStrings( PICKLIST_CUSTOM, False, db.server, db, "vCBPPersonne", "A qui voulez vous transférer le fax ?", "Choix de la personne", 4 )
ForAll plist In picklist
messagelist = messagelist & plist & Chr(10)
End ForAll
MessageBox messagelist




Quand je mets en dure les parametre du serveur et de la base, la vue s'affiche mais sans aucun document à l'intérieur.
Il me semble avoir compris qu'il fallait peut etre avoir une vue catégorisée. VRAI ou FAUX

Merci de votre aide

[Michael DELIQUE]

re

non

dans ton

picklist = workspace.PickListStrings( PICKLIST_CUSTOM, False, db.server, db, "vCBPPersonne", "A qui voulez vous transférer le fax ?", "Choix de la personne", 4 )

replace DB (qui est objet) par db.filepath ça devrais mieux marcher

picklist = workspace.PickListStrings( PICKLIST_CUSTOM, False, db.server, db.filepath, "vCBPPersonne", "A qui voulez vous transférer le fax ?", "Choix de la personne", 4 )

[clementbp]

Merci de ta précieuse aide

Je commence à mieux comprendre a quoi servent les lignes que l'on retrouve dans pratiquement tous les code.

Je vais essayer de m'en sortir avec ca