Récuperation du bon indice

[kagura31]

Bonjour,

J'ai des documents avec pour identifiant : Projet + indice.
Le projet est choisi en fonction d'une liste.
On récupère l'indice en à partir d'une vue qui retourne le nombre de document avec le même Projet dans l'identifiant.

Code dans le champ indice :

Code : Tout sélectionner

vproj:=Rep2+Rep3;
indice:=@Text(@DbLookup("":"NoCache";@DbName;"CP";vproj;2) + 1);
indice:=@If(indice="";"1";indice);
vproj1:=@Right("00000"+indice;5);

@If(vproj="";"";vproj1="index";"00001";vproj1)


Dans la colonne 2 , on recupere l'indice du dernier document.


Cependant aujourd'hui on a des doublons car il y a des documents qui ne sont pas visible par tous le monde.
Donc dans la vue ou on récupère l'indice on a pas tous les docs par conséquence indice faux.

Je suis en client lourd.
Est ce que vous voyez une solution pour ne plus avoir de doublon ?

Cordialement

[Michael DELIQUE]

salut

en gros ton indice est un numéro incrémentiel automatique.

je ne traite pas ça avec des forumle, mais avec un scipt en back-end (droit serveur) qui va numéroter ton projet. le serveur lui ayant un acces sur tous les documents

[kagura31]

J'ai dans mon bouton enregistrer :

Code : Tout sélectionner

@PostedCommand([FileSave])

J'ai mis dans mon QuerySave :

Code : Tout sélectionner

@Command([ToolsRunMacro];"AgentQuerySave")

Dans mon agent " AgentQuerySave ", j'ai :

Code : Tout sélectionner

                Dim doc As NotesDocument
   Dim session As New NotesSession
   Dim  viewIDT As NotesView
   Dim vcIDT As NotesViewEntryCollection
   Dim idEntry As NotesViewEntry
   Dim dateEnreg As String, AutEnreg As String, ActionEnreg As String
   
   On Error Goto gestionErreur
   
   Set db = session.CurrentDatabase
                Set doc = session.DocumentContext
   
   Dim boxType As Long, answer As Integer
   boxType& = MB_YESNO + MB_ICONQUESTION
   answer% = Messagebox("Voulez vous enregistrer?", boxType&,"Sauvegarde")

   If answer% = 1 Then
      
                  'Mise à jour de l'historique des modifications
      dateEnreg = Format$(Now(), "dd/mm/yyyy hh:nn")
      AutEnreg = session.CommonUserName
      
      If doc.IsNewNote = True Then  ' Nouveau document
      ' Si nouveau document
         ActionEnreg = "Création (statut : " & doc.Etat(0) & ")"
         doc.AncEtat= doc.Etat(0)
         doc.DateModifEtat=dateEnreg
      Else
      ' Modification
         ActionEnreg = "Modification"
         
         If doc.Etat(0) <> doc.AncEtat(0) Then   
            ActionEnreg = ActionEnreg & " - Changement de statut  : " + doc.AncEtat(0) + " -> "  + doc.Etat(0)
            doc.AncEtat= doc.Etat(0)
            doc.DateModifEtat=dateEnreg
         End If
      End If
      
      Call AlimenteHistorique (doc, dateEnreg$ & "//" & AutEnreg & "//" & ActionEnreg)
      
      Call doc.Save(True,False)
      
      Dim agent As NotesAgent
      Set agent = db.GetAgent("MAJNumProj")
      
      If agent.Run(doc.NoteID) = 0 Then
         Messagebox "Agent ran",, "Success"
      Else
         Messagebox "Agent did not run",, "Failure"
      End If
      
   End If


Mon problème c'est que ca me retourne "Agent ran" mais rien ne se passe.
J'ai mis dans l'agent "MAJNumProj" rien que

Code : Tout sélectionner

msgbox "test"

Et j'ai toujours rien.

Pouvez vous m'aider ?