topic-16509

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Pequeño aporte al FORO clase RPREVIEW
Posted: Sat Aug 29, 2009 01:41 PM

Amigos

Con el aporte de varios en el foro, aqui tienen el RPREVIEW con algunos ingredientes, funcional para todas las versiones de FIVEWIN

http://200.58.176.148/paquetes/rpreview.jpg
" alt="" loading="lazy">
Si enlazan este .PRG a su proyecto le da prioridad, si no quieren tener 2 veces e RPREVIEW pueden reemplazar el OBJ de la librería FIVEHx, claro con el permiso de FIVETECH (Antonio, Daniel).
Pueden elegir la impresora antes de imprimir, luego de la impresión al salir coloca la impresora predetermida de nuevo, el factor lo mide en %
http://200.58.176.148/paquetes/rpreview.zip
" rel="noopener">
http://200.58.176.148/paquetes/rpreview.zip

Saludos

Adhemar

Saludos,

Adhemar C.

FranciscoA

Posts: 2170

Joined: Fri Jul 18, 2008 01:24 AM

Re: Pequeño aporte al FORO clase RPREVIEW
Posted: Sat Aug 29, 2009 06:33 PM

Hola Adhemar. Gracias por compartir tus mejoras para hacer más util RPREVIEW.
Te digo que de manera general funciona, pero estoy trabajando con el rpreview que subiste, para averiguar y corregir el siguiente comportamiento:

1- Una vez dentro del preview, si cambias de impresora y decides cancelar la impresión con el botón "X" o con el botón de la puerta, aparentemente funciona bien el retornar a la impresora predeterminada. Pero... sin salir del programa, entras al preview, cambias impresora y cancelas con el botón "X", y en el siguiente reporte, también cambias de impresora y cancelas pero saliendo con el botón de la puerta, no retorna a la impresora predeterminada, mas bien deja como predeterminada a la que cambiaste.

2- Si una vez en el preview cambias de impresora y oprimes el botón de salir totalmente del sistema, también te deja como impresora predeterminada a la que cambiaste. (no retorna a la predeterminada original)

Fué compilado con FWH 901.

Como dije anteriormente, funciona bien de manera general, pero para algunos usuarios "especiales", este comportamiento podría ser molesto y es por eso que voy a tratar de corregirlo y posteriormente lo subo al foro.

Nuevamente gracias por compartir tu mejora, así como lo han hecho otros colegas aquí en el foro.
"Quien no comparte lo que la sociedad le dió la oportunidad de aprender, es un desecho"

Saludos.

Francisco J. Alegría P.

Chinandega, Nicaragua.

Fwxh-MySql-TMySql

FranciscoA

Posts: 2170

Joined: Fri Jul 18, 2008 01:24 AM

Re: Pequeño aporte al FORO clase RPREVIEW
Posted: Sun Aug 30, 2009 12:29 AM

Como expuse anteriormente, al compilar con FWH901, me tiraba varios errores, por lo que tuve que hacerle unos cuantos ajustes, y en pruebas realizadas ha estado funcionando. (utilizando ventanas Childs en el preview).
Aquí los ajustes:

STATIC cPRTDefault:="", lCambioPRT:=.F. //FranciscoA
//----------------------------------------------------------------------------//
CLASS TPreview
.....
.....

METHOD Activate() CLASS TPreview

ACTIVATE WINDOW ::oWnd MAXIMIZED ;
ON RESIZE ::PaintMeta() ;
ON UP ::VScroll( GO_UP ) ;
ON DOWN ::VScroll( GO_DOWN ) ;
ON PAGEUP ::VScroll( GO_UP, GO_PAGE) ;
ON PAGEDOWN ::VScroll( GO_DOWN, GO_PAGE) ;
ON LEFT ::HScroll( GO_LEFT ) ;
ON RIGHT ::HScroll( GO_RIGHT ) ;
ON PAGELEFT ::HScroll( GO_LEFT, GO_PAGE ) ;
ON PAGERIGHT ::HScroll( GO_RIGHT, GO_PAGE ) ;
VALID ( ::oIcon := nil ,;
::End() ,;
::End() ,;
::End() ,;
::End() ,;
::End() ,;
::oWnd := nil ,;
If( IsAppThemed() .and. ! l2007, ::oImageList:End(),),;
::lExit := .T. ,;
PRTDefault() ,; //function de Adhemar
.T. )

Le quité el llamado a PRTDefault() a todos los botones que lo tenían.

METHOD BuildWindow() CLASS TPreview
local oCbx,cCbx:=PrnGetName()

@ 3, 500 COMBOBOX ::oFactor VAR ::nZFactor ;
ITEMS {"100 %","110 %","120 %","130 %","140 %","150 %","160 %","170 %","180 %","190 %","200 %"} ;
OF ::oBar FONT ::oFont PIXEL SIZE 55,180 ON CHANGE oThis:SetFactor( oThis:nZFactor )

//FranciscoA
@3,235 COMBOBOX oCbx VAR cCbx PROMPTS aGetPrinters() OF ::oBar FONT ::oFont PIXEL SIZE 216,25 ON CHANGE CambiaPRT(cCbx)
cPRTDefault := GetProfString( "windows", "device" , "" ) //FranciscoA

METHOD BuildMenu() CLASS TPreview
local oFactor //FranciscoA

METHOD SetFactor( nValue ) CLASS TPreview
Local lInit := .F.,n

