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.

Nueva versi

Xailer English public forum
Responder
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9447
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:
Contactar ignacio

Nueva versi

Mensaje por ignacio »

Más información en el siguiente enlace: http://xailer.info/esp/?p=87
------------------------------------------------------------ ------
Further information on this link: http://xailer.info/eng/?p=22
http://www.xailer.com
Ignacio Ortiz de Zúñiga
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Arriba
Xevi
Mensajes: 1706
Registrado: Jue Sep 08, 2005 12:58 pm

Nueva versi

Mensaje por Xevi »

Ignacio,
No funciona el Peview...
***************************** Registro de errores
*****************************
Fecha: 04/12/2007
Hora: 19:32:24
Memoria libre: 285520
Area actual: 5
------------------------- Información del
compilador --------------------------
Versión Xailer: Xailer 1.8.0 Version 1.8
Compilador: xHarbour build 1.0.0 Intl. (SimpLex) PCode Version: 9
Compilador C/C++: Borland C++ 5.8.0
Plataforma: Windows Windows Vista Home Edition 6.00.6000
----------------------- Información detallada del
error -----------------------
Subsistema: BASE
Código de error: 1005
Estado: .F.
Descripción: Class: 'NIL' has no property
Operación: LENABLED
Argumentos: [ 1] = Tipo: U Valor: NIL [ 2] = Tipo: L Valor: .F.
Fichero:
Código error SO: 0
Pila de llamadas:
TPREVIEWCONTROL:CREATE (99)
TPRINTER:PREVIEW (422)
TFRMFACTURES:TOOLBAR1BTNCOPIARCLICK (529)
TFRMFACTURES:BROWSE1KEYDOWN (289)
TDBBROWSE:ONKEYDOWN (0)
TWINCONTROL:WMKEYDOWN (939)
XBROWSE:WMKEYDOWN (2345)
TDBBROWSE:WMKEYDOWN (73)
RUNFORM (0)
TAPPLICATION:RUN (209)
MAIN (24)
------------------ Información detallada de áreas de
trabajo ------------------
Area: 1
Alias: CLIENTSFACTURES
Registro: 742
Filtro:
Relación:
Orden del í­ndice: 1
Clave activa: 1
Area: 2
Alias: FACTU
Registro: 1168
Filtro:
Relación:
Orden del í­ndice: 5
Clave activa: 5
Un Saludo,
Xevi.
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje de
noticias news:475593d1$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Más información en el siguiente enlace: http://xailer.info/esp/?p=87
> ------------------------------------------------------------ ------
> Further information on this link: http://xailer.info/eng/?p=22
>
> http://www.xailer.com
>
>
Arriba
Mahanimann
Mensajes: 216
Registrado: Dom Sep 23, 2007 11:08 pm

Nueva versi

Mensaje por Mahanimann »

> Further information on this link: http://xailer.info/eng/?p=22
I did go there and found this text:
> We have decided to put the activation counter at zero for all Xailer
> clients, therefore, with the new system you may active again some new
> machines with your license, but this does not mean you indeed have more
> activations that the really contracted.
An activation counter? What is this, and does it concern the Enterprise
version?
Regards,
Paal
Arriba
Xevi
Mensajes: 1706
Registrado: Jue Sep 08, 2005 12:58 pm

Nueva versi

Mensaje por Xevi »

En los fuentes de TPreviewControl aparece una función que no encuentro la
documentación...
IsImagePDF()
alguna orientación???
Un Saludo,
Xevi.
"Xevi" <xevicomas@gmail.com> escribió en el mensaje de noticias
news:47559d7b$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Ignacio,
>
> No funciona el Peview...
>
> ***************************** Registro de errores
> *****************************
>
> Fecha: 04/12/2007
> Hora: 19:32:24
> Memoria libre: 285520
> Area actual: 5
>
> ------------------------- Información del
> compilador --------------------------
>
> Versión Xailer: Xailer 1.8.0 Version 1.8
> Compilador: xHarbour build 1.0.0 Intl. (SimpLex) PCode Version: 9
> Compilador C/C++: Borland C++ 5.8.0
> Plataforma: Windows Windows Vista Home Edition 6.00.6000
>
> ----------------------- Información detallada del
> error -----------------------
>
> Subsistema: BASE
> Código de error: 1005
> Estado: .F.
> Descripción: Class: 'NIL' has no property
> Operación: LENABLED
> Argumentos: [ 1] = Tipo: U Valor: NIL [ 2] = Tipo: L Valor: .F.
> Fichero:
> Código error SO: 0
>
> Pila de llamadas:
> TPREVIEWCONTROL:CREATE (99)
> TPRINTER:PREVIEW (422)
> TFRMFACTURES:TOOLBAR1BTNCOPIARCLICK (529)
> TFRMFACTURES:BROWSE1KEYDOWN (289)
> TDBBROWSE:ONKEYDOWN (0)
> TWINCONTROL:WMKEYDOWN (939)
> XBROWSE:WMKEYDOWN (2345)
> TDBBROWSE:WMKEYDOWN (73)
> RUNFORM (0)
> TAPPLICATION:RUN (209)
> MAIN (24)
>
> ------------------ Información detallada de áreas de
> trabajo ------------------
>
> Area: 1
> Alias: CLIENTSFACTURES
> Registro: 742
> Filtro:
> Relación:
> Orden del í­ndice: 1
> Clave activa: 1
>
> Area: 2
> Alias: FACTU
> Registro: 1168
> Filtro:
> Relación:
> Orden del í­ndice: 5
> Clave activa: 5
>
>
> Un Saludo,
> Xevi.
>
>
> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje de
> noticias news:475593d1$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>> Más información en el siguiente enlace: http://xailer.info/esp/?p=87
>> ------------------------------------------------------------ ------
>> Further information on this link: http://xailer.info/eng/?p=22
>>
>> http://www.xailer.com
>>
>>
>
Arriba
Xevi
Mensajes: 1706
Registrado: Jue Sep 08, 2005 12:58 pm

Nueva versi

Mensaje por Xevi »

Error al recompilar...
Compilando PreviewControl.prg...
Enlazando CWin.exe...
Fatal: Could not open D:XeviXailerCWinCWin.exe (error code 5)
Xailer: Error al añadir los recursos a la aplicación (5)
0 Warnings, 2 Errors
Cierro Xailer, lo vuelvo a abrir y recompila perfectamente!!!
Un Saludo,
Xevi.
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje de
noticias news:475593d1$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Más información en el siguiente enlace: http://xailer.info/esp/?p=87
> ------------------------------------------------------------ ------
> Further information on this link: http://xailer.info/eng/?p=22
>
> http://www.xailer.com
>
>
Arriba
Xevi
Mensajes: 1706
Registrado: Jue Sep 08, 2005 12:58 pm

Nueva versi

Mensaje por Xevi »

Ignacio,
De los Samples... BasicReports no lanza el mensaje de error PERO los botones
"Generar PDF" y "Mandar eMail" están DESHABILITADOS.
El Sample PrinterInfo SI lanza el mensaje de error...
***************************** Registro de errores
*****************************
Fecha: 12/04/07
Hora: 20:36:14
Memoria libre: 456676
Area actual: 1
------------------------- Información del
compilador --------------------------
Versión Xailer: Xailer 1.8.0 Version 1.8
Compilador: xHarbour build 1.0.0 Intl. (SimpLex) PCode Version: 9
Compilador C/C++: Borland C++ 5.8.0
Plataforma: Windows Windows Vista Home Edition 6.00.6000
----------------------- Información detallada del
error -----------------------
Subsistema: BASE
Código de error: 1005
Estado: .F.
Descripción: Class: 'NIL' has no property
Operación: LENABLED
Argumentos: [ 1] = Tipo: U Valor: NIL [ 2] = Tipo: L Valor: .F.
Fichero:
Código error SO: 0
Pila de llamadas:
TPREVIEWCONTROL:CREATE (99)
TPRINTER:PREVIEWCONTROL (458)
TFORM1:BUTTON5CLICK (218)
TBUTTON:ONCLICK (0)
TBUTTON:CLICK (99)
(b)XCONTROL:XCONTROL (140)
TBUTTON:COMMAND (0)
TSCROLLINGWINCONTROL:WMCOMMAND (253)
TFORM1:WMCOMMAND (888)
RUNFORM (0)
TAPPLICATION:RUN (209)
MAIN (14)
Un Saludo,
Xevi.
"Xevi" <xevicomas@gmail.com> escribió en el mensaje de noticias
news:47559d7b$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Ignacio,
>
> No funciona el Peview...
>
> ***************************** Registro de errores
> *****************************
>
> Fecha: 04/12/2007
> Hora: 19:32:24
> Memoria libre: 285520
> Area actual: 5
>
> ------------------------- Información del
> compilador --------------------------
>
> Versión Xailer: Xailer 1.8.0 Version 1.8
> Compilador: xHarbour build 1.0.0 Intl. (SimpLex) PCode Version: 9
> Compilador C/C++: Borland C++ 5.8.0
> Plataforma: Windows Windows Vista Home Edition 6.00.6000
>
> ----------------------- Información detallada del
> error -----------------------
>
> Subsistema: BASE
> Código de error: 1005
> Estado: .F.
> Descripción: Class: 'NIL' has no property
> Operación: LENABLED
> Argumentos: [ 1] = Tipo: U Valor: NIL [ 2] = Tipo: L Valor: .F.
> Fichero:
> Código error SO: 0
>
> Pila de llamadas:
> TPREVIEWCONTROL:CREATE (99)
> TPRINTER:PREVIEW (422)
> TFRMFACTURES:TOOLBAR1BTNCOPIARCLICK (529)
> TFRMFACTURES:BROWSE1KEYDOWN (289)
> TDBBROWSE:ONKEYDOWN (0)
> TWINCONTROL:WMKEYDOWN (939)
> XBROWSE:WMKEYDOWN (2345)
> TDBBROWSE:WMKEYDOWN (73)
> RUNFORM (0)
> TAPPLICATION:RUN (209)
> MAIN (24)
>
> ------------------ Información detallada de áreas de
> trabajo ------------------
>
> Area: 1
> Alias: CLIENTSFACTURES
> Registro: 742
> Filtro:
> Relación:
> Orden del í­ndice: 1
> Clave activa: 1
>
> Area: 2
> Alias: FACTU
> Registro: 1168
> Filtro:
> Relación:
> Orden del í­ndice: 5
> Clave activa: 5
>
>
> Un Saludo,
> Xevi.
>
>
> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje de
> noticias news:475593d1$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>> Más información en el siguiente enlace: http://xailer.info/esp/?p=87
>> ------------------------------------------------------------ ------
>> Further information on this link: http://xailer.info/eng/?p=22
>>
>> http://www.xailer.com
>>
>>
>
Arriba
Xevi
Mensajes: 1706
Registrado: Jue Sep 08, 2005 12:58 pm

