SoloCodigo

Programación General => Clipper => Mensaje iniciado por: carper78 en Martes 3 de Septiembre de 2002, 01:42

Título: Re: Como abrir una Gaveta electronica de dinero
Publicado por: carper78 en Martes 3 de Septiembre de 2002, 01:42

Que instrucción uso en Clipper para abrir una gaveta de dinero (Pto.Venta).
Gracias...

Título: Como abrir una Gaveta electronica de dinero
Publicado por: César C. Salazar González en Martes 3 de Junio de 2003, 18:59

Te mando el codigo, aguanta

procedure open_caja()
* para el puerto Com1
run mode com1:150
run mode lpt1=com1
set device to print
set printer to lPt1
@0,0 say " ¬ U ¬ U ¬ U ¬ U ¬ U ¬ U ¬ U ¬ U ¬ U ¬ U "
SET DEVICE TO SCREEN
SET CONSOLE ON
* puerto com2
run mode com2:150
run mode lpt1=com2
set device to print
set printer to lPt1
@0,0 say " ¬ U ¬ U ¬ U ¬ U ¬ U ¬ U ¬ U ¬ U ¬ U ¬ U "
SET DEVICE TO SCREEN
SET CONSOLE ON

****esto es para otro puerto
* Puerto TM
@ 12,49 SAY "TM-T60 / TM-T80 / TM-L60"
@ 13,49 SAY "TM-300 / TM-U370 / TM-270"
set device to print
@0,0 SAY CHR(27)+"p"+CHR(0)+CHR(62)+CHR(250)
SET DEVICE TO SCREEN
SET CONSOLE ON

@ 14,49 say "TM-290 / TM-930 / TM-950"
set device to print
@0,0 SAY CHR(27)+"p"+CHR(0)+CHR(7)+CHR(30)
SET DEVICE TO SCREEN
SET CONSOLE ON