SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: MindEye en Lunes 28 de Julio de 2003, 19:21

Título: Re: Cajon portamonedas para TPV
Publicado por: MindEye en Lunes 28 de Julio de 2003, 19:21
- Sabe alguien como se controla la apertura del cajon portamonedas a codigo, y la impresora de tickets.

 - Gracias
Título: Re: Cajon portamonedas para TPV
Publicado por: HurryCrack en Lunes 4 de Agosto de 2003, 00:27
La impresora de tickets funciona igual ke cualquier otra, simplemente le das el tipo de letra, el tamaño .... y le das al:

printer.print xxxxx

lo de la apertura del cajon ya o veo mas dificil, supongo que tendras ke atacar al sistema del TPV.
Un saludo
:hippi:
Título: Re: Cajon portamonedas para TPV
Publicado por: Jordi_BCN en Jueves 21 de Agosto de 2003, 21:57
Hola!
He conseguido el codigo para abrir el cajon portamondeas:
OPEN "LPT1" FOR RANDOM AS #1
PRINT #1, CHR$(&H1B); "p"; CHR$(0); CHR$(100); CHR$(250);
CLOSE #1

Ese codigo lo he conseguido de: www.jrubi.com (http://www.jrubi.com) (resumen)

Salu2
Título: Cajon portamonedas para TPV
Publicado por: enyelber en Lunes 17 de Noviembre de 2003, 16:14
Título: Re: Cajon portamonedas para TPV
Publicado por: _vgt_ en Sábado 16 de Julio de 2005, 12:53
Buenas!!, he estado investigando un par de dias sobre lo de la apertura de cajones portamonedas y he visto que entre otras cosas las impresoras nuevas de tickets ya vienen con la opción de apertura automática:  open cash drawer1 ... con la seleccion de esta opcion el driver de la impresora (yo tengo una térmica SAMSUNG SRP350) abre automáticamente el cajon conectada a la impresora a los milisegundos que le especifiques... muxo mas facil k tener k programarlo aunk si no tienes mas cojones k programarlo aki dejo el codigo:
Código: Text
  1.  
  2. > > > Public Sub AbrirCajon()
  3. > > > On Error GoTo HayError
  4. > > > Dim intFichero As Integer
  5. > > > Dim strCadenaApertura As String
  6. > > > nfile = FreeFile
  7. > > > strCadenaApertura = Chr$(27) & Chr$(112) & Chr$(0) & Chr$(100) & Chr$(0)
  8. > > >
  9. > > > Open "Lpt1" For Output As #intFichero
  10. > > >     Print #intFichero, strCadenaApertura;
  11. > > >     Close #intFichero
  12. > > > Exit Sub
  13. > > >
  14. > > > HayError:
  15. > > >     MsgBox "No puedo abrir el cajón", _
  16. > > >                 vbInformation, _
  17. > > >                 " Error en el procedimiento AbrirCajon"
  18. > > >     Resume Next
  19. > > > End Sub
  20.  
  21.  

saludos  :hola:
Título: Re: Cajon portamonedas para TPV
Publicado por: Shiquilla en Sábado 16 de Julio de 2005, 12:58
Buenas, para abrir un cajón portamonedas, tienes que tener en cuenta dónde va conectado el cajón.

Dependiendo de la impresora se abre de una forma u otra (yo lo tuve que hacer con una dll de la propia impresora), fíjate en la documentación que venga en la impresora (Aunque en mi caso no sirvió de mucho xD).

Sobre la impresión, se hace tal y como ha dicho HurryCrack pero tienes que tener en cuenta también las fuentes que utilizes, ya que usando fuentes de la impresora imprime más rápido.

Saludos,

PD: Me acabo de fijar que este mensaje es de hace mucho, supongo MindEye que ya habrá conseguido abrirlo.