[Resolu] Appelle dialogBox à partir d'un dialogBox

[camilleB]

Salut,
j'ai un bouton dans un dialogBoxB qui permet d'appeler un autre dialogboxC.
Le dialogBoxB contient d'autre champ et une vue intégrée.
Le dialogBoxC contient un champ "Commentaire" pour la saisie!
je voudrais afficher le contenu de ce champ "Commentaire" dans un champ calculé et multiple mais dans le formulaire du dialogboxB.
J'en suis là:

Code : Tout sélectionner

If ws.DialogBox ("DlgcommentairesDossier", True, True, False, False, False, False, "Ajout commentaires", doctmp, False, False, True ) Then
      sCommonUsername = ss.CommonUserName
      sDateTime = { le } + Cstr(Today) + { à } + Time$
      Call item.AppendToTextList(">> Ajout commentaires par " + sCommonUsername + sDateTime)
      Call docTmp.RemoveItem("CommentsPrompt")
      Call doctmp.RemoveItem("CommentsPrompt2")
      Call doctmp.RemoveItem("CommentsMandatory")
         
   End If


comment je peux bien récupérer le contenu qui a été saisie et l'affiché dans le champ calculé?
Merci pour vos idées!
cdt
camille

[Michael DELIQUE]

salut

dans quelle ordre apparaissent tes dialogboxe ?

parceque je dois manquer de café, mais j'ai l'impression que tu veux afficher ton commentaire C dans le B...

sinon il suffit tout simplement de rajouter ton champs calculer dans le masque/sousmasque et via le lotusscript de copier le champs du document B vers le document C

ou une autre solution tu mixes les deux.

[camilleB]

Salut,
L'ordre est le suivant: FormA->DialogB - bouton B->DialogC. le champ en saisie est dans le dialogBoxC et doit apparaitre dans le dialogbox B en affichage seul.
cdt
camille

[Michael DELIQUE]

suffit de transférer la valeur par du LS avant l'appel du dialgbox...

je vois pas ou est le probleme ?

[roubech]

Tu fermes pas la dialogB avant d'afficher la dialogC ?

[camilleB]

Salut Michael,
soit j'ai pas assez de café ou je suis en over dose!!
Quand je lis ta phrase, je comprends transférer par LS valeurs dialogboxB vers dialogBoxC !!
Mais c'est l'inverse qu'il me faut: C vers B.
Supposons que je saisie un commentaire, quand je fais OK sur dialogBoxC la valeur est dans le doctmp.
Comment faire le transfert vers le doc du dialogBox B? Désolé il y a une étape que je ne digère pas!
Merci de tes précisions!
cdt
camille

[camilleB]

Tu fermes pas la dialogB avant d'afficher la dialogC ?

Bjr Roubech,
heu non le dialogB reste encore ouvert malheureusement!
cdt
camille

[Michael DELIQUE]

un truc comme ça

Code : Tout sélectionner

   Dim DocPrincipal As NotesDocument
   Dim docTemp1 As NotesDocument
   Dim docTemp2 As NotesDocument
      
   If ws.DialogBox ("FormB", True, True, False, False, False, False, "BBBBBBBBBBB", doctmp1, False, False, True ) = True Then
      REM doctemp1 vers docprincipal
   End If
   
   If ws.DialogBox ("FormC", True, True, False, False, False, False, "CCCCCCCCCCCCCC", doctmp2, False, False, True ) = True Then
      REM doctemp2 vers docprincipal ou doctemp1
   End If

c'est plus un probleme d'algorythmique que de Ls pure

[camilleB]

Je comprends mieux ce que tu veux dire maintenant!
Donc je reprends:
- on declare docDialogB, docDialogC comme globale dans la bibliotheque de script
- ensuite je fais une fonction ajouterCommentaires dans la bibliotheque qui va appeler le dialogBoxC

Code : Tout sélectionner

Function AjoutCommentairesFE as integer
   Dim ss As NotesSession
   Dim ws As NotesUIWorkspace
   Dim sDateTime As String, sCommonUsername As String
   Dim itemcommentaire As NotesItem
   Dim db As NotesDatabase
   Set ss =New NotesSession
   Set ws=New NotesUIWorkspace
   Set db=ss.CurrentDatabase
   
   Set docDialogC = New NotesDocument(db)
   
   '** Commentaires
   Call docDialogc.ReplaceItemValue("CommentsPrompt", "Veuillez ajouter un commentaire au dossier.")
   Call docDialogc.ReplaceItemValue("CommentsMandatory", "1") 'Obligatoire
   If ws.DialogBox ("DlgcommentairesDossier", True, True, False, False, False, False, "Ajout commentaires", docDialogC, False, False, True ) Then
      Stop
      sCommonUsername = ss.CommonUserName
      sDateTime = { le } + Cstr(Today) + { à } + Time$
   
      'Sauvegarde du commentaire dans le champ old_commentaire dans le docdialogB
      If docdialogB.HasItem("Old_Commentaires") Then
         Set itemCommentaire = docDialogB.GetFirstItem("Old_Commentaires")
         If (Trim(docDialogC.GetItemValue("Commentaires")(0)) <> "" ) Then
            Call itemCommentaire.AppendToTextList(Format$(Now, "dd/mm/yyyy hh:mm") + " : " + docDialogC.GetItemValue("commentaires")(0) + " (" + ss.CommonUserName + ")")
         End If   
      End If
      
   End If
   ajouterCommentairesFE=1
End Function


J'obtiens une erreur object variable not set. je pense que le docDialogB n'est pas vu malgré qu'il soit déclaré dans la bibliotheque!

cdt
camille

[Michael DELIQUE]

object variable not set ça veux dire que tu as un objet pas instancié un petit coup de débug te dira ou il est

[camilleB]

Oui, c'est le docDialogB qui n'est pas instancié! mais il devrait car c'est le dialogBoxB qui est appelant. La variable docdialogB dans les Globals est instanciée (vu en debug) mais dans la fonction ajouterCommentaireFE on ne la voit pas (j'ai fait un test is nothing dessus)!!
Pour info dialogBoxC affiche un sous formulaire et pas un formulaire!!
N'y aurait-il pas un souci d'accès aux globals dans ce cas?
Zut j'y suis presque!

cdt
camille

[Michael DELIQUE]

désolé, la comme ça je ne peux pas répondre.

[camilleB]

Salut, après pas mal de test infructueux j'ai testé le passage du docDialogB à ma fonction. C'est beaucoup mieux!