Bonjour,
Un agent ne passe pas sur le serveur. J'obtiens ce message d'erreur :
"AMgr: Agent ('Consolidation Repas Cantine' in 'APPLICATIFS\ccfsyn.nsf') error message: Error creating product object"
L'agent ouvre une session sur le serveur. Est-ce que cette erreur provient de cette tentative d'ouverture de session ? A la ligne suivante :
Set Dates = session.CreateDateRange()
Quand je lance cet agent à partir de mon poste client, il s'exécute sans erreurs.
J'utilise Lotus notes 9.0
Ci-après le code (une partie) de l'agent :
Merci pour votre aide !
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38 Option Public Option Declare Use "Cantine" Sub Initialize Dim DateDébut As New NotesDateTime ( ToDay ) Dim DateFin As New NotesDateTime ( Today ) Dim session As New NotesSession Dim workspace As New NotesUIWorkspace Dim db As NotesDatabase Dim Doc As NotesDocument Dim view As NotesView Set Dates = session.CreateDateRange() Call DateDébut.Adjustday ( +1 ) ' le lendemain Call DateFin.Adjustmonth( +2 ) DateFin.LocalTime = DateNumber ( Year (DateFin.LocalTime), Month ( DateFin.LocalTime ) , 1 ) ' Mettre la date de fin au dernier jour du mois suivant Call DateFin.AdjustDay ( - 1 ) Dates.Text = DateDébut.DateOnly + "-" + DateFin.DateOnly ' récupération de tous les agents qui mangent à la cantine Set db = session.Currentdatabase Set view = db.Getview("Agents qui mangent à la cantine") view.AutoUpdate = False Set doc = view.Getfirstdocument() Print "Consolidation de " & View.EntryCount & " agents en cours..." Dim NuméroAgent As String While Not (doc Is Nothing) ' Consolidation des repas NuméroAgent = doc.NUMERO_AGENT ( 0 ) Print "Consolidation de l'agent : " & GetAgentName ( NuméroAgent ) " en cours..." Call ConsolidationRepas ( NuméroAgent, Dates ) Set doc = view.GetNextDocument ( Doc ) Wend Print "Consolidation terminée." End Sub
Partager