DominoArea.org [Archive]

bonjour,j'ai un soucis avec ce script.Il est censé récuper deux valeurs dans le document cournat dans lequel il est lancé. De récupérer 2 valeurs dans un document extrait d'une vue.De faire la somme entre une des valeurs du document courant et une des valeurs du document sorti de la vue et de mettre la somme dans le document toujours extrait de la vue.J'ai lancé le debugger mais je ne trouve pas mon erreur qui est: "type mismatch" au niveau de:If FE.n_restant_annee_precedente(0) = "" Then C = 0 Else C = FE.n_restant_annee_precedente(0) End IfVoici l'intégrale du Script. Merci à vousSub Initialize Dim Session As New notessession Dim ws As New notesuiworkspace Dim db As notesdatabase Dim Vue As notesview Dim FE As notesdocument Dim DC As notesdocument Dim A As Integer Dim B As Integer Dim C As Integer Dim D As Integer Set db = Session.currentdatabase Set Vue = db.getview("VFE") Set DC = ws.currentdocument.document Set FE = Vue.getdocumentbykey(DC.getitemvalue("demandeur")(0),True) If FE Is Nothing Then Msgbox "Document Employé introuvable",0+16, "Erreur" Exit Sub End If If DC.totaldays1(0) = "" Then A = 0 Else A = DC.totaldays1(0) End If If DC.totaldays(0) = "" Then B = 0 Else B = DC.totaldays(0) End If If FE.n_restant_annee_precedente(0) = "" Then C = 0 Else C = FE.n_restant_annee_precedente(0) End If If FE.n_restant(0)= "" Then D = 0 Else D = FE.n_restant(0) End If Call FE.replaceitemvalue("n_restant_annee_precedente", A+C) Call FE.replaceitemvalue("n_restant", B+D) FE.save True, TrueEnd Sub[%sig%]

Bonjuor tu as déclaré c en interger donc il faut que FE.n_restant_annee_precedente(0) soit un nombre ce qui n'a pas l'air d'être le cas.Ton champ n_restant_annee_precedente est il bien de type nombre ?tu aussi passer une ligne de plus dans ton scriptvar = FE.n_restant_annee_precedente(0)et verifier avec le debugger quel type de variable notes lui attribue automatiquement

Bonjour,Mes champs sont bien de type nombre.J'ai mis la ligne que tu m'as donné (var...), et j'ai comme type "variant".Mais je sais pas quoi faire de plus. Peux-tu m'aider STP?Merci[%sig%]

le plus simple est de forcer ta valeur en integer avec Intessaye de remplacet C = FE.n_restant_annee_precedente(0)parC = Int(FE.n_restant_annee_precedente(0))

J'ai utilisé des variables (var) intérmédiaire puis j'ai fait C = Int(var) et tout fonctionne comme je le souhaitais.Merci[%sig%]