DominoArea.org [Archive]

j'ai un agent programmé et planifier pour s'exécuter toutes les 30 minutes.Voici le message du journal:Started running agent 'dateDébutTraitement' on 29/07/2003 15:40:35Running on all documents in database: 345 totalFound 345 document(s) that match search criteriaERROR: Unknown LotusScript Error.Ran LotusScript codeDone running agent 'dateDébutTraitement' on 29/07/2003 15:40:35si je fais clique de droit sur mon agent et que je fais "Exécuté", voici ce que je trouve dans le journal.Début d'exécution de l'agent "dateDébutTraitement" le 29/07/2003 15:40:33Exécution de tous les documents dans la base : 346 en tout346 document(s) satisfaisant les critères de recherche trouvé(s)Code LotusScript exécutéFin d'exécution de l'agent "dateDébutTraitement" le 29/07/2003 15:40:34voici le code:Sub Initialize Dim db As notesdatabase Dim doc As notesdocument Dim view As NotesView Dim maVue As String Dim Session As NotesSession Set Session = New NotesSession Set db = session.CurrentDatabase maVue = "(Ouvertures\TiersNouvelles demandes)" Set view = db.GetView(maVue) Set doc=view.GetFirstDocument While Not doc Is Nothing If doc.getitemvalue("Datedemande")(0) = "" Then doc.Datedemande = Now doc.heuredemande = Now Call doc.Save(True, False) End If Set doc = view.GetNextDocument(doc) Wend End Subje ne comprend pas pourquoi ça bloque car j'ai bien l'autorisation pour planifier des agents sur le serveur sur lequel je travaille.D'où peut provenir l'erreur?

saluttu devrais faire un traitement d'erreur pour savoir ce qui provoque l'erreur.[%sig%]

comment qu'on fait ça (sous V4.6)?

je crois que c comme ca .... mais plus tres sure de mes souvenirs de 4.6 !!! ;o)Sub Initialize Dim db As notesdatabase Dim doc As notesdocument Dim view As NotesView Dim maVue As String Dim Session As NotesSession on error goto myError Set Session = New NotesSession Set db = session.CurrentDatabase maVue = "(Ouvertures\TiersNouvelles demandes)" Set view = db.GetView(maVue) Set doc=view.GetFirstDocument While Not doc Is Nothing If doc.getitemvalue("Datedemande")(0) = "" Then doc.Datedemande = Now doc.heuredemande = Now Call doc.Save(True, False) End If Set doc = view.GetNextDocument(doc) Wendexit submyError: Print Error$ Messagebox( Error$) Resume NextEnd Sub[%sig%]

merci, je vais attendre 30 min le temps qu'il s'exécute automatiquement.

attention si ton agent est plannifé le print va mettre l'info dans le journal du serveur et je crois que le messagebox est ignoré (en tout cas cela ne s'affiche pas sur ton poste client

je pensais bien aller voire dans le journal, mais je dois attendre qu'il s'exécute par lui même (car si je le test je sais que ça marche)

ça marche!!!!!Started running agent 'agent2' on 29/07/2003 17:39:35Running on all documents in database: 350 totalFound 350 document(s) that match search criteriaRan LotusScript codeDone running agent 'agent2' on 29/07/2003 17:39:36et j'ai bien les modifications dans ma base.merci, mais peux-tu m'expliquer la gestion des erreurs que tu as fais.

en fait, s'il y a une erreur , il affiche un message dans le log et continue son traitement. as tu verifier dans la base log s'il y avait un message d'erreur ???[%sig%]

je n'ai pas de message pour ma dernière exécution d'agent. voici ce que j'ai ds log:29/07/2003 15:34:00 Recherche de réplique (C1256723:005CDA99) sur le serveur X29/07/2003 15:34:01 Echec de réplication de l'ID (C1256723:005CDA99) du serveur X29/07/2003 17:29:10 Echec de réplication de l'ID (C1256C70:004BF4C7) du serveur X vers un autre membre de la grappemon agent a été exécuté à 17h35donc c bon?

s'il n'y a rien dans le log a 17h35 c ke c bon !!! par contre, ce qui m'inkiete c qu'il n'y est rien sachant qu'il y avait une erreur avant !!!! bizarre bizarre ........... ou alors g raté un episode !!![%sig%]

sur d'autre programme j'ai eu le même problème:je devais relever un champ numérique "monchamp" sur un ensemble de docs et le programme bloquait au bout de quelques docs (pas forcément le même d'ailleurs). j'ai mis la condition IsNumeric et le programme c mis à tourner tout seul alors que mes champs été tous numériques!!!!je vais creuser pour ne pas avoir de mauvaises surprises.merci pour ton aide