FoxPro/Visual FoxPro - El tipico problema de imprimir la copia de registros en una misma hoja

&& Se definen las variables totales de lineas (original y copia):

FOR i = 1 TO 20

	ene = ALLTRIM(STR(i))

	codigo&ene  = " "

	detalle&ene = " "

	unidad&ene  = " "

	cant&ene = 0

next

&& Ahora asignas las variables a la primeras 10 lineas (original)

	GO top	&& cursor o tabla

	i=1

	DO WHILE !EOF()

		ene = ALLTRIM(STR(i))

		codigo&ene  = cur_pedigrid2.codigo

		detalle&ene = cur_pedigrid2.detalle

		unidad&ene  = cur_pedigrid2.unidad

		cant&ene 	= cur_pedigrid2.cant

		i=i+1

	    SKIP

    enddo

&& Ahora asignas a las 10 variables restantes para las lineas (copia)

	GO top

	i=11

	DO WHILE !EOF()

		ene = ALLTRIM(STR(i))

		codigo&ene  = cur_pedigrid2.codigo

		detalle&ene = cur_pedigrid2.detalle

		unidad&ene  = cur_pedigrid2.unidad

		cant&ene 	= cur_pedigrid2.cant

		i=i+1

	    SKIP

    enddo

&& Del uno al diez son las lineas originales y las restantes hasta el 20 son las copias, Ahora debes construir el report

&&Completamos la factura:

Select ventas

Nlinea=Reccount () && obtenemos la cantidad cargada en el cursor

For i=nlinea to 10

       Append Blanco

       Replace ventas.control=1

Next