Abrir cajón portamonedas

[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)
--

[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)

[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....

[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
--