Nueva versi

Mensaje por Xevi »

De momento, para poder correr mis aplicaciones en Xailer 1.8 he comentado
las lí­neas 92 a 103 de TPreviewControl
/*
IF ::oExportInfo:lImgPDFButton
oBtnPDF := :AddButton( "", "XA_BMP_PDF24",,, LT( XA_MSG_GENPDF ),
{|| ::GenPDF() } )
ENDIF
IF ::oExportInfo:lMailButton
oBtnMail := :AddButton( "", "XA_BMP_MAIL",,, LT( XA_MSG_SENDMAIL ),
{|| ::SendMail() } )
ENDIF
IF !IsImagePDF()
oBtnPDF:lEnabled := .F.
IF oBtnMail != NIL
oBtnMail:lEnabled := .F.
ENDIF
ENDIF
*/
Al menos de esta manera dispongo de la aplicacion corriendo para poder
averiguar si lo demás funciona correctamente.
Un Saludo,
Xevi.
"Xevi" <xevicomas@gmail.com> escribió en el mensaje de noticias
news:4755acf6$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Ignacio,
>
> De los Samples... BasicReports no lanza el mensaje de error PERO los
> botones "Generar PDF" y "Mandar eMail" están DESHABILITADOS.
>
> El Sample PrinterInfo SI lanza el mensaje de error...
>
> ***************************** Registro de errores
> *****************************
>
> Fecha: 12/04/07
> Hora: 20:36:14
> Memoria libre: 456676
> Area actual: 1
>
> ------------------------- Información del
> compilador --------------------------
>
> Versión Xailer: Xailer 1.8.0 Version 1.8
> Compilador: xHarbour build 1.0.0 Intl. (SimpLex) PCode Version: 9
> Compilador C/C++: Borland C++ 5.8.0
> Plataforma: Windows Windows Vista Home Edition 6.00.6000
>
> ----------------------- Información detallada del
> error -----------------------
>
> Subsistema: BASE
> Código de error: 1005
> Estado: .F.
> Descripción: Class: 'NIL' has no property
> Operación: LENABLED
> Argumentos: [ 1] = Tipo: U Valor: NIL [ 2] = Tipo: L Valor: .F.
> Fichero:
> Código error SO: 0
>
> Pila de llamadas:
> TPREVIEWCONTROL:CREATE (99)
> TPRINTER:PREVIEWCONTROL (458)
> TFORM1:BUTTON5CLICK (218)
> TBUTTON:ONCLICK (0)
> TBUTTON:CLICK (99)
> (b)XCONTROL:XCONTROL (140)
> TBUTTON:COMMAND (0)
> TSCROLLINGWINCONTROL:WMCOMMAND (253)
> TFORM1:WMCOMMAND (888)
> RUNFORM (0)
> TAPPLICATION:RUN (209)
> MAIN (14)
>
>
>
> Un Saludo,
> Xevi.
>
>
> "Xevi" <xevicomas@gmail.com> escribió en el mensaje de noticias
> news:47559d7b$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>> Ignacio,
>>
>> No funciona el Peview...
>>
>> ***************************** Registro de errores
>> *****************************
>>
>> Fecha: 04/12/2007
>> Hora: 19:32:24
>> Memoria libre: 285520
>> Area actual: 5
>>
>> ------------------------- Información del
>> compilador --------------------------
>>
>> Versión Xailer: Xailer 1.8.0 Version 1.8
>> Compilador: xHarbour build 1.0.0 Intl. (SimpLex) PCode Version: 9
>> Compilador C/C++: Borland C++ 5.8.0
>> Plataforma: Windows Windows Vista Home Edition 6.00.6000
>>
>> ----------------------- Información detallada del
>> error -----------------------
>>
>> Subsistema: BASE
>> Código de error: 1005
>> Estado: .F.
>> Descripción: Class: 'NIL' has no property
>> Operación: LENABLED
>> Argumentos: [ 1] = Tipo: U Valor: NIL [ 2] = Tipo: L Valor: .F.
>> Fichero:
>> Código error SO: 0
>>
>> Pila de llamadas:
>> TPREVIEWCONTROL:CREATE (99)
>> TPRINTER:PREVIEW (422)
>> TFRMFACTURES:TOOLBAR1BTNCOPIARCLICK (529)
>> TFRMFACTURES:BROWSE1KEYDOWN (289)
>> TDBBROWSE:ONKEYDOWN (0)
>> TWINCONTROL:WMKEYDOWN (939)
>> XBROWSE:WMKEYDOWN (2345)
>> TDBBROWSE:WMKEYDOWN (73)
>> RUNFORM (0)
>> TAPPLICATION:RUN (209)
>> MAIN (24)
>>
>> ------------------ Información detallada de áreas de
>> trabajo ------------------
>>
>> Area: 1
>> Alias: CLIENTSFACTURES
>> Registro: 742
>> Filtro:
>> Relación:
>> Orden del í­ndice: 1
>> Clave activa: 1
>>
>> Area: 2
>> Alias: FACTU
>> Registro: 1168
>> Filtro:
>> Relación:
>> Orden del í­ndice: 5
>> Clave activa: 5
>>
>>
>> Un Saludo,
>> Xevi.
>>
>>
>> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje de
>> noticias news:475593d1$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>>> Más información en el siguiente enlace: http://xailer.info/esp/?p=87
>>> ------------------------------------------------------------ ------
>>> Further information on this link: http://xailer.info/eng/?p=22
>>>
>>> http://www.xailer.com
>>>
>>>
>>
>
Arriba
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9447
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:
Contactar ignacio

Nueva versi

Mensaje por ignacio »

Xevi,
Tienes razón. Hay un error. En breve publicaremos una actualización con
todos los pequeños problemas que surgan. Mientras tanto aquí tienes el
método solucionado. Perdón por las molestias.
Un saludo,
//---------------------------------------------------------- ----------------
METHOD Create( oParent ) CLASS XPreviewControl
LOCAL oBtnPDF, oBtnMail
UPDATE ::oParent TO oParent
Super:Create()
MENU ::oPrnMenu POPUP
MENUITEM LT( XA_MSG_TODO ) ACTION ::Print()
MENUITEM LT( XA_MSG_PAGINA_ACTUAL ) ACTION ::Print( ::nPage )
MENUITEM LT( XA_MSG_SELECCION ) ACTION ::Print( 0 )
SEPARATOR
MENUITEM LT( XA_MSG_PRINT_CHANGE_PRINTER ) ACTION ::Print( -1 )
ENDMENU
::oRebar := TRebar():Create( Self )
WITH OBJECT ::oToolBar := TToolBar():New( ::oRebar )
:lList := .T.
:lAutoSize := .T.
WITH OBJECT :oImageList
:nWidth := 24
:nHeight := 24
END WITH
:Create()
:AddSeparator()
:AddButton( "", "XA_BMP_FIRST",,,LT( XA_MSG_PRIMERA_PAGINA ), {||
::nPage := 1 } )
:AddButton( "", "XA_BMP_PREV",,,LT( XA_MSG_ANTERIOR_PAGINA ), {||
::nPage -- } )
:AddButton( "", "XA_BMP_NEXT",,,LT( XA_MSG_SIGUIENTE_PAGINA ), {||
::nPage ++ } )
:AddButton( "", "XA_BMP_LAST",,,LT( XA_MSG_ULTIMA_PAGINA ), {||
::nPage := Len( ::oPreviewDC:aEmf ) } )
IF ::oExportInfo:lImgPDFButton .OR. ::oExportInfo:lMailButton
:AddSeparator()
ENDIF
IF ::oExportInfo:lImgPDFButton
oBtnPDF := :AddButton( "", "XA_BMP_PDF24",,, LT( XA_MSG_GENPDF ),
{|| ::GenPDF() } )
IF !IsImagePDF()
oBtnPDF:lEnabled := .F.
ENDIF
ENDIF
IF ::oExportInfo:lMailButton
oBtnMail := :AddButton( "", "XA_BMP_MAIL",,, LT( XA_MSG_SENDMAIL ),
{|| ::SendMail() } )
IF !IsImagePDF()
oBtnMail:lEnabled := .F.
ENDIF
ENDIF
:AddSeparator()
:AddButton( "", "XA_BMP_PRINTER",,, LT( XA_MSG_IMPRIMIR ), {||
::Print() }, ::oPrnMenu )
:AddButton( "", "XA_BMP_EXIT",,, LT( XA_MSG_SALIR ), {||
::oParent:Close() } )
END
WITH OBJECT ::oRebarBand := TRebarBand():New( ::oRebar )
:oControl := ::oToolBar
:Create()
END
WITH OBJECT ::oBevel := TBevel():New( ::oRebar )
:SetBounds( 0, 0, 130, 20 )
:nBorderStyle := bvNONE
:lTransparent := .T.
:Create()
END
WITH OBJECT ::oPreviewPage := TPreviewPage():New( Self,
::oPreviewDC:oPrinter )
:nAlign := alCLIENT
:Create()
:oEmf := ::oPreviewDC:aEmf[ ::nPage ]
:SetFocus()
:OnFirstPage := {|| ::nPage := 1 }
:OnPrevPage := {|| ::nPage-- }
:OnNextPage := {|| ::nPage++ }
:OnLastPage := {|| ::nPage := Len( ::oPreviewDC:aEmf ) }
:OnZoomIn := "ZoomIn"
:OnZoomOut := "ZoomOut"
END
WITH OBJECT ::oCombo := TComboBox():New( ::oBevel )
:SetBounds( 0, 0, 125, 300 )
:nStyle := CBS_DROPDOWNLIST
:Create()
:SetItems( { "500", "200", "150", "100", "50", "25", "10",;
LT( XA_MSG_ANCHO_DE_PAGINA ), LT(
XA_MSG_LARGO_DE_PAGINA ),;
LT( XA_MSG_TODA_LA_PAGINA ) } )
:SelectString( LTrim( Str( ::oPreviewPage:nZoomFactor ) ) )
:OnChange := "SetZoom"
END
::oBevel:nHeight := ::oCombo:nHeight
WITH OBJECT TRebarBand():New( ::oRebar )
:cText := LT( XA_MSG_ZOOM ) + ":"
:oControl := ::oBevel
:Create()
END
::UpdateBar()
RETURN Self
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Xevi" <xevicomas@gmail.com> escribió en el mensaje
news:47559d7b$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Ignacio,
>
> No funciona el Peview...
>
> ***************************** Registro de errores
> *****************************
>
> Fecha: 04/12/2007
> Hora: 19:32:24
> Memoria libre: 285520
> Area actual: 5
>
> ------------------------- Información del
> compilador --------------------------
>
> Versión Xailer: Xailer 1.8.0 Version 1.8
> Compilador: xHarbour build 1.0.0 Intl. (SimpLex) PCode Version: 9
> Compilador C/C++: Borland C++ 5.8.0
> Plataforma: Windows Windows Vista Home Edition 6.00.6000
>
> ----------------------- Información detallada del
> error -----------------------
>
> Subsistema: BASE
> Código de error: 1005
> Estado: .F.
> Descripción: Class: 'NIL' has no property
> Operación: LENABLED
> Argumentos: [ 1] = Tipo: U Valor: NIL [ 2] = Tipo: L Valor: .F.
> Fichero:
> Código error SO: 0
>
> Pila de llamadas:
> TPREVIEWCONTROL:CREATE (99)
> TPRINTER:PREVIEW (422)
> TFRMFACTURES:TOOLBAR1BTNCOPIARCLICK (529)
> TFRMFACTURES:BROWSE1KEYDOWN (289)
> TDBBROWSE:ONKEYDOWN (0)
> TWINCONTROL:WMKEYDOWN (939)
> XBROWSE:WMKEYDOWN (2345)
> TDBBROWSE:WMKEYDOWN (73)
> RUNFORM (0)
> TAPPLICATION:RUN (209)
> MAIN (24)
>
> ------------------ Información detallada de áreas de
> trabajo ------------------
>
> Area: 1
> Alias: CLIENTSFACTURES
> Registro: 742
> Filtro:
> Relación:
> Orden del índice: 1
> Clave activa: 1
>
> Area: 2
> Alias: FACTU
> Registro: 1168
> Filtro:
> Relación:
> Orden del índice: 5
> Clave activa: 5
>
>
> Un Saludo,
> Xevi.
>
>
> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje de
> noticias news:475593d1$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>> Más información en el siguiente enlace: http://xailer.info/esp/?p=87
>> ------------------------------------------------------------ ------
>> Further information on this link: http://xailer.info/eng/?p=22
>>
>> http://www.xailer.com
>>
>>
>
Ignacio Ortiz de Zúñiga
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Arriba
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9447
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:
Contactar ignacio

