Abrir cajon monedero de caja registradora

[Hernan]

Hola a todos.

Tengo la siguiente situación, espero puedan ayudarme:

un cliente ha comprado una caja registradora electrónica SHARP
XEA-506, esta caja no se conecta a la impresora de tiquetes(como
normalmente es el caso), sino directo a un puerto usb.

el cliente me ha pedido que cuando termine la factura, inmediatamente
abra el cajón de la caja registradora. Tengo el manual y no dice nada
acerca del tema.

Me imagino, que como no va conectada a la impresora no se les puede
mandar los codigos ???chr()


Les agradezco cualquier ayuda.

Hernan Padilla
Barranquilla - Colombia

[MartinS]

Proba con uno de ellos te va a funsionar , a mi me funsiono con el
caso 1
SET DEVICE TO PRINTER
p_portimp = set("PRINTER",2) && "Caja" &&Impresora donde esta
conectado el cajon
DO case
CASE file("box.txt")
p_escaimp = chr(27) + "p0<-" && Codigo necesario para abrir el
cajon
CASE file("box1.txt")
p_escaimp = CHR(27) + "p"+"0"+"1"+"1" && Codigo necesario para
abrir el cajon
CASE file("box2.txt")
p_escaimp = Chr(27) + Chr(112) + Chr(0) + Chr(100) + Chr(1)
CASE FILE("box3.txt")
p_escaimp = chr(27) + chr(112) + chr(0) + chr(75) + chr(50)
CASE FILE("box4.txt")
p_escaimp = Chr(27) + "p"+ Chr(0) + Chr(25)+ Chr(250)
CASE FILE("box5.txt")
p_escaimp = CHR(27) + 'p'+ CHR(0) + CHR(40)+
CHR(250)
CASE FILE("box6.txt")
p_escaimp = CHR(27) + CHR(122) + CHR(0) + CHR(27) + CHR(112) +
CHR(0)
CASE
FILE("box7.txt")
p_escaimp = CHR(27) + CHR(112) + CHR(0) + CHR(25) + CHR(250)
&& que funsiono
CASE
FILE("box8.txt")
p_escaimp = CHR(27) +"p" + chr(0) + chr(200) + chr(255)
CASE
FILE("box9.txt")
p_escaimp = Chr(27) + Chr(112) + Chr(0) + Chr(100) + Chr(0)
CASE
FILE("box10.txt")
p_escaimp = chr(27) + chr(112) + chr(0) + chr(10) + chr(40)
CASE
FILE("box11.txt")
p_escaimp = CHR(27) + CHR(112) + CHR(0) + CHR(63) + CHR(255)
CASE FILE("box12.txt")
p_escaimp = CHR(27) + CHR(120) + CHR(49)
CASE FILE("box13.txt")
p_escaimp = Chr(27)+ Chr(112)+'0'+'2'+'0'
CASE FILE("box14.txt")
p_escaimp = CHR(27) + CHR(112) + CHR(0) + CHR(27) + CHR(112) +
CHR(0)
CASE FILE("box15.txt")
p_escaimp = chr(27) + "p" + chr(0) + chr(50) + chr(100)
CASE FILE("box16.txt")
p_escaimp = CHR(27) + "p" + CHR(0) + CHR(10) + CHR(40)
CASE FILE("box17.txt")
p_escaimp = CHR(27) + "p" + CHR(0) + CHR(0) + CHR(40)

ENDCASE

ABRIR_CAJON()
PROCEDURE ABRIR_CAJON
SET PRINTER TO NAME ALLTRIM(p_portimp)
???ALLTRIM(p_escaimp)
SET PRINTER off
SET PRINTER TO
SET DEVICE TO SCREEN
RETURN
ENDPROC

[MartinS]

y si necesitas cortar papel
esto
SET PRINTER to
set printer to name (alltrim(impgenerica))
???Chr(26)+Chr(27)+"J"+Chr(250)+chr(29)+"V"+chr(1)
set devi to screen
set printer to

[Mario Alfredo]

que significa los BOXX

[Martin´S Consultora Informatica]

es un archivo de texto  .TXT

--
"CIM" Consultoria Informatica Martin´S
--
La información contenida en este mensaje electrónico tiene carácter
CONFIDENCIAL, está dirigida únicamente al destinatario de la misma y
sólo podrá ser usada por éste. Si el lector de este mensaje no es el
destinatario del mismo, se le notifica que cualquier copia o
distribución de éste se encuentra totalmente prohíbida. Si usted ha
recibido este mensaje por error, por favor notifique inmediatamente al
remitente por este mismo medio y borre el mensaje de su sistema.
Gracias.

[Mario Alfredo]

claro que es un archivo de texto
pero como se genera para evaluarlo
ya que el amigo quizas se quedo con la misma duda

On 9 nov, 11:59, Martin´S Consultora Informatica

<martinsu...@gmail.com> wrote:
> es un archivo de texto  .TXT
>

[Martin´S Consultora Informatica]

Crear archivos de texto con los nombres que dice ahi y en la carpeta que esta el prg

 

ejemplo:

 

desde la ventana de comandos de vfp

 

modi comm box.txt

 

o copy file config.fpw to box.txt

 

[Jairo]

Buenas días.. el programa funciona bien..  hice algunas modificaciones como la idea mandar abrir el informe con el notepad de Windows  así :

 

SET CONSOLE OFF

SET DEVICE TO SCREEN

SET PRINTER OFF

SET PRINTER TO

lcFile ="JOSE.TXT"

 

    IF EMPTY(lcFile)

      RETURN

    ENDIF

      loShell = CREATEOBJECT("Shell.Application")

      loShell.ShellExecute(lcFile)

 

RELEASE loShel 

Thisform.refresh()

 

La pregunta es , ¿ como hago lo mismo sin tener que pasar por el modo de impresión del notepad?

 

JM

[Carlos Miguel FARIAS]

El comando mas corto para abrir el monedero de una caja registradora es:

ARRIBA LAS MANOS; ESTO ES UN ASALTO; ENTREGA TODO LO QUE TENGAS

y un viernes como hoy puede ser comico.

[Jairo]

Jajajajjajajajajaj la botaste!!!!!

JM