FoxPro/Visual FoxPro - Uso de macrosusticion para crear cursor

* Si los campos son fijos

lcCampo1="Estudiante C(30)"

lcCampo2="Amonex1 L"

lcCampo3="AMONEX2 L"

lcCampo4="AMONEX3 L"

TEXT TO lcstring TEXTMERGE NOSHOW PRETEXT 1+5

CREATE CURSOR AMONESTACIONX (<<lcCampo1>> , <<lcCampo2>>,<<lcCampo3>>,<<lcCampo4>>)

ENDTEXT

EXECSCRIPT(lcString)

SELECT amonestacionx

INSERT INTO amonestacionx (Estudiante,Amonex1,amonex2,amonex3) ;

	VALUES ("PEREZ ARNALDO RAMON",.T.,.F.,.T.)

BROWSE

* Si los campos son variables

lnCampos=5

lnFijos=1

LOCAL gaEstud(lnCampos,4)

gaEstud[1,1]="Estudiante"

gaEstud[1,2]="C"

gaEstud[1,3]=30

gaEstud[1,4]=0

FOR i=2 TO lnCampos

	gaEstud[i,1]="Amonex"+TRANSFORM(i-lnFijos)

	gaEstud[i,2]="L"

	gaEstud[i,3]=0

	gaEstud[i,4]=0

NEXT

CREATE CURSOR mamonex FROM ARRAY gaEstud

INSERT INTO mamonex (Estudiante,Amonex1,amonex2,amonex3,amonex4) ;

	VALUES ("PEREZ ARNALDO RAMON",.T.,.F.,.T.,.f.)

BROWSE