DominoArea.org [Archive]

Bonjour,Suite à un message que j'avais déjà posté sur ce forum(compter les documents répondant à des critères), j'ai essayé de compter en LotusScript, ce qui me donne :Sub Click(Source As Button) Dim s0, s1, s3, s4, s5, s6, s7, sc, ss, sa, se, s8 ........ As Variant 'on va parcourir une vue pour retourner une liste Dim eq, statut As Variant Dim ws As New NotesUIWorkspace Dim s As New Notessession Dim db As NotesDatabase Dim vue As NotesView Dim doc As NotesDocument Set db = s.CurrentDatabase Set vue = db.GetView("statistiques") 'on parcourt une par une les entrées de la vue et on icrémente le champ suivant la valeur de statut trouvé Set doc = vue.GetFirstdocument 'initialisation des compteurs s0 = 0 s1 = 0 s3 = 0 s4 = 0 s5 = 0 s6 = 0 s7 = 0 s8 = 0 sc = 0 ss = 0 sa = 0 se = 0 While Not doc Is Nothing 'tant qu"il y a des documents dans la vue eq = doc.getitemvalue("equipe")(0) statut = doc.getitemvalue("statut")(0) 'on commence par trier sur l'équipe If (eq = "equipe1") Goto label1 If (eq = "equipe2") Goto label2 .............. label1 : If (statut = "0 brouillon") Then mvs0 = mvs0 + 1 If (statut = "1 envoyé") Then mvs1 = mvs1 + 1 ................................................. Set doc = vue.getnextdocument(doc) Wend 'on se place maintenant sur le doc stat Dim uidoc As NotesUIDocument Dim docstat As NotesDocument Set uidoc = ws.CurrentDocument Set docstat = uidoc.document 'on affecte les variables aux champs docstat.S0 = s0 docstat.S1 = s1 ................................... 'on renseigne les champs de miseà jour docstat.date_màj_stat = Date$ docstat.pers_màj_stat = s.UserName 'on enregistre docstat.save True, False End SubJ'ai réduit le code pour être un peu plus compréhensible. Quand je prévisualise, je lance l'action aucun problème.Mais quand je veux voir un doc existant (par une vue), j'ai le message masque par défaut introuvable. Comment expliquez-vous cela?Merci.

Si tes doc sont créés via LS, il ne faut pas oublier d'initialiser le champ Form.set doc = new NotesDocument(db)doc.Form = "monmasque"[%sig%]

J'ai fait Call uidoc.saveet ca fonctionne....donc pour renseigner le champ form il faut enregistrer en front end si j'ai bien comprisMerci.

Salut,Je crois qu le mieux c'est : 'on enregistredocStat.form = "NomDuMasque"docstat.save True, FalseRom1.

Bonjour,Non pas obligatoirement :Back EndDoc.form = "MonMasque"' Le reste du traitementCall Doc.Save(True, False, False).[%sig%]

ok merci de vos réponses.