abrir cajón portamonedas
perilla
08 de Diciembre del 2008
Necesito abrir un cajón portamonedas a través de un command de visual basic.
Este es el código que puse para abrirle conectada a una impresora star sp 200 , por el puerto paralelo y funciona perfectamente
Open "LPT1:" For Output As 1
Print #1, Chr(7) + Chr(0) + Chr(25) + Chr(250);
Close 1
Ahora el puerto es serie COM1 y la impresora de tickets una samsung srp-270 y el código no me sirve.
Alguien sabe cual es la modificación que tengo que hacer al código para que funcione. Este tampoco me sirve
Open "COM1:" For Output As 1
Print #1, Chr(7) + Chr(0) + Chr(25) + Chr(250);
Close 1
Este es el código que puse para abrirle conectada a una impresora star sp 200 , por el puerto paralelo y funciona perfectamente
Open "LPT1:" For Output As 1
Print #1, Chr(7) + Chr(0) + Chr(25) + Chr(250);
Close 1
Ahora el puerto es serie COM1 y la impresora de tickets una samsung srp-270 y el código no me sirve.
Alguien sabe cual es la modificación que tengo que hacer al código para que funcione. Este tampoco me sirve
Open "COM1:" For Output As 1
Print #1, Chr(7) + Chr(0) + Chr(25) + Chr(250);
Close 1
adm
08 de Diciembre del 2008
en la mayoria, los cajones van conectados a la impresora y esta te da el codigo para abrir el cajon es la impresora consulta el manual de la impresora y te va adar el codigo de caracteres,
webJose
08 de Diciembre del 2008
Que yo sepa, los códigos de los portamonedas no siguen un estándar. Por lo tanto, cada código es distinto. Cómo saber el código particular? La documentación del portamonedas sería una de las pocas fuentes de información.
fran007
08 de Diciembre del 2008
Yo programe un sistema con la impresora srp-270 y para abrir el cajon me funciona este codigo:
Dim nFicSal As Integer, sLpt As String
nFicSal = FreeFile
sLpt = Printer.Port
Open sLpt For Output As nFicSal
Print #nFicSal, Chr(27) & Chr(112) & Chr(0)
Close nFicSal
Me funciona perfectamente. Lo que no he conseguido es esterarme cuando el operario cierra el cajon. Si alguien se entera, por favor, que me escriba a mi correo. Gracias por adelantado y espero haber ayudado...
Dim nFicSal As Integer, sLpt As String
nFicSal = FreeFile
sLpt = Printer.Port
Open sLpt For Output As nFicSal
Print #nFicSal, Chr(27) & Chr(112) & Chr(0)
Close nFicSal
Me funciona perfectamente. Lo que no he conseguido es esterarme cuando el operario cierra el cajon. Si alguien se entera, por favor, que me escriba a mi correo. Gracias por adelantado y espero haber ayudado...
IMH
08 de Diciembre del 2008
Gracias. Funciona de coña.
pedro
08 de Diciembre del 2008
hola bunas tarde e visto cdigo como pero no logro modificar y ni imprimir nada con esta impresora en vb6
i01Nombre: Dany Zambrano
i02Cedula: 14.547.292
i03Direccion: Ppal de la Urbina
i04Telefono: (0212) 555-55-55
@COD:000001
#000000002000001000Refresco
@COD:000002
!000000000100005000Caramelo
@COD:000003
000000001000002000Hojas Blancas
@COD:000004
"000000000200002000Lapiz
101
. Ejemplo de ticket con descuento del 10% sobre el subtotal y pago directo
@SetCustomerData|1| Cia. Operativa de Alim.COR,C.A.
@SetCustomerData|2| Nit:0263532112
@SetCustomerData|3|Av.Fco.Solano c/c Negrin,Edf.Ctro.
@SetCustomerData|4| Emp,Sabana Grande piso 20 Caracas
@SetCustomerData|5| McDonald's Cuatricentenario
@SetCustomerData|6|Av.Cuatricentenario c/Av.Circunva.
@SetCustomerData|7| Urb.Los Mangos Telf:(0241)232795@PrintLineItem|COCA COLA|1.000|1.0|1|M
@PrintLineItem|PILA EVEREADY|30.000|2.00|2|M
@Subtotal
@LastItemDiscount|10.00|m
@DirectPayment|1
2. Ejemplo de ticket con impresión de texto fiscal, descuento del 10% sobre el subtotal y pago directo
@PrintFiscalText|**SUPER MAC COMBO**
@PrintLineItem|COCA COLA|1.000|1.0|1|M
@PrintLineItem|HAMBURGER|3.000|2.00|2|M
@Subtotal
@LastItemDiscount|10.00|m
@TotalTender|1|10
3. Ejemplo de ticket con cancelación de item y pago directo
@PrintLineItem|COCA COLA|1.000|1.0|1|M
@LastItemCancel
@PrintLineItem|CHEESE BURGER|1.000|1.00|0|M
@PrintLineItem|FRIED POTETO|1.000|1.00|1|M
@PrintLineItem|SPRITE|1.000|1.0|1|M
@DirectPayment|1
4. Ejemplo de nota de credito sobre item exento , con pago directo
@RefundItem|DICCIONARIO JURIDICO BASICO|1.0|8.00|0
@RefundClose|0.0|1
5. Ejemplo de nota de credito sobre item exento y pagos parciales
@RefundItem|DICCIONARIO JURIDICO BASICO|1.0|8.00|0
@RefundClose|1.0|0
@RefundClose|7.0|0
6. Ejemplo de apertura de gaveta de dinero
@OpenDrawer
7. Ejemplo de ingreso / egreso de efectivo
@PrintCashItem|1|10 'ingreso de 10 bolívares
@CloseCashReceipt
8. Emision del Cierre Z
@DailyClose|Z|1
@Logoff 'Logoff del cajero y fin de sesión (Opcional)
@TrainingMode|F ' En modo entrenamiento se debe enviar este comando al finalizar las pruebas
i01Nombre: Dany Zambrano
i02Cedula: 14.547.292
i03Direccion: Ppal de la Urbina
i04Telefono: (0212) 555-55-55
@COD:000001
#000000002000001000Refresco
@COD:000002
!000000000100005000Caramelo
@COD:000003
000000001000002000Hojas Blancas
@COD:000004
"000000000200002000Lapiz
101
. Ejemplo de ticket con descuento del 10% sobre el subtotal y pago directo
@SetCustomerData|1| Cia. Operativa de Alim.COR,C.A.
@SetCustomerData|2| Nit:0263532112
@SetCustomerData|3|Av.Fco.Solano c/c Negrin,Edf.Ctro.
@SetCustomerData|4| Emp,Sabana Grande piso 20 Caracas
@SetCustomerData|5| McDonald's Cuatricentenario
@SetCustomerData|6|Av.Cuatricentenario c/Av.Circunva.
@SetCustomerData|7| Urb.Los Mangos Telf:(0241)232795@PrintLineItem|COCA COLA|1.000|1.0|1|M
@PrintLineItem|PILA EVEREADY|30.000|2.00|2|M
@Subtotal
@LastItemDiscount|10.00|m
@DirectPayment|1
2. Ejemplo de ticket con impresión de texto fiscal, descuento del 10% sobre el subtotal y pago directo
@PrintFiscalText|**SUPER MAC COMBO**
@PrintLineItem|COCA COLA|1.000|1.0|1|M
@PrintLineItem|HAMBURGER|3.000|2.00|2|M
@Subtotal
@LastItemDiscount|10.00|m
@TotalTender|1|10
3. Ejemplo de ticket con cancelación de item y pago directo
@PrintLineItem|COCA COLA|1.000|1.0|1|M
@LastItemCancel
@PrintLineItem|CHEESE BURGER|1.000|1.00|0|M
@PrintLineItem|FRIED POTETO|1.000|1.00|1|M
@PrintLineItem|SPRITE|1.000|1.0|1|M
@DirectPayment|1
4. Ejemplo de nota de credito sobre item exento , con pago directo
@RefundItem|DICCIONARIO JURIDICO BASICO|1.0|8.00|0
@RefundClose|0.0|1
5. Ejemplo de nota de credito sobre item exento y pagos parciales
@RefundItem|DICCIONARIO JURIDICO BASICO|1.0|8.00|0
@RefundClose|1.0|0
@RefundClose|7.0|0
6. Ejemplo de apertura de gaveta de dinero
@OpenDrawer
7. Ejemplo de ingreso / egreso de efectivo
@PrintCashItem|1|10 'ingreso de 10 bolívares
@CloseCashReceipt
8. Emision del Cierre Z
@DailyClose|Z|1
@Logoff 'Logoff del cajero y fin de sesión (Opcional)
@TrainingMode|F ' En modo entrenamiento se debe enviar este comando al finalizar las pruebas
pedro olivera
08 de Diciembre del 2008
y como es el codigo pra pder fuinsionar la impresora srp 270
Eduardo
08 de Diciembre del 2008
Para usar Com1 debes usar el código:
En Componentes Selecciona: Microsoft Comm Control
'%WINROOT%SYSTEM32MSCOMM32.OCX
- Creas una instancia en tu formulario, luego en propiedades seleccionas el puerto de comunicaciones: (CommPort: 1)
- En el codigo colocas las siguientes instruciones:
MSComm1.PortOpen = True
MSComm1.Output = Chr(7) + Chr(0) + Chr(25) + Chr(250)
MSComm1.PortOpen = False
Espero que les sirva. Todo depende de la impresora.
En Componentes Selecciona: Microsoft Comm Control
'%WINROOT%SYSTEM32MSCOMM32.OCX
- Creas una instancia en tu formulario, luego en propiedades seleccionas el puerto de comunicaciones: (CommPort: 1)
- En el codigo colocas las siguientes instruciones:
MSComm1.PortOpen = True
MSComm1.Output = Chr(7) + Chr(0) + Chr(25) + Chr(250)
MSComm1.PortOpen = False
Espero que les sirva. Todo depende de la impresora.