Nueva versi

Mensaje por ignacio »

Paal,
Is correct. Please reread Xailer license.
Regards,
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Mahanimann" <paaldalen@gmail.com> escribió en el mensaje
news:4755a29a$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>> Further information on this link: http://xailer.info/eng/?p=22
>
> I did go there and found this text:
>
>> We have decided to put the activation counter at zero for all Xailer
>> clients, therefore, with the new system you may active again some new
>> machines with your license, but this does not mean you indeed have more
>> activations that the really contracted.
>
> An activation counter? What is this, and does it concern the Enterprise
> version?
>
> Regards,
> Paal
>
Ignacio Ortiz de Zúñiga
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Arriba
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9447
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:
Contactar ignacio

Nueva versi

Mensaje por ignacio »

Xevi,
Esa función es interna.
Un saludo
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Xevi" <xevicomas@gmail.com> escribió en el mensaje
news:[email=4755a4a5@ozsrv2.ozlan.local...]4755a4a5@ozsrv2.ozlan.local...[/email]
> En los fuentes de TPreviewControl aparece una función que no encuentro la
> documentación...
> IsImagePDF()
>
> alguna orientación???
>
> Un Saludo,
> Xevi.
>
> "Xevi" <xevicomas@gmail.com> escribió en el mensaje de noticias
> news:47559d7b$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>> Ignacio,
>>
>> No funciona el Peview...
>>
>> ***************************** Registro de errores
>> *****************************
>>
>> Fecha: 04/12/2007
>> Hora: 19:32:24
>> Memoria libre: 285520
>> Area actual: 5
>>
>> ------------------------- Información del
>> compilador --------------------------
>>
>> Versión Xailer: Xailer 1.8.0 Version 1.8
>> Compilador: xHarbour build 1.0.0 Intl. (SimpLex) PCode Version: 9
>> Compilador C/C++: Borland C++ 5.8.0
>> Plataforma: Windows Windows Vista Home Edition 6.00.6000
>>
>> ----------------------- Información detallada del
>> error -----------------------
>>
>> Subsistema: BASE
>> Código de error: 1005
>> Estado: .F.
>> Descripción: Class: 'NIL' has no property
>> Operación: LENABLED
>> Argumentos: [ 1] = Tipo: U Valor: NIL [ 2] = Tipo: L Valor: .F.
>> Fichero:
>> Código error SO: 0
>>
>> Pila de llamadas:
>> TPREVIEWCONTROL:CREATE (99)
>> TPRINTER:PREVIEW (422)
>> TFRMFACTURES:TOOLBAR1BTNCOPIARCLICK (529)
>> TFRMFACTURES:BROWSE1KEYDOWN (289)
>> TDBBROWSE:ONKEYDOWN (0)
>> TWINCONTROL:WMKEYDOWN (939)
>> XBROWSE:WMKEYDOWN (2345)
>> TDBBROWSE:WMKEYDOWN (73)
>> RUNFORM (0)
>> TAPPLICATION:RUN (209)
>> MAIN (24)
>>
>> ------------------ Información detallada de áreas de
>> trabajo ------------------
>>
>> Area: 1
>> Alias: CLIENTSFACTURES
>> Registro: 742
>> Filtro:
>> Relación:
>> Orden del índice: 1
>> Clave activa: 1
>>
>> Area: 2
>> Alias: FACTU
>> Registro: 1168
>> Filtro:
>> Relación:
>> Orden del índice: 5
>> Clave activa: 5
>>
>>
>> Un Saludo,
>> Xevi.
>>
>>
>> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje de
>> noticias news:475593d1$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>>> Más información en el siguiente enlace: http://xailer.info/esp/?p=87
>>> ------------------------------------------------------------ ------
>>> Further information on this link: http://xailer.info/eng/?p=22
>>>
>>> http://www.xailer.com
>>>
>>>
>>
>
Ignacio Ortiz de Zúñiga
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Arriba
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9447
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:
Contactar ignacio

Nueva versi

Mensaje por ignacio »

Incluyo mejor el módulo completo por si alguno lo prefiere.
Un saludo
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje
news:47565dc2$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Xevi,
>
> Tienes razón. Hay un error. En breve publicaremos una actualización con
> todos los pequeños problemas que surgan. Mientras tanto aquí tienes el
> método solucionado. Perdón por las molestias.
>
> Un saludo,
>
> //---------------------------------------------------------- ----------------
>
> METHOD Create( oParent ) CLASS XPreviewControl
>
> LOCAL oBtnPDF, oBtnMail
>
> UPDATE ::oParent TO oParent
>
> Super:Create()
>
> MENU ::oPrnMenu POPUP
> MENUITEM LT( XA_MSG_TODO ) ACTION ::Print()
> MENUITEM LT( XA_MSG_PAGINA_ACTUAL ) ACTION ::Print( ::nPage )
> MENUITEM LT( XA_MSG_SELECCION ) ACTION ::Print( 0 )
> SEPARATOR
> MENUITEM LT( XA_MSG_PRINT_CHANGE_PRINTER ) ACTION ::Print( -1 )
> ENDMENU
>
> ::oRebar := TRebar():Create( Self )
>
> WITH OBJECT ::oToolBar := TToolBar():New( ::oRebar )
> :lList := .T.
> :lAutoSize := .T.
> WITH OBJECT :oImageList
> :nWidth := 24
> :nHeight := 24
> END WITH
> :Create()
> :AddSeparator()
> :AddButton( "", "XA_BMP_FIRST",,,LT( XA_MSG_PRIMERA_PAGINA ), {||
> ::nPage := 1 } )
> :AddButton( "", "XA_BMP_PREV",,,LT( XA_MSG_ANTERIOR_PAGINA ), {||
> ::nPage -- } )
> :AddButton( "", "XA_BMP_NEXT",,,LT( XA_MSG_SIGUIENTE_PAGINA ), {||
> ::nPage ++ } )
> :AddButton( "", "XA_BMP_LAST",,,LT( XA_MSG_ULTIMA_PAGINA ), {||
> ::nPage := Len( ::oPreviewDC:aEmf ) } )
> IF ::oExportInfo:lImgPDFButton .OR. ::oExportInfo:lMailButton
> :AddSeparator()
> ENDIF
> IF ::oExportInfo:lImgPDFButton
> oBtnPDF := :AddButton( "", "XA_BMP_PDF24",,, LT( XA_MSG_GENPDF ),
> {|| ::GenPDF() } )
> IF !IsImagePDF()
> oBtnPDF:lEnabled := .F.
> ENDIF
> ENDIF
> IF ::oExportInfo:lMailButton
> oBtnMail := :AddButton( "", "XA_BMP_MAIL",,, LT(
> XA_MSG_SENDMAIL ),
> {|| ::SendMail() } )
> IF !IsImagePDF()
> oBtnMail:lEnabled := .F.
> ENDIF
> ENDIF
> :AddSeparator()
> :AddButton( "", "XA_BMP_PRINTER",,, LT( XA_MSG_IMPRIMIR ), {||
> ::Print() }, ::oPrnMenu )
> :AddButton( "", "XA_BMP_EXIT",,, LT( XA_MSG_SALIR ), {||
> ::oParent:Close() } )
> END
>
> WITH OBJECT ::oRebarBand := TRebarBand():New( ::oRebar )
> :oControl := ::oToolBar
> :Create()
> END
>
> WITH OBJECT ::oBevel := TBevel():New( ::oRebar )
> :SetBounds( 0, 0, 130, 20 )
> :nBorderStyle := bvNONE
> :lTransparent := .T.
> :Create()
> END
>
> WITH OBJECT ::oPreviewPage := TPreviewPage():New( Self,
> ::oPreviewDC:oPrinter )
> :nAlign := alCLIENT
> :Create()
> :oEmf := ::oPreviewDC:aEmf[ ::nPage ]
> :SetFocus()
> :OnFirstPage := {|| ::nPage := 1 }
> :OnPrevPage := {|| ::nPage-- }
> :OnNextPage := {|| ::nPage++ }
> :OnLastPage := {|| ::nPage := Len( ::oPreviewDC:aEmf ) }
> :OnZoomIn := "ZoomIn"
> :OnZoomOut := "ZoomOut"
> END
>
> WITH OBJECT ::oCombo := TComboBox():New( ::oBevel )
> :SetBounds( 0, 0, 125, 300 )
> :nStyle := CBS_DROPDOWNLIST
> :Create()
> :SetItems( { "500", "200", "150", "100", "50", "25", "10",;
> LT( XA_MSG_ANCHO_DE_PAGINA ), LT(
> XA_MSG_LARGO_DE_PAGINA ),;
> LT( XA_MSG_TODA_LA_PAGINA ) } )
> :SelectString( LTrim( Str( ::oPreviewPage:nZoomFactor ) ) )
> :OnChange := "SetZoom"
> END
> ::oBevel:nHeight := ::oCombo:nHeight
>
> WITH OBJECT TRebarBand():New( ::oRebar )
> :cText := LT( XA_MSG_ZOOM ) + ":"
> :oControl := ::oBevel
> :Create()
> END
>
> ::UpdateBar()
>
> RETURN Self
>
>
> --
> Ignacio Ortiz de Zúñiga
> http://www.xailer.com
>
>
> "Xevi" <xevicomas@gmail.com> escribió en el mensaje
> news:47559d7b$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>> Ignacio,
>>
>> No funciona el Peview...
>>
>> ***************************** Registro de errores
>> *****************************
>>
>> Fecha: 04/12/2007
>> Hora: 19:32:24
>> Memoria libre: 285520
>> Area actual: 5
>>
>> ------------------------- Información del
>> compilador --------------------------
>>
>> Versión Xailer: Xailer 1.8.0 Version 1.8
>> Compilador: xHarbour build 1.0.0 Intl. (SimpLex) PCode Version: 9
>> Compilador C/C++: Borland C++ 5.8.0
>> Plataforma: Windows Windows Vista Home Edition 6.00.6000
>>
>> ----------------------- Información detallada del
>> error -----------------------
>>
>> Subsistema: BASE
>> Código de error: 1005
>> Estado: .F.
>> Descripción: Class: 'NIL' has no property
>> Operación: LENABLED
>> Argumentos: [ 1] = Tipo: U Valor: NIL [ 2] = Tipo: L Valor: .F.
>> Fichero:
>> Código error SO: 0
>>
>> Pila de llamadas:
>> TPREVIEWCONTROL:CREATE (99)
>> TPRINTER:PREVIEW (422)
>> TFRMFACTURES:TOOLBAR1BTNCOPIARCLICK (529)
>> TFRMFACTURES:BROWSE1KEYDOWN (289)
>> TDBBROWSE:ONKEYDOWN (0)
>> TWINCONTROL:WMKEYDOWN (939)
>> XBROWSE:WMKEYDOWN (2345)
>> TDBBROWSE:WMKEYDOWN (73)
>> RUNFORM (0)
>> TAPPLICATION:RUN (209)
>> MAIN (24)
>>
>> ------------------ Información detallada de áreas de
>> trabajo ------------------
>>
>> Area: 1
>> Alias: CLIENTSFACTURES
>> Registro: 742
>> Filtro:
>> Relación:
>> Orden del índice: 1
>> Clave activa: 1
>>
>> Area: 2
>> Alias: FACTU
>> Registro: 1168
>> Filtro:
>> Relación:
>> Orden del índice: 5
>> Clave activa: 5
>>
>>
>> Un Saludo,
>> Xevi.
>>
>>
>> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje de
>> noticias news:475593d1$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>>> Más información en el siguiente enlace: http://xailer.info/esp/?p=87
>>> ------------------------------------------------------------ ------
>>> Further information on this link: http://xailer.info/eng/?p=22
>>>
>>> http://www.xailer.com
>>>
>>>
>>
>
>


