Acumular valor de campo descripción en visual foxpro

Hola a todos... Espero me ayuden... Tengo una base de datos en dbf con los siguientes datos.
Código descripción punit ...
7A01001 CE MEDICINA 7.00 ...
7A02003 CE ONCOLOGÍA 7.00 ...
7A04001 CE GINECO 7.00 ...
7a03004 ce rehabilitación 8.00 ...
7A04001 CE GINECO 7.00 ...
7a01001 ce medicina 7.00 ... Y así 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 rehabilitación 1
... Hice una rutina con sql pero es demasiado lento y no tengo mucha experiencia en visual foxpro... De antemano las gracias por este apoyo.

1 Respuesta

Respuesta
1
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
Muchas gracias Experto lo resolví creando un indice y acelero la búsqueda... pero tu instrucción lo utilice para otro proceso ... y gracias por responder...

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas