ReCargar PREVIEW

ReCargar PREVIEW

Postby Francisco Horta » Thu Oct 06, 2011 5:59 pm

Hola foro,

Tengo el siguiente dilema que no he podido resolver,,,
Genero un cierre diario de mi sistema donde saco alrededor de unos 20 reportes, bueno esos reportes ya los copie a una carpeta que yo genero con nombre especificos y extension .emf, (porque? porque el proceso nomas lo ejecuto 1 vez) esto lo hago por si al usuario se le pasa imprimir algun reporte, ya que siempre lo envio al preview, el caso es que ya tengo los .emf generados y copiados. ahora viene el dilema:

quiero esos archivos .emf volver a cargarlos en un preview por si los quiere reimprimir,
gracias
saludos
pak.o
____________________
Paco
Francisco Horta
 
Posts: 845
Joined: Sun Oct 09, 2005 5:36 pm
Location: la laguna, mexico.

Re: ReCargar PREVIEW

Postby jll-fwh » Thu Oct 06, 2011 7:38 pm

Hola Francisco:

Yo lo que haría es que generara PDF no EMF por varios motivos:

1.- No requiere de una modificación amplia de la clase TPreview: eso conllevaría crear métodos nuevos para cargar/guardar los EMF, en el caso, que estemos ya en un report guardar/restaurar el actual, etc, etc, es decir, bastante trabajo para algo que tiene ya solución usando otro metodo de trabajo.

2.- Si generas PDF no tienes necesidad de usar de nuevo la clase TPreview, se pueden abrir desde cualquier opción del programa simplemente llamando al fichero.

3.- Dicho PDF, lo puedes enviar por e-mail, FTP, etc.

4.- PDf, compatibilidad entre S.O y No requiere de software, programa, función, clase, rutina asociada.

5.- etc

Yo he subido unas modificaciones de la clase TPreview para FWH1109, se puede hacer unas pequeñas modificaciones para que haga copias de cada report en formato PDF en cada report, controlado con una DATA por ejemplo ::lBackup, así cada uno puede elegir si se crean backup (pdf) o no.

http://fivetechsupport.com/forums/viewtopic.php?f=6&t=22422&start=15

Cuando tenga un rato, voy a añadir nuevos métodos en la clase TPreview para poder enviar dicho informe vía e-mail.

Un saludo
JLL
Libreria: FWH/FWH1109 + Harbour 5.8.2 + Borland C++ 5.8.2
Editor de Recursos: PellecC
ADA, OURXDBU
S.O: XP / Win 7 /Win10
Blog: http://javierlloris.blogspot.com.es/
e-mail: javierllorisprogramador@gmail.com
User avatar
jll-fwh
 
Posts: 408
Joined: Fri Jan 29, 2010 8:14 pm
Location: Meliana - Valencia

Re: ReCargar PREVIEW

Postby karinha » Thu Oct 06, 2011 7:41 pm

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7261
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: ReCargar PREVIEW

Postby FranciscoA » Thu Oct 06, 2011 7:50 pm

Hola tocayo, mira si te sirve esto.
viewtopic.php?f=6&t=13291&hilit=oldmetafile#p67841
Saludos
Francisco J. Alegría P.
Chinandega, Nicaragua.

Fwxh-MySql-TMySql
User avatar
FranciscoA
 
Posts: 2111
Joined: Fri Jul 18, 2008 1:24 am
Location: Chinandega, Nicaragua, C.A.

Re: ReCargar PREVIEW

Postby Francisco Horta » Thu Oct 06, 2011 8:05 pm

Gracias por su cooperacion
ya resolvi utilizar el preview, y si me carga los archivos que guarde, asi como dice mi tocayo,
el problema viene cuando cierro el preview me borra mis archivos, jajaja
estoy tratando de modificar printer.prg con una variable para validar si borra o no los archivos, pero me los sigue borrando, algun tiro por donde pueda evitar que me borre los archivos.

efectivamente tocayo, veo que usas rpreview(oprn) y veo que no finalizas oprn:end() o endprint,,, te has fijasdo si te elimina tus archivos emf guardados?

adjunto mi pequeño codigo

aDir := DIRECTORY(oApp:cDirAudi) // cargo mis archivos .emf
oPrn:=PrintBegin("Re-Impresión de Auditoría",.F.,.T.,,.T.)
oPrn:SetPage(1) // Tamaño Carta
oPrn:SetPortrait() // Orientacion Vertical

FOR x := 1 TO LEN(aDir)
AADD( oPrn:aMeta, oApp:cDirAudi + aDir[x,1] ) // agrego los .emf a aMeta
NEXT

RPreview(oPrn)
ENDPRINT
oPrn:End()

gracias a todos
____________________
Paco
Francisco Horta
 
Posts: 845
Joined: Sun Oct 09, 2005 5:36 pm
Location: la laguna, mexico.

Re: ReCargar PREVIEW SOLUCIONADO!!

Postby Francisco Horta » Thu Oct 06, 2011 9:05 pm

bien pues caso solucionado!!!
gracias por su cooperacion
le meti mano a la printer, le agregue una variable lDeleteFile y desde oPrn:lDeleteFile:=.F. decido si elimina los archivos .emf
saludos
pak.o
Francisco Horta wrote:Hola foro,

Tengo el siguiente dilema que no he podido resolver,,,
Genero un cierre diario de mi sistema donde saco alrededor de unos 20 reportes, bueno esos reportes ya los copie a una carpeta que yo genero con nombre especificos y extension .emf, (porque? porque el proceso nomas lo ejecuto 1 vez) esto lo hago por si al usuario se le pasa imprimir algun reporte, ya que siempre lo envio al preview, el caso es que ya tengo los .emf generados y copiados. ahora viene el dilema:

quiero esos archivos .emf volver a cargarlos en un preview por si los quiere reimprimir,
gracias
saludos
pak.o
____________________
Paco
Francisco Horta
 
Posts: 845
Joined: Sun Oct 09, 2005 5:36 pm
Location: la laguna, mexico.

Re: ReCargar PREVIEW

Postby Francisco Horta » Thu Oct 06, 2011 9:15 pm

Hola Antonio,

Como comentario aparte, probablemente a varios de nosotros nos pudiera servir elegir si queremos borrar los archivos .emf generados por los preview, crees que pudiera ser factible agregar esa modificaion por uds. en futuros builds? nos puede ser de utilidad, simple observacion.
Gracias
P@ko
____________________
Paco
Francisco Horta
 
Posts: 845
Joined: Sun Oct 09, 2005 5:36 pm
Location: la laguna, mexico.


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 8 guests