Attached files PreviewControl.rar (3.7 KB)Â
Ignacio Ortiz de Zúñiga
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Arriba
ssi-quita-esto
Mensajes: 109
Registrado: Mié Dic 05, 2007 9:51 am

Nueva versi

Mensaje por ssi-quita-esto »

Ignacio:
En el ejemplo Report los iconos generar Pdf y Enviar aparecen en Gris, (No
se ve la imagen).
Al picar en ellos no hacen nada.
¿Es normal?
Paco V
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje
news:47565ea0$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Incluyo mejor el módulo completo por si alguno lo prefiere.
>
> Un saludo
>
> --
> Ignacio Ortiz de Zúñiga
> http://www.xailer.com
>
>
> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje
> news:47565dc2$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>> Xevi,
>>
>> Tienes razón. Hay un error. En breve publicaremos una actualización con
>> todos los pequeños problemas que surgan. Mientras tanto aquí tienes el
>> método solucionado. Perdón por las molestias.
>>
>> Un saludo,
>>
>> //---------------------------------------------------------- ----------------
>>
>> METHOD Create( oParent ) CLASS XPreviewControl
>>
>> LOCAL oBtnPDF, oBtnMail
>>
>> UPDATE ::oParent TO oParent
>>
>> Super:Create()
>>
>> MENU ::oPrnMenu POPUP
>> MENUITEM LT( XA_MSG_TODO ) ACTION ::Print()
>> MENUITEM LT( XA_MSG_PAGINA_ACTUAL ) ACTION ::Print( ::nPage )
>> MENUITEM LT( XA_MSG_SELECCION ) ACTION ::Print( 0 )
>> SEPARATOR
>> MENUITEM LT( XA_MSG_PRINT_CHANGE_PRINTER ) ACTION ::Print( -1 )
>> ENDMENU
>>
>> ::oRebar := TRebar():Create( Self )
>>
>> WITH OBJECT ::oToolBar := TToolBar():New( ::oRebar )
>> :lList := .T.
>> :lAutoSize := .T.
>> WITH OBJECT :oImageList
>> :nWidth := 24
>> :nHeight := 24
>> END WITH
>> :Create()
>> :AddSeparator()
>> :AddButton( "", "XA_BMP_FIRST",,,LT( XA_MSG_PRIMERA_PAGINA ), {||
>> ::nPage := 1 } )
>> :AddButton( "", "XA_BMP_PREV",,,LT( XA_MSG_ANTERIOR_PAGINA ), {||
>> ::nPage -- } )
>> :AddButton( "", "XA_BMP_NEXT",,,LT( XA_MSG_SIGUIENTE_PAGINA ), {||
>> ::nPage ++ } )
>> :AddButton( "", "XA_BMP_LAST",,,LT( XA_MSG_ULTIMA_PAGINA ), {||
>> ::nPage := Len( ::oPreviewDC:aEmf ) } )
>> IF ::oExportInfo:lImgPDFButton .OR. ::oExportInfo:lMailButton
>> :AddSeparator()
>> ENDIF
>> IF ::oExportInfo:lImgPDFButton
>> oBtnPDF := :AddButton( "", "XA_BMP_PDF24",,, LT( XA_MSG_GENPDF ),
>> {|| ::GenPDF() } )
>> IF !IsImagePDF()
>> oBtnPDF:lEnabled := .F.
>> ENDIF
>> ENDIF
>> IF ::oExportInfo:lMailButton
>> oBtnMail := :AddButton( "", "XA_BMP_MAIL",,, LT(
>> XA_MSG_SENDMAIL ),
>> {|| ::SendMail() } )
>> IF !IsImagePDF()
>> oBtnMail:lEnabled := .F.
>> ENDIF
>> ENDIF
>> :AddSeparator()
>> :AddButton( "", "XA_BMP_PRINTER",,, LT( XA_MSG_IMPRIMIR ), {||
>> ::Print() }, ::oPrnMenu )
>> :AddButton( "", "XA_BMP_EXIT",,, LT( XA_MSG_SALIR ), {||
>> ::oParent:Close() } )
>> END
>>
>> WITH OBJECT ::oRebarBand := TRebarBand():New( ::oRebar )
>> :oControl := ::oToolBar
>> :Create()
>> END
>>
>> WITH OBJECT ::oBevel := TBevel():New( ::oRebar )
>> :SetBounds( 0, 0, 130, 20 )
>> :nBorderStyle := bvNONE
>> :lTransparent := .T.
>> :Create()
>> END
>>
>> WITH OBJECT ::oPreviewPage := TPreviewPage():New( Self,
>> ::oPreviewDC:oPrinter )
>> :nAlign := alCLIENT
>> :Create()
>> :oEmf := ::oPreviewDC:aEmf[ ::nPage ]
>> :SetFocus()
>> :OnFirstPage := {|| ::nPage := 1 }
>> :OnPrevPage := {|| ::nPage-- }
>> :OnNextPage := {|| ::nPage++ }
>> :OnLastPage := {|| ::nPage := Len( ::oPreviewDC:aEmf ) }
>> :OnZoomIn := "ZoomIn"
>> :OnZoomOut := "ZoomOut"
>> END
>>
>> WITH OBJECT ::oCombo := TComboBox():New( ::oBevel )
>> :SetBounds( 0, 0, 125, 300 )
>> :nStyle := CBS_DROPDOWNLIST
>> :Create()
>> :SetItems( { "500", "200", "150", "100", "50", "25", "10",;
>> LT( XA_MSG_ANCHO_DE_PAGINA ), LT(
>> XA_MSG_LARGO_DE_PAGINA ),;
>> LT( XA_MSG_TODA_LA_PAGINA ) } )
>> :SelectString( LTrim( Str( ::oPreviewPage:nZoomFactor ) ) )
>> :OnChange := "SetZoom"
>> END
>> ::oBevel:nHeight := ::oCombo:nHeight
>>
>> WITH OBJECT TRebarBand():New( ::oRebar )
>> :cText := LT( XA_MSG_ZOOM ) + ":"
>> :oControl := ::oBevel
>> :Create()
>> END
>>
>> ::UpdateBar()
>>
>> RETURN Self
>>
>>
>> --
>> Ignacio Ortiz de Zúñiga
>> http://www.xailer.com
>>
>>
>> "Xevi" <xevicomas@gmail.com> escribió en el mensaje
>> news:47559d7b$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>>> Ignacio,
>>>
>>> No funciona el Peview...
>>>
>>> ***************************** Registro de errores
>>> *****************************
>>>
>>> Fecha: 04/12/2007
>>> Hora: 19:32:24
>>> Memoria libre: 285520
>>> Area actual: 5
>>>
>>> ------------------------- Información del
>>> compilador --------------------------
>>>
>>> Versión Xailer: Xailer 1.8.0 Version 1.8
>>> Compilador: xHarbour build 1.0.0 Intl. (SimpLex) PCode Version: 9
>>> Compilador C/C++: Borland C++ 5.8.0
>>> Plataforma: Windows Windows Vista Home Edition 6.00.6000
>>>
>>> ----------------------- Información detallada del
>>> error -----------------------
>>>
>>> Subsistema: BASE
>>> Código de error: 1005
>>> Estado: .F.
>>> Descripción: Class: 'NIL' has no property
>>> Operación: LENABLED
>>> Argumentos: [ 1] = Tipo: U Valor: NIL [ 2] = Tipo: L Valor: .F.
>>> Fichero:
>>> Código error SO: 0
>>>
>>> Pila de llamadas:
>>> TPREVIEWCONTROL:CREATE (99)
>>> TPRINTER:PREVIEW (422)
>>> TFRMFACTURES:TOOLBAR1BTNCOPIARCLICK (529)
>>> TFRMFACTURES:BROWSE1KEYDOWN (289)
>>> TDBBROWSE:ONKEYDOWN (0)
>>> TWINCONTROL:WMKEYDOWN (939)
>>> XBROWSE:WMKEYDOWN (2345)
>>> TDBBROWSE:WMKEYDOWN (73)
>>> RUNFORM (0)
>>> TAPPLICATION:RUN (209)
>>> MAIN (24)
>>>
>>> ------------------ Información detallada de áreas de
>>> trabajo ------------------
>>>
>>> Area: 1
>>> Alias: CLIENTSFACTURES
>>> Registro: 742
>>> Filtro:
>>> Relación:
>>> Orden del índice: 1
>>> Clave activa: 1
>>>
>>> Area: 2
>>> Alias: FACTU
>>> Registro: 1168
>>> Filtro:
>>> Relación:
>>> Orden del índice: 5
>>> Clave activa: 5
>>>
>>>
>>> Un Saludo,
>>> Xevi.
>>>
>>>
>>> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje de
>>> noticias news:475593d1$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>>>> Más información en el siguiente enlace: http://xailer.info/esp/?p=87
>>>> ------------------------------------------------------------ ------
>>>> Further information on this link: http://xailer.info/eng/?p=22
>>>>
>>>> http://www.xailer.com
>>>>
>>>>
>>>
>>
>>
>
>
>
Arriba
ssi-quita-esto
Mensajes: 109
Registrado: Mié Dic 05, 2007 9:51 am

