Pido ayuda a los genios de Visual foxpro
Gracias de antemano por la respuesta que puedan brindarme, la verdad es que recien empiezo en Visual Foxpro por un trabajo que se presento:
Tengo una tabla que contiene todos mis movimientos de este año, entre otros campos tiene un campo "fecha" y otro "cantidad". Lo que quiero es generar una tabla donde aparesca cuanto vendi en cada mes osea que el resultado sea asi:
Fecha Total
-------------------
Ene-2003 2000
Feb-2003 2100
Mar-2003 1900 etc. etc.
no se si es posible con una consulta SQL.
Tengo una tabla que contiene todos mis movimientos de este año, entre otros campos tiene un campo "fecha" y otro "cantidad". Lo que quiero es generar una tabla donde aparesca cuanto vendi en cada mes osea que el resultado sea asi:
Fecha Total
-------------------
Ene-2003 2000
Feb-2003 2100
Mar-2003 1900 etc. etc.
no se si es posible con una consulta SQL.
Tiene que pasarle el año que quieres sacar (UA) y en los 12 elementos de una matriz tendrás el resultado ordenado por meses
WAIT WINDOW 'Por favor no interrumpa este proceso' NOWAIT
DECLARE MES0[12,2]
MES0[ 1,1]= ' Enero: '
MES0[ 2,1]= ' Febrero: '
MES0[ 3,1]= ' Marzo: '
MES0[ 4,1]= ' Abril: '
MES0[ 5,1]= ' Mayo: '
MES0[ 6,1]= ' Junio: '
MES0[ 7,1]= ' Julio: '
MES0[ 8,1]= ' Agosto: '
MES0[ 9,1]= ' Septiembre: '
MES0[10,1]= ' Octubre: '
MES0[11,1]= ' Noviembre: '
MES0[12,1]= ' Diciembre: '
for i=1 to 12
MES0[I,2]=0
endfor
COND=YEAR(FECHA)=UA'
select facturas
GO TOP
SCAN
IF &COND
Fact=0
Fact=(importe1+importe2+importe3)*(100-descuento)/100
MAUX=MONTH(facturas.FECHA)
MES0[MAUX,2]=MES0[MAUX,2]+Fact
TOT=TOT+Fact
ENDIF
ENDSCAN
WAIT WINDOW 'Por favor no interrumpa este proceso' NOWAIT
DECLARE MES0[12,2]
MES0[ 1,1]= ' Enero: '
MES0[ 2,1]= ' Febrero: '
MES0[ 3,1]= ' Marzo: '
MES0[ 4,1]= ' Abril: '
MES0[ 5,1]= ' Mayo: '
MES0[ 6,1]= ' Junio: '
MES0[ 7,1]= ' Julio: '
MES0[ 8,1]= ' Agosto: '
MES0[ 9,1]= ' Septiembre: '
MES0[10,1]= ' Octubre: '
MES0[11,1]= ' Noviembre: '
MES0[12,1]= ' Diciembre: '
for i=1 to 12
MES0[I,2]=0
endfor
COND=YEAR(FECHA)=UA'
select facturas
GO TOP
SCAN
IF &COND
Fact=0
Fact=(importe1+importe2+importe3)*(100-descuento)/100
MAUX=MONTH(facturas.FECHA)
MES0[MAUX,2]=MES0[MAUX,2]+Fact
TOT=TOT+Fact
ENDIF
ENDSCAN
