FoxPro/Visual FoxPro - Acomodar datos en una tabla

*<simulaCursor>

TEXT TO LCTEXT NOSHOW PRETEXT 7

1 VERDULERIA 100

1 ALMACEN 150

1 CARNE 200

2 VERDULERIA 150

2 ALMACEN 50

2 CARNE 280

3 VERDULERIA 50

3 ALMACEN 350

3 CARNE 100

ENDTEXT

CREATE CURSOR CURVEN ("mes" I,"RUBRO" C(30),"IMPORTE" N(12,2))

lnLines = ALINES(laLines,lcText,1+4,CHR(10),CHR(13))

FOR i = 1 TO lnLines

	INSERT INTO curven (mes,rubro,importe) ;

		VALUES (VAL(GETWORDNUM(laLines[i],1,SPACE(1))) ,;

			GETWORDNUM(lalines[i],2,SPACE(1)),;

			VAL(GETWORDNUM(laLines[i],3,SPACE(1))) )

NEXT

SELECT curven

GO top

*</simulaCursor>

*<Cuantos meses tiene el cursor>

SELECT distinct mes FROM curven WHERE .t. INTO ARRAY laMes

lnTally = _tally

*</Cuantos meses tiene el cursor>

*<CrearCursorMuestra>

lnCount = 1

LOCAL ARRAY laFields(1,4)

laFields[1,1]="RUBRO"

laFields[1,2]="C"

laFields[1,3]=30

laFields[1,4]=0

FOR i= 1 TO lnTally

	DIMENSION laFields(i+1,4)

	laFields[i+1,1]="MES"+TRANSFORM(laMes[i,1])

	laFields[i+1,2]="N"

	laFields[i+1,3]=12

	laFields[i+1,4]=2

	lnCount = lnCount + 1

NEXT

ln = lnCount + 1

DIMENSION laFields(ln,4)

laFields[ln,1]="TOTAL"

laFields[ln,2]="N"

laFields[ln,3]=12

laFields[ln,4]=2

CREATE CURSOR CURTEMP FROM ARRAY LAFIELDS

SELECT CURTEMP

INDEX ON RUBRO TAG IRUBRO

*</CrearCursorMuestra>

*<ActualizarCursorMuestra>

SELECT CURVEN

SCAN

	lcRubro = TRIM(rubro)

	lnMes = Mes

	lnImporte = Importe

	lcField = "MES"+TRANSFORM(lnMes)

	IF !INDEXSEEK(lcRubro,.f.,"CURTEMP","IRUBRO")

		INSERT INTO curtemp (rubro) VALUES (m.lcrubro)

	ENDIF

	SELECT curtemp

	INDEXSEEK(lcRubro,.t.,"CURTEMP","IRUBRO")

	REPLACE (lcField) WITH EVALUATE(lcField) + m.lnImporte

ENDSCAN

SELECT curtemp

SCAN

	lnSumRub = 0

	FOR i = 1 TO lnTally

		lcField = "MES"+TRANSFORM(laMes[i,1])

		lnSumRub = lnSumRub + EVALUATE(lcField)

	NEXT

	REPLACE total WITH lnSumRub

ENDSCAN

GO top

*</ActualizarCursorMuestra>

BROWSE