Nueva versi

Mensaje por ssi-quita-esto »

Observad, que tambien lanza el debuger.
Paco V
"Paco V." <ssi-quita-esto@ono.com> escribió en el mensaje
news:475666a0$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Ignacio:
> En el ejemplo Report los iconos generar Pdf y Enviar aparecen en Gris, (No
> se ve la imagen).
> Al picar en ellos no hacen nada.
>
> ¿Es normal?
>
> Paco V
> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje
> news:47565ea0$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>> Incluyo mejor el módulo completo por si alguno lo prefiere.
>>
>> Un saludo
>>
>> --
>> Ignacio Ortiz de Zúñiga
>> http://www.xailer.com
>>
>>
>> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje
>> news:47565dc2$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>>> Xevi,
>>>
>>> Tienes razón. Hay un error. En breve publicaremos una actualización con
>>> todos los pequeños problemas que surgan. Mientras tanto aquí tienes el
>>> método solucionado. Perdón por las molestias.
>>>
>>> Un saludo,
>>>
>>> //---------------------------------------------------------- ----------------
>>>
>>> METHOD Create( oParent ) CLASS XPreviewControl
>>>
>>> LOCAL oBtnPDF, oBtnMail
>>>
>>> UPDATE ::oParent TO oParent
>>>
>>> Super:Create()
>>>
>>> MENU ::oPrnMenu POPUP
>>> MENUITEM LT( XA_MSG_TODO ) ACTION ::Print()
>>> MENUITEM LT( XA_MSG_PAGINA_ACTUAL ) ACTION ::Print( ::nPage )
>>> MENUITEM LT( XA_MSG_SELECCION ) ACTION ::Print( 0 )
>>> SEPARATOR
>>> MENUITEM LT( XA_MSG_PRINT_CHANGE_PRINTER ) ACTION ::Print( -1 )
>>> ENDMENU
>>>
>>> ::oRebar := TRebar():Create( Self )
>>>
>>> WITH OBJECT ::oToolBar := TToolBar():New( ::oRebar )
>>> :lList := .T.
>>> :lAutoSize := .T.
>>> WITH OBJECT :oImageList
>>> :nWidth := 24
>>> :nHeight := 24
>>> END WITH
>>> :Create()
>>> :AddSeparator()
>>> :AddButton( "", "XA_BMP_FIRST",,,LT( XA_MSG_PRIMERA_PAGINA ), {||
>>> ::nPage := 1 } )
>>> :AddButton( "", "XA_BMP_PREV",,,LT( XA_MSG_ANTERIOR_PAGINA ), {||
>>> ::nPage -- } )
>>> :AddButton( "", "XA_BMP_NEXT",,,LT( XA_MSG_SIGUIENTE_PAGINA ), {||
>>> ::nPage ++ } )
>>> :AddButton( "", "XA_BMP_LAST",,,LT( XA_MSG_ULTIMA_PAGINA ), {||
>>> ::nPage := Len( ::oPreviewDC:aEmf ) } )
>>> IF ::oExportInfo:lImgPDFButton .OR. ::oExportInfo:lMailButton
>>> :AddSeparator()
>>> ENDIF
>>> IF ::oExportInfo:lImgPDFButton
>>> oBtnPDF := :AddButton( "", "XA_BMP_PDF24",,, LT(
>>> XA_MSG_GENPDF ),
>>> {|| ::GenPDF() } )
>>> IF !IsImagePDF()
>>> oBtnPDF:lEnabled := .F.
>>> ENDIF
>>> ENDIF
>>> IF ::oExportInfo:lMailButton
>>> oBtnMail := :AddButton( "", "XA_BMP_MAIL",,, LT(
>>> XA_MSG_SENDMAIL ),
>>> {|| ::SendMail() } )
>>> IF !IsImagePDF()
>>> oBtnMail:lEnabled := .F.
>>> ENDIF
>>> ENDIF
>>> :AddSeparator()
>>> :AddButton( "", "XA_BMP_PRINTER",,, LT( XA_MSG_IMPRIMIR ), {||
>>> ::Print() }, ::oPrnMenu )
>>> :AddButton( "", "XA_BMP_EXIT",,, LT( XA_MSG_SALIR ), {||
>>> ::oParent:Close() } )
>>> END
>>>
>>> WITH OBJECT ::oRebarBand := TRebarBand():New( ::oRebar )
>>> :oControl := ::oToolBar
>>> :Create()
>>> END
>>>
>>> WITH OBJECT ::oBevel := TBevel():New( ::oRebar )
>>> :SetBounds( 0, 0, 130, 20 )
>>> :nBorderStyle := bvNONE
>>> :lTransparent := .T.
>>> :Create()
>>> END
>>>
>>> WITH OBJECT ::oPreviewPage := TPreviewPage():New( Self,
>>> ::oPreviewDC:oPrinter )
>>> :nAlign := alCLIENT
>>> :Create()
>>> :oEmf := ::oPreviewDC:aEmf[ ::nPage ]
>>> :SetFocus()
>>> :OnFirstPage := {|| ::nPage := 1 }
>>> :OnPrevPage := {|| ::nPage-- }
>>> :OnNextPage := {|| ::nPage++ }
>>> :OnLastPage := {|| ::nPage := Len( ::oPreviewDC:aEmf ) }
>>> :OnZoomIn := "ZoomIn"
>>> :OnZoomOut := "ZoomOut"
>>> END
>>>
>>> WITH OBJECT ::oCombo := TComboBox():New( ::oBevel )
>>> :SetBounds( 0, 0, 125, 300 )
>>> :nStyle := CBS_DROPDOWNLIST
>>> :Create()
>>> :SetItems( { "500", "200", "150", "100", "50", "25", "10",;
>>> LT( XA_MSG_ANCHO_DE_PAGINA ), LT(
>>> XA_MSG_LARGO_DE_PAGINA ),;
>>> LT( XA_MSG_TODA_LA_PAGINA ) } )
>>> :SelectString( LTrim( Str( ::oPreviewPage:nZoomFactor ) ) )
>>> :OnChange := "SetZoom"
>>> END
>>> ::oBevel:nHeight := ::oCombo:nHeight
>>>
>>> WITH OBJECT TRebarBand():New( ::oRebar )
>>> :cText := LT( XA_MSG_ZOOM ) + ":"
>>> :oControl := ::oBevel
>>> :Create()
>>> END
>>>
>>> ::UpdateBar()
>>>
>>> RETURN Self
>>>
>>>
>>> --
>>> Ignacio Ortiz de Zúñiga
>>> http://www.xailer.com
>>>
>>>
>>> "Xevi" <xevicomas@gmail.com> escribió en el mensaje
>>> news:47559d7b$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>>>> Ignacio,
>>>>
>>>> No funciona el Peview...
>>>>
>>>> ***************************** Registro de errores
>>>> *****************************
>>>>
>>>> Fecha: 04/12/2007
>>>> Hora: 19:32:24
>>>> Memoria libre: 285520
>>>> Area actual: 5
>>>>
>>>> ------------------------- Información del
>>>> compilador --------------------------
>>>>
>>>> Versión Xailer: Xailer 1.8.0 Version 1.8
>>>> Compilador: xHarbour build 1.0.0 Intl. (SimpLex) PCode Version: 9
>>>> Compilador C/C++: Borland C++ 5.8.0
>>>> Plataforma: Windows Windows Vista Home Edition 6.00.6000
>>>>
>>>> ----------------------- Información detallada del
>>>> error -----------------------
>>>>
>>>> Subsistema: BASE
>>>> Código de error: 1005
>>>> Estado: .F.
>>>> Descripción: Class: 'NIL' has no property
>>>> Operación: LENABLED
>>>> Argumentos: [ 1] = Tipo: U Valor: NIL [ 2] = Tipo: L Valor: .F.
>>>> Fichero:
>>>> Código error SO: 0
>>>>
>>>> Pila de llamadas:
>>>> TPREVIEWCONTROL:CREATE (99)
>>>> TPRINTER:PREVIEW (422)
>>>> TFRMFACTURES:TOOLBAR1BTNCOPIARCLICK (529)
>>>> TFRMFACTURES:BROWSE1KEYDOWN (289)
>>>> TDBBROWSE:ONKEYDOWN (0)
>>>> TWINCONTROL:WMKEYDOWN (939)
>>>> XBROWSE:WMKEYDOWN (2345)
>>>> TDBBROWSE:WMKEYDOWN (73)
>>>> RUNFORM (0)
>>>> TAPPLICATION:RUN (209)
>>>> MAIN (24)
>>>>
>>>> ------------------ Información detallada de áreas de
>>>> trabajo ------------------
>>>>
>>>> Area: 1
>>>> Alias: CLIENTSFACTURES
>>>> Registro: 742
>>>> Filtro:
>>>> Relación:
>>>> Orden del índice: 1
>>>> Clave activa: 1
>>>>
>>>> Area: 2
>>>> Alias: FACTU
>>>> Registro: 1168
>>>> Filtro:
>>>> Relación:
>>>> Orden del índice: 5
>>>> Clave activa: 5
>>>>
>>>>
>>>> Un Saludo,
>>>> Xevi.
>>>>
>>>>
>>>> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje de
>>>> noticias news:475593d1$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>>>>> Más información en el siguiente enlace: http://xailer.info/esp/?p=87
>>>>> ------------------------------------------------------------ ------
>>>>> Further information on this link: http://xailer.info/eng/?p=22
>>>>>
>>>>> http://www.xailer.com
>>>>>
>>>>>
>>>>
>>>
>>>
>>
>>
>>
>
>


