DominoArea.org [Archive]

j'ai un gros problème, je n'arrive pas à relever la valeur du champ "DateDebTraitement" alors que ça le fait très bien pou "DateAccepteRefuse" (dans la boucle While). le programme ne prend que la valeur du premier doc et après rien comme si le champ était videSub Click(Source As Button) Dim workspace As New NotesUIWorkspace Dim uidoc As NotesUIDocument Set docstat = workspace.CurrentDocument 'pour écrire les résultats dans les champs du masque "stat" Set docdate = workspace.CurrentDocument.document 'pour relever les dates du masque "stat" Dim session As New notessession Dim db As notesdatabase Dim vue As notesview Dim doc As notesdocument 'documents de la base Dim difference As Long Dim tpsencours As Long Dim tpsvalidé As Long Dim tpsrefusé As Long Dim tpsattente As Long Dim tpsencoursM As Long Dim tpsvalidéM As Long Dim tpsrefuséM As Long Dim tpsattenteM As Long Dim nbreencours As Long Dim nbrevalidé As Long Dim nbrerefusé As Long Dim nbreattente As Long Dim nbreTotal As Long Dim tpsTotal As Long Dim statut As Long Set db = session.currentdatabase Set vue = db.getview("(test)") Set doc = vue.getfirstdocument 'initialisation des compteurs des nombres de documents nbreencours = 0 nbrerefusé = 0 nbrevalidé = 0 nbreattente = 0 nbredoc = 0 'récupérer les 2 dates et heures du masque "stat" Set datedebH = New notesdatetime (Format$(docdate.getitemvalue("datedeb")(0),"dd/mm/yyyy hh:nn:ss")) Set datefinH = New notesdatetime (Format$(docdate.getitemvalue("datefin")(0),"dd/mm/yyyy hh:nn:ss")) Set datedebJ = New notesdatetime (Format$(docdate.getitemvalue("datedeb")(0),"dd/mm/yyyy")) Set datefinJ = New notesdatetime (Format$(docdate.getitemvalue("datefin")(0),"dd/mm/yyyy")) While Not doc Is Nothing 'tant qu'il y a des document dans la vue "(test)" If (doc.getitemvalue("TypDoc")(0) = "DemandeModificationTiers") Then If Isnumeric (doc.getitemvalue("StatutDemande")(0)) Then 'condition qui permet d'éviter le plantage du programme 'récupérer le statut du document statut = doc.getitemvalue("StatutDemande")(0) 'récupérer les dates et heures du document Set datedocdebH = New notesdatetime (Format$(doc.getitemvalue("DateDebTraitement")(0),"dd/mm/yyyy hh:nn:ss")) Set datedocfinH = New notesdatetime (Format$(doc.getitemvalue("DateAccepteRefuse")(0),"dd/mm/yyyy hh:nn:ss")) Set datedocdebJ = New notesdatetime (Format$(doc.getitemvalue("DateDebTraitement")(0),"dd/mm/yyyy")) Set datedocfinJ = New notesdatetime (Format$(doc.getitemvalue("DateAccepteRefuse")(0),"dd/mm/yyyy")) 'vérifier si les dates sont valides entre les dates du documents et les dates demandées pour les stats If (datedocdebH .TimeDifference(datedebH) >= 0) And (datefinH.TimeDifference(datedocfinH) >= 0) Then 'on calcul le temps de traitement du document Call differenceJour (datedocdebJ, datedocfinJ, datedocdebH, datedocfinH, difference) 'on additionne le nombre de documents et les temps de traitement pour chaque statut de documents Call compter (tpsencours, nbreencours, difference, statut, 160) Call compter (tpsvalidé, nbrevalidé, difference, statut, 82) Call compter (tpsrefusé, nbrerefusé, difference, statut, 97) Call compter (tpsattente, nbreattente, difference, statut, 79) End If End If End If Set doc = vue.getnextdocument(doc) Wend End Sub