Sumas en el primer registro
Hola Experto
Tengo una tabla que contiene datos parecidos a los siguientes:
edo imp ubi vec uni
B CAL 100 A 10 3
B CAL 200 B 2 2
JAL 150 A 10 1
JAL 200 B 2 1
NAY 300 A 5 5
Como resultado dentro de otra tabla o dentro de la misma tabla necesito sumar por estado las veces y unidades en el primer registro coincidente al mismo Estado pero sin perder el detalle, Ejemplo tabla resultante:
EDO IMP UBI VEC UNI S_vec s_uni
B CAL 100 A 10 3 12 5
B CAL 200 B 2 2
JAL 150 A 10 1 12 2
JAL 200 B 2 1
NAY 300 A 5 5 5 5
De antemano gracias por la asesoría que me puedas brindar
Tengo una tabla que contiene datos parecidos a los siguientes:
edo imp ubi vec uni
B CAL 100 A 10 3
B CAL 200 B 2 2
JAL 150 A 10 1
JAL 200 B 2 1
NAY 300 A 5 5
Como resultado dentro de otra tabla o dentro de la misma tabla necesito sumar por estado las veces y unidades en el primer registro coincidente al mismo Estado pero sin perder el detalle, Ejemplo tabla resultante:
EDO IMP UBI VEC UNI S_vec s_uni
B CAL 100 A 10 3 12 5
B CAL 200 B 2 2
JAL 150 A 10 1 12 2
JAL 200 B 2 1
NAY 300 A 5 5 5 5
De antemano gracias por la asesoría que me puedas brindar
1 respuesta
Respuesta de Víctor Arturo Mercado Fernández
1
¿Para qué lenguaje?
Perdón para foxpro
Te recomiendo que sea en otra tabla (Resumen) con la estructura: EDO C(5), S_VEC N(3), S_UNI N(3) ordenada por el campo EDO; y el código debe ser algo similar a:
SELECT Resumen
ZAP
SELECT MiTabla && De donde se va a extraer el resumen
GO TOP
DO WHILE !EOF()
SELECT Resumen
SEEK MiTabla.edo
IF EOF()
APPEND BLANK
REPLACE Resumen.edo WITH MiTabla.edo
ENDIF
REPLACE Resumen.s_vec WITH Resumen.s_vec + MiTabla.vec, ;
Resumen.s_uni WITH Resumen.s_uni + MiTabla.uni
SELECT MiTabla
SKIP
ENDDO
... bueno, eso digo yo.
Víctor.
SELECT Resumen
ZAP
SELECT MiTabla && De donde se va a extraer el resumen
GO TOP
DO WHILE !EOF()
SELECT Resumen
SEEK MiTabla.edo
IF EOF()
APPEND BLANK
REPLACE Resumen.edo WITH MiTabla.edo
ENDIF
REPLACE Resumen.s_vec WITH Resumen.s_vec + MiTabla.vec, ;
Resumen.s_uni WITH Resumen.s_uni + MiTabla.uni
SELECT MiTabla
SKIP
ENDDO
... bueno, eso digo yo.
Víctor.
