FoxPro/Visual FoxPro - urgente... fechas

   
Vista:

urgente... fechas

Publicado por sebastian (244 intervenciones) el 06/11/2009 15:50:38
Hola programadores tengo este array que encontre en el foro pero como puedo hacer para ver los resultados o quizas pasarlo a una tabla gracias.
DIMENSION SumaValor[12,1]
DIMENSION Meses[12,1]
meses[1,1]="enero"
meses[2,1]="Febrero"
meses[3,1]="Marzo"
meses[4,1]="Abril"
meses[5,1]="Mayo"
meses[6,1]="Junio"
meses[7,1]="Julio"
meses[8,1]="Agosto"
meses[9,1]="Setiembre"
meses[10,1]="Octubre"
meses[11,1]="Noviembre"
meses[12,1]="Diciembre"
CREATE cursor totales (CodCli c(10))
FOR x=1 TO 12
STORE 0 TO SumaValor[x,1]
campo=meses[x,1]
ALTER TABLE totales;
ADD COLUMN &campo N(10,2)
ENDFOR
INDEX ON CodCli TAG codigo ADDITIVE
SELECT("aportes")
SCAN
IF !SEEK(so_codi,"Totales","codigo")
APPEND BLANK IN Totales
REPLACE codcli WITH aportes.so_codi;
IN Totales
ENDIF

x=MONTH(date())
campo=meses[x,1]
REPLACE &campo WITH &campo+aportes.ap_mont;
IN Totales
ENDSCAN

SELECT("aportes")
mi_codcli=aportes.so_codi
SCAN
IF aportes.so_codi=mi_codcli
=write_suma()
ENDIF

x=MONTH(date())
campo=meses[x,1]
sumaValor[x,1]=sumaValor[x,1]+aportes.ap_mont
ENDSCAN
FUNCTION write_suma
IF !SEEK(so_codi,"SumaValor","codigo")
APPEND BLANK IN sumaValor
REPLACE codcli WITH so_codi;
IN SumaValor
ENDIF

FOR x=1 TO 12
campo=meses[x,1]
REPLACE &campo WITH sumaValor[x,1];
IN SumaValor
STORE 0 TO SumaValor[x,1]
ENDFOR
ENDFUNC
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder