RE: Re Contar núm de documentos en base a un campo
Responder

Comentarios:

      Por lo que veo el problema es que vos seteas la variable aca abajo:
      A = uidoc.FieldGetText("Area")
      Y haces ciclar mientras la variable A sea igual a quimica pero dentro del ciclo nunca cambias el valor de A por lo cual siempre tiene el mismo valor y nunca deberia salir de el si su valor original es Quimica.
      While A ="QUIMICA" <==No sale de este ciclo,
      count=count+1 <== cuenta una y otra vez el mismo documento
      Set doc=v.GetNextDocument(doc) <== y nunca pasa al siguiente documento
      Wend
      Saludos
Respuestas


Re: Contar Núm De Documentos En Base A Un Campo

Hola a todos,
Tengo un problema, lo que quiero hacer es contar el número de documentos donde el campo "Area" es igual a QUIMICA. Introduje el siguiente código en el evento postsave. Pero se me cicla, quisiera saber si alguien me podría hacer favor de indicarme donde está mi error.
Dim s As NotesSession
Set s = New NotesSession
Dim db As NotesDatabase
Dim A As String
'Dim calif As Integer
Set db = s.CurrentDatabase
Dim v As NotesView
Set v = db.GetView("ES")
Dim Count As Integer
Dim doc As NotesDocument
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc=workspace.currentdocument
A = uidoc.FieldGetText("Area")
Set doc =v.GetFirstDocument
Do Until doc Is Nothing
While A ="QUIMICA" <==No sale de este ciclo,
count=count+1 <== cuenta una y otra vez el mismo documento
Set doc=v.GetNextDocument(doc) <== y nunca pasa al siguiente documento
Wend
Loop
Messagebox "El num de encuestas de química es de: " & count
De antemano muchísimas gracias
Saludos y Feliz Navidad!!!!

Anonymous 11/11/2017 10:44:02 PM Responder

Re: Contar Núm De Documentos En Base A Un Campo

Hola a todos,
Tengo un problema, lo que quiero hacer es contar el número de documentos donde el campo "Area" es igual a QUIMICA. Introduje el siguiente código en el evento postsave. Pero se me cicla, quisiera saber si alguien me podría hacer favor de indicarme donde está mi error.
Dim s As NotesSession
Set s = New NotesSession
Dim db As NotesDatabase
Dim A As String
'Dim calif As Integer
Set db = s.CurrentDatabase
Dim v As NotesView
Set v = db.GetView("ES")
Dim Count As Integer
Dim doc As NotesDocument
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc=workspace.currentdocument
A = uidoc.FieldGetText("Area")
Set doc =v.GetFirstDocument
Do Until doc Is Nothing
While A ="QUIMICA" <==No sale de este ciclo,
count=count+1 <== cuenta una y otra vez el mismo documento
Set doc=v.GetNextDocument(doc) <== y nunca pasa al siguiente documento
Wend
Loop
Messagebox "El num de encuestas de química es de: " & count
De antemano muchísimas gracias
Saludos y Feliz Navidad!!!!
******************************************************************************************************************
La variable "A" nunca cambia su valor, te recomiendo poner tambien A = doc.Area(0) abajo de Set doc=v.GetNextDocument(doc)
Dim doc As NotesDocument
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc=workspace.currentdocument
A = uidoc.FieldGetText("Area")
Set doc =v.GetFirstDocument
Do Until doc Is Nothing
While A ="QUIMICA" <==No sale de este ciclo,
count=count+1 <== cuenta una y otra vez el mismo documento
Set doc=v.GetNextDocument(doc) <== y nunca pasa al siguiente documento
A = doc.Area(0) <==CON ESTO DEBE QUEDAR
Wend
Loop
Messagebox "El num de encuestas de química es de: " & count
Espero que esto te pueda ayudar

Anonymous 28/11/2008 17:17:54 Responder


Web Desarrollada por Juan Carlos Trigo Díaz
Optimizado para: 1024 x 768 pixels - Explorer > 6 Copyright © 2008