Attached files
Arriba
Xevi
Mensajes: 1706
Registrado: Jue Sep 08, 2005 12:58 pm

Nueva versi

Mensaje por Xevi »

Paco,
Debes de tener instalada una dll.
Encontrarás la información en la ayuda de TPreviewControl
Un Saludo,
Xevi.
"Paco V." <ssi-quita-esto@ono.com> escribió en el mensaje de noticias
news:475666a0$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Ignacio:
> En el ejemplo Report los iconos generar Pdf y Enviar aparecen en Gris, (No
> se ve la imagen).
> Al picar en ellos no hacen nada.
>
> ¿Es normal?
>
> Paco V
> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje
> news:47565ea0$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>> Incluyo mejor el módulo completo por si alguno lo prefiere.
>>
>> Un saludo
>>
>> --
>> Ignacio Ortiz de Zúñiga
>> http://www.xailer.com
>>
>>
>> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje
>> news:47565dc2$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>>> Xevi,
>>>
>>> Tienes razón. Hay un error. En breve publicaremos una actualización con
>>> todos los pequeños problemas que surgan. Mientras tanto aquí­ tienes el
>>> método solucionado. Perdón por las molestias.
>>>
>>> Un saludo,
>>>
>>> //---------------------------------------------------------- ----------------
>>>
>>> METHOD Create( oParent ) CLASS XPreviewControl
>>>
>>> LOCAL oBtnPDF, oBtnMail
>>>
>>> UPDATE ::oParent TO oParent
>>>
>>> Super:Create()
>>>
>>> MENU ::oPrnMenu POPUP
>>> MENUITEM LT( XA_MSG_TODO ) ACTION ::Print()
>>> MENUITEM LT( XA_MSG_PAGINA_ACTUAL ) ACTION ::Print( ::nPage )
>>> MENUITEM LT( XA_MSG_SELECCION ) ACTION ::Print( 0 )
>>> SEPARATOR
>>> MENUITEM LT( XA_MSG_PRINT_CHANGE_PRINTER ) ACTION ::Print( -1 )
>>> ENDMENU
>>>
>>> ::oRebar := TRebar():Create( Self )
>>>
>>> WITH OBJECT ::oToolBar := TToolBar():New( ::oRebar )
>>> :lList := .T.
>>> :lAutoSize := .T.
>>> WITH OBJECT :oImageList
>>> :nWidth := 24
>>> :nHeight := 24
>>> END WITH
>>> :Create()
>>> :AddSeparator()
>>> :AddButton( "", "XA_BMP_FIRST",,,LT( XA_MSG_PRIMERA_PAGINA ), {||
>>> ::nPage := 1 } )
>>> :AddButton( "", "XA_BMP_PREV",,,LT( XA_MSG_ANTERIOR_PAGINA ), {||
>>> ::nPage -- } )
>>> :AddButton( "", "XA_BMP_NEXT",,,LT( XA_MSG_SIGUIENTE_PAGINA ), {||
>>> ::nPage ++ } )
>>> :AddButton( "", "XA_BMP_LAST",,,LT( XA_MSG_ULTIMA_PAGINA ), {||
>>> ::nPage := Len( ::oPreviewDC:aEmf ) } )
>>> IF ::oExportInfo:lImgPDFButton .OR. ::oExportInfo:lMailButton
>>> :AddSeparator()
>>> ENDIF
>>> IF ::oExportInfo:lImgPDFButton
>>> oBtnPDF := :AddButton( "", "XA_BMP_PDF24",,, LT(
>>> XA_MSG_GENPDF ),
>>> {|| ::GenPDF() } )
>>> IF !IsImagePDF()
>>> oBtnPDF:lEnabled := .F.
>>> ENDIF
>>> ENDIF
>>> IF ::oExportInfo:lMailButton
>>> oBtnMail := :AddButton( "", "XA_BMP_MAIL",,, LT(
>>> XA_MSG_SENDMAIL ),
>>> {|| ::SendMail() } )
>>> IF !IsImagePDF()
>>> oBtnMail:lEnabled := .F.
>>> ENDIF
>>> ENDIF
>>> :AddSeparator()
>>> :AddButton( "", "XA_BMP_PRINTER",,, LT( XA_MSG_IMPRIMIR ), {||
>>> ::Print() }, ::oPrnMenu )
>>> :AddButton( "", "XA_BMP_EXIT",,, LT( XA_MSG_SALIR ), {||
>>> ::oParent:Close() } )
>>> END
>>>
>>> WITH OBJECT ::oRebarBand := TRebarBand():New( ::oRebar )
>>> :oControl := ::oToolBar
>>> :Create()
>>> END
>>>
>>> WITH OBJECT ::oBevel := TBevel():New( ::oRebar )
>>> :SetBounds( 0, 0, 130, 20 )
>>> :nBorderStyle := bvNONE
>>> :lTransparent := .T.
>>> :Create()
>>> END
>>>
>>> WITH OBJECT ::oPreviewPage := TPreviewPage():New( Self,
>>> ::oPreviewDC:oPrinter )
>>> :nAlign := alCLIENT
>>> :Create()
>>> :oEmf := ::oPreviewDC:aEmf[ ::nPage ]
>>> :SetFocus()
>>> :OnFirstPage := {|| ::nPage := 1 }
>>> :OnPrevPage := {|| ::nPage-- }
>>> :OnNextPage := {|| ::nPage++ }
>>> :OnLastPage := {|| ::nPage := Len( ::oPreviewDC:aEmf ) }
>>> :OnZoomIn := "ZoomIn"
>>> :OnZoomOut := "ZoomOut"
>>> END
>>>
>>> WITH OBJECT ::oCombo := TComboBox():New( ::oBevel )
>>> :SetBounds( 0, 0, 125, 300 )
>>> :nStyle := CBS_DROPDOWNLIST
>>> :Create()
>>> :SetItems( { "500", "200", "150", "100", "50", "25", "10",;
>>> LT( XA_MSG_ANCHO_DE_PAGINA ), LT(
>>> XA_MSG_LARGO_DE_PAGINA ),;
>>> LT( XA_MSG_TODA_LA_PAGINA ) } )
>>> :SelectString( LTrim( Str( ::oPreviewPage:nZoomFactor ) ) )
>>> :OnChange := "SetZoom"
>>> END
>>> ::oBevel:nHeight := ::oCombo:nHeight
>>>
>>> WITH OBJECT TRebarBand():New( ::oRebar )
>>> :cText := LT( XA_MSG_ZOOM ) + ":"
>>> :oControl := ::oBevel
>>> :Create()
>>> END
>>>
>>> ::UpdateBar()
>>>
>>> RETURN Self
>>>
>>>
>>> --
>>> Ignacio Ortiz de Zúñiga
>>> http://www.xailer.com
>>>
>>>
>>> "Xevi" <xevicomas@gmail.com> escribió en el mensaje
>>> news:47559d7b$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>>>> Ignacio,
>>>>
>>>> No funciona el Peview...
>>>>
>>>> ***************************** Registro de errores
>>>> *****************************
>>>>
>>>> Fecha: 04/12/2007
>>>> Hora: 19:32:24
>>>> Memoria libre: 285520
>>>> Area actual: 5
>>>>
>>>> ------------------------- Información del
>>>> compilador --------------------------
>>>>
>>>> Versión Xailer: Xailer 1.8.0 Version 1.8
>>>> Compilador: xHarbour build 1.0.0 Intl. (SimpLex) PCode Version: 9
>>>> Compilador C/C++: Borland C++ 5.8.0
>>>> Plataforma: Windows Windows Vista Home Edition 6.00.6000
>>>>
>>>> ----------------------- Información detallada del
>>>> error -----------------------
>>>>
>>>> Subsistema: BASE
>>>> Código de error: 1005
>>>> Estado: .F.
>>>> Descripción: Class: 'NIL' has no property
>>>> Operación: LENABLED
>>>> Argumentos: [ 1] = Tipo: U Valor: NIL [ 2] = Tipo: L Valor: .F.
>>>> Fichero:
>>>> Código error SO: 0
>>>>
>>>> Pila de llamadas:
>>>> TPREVIEWCONTROL:CREATE (99)
>>>> TPRINTER:PREVIEW (422)
>>>> TFRMFACTURES:TOOLBAR1BTNCOPIARCLICK (529)
>>>> TFRMFACTURES:BROWSE1KEYDOWN (289)
>>>> TDBBROWSE:ONKEYDOWN (0)
>>>> TWINCONTROL:WMKEYDOWN (939)
>>>> XBROWSE:WMKEYDOWN (2345)
>>>> TDBBROWSE:WMKEYDOWN (73)
>>>> RUNFORM (0)
>>>> TAPPLICATION:RUN (209)
>>>> MAIN (24)
>>>>
>>>> ------------------ Información detallada de áreas de
>>>> trabajo ------------------
>>>>
>>>> Area: 1
>>>> Alias: CLIENTSFACTURES
>>>> Registro: 742
>>>> Filtro:
>>>> Relación:
>>>> Orden del í­ndice: 1
>>>> Clave activa: 1
>>>>
>>>> Area: 2
>>>> Alias: FACTU
>>>> Registro: 1168
>>>> Filtro:
>>>> Relación:
>>>> Orden del í­ndice: 5
>>>> Clave activa: 5
>>>>
>>>>
>>>> Un Saludo,
>>>> Xevi.
>>>>
>>>>
>>>> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje de
>>>> noticias news:475593d1$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>>>>> Más información en el siguiente enlace: http://xailer.info/esp/?p=87
>>>>> ------------------------------------------------------------ ------
>>>>> Further information on this link: http://xailer.info/eng/?p=22
>>>>>
>>>>> http://www.xailer.com
>>>>>
>>>>>
>>>>
>>>
>>>
>>
>>
>>
>
>
Arriba
Bingen Ugaldebere
Mensajes: 1310
Registrado: Mié Sep 26, 2007 7:12 pm

