[Résolu]items manquants Document profile base

[camilleB]

Bonjour,
je travail avec un document profile pour paramétrer une base. Dans un action j'exécute un script et mon souci c'est qu'après un set docprofile=db.GetprofileDocument("Param") dans le debuger je ne vois que 4 items systèmes et aucun autre item créé en consultant les valeurs.
Je vois bien tous les champs dans les propriétés du document - onglet champs.

Ma variable docprofile est déclarée dans une bibliothèque, et initialisée au chargement de cette dernière. Donc je dois normalement pouvoir y faire référence partout dans les éléments de conception.
Cette même biblio est utilisée pour paramétrer d'autres champs et çà fonctionne!!!!
Merci pour votre aide
cdt
camille

[Michael DELIQUE]

salut

attention avec les documents profils, ils sont mis à jours une fois par session. donc il faut dermer la base pour que le document soit mise a jours sur le serveur.
en web c'est encore pire il faut parfois redemarer la tache http

[camilleB]

Bonjour,
je l'ai bien compris çà!!
Le doc profile est créé au 1er lancement de la base et je saisie mes paramètres une seule fois. Je récupère bien par exemple des noms de champs et le nom d'une source de données ODBC dans un autre code. Et dans le deuxième code niet, le docprofile me retoure les valeurs $!
cdt
camille

[LSong]

tu peu nous mettre le code ?

[camilleB]

Bonjour voila,
dans script de la base ostOpen

Code : Tout sélectionner

Dim ws As New NotesUIWorkspace
   Dim curdb As NotesDatabase   
   Dim docprofile As NotesDocument
   Dim uidoc As NotesUIDocument
   Set curdb =Source.Database
   Set docprofile = curdb.GetProfileDocument("ParamGlobal")
   If docprofile Is Nothing  Then
      Call ws.EditProfile("ParamGlobal")
      Messagebox |Veuillez configurer correctement cette application avant de continuer.|,16,|Parametre de la base incorrect|
      Call Source.Close
   End If

dans la bibliothèque utilisée dans le masque: initialize (je vous passe la déclaration des variables)

Code : Tout sélectionner

Set ws =New NotesUIWorkspace
   Set session = New NotesSession
   Set db = session.CurrentDatabase
   Set docProfile = db.GetProfileDocument("ParamGlobal")

dans le bouton: click

Code : Tout sélectionner

Dim ws As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim reponse As Integer
   Dim item As NotesItem
   Dim sujet As String
   Dim action As String
   'Dim curdb As Notesdatabase
   Set uidoc=ws.CurrentDocument
   Set doc =uidoc.Document
   Set item = doc.GetFirstItem("Historique")
   reponse=Msgbox ("Voulez vous envoyer ......?" ,64+100, _
   "Confirmation")
   If reponse=6 Then
      .....
      Call SendMail (db, doc, docprofile.SF(0),"",sujet,action)
      ....
      Call doc.Save(True,False)
      doc.saveoptions="0"
      Call uidoc.Close
      Call ws.ViewRefresh
   End If



Je vais supprimer le docprofile en LS et relancer la base pour voir.
MErci!

[camilleB]

Curieux!
en faisant çà dans un autre bouton:

Code : Tout sélectionner

   Dim session As New NotesSession            
   Dim db As NotesDatabase            
   Dim doc As NotesDocument            
   Set db=session.CurrentDatabase            
   Set doc=db.GetProfileDocument("ParamGlobal")            
   'Call doc.remove(0)

Je vois bien tous les items du docprofile!
Donc je remet ce même bout de code dans le script du 1er bouton, pareil : $name, $updateBy, $nopurge, $conflitaction rien d'autre.

merci

[camilleB]

Bon ,
les gars je ne sais pas quoi dire! Je reprends les mêmes options que le bouton qui fonctionne ie...
je supprime l'icone notes, la formule de masquage associée, afficher dans le menu action. Je supprime le code du script.
je remet le code, J'enregistre et relance la base!
Cà fonctionne ! Content et déçu à la fois de ne pas savoir ce qui à causé ce bug.

cdt
camille