FoxPro/Visual FoxPro - Desglosar una tabla

LOCAL LcText,lcFile,lnHand

lnHand=-1

lcFile="entrada.txt"

* 1 - Con los datos que envías, genero un cursor

TEXT TO lcText NOSHOW PRETEXT 7

1 - 35 - 01/05/2015

2 - 35 - 20/06/2015

3 - 35 - 25/06/2015

1 - 40 - 01/12/2014

2 - 40 - 20/12/2014

3 - 40 - 23/12/2014

ENDTEXT

STRTOFILE(lcText,lcFile)

lnHand=FOPEN(lcFile,0)

IF lnHand = -1

	MESSAGEBOX("No se pudo abrir "+lcFile,0,"Mensaje")

	RETURN

ENDIF

CREATE CURSOR OldDatos ("cod_venc" I, "id_lisveh" I ,"fecha_venc" D)

TRY

	LOCAL loex as Exception

	DO WHILE !FEOF(lnHand)

		lcGet=FGETS(lnHand,2048)

		IF !EMPTY(lcGet)

			lnLines=ALINES(gaLines,lcGet,1,"-")

			IF lnLInes=3

				lnCod=VAL(galines[1])

				lnId=VAL(galines[2])

				ldFe=CTOD(gaLines[3])

				INSERT INTO OldDatos (cod_venc,id_LisVeh,fecha_venc) ;

					values(lnCod,lnId,ldFe)

			ENDIF

		ENDIF

	ENDDO

CATCH TO loEx

	loex.UserValue=PROGRAM()

	MESSAGEBOX("Se ha producido un error:"+CHR(13);

		+loex.UserValue+CHR(13);

		+loex.Message+CHR(13) ;

		+"Error "+TRANSFORM(loEx.ErrorNo) + CHR(13) ;

		+"linea "+TRANSFORM(loex.LineNo) ,0,"Error")

FINALLY

	=FCLOSE(lnHand)

	SELECT OldDatos

	GO top

	BROWSE

ENDTRY

* 2 - Creo una tabla según se necesita

*     Genero un índice por id_LisVeh

CREATE TABLE NewDatos ("id_LisVeh" I , "fecha_cod1" D,"fecha_cod2" D,"fecha_cod3" D)

SELECT newDatos

INDEX ON ID_LisVeh TAG xIdLis

* 3 - Recorrido de datos desde OldDatos

*     Actualiza tabla NewDatos

SELECT OldDatos

SCAN

	lnId=id_LisVeh

	lcCampo="fecha_cod"+TRANSFORM(cod_venc)

	SELECT newDatos

	IF !INDEXSEEK(lnId,.f.,"NEWDATOS","XIDLIS")

		INSERT INTO newDatos (id_LisVeh) VALUES (lnId)

	ENDIF

	INDEXSEEK(lnId,.t.,"newDatos","xIdLis")

	replace (lcCampo) WITH oldDatos.fecha_venc

ENDSCAN

SELECT newDatos

GO top

BROWSE

SELECT oldDatos

USE

SELECT newDatos

USE