Nueva versi

Mensaje por Bingen Ugaldebere »

Problema.
He instalado el nuevo Xailer y el nuevo xHarbour y al reconstruir las
aplicaciones me da este error.
C:XailerBCC55Binilink32 -Gn -Tpe -x -aa @make.tmp
Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland
Error: Unresolved external '_HB_FUN_DBFCDX' referenced from
C:XAILERLIBXAILER.LIB|CdxDataSource
Salu2.
Arriba
ssi-quita-esto
Mensajes: 109
Registrado: Mié Dic 05, 2007 9:51 am

Nueva versi

Mensaje por ssi-quita-esto »

Gracias Xevi.
Al no funcionar el ejemplo supuse que era algun fallo. Disculapas Equipo.
Parece ser que hay que pagar por la Lib.
Casi 300$ ¡fuuuuuu!
Paco V
"Xevi" <xevicomas@gmail.com> escribió en el mensaje
news:[email=47566f0e@ozsrv2.ozlan.local...]47566f0e@ozsrv2.ozlan.local...[/email]
> Paco,
>
> Debes de tener instalada una dll.
> Encontrarás la información en la ayuda de TPreviewControl
>
> Un Saludo,
> Xevi.
>
>
> "Paco V." <ssi-quita-esto@ono.com> escribió en el mensaje de noticias
> news:475666a0$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>> Ignacio:
>> En el ejemplo Report los iconos generar Pdf y Enviar aparecen en Gris,
>> (No se ve la imagen).
>> Al picar en ellos no hacen nada.
>>
>> ¿Es normal?
>>
>> Paco V
>> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje
>> news:47565ea0$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>>> Incluyo mejor el módulo completo por si alguno lo prefiere.
>>>
>>> Un saludo
>>>
>>> --
>>> Ignacio Ortiz de Zúñiga
>>> http://www.xailer.com
>>>
>>>
>>> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje
>>> news:47565dc2$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>>>> Xevi,
>>>>
>>>> Tienes razón. Hay un error. En breve publicaremos una actualización con
>>>> todos los pequeños problemas que surgan. Mientras tanto aquí tienes el
>>>> método solucionado. Perdón por las molestias.
>>>>
>>>> Un saludo,
>>>>
>>>> //---------------------------------------------------------- ----------------
>>>>
>>>> METHOD Create( oParent ) CLASS XPreviewControl
>>>>
>>>> LOCAL oBtnPDF, oBtnMail
>>>>
>>>> UPDATE ::oParent TO oParent
>>>>
>>>> Super:Create()
>>>>
>>>> MENU ::oPrnMenu POPUP
>>>> MENUITEM LT( XA_MSG_TODO ) ACTION ::Print()
>>>> MENUITEM LT( XA_MSG_PAGINA_ACTUAL ) ACTION ::Print( ::nPage )
>>>> MENUITEM LT( XA_MSG_SELECCION ) ACTION ::Print( 0 )
>>>> SEPARATOR
>>>> MENUITEM LT( XA_MSG_PRINT_CHANGE_PRINTER ) ACTION ::Print( -1 )
>>>> ENDMENU
>>>>
>>>> ::oRebar := TRebar():Create( Self )
>>>>
>>>> WITH OBJECT ::oToolBar := TToolBar():New( ::oRebar )
>>>> :lList := .T.
>>>> :lAutoSize := .T.
>>>> WITH OBJECT :oImageList
>>>> :nWidth := 24
>>>> :nHeight := 24
>>>> END WITH
>>>> :Create()
>>>> :AddSeparator()
>>>> :AddButton( "", "XA_BMP_FIRST",,,LT( XA_MSG_PRIMERA_PAGINA ), {||
>>>> ::nPage := 1 } )
>>>> :AddButton( "", "XA_BMP_PREV",,,LT( XA_MSG_ANTERIOR_PAGINA ), {||
>>>> ::nPage -- } )
>>>> :AddButton( "", "XA_BMP_NEXT",,,LT( XA_MSG_SIGUIENTE_PAGINA ), {||
>>>> ::nPage ++ } )
>>>> :AddButton( "", "XA_BMP_LAST",,,LT( XA_MSG_ULTIMA_PAGINA ), {||
>>>> ::nPage := Len( ::oPreviewDC:aEmf ) } )
>>>> IF ::oExportInfo:lImgPDFButton .OR. ::oExportInfo:lMailButton
>>>> :AddSeparator()
>>>> ENDIF
>>>> IF ::oExportInfo:lImgPDFButton
>>>> oBtnPDF := :AddButton( "", "XA_BMP_PDF24",,, LT(
>>>> XA_MSG_GENPDF ),
>>>> {|| ::GenPDF() } )
>>>> IF !IsImagePDF()
>>>> oBtnPDF:lEnabled := .F.
>>>> ENDIF
>>>> ENDIF
>>>> IF ::oExportInfo:lMailButton
>>>> oBtnMail := :AddButton( "", "XA_BMP_MAIL",,, LT(
>>>> XA_MSG_SENDMAIL ),
>>>> {|| ::SendMail() } )
>>>> IF !IsImagePDF()
>>>> oBtnMail:lEnabled := .F.
>>>> ENDIF
>>>> ENDIF
>>>> :AddSeparator()
>>>> :AddButton( "", "XA_BMP_PRINTER",,, LT( XA_MSG_IMPRIMIR ), {||
>>>> ::Print() }, ::oPrnMenu )
>>>> :AddButton( "", "XA_BMP_EXIT",,, LT( XA_MSG_SALIR ), {||
>>>> ::oParent:Close() } )
>>>> END
>>>>
>>>> WITH OBJECT ::oRebarBand := TRebarBand():New( ::oRebar )
>>>> :oControl := ::oToolBar
>>>> :Create()
>>>> END
>>>>
>>>> WITH OBJECT ::oBevel := TBevel():New( ::oRebar )
>>>> :SetBounds( 0, 0, 130, 20 )
>>>> :nBorderStyle := bvNONE
>>>> :lTransparent := .T.
>>>> :Create()
>>>> END
>>>>
>>>> WITH OBJECT ::oPreviewPage := TPreviewPage():New( Self,
>>>> ::oPreviewDC:oPrinter )
>>>> :nAlign := alCLIENT
>>>> :Create()
>>>> :oEmf := ::oPreviewDC:aEmf[ ::nPage ]
>>>> :SetFocus()
>>>> :OnFirstPage := {|| ::nPage := 1 }
>>>> :OnPrevPage := {|| ::nPage-- }
>>>> :OnNextPage := {|| ::nPage++ }
>>>> :OnLastPage := {|| ::nPage := Len( ::oPreviewDC:aEmf ) }
>>>> :OnZoomIn := "ZoomIn"
>>>> :OnZoomOut := "ZoomOut"
>>>> END
>>>>
>>>> WITH OBJECT ::oCombo := TComboBox():New( ::oBevel )
>>>> :SetBounds( 0, 0, 125, 300 )
>>>> :nStyle := CBS_DROPDOWNLIST
>>>> :Create()
>>>> :SetItems( { "500", "200", "150", "100", "50", "25", "10",;
>>>> LT( XA_MSG_ANCHO_DE_PAGINA ), LT(
>>>> XA_MSG_LARGO_DE_PAGINA ),;
>>>> LT( XA_MSG_TODA_LA_PAGINA ) } )
>>>> :SelectString( LTrim( Str( ::oPreviewPage:nZoomFactor ) ) )
>>>> :OnChange := "SetZoom"
>>>> END
>>>> ::oBevel:nHeight := ::oCombo:nHeight
>>>>
>>>> WITH OBJECT TRebarBand():New( ::oRebar )
>>>> :cText := LT( XA_MSG_ZOOM ) + ":"
>>>> :oControl := ::oBevel
>>>> :Create()
>>>> END
>>>>
>>>> ::UpdateBar()
>>>>
>>>> RETURN Self
>>>>
>>>>
>>>> --
>>>> Ignacio Ortiz de Zúñiga
>>>> http://www.xailer.com
>>>>
>>>>
>>>> "Xevi" <xevicomas@gmail.com> escribió en el mensaje
>>>> news:47559d7b$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>>>>> Ignacio,
>>>>>
>>>>> No funciona el Peview...
>>>>>
>>>>> ***************************** Registro de errores
>>>>> *****************************
>>>>>
>>>>> Fecha: 04/12/2007
>>>>> Hora: 19:32:24
>>>>> Memoria libre: 285520
>>>>> Area actual: 5
>>>>>
>>>>> ------------------------- Información del
>>>>> compilador --------------------------
>>>>>
>>>>> Versión Xailer: Xailer 1.8.0 Version 1.8
>>>>> Compilador: xHarbour build 1.0.0 Intl. (SimpLex) PCode Version: 9
>>>>> Compilador C/C++: Borland C++ 5.8.0
>>>>> Plataforma: Windows Windows Vista Home Edition 6.00.6000
>>>>>
>>>>> ----------------------- Información detallada del
>>>>> error -----------------------
>>>>>
>>>>> Subsistema: BASE
>>>>> Código de error: 1005
>>>>> Estado: .F.
>>>>> Descripción: Class: 'NIL' has no property
>>>>> Operación: LENABLED
>>>>> Argumentos: [ 1] = Tipo: U Valor: NIL [ 2] = Tipo: L Valor: .F.
>>>>> Fichero:
>>>>> Código error SO: 0
>>>>>
>>>>> Pila de llamadas:
>>>>> TPREVIEWCONTROL:CREATE (99)
>>>>> TPRINTER:PREVIEW (422)
>>>>> TFRMFACTURES:TOOLBAR1BTNCOPIARCLICK (529)
>>>>> TFRMFACTURES:BROWSE1KEYDOWN (289)
>>>>> TDBBROWSE:ONKEYDOWN (0)
>>>>> TWINCONTROL:WMKEYDOWN (939)
>>>>> XBROWSE:WMKEYDOWN (2345)
>>>>> TDBBROWSE:WMKEYDOWN (73)
>>>>> RUNFORM (0)
>>>>> TAPPLICATION:RUN (209)
>>>>> MAIN (24)
>>>>>
>>>>> ------------------ Información detallada de áreas de
>>>>> trabajo ------------------
>>>>>
>>>>> Area: 1
>>>>> Alias: CLIENTSFACTURES
>>>>> Registro: 742
>>>>> Filtro:
>>>>> Relación:
>>>>> Orden del índice: 1
>>>>> Clave activa: 1
>>>>>
>>>>> Area: 2
>>>>> Alias: FACTU
>>>>> Registro: 1168
>>>>> Filtro:
>>>>> Relación:
>>>>> Orden del índice: 5
>>>>> Clave activa: 5
>>>>>
>>>>>
>>>>> Un Saludo,
>>>>> Xevi.
>>>>>
>>>>>
>>>>> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje
>>>>> de
>>>>> noticias news:475593d1$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>>>>>> Más información en el siguiente enlace: http://xailer.info/esp/?p=87
>>>>>> ------------------------------------------------------------ ------
>>>>>> Further information on this link: http://xailer.info/eng/?p=22
>>>>>>
>>>>>> http://www.xailer.com
>>>>>>
>>>>>>
>>>>>
>>>>
>>>>
>>>
>>>
>>>
>>
>>
>
Arriba
ssi-quita-esto
Mensajes: 109
Registrado: Mié Dic 05, 2007 9:51 am

