FoxPro/Visual FoxPro - Tabla de vencimientos - Servicios a controlar

SELECT * FROM cta WHERE INTO CURSOR xCuenta      &&cargo la tabla anterior con todos los datos

FOR I=1 TO nMeses       && meses del contrato (ej.: 24 meses)

feVenc = GOMONTH(f_inicio, (I-1))  && fecha de venc del servicio o impuesto

lmes = MONTH(feVenc)  && Mes en curso a evaluar

DO CASE

* Comienzo a evaluar cada período

CASE lmes = 1 && Mes de enero o período 1

SELECT * FROM xCuenta WHERE ene = .T. INTO CURSOR xCta1   && filtro c/otro cursor

	SCAN

		nAno = YEAR(feVenc)

		cCuenta = ALLTRIM(RTRIM(xCta1.cuenta) + " 1" + "/" + " 12  " + " Año  " + LTRIM(STR(nAno)))

		IF xCta1.vencido = "SI"

			fvenc = GOMONTH(feVenc, +1)

		ELSE

				fvenc = feVenc

		ENDIF

	INSERT INTO Tabla ( ) ;

	 VALUES (…, cCuenta, fvenc, )

		ENDSCAN

	CASE lmes = 2 && Mes de febrero o período 2

	SELECT * FROM xCuenta WHERE feb = .T. INTO CURSOR xCta2 && filtro c/otro cursor

	SCAN

		nAno = YEAR(feVenc)

		cCuenta = ALLTRIM(RTRIM(xCta2.cuenta) + " 2" + "/" + " 12  " + " Año  " + LTRIM(STR(nAno)))

		IF xCta2.vencido = "SI"

			fvenc = GOMONTH(feVenc, +1)

			fUltm = GOMONTH((fvenc),+1)-1

		ELSE

			fvenc = feVenc

			fUltm = GOMONTH((fvenc),+1)-1

		ENDIF

INSERT INTO Tabla ( ) ;

	 	VALUES (…, cCuenta, fvenc, )

	CASE lmes = 3 && mes de marzo o período 3

	*********************************************************

CASE lmes = 12 && mes de diciembre o período 12

ENDFOR