Inicio > Visual Fox Pro > victoramf > acumular valor de campo descripcion en visual foxpro

acumular valor de campo descripcion en visual foxpro

Experto:
Usuario: Anónimo Fecha: 03/07/2008
Valoración: (4,00 sobre 5) Categoría: Visual Fox Pro
24/06/2008
Usuario
Hola a todos...espero me ayuden....tengo una base de datos en dbf con los siguientes datos.
CODIGO   DESCRIPCION              PUNIT .......
7A01001  CE MEDICINA               7.00    .......
7A02003  CE ONCOLOGIA           7.00   .........
7A04001  CE GINECO                 7.00   ..........
7A03004  CE REHABILITACION   8.00  ..........
7A04001  CE GINECO                 7.00  ............
7A01001  CE MEDICINA              7.00   ........ Y ASI SUCESIVAMENTE
quisiera pedirles de favor una rutina en visual foxpro para agrupar por descripción y cuantas veces se pago por ejemplo
CUADRO RESUMEN:
7A01001   CE MEDICINA                 2
7A04001   CE GINECO                    2
7A03004   CE REHABILITACION      1
...hice una rutina con sql pero es demasido lento y no tengo mucha experiencia en visual foxpro....de antemano las gracias por este apoyo.
24/06/2008
marconcho, experto respondiendo en Visual Fox Pro
Experto
Intenta:
Select tabla
Go Top
Do While !Eof()
     Select resumen
     Seek tabla.codigo
     If Eof()
          Append Blank
          Replace resumen.codigo With tabla.codigo, resumen.descripcion With tabla.descripcion
     EndIf
     Replace resumen.cuenta With resumen.cuenta + 1
     Select tabla
     Skip
EndDo
03/07/2008
Usuario
Muchas gracias Experto lo resolvi creando un indice y acelero la busqueda....pero tu instruccion lo utilice para otro proceso ......y gracias por responder....
Enlaces patrocinados