Nueva versi

Mensaje por ssi-quita-esto »

Bimgen:
Tienes que añadir al proyecto la lib dbfcdx.dll desde xharbour lib.
Que tal el viaje?.
Paco V
"Bingen Ugaldebere" <bingen@muninser.com> escribió en el mensaje
news:4756730b$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Problema.
>
> He instalado el nuevo Xailer y el nuevo xHarbour y al reconstruir las
> aplicaciones me da este error.
>
> C:XailerBCC55Binilink32 -Gn -Tpe -x -aa @make.tmp
> Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland
> Error: Unresolved external '_HB_FUN_DBFCDX' referenced from
> C:XAILERLIBXAILER.LIB|CdxDataSource
>
> Salu2.
Arriba
Xevi
Mensajes: 1706
Registrado: Jue Sep 08, 2005 12:58 pm

Nueva versi

Mensaje por Xevi »

Bingen,
Debemos leer mas!! jejeje...
Sacado del Blog...
Es muy posible que debido al cambio realizado por la nueva gestión de
librerí­as en el IDE alguno de vuestros proyectos no pueda completar
correctamente el proceso de enlazado por faltar la librerí­a 'DBFCDX'. Para
incorporarla tan sólo es necesario utilizar la opción de menú
Proyecto>Propiedades y en la página de 'Librerí­as' marcar la librerí­a
'dbfcdx.lib' de xHarbour.
Un Saludo,
Xevi.
"Bingen Ugaldebere" <bingen@muninser.com> escribió en el mensaje de noticias
news:4756730b$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Problema.
>
> He instalado el nuevo Xailer y el nuevo xHarbour y al reconstruir las
> aplicaciones me da este error.
>
> C:XailerBCC55Binilink32 -Gn -Tpe -x -aa @make.tmp
> Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland
> Error: Unresolved external '_HB_FUN_DBFCDX' referenced from
> C:XAILERLIBXAILER.LIB|CdxDataSource
>
> Salu2.
Arriba
Xevi
Mensajes: 1706
Registrado: Jue Sep 08, 2005 12:58 pm

Nueva versi

Mensaje por Xevi »

Ignacio,
¿La Web ya no la actualizais??? parece ser que no la habeis tocado desde...
la 1.65
Un Saludo,
Xevi.
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje de
noticias news:475593d1$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Más información en el siguiente enlace: http://xailer.info/esp/?p=87
> ------------------------------------------------------------ ------
> Further information on this link: http://xailer.info/eng/?p=22
>
> http://www.xailer.com
>
>
Arriba
Bingen Ugaldebere
Mensajes: 1310
Registrado: Mié Sep 26, 2007 7:12 pm

Nueva versi

Mensaje por Bingen Ugaldebere »

Gracias compañeros, solucionado.
Perdón por la torpeza, no he leí­do el blog hasta el final, me he leí­do
LoNuevo.Txt que es donde ponen los cambios que pueden romper el código
actual y no vi nada en rojo....
Muy bonito el sistema de librerí­as del Proyecto.
Las ansias por probarlo ya se sabe.....
El viaje muy bien Paco gracias.
Salu2.
Arriba
Xevi
Mensajes: 1706
Registrado: Jue Sep 08, 2005 12:58 pm

Nueva versi

Mensaje por Xevi »

Si incluyo una Lib al proyecto... que está alojada en una Subcarpeta del
mismo proyecto llamada "Lib"...
***************************** Registro de errores
*****************************
Fecha: 05/12/2007
Hora: 11:24:46
Memoria libre: 391452
Area actual: 1
------------------------- Información del
compilador --------------------------
Versión Xailer: Xailer 1.8.0 Version 1.8
Compilador: xHarbour build 1.0.0 Intl. (SimpLex) PCode Version: 9
Compilador C/C++: Borland C++ 5.8.0
Plataforma: Windows Windows Vista Home Edition 6.00.6000
----------------------- Información detallada del
error -----------------------
Subsistema: BASE
Código de error: 1004
Estado: .F.
Descripción: Message not found
Operación: TPROJECT:OROOTDIR
Argumentos:
Fichero:
Código error SO: 0
Pila de llamadas:
TPROJECT:COMPILE (2655)
(b)TMAINFORM:BUILDTOOLBARS (326)
TTOOLBUTTON:ONCLICK (0)
(b)XTOOLBUTTON:XTOOLBUTTON (41)
TTOOLBUTTON:CLICK (0)
TTOOLBAR:COMMAND (377)
TREBAR:WMCOMMAND (253)
RUNFORM (0)
TAPPLICATION:RUN (209)
MAIN (30)
Un Saludo,
Xevi.
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje de
noticias news:475593d1$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Más información en el siguiente enlace: http://xailer.info/esp/?p=87
> ------------------------------------------------------------ ------
> Further information on this link: http://xailer.info/eng/?p=22
>
> http://www.xailer.com
>
>
Arriba
Xevi
Mensajes: 1706
Registrado: Jue Sep 08, 2005 12:58 pm

Nueva versi

Mensaje por Xevi »

Si incluyo un .CH en el proyecto, que no está en la carpeta "Include", sinó
que por alguna u otra razón lo tengo guardado en otra carpeta de otro
proyecto, no lo tiene en cuenta y se queja diciendo que no existe el fichero
al compilar.
Un Saludo,
Xevi.
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje de
noticias news:475593d1$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Más información en el siguiente enlace: http://xailer.info/esp/?p=87
> ------------------------------------------------------------ ------
> Further information on this link: http://xailer.info/eng/?p=22
>
> http://www.xailer.com
>
>
Arriba
Xevi
Mensajes: 1706
Registrado: Jue Sep 08, 2005 12:58 pm

Nueva versi

Mensaje por Xevi »

Si incluyo un Lib que está alojada en una carpeta que no sea la de Xailer o
la de xHarbour, al enlazar no la encuentra y no puede compilar correctamente
el proyecto.
De momento añado Libs de terceros al estilo anterior.
Un Saludo,
Xevi.
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje de
noticias news:475593d1$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Más información en el siguiente enlace: http://xailer.info/esp/?p=87
> ------------------------------------------------------------ ------
> Further information on this link: http://xailer.info/eng/?p=22
>
> http://www.xailer.com
>
>
Arriba
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9447
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:
Contactar ignacio

Nueva versi

Mensaje por ignacio »

Xevi,
Espero que hoy mismo se actualice.
Un saludo
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Xevi" <xevicomas@gmail.com> escribió en el mensaje
news:[email=4756756e@ozsrv2.ozlan.local...]4756756e@ozsrv2.ozlan.local...[/email]
> Ignacio,
>
> ¿La Web ya no la actualizais??? parece ser que no la habeis tocado
> desde... la 1.65
>
> Un Saludo,
> Xevi.
>
>
> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje de
> noticias news:475593d1$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>> Más información en el siguiente enlace: http://xailer.info/esp/?p=87
>> ------------------------------------------------------------ ------
>> Further information on this link: http://xailer.info/eng/?p=22
>>
>> http://www.xailer.com
>>
>>
>
Ignacio Ortiz de Zúñiga
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Arriba
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9447
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:
Contactar ignacio

Nueva versi

Mensaje por ignacio »

Xevi,
Somos conscientes del problema. Gracias de todas formas. Subiremos una
actualización cuanto antes.
Un saludo
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Xevi" <xevicomas@gmail.com> escribió en el mensaje
news:[email=47567ce4@ozsrv2.ozlan.local...]47567ce4@ozsrv2.ozlan.local...[/email]
> Si incluyo una Lib al proyecto... que está alojada en una Subcarpeta del
> mismo proyecto llamada "Lib"...
>
> ***************************** Registro de errores
> *****************************
>
> Fecha: 05/12/2007
> Hora: 11:24:46
> Memoria libre: 391452
> Area actual: 1
>
> ------------------------- Información del
> compilador --------------------------
>
> Versión Xailer: Xailer 1.8.0 Version 1.8
> Compilador: xHarbour build 1.0.0 Intl. (SimpLex) PCode Version: 9
> Compilador C/C++: Borland C++ 5.8.0
> Plataforma: Windows Windows Vista Home Edition 6.00.6000
>
> ----------------------- Información detallada del
> error -----------------------
>
> Subsistema: BASE
> Código de error: 1004
> Estado: .F.
> Descripción: Message not found
> Operación: TPROJECT:OROOTDIR
> Argumentos:
> Fichero:
> Código error SO: 0
>
> Pila de llamadas:
> TPROJECT:COMPILE (2655)
> (b)TMAINFORM:BUILDTOOLBARS (326)
> TTOOLBUTTON:ONCLICK (0)
> (b)XTOOLBUTTON:XTOOLBUTTON (41)
> TTOOLBUTTON:CLICK (0)
> TTOOLBAR:COMMAND (377)
> TREBAR:WMCOMMAND (253)
> RUNFORM (0)
> TAPPLICATION:RUN (209)
> MAIN (30)
>
>
> Un Saludo,
> Xevi.
>
>
>
> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje de
> noticias news:475593d1$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>> Más información en el siguiente enlace: http://xailer.info/esp/?p=87
>> ------------------------------------------------------------ ------
>> Further information on this link: http://xailer.info/eng/?p=22
>>
>> http://www.xailer.com
>>
>>
>
Ignacio Ortiz de Zúñiga
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Arriba
Responder

Volver a “Xailer English”