PROYECTOS INCOMPLETOS

[PEDRO DE LEON RODAS[1]]

SEÑORES, CREADORES DE XAILER.
HE DEJADO 2 PROYECTOS INCOMPLETOS POR QUE HASTA AHORA NO HE ENCONTRADO LA
SOLUCION EN XAILER Y YA NO CUENTO CON SOPORTE YA QUE TERMINE EL AÑO DE
GARANTIA DESDE QUE COMPRAMOS XAILER..
ESTOY HACIENDO UN SISTEMA DE PUNTO DE VENTAS, Y POR LOGICO ES NECESARIO
IMPRIMIR TICKETS.
NO SE COMO HACERLO EN XAILER.
Y TENGO QUE USAR RECURSOS DE FOXPRO.
NOTA. NO ES VALIDO COMPRAR UNA HERRAMIENTA Y DEPENDER DE OTRA.
EL OTRO PROBLEMA ES QUE XAILER NO ME PERMITE REPRODUCIR VIDEOS EN UN
FORMULARIO.
ESTO ES PARA UN PROYECTO QUE TENGO HECHO EN FOXPRO Y AHI FUNCIONA BIEN.
ESPERO QUE PRONTO TENGAN EJEMPLOS O LA AYUDA NECESARIA PARA PODER TERMINAR
LOS PROYECTOS QUE
DESEAMOS REALIZAR.
NOTA.. MI SOPOR

[Wilson-CPS]

Segue uns componentes que fiz para reproduzir video com Xailer. Espero que
ajude.
"PEDRO DE LEON RODAS" <deleonpe@terra.com.mx> escreveu na mensagem
news:48a89d5b$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> SEÑORES, CREADORES DE XAILER.
>
> HE DEJADO 2 PROYECTOS INCOMPLETOS POR QUE HASTA AHORA NO HE ENCONTRADO LA
> SOLUCION EN XAILER Y YA NO CUENTO CON SOPORTE YA QUE TERMINE EL AÑO DE
> GARANTIA DESDE QUE COMPRAMOS XAILER..
>
> ESTOY HACIENDO UN SISTEMA DE PUNTO DE VENTAS, Y POR LOGICO ES NECESARIO
> IMPRIMIR TICKETS.
>
> NO SE COMO HACERLO EN XAILER.
> Y TENGO QUE USAR RECURSOS DE FOXPRO.
>
> NOTA. NO ES VALIDO COMPRAR UNA HERRAMIENTA Y DEPENDER DE OTRA.
>
>
> EL OTRO PROBLEMA ES QUE XAILER NO ME PERMITE REPRODUCIR VIDEOS EN UN
> FORMULARIO.
> ESTO ES PARA UN PROYECTO QUE TENGO HECHO EN FOXPRO Y AHI FUNCIONA BIEN.
>
>
> ESPERO QUE PRONTO TENGAN EJEMPLOS O LA AYUDA NECESARIA PARA PODER TERMINAR
> LOS PROYECTOS QUE
> DESEAMOS REALIZAR.
>
>
> NOTA.. MI SOPOR
>
>


Attached files TMCI.PRG (19.9 KB)Â TVideos.prg (3.3 KB)Â

[Rene Flores]

PEDRO:
> ESTOY HACIENDO UN SISTEMA DE PUNTO DE VENTAS, Y POR LOGICO ES NECESARIO
> IMPRIMIR TICKETS.
Tienes varios ejemplos de impreison en Xailer en la caperta PRINTING
debajo de la carpeta SAMPLES.
> EL OTRO PROBLEMA ES QUE XAILER NO ME PERMITE REPRODUCIR VIDEOS EN UN
> FORMULARIO.
> ESTO ES PARA UN PROYECTO QUE TENGO HECHO EN FOXPRO Y AHI FUNCIONA BIEN.
Por supuesto que se puede, puedes usar el windows media player como un
OCX y reproducir tus videos, creo recordar que alguien ya habí­a hecho la
pregunta del video y le habí­an respondido con unejemplo de como hacerlo
usando el WMP.
Saludos
René Flores
http://www.ciber-tec.com

[jasm.quitaesto]

Pedro,
¿Qué problemas tienes para imprimir tickets?
Yo imprimo sin problemas usando TCanvas.
Saludos,
Alf+.

[rafa]

