Hola cambie a la version 8.0 de xailer y ahora no funciona la previsualización de impresiones que funcionaba perfectamente en la versión 7 el código que utilizo es el siguiente que lo copie en su momento de la ayuda. Por lo que pude ver no crea el objeto Printer:PreviewControl por que dice que es NIL igual dejo el error al final del post
Si me pudieran ayudar porque ninguna de las previsualizaciones me funciona y eso me crea un caos con los clientes. Gracias
with object Printer:PreviewControl()
:nZoomIndex := 8
:oParent:Show()
end with
***************************** Registro de errores *****************************
Exe: Y:\Nuevo Sistema\Proyectos2021\Nuevo Alexandra\AlexandraSoft.exe
Version: 1.2.2.1
Build: 1
User name: Duilio
Computer name: DUILIO8
Fecha: 13/06/2022
Hora: 14:01:45
Memoria libre: 2097151
Area actual: 12
------------------------- Información del compilador --------------------------
Versión Xailer: Xailer 8.0.0
Compilador: Harbour 3.2.0dev (r1912031042)
Compilador C/C++: MinGW GNU C 7.3 (32-bit)
Plataforma: Windows 10 10.0
----------------------- Información detallada del error -----------------------
Subsistema: BASE
Código de error: 1004
Estado: .F.
Descripción: No existe el m‚todo *** El objeto es NIL o no existe ***
Operación: GETNEWID
Argumentos: [ 1] = Tipo: U Valor: NIL
Fichero:
Código error SO: 0
Pila de llamadas:
GETNEWID (0)
TCONTROL:CREATEHANDLE (275)
TPREVIEWCONTROL:CREATEHANDLE (63)
TWINCONTROL:CREATE (255)
TSCROLLINGWINCONTROL:CREATE (120)
TPREVIEWCONTROL:CREATE (64)
TPRINTER:PREVIEWCONTROL (509)
CIMPRIMIRLISTADOSEINFORMES:IMPRIMIRRESUMENDECUENTADECLIENTE (1032)
CFORMVISUALIZACIONCLIENTE:BTNBMPIMPRIMIRRESUMENCLICK (3354)
TBTNBMP:ONCLICK (0)
TBTNBMP:CLICK (100)
(b)XCONTROL (156)
TBTNBMP:COMMAND (0)
TBEVEL:WMCOMMAND (275)
RUNFORM (0)
TAPPLICATION:RUN (289)
MAIN (22)
In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Errror al migrar a xailer 8.0 en Printer:PreviewControl()
-
- Mensajes: 20
- Registrado: Vie Oct 28, 2011 4:12 pm
- ignacio
- Site Admin
- Mensajes: 9253
- Registrado: Lun Abr 06, 2015 8:00 pm
- Ubicación: Madrid, Spain
- Contactar:
Re: Errror al migrar a xailer 8.0 en Printer:PreviewControl()
Buenos días,
Le importaría probar si se corrige con el fichero adjunto. No tiene más que hacer un drag & drop del fichero en la ventana del gestor de proyectos. Gracias de antemano.
Un cordial saludo
Le importaría probar si se corrige con el fichero adjunto. No tiene más que hacer un drag & drop del fichero en la ventana del gestor de proyectos. Gracias de antemano.
Un cordial saludo
- Adjuntos
-
- Printer.zip
- (4.35 KiB) Descargado 57 veces
-
- Mensajes: 20
- Registrado: Vie Oct 28, 2011 4:12 pm
Re: Errror al migrar a xailer 8.0 en Printer:PreviewControl()
Hola Ignacio muchas gracias por tu respuesta, con drag and drop no me anduvo pero agregue manualmente el archivo al proyecto y si anduvo el problema que el anterior objeto se mostraba de forma modal y este no intente con lo siguiente
IF (Printer:lPreview)
// Printer:Preview()
WITH OBJECT Printer:PreviewControl()
:oPreviewPage:oPrinter:lPreviewModal:=.T.// (PROBE Y NO ANDUBO)
:nZoomIndex := 8
:oParent:Show()
END WITH
ENDIF//(Printer:lPreview)
pero no funciono y si no consigo hacerlo modal quizá lo pueda hacer cambiando la lógica de mi proyecto pero como hago preview en un numero importante de lugares me llevaría un tiempo impensado
IF (Printer:lPreview)
// Printer:Preview()
WITH OBJECT Printer:PreviewControl()
:oPreviewPage:oPrinter:lPreviewModal:=.T.// (PROBE Y NO ANDUBO)
:nZoomIndex := 8
:oParent:Show()
END WITH
ENDIF//(Printer:lPreview)
pero no funciono y si no consigo hacerlo modal quizá lo pueda hacer cambiando la lógica de mi proyecto pero como hago preview en un numero importante de lugares me llevaría un tiempo impensado
- ignacio
- Site Admin
- Mensajes: 9253
- Registrado: Lun Abr 06, 2015 8:00 pm
- Ubicación: Madrid, Spain
- Contactar:
Re: Errror al migrar a xailer 8.0 en Printer:PreviewControl()
Buenas,
No tiene mucho sentido lo que dice. Para que se vea modal hay que usar ShowModal() eso es todo:
No obstante, solución sencilla:
1) Utilice el método Printer:Preview() sin más
2) Sobrecarga TPreviewControl para que nZoomIndex sea 8:
Saludos
No tiene mucho sentido lo que dice. Para que se vea modal hay que usar ShowModal() eso es todo:
Código: Seleccionar todo
WITH OBJECT Printer:PreviewControl()
:oPreviewPage:oPrinter:lPreviewModal:=.T.// (PROBE Y NO ANDUBO)
:nZoomIndex := 8
:oParent:ShowModal() <<<<<<<<<<<<<<<<<<<<<
END WITH
1) Utilice el método Printer:Preview() sin más
2) Sobrecarga TPreviewControl para que nZoomIndex sea 8:
Código: Seleccionar todo
CLASS TPreviewControl FROM XTPreviewControl
PROPERTY nZoomIndex INIT 8
END CLASS
-
- Mensajes: 20
- Registrado: Vie Oct 28, 2011 4:12 pm
Re: Errror al migrar a xailer 8.0 en Printer:PreviewControl()
el sentido que tenia mi pregunta es que tengo alrededor de 35 preview en mi proyecto y con la versión anterior siempre el objeto se comporto como modal sin tener que poner showmodal . lo cambie a showmodal a los 35 y ahora funcionan muchas gracias por su respuesta y su ayuda