Hola,
Haciendo algo como esto:
REPORT oReport OF Self; // Self -> Formulario
TITLE "Informe de Erroes en Carga/Descarga de Terminal" ;
PREVIEW
COLUMN OF oReport ;
TITLE "Tipo" ;
DATA oMemDataSet1:cTipo
// CHARSIZE 1
COLUMN OF oReport ;
TITLE "Proceso" ;
DATA oMemDataSet1:cProceso
// CHARSIZE 20
COLUMN OF oReport ;
TITLE "Descripción" ;
DATA oMemDataSet1:cDescripcion
// CHARSIZE 150
WITH OBJECT oReport
:bWhile := {|| !oMemDataSet1:Eof() }
:bSkip := {|| oMemDataSet1:Skip() }
END WITH
RUN REPORT oReport
No consigo que la ventana del previsualizador muestre el icono de la
aplicación (proyecto->propiedades del proyecto->apariencia).
¿Cómo puedo tener más control sobre el informe previsualizado? ¿Como se
llama la data con el formulario? Me interesa maximizar, centrar, abrir
modal, etc.
Saludos,
José Luis Capel
Attached files
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.
Icono de la aplicaci
Icono de la aplicaci
Hola José Luis: he visto que la clausula JobName funciona bien, no asi la
propiedad cJobName que no funciona, lo del icono en mi sistema funciona.
REPORT oReport ;
TITLE "Paciente: "+cPac ;
FOOTER "Impreso el: "+ DtoC( Date() ) + " a las " + Time() ALIGN taRIGHT;
PREVIEW ;
FONT oFont1, oFont2 ;
JobName "Turnos 2.0"
Saludos.
"José Luis Capel" <jose.luis@iaicom.com> escribió en el mensaje
news:[email=45069791@news.xailer.com...]45069791@news.xailer.com...[/email]
> Hola,
>
> Haciendo algo como esto:
>
> REPORT oReport OF Self; // Self -> Formulario
> TITLE "Informe de Erroes en Carga/Descarga de Terminal" ;
> PREVIEW
>
> COLUMN OF oReport ;
> TITLE "Tipo" ;
> DATA oMemDataSet1:cTipo
> // CHARSIZE 1
>
> COLUMN OF oReport ;
> TITLE "Proceso" ;
> DATA oMemDataSet1:cProceso
> // CHARSIZE 20
>
> COLUMN OF oReport ;
> TITLE "Descripción" ;
> DATA oMemDataSet1:cDescripcion
> // CHARSIZE 150
>
>
> WITH OBJECT oReport
> :bWhile := {|| !oMemDataSet1:Eof() }
> :bSkip := {|| oMemDataSet1:Skip() }
> END WITH
>
> RUN REPORT oReport
>
> No consigo que la ventana del previsualizador muestre el icono de la
> aplicación (proyecto->propiedades del proyecto->apariencia).
>
>
> ¿Cómo puedo tener más control sobre el informe previsualizado? ¿Como se
> llama la data con el formulario? Me interesa maximizar, centrar, abrir
> modal, etc.
>
> Saludos,
> José Luis Capel
>
>
>
propiedad cJobName que no funciona, lo del icono en mi sistema funciona.
REPORT oReport ;
TITLE "Paciente: "+cPac ;
FOOTER "Impreso el: "+ DtoC( Date() ) + " a las " + Time() ALIGN taRIGHT;
PREVIEW ;
FONT oFont1, oFont2 ;
JobName "Turnos 2.0"
Saludos.
"José Luis Capel" <jose.luis@iaicom.com> escribió en el mensaje
news:[email=45069791@news.xailer.com...]45069791@news.xailer.com...[/email]
> Hola,
>
> Haciendo algo como esto:
>
> REPORT oReport OF Self; // Self -> Formulario
> TITLE "Informe de Erroes en Carga/Descarga de Terminal" ;
> PREVIEW
>
> COLUMN OF oReport ;
> TITLE "Tipo" ;
> DATA oMemDataSet1:cTipo
> // CHARSIZE 1
>
> COLUMN OF oReport ;
> TITLE "Proceso" ;
> DATA oMemDataSet1:cProceso
> // CHARSIZE 20
>
> COLUMN OF oReport ;
> TITLE "Descripción" ;
> DATA oMemDataSet1:cDescripcion
> // CHARSIZE 150
>
>
> WITH OBJECT oReport
> :bWhile := {|| !oMemDataSet1:Eof() }
> :bSkip := {|| oMemDataSet1:Skip() }
> END WITH
>
> RUN REPORT oReport
>
> No consigo que la ventana del previsualizador muestre el icono de la
> aplicación (proyecto->propiedades del proyecto->apariencia).
>
>
> ¿Cómo puedo tener más control sobre el informe previsualizado? ¿Como se
> llama la data con el formulario? Me interesa maximizar, centrar, abrir
> modal, etc.
>
> Saludos,
> José Luis Capel
>
>
>
-
ignacio
- Site Admin
- Mensajes: 9457
- Registrado: Lun Abr 06, 2015 8:00 pm
- Ubicación: Madrid, Spain
- Contactar:
Icono de la aplicaci
José Luis,
> ¿Cómo puedo tener más control sobre el informe previsualizado? ¿Como se
> llama la data con el formulario? Me interesa maximizar, centrar, abrir
> modal, etc.
El data del formulario no está en ámbito, pero las propiedades lPreviewModal
y nPreviewShowMode te permiten modificar varios aspectos del formulario.
He modificado el método Printer:Preview() para que acepte un tercer
parametro con el formulario padre del preview, de esta forma deberá heredar
el icono del mismo y mostrarlo igualmente.
Desde el metodo TPrinter:OnPreview() puedes disparar tu propia ventana de
Preview y retornar falso para que no se dispare la de Xailer. Por ejemplo:
FUNCTION MiPreview( nShowMode, lModal )
LOCAL oForm
WITH OBJECT oForm := TForm():New( oParent )
:cText := ::cJobTitle
:nWidth := 800
:nHeight := 600
:OnClose := {|| ::oPreviewDC:Destroy() }
:Create()
END WITH
WITH OBJECT oPreview := TPreviewControl():New( oForm )
:oPreviewDC := ::oPreviewDC
:nLeft := 0
:nTop := 0
:nAlign := alCLIENT
:Create()
END
If lModal
oForm:ShowModal( nShowMode, .T. )
else
oForm:Show( nShowMode, .t.)
Endif
RETURN .F.
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"José Luis Capel" <jose.luis@iaicom.com> escribió en el mensaje
news:[email=45069791@news.xailer.com...]45069791@news.xailer.com...[/email]
> Hola,
>
> Haciendo algo como esto:
>
> REPORT oReport OF Self; // Self -> Formulario
> TITLE "Informe de Erroes en Carga/Descarga de Terminal" ;
> PREVIEW
>
> COLUMN OF oReport ;
> TITLE "Tipo" ;
> DATA oMemDataSet1:cTipo
> // CHARSIZE 1
>
> COLUMN OF oReport ;
> TITLE "Proceso" ;
> DATA oMemDataSet1:cProceso
> // CHARSIZE 20
>
> COLUMN OF oReport ;
> TITLE "Descripción" ;
> DATA oMemDataSet1:cDescripcion
> // CHARSIZE 150
>
>
> WITH OBJECT oReport
> :bWhile := {|| !oMemDataSet1:Eof() }
> :bSkip := {|| oMemDataSet1:Skip() }
> END WITH
>
> RUN REPORT oReport
>
> No consigo que la ventana del previsualizador muestre el icono de la
> aplicación (proyecto->propiedades del proyecto->apariencia).
>
>
> ¿Cómo puedo tener más control sobre el informe previsualizado? ¿Como se
> llama la data con el formulario? Me interesa maximizar, centrar, abrir
> modal, etc.
>
> Saludos,
> José Luis Capel
>
>
>
> ¿Cómo puedo tener más control sobre el informe previsualizado? ¿Como se
> llama la data con el formulario? Me interesa maximizar, centrar, abrir
> modal, etc.
El data del formulario no está en ámbito, pero las propiedades lPreviewModal
y nPreviewShowMode te permiten modificar varios aspectos del formulario.
He modificado el método Printer:Preview() para que acepte un tercer
parametro con el formulario padre del preview, de esta forma deberá heredar
el icono del mismo y mostrarlo igualmente.
Desde el metodo TPrinter:OnPreview() puedes disparar tu propia ventana de
Preview y retornar falso para que no se dispare la de Xailer. Por ejemplo:
FUNCTION MiPreview( nShowMode, lModal )
LOCAL oForm
WITH OBJECT oForm := TForm():New( oParent )
:cText := ::cJobTitle
:nWidth := 800
:nHeight := 600
:OnClose := {|| ::oPreviewDC:Destroy() }
:Create()
END WITH
WITH OBJECT oPreview := TPreviewControl():New( oForm )
:oPreviewDC := ::oPreviewDC
:nLeft := 0
:nTop := 0
:nAlign := alCLIENT
:Create()
END
If lModal
oForm:ShowModal( nShowMode, .T. )
else
oForm:Show( nShowMode, .t.)
Endif
RETURN .F.
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"José Luis Capel" <jose.luis@iaicom.com> escribió en el mensaje
news:[email=45069791@news.xailer.com...]45069791@news.xailer.com...[/email]
> Hola,
>
> Haciendo algo como esto:
>
> REPORT oReport OF Self; // Self -> Formulario
> TITLE "Informe de Erroes en Carga/Descarga de Terminal" ;
> PREVIEW
>
> COLUMN OF oReport ;
> TITLE "Tipo" ;
> DATA oMemDataSet1:cTipo
> // CHARSIZE 1
>
> COLUMN OF oReport ;
> TITLE "Proceso" ;
> DATA oMemDataSet1:cProceso
> // CHARSIZE 20
>
> COLUMN OF oReport ;
> TITLE "Descripción" ;
> DATA oMemDataSet1:cDescripcion
> // CHARSIZE 150
>
>
> WITH OBJECT oReport
> :bWhile := {|| !oMemDataSet1:Eof() }
> :bSkip := {|| oMemDataSet1:Skip() }
> END WITH
>
> RUN REPORT oReport
>
> No consigo que la ventana del previsualizador muestre el icono de la
> aplicación (proyecto->propiedades del proyecto->apariencia).
>
>
> ¿Cómo puedo tener más control sobre el informe previsualizado? ¿Como se
> llama la data con el formulario? Me interesa maximizar, centrar, abrir
> modal, etc.
>
> Saludos,
> José Luis Capel
>
>
>
Ignacio Ortiz de Zúñiga
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Icono de la aplicaci
"Rolando Sarrailh" <rsarrailh@gmail.com> escribió en el mensaje
news:[email=45069fd7@news.xailer.com...]45069fd7@news.xailer.com...[/email]
> Hola José Luis: he visto que la clausula JobName funciona bien, no asi la
> propiedad cJobName que no funciona, lo del icono en mi sistema funciona.
>
> REPORT oReport ;
> TITLE "Paciente: "+cPac ;
> FOOTER "Impreso el: "+ DtoC( Date() ) + " a las " + Time() ALIGN
> taRIGHT;
> PREVIEW ;
> FONT oFont1, oFont2 ;
> JobName "Turnos 2.0"
> Saludos.
>
> "José Luis Capel" <jose.luis@iaicom.com> escribió en el mensaje
> news:[email=45069791@news.xailer.com...]45069791@news.xailer.com...[/email]
>> Hola,
>>
>> Haciendo algo como esto:
>>
>> REPORT oReport OF Self; // Self -> Formulario
>> TITLE "Informe de Erroes en Carga/Descarga de Terminal" ;
>> PREVIEW
>>
>> COLUMN OF oReport ;
>> TITLE "Tipo" ;
>> DATA oMemDataSet1:cTipo
>> // CHARSIZE 1
>>
>> COLUMN OF oReport ;
>> TITLE "Proceso" ;
>> DATA oMemDataSet1:cProceso
>> // CHARSIZE 20
>>
>> COLUMN OF oReport ;
>> TITLE "Descripción" ;
>> DATA oMemDataSet1:cDescripcion
>> // CHARSIZE 150
>>
>>
>> WITH OBJECT oReport
>> :bWhile := {|| !oMemDataSet1:Eof() }
>> :bSkip := {|| oMemDataSet1:Skip() }
>> END WITH
>>
>> RUN REPORT oReport
>>
>> No consigo que la ventana del previsualizador muestre el icono de la
>> aplicación (proyecto->propiedades del proyecto->apariencia).
>>
>>
>> ¿Cómo puedo tener más control sobre el informe previsualizado? ¿Como se
>> llama la data con el formulario? Me interesa maximizar, centrar, abrir
>> modal, etc.
>>
>> Saludos,
>> José Luis Capel
>>
>>
>>
>
>
Attached files
news:[email=45069fd7@news.xailer.com...]45069fd7@news.xailer.com...[/email]
> Hola José Luis: he visto que la clausula JobName funciona bien, no asi la
> propiedad cJobName que no funciona, lo del icono en mi sistema funciona.
>
> REPORT oReport ;
> TITLE "Paciente: "+cPac ;
> FOOTER "Impreso el: "+ DtoC( Date() ) + " a las " + Time() ALIGN
> taRIGHT;
> PREVIEW ;
> FONT oFont1, oFont2 ;
> JobName "Turnos 2.0"
> Saludos.
>
> "José Luis Capel" <jose.luis@iaicom.com> escribió en el mensaje
> news:[email=45069791@news.xailer.com...]45069791@news.xailer.com...[/email]
>> Hola,
>>
>> Haciendo algo como esto:
>>
>> REPORT oReport OF Self; // Self -> Formulario
>> TITLE "Informe de Erroes en Carga/Descarga de Terminal" ;
>> PREVIEW
>>
>> COLUMN OF oReport ;
>> TITLE "Tipo" ;
>> DATA oMemDataSet1:cTipo
>> // CHARSIZE 1
>>
>> COLUMN OF oReport ;
>> TITLE "Proceso" ;
>> DATA oMemDataSet1:cProceso
>> // CHARSIZE 20
>>
>> COLUMN OF oReport ;
>> TITLE "Descripción" ;
>> DATA oMemDataSet1:cDescripcion
>> // CHARSIZE 150
>>
>>
>> WITH OBJECT oReport
>> :bWhile := {|| !oMemDataSet1:Eof() }
>> :bSkip := {|| oMemDataSet1:Skip() }
>> END WITH
>>
>> RUN REPORT oReport
>>
>> No consigo que la ventana del previsualizador muestre el icono de la
>> aplicación (proyecto->propiedades del proyecto->apariencia).
>>
>>
>> ¿Cómo puedo tener más control sobre el informe previsualizado? ¿Como se
>> llama la data con el formulario? Me interesa maximizar, centrar, abrir
>> modal, etc.
>>
>> Saludos,
>> José Luis Capel
>>
>>
>>
>
>
Attached files
Icono de la aplicaci
Ignacio,
Gracias por tu respuesta.
>
> El data del formulario no está en ámbito, pero las propiedades
> lPreviewModal y nPreviewShowMode te permiten modificar varios aspectos del
> formulario.
>
Perfecto... en la documentación solo he visto la propiedad lPreviewModal.
> He modificado el método Printer:Preview() para que acepte un tercer
> parametro con el formulario padre del preview, de esta forma deberá
> heredar el icono del mismo y mostrarlo igualmente.
¿Puedes mandarme esos obj's?
>
> Desde el metodo TPrinter:OnPreview() puedes disparar tu propia ventana de
> Preview y retornar falso para que no se dispare la de Xailer. Por ejemplo:
>
> FUNCTION MiPreview( nShowMode, lModal )
>
> LOCAL oForm
>
> WITH OBJECT oForm := TForm():New( oParent )
> :cText := ::cJobTitle
> :nWidth := 800
> :nHeight := 600
> :OnClose := {|| ::oPreviewDC:Destroy() }
> :Create()
> END WITH
>
> WITH OBJECT oPreview := TPreviewControl():New( oForm )
> :oPreviewDC := ::oPreviewDC
> :nLeft := 0
> :nTop := 0
> :nAlign := alCLIENT
> :Create()
> END
>
> If lModal
> oForm:ShowModal( nShowMode, .T. )
> else
> oForm:Show( nShowMode, .t.)
> Endif
>
> RETURN .F.
>
Ahora mismo me sirve perfectamente el formulario que presenta Xailer. Más
adelante tengo previsto crear mi propio formulario de previsualización.
Muchísimas gracias por tu ayuda.
Saludos,
José Luis Capel
>
> --
> Ignacio Ortiz de Zúñiga
> http://www.xailer.com
> "José Luis Capel" <jose.luis@iaicom.com> escribió en el mensaje
> news:[email=45069791@news.xailer.com...]45069791@news.xailer.com...[/email]
>> Hola,
>>
>> Haciendo algo como esto:
>>
>> REPORT oReport OF Self; // Self -> Formulario
>> TITLE "Informe de Erroes en Carga/Descarga de Terminal" ;
>> PREVIEW
>>
>> COLUMN OF oReport ;
>> TITLE "Tipo" ;
>> DATA oMemDataSet1:cTipo
>> // CHARSIZE 1
>>
>> COLUMN OF oReport ;
>> TITLE "Proceso" ;
>> DATA oMemDataSet1:cProceso
>> // CHARSIZE 20
>>
>> COLUMN OF oReport ;
>> TITLE "Descripción" ;
>> DATA oMemDataSet1:cDescripcion
>> // CHARSIZE 150
>>
>>
>> WITH OBJECT oReport
>> :bWhile := {|| !oMemDataSet1:Eof() }
>> :bSkip := {|| oMemDataSet1:Skip() }
>> END WITH
>>
>> RUN REPORT oReport
>>
>> No consigo que la ventana del previsualizador muestre el icono de la
>> aplicación (proyecto->propiedades del proyecto->apariencia).
>>
>>
>> ¿Cómo puedo tener más control sobre el informe previsualizado? ¿Como se
>> llama la data con el formulario? Me interesa maximizar, centrar, abrir
>> modal, etc.
>>
>> Saludos,
>> José Luis Capel
>>
>>
>>
>
>
Gracias por tu respuesta.
>
> El data del formulario no está en ámbito, pero las propiedades
> lPreviewModal y nPreviewShowMode te permiten modificar varios aspectos del
> formulario.
>
Perfecto... en la documentación solo he visto la propiedad lPreviewModal.
> He modificado el método Printer:Preview() para que acepte un tercer
> parametro con el formulario padre del preview, de esta forma deberá
> heredar el icono del mismo y mostrarlo igualmente.
¿Puedes mandarme esos obj's?
>
> Desde el metodo TPrinter:OnPreview() puedes disparar tu propia ventana de
> Preview y retornar falso para que no se dispare la de Xailer. Por ejemplo:
>
> FUNCTION MiPreview( nShowMode, lModal )
>
> LOCAL oForm
>
> WITH OBJECT oForm := TForm():New( oParent )
> :cText := ::cJobTitle
> :nWidth := 800
> :nHeight := 600
> :OnClose := {|| ::oPreviewDC:Destroy() }
> :Create()
> END WITH
>
> WITH OBJECT oPreview := TPreviewControl():New( oForm )
> :oPreviewDC := ::oPreviewDC
> :nLeft := 0
> :nTop := 0
> :nAlign := alCLIENT
> :Create()
> END
>
> If lModal
> oForm:ShowModal( nShowMode, .T. )
> else
> oForm:Show( nShowMode, .t.)
> Endif
>
> RETURN .F.
>
Ahora mismo me sirve perfectamente el formulario que presenta Xailer. Más
adelante tengo previsto crear mi propio formulario de previsualización.
Muchísimas gracias por tu ayuda.
Saludos,
José Luis Capel
>
> --
> Ignacio Ortiz de Zúñiga
> http://www.xailer.com
> "José Luis Capel" <jose.luis@iaicom.com> escribió en el mensaje
> news:[email=45069791@news.xailer.com...]45069791@news.xailer.com...[/email]
>> Hola,
>>
>> Haciendo algo como esto:
>>
>> REPORT oReport OF Self; // Self -> Formulario
>> TITLE "Informe de Erroes en Carga/Descarga de Terminal" ;
>> PREVIEW
>>
>> COLUMN OF oReport ;
>> TITLE "Tipo" ;
>> DATA oMemDataSet1:cTipo
>> // CHARSIZE 1
>>
>> COLUMN OF oReport ;
>> TITLE "Proceso" ;
>> DATA oMemDataSet1:cProceso
>> // CHARSIZE 20
>>
>> COLUMN OF oReport ;
>> TITLE "Descripción" ;
>> DATA oMemDataSet1:cDescripcion
>> // CHARSIZE 150
>>
>>
>> WITH OBJECT oReport
>> :bWhile := {|| !oMemDataSet1:Eof() }
>> :bSkip := {|| oMemDataSet1:Skip() }
>> END WITH
>>
>> RUN REPORT oReport
>>
>> No consigo que la ventana del previsualizador muestre el icono de la
>> aplicación (proyecto->propiedades del proyecto->apariencia).
>>
>>
>> ¿Cómo puedo tener más control sobre el informe previsualizado? ¿Como se
>> llama la data con el formulario? Me interesa maximizar, centrar, abrir
>> modal, etc.
>>
>> Saludos,
>> José Luis Capel
>>
>>
>>
>
>
-
ignacio
- Site Admin
- Mensajes: 9457
- Registrado: Lun Abr 06, 2015 8:00 pm
- Ubicación: Madrid, Spain
- Contactar:
Icono de la aplicaci
This is a multi-part message in MIME format.
------=_NextPart_000_000E_01C6D68C.78E22590
Content-Type: multipart/related;
type="multipart/alternative";
boundary="----=_NextPart_001_000F_01C6D68C.78E22590"
------=_NextPart_001_000F_01C6D68C.78E22590
Content-Type: multipart/alternative;
boundary="----=_NextPart_002_0010_01C6D68C.78E22590"
------=_NextPart_002_0010_01C6D68C.78E22590
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
> Perfecto... en la documentaci=F3n solo he visto la propiedad =
lPreviewModal.
Hay que mirar mejor
> =BFPuedes mandarme esos obj's?
Si. Van con este Email
> Ahora mismo me sirve perfectamente el formulario que presenta Xailer. =
M=E1s=20
> adelante tengo previsto crear mi propio formulario de =
previsualizaci=F3n.
No te digo de cambiar el formulario que presenta Xailer. De hecho el =
c=F3digo que te he dado presenta el mismo. Sin embargo te permite tocar =
lo que quieras.=20
En su ventana contenedora:
>> WITH OBJECT oForm :=3D TForm():New( oParent )
>> :cText :=3D ::cJobTitle
>> :nWidth :=3D 800
>> :nHeight :=3D 600
>> :OnClose :=3D {|| ::oPreviewDC:Destroy() }
>> :Create()
>> END WITH
En el propio TPreviewControl (que est=E1 documentado)
>> WITH OBJECT oPreview :=3D TPreviewControl():New( oForm )
>> :oPreviewDC :=3D ::oPreviewDC
>> :nLeft :=3D 0
>> :nTop :=3D 0
>> :nAlign :=3D alCLIENT
>> :Create()
>> END
Saludos,
--=20
Ignacio Ortiz de Z=FA=F1iga
http://www.xailer.com
"Jos=E9 Luis Capel" <jose.luis@iaicom.com> escribi=F3 en el mensaje =
news:[email=4506be18@news.xailer.com...]4506be18@news.xailer.com...[/email]
> Ignacio,
>=20
> Gracias por tu respuesta.
>=20
>>
>> El data del formulario no est=E1 en =E1mbito, pero las propiedades=20
>> lPreviewModal y nPreviewShowMode te permiten modificar varios =
aspectos del=20
>> formulario.
>>
>=20
> Perfecto... en la documentaci=F3n solo he visto la propiedad =
lPreviewModal.
>=20
>> He modificado el m=E9todo Printer:Preview() para que acepte un tercer =
>> parametro con el formulario padre del preview, de esta forma deber=E1 =
>> heredar el icono del mismo y mostrarlo igualmente.
>=20
> =BFPuedes mandarme esos obj's?
>=20
>>
>> Desde el metodo TPrinter:OnPreview() puedes disparar tu propia =
ventana de=20
>> Preview y retornar falso para que no se dispare la de Xailer. Por =
ejemplo:
>>
>> FUNCTION MiPreview( nShowMode, lModal )
>>
>> LOCAL oForm
>>
>> WITH OBJECT oForm :=3D TForm():New( oParent )
>> :cText :=3D ::cJobTitle
>> :nWidth :=3D 800
>> :nHeight :=3D 600
>> :OnClose :=3D {|| ::oPreviewDC:Destroy() }
>> :Create()
>> END WITH
>>
>> WITH OBJECT oPreview :=3D TPreviewControl():New( oForm )
>> :oPreviewDC :=3D ::oPreviewDC
>> :nLeft :=3D 0
>> :nTop :=3D 0
>> :nAlign :=3D alCLIENT
>> :Create()
>> END
>>
>> If lModal
>> oForm:ShowModal( nShowMode, .T. )
>> else
>> oForm:Show( nShowMode, .t.)
>> Endif
>>
>> RETURN .F.
>>
>=20
> Ahora mismo me sirve perfectamente el formulario que presenta Xailer. =
M=E1s=20
> adelante tengo previsto crear mi propio formulario de =
previsualizaci=F3n.
>=20
> Much=EDsimas gracias por tu ayuda.
> Saludos,
> Jos=E9 Luis Capel
>=20
>=20
>>
>> --=20
>> Ignacio Ortiz de Z=FA=F1iga
>> http://www.xailer.com
>> "Jos=E9 Luis Capel" <jose.luis@iaicom.com> escribi=F3 en el mensaje=20
>> news:[email=45069791@news.xailer.com...]45069791@news.xailer.com...[/email]
>>> Hola,
>>>
>>> Haciendo algo como esto:
>>>
>>> REPORT oReport OF Self; // Self -> Formulario
>>> TITLE "Informe de Erroes en Carga/Descarga de Terminal" ;
>>> PREVIEW
>>>
>>> COLUMN OF oReport ;
>>> TITLE "Tipo" ;
>>> DATA oMemDataSet1:cTipo
>>> // CHARSIZE 1
>>>
>>> COLUMN OF oReport ;
>>> TITLE "Proceso" ;
>>> DATA oMemDataSet1:cProceso
>>> // CHARSIZE 20
>>>
>>> COLUMN OF oReport ;
>>> TITLE "Descripci=F3n" ;
>>> DATA oMemDataSet1:cDescripcion
>>> // CHARSIZE 150
>>>
>>>
>>> WITH OBJECT oReport
>>> :bWhile :=3D {|| !oMemDataSet1:Eof() }
>>> :bSkip :=3D {|| oMemDataSet1:Skip() }
>>> END WITH
>>>
>>> RUN REPORT oReport
>>>
>>> No consigo que la ventana del previsualizador muestre el icono de la =
>>> aplicaci=F3n (proyecto->propiedades del proyecto->apariencia).
>>>
>>>
>>> =BFC=F3mo puedo tener m=E1s control sobre el informe previsualizado? =
=BFComo se=20
>>> llama la data con el formulario? Me interesa maximizar, centrar, =
abrir=20
>>> modal, etc.
>>>
>>> Saludos,
>>> Jos=E9 Luis Capel
>>>
>>>
>>>
>>
>>=20
>=20
>
------=_NextPart_002_0010_01C6D68C.78E22590
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 6.00.2900.2963" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY>
<DIV><FONT face=3DArial size=3D2></FONT><FONT face=3DArial size=3D2>> =
Perfecto... en la documentaci=F3n solo he visto la propiedad=20
lPreviewModal.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Hay que mirar mejor</DIV>
<DIV><BR><IMG alt=3D"" hspace=3D0=20
src=3D"cid:000801c6d67b$b5549aa0$1700000a@ozlan.local" align=3Dbaseline=20
border=3D0></FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT><FONT face=3DArial =
size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT><FONT face=3DArial =
size=3D2></FONT><FONT=20
face=3DArial size=3D2>> =BFPuedes mandarme esos =
obj's?<BR></FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Si. Van con este Email</DIV>
<DIV></FONT><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>> Ahora mismo me sirve perfectamente =
el=20
formulario que presenta Xailer. M=E1s <BR>> adelante tengo =
previsto crear=20
mi propio formulario de previsualizaci=F3n.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>No te digo de cambiar el formulario que =
presenta=20
Xailer. De hecho el c=F3digo que te he dado presenta el mismo. Sin =
embargo te=20
permite tocar lo que quieras. </FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>En su ventana contenedora:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>>>ÂÂ WITH OBJECT oForm =
:=3D=20
TForm():New( oParent )<BR><FONT=20
color=3D#ff0000> >>ÂÂÂÂ& ;nbsp; =
:cTextÂÂÂ :=3D=20
::cJobTitle<BR> >>ÂÂÂÂ& ;nbsp; =
:nWidthÂÂ :=3D=20
800<BR> >>ÂÂÂÂ& ;nbsp; :nHeight :=3D=20
600<BR></FONT> >>ÂÂÂÂ& ;nbsp; :OnClose :=3D =
{||=20
::oPreviewDC:Destroy() }<BR> >>ÂÂÂÂ& ;nbsp;=20
:Create()<BR>>>ÂÂ END WITH</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>En el propio TPreviewControl (que =
est=E1=20
documentado)</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT><BR></DIV>
<DIV><FONT face=3DArial size=3D2>>>ÂÂ WITH OBJECT =
oPreview :=3D=20
TPreviewControl():New( oForm )<BR> >>ÂÂÂÂ& ;nbsp; =
:oPreviewDC :=3D ::oPreviewDC<BR> >>ÂÂÂÂ& ;nbsp;=20
:nLeft :=3D 0<BR> >>ÂÂÂÂ& ;nbsp; =
:nTopÂÂ :=3D=20
0<BR> >>ÂÂÂÂ& ;nbsp; :nAlign :=3D=20
alCLIENT<BR> >>ÂÂÂÂ& ;nbsp;=20
:Create()<BR>>>ÂÂ END</FONT><BR></DIV>
<DIV><FONT face=3DArial size=3D2>Saludos,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT><BR><FONT face=3DArial =
size=3D2>-- <BR>Ignacio=20
Ortiz de Z=FA=F1iga<BR></FONT><A href=3D"http://www.xailer.com"><FONT =
face=3DArial=20
size=3D2>http://www.xailer.com</FONT></A></DIV>
<DIV><FONT face=3DArial size=3D2>"Jos=E9 Luis Capel" <</FONT><A=20
href=3D"mailto:jose.luis@iaicom.com"><FONT face=3DArial=20
size=3D2>jose.luis@iaicom.com</FONT></A><FONT face=3DArial size=3D2>> =
escribi=F3 en=20
el mensaje </FONT><A href=3D"news:4506be18@news.xailer.com"><FONT =
face=3DArial=20
size=3D2>news:4506be18@news.xailer.com</FONT></A><FONT face=3DArial=20
size=3D2>...</FONT></DIV><FONT face=3DArial size=3D2>> =
Ignacio,<BR>> <BR>>=20
Gracias por tu respuesta.<BR>> <BR>>><BR>>> El data del=20
formulario no est=E1 en =E1mbito, pero las propiedades <BR>>> =
lPreviewModal y=20
nPreviewShowMode te permiten modificar varios aspectos del <BR>>>=20
formulario.<BR>>><BR>> <BR>> Perfecto... en la =
documentaci=F3n=20
solo he visto la propiedad lPreviewModal.<BR>> <BR>>> He =
modificado el=20
m=E9todo Printer:Preview() para que acepte un tercer <BR>>> =
parametro con el=20
formulario padre del preview, de esta forma deber=E1 <BR>>> =
heredar el icono=20
del mismo y mostrarlo igualmente.<BR>> <BR>> =BFPuedes mandarme =
esos=20
obj's?<BR>> <BR>>><BR>>> Desde el metodo =
TPrinter:OnPreview()=20
puedes disparar tu propia ventana de <BR>>> Preview y retornar =
falso para=20
que no se dispare la de Xailer. Por ejemplo:<BR>>><BR>>> =
FUNCTION=20
MiPreview( nShowMode, lModal )<BR>>><BR>>>ÂÂÂ =
LOCAL=20
oForm<BR>>><BR>>>ÂÂ WITH OBJECT oForm :=3D =
TForm():New(=20
oParent )<BR> >>ÂÂÂÂ& ;nbsp; =
:cTextÂÂÂ :=3D=20
::cJobTitle<BR> >>ÂÂÂÂ& ;nbsp; =
:nWidthÂÂ :=3D=20
800<BR> >>ÂÂÂÂ& ;nbsp; :nHeight :=3D=20
600<BR> >>ÂÂÂÂ& ;nbsp; :OnClose :=3D {||=20
::oPreviewDC:Destroy() }<BR> >>ÂÂÂÂ& ;nbsp;=20
:Create()<BR>>>ÂÂ END =
WITH<BR>>><BR>>>ÂÂ=20
WITH OBJECT oPreview :=3D TPreviewControl():New( oForm=20
)<BR> >>ÂÂÂÂ& ;nbsp; :oPreviewDC :=3D=20
::oPreviewDC<BR> >>ÂÂÂÂ& ;nbsp; :nLeft :=3D =
0<BR> >>ÂÂÂÂ& ;nbsp; :nTopÂÂ :=3D=20
0<BR> >>ÂÂÂÂ& ;nbsp; :nAlign :=3D=20
alCLIENT<BR> >>ÂÂÂÂ& ;nbsp;=20
:Create()<BR>>>ÂÂ =
END<BR>>><BR>>>ÂÂ If=20
lModal<BR> >>ÂÂÂÂ& ;nbsp; oForm:ShowModal( =
nShowMode, .T.=20
)<BR>>>ÂÂ else<BR> >>ÂÂÂÂ& ;nbsp; =
oForm:Show( nShowMode, .t.)<BR>>>ÂÂ=20
Endif<BR>>><BR>>> RETURN .F.<BR>>><BR>> <BR>> =
Ahora=20
mismo me sirve perfectamente el formulario que presenta Xailer. =
M=E1s=20
<BR>> adelante tengo previsto crear mi propio formulario de=20
previsualizaci=F3n.<BR>> <BR>> Much=EDsimas gracias por tu =
ayuda.<BR>>=20
Saludos,<BR>> Jos=E9 Luis Capel<BR>> <BR>> =
<BR>>><BR>>> --=20
<BR>>> Ignacio Ortiz de Z=FA=F1iga<BR>>> </FONT><A=20
href=3D"http://www.xailer.com"><FONT face=3DArial=20
size=3D2>http://www.xailer.com</FONT></A><BR><FONT face=3DArial =
size=3D2>>>=20
"Jos=E9 Luis Capel" <</FONT><A =
href=3D"mailto:jose.luis@iaicom.com"><FONT=20
face=3DArial size=3D2>jose.luis@iaicom.com</FONT></A><FONT face=3DArial =
size=3D2>>=20
escribi=F3 en el mensaje <BR>>> </FONT><A=20
href=3D"news:45069791@news.xailer.com"><FONT face=3DArial=20
size=3D2>news:45069791@news.xailer.com</FONT></A><FONT face=3DArial=20
size=3D2>...<BR>>>> Hola,<BR>>>><BR>>>> =
Haciendo algo=20
como esto:<BR>>>><BR>>>> REPORT oReport OF Self;Â =
// Self=20
-> Formulario<BR> >>>ÂÂÂ&n bsp;Â TITLE =
"Informe de=20
Erroes en Carga/Descarga de Terminal"=20
;<BR> >>>ÂÂÂ&n bsp;Â=20
PREVIEW<BR>>>><BR>>>> COLUMN OF oReport=20
;<BR>>>>Â TITLE "Tipo" ;<BR>>>>Â DATA=20
oMemDataSet1:cTipo<BR>>>> //ÂÂÂÂÂ =
CHARSIZE=20
1<BR>>>><BR>>>> COLUMN OF oReport =
;<BR>>>>Â=20
TITLE "Proceso" ;<BR>>>>Â DATA=20
oMemDataSet1:cProceso<BR>>>> //ÂÂÂÂÂ =
CHARSIZE=20
20<BR>>>><BR>>>> COLUMN OF oReport =
;<BR>>>>Â=20
TITLE "Descripci=F3n" ;<BR>>>>Â DATA=20
oMemDataSet1:cDescripcion<BR>>>> =
//ÂÂÂÂÂ=20
CHARSIZE 150<BR>>>><BR>>>> <BR>>>>ÂÂ =
WITH=20
OBJECT oReport<BR> >>>ÂÂÂ&n bsp;Â :bWhile =
:=3D {||=20
!oMemDataSet1:Eof() }<BR> >>>ÂÂÂ&n bsp;Â =
:bSkipÂ=20
:=3D {|| oMemDataSet1:Skip() }<BR>>>>ÂÂ END=20
WITH<BR>>>><BR>>>> RUN REPORT=20
oReport<BR>>>><BR>>>> No consigo que la ventana del=20
previsualizador muestre el icono de la <BR>>>> aplicaci=F3n=20
(proyecto->propiedades del=20
proyecto->apariencia).<BR>>>><BR >>>><BR>>>>=
=BFC=F3mo=20
puedo tener m=E1s control sobre el informe previsualizado? =BFComo =
se=20
<BR>>>> llama la data con el formulario? Me interesa =
maximizar,=20
centrar, abrir <BR>>>> modal, =
etc.<BR>>>><BR>>>>=20
Saludos,<BR>>>> Jos=E9 Luis=20
Capel<BR>>>><BR>>>> <BR>>>><BR>>><BR>>=
>=20
<BR>> <BR>></FONT></BODY></HTML>
------=_NextPart_002_0010_01C6D68C.78E22590--
------=_NextPart_001_000F_01C6D68C.78E22590
Content-Type: image/png;
name="2006-09-12_165140.png"
Content-Transfer-Encoding: base64
Content-ID: <000801c6d67b$b5549aa0$1700000a@ozlan.local>
iVBORw0KGgoAAAANSUhEUgAAAgAAAAD4CAIAAAAVRMnwAAAABmJLR0QAAAAA AAD5Q7t/AAAACXBI
WXMAAA7EAAAOxAGVKw4bAAAVKUlEQVR4nO3d7ZXjNrKAYeS0OTmnm8H+cBAK YALYFO45mwO3bbk5
aNQnQQqEhPc5tA9UKBRJjMSa7vaMywMAsKQSJQAAPlOJEgAAn6lECQCAz1Si BADAZypRAgDgM5Uo
AQDwmUqUAAD4TCVKAAAMtR0U1TOVv/7J+b0ml5bRt0o6X+EVjB265pbPuPca kltx70WqDl32iy7+
dZUxj69neil/JI+5GsCTcbrW0XzV+Qovom1MK6rxEned3dwF7WKs+I38C87n nPG6ypgHDSDrfIXX
EbuiiGq8xF1nN3dBuxgrfqP8NVsJ572uMubxbADN93l+/fq1//s5+HJBA2hD 0TvMSSgVOfsKg093
yFQbdTvrlsP4YxpFOJpw3usqYx7PBvDrp/2hX+trANuv8hwUORe+w/wEOVtH mlm1lJVjpVkJMuch
1FNNmrrKyilR8cxsHVHXlp8eP+XjVubDPYW1Khm30qwpa7laQa5SM0/G65dO vlyopvk5MrOJ+Mlq
At6F/BbQ/jXB+W8BfT39n8fXuMjp8A3kJ8jZorGSrXyZ6c9mEvwcdYmar2Za FZxZUe/ArFrQioeZ
NXVWXfWzWBu3lluK61C+mqOu/Vmyjdcv5RJ/tsmRHoKTLPMzOXgXzwf9rn7u f43/qBxtAPvT/3kU
mRG+e/wEOVs0VrKVXwvL+kXCczVTYX5NTX5o5Kwo9ntWnaoT1IJWXM0stkyp o5nNrKTmW2uj3CIz
rbWZzI7Zx5GLvDD5gTe0fwvo+e1++Vv+3aEG0Dz9r28A6jtPDTZTajBTpKNC mOnwK5fEtTlLwjpq
sprZneav9Rf6mTK59hDUWWtJPtlPS2bWL5tZa+0juh4rua+Cuhzvov4ZgPye z3Pq67f/h34GIJ/+
ZxuAQ813SoXBQ8n5ClamJV+5DjrCIofimUg+TcadhVb8IRSbmmYtlxEnuVxx C02kfulMNZE6aE1Z
meqUlewUweSarwCabwF1fAWgPv1f1QCsfKdUGDyUXCL+coeVr8ZLJFPkUJ1M xE+zqGszY0cR1Flr
VZiZyc+MrVJOvlwuI7VwuZVZRyyyCCa3N4DnN/rrrwP24NGvAMq//lAOJS96 35hvNGPV0SkrP59c
Iv5yh5WvxovrIVhTZgktvw6qCWq8RML61jijVGTQSg4zM/mZsVXKyZfLZaQW Lrcy64hFFsHkLv8K
wFKUUPS+CRMaTr46ZeXnk60KUj7zyco/eRlPh4pb6uR8wfwprPrWWK5S5Zfk MzP5mXFYqh74meVn
QWvWST5aGe+o+Qqg+SKg72cAqqKEovdTmNBw8tUpKz+fbFWQ8plPVv7Jy3g6 VNyxJ1urZMFDp7Dq
W/FHVd86hZy18p1MJ7lo1/MQl2rF61mZ78TVzMdPcsrKVKecZLwp+RWAhQZw Ktlabjl5Op+Tf6h+
+ekh5Kv5wWbKisvZzFSYrAbVCk4RZ4mzKsxXK/iZYTATD4N4C9vIvwuoDUXv mzCh4eSrU1a+n9xM
FVtY05my8g8lW5z8YguTnQRnVc1a3sweWqVS8606atBiFWlmk6vCfLVCibwi +YE3FPy2X4jqmYoS
it46YULDyVenrHw/OZzycx7CofxDyRY/vxj85EOzorZZJKwglzzs+uqS7rj0 0Fizzip1Kh98HLxI
J1nmJ9OAWlFC0VsnTGg4+eqUlR/G/Sk5+3jxtTnFVWF++clKe0SlnNnkKayE cOFDnMLKt6acJY/0
9T+66qtT+aCcdXJkZhPxk9UEoFGiBADAZypRAgDgM5UoAQDwmUqUAAD4TCVK AAB8phIlAAA+U4kS
AACfqUQJAIDPVKI/YwwA+Ew0AABYFA0AABZFAwCARdEAAGBRNAAAWBQNAAAW RQMAgEXRAABgUTQA
AFgUDQAAFkUDAIBF0QAAYFE0AABYFA0AABZFAwCARdEAAGBRNAAAWBQNAAAW RQMAgEXRAABgUTQA
AFgUDQAAFkUDAIBF0QAAYFE0AABYFA0AABZFAwCARdEAAGBRPQ2gFH2VFZfy mbW+VduJhY29zuUF
nUiSv9D5Jes+YyhfOZ9Z61vV7arTzfwuGmnkRebPlc9UnVw+Xs/lqk+NQ4+S fGatb9WFXn0BZ+p3
NIAzp8t49/ov8urLfnX9q7zLdR7ydjfVc7k0gAnRAN7Fm1725T5yH97upnou 93mT9a2qEdkS9kiY
eWZVkxYudMZWZj2oOWv9gs6srFPbZzOl5MI97py9/neT3yQ34yYY1rcyG/ts ftWeb12ArOBkymQ1
P8yUp5aZTcQv6MzKOior2SmrrspXcJwvWy+sB07NJq7WbyJ1kTBTrnISBug5 t3qrdURONQM/s9ax
qvvC8sHMSZ0lfsHwlvOZ+eVqMDP2K/izycyav9xZpZ7LqeBErNs5GpSXat1I R8HwNlVqcqasf7rw
XlR9Zffx0cuWdWTEvxG14KbVzCSM0XPi5iaTvzD5YO3Mqsyv7paupg5kjhVP Vg6DtfyqC8+eT77w
pGrwRauaBJmfP4Wa4NRRF27pUx+6TVW+Qrh7m3E6/17UTGfsJPRd9slflPBE ajDcitfpOXFzk/Ke
8zsS7oK1qmatss7SrHLGTbJaUL701zZpctYP1qxVLz17PrkJOpcUnlQN1qtk /cyqOigrPAd+fh2x
xmrZJk2+9Nc2aXLWD1ryFayyzjhzL7W+sjKnfhnW9Ots0Y2EJ1KDasIYPSdu blLec35Hwl0IV6ms
C5M5W+IUyRtUI5dfQy1cpWbKYFgnHHdsVz5YC1epwlXOuZIbmz9F8gLCgv5s 8iyNfAWrbD6572K2
qOw+7ljiJBxdEm57mDBGz4n7NjEfrPWtsnI6guVvmSUyoq7dtDr5C6vlV/nL wyXhOHl3+Q1pxmrw
0Crnqo6OO4KHLiCzdtPq5C/Mkq8Q7pKabN2Lqq/sHu+7bH+7whtJ1skkjNFz 4nATt+8Nam6sVPzM
S1ZZY7nQOUW9XB0k19bJdSQ/u2mcs4fL80uS46aInK2DYZ3NIE8UrtpPbZ10 MypY+VayjO8v96A6
SK6tk+tIflYdhwl9ZWWFOnjmYupxpmx4UjWzVmc2Z2ySZXAzhAkD3HluYIx7 P2NzmmpPprqYpbDv
+Hw8X6Sp9mSqi1kK+47Px/MFUPHBAIBF0QAAYFE0AABY1EsagP8t1/w3ZPOZ qo7l1pKOUuepJ5XB
W65tO3Lek5l77GvQHN3OrAU+xid/DvLPnd2FDaBjSSNTIZNzu/xFhg3AmgLQ 4ZM/QPnnTu2q32L3
raqdrzCJ/I3QAICRej5Az09p+dseqT+6dfzQrJNZqxOaSF0kzFTJHL+OPJeV Zi3cg2HC9vNEmZoN
p2ZzGWFZ/0rq/L7MarYdWFP1y1L0hU1mJlmOgc/Q86auP8DNWA7ys07mro6o Y7/gptWUwrNsxolq
hxZat68Gm0G4pJY/UZgQLnHWhpm1PSYn6yk17Tl2IplkOQY+Q8+bWv0Y1+P8 B17OWglWpImHdawK
tfDCNqN4LYwfqpzcvfBOD61Kniu/pHYk8/egOWSONX4OmpeZ5GYh8El63tf5 50XHrJUgXz4jO5kT
nsjxTJMX4J+xSW5eZi61HvvB8GLUC8ufKEzou5J8ZhVsB07Oc1xEk3gOZKkw uVkIfJKe97Xz2bYG
+dlMwtEl4SNGeqY1ycbjSS/YfXfJewkvJp8w7ErywdoeM3a6nVLTnkFZKkxu FgKfpOd9nX9edMxm
EmRa8oybVsfinHEzimeSw6tK3kt+SU29gMyVOKvyV+IXbMZVsB04OUfHYUIz Bj5Jz1s787zonrUy
a3Xm86UMqpnFOKNKTcjXUS+gzreK1An+6cLZTdivwcm0yh66kjooM63lTYXv 2Xbg5Owvi/iTYvXL
Znwk2b4I4N3wbl5L3/OrbxWAyfHBXkvfo7xv1SVKmegAPgxv6rX0Pcr7VgGY HB9sAFgUDQAAFkUD
AIBF0QAAYFE0AABYFA0AABZFAwCARdEAAGBRNAAAWBQNAAAWRQMAgEXRAABg UTQAAFgUDQAAFkUD
AIBF0QAAYFE0AABY1OEG8N///w8HBwcHx7RH9BT/jQbAwcHB8TnHn//+v+gp /ltnA/g6B0fyYLs4
ODgGHPujJnqK/9bfAKJE/IPtAjAADWBGbBeAAe5vAOVv6tSyaAAABri5AfD0 V9EAAAxwcwOAiu0C
MMCdDaB8U1c5rFV91SbkfMEkg1IyLWRtsgwCeEef3AA6Kk/C2q5t7E3RAIDP dlsD2B/WHT0gsyST
My0aAIABpmsATTyT46zdZ2VELp/HoQag3lczWwf3l00pq05YvKkD4F1M2gDq KZnmx/vGU1G3Kz9W
B9bYr+PXlEsAvJF7GkDz5HUeTy8dT6uvAcigmnnV8rAOgMnRAGakbldDztaR ZhAGt59nySwvP20A
3s2dDUB9gowcT0tuV5Og3kJ9jzLt8uD82wjAd0MDUB/Be9B6WMvx0Xx/PJVm u9Sc/fabiDWQwfOZ
chbAG3njBiBLOS9LxcqfR74BbNWtyamtusc6P5+ZKV5HALyRGxoAQq/YLh7T ABo0gBldtV3W79wB
YKMBzOnC7eK7NAAsNIAZsV0ABqABzIjtAjDAuAbAwcHBwTHbMagB/Bn9/+k5 9oPt4uDgGHAMbQBR
Iv7BdgEYgAYwI7YLwAA0gBmxXQAGoAHMiO0CMAANYEZsF4ABbmgAxbBPucWW 0DQAuSdX7ZJV56r6
AGZ2QwPYycc9DeBJNgC5UWLRYZcUAfC+5moAeFK/Aqj3in0DcN5cDaCO7GMr rYnLtPeVbwBOUN3M
OlluYPNvK9MKAngvszeA/XnUxP3xu7N+BuAMmqA1zq/yM2UQwNuZvQHkx5/k fAOQwTAhDMpZKwHA
W6ABzMj5r4Ce4/xT20qo+ZmbYNUH8F5oADMa0AA24WQmgLczewPYn3dN3B+/ O//PATR3LdPUYJhw
Mgjg7czeAJy0Ji7T3pffAJqI3I1m1l/VkWkFAbyXOxuAb+XnS8d2AcBRNIAZ dWwXABxFA5hRx3YB
wFHzNoCVsV0ABqABzIjtAjDAuAbAwcHBwTHbMagB/Bn9/+k59oPt4uDgGHAM bQBRIv7BdgEYgAYw
I7YLwAA0gBmxXQAGoAHMiO0CMAANYEZsF4ABbmgA6h/xDf/cb5jgyywPc8KE ZE7okgYgr6KJfL3c
DyvezFp3Fp5LjQC4Fw3gQE6YkMwJXdUA5JNdHftTdUTWVIPPl84pAMzghgaw iadk5qGZyZnBJdd5
VQPYfj526+e4la/O0gCAjzRjAyiVjpwmKJfvY3W5Uy1M2IwTHSUbQDG+G1MH rYQm0gQzs82UfxY/
CGAe0zWAzMM0M27ItOfLTCkr2Skux4eI7drkuBiP/kODmjPbTMnrUa/QGQOY wT0NYDOeqs1s5sFq
jRuZJWEpGSwVZ+FRTgNQg+o4M6jVs82h5siX+TGAGczYANSpo+NGZklYqgnu L8OFR+W/BeSMZVCd
anI2u7LMkUuKaB7+SQHcaLoGYD1Mj44bmSVhqUyyuvAo54fA4WPaSfCfxdas U1wukZX9kwK40W0N
YPt+VjaPy8yDNTNuZJaE4zDBGR+S/BlAPuH50lqy2dWcKTm27tWfBXCX6RpA HXcepjJB5tSsUodO
4SSoOU1+3uXfAlIjRXyXRk3bjJpybN3rPtscAO51ZwOAhe0CMAANYEb1dsnf OH/MAeBeNIAZsV0A
BqABzIjtAjAADWBGbBeAAcY1AA4ODg6O2Y5BDeDP6P9Pz7EfbBcHB8eAY2gD iBLxD7YLwAA0gBmx
XQAGoAHMiO0CMAANYEZsF4ABaAAzYrsADHBDA1D/irTw700LEz7JJQ1A7lYT sf5WBufvbLB+BcJz
qZHLdV+elbDHw8r1QO6eDL5oNw5dZ0eOk3njXaMbDWBGVzWAZsPql/mpOqJ+ hq0TOad4kasur77f
feBXVu/On32F/HVa2+LnbEa1JsGZxVRuaADbX++MH0/zzMM9k/MxrmoA288P YffnNv9EqPOt58vr
XHV5civCys6mqbMvkr9OuQnve9foNmMDKJWOnDqYTJuNbABFfAW9f4Ctj2vm E17LfKqtms0SJ5h3
4S1nLk+N52/c2TR1NuMVOxDeUSbnpXeNkaZrAE780NiacvLnIbZrk+NiPAUO DWqZT3Xz+Xci/jh0
5pb7Lk+N5CtbC/eX8vC9aAc6Bplq1sujd43B7mkA219vDuWJ3MxaD+vM2Jpq ys7JaQBqUB1nBrV6
1vrQNhXUgplx6JJbPnR5aiRf2Vqovsx40Q6cGQy4aww2YwNQp46O95c1Gd+m lP8WkDOWQetz2wSt
yjJHfSLIo8lJOnPLHZcnV1kVnLgcW5GMF+1AM8gnZ4rU+u4aI03XAOSTum8s XzbKNyvhRs4PgcPP
3qFPeM2adYr7T4RwKqnjlk9enrMwU9k5S5/wLB3XKZeHyZkitZN3jQFuawDb X+8P5RGcebhnxtaU
kz+P5M8A8gnPl87HtWNKjq299GdV4R11JOQvTxbMn1o9y6F7f+q4wUMJzSUV +ycKzvjyu8Zg0zWA
Ou48rGWCzPHTZPI8Lv8WkBrZa8p4I/lEsLZzn22O71l92clbPnR51i0nK9f5 6m1a8e+1g3bAyszk
XH7XmMGdDQCWpbZr2jY8DDuAu9AAZlRvl/rbqM84vm+wfUeFCz/mWHMHMA8a wIzYLgAD0ABmxHYB
GIAGMCO2C8AANIAZsV0ABnjXBlD/R5zWf9A583/o6bt8uwBAogHM6PLtAgDp XRtAjQYAAB3uaQD7
o1k+o0vFCapjddWZynehAQAY4M4GUMRTWx0ng8lqhyrfhQYAYIA7G0ByXL7V NcNVmbFaeQY0AAAD
vEED2KondTLTr2DFt2nQAAAM8B4NoI4U+7s3ybFUV54BDQDAAHc2gJJ7lCeD yWqHKt+FBgBggDsb
wKY9bUvFCapjddWZynehAQAY4OYGABUNAMAANIAZ0QAADEADmBENAMAA9zQA +NguAAPQAGbEdgEY
YFwD4ODg4OCY7RjUAJ6n4eDg4OCY7Yie4r/1NIDw9BwcHBwcdx3RU/y3ww0A APAZaAAAsCgaAAAs
igYAAIuiAQDAomgAALAoGgAALIoGAACLogEAwKJoAACwKBoAACyKBgAAi6IB AMCiaAAAsCgaAAAs
igYAAIuiAQDAomgAALAoGgAALIoGAACLogEAwKJoAACwKBoAACyKBgAAi6IB AMCiaAAAsCgaAAAs
igYAAIuiAQDAomgAALAoGgAALOp/ASNX/w2jslcAAAAASUVORK5CYII=
------=_NextPart_001_000F_01C6D68C.78E22590--
------=_NextPart_000_000E_01C6D68C.78E22590
Content-Type: application/octet-stream;
name="Printer.rar"
Content-Transfer-Encoding: base64
Content-Disposition: attachment;
filename="Printer.rar"
UmFyIRoHAM+QcwAADQAAAAAAAAByhXQgkDAAfR0AAGBXAAACRdfc6+92LDUd MwsAIAAAAFByaW50
ZXIub2JqAPDGkEUUJdVUzMjVAB4eer6Gm02n9EY3I3I59BIwkAkgiSAQCFBN JONAm0okmm2EBCaS
bSc60kJJyNylKSwjIEoYW+MA8epaX2OSBQz1LlKW+y26wMt9Q1711ltzR7Wj 2etuHr5tKey318XC
56lwLkzXN86pG11rnO/Svoajd1n5Z+DCPveb3vm+b5vm9/Oc71ra/5Tf8E18 /3N8+b5zvzvePj0a
JrT/DwtWZaSY2RIgQuDGw8bguZESLKhSNzkmcm1M6BqrqNINfxYOyZ9Z1my6 /c9B67QfXi51Tufv
8Pb9fofrhf5ff9Pv9z02gsA3Igzhu4EOFjv2kLE3MPQ3Wg7MLeY83JTluB/g 5wt1qgvBcvCG4QY1
YHCxPX3lgF5EqIaUxbAfd9T+DGyC+FolxYRqeGZKvQoesWQ/jw4kCSmsONy7 vdhqBPrQwncAObOL
u+ogdnwcmG/kYZM1UOxNNh4cF/KQT+sAZd9ibzaB14eOPG3A8f6/kMbkPzNj QH5qbGNmveB1lQ9H
p/Bm43IFnxH276k7rJlP4HCLcOtA7u2xd3tQ6v48SJKUyDd4s+8fRC4p6P3v y4HXBrJ0aYWJJTNc
HyO73gbxDYUgMbAAzbdtttWTBMOBA6/r1FxEx8fT0DHgZIY6cHbh74meJPDg FQ9mD1oe4EY+aCbi
6eiRtGx/kSow+keRGjxIKGpmyG7bSql/qSFjycnHCtoD1we5MKRwyYdw9Pz8 RtUsM6Wh5Eg3HjRd
PZCBi5ESDqGFYeMH6IvCi8QK6W8Minw38lCW3YnPWVHK+609sY8iTDlae8Is DceNGN1NFx4EiCHe
JGgSjdPy3IjwDzIkfT3SFRIMjUI1pWVHhSdTbiA/DOnSQQsTU1TAkH4StPmL 7+N/EMhGgcLdae6M
ZPakYmoR+w4RpqQOnS0UjyX8nKiwB9y7acjU9FZMTUtXoMCEH6CImnvKIh6f H/Fw92x0/KuPjz+Z
M9bH09FN4sLJjk39NPw0gjknT5bYPQ8c3T8pkQtQBjmqRI1KEGLClcThalGl IhYupIfDhSBQI0UU
U3UHOSuHGyJWpR6ZEmFqGfY8mHHJvk9cPviwYmpPHI+uNI1JlExiR997/FIu oT9R40ceP4pVbwOh
dq8nB609ELl2VJgj6Y+fii2afrF/EIQyLK1LTpJs+lqaFkwI+pwmQY3Ekp8l LE7/0t0HSHhk2vZQ
7e+uaHeVIfwIQX/x3ntMQ7EfRkR9zA04GZ8bEx9PdARA0Z5KbUa1XGDuji6Q TGyY1fVB8Y6Ikmms
vGgB1LzwlOFkXBqgpZMrUAbyIBJu9QQ4U+KBDHZcJqKngmxMMOj6LiRDdQix GRI2noR42QaaPqn4
APS4sCOaTms01zsGf0Otwl4wmoxqJ4wPHY3PDDvw8ePkIO2uAC+XB0jzLVhW j8vemVT541wXi1m4
aNSd7Rk8ZLS/pc037pxfuVr66du1hP8ufNr5s8fVhf2U+Z5tWZ6XGrFSsxDt 9/rVtUGTlV1g6bLj
F9aC87oy7nrOfOP83zV1i+vLp9d398+wWTNuyPUM6ZMh0AadvnLJ0yvTNVSF D8HbwywTJOdGfouf
7MLJ0ZIXU8vYKLxy6nUnqOiK5z0U8DumrzCzwZcVM+3a32/eXhmuqZ3AbNCH NYHvRGctmruoXVo1
u2V+3eXWfTNWP5buHVQVrS/czVgmWiZhIv0Q83BqCc7eMnl+7qGUD3NFS+Ic bOD/dfpDqHXgX7Ju
2eYRltUWcbztNTNlpDO/avEu67PYeVF9LRwzv70mNO5yZ5Rlqd8aLLyoOsnO dPehXzKdozW6U5eM
nTVA3UHy9HTvGlOTqu55V+g4S3qeqpEEzW9LguM2dTNubzC0OZsm6CHsQ+Bt xd3ZHDmV6aA1vXLz
CqGH4HR+jISl6ym14Z6MBNCWjPSGGjVu1CtN0kK5Z2Zs9MQUopKEvxOjZ24u u4as6IopEK2osmMn
c+G+Ms6ZDa3zQyuTJklRoTho4k0b78y1oEmWiUhBSUspGKRnmZIXnThvd9Dv bw+XQ1qZrA3ZaLhN
dcAkirjAMsVFaRj3uirpHVEkkdH7uGZmqpMyX0/duZa6VvipNOomV04DNtUV 2XIpmr0qpQL2lJij
dxvywMUHivLs9m9M1lE6Rq9bT2ks/6RauiuuaM6LQWc5k3oYJOFfXl6R0F22 btaCI3PLbXtDRbR0
dGMFFAyn40NRSP4vXJ/ZyeEWcPDfcPHcyI0CFJku8rHw4xskSBVrkwoGRKhD CWkPXIO3hLGCyfOM
PG38KVow9M0hcOJOyzfx3+HENiSoh4jIxeVOySezKwzGBe5/IBZV9C4hi9FT xpEBJDxJEI92tTKx
TTLIveeNCx2Sdzr0yLnRJvm9EsGUGCZYpnHUInq6ZJ5drQISsg9C7PU4hPQm GMKJSHhmcleZ4XxG
MlZhPzydZ0NVZUsXzV1caQynKtvB4twLOn1NaM/oKqc3ghr1gOTXAvpZBfVK E4dVNZ9BatIg41XD
7AnKdh/YJgsMrPc4v64/37L73k+TjIkYbmuULMAFC/thx3tsHA0OPvi7S3Dh /aHH09aHDODj9vXB
wWa8WWHH+kULYBw/eHF7sukN+Pi/6fpC/2Y+FftOkNOPj7wvOuQ4e4HH3uoC Hb36e2AwL/lYK2Hd
Eh9dpHazlc6G4pLfunhk/6yd36BHle/icj/WVhWP2fwez7y5ygSwuV8M4GAo gkNOYdlQjGrN3/fi
dp8EjX6D/e5X47ol1dLPaxue5TY1mQ5J/xwEVT+mxxjKS994+73u9I19+Hn3 4eGHyrnRHn4QXPDH
tLPYTa7nAr9RAIZO9cr/1op/FIuCNh27nRp6Nq3SjWcf8CshuTm3+pNfo1Z+ 99BtCtlDCcgNzPP+
6qzVjxXm1/Q8yze9rm7Enfci6p78jN7EW+EyE4E8FhCxRGi78XyxeGLxReYL 6Avpi+qL1hf0i9oX
4RfkF/3Fmi/yF+4XxjXLVDWdYizrQC3FtRbcXXC7YTQTYWALgifijClCyheI L5ovnC+kLMF6Qvsi
+4L2RfiF7gv7hTBfqF+wXPBS1o1zF41L1gFwLpxdaLeC7IW/E3FwBPhQRRBc R720vjC8R728v5xO
vmAuYfuy5n3Ht1zP7BqX7mh/MPvZ8z9z1pzVz1rMss/821FM2s1TOunP5vYi mMhm/Bc3CGubwp1+
bxTlM45EfkgubmPbvm+ucewL+oX5RZs0/8DP2zT/2CRHGWoQ8owLeKtuUIhF gPE8VpcrcTj+B0Qy
x8P7aEOhCHs+8scpJ+fayc7lPLlg6oXP2gTAnTlC5TfQ/E7Qly5X7JMpLBD7 eUuwnOMpDzyvh5V2
to7fOwFIcL9TtdkVy1ynZSl1SjMdnZxOeTEeP+A/ArHn6vBSPmlYDgJSez20 5R7S5dI9pNqtGPhC
O+eAWPH5ITyakCojmulmAIqKSe7yKYJ7+YPlgHmAByvx+z+hZ49o6dUYUbAO mzDHtkvP+Cy6dY3P
8dg2Wfi4FIFR+cOlI2/06ZwP9A/ldqIUy4P9dFpf6wT7OmNaP5pQ7vaCfcpL ekknrw/414fzjPP7
JVmLnu/zNY9ZZnYPbrM7knXhHGS9vMzkk/3lPW2Z9EXqC+w97jM+4L7wv0PW uZ+p73OZ/qNZ1U97
Yow3LtXvb52xmnUAuX2J4+d2ug/LuhrOcEP4Rw+GRJpGGcYFy/5T7+X6JEf6 wvXesyCxNOXzj187
/yS3+4FLqxqXqjjWDUvpyddqCIKsy5mjHdczujlLgTVzIZBJvDe3fM8sFL9A lvlku/2Bf8hf1C/E
L+0Uwif/mI9u8mLTlMYEEGswUwg23N2ZBRtzPz5vbEFK70UknX+Qls8+85vq k/0/NtzfwDPcF+af
fzc0Z+kEZ6HIMVGVn/6A1f9gmYHzVg+R7Eqr+0Tm6GfpV7v2NJGOZ5+4MzK0 mh9oLYAs3cCLvBZn
ajWaTaCzL0azHws2QLM4j1uUfongoyycV2qJ1uDEfz/Qlv2TB7fAMVBv8QTV 9TSp9gObUAfjYjnq
Rz2AmQ8EZ/eDfcHS9Fj0x/5J08Y6fLOn+cXri9kX5Be6L9Qv3CXbUIYHA/Fw E7QYrI4/yhvsjpu6
a/vTp4VMn8SbPji84Xpi+udPsC/rSa9uN/nFBF+sXgC545ttsdn1DntRffF2 YE3xwDn+U596I1JE
jTZ+UdPzhZgvtC/CL84v2CYdUEXIFG6/c0x/eC3xwdj9o3fCYJXTvRu5FHFv hccTxPBPP+sqzc+q
82s0BzbInXZE/22e57YnG9enLtxjkZ3wob1ZmxxmS9W5vhC8kZ5r2qzfQGei S/+qM9g49t6uzfxj
PeGe+L4XtXnEwPOshls9rM4ZnEX+cCX5wGcLOwXtbnDM4ZnAq7OAzhZwJhnA Z3qnH2jlnHGcCr84
DO917YZwzO5z2xziYPLGS6x7ZSxksZLnj6qWcSziWKXNJcM8OWcS8knUZL5I zyRHz2csCWTI8v1T
gmFyxSwXTSwJfuktjJfOOB4np2kwCYffazAJk9fVzAJh+esmATJ7dtMAmXj2 3mExuZPf1swCZDe6
6YTH5k+O4mDJk0mAtfMAmHEwUwUz2ydfxiJi8wUwUwUz4RpEbpb5SUFUpWGf TSt3KwM/8wfuC/uE
X+IUPH6wbcS/q0j64ebkH6wu1F8Yr8W3rAzig0/zijKOLrjjnk0yf5o59Ec+ oMOx4YP7Z0+4dP+g
viples6w6LE4oz+wHO5FvhXwr8XdCxRcOmY/wDp8Y6fni84X06ZX+oOfVHPs Dn8QvdHP6Dp/WdPx
C54l+3CNUE3AuoFuRb4XcgUbX4Q5ii8GbPijnyhfRFyxfWF9sXti/IL823R4 fX0Emk502TPPhUo3
Vs8VIjfPAbxUFXjxUgOFgvFSI4zxUJ4qCuTNERytgFHbbEK917sh7PFQVWPe nSHO2YVtnu0QHSHi
8e3I6HZ1zbKOEiN91AUmN1QG26kK3r3aj8jp7thFGyKNcUaoo0xRoijPFEiK MsUZJEY7qgfVi6wK
KMUUYZMYJMX4ovRRdqIXJEW6s/ZTQXfvEt3ARY7ilT9jTH+rFvBdkLfjnAE+ preKKSL5VMr/Imz5
guYdP15s/dHP9gvyilzZ/VNn4Dp+IS3chFeAd41503J09WLdC3wmVMv3I8Em e9YH3Ywu09aJbx0c
57cXHF+FJP+eN5oswXxi+yJolf/bpmP/6nT/eKZTNf/nNn4KY+Z1s2FwTWgH eNUdOrFcC2pxbC4K
WT69Xz5XrGeCrnDxehQay43zHoxquCwMxl7xH4QRn9ZBz7ghbBVHVupxGK0t xjmNmNUj2eYaugp9
84blUbVkUuVY3HTMawpR9oAvAnbi1eeuh0WLqwNfvGFDGMEPFc8ZxsePGiwt AS40X0kiItz3bqcy
lHmS7gNYL3cjoeetCuS9YjqjFaRFW64Nnu6B7sKT5kNDmO7ypCnei96+kFSH 4PL7A6ibCyIqzxUJ
4qChiArQypcxmjFi+097FQWbR33qPMJe9kD7NQXK2e9ogLsPO+EnysWCt10T wSRp8i2MY1xX/Y1Z
GcyIrQ3FMgwXytecifketbZapI9YAn+LCdk+Mv6VEVg62NgRYLjiRYUimQFi mCM38Xhv5IStC36W
ut8/x4U1LTDCI2SGqpPBoHcRsN5ElGwglcDr4FEp8/KqVTVYOxiz0o84buJx YTzKzwZlFVZrCwwr
cwsjDGvJFfoDHVNmNgTtjmLkr/WJ4KPLeFFxZUNK+2Iasg4rwbAM4ESCpfNU KzDjWg6yKzjRyf3M
krx0watA41ymKtIWI/yDZV1EizXahrVhxYA6sYbGkJXfWBq2DjXqNa0yI5sL JB24a1ocbAHYRUtR
20WCpftcK4DjYqYu7lP5WQm6XX2CcANopqC4PfhRSIkSMm47YBrYh8Y1dHjE +JROmTZ4ZxVpXoaA
N2V80ds2TlqQVAhIn/lwO3pch8DIfmxJWUD2Qa6eoYJVx+/vG2/vDzvjLgK/ Pt61aNr+9z//AMLg
TdxgZ8/+BisBNNEy7FweeXGloVcA9UBC4c+DiO4cbiXsaDC0ck5LkQBrI9yT j308+9ZN0cm12fs9
4La9J8S34KxMi2vga4uBrArX0UY2LCvsjHw4SUDCks+xBz7iQbGv5R/y9DPm zDW06RqBslLylkAe
VFz04OwTPky4/NMyaRE2hdljLuWNyVKgr9CsasNcINbPD0IXr466cPqQrapK 6ujCaM6YFjqklLlA
vC2U5C2G0Z0FJ1aRwgM6J5dAcxpEqggdZQYM7E9VlhkPwoNBB3DHqEWBbRYk qISCni6MhvU2BE+y
nBjrZwNyDq2ejCV5Ju1ojnWg6xpCkypEbK0N2wCBrrgdlv4UpKUu7jdFkzhd UF7oGuQHc0I6sL3Y
OtK7NI51gXvAdg0jQMjHJKGkgbcL68GtdZEXQbcBfYJtWnqybuR32IOqQd6b 1qZfeg64+KRw0h0z
WKZ3sk2ldw356SJzrgvs0700n9j1ugvtEzrqFJjG5CAAhu7He+Br0BpyIWhe 8C+1TxRTZBGuvC/k
A7NA45h5UmJAfmoonYBfbA7FM+4xMSTCJnbsQvt2O9DLaShpz0LFMwrVDjkG 9lBY9mhJiwVNFySf
dJteQPSRKJoscu0C2YOraxYKBnfBlEAa0mponfEImh12oW1TzYguEJQDfkHX dg6wi5RNdsF3gOwL
D2/jp76pvbpoDYPRd4YYyC+4D0V4gy6C+5BsGcbIiooRDzMLvQdnv4RdvB2X 5m+kwrQLvqiiJMS1
HbgHZIYQojEQrsL4AOxIp6EKBEHfhboGvbSUtxA28TNvAdbgSIkqE0fyn+hj YLese4DLhMdEgNON
bxncIm4vI28VMd/bmoiER1k6eCgG1hJQiL0QNyBbYVohCEx7kvONbiVJwg90 mmNIWi4PNwFHrQWN
8hDfaKkLxlULpwUwPnUJCL9wF95pQekn9OQvvQ3SQkuE8cuAFvgbCj3qzdgm e74HYUvHMNYJoD9O
/0fGtNsUz2GDrqLjHG6pM7AB19JwiDdcmfgpysJcY83pkzMJNb0XFwNtUzuI DXI8VE3WJmMVNYJw
Q24oYOsT3TTdmmaiUjSp8Go3ZJn8Y60uIebr0jLFaUvHRAGtkfHHVhurD6Vh 7VGYk4fI8Y9d1Bw3
ZQk7i1y1WhPAz2TwGlqEHDa3X5a0hycfLo7n5gJ4RU3Ecng0X5Ehi9QTScBI l5wCkMENLGOEGO6D
S0og/dhdxtyeBBwSs33mgvehSEdZf+fKio/PBVi5grLel9EwfMMYvkE6C1uN URh++TtxzEsDvg0w
Afo5Qy6w3DgnwZdaiqlQJXyPXIag1lrsSZi4u0u+j2ZGNgBSst/sbu4rD4PB JKkeucso+61IroJD
htxBz+wVEZm30QatMkwQzLWsYSF+Ina8nPHwBiSwSMIXaxy69A1jKkLpZAyM ysCv+iGVDgnnv2xM
yYhVMtMNxYLAuTiqMnjDQ00XoLlZotr3K0jGxEymSg7ljjUES4wyM9wiqo2g UHjRnxwxFpSrBF5i
hMr0dcRuIwiOAozRQwrHJJj9mGz5YVSWj5ao+/naFR6PKvfg5AecZNFonH/t D/xXh/JVrDkt5FkT
mnEyhYGyYJsqCwLN2ry1ZIk2twwY5E6C18hlhY+VoEeGGEJD6orEogDXBNlx aVi7i0y1yF0Y5JmH
lJNkvLH8tFPS4pO1BwZ5PyQMqbiwY+AgfuHRPGG+UW+E9Ol4Iny0jXIYXZMf lpF/CCkX2aomywx7
NC9seN0L5iHajidnP3qreHPoI0Z4ZGX6bLtWPckPpbXza3sMvWIEEXIW9SX+ tN45X1lWpJalZ6OX
rqLEUTBUfYPqorzkAGewVMfDE0uKvLVL9ByQJeAgQuNqSA1j8xMDa1bG8g93 LMSIoakuVdvZ5dWb
4lAD45Egd74xLjdIvDI1SqCPKW6wMfK1AnO4qDBcUBCYtcbyTtlG1eql5ddW PiotSwIJx4yQWS4u
lCpjykLWsKoqxPKHak1a7kpz5tDIqIPyOAZTUi0rknZKgyiMPb7TLYUoks/e vN8cPNkx8hPx68uz
fK1Grih5LmNYJcmyvZklv8agyBEusoOnX0TG8agiIslWh6rjf9gebAG0QiTQ ZNahKJ4iot6+YlIL
a7G0oatrQzdqaFrzfJ0L+cWHouXFdq5qyRPrmz6rLkqqyQKxCZGuY/PQvpMX Js9IEP5AyqJsgLBj
Bj5SMspAaEPaD/7QCxoHp1XiEAT8sw+hGZnxUJZvMz/3myWF77Fj5oGCrDFk x/lBYWrJxszwVphY
bPmIbe40uKe1RA4oPimNvGy7QuBecKqEuBWpJrkM7IgDbJLCdWx/mBZRe3WM foA7Zj54Lg1Re63U
WNxPoJufa9j9EiyLE+rLtKbFj9JS1l7PJUjW+qF3HFy1VCKlWGlrGwo5KKpO BDY5a6i11sAjcpQO
m+hQ1pp4KFItsuvg0nuglgFx26nuga55Q9AYh7oPBoWxit0sQ938sC1gbrA+ lgfitMA4KqhjmCHk
tzdLUErkf1zi3KFwqXoi6Y5XQ0uVvRoasH0JL0V9U/a4+JQPrAZPSA4y+Mko KB6qY9QGKTyDv5wt
ckcHt/uC6xI0tJRzhuZRei/XpGVPRucsN61I4PbmBbBI0n4PXNouWqtT0XWh utD6Wh7R4Lf5lRFO
NF3MSk1YJZyP8VSW6X6IJYGVZQLPSJaRBn6vLWEITrIbUy1j9Qhge66bSIgx J9lJDvgVU/JmVUJC
TfTKD8PGFYo+N33yFldaKyLD1JoTUlAcsqk4wa12WvNvUyFoQGdj9RMTlCPq qQxperDkgANcoMDA
C5wfCVFChXMfSQt+IQZ+zKABwa1kThOVjGyTsVWXWl4p/+8BJgoJBJapjxCo GMt2W02Rl4b/RBN+
qhvp9BvI9U5V+Nl2CO0J6qPD2KGib9ZPHNAiZxs0mrUd306uhsIoZLyw1aEj L/4GJEODz0dwLJU2
fNwro8sF2h19Lf7JtSOb1/1zKNYaJyQVPfUxGqY/USCE4weaZxxHcJPFIzla yY2VLa4gbUrrlYND
FPLOReCqk7SjYcsONvlsKgxZNpWxUeLkesTYoq0qa+MvmuAYlWulFWtaFU06 IdEZLWuCNaz9FJYd
X7N44dM2TduZQrW7BTXTJo0z04c55eYRlTrXqlslqM0yo1sLR99QrYii7qat ikuk36m7zZR/dNWw
6XRQtR1sdSWKatkqjWxNH31KtjKSxT1sgn1I+i9JkZsWsMi2Gry8cNKCeSrq GzJuX36ShNLV+icq
TU9wTBEQBtt0it4lLghW6KlpOrujKnW/ahZ1f0mbS1HqZSVwhUK4H0tb/VCt 9ahW9mkrePS1u10u
t0ekVuQR9Wg7foU4KFbkuEaxxo9fEKwnUIo1igpbTrEmluZXm0l0pSBdFGTl Kt0NIWLKYP5Lkse6
E5CJikSySGu9CnTNrpV6PVNgKCqUOUtzoaD0Rds7p5SlK7zI9Vq9JWOL68Jw xXNLXfDmlru8qGop
KYECmrvnpdd4UVdzpGqE6BP5/b5lSKmnXL5nRWjNKvnzNCNdD9UiU+vqQDZC vRKXC3DmaiV4enNC
lCEkhksmEr1d9d0qpprT5NSqV7s3Q7UZnH1HYLNATwFP2rFZm3PGSE+T6nzt 0wdlOxSOZxR1+A+p
bVJX7tRr9Smr8t8z7hxdZ/eN2pFZgFJXxNF6BRmj0ZOXLckyxYYyZJQlSatC vaJiF9f3t0S5t0wa
HzhOtaDHlDufJzdpfQGt4nqCXKqiMkUUzg2dnUct+Yp9AiMmt7dppNLpYpPa 3cIM4YnOzRtVQAAp
/oFR8ndxzR/QJbi+TzWnnS9cNCF0yzu8cFIzquL1keKX6BvQ+gdXzMn0vgR2 6O6P0e8ak/tKkIHo
sz3HbUym+gjZwW7W7LcHjgkIV8TZh398YkvmTdDtMpfoKhKu5qTupQ80yieX KIkThWUdpEBSjIpy
R0RJDGUNdkZ1VOx9RaxIfQmz5DTmj+hM0PoSoi0MvL5BtS/Qj6TjlPoRzbIb sZd+tszd9UYl9Omx
5GKZR/Cmkf7FH/+pIv56FaT4cMjREnn1RmareKjOUX+97/9QxD17AEAHAA==
------=_NextPart_000_000E_01C6D68C.78E22590--
Attached files Printer.rar (7.4 KB)Â
------=_NextPart_000_000E_01C6D68C.78E22590
Content-Type: multipart/related;
type="multipart/alternative";
boundary="----=_NextPart_001_000F_01C6D68C.78E22590"
------=_NextPart_001_000F_01C6D68C.78E22590
Content-Type: multipart/alternative;
boundary="----=_NextPart_002_0010_01C6D68C.78E22590"
------=_NextPart_002_0010_01C6D68C.78E22590
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
> Perfecto... en la documentaci=F3n solo he visto la propiedad =
lPreviewModal.
Hay que mirar mejor
> =BFPuedes mandarme esos obj's?
Si. Van con este Email
> Ahora mismo me sirve perfectamente el formulario que presenta Xailer. =
M=E1s=20
> adelante tengo previsto crear mi propio formulario de =
previsualizaci=F3n.
No te digo de cambiar el formulario que presenta Xailer. De hecho el =
c=F3digo que te he dado presenta el mismo. Sin embargo te permite tocar =
lo que quieras.=20
En su ventana contenedora:
>> WITH OBJECT oForm :=3D TForm():New( oParent )
>> :cText :=3D ::cJobTitle
>> :nWidth :=3D 800
>> :nHeight :=3D 600
>> :OnClose :=3D {|| ::oPreviewDC:Destroy() }
>> :Create()
>> END WITH
En el propio TPreviewControl (que est=E1 documentado)
>> WITH OBJECT oPreview :=3D TPreviewControl():New( oForm )
>> :oPreviewDC :=3D ::oPreviewDC
>> :nLeft :=3D 0
>> :nTop :=3D 0
>> :nAlign :=3D alCLIENT
>> :Create()
>> END
Saludos,
--=20
Ignacio Ortiz de Z=FA=F1iga
http://www.xailer.com
"Jos=E9 Luis Capel" <jose.luis@iaicom.com> escribi=F3 en el mensaje =
news:[email=4506be18@news.xailer.com...]4506be18@news.xailer.com...[/email]
> Ignacio,
>=20
> Gracias por tu respuesta.
>=20
>>
>> El data del formulario no est=E1 en =E1mbito, pero las propiedades=20
>> lPreviewModal y nPreviewShowMode te permiten modificar varios =
aspectos del=20
>> formulario.
>>
>=20
> Perfecto... en la documentaci=F3n solo he visto la propiedad =
lPreviewModal.
>=20
>> He modificado el m=E9todo Printer:Preview() para que acepte un tercer =
>> parametro con el formulario padre del preview, de esta forma deber=E1 =
>> heredar el icono del mismo y mostrarlo igualmente.
>=20
> =BFPuedes mandarme esos obj's?
>=20
>>
>> Desde el metodo TPrinter:OnPreview() puedes disparar tu propia =
ventana de=20
>> Preview y retornar falso para que no se dispare la de Xailer. Por =
ejemplo:
>>
>> FUNCTION MiPreview( nShowMode, lModal )
>>
>> LOCAL oForm
>>
>> WITH OBJECT oForm :=3D TForm():New( oParent )
>> :cText :=3D ::cJobTitle
>> :nWidth :=3D 800
>> :nHeight :=3D 600
>> :OnClose :=3D {|| ::oPreviewDC:Destroy() }
>> :Create()
>> END WITH
>>
>> WITH OBJECT oPreview :=3D TPreviewControl():New( oForm )
>> :oPreviewDC :=3D ::oPreviewDC
>> :nLeft :=3D 0
>> :nTop :=3D 0
>> :nAlign :=3D alCLIENT
>> :Create()
>> END
>>
>> If lModal
>> oForm:ShowModal( nShowMode, .T. )
>> else
>> oForm:Show( nShowMode, .t.)
>> Endif
>>
>> RETURN .F.
>>
>=20
> Ahora mismo me sirve perfectamente el formulario que presenta Xailer. =
M=E1s=20
> adelante tengo previsto crear mi propio formulario de =
previsualizaci=F3n.
>=20
> Much=EDsimas gracias por tu ayuda.
> Saludos,
> Jos=E9 Luis Capel
>=20
>=20
>>
>> --=20
>> Ignacio Ortiz de Z=FA=F1iga
>> http://www.xailer.com
>> "Jos=E9 Luis Capel" <jose.luis@iaicom.com> escribi=F3 en el mensaje=20
>> news:[email=45069791@news.xailer.com...]45069791@news.xailer.com...[/email]
>>> Hola,
>>>
>>> Haciendo algo como esto:
>>>
>>> REPORT oReport OF Self; // Self -> Formulario
>>> TITLE "Informe de Erroes en Carga/Descarga de Terminal" ;
>>> PREVIEW
>>>
>>> COLUMN OF oReport ;
>>> TITLE "Tipo" ;
>>> DATA oMemDataSet1:cTipo
>>> // CHARSIZE 1
>>>
>>> COLUMN OF oReport ;
>>> TITLE "Proceso" ;
>>> DATA oMemDataSet1:cProceso
>>> // CHARSIZE 20
>>>
>>> COLUMN OF oReport ;
>>> TITLE "Descripci=F3n" ;
>>> DATA oMemDataSet1:cDescripcion
>>> // CHARSIZE 150
>>>
>>>
>>> WITH OBJECT oReport
>>> :bWhile :=3D {|| !oMemDataSet1:Eof() }
>>> :bSkip :=3D {|| oMemDataSet1:Skip() }
>>> END WITH
>>>
>>> RUN REPORT oReport
>>>
>>> No consigo que la ventana del previsualizador muestre el icono de la =
>>> aplicaci=F3n (proyecto->propiedades del proyecto->apariencia).
>>>
>>>
>>> =BFC=F3mo puedo tener m=E1s control sobre el informe previsualizado? =
=BFComo se=20
>>> llama la data con el formulario? Me interesa maximizar, centrar, =
abrir=20
>>> modal, etc.
>>>
>>> Saludos,
>>> Jos=E9 Luis Capel
>>>
>>>
>>>
>>
>>=20
>=20
>
------=_NextPart_002_0010_01C6D68C.78E22590
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 6.00.2900.2963" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY>
<DIV><FONT face=3DArial size=3D2></FONT><FONT face=3DArial size=3D2>> =
Perfecto... en la documentaci=F3n solo he visto la propiedad=20
lPreviewModal.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Hay que mirar mejor
</DIV><DIV><BR><IMG alt=3D"" hspace=3D0=20
src=3D"cid:000801c6d67b$b5549aa0$1700000a@ozlan.local" align=3Dbaseline=20
border=3D0></FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT><FONT face=3DArial =
size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT><FONT face=3DArial =
size=3D2></FONT><FONT=20
face=3DArial size=3D2>> =BFPuedes mandarme esos =
obj's?<BR></FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Si. Van con este Email</DIV>
<DIV></FONT><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>> Ahora mismo me sirve perfectamente =
el=20
formulario que presenta Xailer. M=E1s <BR>> adelante tengo =
previsto crear=20
mi propio formulario de previsualizaci=F3n.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>No te digo de cambiar el formulario que =
presenta=20
Xailer. De hecho el c=F3digo que te he dado presenta el mismo. Sin =
embargo te=20
permite tocar lo que quieras. </FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>En su ventana contenedora:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>>>ÂÂ WITH OBJECT oForm =
:=3D=20
TForm():New( oParent )<BR><FONT=20
color=3D#ff0000> >>ÂÂÂÂ& ;nbsp; =
:cTextÂÂÂ :=3D=20
::cJobTitle<BR> >>ÂÂÂÂ& ;nbsp; =
:nWidthÂÂ :=3D=20
800<BR> >>ÂÂÂÂ& ;nbsp; :nHeight :=3D=20
600<BR></FONT> >>ÂÂÂÂ& ;nbsp; :OnClose :=3D =
{||=20
::oPreviewDC:Destroy() }<BR> >>ÂÂÂÂ& ;nbsp;=20
:Create()<BR>>>ÂÂ END WITH</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>En el propio TPreviewControl (que =
est=E1=20
documentado)</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT><BR></DIV>
<DIV><FONT face=3DArial size=3D2>>>ÂÂ WITH OBJECT =
oPreview :=3D=20
TPreviewControl():New( oForm )<BR> >>ÂÂÂÂ& ;nbsp; =
:oPreviewDC :=3D ::oPreviewDC<BR> >>ÂÂÂÂ& ;nbsp;=20
:nLeft :=3D 0<BR> >>ÂÂÂÂ& ;nbsp; =
:nTopÂÂ :=3D=20
0<BR> >>ÂÂÂÂ& ;nbsp; :nAlign :=3D=20
alCLIENT<BR> >>ÂÂÂÂ& ;nbsp;=20
:Create()<BR>>>ÂÂ END</FONT><BR></DIV>
<DIV><FONT face=3DArial size=3D2>Saludos,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT><BR><FONT face=3DArial =
size=3D2>-- <BR>Ignacio=20
Ortiz de Z=FA=F1iga<BR></FONT><A href=3D"http://www.xailer.com"><FONT =
face=3DArial=20
size=3D2>http://www.xailer.com</FONT></A></DIV>
<DIV><FONT face=3DArial size=3D2>"Jos=E9 Luis Capel" <</FONT><A=20
href=3D"mailto:jose.luis@iaicom.com"><FONT face=3DArial=20
size=3D2>jose.luis@iaicom.com</FONT></A><FONT face=3DArial size=3D2>> =
escribi=F3 en=20
el mensaje </FONT><A href=3D"news:4506be18@news.xailer.com"><FONT =
face=3DArial=20
size=3D2>news:4506be18@news.xailer.com</FONT></A><FONT face=3DArial=20
size=3D2>...</FONT></DIV><FONT face=3DArial size=3D2>> =
Ignacio,<BR>> <BR>>=20
Gracias por tu respuesta.<BR>> <BR>>><BR>>> El data del=20
formulario no est=E1 en =E1mbito, pero las propiedades <BR>>> =
lPreviewModal y=20
nPreviewShowMode te permiten modificar varios aspectos del <BR>>>=20
formulario.<BR>>><BR>> <BR>> Perfecto... en la =
documentaci=F3n=20
solo he visto la propiedad lPreviewModal.<BR>> <BR>>> He =
modificado el=20
m=E9todo Printer:Preview() para que acepte un tercer <BR>>> =
parametro con el=20
formulario padre del preview, de esta forma deber=E1 <BR>>> =
heredar el icono=20
del mismo y mostrarlo igualmente.<BR>> <BR>> =BFPuedes mandarme =
esos=20
obj's?<BR>> <BR>>><BR>>> Desde el metodo =
TPrinter:OnPreview()=20
puedes disparar tu propia ventana de <BR>>> Preview y retornar =
falso para=20
que no se dispare la de Xailer. Por ejemplo:<BR>>><BR>>> =
FUNCTION=20
MiPreview( nShowMode, lModal )<BR>>><BR>>>ÂÂÂ =
LOCAL=20
oForm<BR>>><BR>>>ÂÂ WITH OBJECT oForm :=3D =
TForm():New(=20
oParent )<BR> >>ÂÂÂÂ& ;nbsp; =
:cTextÂÂÂ :=3D=20
::cJobTitle<BR> >>ÂÂÂÂ& ;nbsp; =
:nWidthÂÂ :=3D=20
800<BR> >>ÂÂÂÂ& ;nbsp; :nHeight :=3D=20
600<BR> >>ÂÂÂÂ& ;nbsp; :OnClose :=3D {||=20
::oPreviewDC:Destroy() }<BR> >>ÂÂÂÂ& ;nbsp;=20
:Create()<BR>>>ÂÂ END =
WITH<BR>>><BR>>>ÂÂ=20
WITH OBJECT oPreview :=3D TPreviewControl():New( oForm=20
)<BR> >>ÂÂÂÂ& ;nbsp; :oPreviewDC :=3D=20
::oPreviewDC<BR> >>ÂÂÂÂ& ;nbsp; :nLeft :=3D =
0<BR> >>ÂÂÂÂ& ;nbsp; :nTopÂÂ :=3D=20
0<BR> >>ÂÂÂÂ& ;nbsp; :nAlign :=3D=20
alCLIENT<BR> >>ÂÂÂÂ& ;nbsp;=20
:Create()<BR>>>ÂÂ =
END<BR>>><BR>>>ÂÂ If=20
lModal<BR> >>ÂÂÂÂ& ;nbsp; oForm:ShowModal( =
nShowMode, .T.=20
)<BR>>>ÂÂ else<BR> >>ÂÂÂÂ& ;nbsp; =
oForm:Show( nShowMode, .t.)<BR>>>ÂÂ=20
Endif<BR>>><BR>>> RETURN .F.<BR>>><BR>> <BR>> =
Ahora=20
mismo me sirve perfectamente el formulario que presenta Xailer. =
M=E1s=20
<BR>> adelante tengo previsto crear mi propio formulario de=20
previsualizaci=F3n.<BR>> <BR>> Much=EDsimas gracias por tu =
ayuda.<BR>>=20
Saludos,<BR>> Jos=E9 Luis Capel<BR>> <BR>> =
<BR>>><BR>>> --=20
<BR>>> Ignacio Ortiz de Z=FA=F1iga<BR>>> </FONT><A=20
href=3D"http://www.xailer.com"><FONT face=3DArial=20
size=3D2>http://www.xailer.com</FONT></A><BR><FONT face=3DArial =
size=3D2>>>=20
"Jos=E9 Luis Capel" <</FONT><A =
href=3D"mailto:jose.luis@iaicom.com"><FONT=20
face=3DArial size=3D2>jose.luis@iaicom.com</FONT></A><FONT face=3DArial =
size=3D2>>=20
escribi=F3 en el mensaje <BR>>> </FONT><A=20
href=3D"news:45069791@news.xailer.com"><FONT face=3DArial=20
size=3D2>news:45069791@news.xailer.com</FONT></A><FONT face=3DArial=20
size=3D2>...<BR>>>> Hola,<BR>>>><BR>>>> =
Haciendo algo=20
como esto:<BR>>>><BR>>>> REPORT oReport OF Self;Â =
// Self=20
-> Formulario<BR> >>>ÂÂÂ&n bsp;Â TITLE =
"Informe de=20
Erroes en Carga/Descarga de Terminal"=20
;<BR> >>>ÂÂÂ&n bsp;Â=20
PREVIEW<BR>>>><BR>>>> COLUMN OF oReport=20
;<BR>>>>Â TITLE "Tipo" ;<BR>>>>Â DATA=20
oMemDataSet1:cTipo<BR>>>> //ÂÂÂÂÂ =
CHARSIZE=20
1<BR>>>><BR>>>> COLUMN OF oReport =
;<BR>>>>Â=20
TITLE "Proceso" ;<BR>>>>Â DATA=20
oMemDataSet1:cProceso<BR>>>> //ÂÂÂÂÂ =
CHARSIZE=20
20<BR>>>><BR>>>> COLUMN OF oReport =
;<BR>>>>Â=20
TITLE "Descripci=F3n" ;<BR>>>>Â DATA=20
oMemDataSet1:cDescripcion<BR>>>> =
//ÂÂÂÂÂ=20
CHARSIZE 150<BR>>>><BR>>>> <BR>>>>ÂÂ =
WITH=20
OBJECT oReport<BR> >>>ÂÂÂ&n bsp;Â :bWhile =
:=3D {||=20
!oMemDataSet1:Eof() }<BR> >>>ÂÂÂ&n bsp;Â =
:bSkipÂ=20
:=3D {|| oMemDataSet1:Skip() }<BR>>>>ÂÂ END=20
WITH<BR>>>><BR>>>> RUN REPORT=20
oReport<BR>>>><BR>>>> No consigo que la ventana del=20
previsualizador muestre el icono de la <BR>>>> aplicaci=F3n=20
(proyecto->propiedades del=20
proyecto->apariencia).<BR>>>><BR >>>><BR>>>>=
=BFC=F3mo=20
puedo tener m=E1s control sobre el informe previsualizado? =BFComo =
se=20
<BR>>>> llama la data con el formulario? Me interesa =
maximizar,=20
centrar, abrir <BR>>>> modal, =
etc.<BR>>>><BR>>>>=20
Saludos,<BR>>>> Jos=E9 Luis=20
Capel<BR>>>><BR>>>> <BR>>>><BR>>><BR>>=
>=20
<BR>> <BR>></FONT></BODY></HTML>
------=_NextPart_002_0010_01C6D68C.78E22590--
------=_NextPart_001_000F_01C6D68C.78E22590
Content-Type: image/png;
name="2006-09-12_165140.png"
Content-Transfer-Encoding: base64
Content-ID: <000801c6d67b$b5549aa0$1700000a@ozlan.local>
iVBORw0KGgoAAAANSUhEUgAAAgAAAAD4CAIAAAAVRMnwAAAABmJLR0QAAAAA AAD5Q7t/AAAACXBI
WXMAAA7EAAAOxAGVKw4bAAAVKUlEQVR4nO3d7ZXjNrKAYeS0OTmnm8H+cBAK YALYFO45mwO3bbk5
aNQnQQqEhPc5tA9UKBRJjMSa7vaMywMAsKQSJQAAPlOJEgAAn6lECQCAz1Si BADAZypRAgDgM5Uo
AQDwmUqUAAD4TCVKAAAMtR0U1TOVv/7J+b0ml5bRt0o6X+EVjB265pbPuPca kltx70WqDl32iy7+
dZUxj69neil/JI+5GsCTcbrW0XzV+Qovom1MK6rxEned3dwF7WKs+I38C87n nPG6ypgHDSDrfIXX
EbuiiGq8xF1nN3dBuxgrfqP8NVsJ572uMubxbADN93l+/fq1//s5+HJBA2hD 0TvMSSgVOfsKg093
yFQbdTvrlsP4YxpFOJpw3usqYx7PBvDrp/2hX+trANuv8hwUORe+w/wEOVtH mlm1lJVjpVkJMuch
1FNNmrrKyilR8cxsHVHXlp8eP+XjVubDPYW1Khm30qwpa7laQa5SM0/G65dO vlyopvk5MrOJ+Mlq
At6F/BbQ/jXB+W8BfT39n8fXuMjp8A3kJ8jZorGSrXyZ6c9mEvwcdYmar2Za FZxZUe/ArFrQioeZ
NXVWXfWzWBu3lluK61C+mqOu/Vmyjdcv5RJ/tsmRHoKTLPMzOXgXzwf9rn7u f43/qBxtAPvT/3kU
mRG+e/wEOVs0VrKVXwvL+kXCczVTYX5NTX5o5Kwo9ntWnaoT1IJWXM0stkyp o5nNrKTmW2uj3CIz
rbWZzI7Zx5GLvDD5gTe0fwvo+e1++Vv+3aEG0Dz9r28A6jtPDTZTajBTpKNC mOnwK5fEtTlLwjpq
sprZneav9Rf6mTK59hDUWWtJPtlPS2bWL5tZa+0juh4rua+Cuhzvov4ZgPye z3Pq67f/h34GIJ/+
ZxuAQ813SoXBQ8n5ClamJV+5DjrCIofimUg+TcadhVb8IRSbmmYtlxEnuVxx C02kfulMNZE6aE1Z
meqUlewUweSarwCabwF1fAWgPv1f1QCsfKdUGDyUXCL+coeVr8ZLJFPkUJ1M xE+zqGszY0cR1Flr
VZiZyc+MrVJOvlwuI7VwuZVZRyyyCCa3N4DnN/rrrwP24NGvAMq//lAOJS96 35hvNGPV0SkrP59c
Iv5yh5WvxovrIVhTZgktvw6qCWq8RML61jijVGTQSg4zM/mZsVXKyZfLZaQW Lrcy64hFFsHkLv8K
wFKUUPS+CRMaTr46ZeXnk60KUj7zyco/eRlPh4pb6uR8wfwprPrWWK5S5Zfk MzP5mXFYqh74meVn
QWvWST5aGe+o+Qqg+SKg72cAqqKEovdTmNBw8tUpKz+fbFWQ8plPVv7Jy3g6 VNyxJ1urZMFDp7Dq
W/FHVd86hZy18p1MJ7lo1/MQl2rF61mZ78TVzMdPcsrKVKecZLwp+RWAhQZw Ktlabjl5Op+Tf6h+
+ekh5Kv5wWbKisvZzFSYrAbVCk4RZ4mzKsxXK/iZYTATD4N4C9vIvwuoDUXv mzCh4eSrU1a+n9xM
FVtY05my8g8lW5z8YguTnQRnVc1a3sweWqVS8606atBiFWlmk6vCfLVCibwi +YE3FPy2X4jqmYoS
it46YULDyVenrHw/OZzycx7CofxDyRY/vxj85EOzorZZJKwglzzs+uqS7rj0 0Fizzip1Kh98HLxI
J1nmJ9OAWlFC0VsnTGg4+eqUlR/G/Sk5+3jxtTnFVWF++clKe0SlnNnkKayE cOFDnMLKt6acJY/0
9T+66qtT+aCcdXJkZhPxk9UEoFGiBADAZypRAgDgM5UoAQDwmUqUAAD4TCVK AAB8phIlAAA+U4kS
AACfqUQJAIDPVKI/YwwA+Ew0AABYFA0AABZFAwCARdEAAGBRNAAAWBQNAAAW RQMAgEXRAABgUTQA
AFgUDQAAFkUDAIBF0QAAYFE0AABYFA0AABZFAwCARdEAAGBRNAAAWBQNAAAW RQMAgEXRAABgUTQA
AFgUDQAAFkUDAIBF0QAAYFE0AABYFA0AABZFAwCARdEAAGBRPQ2gFH2VFZfy mbW+VduJhY29zuUF
nUiSv9D5Jes+YyhfOZ9Z61vV7arTzfwuGmnkRebPlc9UnVw+Xs/lqk+NQ4+S fGatb9WFXn0BZ+p3
NIAzp8t49/ov8urLfnX9q7zLdR7ydjfVc7k0gAnRAN7Fm1725T5yH97upnou 93mT9a2qEdkS9kiY
eWZVkxYudMZWZj2oOWv9gs6srFPbZzOl5MI97py9/neT3yQ34yYY1rcyG/ts ftWeb12ArOBkymQ1
P8yUp5aZTcQv6MzKOior2SmrrspXcJwvWy+sB07NJq7WbyJ1kTBTrnISBug5 t3qrdURONQM/s9ax
qvvC8sHMSZ0lfsHwlvOZ+eVqMDP2K/izycyav9xZpZ7LqeBErNs5GpSXat1I R8HwNlVqcqasf7rw
XlR9Zffx0cuWdWTEvxG14KbVzCSM0XPi5iaTvzD5YO3Mqsyv7paupg5kjhVP Vg6DtfyqC8+eT77w
pGrwRauaBJmfP4Wa4NRRF27pUx+6TVW+Qrh7m3E6/17UTGfsJPRd9slflPBE ajDcitfpOXFzk/Ke
8zsS7oK1qmatss7SrHLGTbJaUL701zZpctYP1qxVLz17PrkJOpcUnlQN1qtk /cyqOigrPAd+fh2x
xmrZJk2+9Nc2aXLWD1ryFayyzjhzL7W+sjKnfhnW9Ots0Y2EJ1KDasIYPSdu blLec35Hwl0IV6ms
C5M5W+IUyRtUI5dfQy1cpWbKYFgnHHdsVz5YC1epwlXOuZIbmz9F8gLCgv5s 8iyNfAWrbD6572K2
qOw+7ljiJBxdEm57mDBGz4n7NjEfrPWtsnI6guVvmSUyoq7dtDr5C6vlV/nL wyXhOHl3+Q1pxmrw
0Crnqo6OO4KHLiCzdtPq5C/Mkq8Q7pKabN2Lqq/sHu+7bH+7whtJ1skkjNFz 4nATt+8Nam6sVPzM
S1ZZY7nQOUW9XB0k19bJdSQ/u2mcs4fL80uS46aInK2DYZ3NIE8UrtpPbZ10 MypY+VayjO8v96A6
SK6tk+tIflYdhwl9ZWWFOnjmYupxpmx4UjWzVmc2Z2ySZXAzhAkD3HluYIx7 P2NzmmpPprqYpbDv
+Hw8X6Sp9mSqi1kK+47Px/MFUPHBAIBF0QAAYFE0AABY1EsagP8t1/w3ZPOZ qo7l1pKOUuepJ5XB
W65tO3Lek5l77GvQHN3OrAU+xid/DvLPnd2FDaBjSSNTIZNzu/xFhg3AmgLQ 4ZM/QPnnTu2q32L3
raqdrzCJ/I3QAICRej5Az09p+dseqT+6dfzQrJNZqxOaSF0kzFTJHL+OPJeV Zi3cg2HC9vNEmZoN
p2ZzGWFZ/0rq/L7MarYdWFP1y1L0hU1mJlmOgc/Q86auP8DNWA7ys07mro6o Y7/gptWUwrNsxolq
hxZat68Gm0G4pJY/UZgQLnHWhpm1PSYn6yk17Tl2IplkOQY+Q8+bWv0Y1+P8 B17OWglWpImHdawK
tfDCNqN4LYwfqpzcvfBOD61Kniu/pHYk8/egOWSONX4OmpeZ5GYh8El63tf5 50XHrJUgXz4jO5kT
nsjxTJMX4J+xSW5eZi61HvvB8GLUC8ufKEzou5J8ZhVsB07Oc1xEk3gOZKkw uVkIfJKe97Xz2bYG
+dlMwtEl4SNGeqY1ycbjSS/YfXfJewkvJp8w7ErywdoeM3a6nVLTnkFZKkxu FgKfpOd9nX9edMxm
EmRa8oybVsfinHEzimeSw6tK3kt+SU29gMyVOKvyV+IXbMZVsB04OUfHYUIz Bj5Jz1s787zonrUy
a3Xm86UMqpnFOKNKTcjXUS+gzreK1An+6cLZTdivwcm0yh66kjooM63lTYXv 2Xbg5Owvi/iTYvXL
Znwk2b4I4N3wbl5L3/OrbxWAyfHBXkvfo7xv1SVKmegAPgxv6rX0Pcr7VgGY HB9sAFgUDQAAFkUD
AIBF0QAAYFE0AABYFA0AABZFAwCARdEAAGBRNAAAWBQNAAAWRQMAgEXRAABg UTQAAFgUDQAAFkUD
AIBF0QAAYFE0AABY1OEG8N///w8HBwcHx7RH9BT/jQbAwcHB8TnHn//+v+gp /ltnA/g6B0fyYLs4
ODgGHPujJnqK/9bfAKJE/IPtAjAADWBGbBeAAe5vAOVv6tSyaAAABri5AfD0 V9EAAAxwcwOAiu0C
MMCdDaB8U1c5rFV91SbkfMEkg1IyLWRtsgwCeEef3AA6Kk/C2q5t7E3RAIDP dlsD2B/WHT0gsyST
My0aAIABpmsATTyT46zdZ2VELp/HoQag3lczWwf3l00pq05YvKkD4F1M2gDq KZnmx/vGU1G3Kz9W
B9bYr+PXlEsAvJF7GkDz5HUeTy8dT6uvAcigmnnV8rAOgMnRAGakbldDztaR ZhAGt59nySwvP20A
3s2dDUB9gowcT0tuV5Og3kJ9jzLt8uD82wjAd0MDUB/Be9B6WMvx0Xx/PJVm u9Sc/fabiDWQwfOZ
chbAG3njBiBLOS9LxcqfR74BbNWtyamtusc6P5+ZKV5HALyRGxoAQq/YLh7T ABo0gBldtV3W79wB
YKMBzOnC7eK7NAAsNIAZsV0ABqABzIjtAjDAuAbAwcHBwTHbMagB/Bn9/+k5 9oPt4uDgGHAMbQBR
Iv7BdgEYgAYwI7YLwAA0gBmxXQAGoAHMiO0CMAANYEZsF4ABbmgAxbBPucWW 0DQAuSdX7ZJV56r6
AGZ2QwPYycc9DeBJNgC5UWLRYZcUAfC+5moAeFK/Aqj3in0DcN5cDaCO7GMr rYnLtPeVbwBOUN3M
OlluYPNvK9MKAngvszeA/XnUxP3xu7N+BuAMmqA1zq/yM2UQwNuZvQHkx5/k fAOQwTAhDMpZKwHA
W6ABzMj5r4Ce4/xT20qo+ZmbYNUH8F5oADMa0AA24WQmgLczewPYn3dN3B+/ O//PATR3LdPUYJhw
Mgjg7czeAJy0Ji7T3pffAJqI3I1m1l/VkWkFAbyXOxuAb+XnS8d2AcBRNIAZ dWwXABxFA5hRx3YB
wFHzNoCVsV0ABqABzIjtAjDAuAbAwcHBwTHbMagB/Bn9/+k59oPt4uDgGHAM bQBRIv7BdgEYgAYw
I7YLwAA0gBmxXQAGoAHMiO0CMAANYEZsF4ABbmgA6h/xDf/cb5jgyywPc8KE ZE7okgYgr6KJfL3c
DyvezFp3Fp5LjQC4Fw3gQE6YkMwJXdUA5JNdHftTdUTWVIPPl84pAMzghgaw iadk5qGZyZnBJdd5
VQPYfj526+e4la/O0gCAjzRjAyiVjpwmKJfvY3W5Uy1M2IwTHSUbQDG+G1MH rYQm0gQzs82UfxY/
CGAe0zWAzMM0M27ItOfLTCkr2Skux4eI7drkuBiP/kODmjPbTMnrUa/QGQOY wT0NYDOeqs1s5sFq
jRuZJWEpGSwVZ+FRTgNQg+o4M6jVs82h5siX+TGAGczYANSpo+NGZklYqgnu L8OFR+W/BeSMZVCd
anI2u7LMkUuKaB7+SQHcaLoGYD1Mj44bmSVhqUyyuvAo54fA4WPaSfCfxdas U1wukZX9kwK40W0N
YPt+VjaPy8yDNTNuZJaE4zDBGR+S/BlAPuH50lqy2dWcKTm27tWfBXCX6RpA HXcepjJB5tSsUodO
4SSoOU1+3uXfAlIjRXyXRk3bjJpybN3rPtscAO51ZwOAhe0CMAANYEb1dsnf OH/MAeBeNIAZsV0A
BqABzIjtAjAADWBGbBeAAcY1AA4ODg6O2Y5BDeDP6P9Pz7EfbBcHB8eAY2gD iBLxD7YLwAA0gBmx
XQAGoAHMiO0CMAANYEZsF4ABaAAzYrsADHBDA1D/irTw700LEz7JJQ1A7lYT sf5WBufvbLB+BcJz
qZHLdV+elbDHw8r1QO6eDL5oNw5dZ0eOk3njXaMbDWBGVzWAZsPql/mpOqJ+ hq0TOad4kasur77f
feBXVu/On32F/HVa2+LnbEa1JsGZxVRuaADbX++MH0/zzMM9k/MxrmoA288P YffnNv9EqPOt58vr
XHV5civCys6mqbMvkr9OuQnve9foNmMDKJWOnDqYTJuNbABFfAW9f4Ctj2vm E17LfKqtms0SJ5h3
4S1nLk+N52/c2TR1NuMVOxDeUSbnpXeNkaZrAE780NiacvLnIbZrk+NiPAUO DWqZT3Xz+Xci/jh0
5pb7Lk+N5CtbC/eX8vC9aAc6Bplq1sujd43B7mkA219vDuWJ3MxaD+vM2Jpq ys7JaQBqUB1nBrV6
1vrQNhXUgplx6JJbPnR5aiRf2Vqovsx40Q6cGQy4aww2YwNQp46O95c1Gd+m lP8WkDOWQetz2wSt
yjJHfSLIo8lJOnPLHZcnV1kVnLgcW5GMF+1AM8gnZ4rU+u4aI03XAOSTum8s XzbKNyvhRs4PgcPP
3qFPeM2adYr7T4RwKqnjlk9enrMwU9k5S5/wLB3XKZeHyZkitZN3jQFuawDb X+8P5RGcebhnxtaU
kz+P5M8A8gnPl87HtWNKjq299GdV4R11JOQvTxbMn1o9y6F7f+q4wUMJzSUV +ycKzvjyu8Zg0zWA
Ou48rGWCzPHTZPI8Lv8WkBrZa8p4I/lEsLZzn22O71l92clbPnR51i0nK9f5 6m1a8e+1g3bAyszk
XH7XmMGdDQCWpbZr2jY8DDuAu9AAZlRvl/rbqM84vm+wfUeFCz/mWHMHMA8a wIzYLgAD0ABmxHYB
GIAGMCO2C8AANIAZsV0ABnjXBlD/R5zWf9A583/o6bt8uwBAogHM6PLtAgDp XRtAjQYAAB3uaQD7
o1k+o0vFCapjddWZynehAQAY4M4GUMRTWx0ng8lqhyrfhQYAYIA7G0ByXL7V NcNVmbFaeQY0AAAD
vEED2KondTLTr2DFt2nQAAAM8B4NoI4U+7s3ybFUV54BDQDAAHc2gJJ7lCeD yWqHKt+FBgBggDsb
wKY9bUvFCapjddWZynehAQAY4OYGABUNAMAANIAZ0QAADEADmBENAMAA9zQA +NguAAPQAGbEdgEY
YFwD4ODg4OCY7RjUAJ6n4eDg4OCY7Yie4r/1NIDw9BwcHBwcdx3RU/y3ww0A APAZaAAAsCgaAAAs
igYAAIuiAQDAomgAALAoGgAALIoGAACLogEAwKJoAACwKBoAACyKBgAAi6IB AMCiaAAAsCgaAAAs
igYAAIuiAQDAomgAALAoGgAALIoGAACLogEAwKJoAACwKBoAACyKBgAAi6IB AMCiaAAAsCgaAAAs
igYAAIuiAQDAomgAALAoGgAALOp/ASNX/w2jslcAAAAASUVORK5CYII=
------=_NextPart_001_000F_01C6D68C.78E22590--
------=_NextPart_000_000E_01C6D68C.78E22590
Content-Type: application/octet-stream;
name="Printer.rar"
Content-Transfer-Encoding: base64
Content-Disposition: attachment;
filename="Printer.rar"
UmFyIRoHAM+QcwAADQAAAAAAAAByhXQgkDAAfR0AAGBXAAACRdfc6+92LDUd MwsAIAAAAFByaW50
ZXIub2JqAPDGkEUUJdVUzMjVAB4eer6Gm02n9EY3I3I59BIwkAkgiSAQCFBN JONAm0okmm2EBCaS
bSc60kJJyNylKSwjIEoYW+MA8epaX2OSBQz1LlKW+y26wMt9Q1711ltzR7Wj 2etuHr5tKey318XC
56lwLkzXN86pG11rnO/Svoajd1n5Z+DCPveb3vm+b5vm9/Oc71ra/5Tf8E18 /3N8+b5zvzvePj0a
JrT/DwtWZaSY2RIgQuDGw8bguZESLKhSNzkmcm1M6BqrqNINfxYOyZ9Z1my6 /c9B67QfXi51Tufv
8Pb9fofrhf5ff9Pv9z02gsA3Igzhu4EOFjv2kLE3MPQ3Wg7MLeY83JTluB/g 5wt1qgvBcvCG4QY1
YHCxPX3lgF5EqIaUxbAfd9T+DGyC+FolxYRqeGZKvQoesWQ/jw4kCSmsONy7 vdhqBPrQwncAObOL
u+ogdnwcmG/kYZM1UOxNNh4cF/KQT+sAZd9ibzaB14eOPG3A8f6/kMbkPzNj QH5qbGNmveB1lQ9H
p/Bm43IFnxH276k7rJlP4HCLcOtA7u2xd3tQ6v48SJKUyDd4s+8fRC4p6P3v y4HXBrJ0aYWJJTNc
HyO73gbxDYUgMbAAzbdtttWTBMOBA6/r1FxEx8fT0DHgZIY6cHbh74meJPDg FQ9mD1oe4EY+aCbi
6eiRtGx/kSow+keRGjxIKGpmyG7bSql/qSFjycnHCtoD1we5MKRwyYdw9Pz8 RtUsM6Wh5Eg3HjRd
PZCBi5ESDqGFYeMH6IvCi8QK6W8Minw38lCW3YnPWVHK+609sY8iTDlae8Is DceNGN1NFx4EiCHe
JGgSjdPy3IjwDzIkfT3SFRIMjUI1pWVHhSdTbiA/DOnSQQsTU1TAkH4StPmL 7+N/EMhGgcLdae6M
ZPakYmoR+w4RpqQOnS0UjyX8nKiwB9y7acjU9FZMTUtXoMCEH6CImnvKIh6f H/Fw92x0/KuPjz+Z
M9bH09FN4sLJjk39NPw0gjknT5bYPQ8c3T8pkQtQBjmqRI1KEGLClcThalGl IhYupIfDhSBQI0UU
U3UHOSuHGyJWpR6ZEmFqGfY8mHHJvk9cPviwYmpPHI+uNI1JlExiR997/FIu oT9R40ceP4pVbwOh
dq8nB609ELl2VJgj6Y+fii2afrF/EIQyLK1LTpJs+lqaFkwI+pwmQY3Ekp8l LE7/0t0HSHhk2vZQ
7e+uaHeVIfwIQX/x3ntMQ7EfRkR9zA04GZ8bEx9PdARA0Z5KbUa1XGDuji6Q TGyY1fVB8Y6Ikmms
vGgB1LzwlOFkXBqgpZMrUAbyIBJu9QQ4U+KBDHZcJqKngmxMMOj6LiRDdQix GRI2noR42QaaPqn4
APS4sCOaTms01zsGf0Otwl4wmoxqJ4wPHY3PDDvw8ePkIO2uAC+XB0jzLVhW j8vemVT541wXi1m4
aNSd7Rk8ZLS/pc037pxfuVr66du1hP8ufNr5s8fVhf2U+Z5tWZ6XGrFSsxDt 9/rVtUGTlV1g6bLj
F9aC87oy7nrOfOP83zV1i+vLp9d398+wWTNuyPUM6ZMh0AadvnLJ0yvTNVSF D8HbwywTJOdGfouf
7MLJ0ZIXU8vYKLxy6nUnqOiK5z0U8DumrzCzwZcVM+3a32/eXhmuqZ3AbNCH NYHvRGctmruoXVo1
u2V+3eXWfTNWP5buHVQVrS/czVgmWiZhIv0Q83BqCc7eMnl+7qGUD3NFS+Ic bOD/dfpDqHXgX7Ju
2eYRltUWcbztNTNlpDO/avEu67PYeVF9LRwzv70mNO5yZ5Rlqd8aLLyoOsnO dPehXzKdozW6U5eM
nTVA3UHy9HTvGlOTqu55V+g4S3qeqpEEzW9LguM2dTNubzC0OZsm6CHsQ+Bt xd3ZHDmV6aA1vXLz
CqGH4HR+jISl6ym14Z6MBNCWjPSGGjVu1CtN0kK5Z2Zs9MQUopKEvxOjZ24u u4as6IopEK2osmMn
c+G+Ms6ZDa3zQyuTJklRoTho4k0b78y1oEmWiUhBSUspGKRnmZIXnThvd9Dv bw+XQ1qZrA3ZaLhN
dcAkirjAMsVFaRj3uirpHVEkkdH7uGZmqpMyX0/duZa6VvipNOomV04DNtUV 2XIpmr0qpQL2lJij
dxvywMUHivLs9m9M1lE6Rq9bT2ks/6RauiuuaM6LQWc5k3oYJOFfXl6R0F22 btaCI3PLbXtDRbR0
dGMFFAyn40NRSP4vXJ/ZyeEWcPDfcPHcyI0CFJku8rHw4xskSBVrkwoGRKhD CWkPXIO3hLGCyfOM
PG38KVow9M0hcOJOyzfx3+HENiSoh4jIxeVOySezKwzGBe5/IBZV9C4hi9FT xpEBJDxJEI92tTKx
TTLIveeNCx2Sdzr0yLnRJvm9EsGUGCZYpnHUInq6ZJ5drQISsg9C7PU4hPQm GMKJSHhmcleZ4XxG
MlZhPzydZ0NVZUsXzV1caQynKtvB4twLOn1NaM/oKqc3ghr1gOTXAvpZBfVK E4dVNZ9BatIg41XD
7AnKdh/YJgsMrPc4v64/37L73k+TjIkYbmuULMAFC/thx3tsHA0OPvi7S3Dh /aHH09aHDODj9vXB
wWa8WWHH+kULYBw/eHF7sukN+Pi/6fpC/2Y+FftOkNOPj7wvOuQ4e4HH3uoC Hb36e2AwL/lYK2Hd
Eh9dpHazlc6G4pLfunhk/6yd36BHle/icj/WVhWP2fwez7y5ygSwuV8M4GAo gkNOYdlQjGrN3/fi
dp8EjX6D/e5X47ol1dLPaxue5TY1mQ5J/xwEVT+mxxjKS994+73u9I19+Hn3 4eGHyrnRHn4QXPDH
tLPYTa7nAr9RAIZO9cr/1op/FIuCNh27nRp6Nq3SjWcf8CshuTm3+pNfo1Z+ 99BtCtlDCcgNzPP+
6qzVjxXm1/Q8yze9rm7Enfci6p78jN7EW+EyE4E8FhCxRGi78XyxeGLxReYL 6Avpi+qL1hf0i9oX
4RfkF/3Fmi/yF+4XxjXLVDWdYizrQC3FtRbcXXC7YTQTYWALgifijClCyheI L5ovnC+kLMF6Qvsi
+4L2RfiF7gv7hTBfqF+wXPBS1o1zF41L1gFwLpxdaLeC7IW/E3FwBPhQRRBc R720vjC8R728v5xO
vmAuYfuy5n3Ht1zP7BqX7mh/MPvZ8z9z1pzVz1rMss/821FM2s1TOunP5vYi mMhm/Bc3CGubwp1+
bxTlM45EfkgubmPbvm+ucewL+oX5RZs0/8DP2zT/2CRHGWoQ8owLeKtuUIhF gPE8VpcrcTj+B0Qy
x8P7aEOhCHs+8scpJ+fayc7lPLlg6oXP2gTAnTlC5TfQ/E7Qly5X7JMpLBD7 eUuwnOMpDzyvh5V2
to7fOwFIcL9TtdkVy1ynZSl1SjMdnZxOeTEeP+A/ArHn6vBSPmlYDgJSez20 5R7S5dI9pNqtGPhC
O+eAWPH5ITyakCojmulmAIqKSe7yKYJ7+YPlgHmAByvx+z+hZ49o6dUYUbAO mzDHtkvP+Cy6dY3P
8dg2Wfi4FIFR+cOlI2/06ZwP9A/ldqIUy4P9dFpf6wT7OmNaP5pQ7vaCfcpL ekknrw/414fzjPP7
JVmLnu/zNY9ZZnYPbrM7knXhHGS9vMzkk/3lPW2Z9EXqC+w97jM+4L7wv0PW uZ+p73OZ/qNZ1U97
Yow3LtXvb52xmnUAuX2J4+d2ug/LuhrOcEP4Rw+GRJpGGcYFy/5T7+X6JEf6 wvXesyCxNOXzj187
/yS3+4FLqxqXqjjWDUvpyddqCIKsy5mjHdczujlLgTVzIZBJvDe3fM8sFL9A lvlku/2Bf8hf1C/E
L+0Uwif/mI9u8mLTlMYEEGswUwg23N2ZBRtzPz5vbEFK70UknX+Qls8+85vq k/0/NtzfwDPcF+af
fzc0Z+kEZ6HIMVGVn/6A1f9gmYHzVg+R7Eqr+0Tm6GfpV7v2NJGOZ5+4MzK0 mh9oLYAs3cCLvBZn
ajWaTaCzL0azHws2QLM4j1uUfongoyycV2qJ1uDEfz/Qlv2TB7fAMVBv8QTV 9TSp9gObUAfjYjnq
Rz2AmQ8EZ/eDfcHS9Fj0x/5J08Y6fLOn+cXri9kX5Be6L9Qv3CXbUIYHA/Fw E7QYrI4/yhvsjpu6
a/vTp4VMn8SbPji84Xpi+udPsC/rSa9uN/nFBF+sXgC545ttsdn1DntRffF2 YE3xwDn+U596I1JE
jTZ+UdPzhZgvtC/CL84v2CYdUEXIFG6/c0x/eC3xwdj9o3fCYJXTvRu5FHFv hccTxPBPP+sqzc+q
82s0BzbInXZE/22e57YnG9enLtxjkZ3wob1ZmxxmS9W5vhC8kZ5r2qzfQGei S/+qM9g49t6uzfxj
PeGe+L4XtXnEwPOshls9rM4ZnEX+cCX5wGcLOwXtbnDM4ZnAq7OAzhZwJhnA Z3qnH2jlnHGcCr84
DO917YZwzO5z2xziYPLGS6x7ZSxksZLnj6qWcSziWKXNJcM8OWcS8knUZL5I zyRHz2csCWTI8v1T
gmFyxSwXTSwJfuktjJfOOB4np2kwCYffazAJk9fVzAJh+esmATJ7dtMAmXj2 3mExuZPf1swCZDe6
6YTH5k+O4mDJk0mAtfMAmHEwUwUz2ydfxiJi8wUwUwUz4RpEbpb5SUFUpWGf TSt3KwM/8wfuC/uE
X+IUPH6wbcS/q0j64ebkH6wu1F8Yr8W3rAzig0/zijKOLrjjnk0yf5o59Ec+ oMOx4YP7Z0+4dP+g
viples6w6LE4oz+wHO5FvhXwr8XdCxRcOmY/wDp8Y6fni84X06ZX+oOfVHPs Dn8QvdHP6Dp/WdPx
C54l+3CNUE3AuoFuRb4XcgUbX4Q5ii8GbPijnyhfRFyxfWF9sXti/IL823R4 fX0Emk502TPPhUo3
Vs8VIjfPAbxUFXjxUgOFgvFSI4zxUJ4qCuTNERytgFHbbEK917sh7PFQVWPe nSHO2YVtnu0QHSHi
8e3I6HZ1zbKOEiN91AUmN1QG26kK3r3aj8jp7thFGyKNcUaoo0xRoijPFEiK MsUZJEY7qgfVi6wK
KMUUYZMYJMX4ovRRdqIXJEW6s/ZTQXfvEt3ARY7ilT9jTH+rFvBdkLfjnAE+ preKKSL5VMr/Imz5
guYdP15s/dHP9gvyilzZ/VNn4Dp+IS3chFeAd41503J09WLdC3wmVMv3I8Em e9YH3Ywu09aJbx0c
57cXHF+FJP+eN5oswXxi+yJolf/bpmP/6nT/eKZTNf/nNn4KY+Z1s2FwTWgH eNUdOrFcC2pxbC4K
WT69Xz5XrGeCrnDxehQay43zHoxquCwMxl7xH4QRn9ZBz7ghbBVHVupxGK0t xjmNmNUj2eYaugp9
84blUbVkUuVY3HTMawpR9oAvAnbi1eeuh0WLqwNfvGFDGMEPFc8ZxsePGiwt AS40X0kiItz3bqcy
lHmS7gNYL3cjoeetCuS9YjqjFaRFW64Nnu6B7sKT5kNDmO7ypCnei96+kFSH 4PL7A6ibCyIqzxUJ
4qChiArQypcxmjFi+097FQWbR33qPMJe9kD7NQXK2e9ogLsPO+EnysWCt10T wSRp8i2MY1xX/Y1Z
GcyIrQ3FMgwXytecifketbZapI9YAn+LCdk+Mv6VEVg62NgRYLjiRYUimQFi mCM38Xhv5IStC36W
ut8/x4U1LTDCI2SGqpPBoHcRsN5ElGwglcDr4FEp8/KqVTVYOxiz0o84buJx YTzKzwZlFVZrCwwr
cwsjDGvJFfoDHVNmNgTtjmLkr/WJ4KPLeFFxZUNK+2Iasg4rwbAM4ESCpfNU KzDjWg6yKzjRyf3M
krx0watA41ymKtIWI/yDZV1EizXahrVhxYA6sYbGkJXfWBq2DjXqNa0yI5sL JB24a1ocbAHYRUtR
20WCpftcK4DjYqYu7lP5WQm6XX2CcANopqC4PfhRSIkSMm47YBrYh8Y1dHjE +JROmTZ4ZxVpXoaA
N2V80ds2TlqQVAhIn/lwO3pch8DIfmxJWUD2Qa6eoYJVx+/vG2/vDzvjLgK/ Pt61aNr+9z//AMLg
TdxgZ8/+BisBNNEy7FweeXGloVcA9UBC4c+DiO4cbiXsaDC0ck5LkQBrI9yT j308+9ZN0cm12fs9
4La9J8S34KxMi2vga4uBrArX0UY2LCvsjHw4SUDCks+xBz7iQbGv5R/y9DPm zDW06RqBslLylkAe
VFz04OwTPky4/NMyaRE2hdljLuWNyVKgr9CsasNcINbPD0IXr466cPqQrapK 6ujCaM6YFjqklLlA
vC2U5C2G0Z0FJ1aRwgM6J5dAcxpEqggdZQYM7E9VlhkPwoNBB3DHqEWBbRYk qISCni6MhvU2BE+y
nBjrZwNyDq2ejCV5Ju1ojnWg6xpCkypEbK0N2wCBrrgdlv4UpKUu7jdFkzhd UF7oGuQHc0I6sL3Y
OtK7NI51gXvAdg0jQMjHJKGkgbcL68GtdZEXQbcBfYJtWnqybuR32IOqQd6b 1qZfeg64+KRw0h0z
WKZ3sk2ldw356SJzrgvs0700n9j1ugvtEzrqFJjG5CAAhu7He+Br0BpyIWhe 8C+1TxRTZBGuvC/k
A7NA45h5UmJAfmoonYBfbA7FM+4xMSTCJnbsQvt2O9DLaShpz0LFMwrVDjkG 9lBY9mhJiwVNFySf
dJteQPSRKJoscu0C2YOraxYKBnfBlEAa0mponfEImh12oW1TzYguEJQDfkHX dg6wi5RNdsF3gOwL
D2/jp76pvbpoDYPRd4YYyC+4D0V4gy6C+5BsGcbIiooRDzMLvQdnv4RdvB2X 5m+kwrQLvqiiJMS1
HbgHZIYQojEQrsL4AOxIp6EKBEHfhboGvbSUtxA28TNvAdbgSIkqE0fyn+hj YLese4DLhMdEgNON
bxncIm4vI28VMd/bmoiER1k6eCgG1hJQiL0QNyBbYVohCEx7kvONbiVJwg90 mmNIWi4PNwFHrQWN
8hDfaKkLxlULpwUwPnUJCL9wF95pQekn9OQvvQ3SQkuE8cuAFvgbCj3qzdgm e74HYUvHMNYJoD9O
/0fGtNsUz2GDrqLjHG6pM7AB19JwiDdcmfgpysJcY83pkzMJNb0XFwNtUzuI DXI8VE3WJmMVNYJw
Q24oYOsT3TTdmmaiUjSp8Go3ZJn8Y60uIebr0jLFaUvHRAGtkfHHVhurD6Vh 7VGYk4fI8Y9d1Bw3
ZQk7i1y1WhPAz2TwGlqEHDa3X5a0hycfLo7n5gJ4RU3Ecng0X5Ehi9QTScBI l5wCkMENLGOEGO6D
S0og/dhdxtyeBBwSs33mgvehSEdZf+fKio/PBVi5grLel9EwfMMYvkE6C1uN URh++TtxzEsDvg0w
Afo5Qy6w3DgnwZdaiqlQJXyPXIag1lrsSZi4u0u+j2ZGNgBSst/sbu4rD4PB JKkeucso+61IroJD
htxBz+wVEZm30QatMkwQzLWsYSF+Ina8nPHwBiSwSMIXaxy69A1jKkLpZAyM ysCv+iGVDgnnv2xM
yYhVMtMNxYLAuTiqMnjDQ00XoLlZotr3K0jGxEymSg7ljjUES4wyM9wiqo2g UHjRnxwxFpSrBF5i
hMr0dcRuIwiOAozRQwrHJJj9mGz5YVSWj5ao+/naFR6PKvfg5AecZNFonH/t D/xXh/JVrDkt5FkT
mnEyhYGyYJsqCwLN2ry1ZIk2twwY5E6C18hlhY+VoEeGGEJD6orEogDXBNlx aVi7i0y1yF0Y5JmH
lJNkvLH8tFPS4pO1BwZ5PyQMqbiwY+AgfuHRPGG+UW+E9Ol4Iny0jXIYXZMf lpF/CCkX2aomywx7
NC9seN0L5iHajidnP3qreHPoI0Z4ZGX6bLtWPckPpbXza3sMvWIEEXIW9SX+ tN45X1lWpJalZ6OX
rqLEUTBUfYPqorzkAGewVMfDE0uKvLVL9ByQJeAgQuNqSA1j8xMDa1bG8g93 LMSIoakuVdvZ5dWb
4lAD45Egd74xLjdIvDI1SqCPKW6wMfK1AnO4qDBcUBCYtcbyTtlG1eql5ddW PiotSwIJx4yQWS4u
lCpjykLWsKoqxPKHak1a7kpz5tDIqIPyOAZTUi0rknZKgyiMPb7TLYUoks/e vN8cPNkx8hPx68uz
fK1Grih5LmNYJcmyvZklv8agyBEusoOnX0TG8agiIslWh6rjf9gebAG0QiTQ ZNahKJ4iot6+YlIL
a7G0oatrQzdqaFrzfJ0L+cWHouXFdq5qyRPrmz6rLkqqyQKxCZGuY/PQvpMX Js9IEP5AyqJsgLBj
Bj5SMspAaEPaD/7QCxoHp1XiEAT8sw+hGZnxUJZvMz/3myWF77Fj5oGCrDFk x/lBYWrJxszwVphY
bPmIbe40uKe1RA4oPimNvGy7QuBecKqEuBWpJrkM7IgDbJLCdWx/mBZRe3WM foA7Zj54Lg1Re63U
WNxPoJufa9j9EiyLE+rLtKbFj9JS1l7PJUjW+qF3HFy1VCKlWGlrGwo5KKpO BDY5a6i11sAjcpQO
m+hQ1pp4KFItsuvg0nuglgFx26nuga55Q9AYh7oPBoWxit0sQ938sC1gbrA+ lgfitMA4KqhjmCHk
tzdLUErkf1zi3KFwqXoi6Y5XQ0uVvRoasH0JL0V9U/a4+JQPrAZPSA4y+Mko KB6qY9QGKTyDv5wt
ckcHt/uC6xI0tJRzhuZRei/XpGVPRucsN61I4PbmBbBI0n4PXNouWqtT0XWh utD6Wh7R4Lf5lRFO
NF3MSk1YJZyP8VSW6X6IJYGVZQLPSJaRBn6vLWEITrIbUy1j9Qhge66bSIgx J9lJDvgVU/JmVUJC
TfTKD8PGFYo+N33yFldaKyLD1JoTUlAcsqk4wa12WvNvUyFoQGdj9RMTlCPq qQxperDkgANcoMDA
C5wfCVFChXMfSQt+IQZ+zKABwa1kThOVjGyTsVWXWl4p/+8BJgoJBJapjxCo GMt2W02Rl4b/RBN+
qhvp9BvI9U5V+Nl2CO0J6qPD2KGib9ZPHNAiZxs0mrUd306uhsIoZLyw1aEj L/4GJEODz0dwLJU2
fNwro8sF2h19Lf7JtSOb1/1zKNYaJyQVPfUxGqY/USCE4weaZxxHcJPFIzla yY2VLa4gbUrrlYND
FPLOReCqk7SjYcsONvlsKgxZNpWxUeLkesTYoq0qa+MvmuAYlWulFWtaFU06 IdEZLWuCNaz9FJYd
X7N44dM2TduZQrW7BTXTJo0z04c55eYRlTrXqlslqM0yo1sLR99QrYii7qat ikuk36m7zZR/dNWw
6XRQtR1sdSWKatkqjWxNH31KtjKSxT1sgn1I+i9JkZsWsMi2Gry8cNKCeSrq GzJuX36ShNLV+icq
TU9wTBEQBtt0it4lLghW6KlpOrujKnW/ahZ1f0mbS1HqZSVwhUK4H0tb/VCt 9ahW9mkrePS1u10u
t0ekVuQR9Wg7foU4KFbkuEaxxo9fEKwnUIo1igpbTrEmluZXm0l0pSBdFGTl Kt0NIWLKYP5Lkse6
E5CJikSySGu9CnTNrpV6PVNgKCqUOUtzoaD0Rds7p5SlK7zI9Vq9JWOL68Jw xXNLXfDmlru8qGop
KYECmrvnpdd4UVdzpGqE6BP5/b5lSKmnXL5nRWjNKvnzNCNdD9UiU+vqQDZC vRKXC3DmaiV4enNC
lCEkhksmEr1d9d0qpprT5NSqV7s3Q7UZnH1HYLNATwFP2rFZm3PGSE+T6nzt 0wdlOxSOZxR1+A+p
bVJX7tRr9Smr8t8z7hxdZ/eN2pFZgFJXxNF6BRmj0ZOXLckyxYYyZJQlSatC vaJiF9f3t0S5t0wa
HzhOtaDHlDufJzdpfQGt4nqCXKqiMkUUzg2dnUct+Yp9AiMmt7dppNLpYpPa 3cIM4YnOzRtVQAAp
/oFR8ndxzR/QJbi+TzWnnS9cNCF0yzu8cFIzquL1keKX6BvQ+gdXzMn0vgR2 6O6P0e8ak/tKkIHo
sz3HbUym+gjZwW7W7LcHjgkIV8TZh398YkvmTdDtMpfoKhKu5qTupQ80yieX KIkThWUdpEBSjIpy
R0RJDGUNdkZ1VOx9RaxIfQmz5DTmj+hM0PoSoi0MvL5BtS/Qj6TjlPoRzbIb sZd+tszd9UYl9Omx
5GKZR/Cmkf7FH/+pIv56FaT4cMjREnn1RmareKjOUX+97/9QxD17AEAHAA==
------=_NextPart_000_000E_01C6D68C.78E22590--
Attached files Printer.rar (7.4 KB)Â
Ignacio Ortiz de Zúñiga
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Icono de la aplicaci
This is a multi-part message in MIME format.
------=_NextPart_000_003B_01C6D71B.CFF31120
Content-Type: multipart/alternative;
boundary="----=_NextPart_001_003C_01C6D71B.CFF31120"
------=_NextPart_001_003C_01C6D71B.CFF31120
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Ignacio,
=DAltimamente solo me fio de la documentaci=F3n)
La verdad es que estaba mirando solo en la clase tReport sin reparar que =
la responsable de la impresi=F3n (y, obviamente de la =
previsualizaci=F3n) es la clase tPrinter. Gracias por las aclaraciones.
Saludos,
Jos=E9 Luis Capel
"Ignacio Ortiz de Z=FA=F1iga" <NoName@xailer.com> escribi=F3 en el =
mensaje news:4506cac9$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Perfecto... en la documentaci=F3n solo he visto la propiedad =
lPreviewModal.
Hay que mirar mejor
> =BFPuedes mandarme esos obj's?
Si. Van con este Email
> Ahora mismo me sirve perfectamente el formulario que presenta =
Xailer. M=E1s=20
> adelante tengo previsto crear mi propio formulario de =
previsualizaci=F3n.
No te digo de cambiar el formulario que presenta Xailer. De hecho el =
c=F3digo que te he dado presenta el mismo. Sin embargo te permite tocar =
lo que quieras.=20
En su ventana contenedora:
>> WITH OBJECT oForm :=3D TForm():New( oParent )
>> :cText :=3D ::cJobTitle
>> :nWidth :=3D 800
>> :nHeight :=3D 600
>> :OnClose :=3D {|| ::oPreviewDC:Destroy() }
>> :Create()
>> END WITH
En el propio TPreviewControl (que est=E1 documentado)
>> WITH OBJECT oPreview :=3D TPreviewControl():New( oForm )
>> :oPreviewDC :=3D ::oPreviewDC
>> :nLeft :=3D 0
>> :nTop :=3D 0
>> :nAlign :=3D alCLIENT
>> :Create()
>> END
Saludos,
--=20
Ignacio Ortiz de Z=FA=F1iga
http://www.xailer.com
"Jos=E9 Luis Capel" <jose.luis@iaicom.com> escribi=F3 en el mensaje =
news:[email=4506be18@news.xailer.com...]4506be18@news.xailer.com...[/email]
> Ignacio,
>=20
> Gracias por tu respuesta.
>=20
>>
>> El data del formulario no est=E1 en =E1mbito, pero las propiedades=20
>> lPreviewModal y nPreviewShowMode te permiten modificar varios =
aspectos del=20
>> formulario.
>>
>=20
> Perfecto... en la documentaci=F3n solo he visto la propiedad =
lPreviewModal.
>=20
>> He modificado el m=E9todo Printer:Preview() para que acepte un =
tercer=20
>> parametro con el formulario padre del preview, de esta forma =
deber=E1=20
>> heredar el icono del mismo y mostrarlo igualmente.
>=20
> =BFPuedes mandarme esos obj's?
>=20
>>
>> Desde el metodo TPrinter:OnPreview() puedes disparar tu propia =
ventana de=20
>> Preview y retornar falso para que no se dispare la de Xailer. Por =
ejemplo:
>>
>> FUNCTION MiPreview( nShowMode, lModal )
>>
>> LOCAL oForm
>>
>> WITH OBJECT oForm :=3D TForm():New( oParent )
>> :cText :=3D ::cJobTitle
>> :nWidth :=3D 800
>> :nHeight :=3D 600
>> :OnClose :=3D {|| ::oPreviewDC:Destroy() }
>> :Create()
>> END WITH
>>
>> WITH OBJECT oPreview :=3D TPreviewControl():New( oForm )
>> :oPreviewDC :=3D ::oPreviewDC
>> :nLeft :=3D 0
>> :nTop :=3D 0
>> :nAlign :=3D alCLIENT
>> :Create()
>> END
>>
>> If lModal
>> oForm:ShowModal( nShowMode, .T. )
>> else
>> oForm:Show( nShowMode, .t.)
>> Endif
>>
>> RETURN .F.
>>
>=20
> Ahora mismo me sirve perfectamente el formulario que presenta =
Xailer. M=E1s=20
> adelante tengo previsto crear mi propio formulario de =
previsualizaci=F3n.
>=20
> Much=EDsimas gracias por tu ayuda.
> Saludos,
> Jos=E9 Luis Capel
>=20
>=20
>>
>> --=20
>> Ignacio Ortiz de Z=FA=F1iga
>> http://www.xailer.com
>> "Jos=E9 Luis Capel" <jose.luis@iaicom.com> escribi=F3 en el mensaje =
>> news:[email=45069791@news.xailer.com...]45069791@news.xailer.com...[/email]
>>> Hola,
>>>
>>> Haciendo algo como esto:
>>>
>>> REPORT oReport OF Self; // Self -> Formulario
>>> TITLE "Informe de Erroes en Carga/Descarga de Terminal" ;
>>> PREVIEW
>>>
>>> COLUMN OF oReport ;
>>> TITLE "Tipo" ;
>>> DATA oMemDataSet1:cTipo
>>> // CHARSIZE 1
>>>
>>> COLUMN OF oReport ;
>>> TITLE "Proceso" ;
>>> DATA oMemDataSet1:cProceso
>>> // CHARSIZE 20
>>>
>>> COLUMN OF oReport ;
>>> TITLE "Descripci=F3n" ;
>>> DATA oMemDataSet1:cDescripcion
>>> // CHARSIZE 150
>>>
>>>
>>> WITH OBJECT oReport
>>> :bWhile :=3D {|| !oMemDataSet1:Eof() }
>>> :bSkip :=3D {|| oMemDataSet1:Skip() }
>>> END WITH
>>>
>>> RUN REPORT oReport
>>>
>>> No consigo que la ventana del previsualizador muestre el icono de =
la=20
>>> aplicaci=F3n (proyecto->propiedades del proyecto->apariencia).
>>>
>>>
>>> =BFC=F3mo puedo tener m=E1s control sobre el informe =
previsualizado? =BFComo se=20
>>> llama la data con el formulario? Me interesa maximizar, centrar, =
abrir=20
>>> modal, etc.
>>>
>>> Saludos,
>>> Jos=E9 Luis Capel
>>>
>>>
>>>
>>
>>=20
>=20
>
------=_NextPart_001_003C_01C6D71B.CFF31120
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 6.00.2900.2963" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>Ignacio,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>=DAltimamente solo me fio de la =
documentaci=F3n=20
;-))</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>La verdad es que estaba mirando solo en =
la clase=20
tReport sin reparar que la responsable de la impresi=F3n (y, obviamente =
de la=20
previsualizaci=F3n) es la clase tPrinter. Gracias por las=20
aclaraciones.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Saludos,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Jos=E9 Luis Capel</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<BLOCKQUOTE=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV>"Ignacio Ortiz de Z=FA=F1iga" <<A=20
href=3D"mailto:NoName@xailer.com">NoName@xailer.com</A>> escribi=F3 =
en el=20
mensaje <A=20
=
href=3D"news:4506cac9$1@news.xailer.com">news:4506cac9$1@news.xailer.com<=
/A>...</DIV>
<DIV><FONT face=3DArial size=3D2></FONT><FONT face=3DArial =
size=3D2>>=20
Perfecto... en la documentaci=F3n solo he visto la propiedad=20
lPreviewModal.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Hay que mirar mejor</DIV>
<DIV><BR><IMG alt=3D"" hspace=3D0=20
src=3D"cid:003601c6d70b$0b378d80$2f001aac@AGSoft.local" =
align=3Dbaseline=20
border=3D0></FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT><FONT face=3DArial=20
size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT><FONT face=3DArial =
size=3D2></FONT><FONT=20
face=3DArial size=3D2>> =BFPuedes mandarme esos =
obj's?<BR></FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Si. Van con este Email</DIV>
<DIV></FONT><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>> Ahora mismo me sirve =
perfectamente el=20
formulario que presenta Xailer. M=E1s <BR>> adelante tengo =
previsto=20
crear mi propio formulario de previsualizaci=F3n.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>No te digo de cambiar el formulario =
que presenta=20
Xailer. De hecho el c=F3digo que te he dado presenta el mismo. Sin =
embargo te=20
permite tocar lo que quieras. </FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>En su ventana =
contenedora:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>>>ÂÂ WITH OBJECT =
oForm :=3D=20
TForm():New( oParent )<BR><FONT=20
color=3D#ff0000> >>ÂÂÂÂ& ;nbsp; =
:cTextÂÂÂ=20
:=3D ::cJobTitle<BR> >>ÂÂÂÂ& ;nbsp; =
:nWidthÂÂ=20
:=3D 800<BR> >>ÂÂÂÂ& ;nbsp; :nHeight :=3D =
600<BR></FONT> >>ÂÂÂÂ& ;nbsp; :OnClose =
:=3D {||=20
::oPreviewDC:Destroy() }<BR> >>ÂÂÂÂ& ;nbsp;=20
:Create()<BR>>>ÂÂ END WITH</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>En el propio TPreviewControl (que =
est=E1=20
documentado)</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT><BR></DIV>
<DIV><FONT face=3DArial size=3D2>>>ÂÂ WITH OBJECT =
oPreview :=3D=20
TPreviewControl():New( oForm =
)<BR> >>ÂÂÂÂ& ;nbsp;=20
:oPreviewDC :=3D =
::oPreviewDC<BR> >>ÂÂÂÂ& ;nbsp;=20
:nLeft :=3D 0<BR> >>ÂÂÂÂ& ;nbsp; =
:nTopÂÂ=20
:=3D 0<BR> >>ÂÂÂÂ& ;nbsp; :nAlign :=3D=20
alCLIENT<BR> >>ÂÂÂÂ& ;nbsp;=20
:Create()<BR>>>ÂÂ END</FONT><BR></DIV>
<DIV><FONT face=3DArial size=3D2>Saludos,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT><BR><FONT face=3DArial =
size=3D2>-- <BR>Ignacio=20
Ortiz de Z=FA=F1iga<BR></FONT><A href=3D"http://www.xailer.com"><FONT =
face=3DArial=20
size=3D2>http://www.xailer.com</FONT></A></DIV>
<DIV><FONT face=3DArial size=3D2>"Jos=E9 Luis Capel" <</FONT><A=20
href=3D"mailto:jose.luis@iaicom.com"><FONT face=3DArial=20
size=3D2>jose.luis@iaicom.com</FONT></A><FONT face=3DArial =
size=3D2>> escribi=F3 en=20
el mensaje </FONT><A href=3D"news:4506be18@news.xailer.com"><FONT =
face=3DArial=20
size=3D2>news:4506be18@news.xailer.com</FONT></A><FONT face=3DArial=20
size=3D2>...</FONT></DIV><FONT face=3DArial size=3D2>> =
Ignacio,<BR>> <BR>>=20
Gracias por tu respuesta.<BR>> <BR>>><BR>>> El data del =
formulario no est=E1 en =E1mbito, pero las propiedades <BR>>> =
lPreviewModal=20
y nPreviewShowMode te permiten modificar varios aspectos del =
<BR>>>=20
formulario.<BR>>><BR>> <BR>> Perfecto... en la =
documentaci=F3n=20
solo he visto la propiedad lPreviewModal.<BR>> <BR>>> He =
modificado=20
el m=E9todo Printer:Preview() para que acepte un tercer <BR>>> =
parametro=20
con el formulario padre del preview, de esta forma deber=E1 =
<BR>>> heredar=20
el icono del mismo y mostrarlo igualmente.<BR>> <BR>> =BFPuedes =
mandarme=20
esos obj's?<BR>> <BR>>><BR>>> Desde el metodo=20
TPrinter:OnPreview() puedes disparar tu propia ventana de <BR>>> =
Preview=20
y retornar falso para que no se dispare la de Xailer. Por=20
ejemplo:<BR>>><BR>>> FUNCTION MiPreview( nShowMode, lModal =
)<BR>>><BR>>>ÂÂÂ LOCAL=20
oForm<BR>>><BR>>>ÂÂ WITH OBJECT oForm :=3D =
TForm():New(=20
oParent )<BR> >>ÂÂÂÂ& ;nbsp; =
:cTextÂÂÂ=20
:=3D ::cJobTitle<BR> >>ÂÂÂÂ& ;nbsp; =
:nWidthÂÂ=20
:=3D 800<BR> >>ÂÂÂÂ& ;nbsp; :nHeight :=3D =
600<BR> >>ÂÂÂÂ& ;nbsp; :OnClose :=3D {||=20
::oPreviewDC:Destroy() }<BR> >>ÂÂÂÂ& ;nbsp;=20
:Create()<BR>>>ÂÂ END =
WITH<BR>>><BR>>>ÂÂ=20
WITH OBJECT oPreview :=3D TPreviewControl():New( oForm=20
)<BR> >>ÂÂÂÂ& ;nbsp; :oPreviewDC :=3D=20
::oPreviewDC<BR> >>ÂÂÂÂ& ;nbsp; :nLeft =
:=3D=20
0<BR> >>ÂÂÂÂ& ;nbsp; :nTopÂÂ :=3D=20
0<BR> >>ÂÂÂÂ& ;nbsp; :nAlign :=3D=20
alCLIENT<BR> >>ÂÂÂÂ& ;nbsp;=20
:Create()<BR>>>ÂÂ =
END<BR>>><BR>>>ÂÂ If=20
lModal<BR> >>ÂÂÂÂ& ;nbsp; oForm:ShowModal( =
nShowMode,=20
.T. )<BR>>>ÂÂ =
else<BR> >>ÂÂÂÂ& ;nbsp;=20
oForm:Show( nShowMode, .t.)<BR>>>ÂÂ=20
Endif<BR>>><BR>>> RETURN .F.<BR>>><BR>> <BR>> =
Ahora=20
mismo me sirve perfectamente el formulario que presenta Xailer. =
M=E1s=20
<BR>> adelante tengo previsto crear mi propio formulario de=20
previsualizaci=F3n.<BR>> <BR>> Much=EDsimas gracias por tu =
ayuda.<BR>>=20
Saludos,<BR>> Jos=E9 Luis Capel<BR>> <BR>> =
<BR>>><BR>>> --=20
<BR>>> Ignacio Ortiz de Z=FA=F1iga<BR>>> </FONT><A=20
href=3D"http://www.xailer.com"><FONT face=3DArial=20
size=3D2>http://www.xailer.com</FONT></A><BR><FONT face=3DArial =
size=3D2>>>=20
"Jos=E9 Luis Capel" <</FONT><A =
href=3D"mailto:jose.luis@iaicom.com"><FONT=20
face=3DArial size=3D2>jose.luis@iaicom.com</FONT></A><FONT =
face=3DArial size=3D2>>=20
escribi=F3 en el mensaje <BR>>> </FONT><A=20
href=3D"news:45069791@news.xailer.com"><FONT face=3DArial=20
size=3D2>news:45069791@news.xailer.com</FONT></A><FONT face=3DArial=20
size=3D2>...<BR>>>> Hola,<BR>>>><BR>>>> =
Haciendo algo=20
como esto:<BR>>>><BR>>>> REPORT oReport OF =
Self;Â //=20
Self -> Formulario<BR> >>>ÂÂÂ&n bsp;Â =
TITLE=20
"Informe de Erroes en Carga/Descarga de Terminal"=20
;<BR> >>>ÂÂÂ&n bsp;Â=20
PREVIEW<BR>>>><BR>>>> COLUMN OF oReport=20
;<BR>>>>Â TITLE "Tipo" ;<BR>>>>Â DATA=20
oMemDataSet1:cTipo<BR>>>> //ÂÂÂÂÂ =
CHARSIZE=20
1<BR>>>><BR>>>> COLUMN OF oReport =
;<BR>>>>Â=20
TITLE "Proceso" ;<BR>>>>Â DATA=20
oMemDataSet1:cProceso<BR>>>> //ÂÂÂÂÂ =
CHARSIZE 20<BR>>>><BR>>>> COLUMN OF oReport=20
;<BR>>>>Â TITLE "Descripci=F3n" ;<BR>>>>Â =
DATA=20
oMemDataSet1:cDescripcion<BR>>>> =
//ÂÂÂÂÂ=20
CHARSIZE =
150<BR>>>><BR>>>> <BR>>>>ÂÂ WITH=20
OBJECT oReport<BR> >>>ÂÂÂ&n bsp;Â :bWhile =
:=3D {||=20
!oMemDataSet1:Eof() }<BR> >>>ÂÂÂ&n bsp;Â=20
:bSkip :=3D {|| oMemDataSet1:Skip() =
}<BR>>>>ÂÂ END=20
WITH<BR>>>><BR>>>> RUN REPORT=20
oReport<BR>>>><BR>>>> No consigo que la ventana del=20
previsualizador muestre el icono de la <BR>>>> aplicaci=F3n=20
(proyecto->propiedades del=20
=
proyecto->apariencia).<BR>>>><BR >>>><BR>>>>=
=20
=BFC=F3mo puedo tener m=E1s control sobre el informe =
previsualizado? =BFComo se=20
<BR>>>> llama la data con el formulario? Me interesa =
maximizar,=20
centrar, abrir <BR>>>> modal, =
etc.<BR>>>><BR>>>>=20
Saludos,<BR>>>> Jos=E9 Luis=20
=
Capel<BR>>>><BR>>>> <BR>>>><BR>>><BR>>=
>=20
<BR>> <BR>></FONT> </BLOCKQUOTE></BODY></HTML>
------=_NextPart_001_003C_01C6D71B.CFF31120--
------=_NextPart_000_003B_01C6D71B.CFF31120
Content-Type: image/png;
name="2006-09-12_165140.png"
Content-Transfer-Encoding: base64
Content-ID: <003601c6d70b$0b378d80$2f001aac@AGSoft.local>
iVBORw0KGgoAAAANSUhEUgAAAgAAAAD4CAIAAAAVRMnwAAAABmJLR0QAAAAA AAD5Q7t/AAAACXBI
WXMAAA7EAAAOxAGVKw4bAAAVKUlEQVR4nO3d7ZXjNrKAYeS0OTmnm8H+cBAK YALYFO45mwO3bbk5
aNQnQQqEhPc5tA9UKBRJjMSa7vaMywMAsKQSJQAAPlOJEgAAn6lECQCAz1Si BADAZypRAgDgM5Uo
AQDwmUqUAAD4TCVKAAAMtR0U1TOVv/7J+b0ml5bRt0o6X+EVjB265pbPuPca kltx70WqDl32iy7+
dZUxj69neil/JI+5GsCTcbrW0XzV+Qovom1MK6rxEned3dwF7WKs+I38C87n nPG6ypgHDSDrfIXX
EbuiiGq8xF1nN3dBuxgrfqP8NVsJ572uMubxbADN93l+/fq1//s5+HJBA2hD 0TvMSSgVOfsKg093
yFQbdTvrlsP4YxpFOJpw3usqYx7PBvDrp/2hX+trANuv8hwUORe+w/wEOVtH mlm1lJVjpVkJMuch
1FNNmrrKyilR8cxsHVHXlp8eP+XjVubDPYW1Khm30qwpa7laQa5SM0/G65dO vlyopvk5MrOJ+Mlq
At6F/BbQ/jXB+W8BfT39n8fXuMjp8A3kJ8jZorGSrXyZ6c9mEvwcdYmar2Za FZxZUe/ArFrQioeZ
NXVWXfWzWBu3lluK61C+mqOu/Vmyjdcv5RJ/tsmRHoKTLPMzOXgXzwf9rn7u f43/qBxtAPvT/3kU
mRG+e/wEOVs0VrKVXwvL+kXCczVTYX5NTX5o5Kwo9ntWnaoT1IJWXM0stkyp o5nNrKTmW2uj3CIz
rbWZzI7Zx5GLvDD5gTe0fwvo+e1++Vv+3aEG0Dz9r28A6jtPDTZTajBTpKNC mOnwK5fEtTlLwjpq
sprZneav9Rf6mTK59hDUWWtJPtlPS2bWL5tZa+0juh4rua+Cuhzvov4ZgPye z3Pq67f/h34GIJ/+
ZxuAQ813SoXBQ8n5ClamJV+5DjrCIofimUg+TcadhVb8IRSbmmYtlxEnuVxx C02kfulMNZE6aE1Z
meqUlewUweSarwCabwF1fAWgPv1f1QCsfKdUGDyUXCL+coeVr8ZLJFPkUJ1M xE+zqGszY0cR1Flr
VZiZyc+MrVJOvlwuI7VwuZVZRyyyCCa3N4DnN/rrrwP24NGvAMq//lAOJS96 35hvNGPV0SkrP59c
Iv5yh5WvxovrIVhTZgktvw6qCWq8RML61jijVGTQSg4zM/mZsVXKyZfLZaQW Lrcy64hFFsHkLv8K
wFKUUPS+CRMaTr46ZeXnk60KUj7zyco/eRlPh4pb6uR8wfwprPrWWK5S5Zfk MzP5mXFYqh74meVn
QWvWST5aGe+o+Qqg+SKg72cAqqKEovdTmNBw8tUpKz+fbFWQ8plPVv7Jy3g6 VNyxJ1urZMFDp7Dq
W/FHVd86hZy18p1MJ7lo1/MQl2rF61mZ78TVzMdPcsrKVKecZLwp+RWAhQZw Ktlabjl5Op+Tf6h+
+ekh5Kv5wWbKisvZzFSYrAbVCk4RZ4mzKsxXK/iZYTATD4N4C9vIvwuoDUXv mzCh4eSrU1a+n9xM
FVtY05my8g8lW5z8YguTnQRnVc1a3sweWqVS8606atBiFWlmk6vCfLVCibwi +YE3FPy2X4jqmYoS
it46YULDyVenrHw/OZzycx7CofxDyRY/vxj85EOzorZZJKwglzzs+uqS7rj0 0Fizzip1Kh98HLxI
J1nmJ9OAWlFC0VsnTGg4+eqUlR/G/Sk5+3jxtTnFVWF++clKe0SlnNnkKayE cOFDnMLKt6acJY/0
9T+66qtT+aCcdXJkZhPxk9UEoFGiBADAZypRAgDgM5UoAQDwmUqUAAD4TCVK AAB8phIlAAA+U4kS
AACfqUQJAIDPVKI/YwwA+Ew0AABYFA0AABZFAwCARdEAAGBRNAAAWBQNAAAW RQMAgEXRAABgUTQA
AFgUDQAAFkUDAIBF0QAAYFE0AABYFA0AABZFAwCARdEAAGBRNAAAWBQNAAAW RQMAgEXRAABgUTQA
AFgUDQAAFkUDAIBF0QAAYFE0AABYFA0AABZFAwCARdEAAGBRPQ2gFH2VFZfy mbW+VduJhY29zuUF
nUiSv9D5Jes+YyhfOZ9Z61vV7arTzfwuGmnkRebPlc9UnVw+Xs/lqk+NQ4+S fGatb9WFXn0BZ+p3
NIAzp8t49/ov8urLfnX9q7zLdR7ydjfVc7k0gAnRAN7Fm1725T5yH97upnou 93mT9a2qEdkS9kiY
eWZVkxYudMZWZj2oOWv9gs6srFPbZzOl5MI97py9/neT3yQ34yYY1rcyG/ts ftWeb12ArOBkymQ1
P8yUp5aZTcQv6MzKOior2SmrrspXcJwvWy+sB07NJq7WbyJ1kTBTrnISBug5 t3qrdURONQM/s9ax
qvvC8sHMSZ0lfsHwlvOZ+eVqMDP2K/izycyav9xZpZ7LqeBErNs5GpSXat1I R8HwNlVqcqasf7rw
XlR9Zffx0cuWdWTEvxG14KbVzCSM0XPi5iaTvzD5YO3Mqsyv7paupg5kjhVP Vg6DtfyqC8+eT77w
pGrwRauaBJmfP4Wa4NRRF27pUx+6TVW+Qrh7m3E6/17UTGfsJPRd9slflPBE ajDcitfpOXFzk/Ke
8zsS7oK1qmatss7SrHLGTbJaUL701zZpctYP1qxVLz17PrkJOpcUnlQN1qtk /cyqOigrPAd+fh2x
xmrZJk2+9Nc2aXLWD1ryFayyzjhzL7W+sjKnfhnW9Ots0Y2EJ1KDasIYPSdu blLec35Hwl0IV6ms
C5M5W+IUyRtUI5dfQy1cpWbKYFgnHHdsVz5YC1epwlXOuZIbmz9F8gLCgv5s 8iyNfAWrbD6572K2
qOw+7ljiJBxdEm57mDBGz4n7NjEfrPWtsnI6guVvmSUyoq7dtDr5C6vlV/nL wyXhOHl3+Q1pxmrw
0Crnqo6OO4KHLiCzdtPq5C/Mkq8Q7pKabN2Lqq/sHu+7bH+7whtJ1skkjNFz 4nATt+8Nam6sVPzM
S1ZZY7nQOUW9XB0k19bJdSQ/u2mcs4fL80uS46aInK2DYZ3NIE8UrtpPbZ10 MypY+VayjO8v96A6
SK6tk+tIflYdhwl9ZWWFOnjmYupxpmx4UjWzVmc2Z2ySZXAzhAkD3HluYIx7 P2NzmmpPprqYpbDv
+Hw8X6Sp9mSqi1kK+47Px/MFUPHBAIBF0QAAYFE0AABY1EsagP8t1/w3ZPOZ qo7l1pKOUuepJ5XB
W65tO3Lek5l77GvQHN3OrAU+xid/DvLPnd2FDaBjSSNTIZNzu/xFhg3AmgLQ 4ZM/QPnnTu2q32L3
raqdrzCJ/I3QAICRej5Az09p+dseqT+6dfzQrJNZqxOaSF0kzFTJHL+OPJeV Zi3cg2HC9vNEmZoN
p2ZzGWFZ/0rq/L7MarYdWFP1y1L0hU1mJlmOgc/Q86auP8DNWA7ys07mro6o Y7/gptWUwrNsxolq
hxZat68Gm0G4pJY/UZgQLnHWhpm1PSYn6yk17Tl2IplkOQY+Q8+bWv0Y1+P8 B17OWglWpImHdawK
tfDCNqN4LYwfqpzcvfBOD61Kniu/pHYk8/egOWSONX4OmpeZ5GYh8El63tf5 50XHrJUgXz4jO5kT
nsjxTJMX4J+xSW5eZi61HvvB8GLUC8ufKEzou5J8ZhVsB07Oc1xEk3gOZKkw uVkIfJKe97Xz2bYG
+dlMwtEl4SNGeqY1ycbjSS/YfXfJewkvJp8w7ErywdoeM3a6nVLTnkFZKkxu FgKfpOd9nX9edMxm
EmRa8oybVsfinHEzimeSw6tK3kt+SU29gMyVOKvyV+IXbMZVsB04OUfHYUIz Bj5Jz1s787zonrUy
a3Xm86UMqpnFOKNKTcjXUS+gzreK1An+6cLZTdivwcm0yh66kjooM63lTYXv 2Xbg5Owvi/iTYvXL
Znwk2b4I4N3wbl5L3/OrbxWAyfHBXkvfo7xv1SVKmegAPgxv6rX0Pcr7VgGY HB9sAFgUDQAAFkUD
AIBF0QAAYFE0AABYFA0AABZFAwCARdEAAGBRNAAAWBQNAAAWRQMAgEXRAABg UTQAAFgUDQAAFkUD
AIBF0QAAYFE0AABY1OEG8N///w8HBwcHx7RH9BT/jQbAwcHB8TnHn//+v+gp /ltnA/g6B0fyYLs4
ODgGHPujJnqK/9bfAKJE/IPtAjAADWBGbBeAAe5vAOVv6tSyaAAABri5AfD0 V9EAAAxwcwOAiu0C
MMCdDaB8U1c5rFV91SbkfMEkg1IyLWRtsgwCeEef3AA6Kk/C2q5t7E3RAIDP dlsD2B/WHT0gsyST
My0aAIABpmsATTyT46zdZ2VELp/HoQag3lczWwf3l00pq05YvKkD4F1M2gDq KZnmx/vGU1G3Kz9W
B9bYr+PXlEsAvJF7GkDz5HUeTy8dT6uvAcigmnnV8rAOgMnRAGakbldDztaR ZhAGt59nySwvP20A
3s2dDUB9gowcT0tuV5Og3kJ9jzLt8uD82wjAd0MDUB/Be9B6WMvx0Xx/PJVm u9Sc/fabiDWQwfOZ
chbAG3njBiBLOS9LxcqfR74BbNWtyamtusc6P5+ZKV5HALyRGxoAQq/YLh7T ABo0gBldtV3W79wB
YKMBzOnC7eK7NAAsNIAZsV0ABqABzIjtAjDAuAbAwcHBwTHbMagB/Bn9/+k5 9oPt4uDgGHAMbQBR
Iv7BdgEYgAYwI7YLwAA0gBmxXQAGoAHMiO0CMAANYEZsF4ABbmgAxbBPucWW 0DQAuSdX7ZJV56r6
AGZ2QwPYycc9DeBJNgC5UWLRYZcUAfC+5moAeFK/Aqj3in0DcN5cDaCO7GMr rYnLtPeVbwBOUN3M
OlluYPNvK9MKAngvszeA/XnUxP3xu7N+BuAMmqA1zq/yM2UQwNuZvQHkx5/k fAOQwTAhDMpZKwHA
W6ABzMj5r4Ce4/xT20qo+ZmbYNUH8F5oADMa0AA24WQmgLczewPYn3dN3B+/ O//PATR3LdPUYJhw
Mgjg7czeAJy0Ji7T3pffAJqI3I1m1l/VkWkFAbyXOxuAb+XnS8d2AcBRNIAZ dWwXABxFA5hRx3YB
wFHzNoCVsV0ABqABzIjtAjDAuAbAwcHBwTHbMagB/Bn9/+k59oPt4uDgGHAM bQBRIv7BdgEYgAYw
I7YLwAA0gBmxXQAGoAHMiO0CMAANYEZsF4ABbmgA6h/xDf/cb5jgyywPc8KE ZE7okgYgr6KJfL3c
DyvezFp3Fp5LjQC4Fw3gQE6YkMwJXdUA5JNdHftTdUTWVIPPl84pAMzghgaw iadk5qGZyZnBJdd5
VQPYfj526+e4la/O0gCAjzRjAyiVjpwmKJfvY3W5Uy1M2IwTHSUbQDG+G1MH rYQm0gQzs82UfxY/
CGAe0zWAzMM0M27ItOfLTCkr2Skux4eI7drkuBiP/kODmjPbTMnrUa/QGQOY wT0NYDOeqs1s5sFq
jRuZJWEpGSwVZ+FRTgNQg+o4M6jVs82h5siX+TGAGczYANSpo+NGZklYqgnu L8OFR+W/BeSMZVCd
anI2u7LMkUuKaB7+SQHcaLoGYD1Mj44bmSVhqUyyuvAo54fA4WPaSfCfxdas U1wukZX9kwK40W0N
YPt+VjaPy8yDNTNuZJaE4zDBGR+S/BlAPuH50lqy2dWcKTm27tWfBXCX6RpA HXcepjJB5tSsUodO
4SSoOU1+3uXfAlIjRXyXRk3bjJpybN3rPtscAO51ZwOAhe0CMAANYEb1dsnf OH/MAeBeNIAZsV0A
BqABzIjtAjAADWBGbBeAAcY1AA4ODg6O2Y5BDeDP6P9Pz7EfbBcHB8eAY2gD iBLxD7YLwAA0gBmx
XQAGoAHMiO0CMAANYEZsF4ABaAAzYrsADHBDA1D/irTw700LEz7JJQ1A7lYT sf5WBufvbLB+BcJz
qZHLdV+elbDHw8r1QO6eDL5oNw5dZ0eOk3njXaMbDWBGVzWAZsPql/mpOqJ+ hq0TOad4kasur77f
feBXVu/On32F/HVa2+LnbEa1JsGZxVRuaADbX++MH0/zzMM9k/MxrmoA288P YffnNv9EqPOt58vr
XHV5civCys6mqbMvkr9OuQnve9foNmMDKJWOnDqYTJuNbABFfAW9f4Ctj2vm E17LfKqtms0SJ5h3
4S1nLk+N52/c2TR1NuMVOxDeUSbnpXeNkaZrAE780NiacvLnIbZrk+NiPAUO DWqZT3Xz+Xci/jh0
5pb7Lk+N5CtbC/eX8vC9aAc6Bplq1sujd43B7mkA219vDuWJ3MxaD+vM2Jpq ys7JaQBqUB1nBrV6
1vrQNhXUgplx6JJbPnR5aiRf2Vqovsx40Q6cGQy4aww2YwNQp46O95c1Gd+m lP8WkDOWQetz2wSt
yjJHfSLIo8lJOnPLHZcnV1kVnLgcW5GMF+1AM8gnZ4rU+u4aI03XAOSTum8s XzbKNyvhRs4PgcPP
3qFPeM2adYr7T4RwKqnjlk9enrMwU9k5S5/wLB3XKZeHyZkitZN3jQFuawDb X+8P5RGcebhnxtaU
kz+P5M8A8gnPl87HtWNKjq299GdV4R11JOQvTxbMn1o9y6F7f+q4wUMJzSUV +ycKzvjyu8Zg0zWA
Ou48rGWCzPHTZPI8Lv8WkBrZa8p4I/lEsLZzn22O71l92clbPnR51i0nK9f5 6m1a8e+1g3bAyszk
XH7XmMGdDQCWpbZr2jY8DDuAu9AAZlRvl/rbqM84vm+wfUeFCz/mWHMHMA8a wIzYLgAD0ABmxHYB
GIAGMCO2C8AANIAZsV0ABnjXBlD/R5zWf9A583/o6bt8uwBAogHM6PLtAgDp XRtAjQYAAB3uaQD7
o1k+o0vFCapjddWZynehAQAY4M4GUMRTWx0ng8lqhyrfhQYAYIA7G0ByXL7V NcNVmbFaeQY0AAAD
vEED2KondTLTr2DFt2nQAAAM8B4NoI4U+7s3ybFUV54BDQDAAHc2gJJ7lCeD yWqHKt+FBgBggDsb
wKY9bUvFCapjddWZynehAQAY4OYGABUNAMAANIAZ0QAADEADmBENAMAA9zQA +NguAAPQAGbEdgEY
YFwD4ODg4OCY7RjUAJ6n4eDg4OCY7Yie4r/1NIDw9BwcHBwcdx3RU/y3ww0A APAZaAAAsCgaAAAs
igYAAIuiAQDAomgAALAoGgAALIoGAACLogEAwKJoAACwKBoAACyKBgAAi6IB AMCiaAAAsCgaAAAs
igYAAIuiAQDAomgAALAoGgAALIoGAACLogEAwKJoAACwKBoAACyKBgAAi6IB AMCiaAAAsCgaAAAs
igYAAIuiAQDAomgAALAoGgAALOp/ASNX/w2jslcAAAAASUVORK5CYII=
------=_NextPart_000_003B_01C6D71B.CFF31120--
Attached files
------=_NextPart_000_003B_01C6D71B.CFF31120
Content-Type: multipart/alternative;
boundary="----=_NextPart_001_003C_01C6D71B.CFF31120"
------=_NextPart_001_003C_01C6D71B.CFF31120
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Ignacio,
=DAltimamente solo me fio de la documentaci=F3n
)La verdad es que estaba mirando solo en la clase tReport sin reparar que =
la responsable de la impresi=F3n (y, obviamente de la =
previsualizaci=F3n) es la clase tPrinter. Gracias por las aclaraciones.
Saludos,
Jos=E9 Luis Capel
"Ignacio Ortiz de Z=FA=F1iga" <NoName@xailer.com> escribi=F3 en el =
mensaje news:4506cac9$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Perfecto... en la documentaci=F3n solo he visto la propiedad =
lPreviewModal.
Hay que mirar mejor
> =BFPuedes mandarme esos obj's?
Si. Van con este Email
> Ahora mismo me sirve perfectamente el formulario que presenta =
Xailer. M=E1s=20
> adelante tengo previsto crear mi propio formulario de =
previsualizaci=F3n.
No te digo de cambiar el formulario que presenta Xailer. De hecho el =
c=F3digo que te he dado presenta el mismo. Sin embargo te permite tocar =
lo que quieras.=20
En su ventana contenedora:
>> WITH OBJECT oForm :=3D TForm():New( oParent )
>> :cText :=3D ::cJobTitle
>> :nWidth :=3D 800
>> :nHeight :=3D 600
>> :OnClose :=3D {|| ::oPreviewDC:Destroy() }
>> :Create()
>> END WITH
En el propio TPreviewControl (que est=E1 documentado)
>> WITH OBJECT oPreview :=3D TPreviewControl():New( oForm )
>> :oPreviewDC :=3D ::oPreviewDC
>> :nLeft :=3D 0
>> :nTop :=3D 0
>> :nAlign :=3D alCLIENT
>> :Create()
>> END
Saludos,
--=20
Ignacio Ortiz de Z=FA=F1iga
http://www.xailer.com
"Jos=E9 Luis Capel" <jose.luis@iaicom.com> escribi=F3 en el mensaje =
news:[email=4506be18@news.xailer.com...]4506be18@news.xailer.com...[/email]
> Ignacio,
>=20
> Gracias por tu respuesta.
>=20
>>
>> El data del formulario no est=E1 en =E1mbito, pero las propiedades=20
>> lPreviewModal y nPreviewShowMode te permiten modificar varios =
aspectos del=20
>> formulario.
>>
>=20
> Perfecto... en la documentaci=F3n solo he visto la propiedad =
lPreviewModal.
>=20
>> He modificado el m=E9todo Printer:Preview() para que acepte un =
tercer=20
>> parametro con el formulario padre del preview, de esta forma =
deber=E1=20
>> heredar el icono del mismo y mostrarlo igualmente.
>=20
> =BFPuedes mandarme esos obj's?
>=20
>>
>> Desde el metodo TPrinter:OnPreview() puedes disparar tu propia =
ventana de=20
>> Preview y retornar falso para que no se dispare la de Xailer. Por =
ejemplo:
>>
>> FUNCTION MiPreview( nShowMode, lModal )
>>
>> LOCAL oForm
>>
>> WITH OBJECT oForm :=3D TForm():New( oParent )
>> :cText :=3D ::cJobTitle
>> :nWidth :=3D 800
>> :nHeight :=3D 600
>> :OnClose :=3D {|| ::oPreviewDC:Destroy() }
>> :Create()
>> END WITH
>>
>> WITH OBJECT oPreview :=3D TPreviewControl():New( oForm )
>> :oPreviewDC :=3D ::oPreviewDC
>> :nLeft :=3D 0
>> :nTop :=3D 0
>> :nAlign :=3D alCLIENT
>> :Create()
>> END
>>
>> If lModal
>> oForm:ShowModal( nShowMode, .T. )
>> else
>> oForm:Show( nShowMode, .t.)
>> Endif
>>
>> RETURN .F.
>>
>=20
> Ahora mismo me sirve perfectamente el formulario que presenta =
Xailer. M=E1s=20
> adelante tengo previsto crear mi propio formulario de =
previsualizaci=F3n.
>=20
> Much=EDsimas gracias por tu ayuda.
> Saludos,
> Jos=E9 Luis Capel
>=20
>=20
>>
>> --=20
>> Ignacio Ortiz de Z=FA=F1iga
>> http://www.xailer.com
>> "Jos=E9 Luis Capel" <jose.luis@iaicom.com> escribi=F3 en el mensaje =
>> news:[email=45069791@news.xailer.com...]45069791@news.xailer.com...[/email]
>>> Hola,
>>>
>>> Haciendo algo como esto:
>>>
>>> REPORT oReport OF Self; // Self -> Formulario
>>> TITLE "Informe de Erroes en Carga/Descarga de Terminal" ;
>>> PREVIEW
>>>
>>> COLUMN OF oReport ;
>>> TITLE "Tipo" ;
>>> DATA oMemDataSet1:cTipo
>>> // CHARSIZE 1
>>>
>>> COLUMN OF oReport ;
>>> TITLE "Proceso" ;
>>> DATA oMemDataSet1:cProceso
>>> // CHARSIZE 20
>>>
>>> COLUMN OF oReport ;
>>> TITLE "Descripci=F3n" ;
>>> DATA oMemDataSet1:cDescripcion
>>> // CHARSIZE 150
>>>
>>>
>>> WITH OBJECT oReport
>>> :bWhile :=3D {|| !oMemDataSet1:Eof() }
>>> :bSkip :=3D {|| oMemDataSet1:Skip() }
>>> END WITH
>>>
>>> RUN REPORT oReport
>>>
>>> No consigo que la ventana del previsualizador muestre el icono de =
la=20
>>> aplicaci=F3n (proyecto->propiedades del proyecto->apariencia).
>>>
>>>
>>> =BFC=F3mo puedo tener m=E1s control sobre el informe =
previsualizado? =BFComo se=20
>>> llama la data con el formulario? Me interesa maximizar, centrar, =
abrir=20
>>> modal, etc.
>>>
>>> Saludos,
>>> Jos=E9 Luis Capel
>>>
>>>
>>>
>>
>>=20
>=20
>
------=_NextPart_001_003C_01C6D71B.CFF31120
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 6.00.2900.2963" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>Ignacio,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>=DAltimamente solo me fio de la =
documentaci=F3n=20
;-))</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>La verdad es que estaba mirando solo en =
la clase=20
tReport sin reparar que la responsable de la impresi=F3n (y, obviamente =
de la=20
previsualizaci=F3n) es la clase tPrinter. Gracias por las=20
aclaraciones.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Saludos,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Jos=E9 Luis Capel</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<BLOCKQUOTE=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV>"Ignacio Ortiz de Z=FA=F1iga" <<A=20
href=3D"mailto:NoName@xailer.com">NoName@xailer.com</A>> escribi=F3 =
en el=20
mensaje <A=20
=
href=3D"news:4506cac9$1@news.xailer.com">news:4506cac9$1@news.xailer.com<=
/A>...</DIV>
<DIV><FONT face=3DArial size=3D2></FONT><FONT face=3DArial =
size=3D2>>=20
Perfecto... en la documentaci=F3n solo he visto la propiedad=20
lPreviewModal.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Hay que mirar mejor
</DIV><DIV><BR><IMG alt=3D"" hspace=3D0=20
src=3D"cid:003601c6d70b$0b378d80$2f001aac@AGSoft.local" =
align=3Dbaseline=20
border=3D0></FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT><FONT face=3DArial=20
size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT><FONT face=3DArial =
size=3D2></FONT><FONT=20
face=3DArial size=3D2>> =BFPuedes mandarme esos =
obj's?<BR></FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Si. Van con este Email</DIV>
<DIV></FONT><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>> Ahora mismo me sirve =
perfectamente el=20
formulario que presenta Xailer. M=E1s <BR>> adelante tengo =
previsto=20
crear mi propio formulario de previsualizaci=F3n.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>No te digo de cambiar el formulario =
que presenta=20
Xailer. De hecho el c=F3digo que te he dado presenta el mismo. Sin =
embargo te=20
permite tocar lo que quieras. </FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>En su ventana =
contenedora:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>>>ÂÂ WITH OBJECT =
oForm :=3D=20
TForm():New( oParent )<BR><FONT=20
color=3D#ff0000> >>ÂÂÂÂ& ;nbsp; =
:cTextÂÂÂ=20
:=3D ::cJobTitle<BR> >>ÂÂÂÂ& ;nbsp; =
:nWidthÂÂ=20
:=3D 800<BR> >>ÂÂÂÂ& ;nbsp; :nHeight :=3D =
600<BR></FONT> >>ÂÂÂÂ& ;nbsp; :OnClose =
:=3D {||=20
::oPreviewDC:Destroy() }<BR> >>ÂÂÂÂ& ;nbsp;=20
:Create()<BR>>>ÂÂ END WITH</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>En el propio TPreviewControl (que =
est=E1=20
documentado)</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT><BR></DIV>
<DIV><FONT face=3DArial size=3D2>>>ÂÂ WITH OBJECT =
oPreview :=3D=20
TPreviewControl():New( oForm =
)<BR> >>ÂÂÂÂ& ;nbsp;=20
:oPreviewDC :=3D =
::oPreviewDC<BR> >>ÂÂÂÂ& ;nbsp;=20
:nLeft :=3D 0<BR> >>ÂÂÂÂ& ;nbsp; =
:nTopÂÂ=20
:=3D 0<BR> >>ÂÂÂÂ& ;nbsp; :nAlign :=3D=20
alCLIENT<BR> >>ÂÂÂÂ& ;nbsp;=20
:Create()<BR>>>ÂÂ END</FONT><BR></DIV>
<DIV><FONT face=3DArial size=3D2>Saludos,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT><BR><FONT face=3DArial =
size=3D2>-- <BR>Ignacio=20
Ortiz de Z=FA=F1iga<BR></FONT><A href=3D"http://www.xailer.com"><FONT =
face=3DArial=20
size=3D2>http://www.xailer.com</FONT></A></DIV>
<DIV><FONT face=3DArial size=3D2>"Jos=E9 Luis Capel" <</FONT><A=20
href=3D"mailto:jose.luis@iaicom.com"><FONT face=3DArial=20
size=3D2>jose.luis@iaicom.com</FONT></A><FONT face=3DArial =
size=3D2>> escribi=F3 en=20
el mensaje </FONT><A href=3D"news:4506be18@news.xailer.com"><FONT =
face=3DArial=20
size=3D2>news:4506be18@news.xailer.com</FONT></A><FONT face=3DArial=20
size=3D2>...</FONT></DIV><FONT face=3DArial size=3D2>> =
Ignacio,<BR>> <BR>>=20
Gracias por tu respuesta.<BR>> <BR>>><BR>>> El data del =
formulario no est=E1 en =E1mbito, pero las propiedades <BR>>> =
lPreviewModal=20
y nPreviewShowMode te permiten modificar varios aspectos del =
<BR>>>=20
formulario.<BR>>><BR>> <BR>> Perfecto... en la =
documentaci=F3n=20
solo he visto la propiedad lPreviewModal.<BR>> <BR>>> He =
modificado=20
el m=E9todo Printer:Preview() para que acepte un tercer <BR>>> =
parametro=20
con el formulario padre del preview, de esta forma deber=E1 =
<BR>>> heredar=20
el icono del mismo y mostrarlo igualmente.<BR>> <BR>> =BFPuedes =
mandarme=20
esos obj's?<BR>> <BR>>><BR>>> Desde el metodo=20
TPrinter:OnPreview() puedes disparar tu propia ventana de <BR>>> =
Preview=20
y retornar falso para que no se dispare la de Xailer. Por=20
ejemplo:<BR>>><BR>>> FUNCTION MiPreview( nShowMode, lModal =
)<BR>>><BR>>>ÂÂÂ LOCAL=20
oForm<BR>>><BR>>>ÂÂ WITH OBJECT oForm :=3D =
TForm():New(=20
oParent )<BR> >>ÂÂÂÂ& ;nbsp; =
:cTextÂÂÂ=20
:=3D ::cJobTitle<BR> >>ÂÂÂÂ& ;nbsp; =
:nWidthÂÂ=20
:=3D 800<BR> >>ÂÂÂÂ& ;nbsp; :nHeight :=3D =
600<BR> >>ÂÂÂÂ& ;nbsp; :OnClose :=3D {||=20
::oPreviewDC:Destroy() }<BR> >>ÂÂÂÂ& ;nbsp;=20
:Create()<BR>>>ÂÂ END =
WITH<BR>>><BR>>>ÂÂ=20
WITH OBJECT oPreview :=3D TPreviewControl():New( oForm=20
)<BR> >>ÂÂÂÂ& ;nbsp; :oPreviewDC :=3D=20
::oPreviewDC<BR> >>ÂÂÂÂ& ;nbsp; :nLeft =
:=3D=20
0<BR> >>ÂÂÂÂ& ;nbsp; :nTopÂÂ :=3D=20
0<BR> >>ÂÂÂÂ& ;nbsp; :nAlign :=3D=20
alCLIENT<BR> >>ÂÂÂÂ& ;nbsp;=20
:Create()<BR>>>ÂÂ =
END<BR>>><BR>>>ÂÂ If=20
lModal<BR> >>ÂÂÂÂ& ;nbsp; oForm:ShowModal( =
nShowMode,=20
.T. )<BR>>>ÂÂ =
else<BR> >>ÂÂÂÂ& ;nbsp;=20
oForm:Show( nShowMode, .t.)<BR>>>ÂÂ=20
Endif<BR>>><BR>>> RETURN .F.<BR>>><BR>> <BR>> =
Ahora=20
mismo me sirve perfectamente el formulario que presenta Xailer. =
M=E1s=20
<BR>> adelante tengo previsto crear mi propio formulario de=20
previsualizaci=F3n.<BR>> <BR>> Much=EDsimas gracias por tu =
ayuda.<BR>>=20
Saludos,<BR>> Jos=E9 Luis Capel<BR>> <BR>> =
<BR>>><BR>>> --=20
<BR>>> Ignacio Ortiz de Z=FA=F1iga<BR>>> </FONT><A=20
href=3D"http://www.xailer.com"><FONT face=3DArial=20
size=3D2>http://www.xailer.com</FONT></A><BR><FONT face=3DArial =
size=3D2>>>=20
"Jos=E9 Luis Capel" <</FONT><A =
href=3D"mailto:jose.luis@iaicom.com"><FONT=20
face=3DArial size=3D2>jose.luis@iaicom.com</FONT></A><FONT =
face=3DArial size=3D2>>=20
escribi=F3 en el mensaje <BR>>> </FONT><A=20
href=3D"news:45069791@news.xailer.com"><FONT face=3DArial=20
size=3D2>news:45069791@news.xailer.com</FONT></A><FONT face=3DArial=20
size=3D2>...<BR>>>> Hola,<BR>>>><BR>>>> =
Haciendo algo=20
como esto:<BR>>>><BR>>>> REPORT oReport OF =
Self;Â //=20
Self -> Formulario<BR> >>>ÂÂÂ&n bsp;Â =
TITLE=20
"Informe de Erroes en Carga/Descarga de Terminal"=20
;<BR> >>>ÂÂÂ&n bsp;Â=20
PREVIEW<BR>>>><BR>>>> COLUMN OF oReport=20
;<BR>>>>Â TITLE "Tipo" ;<BR>>>>Â DATA=20
oMemDataSet1:cTipo<BR>>>> //ÂÂÂÂÂ =
CHARSIZE=20
1<BR>>>><BR>>>> COLUMN OF oReport =
;<BR>>>>Â=20
TITLE "Proceso" ;<BR>>>>Â DATA=20
oMemDataSet1:cProceso<BR>>>> //ÂÂÂÂÂ =
CHARSIZE 20<BR>>>><BR>>>> COLUMN OF oReport=20
;<BR>>>>Â TITLE "Descripci=F3n" ;<BR>>>>Â =
DATA=20
oMemDataSet1:cDescripcion<BR>>>> =
//ÂÂÂÂÂ=20
CHARSIZE =
150<BR>>>><BR>>>> <BR>>>>ÂÂ WITH=20
OBJECT oReport<BR> >>>ÂÂÂ&n bsp;Â :bWhile =
:=3D {||=20
!oMemDataSet1:Eof() }<BR> >>>ÂÂÂ&n bsp;Â=20
:bSkip :=3D {|| oMemDataSet1:Skip() =
}<BR>>>>ÂÂ END=20
WITH<BR>>>><BR>>>> RUN REPORT=20
oReport<BR>>>><BR>>>> No consigo que la ventana del=20
previsualizador muestre el icono de la <BR>>>> aplicaci=F3n=20
(proyecto->propiedades del=20
=
proyecto->apariencia).<BR>>>><BR >>>><BR>>>>=
=20
=BFC=F3mo puedo tener m=E1s control sobre el informe =
previsualizado? =BFComo se=20
<BR>>>> llama la data con el formulario? Me interesa =
maximizar,=20
centrar, abrir <BR>>>> modal, =
etc.<BR>>>><BR>>>>=20
Saludos,<BR>>>> Jos=E9 Luis=20
=
Capel<BR>>>><BR>>>> <BR>>>><BR>>><BR>>=
>=20
<BR>> <BR>></FONT> </BLOCKQUOTE></BODY></HTML>
------=_NextPart_001_003C_01C6D71B.CFF31120--
------=_NextPart_000_003B_01C6D71B.CFF31120
Content-Type: image/png;
name="2006-09-12_165140.png"
Content-Transfer-Encoding: base64
Content-ID: <003601c6d70b$0b378d80$2f001aac@AGSoft.local>
iVBORw0KGgoAAAANSUhEUgAAAgAAAAD4CAIAAAAVRMnwAAAABmJLR0QAAAAA AAD5Q7t/AAAACXBI
WXMAAA7EAAAOxAGVKw4bAAAVKUlEQVR4nO3d7ZXjNrKAYeS0OTmnm8H+cBAK YALYFO45mwO3bbk5
aNQnQQqEhPc5tA9UKBRJjMSa7vaMywMAsKQSJQAAPlOJEgAAn6lECQCAz1Si BADAZypRAgDgM5Uo
AQDwmUqUAAD4TCVKAAAMtR0U1TOVv/7J+b0ml5bRt0o6X+EVjB265pbPuPca kltx70WqDl32iy7+
dZUxj69neil/JI+5GsCTcbrW0XzV+Qovom1MK6rxEned3dwF7WKs+I38C87n nPG6ypgHDSDrfIXX
EbuiiGq8xF1nN3dBuxgrfqP8NVsJ572uMubxbADN93l+/fq1//s5+HJBA2hD 0TvMSSgVOfsKg093
yFQbdTvrlsP4YxpFOJpw3usqYx7PBvDrp/2hX+trANuv8hwUORe+w/wEOVtH mlm1lJVjpVkJMuch
1FNNmrrKyilR8cxsHVHXlp8eP+XjVubDPYW1Khm30qwpa7laQa5SM0/G65dO vlyopvk5MrOJ+Mlq
At6F/BbQ/jXB+W8BfT39n8fXuMjp8A3kJ8jZorGSrXyZ6c9mEvwcdYmar2Za FZxZUe/ArFrQioeZ
NXVWXfWzWBu3lluK61C+mqOu/Vmyjdcv5RJ/tsmRHoKTLPMzOXgXzwf9rn7u f43/qBxtAPvT/3kU
mRG+e/wEOVs0VrKVXwvL+kXCczVTYX5NTX5o5Kwo9ntWnaoT1IJWXM0stkyp o5nNrKTmW2uj3CIz
rbWZzI7Zx5GLvDD5gTe0fwvo+e1++Vv+3aEG0Dz9r28A6jtPDTZTajBTpKNC mOnwK5fEtTlLwjpq
sprZneav9Rf6mTK59hDUWWtJPtlPS2bWL5tZa+0juh4rua+Cuhzvov4ZgPye z3Pq67f/h34GIJ/+
ZxuAQ813SoXBQ8n5ClamJV+5DjrCIofimUg+TcadhVb8IRSbmmYtlxEnuVxx C02kfulMNZE6aE1Z
meqUlewUweSarwCabwF1fAWgPv1f1QCsfKdUGDyUXCL+coeVr8ZLJFPkUJ1M xE+zqGszY0cR1Flr
VZiZyc+MrVJOvlwuI7VwuZVZRyyyCCa3N4DnN/rrrwP24NGvAMq//lAOJS96 35hvNGPV0SkrP59c
Iv5yh5WvxovrIVhTZgktvw6qCWq8RML61jijVGTQSg4zM/mZsVXKyZfLZaQW Lrcy64hFFsHkLv8K
wFKUUPS+CRMaTr46ZeXnk60KUj7zyco/eRlPh4pb6uR8wfwprPrWWK5S5Zfk MzP5mXFYqh74meVn
QWvWST5aGe+o+Qqg+SKg72cAqqKEovdTmNBw8tUpKz+fbFWQ8plPVv7Jy3g6 VNyxJ1urZMFDp7Dq
W/FHVd86hZy18p1MJ7lo1/MQl2rF61mZ78TVzMdPcsrKVKecZLwp+RWAhQZw Ktlabjl5Op+Tf6h+
+ekh5Kv5wWbKisvZzFSYrAbVCk4RZ4mzKsxXK/iZYTATD4N4C9vIvwuoDUXv mzCh4eSrU1a+n9xM
FVtY05my8g8lW5z8YguTnQRnVc1a3sweWqVS8606atBiFWlmk6vCfLVCibwi +YE3FPy2X4jqmYoS
it46YULDyVenrHw/OZzycx7CofxDyRY/vxj85EOzorZZJKwglzzs+uqS7rj0 0Fizzip1Kh98HLxI
J1nmJ9OAWlFC0VsnTGg4+eqUlR/G/Sk5+3jxtTnFVWF++clKe0SlnNnkKayE cOFDnMLKt6acJY/0
9T+66qtT+aCcdXJkZhPxk9UEoFGiBADAZypRAgDgM5UoAQDwmUqUAAD4TCVK AAB8phIlAAA+U4kS
AACfqUQJAIDPVKI/YwwA+Ew0AABYFA0AABZFAwCARdEAAGBRNAAAWBQNAAAW RQMAgEXRAABgUTQA
AFgUDQAAFkUDAIBF0QAAYFE0AABYFA0AABZFAwCARdEAAGBRNAAAWBQNAAAW RQMAgEXRAABgUTQA
AFgUDQAAFkUDAIBF0QAAYFE0AABYFA0AABZFAwCARdEAAGBRPQ2gFH2VFZfy mbW+VduJhY29zuUF
nUiSv9D5Jes+YyhfOZ9Z61vV7arTzfwuGmnkRebPlc9UnVw+Xs/lqk+NQ4+S fGatb9WFXn0BZ+p3
NIAzp8t49/ov8urLfnX9q7zLdR7ydjfVc7k0gAnRAN7Fm1725T5yH97upnou 93mT9a2qEdkS9kiY
eWZVkxYudMZWZj2oOWv9gs6srFPbZzOl5MI97py9/neT3yQ34yYY1rcyG/ts ftWeb12ArOBkymQ1
P8yUp5aZTcQv6MzKOior2SmrrspXcJwvWy+sB07NJq7WbyJ1kTBTrnISBug5 t3qrdURONQM/s9ax
qvvC8sHMSZ0lfsHwlvOZ+eVqMDP2K/izycyav9xZpZ7LqeBErNs5GpSXat1I R8HwNlVqcqasf7rw
XlR9Zffx0cuWdWTEvxG14KbVzCSM0XPi5iaTvzD5YO3Mqsyv7paupg5kjhVP Vg6DtfyqC8+eT77w
pGrwRauaBJmfP4Wa4NRRF27pUx+6TVW+Qrh7m3E6/17UTGfsJPRd9slflPBE ajDcitfpOXFzk/Ke
8zsS7oK1qmatss7SrHLGTbJaUL701zZpctYP1qxVLz17PrkJOpcUnlQN1qtk /cyqOigrPAd+fh2x
xmrZJk2+9Nc2aXLWD1ryFayyzjhzL7W+sjKnfhnW9Ots0Y2EJ1KDasIYPSdu blLec35Hwl0IV6ms
C5M5W+IUyRtUI5dfQy1cpWbKYFgnHHdsVz5YC1epwlXOuZIbmz9F8gLCgv5s 8iyNfAWrbD6572K2
qOw+7ljiJBxdEm57mDBGz4n7NjEfrPWtsnI6guVvmSUyoq7dtDr5C6vlV/nL wyXhOHl3+Q1pxmrw
0Crnqo6OO4KHLiCzdtPq5C/Mkq8Q7pKabN2Lqq/sHu+7bH+7whtJ1skkjNFz 4nATt+8Nam6sVPzM
S1ZZY7nQOUW9XB0k19bJdSQ/u2mcs4fL80uS46aInK2DYZ3NIE8UrtpPbZ10 MypY+VayjO8v96A6
SK6tk+tIflYdhwl9ZWWFOnjmYupxpmx4UjWzVmc2Z2ySZXAzhAkD3HluYIx7 P2NzmmpPprqYpbDv
+Hw8X6Sp9mSqi1kK+47Px/MFUPHBAIBF0QAAYFE0AABY1EsagP8t1/w3ZPOZ qo7l1pKOUuepJ5XB
W65tO3Lek5l77GvQHN3OrAU+xid/DvLPnd2FDaBjSSNTIZNzu/xFhg3AmgLQ 4ZM/QPnnTu2q32L3
raqdrzCJ/I3QAICRej5Az09p+dseqT+6dfzQrJNZqxOaSF0kzFTJHL+OPJeV Zi3cg2HC9vNEmZoN
p2ZzGWFZ/0rq/L7MarYdWFP1y1L0hU1mJlmOgc/Q86auP8DNWA7ys07mro6o Y7/gptWUwrNsxolq
hxZat68Gm0G4pJY/UZgQLnHWhpm1PSYn6yk17Tl2IplkOQY+Q8+bWv0Y1+P8 B17OWglWpImHdawK
tfDCNqN4LYwfqpzcvfBOD61Kniu/pHYk8/egOWSONX4OmpeZ5GYh8El63tf5 50XHrJUgXz4jO5kT
nsjxTJMX4J+xSW5eZi61HvvB8GLUC8ufKEzou5J8ZhVsB07Oc1xEk3gOZKkw uVkIfJKe97Xz2bYG
+dlMwtEl4SNGeqY1ycbjSS/YfXfJewkvJp8w7ErywdoeM3a6nVLTnkFZKkxu FgKfpOd9nX9edMxm
EmRa8oybVsfinHEzimeSw6tK3kt+SU29gMyVOKvyV+IXbMZVsB04OUfHYUIz Bj5Jz1s787zonrUy
a3Xm86UMqpnFOKNKTcjXUS+gzreK1An+6cLZTdivwcm0yh66kjooM63lTYXv 2Xbg5Owvi/iTYvXL
Znwk2b4I4N3wbl5L3/OrbxWAyfHBXkvfo7xv1SVKmegAPgxv6rX0Pcr7VgGY HB9sAFgUDQAAFkUD
AIBF0QAAYFE0AABYFA0AABZFAwCARdEAAGBRNAAAWBQNAAAWRQMAgEXRAABg UTQAAFgUDQAAFkUD
AIBF0QAAYFE0AABY1OEG8N///w8HBwcHx7RH9BT/jQbAwcHB8TnHn//+v+gp /ltnA/g6B0fyYLs4
ODgGHPujJnqK/9bfAKJE/IPtAjAADWBGbBeAAe5vAOVv6tSyaAAABri5AfD0 V9EAAAxwcwOAiu0C
MMCdDaB8U1c5rFV91SbkfMEkg1IyLWRtsgwCeEef3AA6Kk/C2q5t7E3RAIDP dlsD2B/WHT0gsyST
My0aAIABpmsATTyT46zdZ2VELp/HoQag3lczWwf3l00pq05YvKkD4F1M2gDq KZnmx/vGU1G3Kz9W
B9bYr+PXlEsAvJF7GkDz5HUeTy8dT6uvAcigmnnV8rAOgMnRAGakbldDztaR ZhAGt59nySwvP20A
3s2dDUB9gowcT0tuV5Og3kJ9jzLt8uD82wjAd0MDUB/Be9B6WMvx0Xx/PJVm u9Sc/fabiDWQwfOZ
chbAG3njBiBLOS9LxcqfR74BbNWtyamtusc6P5+ZKV5HALyRGxoAQq/YLh7T ABo0gBldtV3W79wB
YKMBzOnC7eK7NAAsNIAZsV0ABqABzIjtAjDAuAbAwcHBwTHbMagB/Bn9/+k5 9oPt4uDgGHAMbQBR
Iv7BdgEYgAYwI7YLwAA0gBmxXQAGoAHMiO0CMAANYEZsF4ABbmgAxbBPucWW 0DQAuSdX7ZJV56r6
AGZ2QwPYycc9DeBJNgC5UWLRYZcUAfC+5moAeFK/Aqj3in0DcN5cDaCO7GMr rYnLtPeVbwBOUN3M
OlluYPNvK9MKAngvszeA/XnUxP3xu7N+BuAMmqA1zq/yM2UQwNuZvQHkx5/k fAOQwTAhDMpZKwHA
W6ABzMj5r4Ce4/xT20qo+ZmbYNUH8F5oADMa0AA24WQmgLczewPYn3dN3B+/ O//PATR3LdPUYJhw
Mgjg7czeAJy0Ji7T3pffAJqI3I1m1l/VkWkFAbyXOxuAb+XnS8d2AcBRNIAZ dWwXABxFA5hRx3YB
wFHzNoCVsV0ABqABzIjtAjDAuAbAwcHBwTHbMagB/Bn9/+k59oPt4uDgGHAM bQBRIv7BdgEYgAYw
I7YLwAA0gBmxXQAGoAHMiO0CMAANYEZsF4ABbmgA6h/xDf/cb5jgyywPc8KE ZE7okgYgr6KJfL3c
DyvezFp3Fp5LjQC4Fw3gQE6YkMwJXdUA5JNdHftTdUTWVIPPl84pAMzghgaw iadk5qGZyZnBJdd5
VQPYfj526+e4la/O0gCAjzRjAyiVjpwmKJfvY3W5Uy1M2IwTHSUbQDG+G1MH rYQm0gQzs82UfxY/
CGAe0zWAzMM0M27ItOfLTCkr2Skux4eI7drkuBiP/kODmjPbTMnrUa/QGQOY wT0NYDOeqs1s5sFq
jRuZJWEpGSwVZ+FRTgNQg+o4M6jVs82h5siX+TGAGczYANSpo+NGZklYqgnu L8OFR+W/BeSMZVCd
anI2u7LMkUuKaB7+SQHcaLoGYD1Mj44bmSVhqUyyuvAo54fA4WPaSfCfxdas U1wukZX9kwK40W0N
YPt+VjaPy8yDNTNuZJaE4zDBGR+S/BlAPuH50lqy2dWcKTm27tWfBXCX6RpA HXcepjJB5tSsUodO
4SSoOU1+3uXfAlIjRXyXRk3bjJpybN3rPtscAO51ZwOAhe0CMAANYEb1dsnf OH/MAeBeNIAZsV0A
BqABzIjtAjAADWBGbBeAAcY1AA4ODg6O2Y5BDeDP6P9Pz7EfbBcHB8eAY2gD iBLxD7YLwAA0gBmx
XQAGoAHMiO0CMAANYEZsF4ABaAAzYrsADHBDA1D/irTw700LEz7JJQ1A7lYT sf5WBufvbLB+BcJz
qZHLdV+elbDHw8r1QO6eDL5oNw5dZ0eOk3njXaMbDWBGVzWAZsPql/mpOqJ+ hq0TOad4kasur77f
feBXVu/On32F/HVa2+LnbEa1JsGZxVRuaADbX++MH0/zzMM9k/MxrmoA288P YffnNv9EqPOt58vr
XHV5civCys6mqbMvkr9OuQnve9foNmMDKJWOnDqYTJuNbABFfAW9f4Ctj2vm E17LfKqtms0SJ5h3
4S1nLk+N52/c2TR1NuMVOxDeUSbnpXeNkaZrAE780NiacvLnIbZrk+NiPAUO DWqZT3Xz+Xci/jh0
5pb7Lk+N5CtbC/eX8vC9aAc6Bplq1sujd43B7mkA219vDuWJ3MxaD+vM2Jpq ys7JaQBqUB1nBrV6
1vrQNhXUgplx6JJbPnR5aiRf2Vqovsx40Q6cGQy4aww2YwNQp46O95c1Gd+m lP8WkDOWQetz2wSt
yjJHfSLIo8lJOnPLHZcnV1kVnLgcW5GMF+1AM8gnZ4rU+u4aI03XAOSTum8s XzbKNyvhRs4PgcPP
3qFPeM2adYr7T4RwKqnjlk9enrMwU9k5S5/wLB3XKZeHyZkitZN3jQFuawDb X+8P5RGcebhnxtaU
kz+P5M8A8gnPl87HtWNKjq299GdV4R11JOQvTxbMn1o9y6F7f+q4wUMJzSUV +ycKzvjyu8Zg0zWA
Ou48rGWCzPHTZPI8Lv8WkBrZa8p4I/lEsLZzn22O71l92clbPnR51i0nK9f5 6m1a8e+1g3bAyszk
XH7XmMGdDQCWpbZr2jY8DDuAu9AAZlRvl/rbqM84vm+wfUeFCz/mWHMHMA8a wIzYLgAD0ABmxHYB
GIAGMCO2C8AANIAZsV0ABnjXBlD/R5zWf9A583/o6bt8uwBAogHM6PLtAgDp XRtAjQYAAB3uaQD7
o1k+o0vFCapjddWZynehAQAY4M4GUMRTWx0ng8lqhyrfhQYAYIA7G0ByXL7V NcNVmbFaeQY0AAAD
vEED2KondTLTr2DFt2nQAAAM8B4NoI4U+7s3ybFUV54BDQDAAHc2gJJ7lCeD yWqHKt+FBgBggDsb
wKY9bUvFCapjddWZynehAQAY4OYGABUNAMAANIAZ0QAADEADmBENAMAA9zQA +NguAAPQAGbEdgEY
YFwD4ODg4OCY7RjUAJ6n4eDg4OCY7Yie4r/1NIDw9BwcHBwcdx3RU/y3ww0A APAZaAAAsCgaAAAs
igYAAIuiAQDAomgAALAoGgAALIoGAACLogEAwKJoAACwKBoAACyKBgAAi6IB AMCiaAAAsCgaAAAs
igYAAIuiAQDAomgAALAoGgAALIoGAACLogEAwKJoAACwKBoAACyKBgAAi6IB AMCiaAAAsCgaAAAs
igYAAIuiAQDAomgAALAoGgAALOp/ASNX/w2jslcAAAAASUVORK5CYII=
------=_NextPart_000_003B_01C6D71B.CFF31120--
Attached files