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




Comentarios:

    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!!!!
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: Re Contar Núm De Documentos En Base A Un Campo

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

Anonymous 11/11/2017 10:43:53 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

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

REVISA EN TU CODIGO LAS CORRECCIONES REALIZADAS.
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,
While not (doc is nothing)
if doc.Area(0) = "QUIMICA" then
count = count + 1 <== cuenta una y otra vez el mismo documento
end if
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!!!!

JuanJo 09/01/2008 16:41:44 Responder

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

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

durzodam 26/12/2007 20:45:56 Responder



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