Primero de todo , seria interesante, no escribir en mayusculas, que de
tanto grito , hace daño a la vista
> NO SE COMO HACERLO EN XAILER.
El que no sepas como hacerlo, no implica que no se pueda.
Quizás en el foro SI PREGUNTARAS, te dirí­an como hacerlo.
Sobre la impresión, no puedo decirte nada , porque no la he probado,
pero si usa la TReport de Ignacio, es bien sencillo hacerla servir.
Sobre el Video, tienes un OCX del Media Player en el sistema que con 2
clicks de ratón lo tienes, y lo tienes porque yo lo he realizado sin
leerme ninguna documentación.
También, puedes usar el MCI, no se si lo trae Xailer, pero no costaria
mucho dotarle de soporte MCI, de esta manera no tendrias que usar ningun
OCX.
Sinceramente, me parece una critica un poco fuera de lugar.
Y mira que yo , habitualmente, si te tengo que dar la razón te la darí­a,
pero aqui me parece absurdo lo que estas diciendo.
Pero como digo, yo aquí­ solamente estoy de paso
Saludos
Rafa Carmona

[jfgimenez]

Pedro,
sobre los dos problemas que planteas, los has preguntado en este foro o en
el pro en otras ocasiones, y en todos los casos se te ha respondido, tanto
por mí como por otros usuarios. Sólo tienes que revisar los mensajes y
encontrarás las respuestas.
Si después de eso sigues sin poder resolver los problemas, haz un pequeño
ejemplo de lo que quieres hacer y lo publicas, y así podremos ayudarte
mejor.
--
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info

[PEDRO DE LEON RODAS[1]]

José, te agradezco tu respuesta.
Podrias proporcionarme un ejemplo, del cual estes usando.
Gracias.

[PEDRO DE LEON RODAS[1]]

"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje
news:48a96ee0$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Pedro,
>
> sobre los dos problemas que planteas, los has preguntado en este foro o en
> el pro en otras ocasiones, y en todos los casos se te ha respondido, tanto
> por mí como por otros usuarios. Sólo tienes que revisar los mensajes y
> encontrarás las respuestas.
>
> Si después de eso sigues sin poder resolver los problemas, haz un pequeño
> ejemplo de lo que quieres hacer y lo publicas, y así podremos ayudarte
> mejor.
>
> --
> Un saludo,
>
> José F. Giménez
> http://www.xailer.com
> http://www.xailer.info
Lo estare haciendo, mil gracias Jose F. Gimenez

[jasm.quitaesto]

PEDRO DE LEON RODAS escribió:
> José, te agradezco tu respuesta.
> Podrias proporcionarme un ejemplo, del cual estes usando.
>
> Gracias.
>
>
Pedro,
Te he enviado un correo a tu privado.
SAludos
Alf+.

[PEDRO DE LEON RODAS[1]]

Gracias José por tu ayuda.
Mi correo en hotmail es: deleonpe@hotmail.com
Y mañana miercoles estoy en casa trabajando desde las 9 am a 1:30 pm.
De antemano te adelanto algo de lo que he echo con la impresion de xailer.
METHOD Button1Click( oSender ) CLASS ejemplo
local variable,IMPORTE_SERVICIO,IMPORTE_TOTAL,precio,importe,linea s
IMPORTE_SERVICIO=1500.00
IMPORTE_TOTAL=2500.00
precio=1050
importe=3500
lineas=10
*SET PRINTER TO NAME "Star SP512 Line Mode Printer" /// esto lo uso en
foxpro y funciona bien pero en xailer no jala. (LO QUE HACE ES MANDAR LA
IMPRESION A UNA IMPRESORA PREVIAMENTE SELECCIONADA)
Printer:nPrinterIndex="Star SP512 Line Mode Printer" // LO QUISE HACER DE
ESTA MANERA PERO NO FUNCIONA , YA QUE LA IMPRESION ME LA MANDA POR DEFAULT A
LA IMPRESORA QUE ESTA CONECTADA EN EL PUERTO PARALELO, Y LO QUE PASA ES QUE
ESTAN COMPARTIENDO IMPRESORA DE TICKET POR RED)
SET DEVICE TO Printer
SET PRINTER ON
@ Prow(),0 say "NOMBRE DE LA EMPRESA "+DTOC(Date())
@ Prow()+1,0 say "VENTA No. "+ALLTRIM(STR(Lineas))
@ PROW( )+1,0 say "CANT."
@ PROW( ),14 say "PRECIO"
@ PROW( ),30 say "IMPORTE"
@ PROW( )+1,0 say REPLICATE("-",41)
for variable=1 to lineas
@ Prow()+1,0 SAY "Descripción del Producto"
@ Prow()+1,0 SAY variable Pict "###"
@ Prow(),14 SAY Precio pict "#,###"
@ Prow(),30 SAY Importe pict "#,###"
Next
@ PROW( )+1,0 say REPLICATE("-",41)
@ PROW( )+1,5 SAY "SERVICIOS=>"
@ PROW( ),23 SAY IMPORTE_SERVICIO pict "$##,###,###.##"
@ PROW( )+1,5 SAY "TOTAL====>"
@ PROW( ),23 SAY IMPORTE_TOTAL pict "$##,###,###.##"
@ Prow()+7,0 SAY Chr(27)+chr(69) /// HACE EL CORTE DE PAPEL
SET DEVICE TO SCREEN
SET PRINTER OFF
SET PRINTER TO
Printer:nPrinterIndex=="Epson LX-300+" /// ESTA IMPRESORA ES EN LA QUE SE
IMPRIMEN FACTURAS Y LA PONGO POR DEFAULT
De antemano te agradezco toda la ayuda que me proporciones.
Dios te bendiga.