if nValue == nil .and. ::oMenu != nil
AEval( ::aFactor, { | v, e | v:nHelpId := e } )
nValue := ::nZFactor
lInit := .T.
endif

//FranciscoA
if nValue == nil
nValue := 1
endif

Saludos

Francisco J. Alegría P.

Chinandega, Nicaragua.

Fwxh-MySql-TMySql

FranciscoA

Posts: 2170

Joined: Fri Jul 18, 2008 01:24 AM

Re: Pequeño aporte al FORO clase RPREVIEW
Posted: Sun Aug 30, 2009 01:48 PM

¡Oh!... me faltó esto:
//----------------------------------------------------------------------------//
Function CambiaPRT(cCbx) //Function agregada por Adhemar

//cPRTDefault := GetProfString( "windows", "device" , "" )
WriteProfString( "windows", "device", cCbx+",winspool,Ne0:" )

lCambioPRT:=.T.

Return nil
Sorry.

Francisco J. Alegría P.

Chinandega, Nicaragua.

Fwxh-MySql-TMySql

anserkk

Posts: 1335

Joined: Fri Jun 13, 2008 11:04 AM

Re: Pequeño aporte al FORO clase RPREVIEW
Posted: Mon Aug 31, 2009 11:03 AM

Dear Adhemar,

Very good work and a nice elegant update to RPreview class

Regards
Anser

QAZWSX2K

Posts: 364

Joined: Tue Oct 25, 2005 07:06 PM

Re: Pequeño aporte al FORO clase RPREVIEW
Posted: Thu Sep 03, 2009 01:58 PM

bueno excelente trabajo de esteban ojeda y Manuel Valedero, gracias por la recopilacion de las mismas

Software especializado para oficinas contables con grandes volumenes de Informacion
Impresion de todos los formularios del Seniat, Dian

alex_patino74@hotmail.com
whatsapp 57+3214777217

QAZWSX2K

Posts: 364

Joined: Tue Oct 25, 2005 07:06 PM

Re: Pequeño aporte al FORO clase RPREVIEW
Posted: Thu Sep 03, 2009 02:10 PM

aunque eso de pedir la impresora despues de generado el reporte me da dudas....se pedia la impresora antes precisamente pq obtenias la resolucion, etc antes de generar el reporte, ahora, si no la pide se hace con la resolucion de la por defecto, si la cambias despues de generado no te tomara en cuenta para nada la nueva resolucion, saldria estilo clase tdosprn, por ejemplo tengo la citizen gxs-190 por defecto y una laser 4000, si lo cambio despues de generado a la laser, saldria el reporte pequeño pq el reporte se genero con la resolucion de la gsx-190, prueben y veran

Software especializado para oficinas contables con grandes volumenes de Informacion
Impresion de todos los formularios del Seniat, Dian

alex_patino74@hotmail.com
whatsapp 57+3214777217

joseluisysturiz

Posts: 2064

Joined: Fri Jan 06, 2006 09:28 PM

Re: Pequeño aporte al FORO clase RPREVIEW
Posted: Sun Oct 18, 2009 06:10 PM

El link esta roto...

Dios no está muerto...

Gracias a mi Dios ante todo!

antolin

Posts: 498

Joined: Thu May 10, 2007 08:30 PM

Re: Pequeño aporte al FORO clase RPREVIEW
Posted: Thu Nov 05, 2009 10:35 AM

Hola acuellar,

El link no me funciona, a lo mejor es porque es antiguo, te importaría volver a colocarlo?

Gracias

Peaaaaaso de foro...

FWH 2007 - xHarbour - BCC55

acuellar

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Re: Pequeño aporte al FORO clase RPREVIEW
Posted: Thu Nov 05, 2009 12:01 PM

Ya coloque el rpreview.zip en el link indicado arriba para su descarga

Saludos

Adhemar

Saludos,

Adhemar C.

antolin

Posts: 498

Joined: Thu May 10, 2007 08:30 PM

Re: Pequeño aporte al FORO clase RPREVIEW
Posted: Sat Nov 21, 2009 05:24 PM

Estimado Acuellar,

No me gustaría pecar de pesado, pero el enlace sigue roto. ¿Te importaría mandarmelo a mi e-mail?

antolin28@gmail.com

Gracias y un saludo

Peaaaaaso de foro...

FWH 2007 - xHarbour - BCC55

acuellar

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Re: Pequeño aporte al FORO clase RPREVIEW
Posted: Mon Nov 23, 2009 01:58 PM

Lo siento, aqui va de nuevo

http://200.58.169.10/paquetes/rpreview.zip

Saludos

Adhemar

Saludos,

Adhemar C.

antolin

Posts: 498

Joined: Thu May 10, 2007 08:30 PM

Re: Pequeño aporte al FORO clase RPREVIEW
Posted: Tue Nov 24, 2009 09:16 AM

Gracias acuellar ya lo cogí

Peaaaaaso de foro...

FWH 2007 - xHarbour - BCC55

jponce

Posts: 199

Joined: Fri Apr 18, 2008 04:21 PM

Re: Pequeño aporte al FORO clase RPREVIEW
Posted: Wed Nov 25, 2009 04:36 PM

Baje la clase
y me costo un poco adaptarla a la version de fwh que tengo que es la 2.7 y logre visualizar los datos en pantalla pero al momento de imprimir no imprime nada.

que puede estar pansando?

Atentamente
Julio Ponce

FiveTech Support Forums

Continue the discussion