Forma Rapida de Contar Registros *SOLUCIONADO*

[remtec]

Hola Amigos

Quizás una pregunta ingenua para muchos.

Quiero saber si este una forma mas rápida de contar los registro que cumplan una condición en una Dbf, que no sea un "Do while", siempre lo he realizado recorriendo la dbf completa y preguntando si cumple condición y lo sumo.

Muchos Saludos

Antonio

Ejemplo:

Code: Select all  Expand view  RUN

         Sele b
        DbGotop()
        Reg:=0
        Do While !Eof()
             If Subs(b->Tip_Pag,1,2)="VI".or.Subs(b->Tip_Pag,1,2)="CH"
                   Reg:=Reg + 1
             Endif
             DbSkip()
        Enddo

 

[karinha]

Mira se sirve:

https://vivaclipper.wordpress.com/2014/02/15/count/

Saludos.

[artu01]

Hola no lo he probado pero quizas resulte con dbeval()

Code: Select all  Expand view  RUN

      b->( dbEval( {|| iif( Subs(b->Tip_Pag,1,2)="VI".or.Subs(b->Tip_Pag,1,2)="CH", Reg:=Reg + 1, ) },, {||b->!Eof()}))
 

[JoseAlvarez]

Prueba usando la funcion

Reccount() for <condicion>

Saludos

[karinha]

Prueba usando la funcion

Reccount() for <condicion>

Saludos

Master José, siempre que possible, haga asi, porfa.

Code: Select all  Expand view  RUN

// \SAMPLES\RECCOUNT.PRG

#include "FiveWin.ch"

FUNCTION Rec_Count()

   LOCAL nRecords

   USE CUSTOMER NEW

   USE TEST NEW

   ? RecCount()

   nRecords := CUSTOMER->( RecCount() )

   ? nRecords

   CLOSE ALL

RETURN NIL

// FIN
 

Saludos.

[remtec]

Amigos

Muchas gracias por su ayuda.

Aplique:

Reccount() for <condicion>

Muy agradecido por su tiempo y ayuda.

Muchos Saludos.

Antonio

[JoseAlvarez]

Saludos Joao.

Tienes razón, trataré de ser más didáctico y explícito la próxima vez.

Se trata de ayudar lo más posible.

Gracias por la observación.