El tipico problema de imprimir la copia de registros en una misma hoja
Publicado por devilsito (12 intervenciones) el 28/08/2018 05:01:02
Les dejo el codigo que resuelve el problema de imprimir la copia de no mas de diez registros en una misma hoja.
Esto parte del supuesto que tienes una tabla con 10 registros (o un poco mas, tu lo adaptas) cuyas lineas se imprimiran en la parte superior de la hoja y las lineas que corresponden a la copia en la segunda mitad de la hoja:
Si tienes dudas escribeme. Chao
Esto parte del supuesto que tienes una tabla con 10 registros (o un poco mas, tu lo adaptas) cuyas lineas se imprimiran en la parte superior de la hoja y las lineas que corresponden a la copia en la segunda mitad de la hoja:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
&& 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
Valora esta pregunta


-1