DominoArea.org [Archive]

Bonjour,
je m'adresse à vous car je ne trouve pas la réponse à ce bug!Est il possible de supprimer un doc affiché dans un dialogbox après avoir cliquer ok ou cancel?
je récupère un doc créé par un utilisateur dans une vue ensuite il est affiché par:

Code : Tout sélectionner

rep= ws.DialogBox("FrmFicheDlg",True,True,False,False,False,False,"Modification de la fiche",docB,True,False,False)

Jusque là ok! Bizarrement si après avoir affiché le docB je fais cancel le docB est supprimé de la base!!!
Je ne comprends pas!je précise que le code qui affiche le docB est appelé à partir d'un clic d'un docA.
Merci de votre aide!Quelque chose m'échappe!
cdt
camille

salut

tu sauve ton doc a un momment ?

Salut Michael,
Pour récupérer la réponse, j'ai mis un
if rep then
...récupération des infos modifiées et puis
call docB.save(true,false)
end if
cancel me supprime carrément le docB sans le demandé explicitement!!

o_O

tu peut me montrer tout ton code ?

Voilà,
On Error Goto ErrorHandler
Dim session As New NotesSession
Dim ws As New NotesUIWorkspace
Dim db As NotesDatabase
Dim vuedocs As NotesView
Dim docB As NotesDocument
Dim uidocencours As NotesUIDocument
Dim rep As Boolean
Set db=session.CurrentDatabase
Set vueDocs=db.GetView("vwDocs")
Set uidocEncours=ws.CurrentDocument
If Not vueDocs Is Nothing Then
Set docB=vueDocs.GetDocumentByKey(uidocencours.Document.idFiche(0))
If Not docB Is Nothing Then
docB.ReferenceDossier=uidocEncours.FieldGetText("Referencedossier")
Call docB.save(True,False)
rep= ws.DialogBox("FrmFicheDlg",True,True,False,True,True,False,"Modification de la demande",docB,True,False,False)
If rep Then
uidocEncours.Document.TypeErreur=docB.TypeErreur0)
uidocEncours.Document.Commentaires=docB.Commentaires(0) 'commentaires vers dossier en cours
Call docB.Save(True,False)
Call uidocencours.Document.Save(True,False)

Else
Msgbox "Fermeture docB"

End If

Else
AlerteMsg("La demande est introuvable dans la base!")
End If
Else
AlerteMsg("La vue des documents est introuvable dans la base!")
End If

Exit Sub
ErrorHandler:
Messagebox "Erreur N° : " +Cstr(Err)_ ' code numérique de l'erreur
+"Description : " + Error(Err)_ ' La description de l'erreur
+ "Ligne N° : "+ Cstr(Erl)_ ' La ligne où se trouve l'erreur
+"",16, " ERREUR sub modifDocFiche!"

re,

ça devrais le faire, mais tu devrais vérifié que ton docb il a bien le champs form de correctement renseigné

Merci!
j'ai rajouté docB.form="FrmficheDlg"
incompréhensible, le docB est toujours supprimé en cliquant ok ou cncl.

cdt
camille

J'ai fini par trouvé! En fait le doc n'était pas supprimé mais non visible car petit bémol au niveau d'un champ auteur et de la sélection des documents de la vue!
Désolé du dérangement.
cdt
camille