Discussion:
Cajon Monedero
(demasiado antiguo para responder)
Luis Enrique Velez R
2004-06-22 13:12:20 UTC
Permalink
Saludos desde Colombia. Alguien conoce un codigo en access para abrir un
cajon monedero o caja Registradora en un POS (Punto de Venta). Gracias
Eduardo Olaz
2004-06-22 14:41:36 UTC
Permalink
Cada tipo de TPV tiene una secuencia de caracteres para abrir el cajón.
Normalmente son caracteres que se envían a través del puerto de impresora.

Esta secuencia suele empezar por el carácter Escape Chr$(27) .
Una secuencia tipo es:

Chr$(27) & "p" & Chr$(0) & Chr$(100) & Chr$(250)

Con lo que el procedimiento quedaría así:
________________________________________

Public Sub AbrirCajon()
On Error GoTo HayError
Dim intFichero As Integer
Dim strCadenaApertura As String
nfile = FreeFile
strCadenaApertura = Chr$(27) & "p" & Chr$(0) & Chr$(100) & Chr$(250)

Open "Lpt1" For Output As #intFichero
Print #intFichero, strCadenaApertura;
Close #intFichero
Exit Sub

HayError:
MsgBox "No puedo abrir el cajón", _
vbInformation, _
" Error en el procedimiento AbrirCajon"
Resume Next
End Sub
________________________________________

Saludos desde la calle Estafeta de Pamplona:

Eduardo Olaz
Microsoft [MVP] Access

eduardoALGARROBAolaz.net
Post by Luis Enrique Velez R
Saludos desde Colombia. Alguien conoce un codigo en access para abrir un
cajon monedero o caja Registradora en un POS (Punto de Venta). Gracias
Victor Delgadillo
2004-06-22 14:52:46 UTC
Permalink
Don Eduardo:
Una correccion a la rutinita, ya que has declarado nfile = FreeFile (el
numero del proximo buffer), pero en el cuerpo usas #intFichero!! ?
reemplaza los #intFichero por nfile!

--
Victor Delgadillo [MVP Access]
Miami, Florida

Consultas al grupo, asi todos nos beneficiamos.
Post by Eduardo Olaz
Cada tipo de TPV tiene una secuencia de caracteres para abrir el cajón.
Normalmente son caracteres que se envían a través del puerto de impresora.
Esta secuencia suele empezar por el carácter Escape Chr$(27) .
Chr$(27) & "p" & Chr$(0) & Chr$(100) & Chr$(250)
________________________________________
Public Sub AbrirCajon()
On Error GoTo HayError
Dim intFichero As Integer
Dim strCadenaApertura As String
nfile = FreeFile
strCadenaApertura = Chr$(27) & "p" & Chr$(0) & Chr$(100) & Chr$(250)
Open "Lpt1" For Output As #intFichero
Print #intFichero, strCadenaApertura;
Close #intFichero
Exit Sub
MsgBox "No puedo abrir el cajón", _
vbInformation, _
" Error en el procedimiento AbrirCajon"
Resume Next
End Sub
________________________________________
Eduardo Olaz
Microsoft [MVP] Access
eduardoALGARROBAolaz.net
Post by Luis Enrique Velez R
Saludos desde Colombia. Alguien conoce un codigo en access para abrir un
cajon monedero o caja Registradora en un POS (Punto de Venta). Gracias
Eduardo Olaz
2004-06-24 08:15:59 UTC
Permalink
Pues sí Víctor, así es
La línea nfile = FreeFile debe ser sustiyuída por intFichero = FreeFile

lapsus de copiar y pegar, y luego no probar

Saludos desde la calle Estafeta de Pamplona:

Eduardo Olaz
Microsoft [MVP] Access

eduardoALGARROBAolaz.net
Post by Victor Delgadillo
Una correccion a la rutinita, ya que has declarado nfile = FreeFile (el
numero del proximo buffer), pero en el cuerpo usas #intFichero!! ?
reemplaza los #intFichero por nfile!
--
Victor Delgadillo [MVP Access]
Miami, Florida
Consultas al grupo, asi todos nos beneficiamos.
Post by Eduardo Olaz
Cada tipo de TPV tiene una secuencia de caracteres para abrir el cajón.
Normalmente son caracteres que se envían a través del puerto de impresora.
Esta secuencia suele empezar por el carácter Escape Chr$(27) .
Chr$(27) & "p" & Chr$(0) & Chr$(100) & Chr$(250)
________________________________________
Public Sub AbrirCajon()
On Error GoTo HayError
Dim intFichero As Integer
Dim strCadenaApertura As String
nfile = FreeFile
strCadenaApertura = Chr$(27) & "p" & Chr$(0) & Chr$(100) & Chr$(250)
Open "Lpt1" For Output As #intFichero
Print #intFichero, strCadenaApertura;
Close #intFichero
Exit Sub
MsgBox "No puedo abrir el cajón", _
vbInformation, _
" Error en el procedimiento AbrirCajon"
Resume Next
End Sub
________________________________________
Eduardo Olaz
Microsoft [MVP] Access
eduardoALGARROBAolaz.net
Post by Luis Enrique Velez R
Saludos desde Colombia. Alguien conoce un codigo en access para abrir un
cajon monedero o caja Registradora en un POS (Punto de Venta). Gracias
Antonio Ortiz
2004-06-23 05:13:36 UTC
Permalink
Para una Impresora Epson, abre el puerto de la impresora y envia los
codigos:
Chr(27) & Chr(112) & Chr(0) & Chr(10) & Chr(40)

y para una Impresora Star
chr(7)

Saludos,


Antonio Ortiz Ramirez
asesor en sistemas
***@aortiz.net.nospam
www.aortiz.net
www.progvisual.com
Post by Luis Enrique Velez R
Saludos desde Colombia. Alguien conoce un codigo en access para abrir un
cajon monedero o caja Registradora en un POS (Punto de Venta). Gracias
Loading...