[jfgimenez]

Pedro,
> *SET PRINTER TO NAME "Star SP512 Line Mode Printer" /// esto lo uso en
> foxpro y funciona bien pero en xailer no jala. (LO QUE HACE ES MANDAR LA
> IMPRESION A UNA IMPRESORA PREVIAMENTE SELECCIONADA)
Efectívamente. Tanto foxpro como xHarbour (que es el compilador que utiliza
Xailer) son dialectos del lenguaje original de dBaseIII, y este lenguaje
original tenía el comando "SET PRINTER TO <fichero>", pero no "SET PRINTER
TO NAME <impresora>". Por lo tanto, no debes esperar que todo lo que foxpro
cambió con respecto al languaje original sea también válido para Xailer.
> Printer:nPrinterIndex="Star SP512 Line Mode Printer" // LO QUISE HACER
> DE ESTA MANERA PERO NO FUNCIONA , YA QUE LA IMPRESION ME LA MANDA POR
> DEFAULT A LA IMPRESORA QUE ESTA CONECTADA EN EL PUERTO PARALELO, Y LO QUE
> PASA ES QUE ESTAN COMPARTIENDO IMPRESORA DE TICKET POR RED)
No te funciona porque la propiedad nPrinterIndex es de tipo numérico, no una
cadena de caracteres. Si lo que quieres es seleccionar una impresora por su
nombre, lo que debes hacer es:
Printer:nPrinterIndex := AScan( Printer:aPrinterNames, "Star SP512 Line
Mode Printer" )
> SET DEVICE TO Printer
> SET PRINTER ON
> @ Prow(),0 say "NOMBRE DE LA EMPRESA "+DTOC(Date())
> @ Prow()+1,0 say "VENTA No. "+ALLTRIM(STR(Lineas))
> @ PROW( )+1,0 say "CANT."
> @ PROW( ),14 say "PRECIO"
> @ PROW( ),30 say "IMPORTE"
> @ PROW( )+1,0 say REPLICATE("-",41)
Aquí estás mezclando la forma de imprimir de Xailer con la forma de imprimir
del compilador xHarbour, que está basada en la forma en que imprimía
Clipper. Si imprimes usando @fila,columna SAY, entonces no tendrá en cuenta
la impresora que hayas seleccionado con Printer:nPrinterIndex. Lo correcto
sería que utilizaras el 'canvas' de Printer para imprimir.
Por otro lado, si la impresora es matricial y la rapidez de impresión es
importante, puedes utilizar el método WriteData() de TPrinter. P.ej.:
Printer:WriteData( "NOMBRE DE LA EMPRESA " + DTOC(Date()) + CRLF + ;
"VENTA No. "+ALLTRIM(STR(Lineas)) + CRLF + ;
"CANTIDAD PRECIO IMPORTE" + CRLF + ;
REPLICATE( "-", 41 ) + CRLF + ;
....
Chr(27) + Chr(69) )
--
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info