Page 1 sur 1

Popup à l'ouverture d'une base

MessagePublié: 16 Nov 2011 à 19:33
par lebanner
Bonjour,

Est ce qu'il est possible d'avoir une popup qui s'ouvre à l'ouverture d'une base Notes ?

j'aimerai paramétrer un message aux utilisateurs et que ce message s'ouvre à l'ouverture de la base !!

Je pourrais mettre cette popup à l'ouverture d'une vue mais à chaque fois que l'on va ouvrir cette vue, le message va apparaitre.

Merci d'avance
Cordialement.

MessagePublié: 16 Nov 2011 à 21:00
par Michael DELIQUE
salut

en web ou en client lourd ?

MessagePublié: 16 Nov 2011 à 21:30
par roubech
client Notes : Script de la base \ PostOpen
client Web : si tu es sur que tes users passent toujours par le même endroit .... mais s'ils reçoivent un lien url vers un doc en particulier (au cours d'un workflow par exemple), je doute ...

MessagePublié: 17 Nov 2011 à 08:01
par lebanner
Michael DELIQUE a écrit:salut

en web ou en client lourd ?


Bonjour,

En client lourd

Cordialement

MessagePublié: 17 Nov 2011 à 08:09
par lebanner
roubech a écrit:client Notes : Script de la base \ PostOpen
client Web : si tu es sur que tes users passent toujours par le même endroit .... mais s'ils reçoivent un lien url vers un doc en particulier (au cours d'un workflow par exemple), je doute ...

Bonjour,

Effectivement dans le script de la base je peux mettre le code.
Merci
Cordialement

MessagePublié: 28 Nov 2011 à 17:48
par lebanner
Bonjour,

J'ai intégré le code suivant dans la partie "script de la base" dans le postopen :

Code : Tout sélectionner
'//Déclaration des variables
   Dim oSession As notesSession
   Dim oWks As notesUIWorkspace
   Dim docPop As notesDocument
   
'//Initialisation
   Set oSession = New notesSession()
   Set oWks = New notesUIWorkspace()
   'Set uidoc = oWks.CurrentDocument
   
'//Preparation de la popUp
   Set docPop = New notesDocument(oSession.CurrentDatabase)
   Call docPop.ReplaceItemValue("", "MonMasque")
   
'//On affiche la popUp
   If (oWks.DialogBox("MonMasque", True, True, True, False, False, False, "Message important : ", docPop, True, True, True) = True) Then
      
   End If


A l'ouverture de la base, la popup ne s'affiche pas et je n'ai pas de message d'erreur.
J'ai lancé de debugger pour voir se qu'il se passait mais il ne m'affiche rien.

Est ce que quelqu'un aurait-il une idée svp ?

Merci d'avance
Cordialement

MessagePublié: 28 Nov 2011 à 17:50
par Raziel
Est ce que tu as déjà une fenêtre d'ouverte sur cette base ?
Est ce que cette base est ouverte avec ton designer ?
Pour être sûr, arrête toutes tes instances de lotus et relance ton client.

MessagePublié: 28 Nov 2011 à 17:56
par lebanner
Raziel a écrit:Est ce que tu as déjà une fenêtre d'ouverte sur cette base ?
Est ce que cette base est ouverte avec ton designer ?
Pour être sûr, arrête toutes tes instances de lotus et relance ton client.


Merci Raziel, en redémarrant le Lotus, la popup est apparu à l'ouverture de la base. C'est quand même bizarre qu'il faut redémarrer ?

Merci
Cordialement

MessagePublié: 28 Nov 2011 à 17:57
par Raziel
Le problème c'est que ces évènements ne sont exécutés qu'une fois. Donc si la base est déjà ouverte (dans une autre fenêtre ou à partir du designer) le postopen a déjà eu lieu.

MessagePublié: 28 Nov 2011 à 18:15
par roubech
au passage, j'aime pas trop le
[syntax="LotusScript"]Call docPop.ReplaceItemValue("", "MonMasque")[/syntax]
j'imagine que tu voulais faire
[syntax="LotusScript"]Call docPop.ReplaceItemValue("Form", "MonMasque")[/syntax]
mais comme tu l'utilises avec DialogBox, ça ne sert à rien
à moins que tu ai une mise forme particulière dans ton masque, tu peux éviter de créer un masque pour chaque message, en utilisant
[syntax="LotusScript"]notesUIWorkspace.Prompt[/syntax]

MessagePublié: 01 Déc 2011 à 11:29
par LSong
ta syntaxe implique que l'utilisateur à le droit de crée des document dans la base, ce qui peu poser problème avec un lecteur.