Hola, Mario:
Aquí te paso la porción de código de cómo lo resuelvo yo.
En el frx, donde queres que te aparezca la leyenda haces referencia al
cGlobal.CopiaNro
lcAlias contiene el nombre del cursor que debe estar activo al momento de
ejecutar Report Form ...
laCopias[ 1 ] = "ORIGINAL"
laCopias[ 2 ] = "DUPLICADO"
laCopias[ 3 ] = "TRIPLICADO"
laCopias[ 4 ] = "COPIA Nº "
Create Cursor cGlobal ( CopiaNro C(30) )
Insert Into cGlobal ( CopiaNro ) Value ( laCopias[ 1 ] )
For i = 1 To lnCopias
Do Case
Case i = 1
lcPrintCommand = "Nodialog NoPageEject NoConsole"
Case Between( i, 2, lnCopias - 1 )
lcPrintCommand = "NoPageEject NoDialog NoConsole"
Otherwise
lcPrintCommand = "NoDialog NoConsole"
Endcase
* Nº de Copia
Select cGlobal
Locate
Replace CopiaNro With Iif( i > 4, laCopias[ 4 ] + Transform( i ),
laCopias[ i ] )
If Used( lcAlias )
Select Alias( lcAlias )
Locate
Endif
TEXT To lcCommand NoShow TextMerge Pretext 15
Report Form "<<lcFrxFileName>>"
To Printer <<lcPrintCommand>>
ENDTEXT
&lcCommand
Endfor
Espero te sirva.
Saludos
Ricardo Aidelman
De: [email protected] [mailto:[email protected]] En nombre de Mario Andrés Ageno
Enviado el: jueves, 18 de junio de 2015 01:02 p.m.
Para: GUFA List Member
Asunto: [GUFA] Original / duplicado
Si Claro Victor, pero es para las facturas son de 1 sola pagina y el tema es
que la reporte lo hago
SELECT ltDetalleVentas
PRINTJOB
_pcopies=3
REPORT FORM ...
END...
de esta forma no hago cortes de hoja ni tengo que duplicar los registros en
la tabla que se imprime
From: Victor Santos <mailto:[email protected]>
Sent: Thursday, June 18, 2015 12:46 PM
To: GUFA List Member <mailto:[email protected]>
Subject: [GUFA] Original / duplicado
Mario, ojo que yo te digo de llamar a la fnc desde la expresión del obj
incrustado en el reporte, enviándole como parámetro a la función la variable
de sistema _PageNo, x lo tanto la fnc se corre en cada pagina de la
factura, me entendés??
From: Mario Andrés Ageno <mailto:[email protected]>
Sent: Wednesday, June 17, 2015 6:32 PM
To: GUFA List Member <mailto:[email protected]>
Subject: [GUFA] Original / duplicado
Gracias por las respuesta
La idea es que me queden las dos imágenes en un (1) PDF guardadas idénticas
una con ORIGINAL y otra DUPLICADO
el _pcopies no me da bola, si hago como dice Rafa o Victor me hace 2
reportes
Saludos
From: Rafael Copquin <mailto:[email protected]>
Sent: Wednesday, June 17, 2015 10:43 AM
To: GUFA List Member <mailto:[email protected]>
Subject: [GUFA] Original / duplicado
for i = 1 to 2
cLeyenda = iif(i = 1,'ORIGINAL','DUPLICADO'
select latabla
go top
report form .........
endfor
Y poné un control en el form para que te muestre la variable cLeyenda
Con cada vuelta cambia la leyenda según el valor de i
Rafael Copquin
El 16/06/2015 a las 22:36, Mario Andrés Ageno escribió:
Hola
algo sencillo pero no lo puedo sacar como hago para poner la leyenda de
Original o Duplicado en la fActuras de Archivos PDF
GRacias
------
Mario Andrés Ageno
Analista de Sistemas
de Computación
Italia 2317 - 3040 San Justo (SF)
Tel.:03498-423066
Personal: 03498-15680413
mail: [email protected] <mailto:[email protected]>
web: www.maasoft.com.ar <http://www.maasoft.com.ar>
skype: [email protected] <mailto:[email protected]>
_____
Se certificó que el correo no contiene virus.
Comprobada por AVG - www.avg.es <http://www.avg.es>
Versión: 10.0.1434 / Base de datos de virus: 4365/9543 - Fecha de la
versión: 18/06/2015
Se certificó que el correo no contiene virus.
Comprobada por AVG - www.avg.es <http://www.avg.es>
Versión: 2015.0.5961 / Base de datos de virus: 4365/10046 - Fecha de la
versión: 18/06/2015
-----
Se certificó que el correo no contiene virus.
Comprobada por AVG - www.avg.es
Versión: 2015.0.5961 / Base de datos de virus: 4365/10052 - Fecha de la
versión: 19/06/2015
