Página 1 de 1
Abrir cajón portamonedas
Publicado: Vie Feb 10, 2012 1:46 pm
por pacoelche
Necesito ayuda para abrir un cajón portamonedas.
En un viejo programa que hice hace muchos años en fivewin utilizaba las siguientes instrucciones:
oPrinter:=TdosPrn():New(CAJON)
oPrinter:Write(CHR(27)+"p"+"0"+CHR(25)+CHR(250))
oPrinter:END()
Para ello incluía en el programa un fichero llamado TDOSPRN.PRG hecho por Ignacio Ortiz en 1997. He incluido este archivo en mi programa y me da errores de compilación por todos los sitios.
En el viejo clipper, bajo msdos, solo había que hacer:
SET PRINT ON
? CHR(27)+"p"+"0"+CHR(25)+CHR(250)
SET PRINT OFF
¿Alguien puede ayudarme para hacer esto en Xailer?
Gracias por anticipado y un saludo
Paco Martínez
Elche (Alicante)
--
Abrir cajón portamonedas
Publicado: Vie Feb 10, 2012 2:35 pm
por Christian
prueba con
nH:=fopen('LPT1',2)
cText:=CHR(27)+"p"+"0"+CHR(25)+CHR(250)
fwrite(nH,cText)
fclose(nH)
Saludos
El 10/02/2012 09:46 a.m., Francisco Martínez García escribió:
> Necesito ayuda para _abrir un cajón portamonedas_.
> En un viejo programa que hice hace muchos años en fivewin utilizaba las
> siguientes instrucciones:
> *oPrinter:=TdosPrn():New(CAJON)
> **oPrinter:Write(CHR(27)+"p"+"0"+CHR(25)+CHR(250))
> **oPrinter:END()*
> Para ello incluía en el programa un fichero llamado TDOSPRN.PRG hecho
> por Ignacio Ortiz en 1997. He incluido este archivo en mi programa y me
> da errores de compilación por todos los sitios.
> En el viejo clipper, bajo msdos, solo había que hacer:
> *SET PRINT ON*
> *? CHR(27)+"p"+"0"+CHR(25)+CHR(250)*
> *SET PRINT OFF*
> ¿Alguien puede ayudarme para hacer esto en Xailer?
> Gracias por anticipado y un saludo
> Paco Martínez
> Elche (Alicante)
Abrir cajón portamonedas
Publicado: Vie Feb 10, 2012 5:26 pm
por Martin Del Angel
On 2/10/2012 6:46 AM, Francisco Martínez García wrote:
> Necesito ayuda para _abrir un cajón portamonedas_.
> En un viejo programa que hice hace muchos años en fivewin utilizaba las
> siguientes instrucciones:
> *oPrinter:=TdosPrn():New(CAJON)
> **oPrinter:Write(CHR(27)+"p"+"0"+CHR(25)+CHR(250))
> **oPrinter:END()*
> Para ello incluía en el programa un fichero llamado TDOSPRN.PRG hecho
> por Ignacio Ortiz en 1997. He incluido este archivo en mi programa y me
> da errores de compilación por todos los sitios.
> En el viejo clipper, bajo msdos, solo había que hacer:
> *SET PRINT ON*
> *? CHR(27)+"p"+"0"+CHR(25)+CHR(250)*
> *SET PRINT OFF*
> ¿Alguien puede ayudarme para hacer esto en Xailer?
> Gracias por anticipado y un saludo
> Paco Martínez
> Elche (Alicante)
Hola Buen Dia Francisco:
Usa esta función:
STATIC FUNCTION abrirCajon(SELF)
LOCAL oFont
DEFINE FONT oFont NAME "control"
Printer:StartDoc()
WITH OBJECT Printer:oCanvas
:oFont := oFont
:oFont:nSize:=10
:TextOut( 0,0,"A")
END
Printer:EndDoc()
oFont:Destroy()
return nil
Saludos....
Abrir cajón portamonedas
Publicado: Jue Feb 16, 2012 6:09 pm
por jfgimenez
Francisco,
> Necesito ayuda para _abrir un cajón portamonedas_.
> En un viejo programa que hice hace muchos años en fivewin utilizaba
> las siguientes instrucciones:
> *oPrinter:=TdosPrn():New(CAJON)
> **oPrinter:Write(CHR(27)+"p"+"0"+CHR(25)+CHR(250))
> **oPrinter:END()*
> Para ello incluía en el programa un fichero llamado TDOSPRN.PRG hecho
> por Ignacio Ortiz en 1997. He incluido este archivo en mi programa y
> me da errores de compilación por todos los sitios.
> En el viejo clipper, bajo msdos, solo había que hacer:
> *SET PRINT ON*
> *? CHR(27)+"p"+"0"+CHR(25)+CHR(250)*
> *SET PRINT OFF*
> ¿Alguien puede ayudarme para hacer esto en Xailer?
Revisa en la ayuda el método WriteData de TPrinter
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info
--