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.

Preview

Foro de Xailer profesional en español
Responder
paco-ssi
Mensajes: 390
Registrado: Lun Feb 07, 2005 4:17 pm

Preview

Mensaje por paco-ssi »

Hasta la Prerelease3 esto me funcionaba correctamente, ahora si quiero ver
el preview tengo que meter un msginfo().
Me casca en los puntos indicados con /////////CASCA////////
He tenido que poner el Msginfo que aparece.
Se que habeis cambiado algo. Pero aunque he leido LO NUEVO, no lo pillo.
Perdon una vez mas.
Paco V
//---------------------------------------------------------- ----------------
----
METHOD OTROVALEIM( oSender ) CLASS TForm9
LOCAL ofrmPreview, oFont, oPen, oBmp,oBmp1, oJpg, DIA
local n := 100
oFont := TFont():New()
oPen := TPen():New( PS_SOLID, 3, CLR_BLACK )
oBmp1 := TPicture():Load( "RENFE3" )
WITH OBJECT oFont
:cName := "Arial"
:nSize := 14
:lBold := .f.
END WITH
Printer:lPreview := .t.
Printer:StartDoc()
Printer:oCanvas:nMapMode := mmHIMETRICS
Printer:StartPage()
WITH OBJECT Printer:oCanvas
:oFont := oFont
:oPen := oPen
:DrawPicture( {50, 05, 400, 200}, oBMP1 ) //Imprime el Logo en la
cabecera
:TextOut( 1400, 100, "PARA EL TAXISTA")
CLR_BLUE)
:TextOut( 1700, 720, ::oDBMaskEdit2:value , CLR_BLUE)
:oFont:nSize := 12
:TextOut( 300, 820, "Observaciones para el Taxista: ", CLR_BLUE)
// Segunda parte del modelo
:oFont:nSize := 14
:oFont := oFont
:oPen := oPen
:DrawPicture( {50,1505, 400, 1700}, oBMP1 ) //Imprime el Logo en la
cabecera
:TextOut( 1400, 1600, "PARA LA BASE")
CLR_BLUE)
:TextOut( 250, 2120, "Desde: "+ ::oDBEdit6:value + " Hasta:
"+::oDBEdit7:value + Texto, CLR_BLUE)
:oFont:nSize := 12
:TextOut( 300, 2320, "Observaciones para el Taxista: ", CLR_BLUE)
:oFont:nSize := 10
:TextOut( 250, 2670, substr(::oDBMemo2:value,401,99), CLR_BLUE)
:oFont:nSize := 6
:TextOut( 1500, 2750, "Impreso el dia : " +dtoc(date())+ " a las
"+substr(time(),1,5), CLR_BLUE)
:oFont:nSize := 10
:lTransparent := .f.
:oFont:nSize := 14
:lTransparent := .t.
:nbkColor := CLR_WHITE
/////////Casca //////////////////////
:nMapMode := mmSIMULCHAR
:oFont:nSize := 12
:oFont:lBold := .f.
:nMapMode := mmHIMETRICS
:nbkColor := CLR_BLACK
////////Casca//////////////////////
END WITH
Printer:EndPage()
Printer:EndPage()
Printer:EndDoc()
Printer:Preview()
oFont:Destroy()
oBmp:Destroy()
MSGINFO("5")
/////// Para que pare y se ve el preview debajo////////////////
//oJpg:Destroy()
RETURN Nil
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9441
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:

Preview

Mensaje por ignacio »

Paco,
Si miras LONUEVO.HTM verás lo siguiente:
Canvas: Renombrada propiedad nBkColor a nClrPane
Y lo hemos puesto en ROJO como aviso a navegantes. Somos conscientes que
este tipo de cambios pueden romper el código de los usuarios, pero hemos
pensado que sino lo arreglabamos ahora que estamos al prinicpio nos ibamos a
quedar con ese error de por vida. Espero que nos disculpes las molestias
ocasionadas.
Un saludo,
"Paco V." <paco-ssi@usuarios.retecal.es> escribió en el mensaje
news:[email=42839f42@ozsrvnegro.ozlan.local...]42839f42@ozsrvnegro.ozlan.local...[/email]
> Hasta la Prerelease3 esto me funcionaba correctamente, ahora si quiero ver
> el preview tengo que meter un msginfo().
>
> Me casca en los puntos indicados con /////////CASCA////////
> He tenido que poner el Msginfo que aparece.
>
> Se que habeis cambiado algo. Pero aunque he leido LO NUEVO, no lo pillo.
>
> Perdon una vez mas.
>
> Paco V
> //---------------------------------------------------------- ----------------
> ----
>
> METHOD OTROVALEIM( oSender ) CLASS TForm9
> LOCAL ofrmPreview, oFont, oPen, oBmp,oBmp1, oJpg, DIA
> local n := 100
> oFont := TFont():New()
> oPen := TPen():New( PS_SOLID, 3, CLR_BLACK )
> oBmp1 := TPicture():Load( "RENFE3" )
> WITH OBJECT oFont
> :cName := "Arial"
> :nSize := 14
> :lBold := .f.
> END WITH
>
> Printer:lPreview := .t.
> Printer:StartDoc()
> Printer:oCanvas:nMapMode := mmHIMETRICS
> Printer:StartPage()
> WITH OBJECT Printer:oCanvas
> :oFont := oFont
> :oPen := oPen
> :DrawPicture( {50, 05, 400, 200}, oBMP1 ) //Imprime el Logo en la
> cabecera
> :TextOut( 1400, 100, "PARA EL TAXISTA")
> CLR_BLUE)
>
> :TextOut( 1700, 720, ::oDBMaskEdit2:value , CLR_BLUE)
> :oFont:nSize := 12
> :TextOut( 300, 820, "Observaciones para el Taxista: ", CLR_BLUE)
>
> // Segunda parte del modelo
> :oFont:nSize := 14
> :oFont := oFont
> :oPen := oPen
> :DrawPicture( {50,1505, 400, 1700}, oBMP1 ) //Imprime el Logo en la
> cabecera
> :TextOut( 1400, 1600, "PARA LA BASE")
> CLR_BLUE)
> :TextOut( 250, 2120, "Desde: "+ ::oDBEdit6:value + " Hasta:
> "+::oDBEdit7:value + Texto, CLR_BLUE)
> :oFont:nSize := 12
> :TextOut( 300, 2320, "Observaciones para el Taxista: ", CLR_BLUE)
>
> :oFont:nSize := 10
> :TextOut( 250, 2670, substr(::oDBMemo2:value,401,99), CLR_BLUE)
>
> :oFont:nSize := 6
> :TextOut( 1500, 2750, "Impreso el dia : " +dtoc(date())+ " a las
> "+substr(time(),1,5), CLR_BLUE)
> :oFont:nSize := 10
> :lTransparent := .f.
> :oFont:nSize := 14
> :lTransparent := .t.
> :nbkColor := CLR_WHITE
> /////////Casca //////////////////////
> :nMapMode := mmSIMULCHAR
> :oFont:nSize := 12
> :oFont:lBold := .f.
> :nMapMode := mmHIMETRICS
> :nbkColor := CLR_BLACK
> ////////Casca//////////////////////
> END WITH
> Printer:EndPage()
>
> Printer:EndPage()
> Printer:EndDoc()
> Printer:Preview()
> oFont:Destroy()
> oBmp:Destroy()
> MSGINFO("5")
> /////// Para que pare y se ve el preview debajo////////////////
> //oJpg:Destroy()
>
> RETURN Nil
>
>
>
Ignacio Ortiz de Zúñiga
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
paco-ssi
Mensajes: 390
Registrado: Lun Feb 07, 2005 4:17 pm

Preview

Mensaje por paco-ssi »

Mea culapa "MAESTRO".
Lo que me ha ocurrido es que "LO NUEVO" que yo he leido fue lo que indicaste
en tu mensaje hace unos cuantos dias. Y no habia leido el que viene en la
PRERELEASE 3
De nuevo os pido perdon.
Paco V
"Ignacio Ortiz de Zúñiga" <InvalidAccount@ozs.com> escribió en el mensaje
news:42845ca3$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Paco,
>
> Si miras LONUEVO.HTM verás lo siguiente:
>
> Canvas: Renombrada propiedad nBkColor a nClrPane
>
> Y lo hemos puesto en ROJO como aviso a navegantes. Somos conscientes que
> este tipo de cambios pueden romper el código de los usuarios, pero hemos
> pensado que sino lo arreglabamos ahora que estamos al prinicpio nos ibamos
a
> quedar con ese error de por vida. Espero que nos disculpes las molestias
> ocasionadas.
>
> Un saludo,
>
> "Paco V." <paco-ssi@usuarios.retecal.es> escribió en el mensaje
"Paco V." <paco-ssi@usuarios.retecal.es> escribió en el mensaje
news:[email=42839f42@ozsrvnegro.ozlan.local...]42839f42@ozsrvnegro.ozlan.local...[/email]
> Hasta la Prerelease3 esto me funcionaba correctamente, ahora si quiero ver
> el preview tengo que meter un msginfo().
>
> Me casca en los puntos indicados con /////////CASCA////////
> He tenido que poner el Msginfo que aparece.
>
Responder