Resultados de la búsqueda para: codigos abrir cajon samsung srp-270

Publicado el por — Dejar un comentario

Teclas de Función (F1 hasta F12) y KeyCode

En MyBusiness POS se pueden especificar algunas teclas de función para necesidades específicas. Por default, las teclas que están ocupadas son

Icono

Editor de Etiquetas, generar e imprimir código de barras

1 archivo(s) 16.34 KB
♞Registro
♞Entrar_D
Olvidé_P
Icono

Código de Barras con Teclas de Función F1 a F12

1 archivo(s) 335.14 KB
♞Registro
♞Entrar_D
Olvidé_P
  • F1. Ayuda desde MyBusiness POS.
  • F2. Menú de Opciones que muestra los comandos a ejecutar.
  • F5. Terminar una venta y abrir la ventana de Cobro rápido.
  • F7. Dejar la venta como pendiente. Esto puede ser de utilidad cuando un cliente aun no decide terminar las compras y con ello es posible atender a un segundo cliente en ese lapso de indecisión por parte del primero.
  • F8. Recuperar una venta de un cliente en específico.
  • F9. Coloca el foco en el textbox de Cliente.
  • F11. realiza corte X
  • F12. Realiza corte Z

Después de esta lista, es posible identificar las teclas de función que se encuentran disponibles:

  • F3. Libre
  • F4. Libre
  • F6. Libre
  • F10. Libre

El procedimiento que permite aplicar la personalización se llama PUNTOV080  (Configuración–Personalización–Procedimientos y rutinas de usuario–PuntoV080).

Es posible usar el KeyCode = Valor

Icono

PuntoV080 Tecla de Función Especial

1 archivo(s) 88.00 KB
♞Registro
♞Entrar_D
Olvidé_P

Teclas de Función (F1, F2, F3, F4, F5, F6, F7, F8, F9, F10, F11, F12)

Constante Valor Descripción
vbKeyF1 112 Tecla F1
vbKeyF2 113 Tecla F2
vbKeyF3 114 Tecla F3
vbKeyF4 115 Tecla F4
vbKeyF5 116 Tecla F5
vbKeyF6 117 Tecla F6
vbKeyF7 118 Tecla F7
vbKeyF8 119 Tecla F8
vbKeyF9 120 Tecla F9
vbKeyF10 121 Tecla F10
vbKeyF11 122 Tecla F11
vbKeyF12 123 Tecla F12
vbKeyF13 124 Tecla F13
vbKeyF14 125 Tecla F14
vbKeyF15 126 Tecla F15
vbKeyF16 127 Tecla F16

Constantes de códigos de tecla

Constante Valor Descripción
vbKeyLButton 1 Botón primario del mouse
vbKeyRButton 2 Botón secundario del mouse
vbKeyCancel 3 Tecla CANCEL
vbKeyMButton 4 Botón central del mouse
vbKeyBack 8 Tecla RETROCESO
vbKeyTab 9 Tecla TAB
vbKeyClear 12 Tecla SUPR
vbKeyReturn 13 Tecla ENTRAR
vbKeyShift 16 Tecla MAYÚS
vbKeyControl 17 Tecla CTRL
vbKeyMenu 18 Tecla MENÚ
vbKeyPause 19 Tecla PAUSA
vbKeyCapital 20 Tecla BLOQ MAYÚS
vbKeyEscape 27 Tecla ESC
vbKeySpace 32 Tecla BARRA ESPACIADORA
vbKeyPageUp 33 Tecla RE PÁG
vbKeyPageDown 34 Tecla AV PÁG
vbKeyEnd 35 Tecla FIN
vbKeyHome 36 Tecla INICIO
vbKeyLeft 37 Tecla FLECHA IZQUIERDA
vbKeyUp 38 Tecla FLECHA ARRIBA
vbKeyRight 39 Tecla FLECHA DERECHA
vbKeyDown 40 Tecla FLECHA ABAJO
vbKeySelect 41 Tecla SELECT
vbKeyPrint 42 Tecla IMPRIMIR PANTALLA
vbKeyExecute 43 Tecla EXECUTE
vbKeySnapshot 44 Tecla SNAPSHOT
vbKeyInsert 45 Tecla INS
vbKeyDelete 46 Tecla SUPR
vbKeyHelp 47 Tecla AYUDA
vbKeyNumlock 144 Tecla BLOQ NUM

Desde KeyA hasta KeyZ son iguales a sus equivalentes ASCII: ‘A’ hasta ‘Z’

Constante Valor Descripción
vbKeyA 65 Tecla A
vbKeyB 66 Tecla B
vbKeyC 67 Tecla C
vbKeyD 68 Tecla D
vbKeyE 69 Tecla E
vbKeyF 70 Tecla F
vbKeyG 71 Tecla G
vbKeyH 72 Tecla H
vbKeyI 73 Tecla I
vbKeyJ 74 Tecla J
vbKeyK 75 Tecla K
vbKeyL 76 Tecla L
vbKeyM 77 Tecla M
vbKeyN 78 Tecla N
vbKeyO 79 Tecla O
vbKeyP 80 Tecla P
vbKeyQ 81 Tecla Q
vbKeyR 82 Tecla R
vbKeyS 83 Tecla S
vbKeyT 84 Tecla T
vbKeyU 85 Tecla U
vbKeyV 86 Tecla V
vbKeyW 87 Tecla W
vbKeyX 88 Tecla X
vbKeyY 89 Tecla Y
vbKeyZ 90 Tecla Z

Desde Key0 hasta Key9 son iguales a sus equivalentes ASCII: ‘0’ hasta ‘9’

Constante Valor Descripción
vbKey0 48 Tecla 0
vbKey1 49 Tecla 1
vbKey2 50 Tecla 2
vbKey3 51 Tecla 3
vbKey4 52 Tecla 4
vbKey5 53 Tecla 5
vbKey6 54 Tecla 6
vbKey7 55 Tecla 7
vbKey8 56 Tecla 8
vbKey9 57 Tecla 9

Teclas del teclado numérico

Constante Valor Descripción
vbKeyNumpad0 96 Tecla 0
vbKeyNumpad1 97 Tecla 1
vbKeyNumpad2 98 Tecla 2
vbKeyNumpad3 99 Tecla 3
vbKeyNumpad4 100 Tecla 4
vbKeyNumpad5 101 Tecla 5
vbKeyNumpad6 102 Tecla 6
vbKeyNumpad7 103 Tecla 7
vbKeyNumpad8 104 Tecla 8
vbKeyNumpad9 105 Tecla 9
vbKeyMultiply 106 Tecla SIGNO DE MULTIPLICACIÓN (*)
vbKeyAdd 107 Tecla SIGNO MÁS (+)
vbKeySeparator 108 Tecla INTRO (teclado numérico)
vbKeySubtract 109 Tecla SIGNO MENOS (-)
vbKeyDecimal 110 Tecla PUNTO DECIMAL (.)
vbKeyDivide 111 Tecla SIGNO DE DIVISIÓN (/)

Código para  Code39 en código de barras

Code39 Code128 Función Teclado  ASCII
A  A  A
B  B  B
C  C  C
D  D  D
E  E  E
F  F  F
G  G  G
H  H  H
I  I  I
J  J  J
K  K  K
L  L  L
M  M  M
N  N  N
O  O  O
P  P  P
Q  Q  Q
R  R  R
S  S  S
T  T  T
U  U  U
V  V  V
W  W  W
X  X  X
Y  Y  Y
Z  Z  Z
+A +A a
+B +B b
+C +C c
+D +D d
+E +E e
+F +F f
+G g g
+H h h
+I i i
+J j j
+K k k
+L l l
+M m m
+N n n
+O o o
+P p p
+Q q q
+R r r
+S s s
+T t t
+U u u
+V v v
+W w w
+X x x
+Y y y
+Z z z
0 0 0
1 1 1
2 2 2
3 3 3
4 4 4
5 5 5
6 6 6
7 7 7
8 8 8
9 9 9
/A ! !
/B “ “
/C # #
/D $ $
/E % %
/F & &
/G ‘ ‘
/H ( (
/I ) )
/J * *
/K + +
/L , ,
/M – –
/N . .
/O / /
/Z : :
%A ESC ESC (Escape)
%B SEPARADOR CAMPO FS (File Separator)
%C SEPARADOR GRUPO GS (Group Separator)
%D SEPARADOR REGISTRO RS (Record Separator)
%E SEPARADOR UNIDAD US (Unit Separator)
%F ; ;
%G < <
%H = =
%I > >
%J ? ?
%K [ [
%L \ \
%M ] ]
%N ^ ^
%O _ _
%P { {
%Q | |
%R } }
%S ~ ~
%T SUPRIMIR DEL
%U NULO NU (Null)
%V @ @
%W ` `
SP ESPACIO SP
TILDE (= or ~ in the fonts)
$A a INICIO DOCUMENTO SH (Start of Heading)
$B b INICIO DEL TEXTO SX (Start of Text)
$C c FINAL DEL TEXTO EX (End of Text)
$D d FINAL DEL DOCUMENTO ET (End of Transmission)
$E e EQ (Enquiry)
$F f AK (Acknowledge)
$G g BL (Bell-Audible of Attention Signal)
$H h BORRAR UN ESPACIO BS (Backspace)
$I i TABLUADOR HORIZONTAL HT (Horizontal Tabulation)
$J j SIGUIENTE LÍNEA LF (Line Feed)
$K k TABULADOR VERTICAL VT (Vertical Tabulation)
$L l FF (Form Feed)
$M m ENTER CR (Carriage Return)
$N n SHIFT SIN PRESIONAR SO (Shift Out)
$O o SHIFT PRESIONADO SI (Shift In)
$P p SHIFT DL (Data Link Escape)
$Q q F1 D1 (Device Control 1-XON)
$R r F2 D2 (Device Control 2)
$S s F3 D3 (Device Control 3-XOFF)
$T t F4 D4 (Device Control 4)
$U u F5 NK (Negative Acknowledge)
$V v F6 SY (Synchronous Idle)
$W w F7 EB (End of Transmission Block)
$X x F8 CN (Cancel)
$Y y F9 EM (End of Medium)
$Z z F10 SB (Substitute)
%B | F11 FS
%C } F12 GS
%D
%E
%F
%G (space)
%H page up
%I page down
%J end
%K home
%L left arrow
%M up arrow
%N right arrow
%O down arrow
%P insert
%Q delete
Publicado el por — Dejar un comentario

Inventario en MyBusiness POS con un SmartPhone Android

Envíanos un Whats al 7222816462 y te asesoraremos a la brevedad en este tema.

Icono

Alta Rápida - Inventario v20

1 archivo(s) 16.18 KB
Descargar

Icono

Alta rápida - Inventario 2012

1 archivo(s) 16.18 KB
Descargar

Icono

Android POS Pro

1 archivo(s) 0.00 KB
Descarga

Android POS Visualizar Corte Z (pago vía PayPal)

598.74 KB 77 descargas

Icono

Colectar datos de almacén desde android

1 archivo(s) 5.18 MB
♞Registro
♞Entrar_D
Olvidé_P

En estos días es importante la movilidad al hacer inventarios. Para eso existen herramientas a un costo muy bajo y algunas gratuitas que nos pueden apoyar en esta hardua batalla del Inventario.

Para eso, en esta ocasión estoy probando la herramienta PetScan (https://play.google.com/store/apps/details?id=com.maiko.scanpet&hl=es) en un dispositivo Sony Xperia U.

Se puede hacer una revisión de los beneficios de esta aplicación y hasta el momento es la más completa y sobre todo porque permite almacenar la información en Excel, la cual se puede exportar al sistema MyBusiness POS en algún inventario Inicial. Además es posible utilizar la plantilla que tiene por default el sistema MyBusiness POS para cargar el inventario inicial.

Los resultados son buenos, aunque si es importante destacar la calidad de la cámara para hacer el enfoque apropiado y la cantidad de iluminación ambiental, ya que si se utiliza solo el flash del smartphone puede afectar en la duración de la batería.

Publicado el por — Dejar un comentario

Formato de tickets para credito

' Mybusiness POS v. 2011
Sub Main()
Dim rstVenta

Set rstVenta = CreaRecordSet( _
"SELECT * FROM ventas WHERE venta = " & Documento, Ambiente.Connection )

If rstVenta("cobranza") > 0 Then
ImprimeTicket
ImprimeTicket
Else
ImprimeTicket
End If

End Sub

Sub ImprimeTicket

'If MsgBox( "Desea imprimir el ticket", vbQuestion + vbYesNo + vbDefaultButton2 ) = vbNo Then
' Exit Sub
'End If

' Creamos el recordSet del encabezado de la venta
Set rstEncabezado = Rst("SELECT * FROM ventas WHERE venta = " & prn.Documento, Ambiente.Connection )

' Verificamos que la venta que se desea imprimir exista
if rstEncabezado.EOF Then
MsgBox "No existe la venta seleccionada",vbInformation
Exit Sub
end if

' Creamos el recordSet de las partidas que componen la venta
Set rstPartidas = Rst("SELECT partvta.iespecial, partvta.articulo, prods.precio1,prods.descrip, partvta.precio, partvta.cantidad, partvta.descuento, partvta.impuesto, partvta.preciobase, partvta.prdescrip FROM partvta INNER JOIN prods ON prods.articulo = partvta.articulo WHERE venta =" & rstEncabezado.fields("Venta"), Ambiente.Connection )

' Traemos todos los datos del cliente
Set rstCliente = Rst("SELECT * FROM clients WHERE cliente = '" & rstEncabezado.fields("Cliente") & "'", Ambiente.Connection )

' Traemos los datos de cobranza si es que existe
Set rstCobranza = Rst( "SELECT * FROM cobranza WHERE venta = " & rstEncabezado("venta"), Ambiente.Connection )

cSalida = ""

'Esto abre el cajon de dinero
if Ambiente.rstEstacion("Cajon") <> 0 Then
cSalida = cSalida & Chr(27) & Chr(112) & Chr(48) & Chr(20) & Chr(20)
cSalida = cSalida & Chr(7)
' Sansung de inyección
' cSalida = cSalida & Chr(27) & Chr(112) & Chr(48) & Chr(49)
end if

cSalida = cSalida & "" & Ambiente.Empresa & Chr(13) & Chr(10)
cSalida = cSalida & "" & Trim( Ambiente.Direccion1 ) & Chr(13) & Chr(10)
cSalida = cSalida & "" & Trim( Ambiente.Direccion2 ) & Chr(13) & Chr(10)
cSalida = cSalida & "" & Trim( Ambiente.Telefonos ) & Chr(13) & Chr(10)
cSalida = cSalida & "" & Trim( rstEncabezado("Usuario") ) & " " & Trim( Ambiente.Estacion ) & " Ticket: " & rstEncabezado("No_referen") & Chr(13) & Chr(10)

cSalida = cSalida & Formato( rstEncabezado("f_emision"),"dd-MM-yyyy" ) & " Hora: " & rstEncabezado("usuHora") & Chr(13) & Chr(10)
cSalida = cSalida & Trim( rstCliente("cliente") ) & " " & Trim( rstCliente("Nombre") ) & Chr(13) & Chr(10)
cSalida = cSalida & Ambiente.rstEstacion("leyendacomodin") & " " & rstEncabezado("comodin") & Chr(13) & Chr(10)
cSalida = cSalida & "Vendedor: " & rstEncabezado("Vend") & Chr(13) & Chr(10)
cSalida = cSalida & "CANT. DESCRIPCION PRECIO IMPORTE" & Chr(13) & Chr(10)

nImporteTotal = 0
nImpuesto = 0
nCantidadTotal = 0
nDescuentoTotal = 0
nImporteOrigen = 0

'PrintText cSalida

If Ambiente.Tag <> "HTML" Then

If Ambiente.rstEstacion("ticket") <> 0 Then
if clAt( "LPT", Ambiente.rstEstacion("pticket") ) > 0 Then
Out Trim(Ambiente.rstEstacion("pticket")), cSalida
else
if Ambiente.Ticket.PortOpen Then
Ambiente.Ticket.Output = cSalida
end if
end if
End if

cSalida = ""

End If

While Not rstPartidas.EOF

nPrecio = rstPartidas("Precio") * ( 1 - (rstPartidas("Descuento")/100) ) * (1 + ( rstPartidas("impuesto") / 100 ) )
nPrecioBase = Round( rstPartidas("PrecioBase") * (1 + ( rstPartidas("impuesto") / 100 ) ), 2)
nDescuento = (nPrecioBase - nPrecio) * rstPartidas("Cantidad")

If nPrecioBase > 0 Then
nDescPor = ( nPrecio / nPrecioBase ) * 100
Else
nDescPor = 0
End If

nDescuentoTotal = nDescuentoTotal + nDescuento
nImporte = nPrecio * rstPartidas("Cantidad")

nCantidad = PadL(Formato( rstPartidas("cantidad"), "##,##0.00" ),3)

cDescrip = Mid( rstPartidas("Descrip"), 1, 16 )
nCantidadTotal = nCantidadTotal + rstPartidas("cantidad")

nImporteTotal = nImporteTotal + nImporte
nImpuesto = nImpuesto + ( nImporteTotal * ( rstPartidas("impuesto") / 100 ) )

nPrecio = 0
nIEspecial = rstPartidas("Precio") * (Val2(rstPartidas("iespecial")) / 100)
nIVa = rstPartidas("Precio") * (rstPartidas("impuesto") / 100)
nPrecio = rstPartidas("Precio") + nIEspecial + nIVa

cPrecio = PadL(Trim(Formato( nPrecio, Ambiente.FDinero )),8)
cImporte = PadL(Trim(Formato( Round( nPrecio, 2) * rstPartidas("cantidad") * (1 - (rstPartidas("descuento") / 100)), Ambiente.FDinero )),8)
nPrecioOrigen = Round( rstPartidas("PrecioBase") * (1 + ( rstPartidas("impuesto") / 100 )),2) * rstPartidas("cantidad")
nImporteOrigen = nImporteOrigen + nPrecioOrigen

strSalida = PadL(Formato( nCantidad, Ambiente.Formato ),2) & " " & cDescrip & " " & cPrecio & " " & cImporte

'If rstPartidas("Precio1") > rstPartidas("Precio") Then
' nDescuentoPartida = ( rstPartidas("Precio1") - rstPartidas("Precio") ) * nCantidad
' strSalida = strSalida & " Descuento: " & Formato( nDescuentoPartida, "##,##0.00" ) & vbCrLf
'End If

cSalida = cSalida & strSalida & Chr(13) & Chr(10)

If Not clEmpty( cNull( rstPartidas("prdescrip") ) ) Then
cSalida = cSalida & Trim( rstPartidas("prdescrip") ) & vbCrLf
End If

rstPartidas.MoveNext
Wend

'PrintText cSalida

If Ambiente.Tag <> "HTML" Then

If Ambiente.rstEstacion("ticket") <> 0 Then
if clAt( "LPT", Ambiente.rstEstacion("pticket") ) > 0 Then
Out Trim(Ambiente.rstEstacion("pticket")), cSalida
else
if Ambiente.Ticket.PortOpen Then
Ambiente.Ticket.Output = cSalida
end if
end if
End if

cSalida = ""

End If

cSalida = cSalida & Chr(13) & Chr(10)
cSalida = cSalida & Chr(13) & Chr(10)

cSalida = cSalida & " Importe: " & PadL(Formato( Val2(rstEncabezado("importe")), Ambiente.FDinero ),10) & Chr(13) & Chr(10)
cSalida = cSalida & " Impuesto: " & PadL(Formato( Val2(rstEncabezado("impuesto")), Ambiente.FDinero ),10) & Chr(13) & Chr(10)

if Val2(rstEncabezado("iespecial")) > 0 Then
cSalida = cSalida & " Impuesto 2%: " & PadL(Formato( Val2(rstEncabezado("iespecial")), Ambiente.FDinero ),10) & Chr(13) & Chr(10)
end if

if nDescuentoTotal > 0 Then
cSalida = cSalida & " Importe: " & PadL(Formato( nImporteOrigen, Ambiente.FDinero ),10) & Chr(13) & Chr(10)
cSalida = cSalida & " Descuento: " & PadL(Formato( nDescuentoTotal, Ambiente.FDinero ),10) & Chr(13) & Chr(10)
end if

cSalida = cSalida & " Importe: " & PadL(Formato( Val2(rstEncabezado("impuesto")) + Val2(rstEncabezado("importe")) + Val2(rstEncabezado("iespecial")), Ambiente.FDinero ),10) & Chr(13) & Chr(10)
cSalida = cSalida & " Redondeo: " & PadL(Formato( Val2(rstEncabezado("Redondeo")), Ambiente.FDinero ),10) & Chr(13) & Chr(10)
cSalida = cSalida & Chr(13) & Chr(10)
cSalida = cSalida & PadL(Formato( nCantidadTotal, "###,###" ),4) & " ----- TOTALES ---- " & PadL(Formato( (Val2(rstEncabezado("impuesto")) + Val2(rstEncabezado("importe")) + Val2(rstEncabezado("iespecial")) + Val2(rstEncabezado("redondeo"))), Ambiente.FDinero ),10) & Chr(13) & Chr(10)

nPagoTotal = Val2(rstEncabezado("Pago1")) + Val2(rstEncabezado("Pago2")) + Val2(rstEncabezado("Pago3"))

if rstEncabezado("Pago1") > 0 Then
cSalida = cSalida & " Pago en " & rstEncabezado("Concepto1") & " " & PadL(Formato( Val2(rstEncabezado("Pago1")), Ambiente.FDinero ),9) & Chr(13) & Chr(10)
end if

if rstEncabezado("Pago2") > 0 Then
cSalida = cSalida & " Pago en " & rstEncabezado("Concepto2") & " " & PadL(Formato( Val2(rstEncabezado("Pago2")), Ambiente.FDinero ),9) & Chr(13) & Chr(10)
end if

if rstEncabezado("Pago3") > 0 Then
cSalida = cSalida & " Pago en " & rstEncabezado("Concepto3") & " " & PadL(Formato( Val2(rstEncabezado("Pago3")), Ambiente.FDinero ),9) & Chr(13) & Chr(10)
end if

Eventos

if nPagoTotal < (Val2(rstEncabezado("impuesto")) + Val2(rstEncabezado("importe")) + Val2(rstEncabezado("iespecial")) + Val2(rstEncabezado("redondeo"))) Then cSalida = cSalida & " Credito: " & PadL(Formato( Val2(rstEncabezado("impuesto")) + Val2(rstEncabezado("iespecial")) + Val2(rstEncabezado("importe")) + Val2(rstEncabezado("redondeo")) - nPagoTotal, Ambiente.FDinero ),9) & Chr(13) & Chr(10) cSalida = cSalida & "Debo y pagaré la cantidad de: " & PadL(Formato( Val2(rstEncabezado("impuesto")) + Val2(rstEncabezado("iespecial")) + Val2(rstEncabezado("importe")) + Val2(rstEncabezado("redondeo")) - nPagoTotal, Ambiente.FDinero ),9) & vbCrLf cSalida = cSalida & vbCrLf cSalida = cSalida & "______________________________" & vbCrLf cSalida = cSalida & "Nombre: " & vbCrLf else cSalida = cSalida & " Cambio: " & PadL(Formato( nPagoTotal - Val2(rstEncabezado("impuesto")) - Val2(rstEncabezado("iespecial")) - Val2(rstEncabezado("importe")) - Val2(rstEncabezado("redondeo")), Ambiente.FDinero ),9) & Chr(13) & Chr(10) end if Set rstMoneda = CreaRecordSet( "SELECT * FROM monedas WHERE moneda = '" & rstEncabezado("moneda") & "'", Ambiente.Connection ) cSalida = cSalida & Chr(13) & Chr(10) cSalida = cSalida & Chr(13) & Chr(10) cSalida = cSalida & Letra( Val2(rstEncabezado("impuesto")) + Val2(rstEncabezado("importe")) + Val2(rstEncabezado("iespecial")), Trim(rstMoneda("Descrip")), True,rstMoneda("Nombre") ) & Chr(13) & Chr(10) cSalida = cSalida & Chr(13) & Chr(10) cSalida = cSalida & Chr(13) & Chr(10) cSalida = cSalida & Chr(13) & Chr(10) cSalida = cSalida & "***** GRACIAS POR SU COMPRA *****" & Chr(13) & Chr(10) cSalida = cSalida & Chr(13) & Chr(10) cSalida = cSalida & Chr(13) & Chr(10) cSalida = cSalida & Chr(13) & Chr(10) cSalida = cSalida & Chr(13) & Chr(10) cSalida = cSalida & Chr(13) & Chr(10) cSalida = cSalida & Chr(13) & Chr(10) cSalida = cSalida & Chr(13) & Chr(10) cSalida = cSalida & Chr(13) & Chr(10) ' Esto manda un corte de papel 'PrintText cSalida if Ambiente.rstEstacion("ticketcorte") <> 0 Then
cSalida = cSalida & Chr(27) & Chr(105)
end if

If Ambiente.Tag = "HTML" Then

Ambiente.Tag = ""

cSalida = Replace( cSalida, Chr(13) & Chr(10), "
" )
cSalida = "

" & cSalida & "

"

       CreaHtml "", (cSalida)


    Else


       if Ambiente.rstEstacion("ticket") <> 0 Then

          if clAt( "LPT", Ambiente.rstEstacion("pticket") ) > 0 Then

             Out Trim(Ambiente.rstEstacion("pticket")), cSalida

          else

             if Ambiente.Ticket.PortOpen Then

                Ambiente.Ticket.Output = cSalida

             end if

          end if

       End if           


    End If


End Sub
Publicado el por — 25 comentarios

Configurar MyBusiness POS en RED y Código Duro 58 [Solucionado]

También visite:  Como corregir codigo duro 58

He notado que muchos de los Distribuidores y clientes tienen problemas para hacer la conexion de MyBusiness POS 2011 en Red.

Descarga la cadena de conexión para MyBusiness POS 20

Icono

Cadena de conexión MyBusiness POS 20

1 archivo(s) 0.14 KB
♞Registro
♞Entrar_D
Olvidé_P
En ocasiones hay que hacer algo más allá de simplemente llenar los textBox que nos presenta el Sistema. El problema en la Conexión se presentó igual en la Versión 2010.
Al parecer, cuando damos de alta una conexión de forma errónea se nos complica un poco hacer la MODIFICACIÓN en los parámetros, esto es porque la ventana contiene errores para hacer el ajuste antes mencionado. En este caso, lo recomendable es BORRAR la conexión errónea y dar de ALTA una nueva Conexión con los datos correctos.
Otra alternativa es colocar de forma manual el nombre de la Conexion en el espacio en blanco que se muestra al final de todos los TextBox. eso es lo que se presenta en el siguiente video. Espero que sea útil…. y no se olviden de Comentar.
Aunque, si hubiera una manera de hacer un Donativo, újule sería bien recibido jeje; digo, si les es útil. Al final del día quienes más visitan este blog son DISTRIBUIDORES que van a aplicar esta Solución con sus CLIENTES.
Saludos.
Icono

Abrir Firewall Puerto 1400

1 archivo(s) 0.00 KB
Descarga
https://youtu.be/LfAAzzR1Kac
Además, he agregado el siguiente video para los usuarios que tienen problemas para abrir por primera vez el sistema MyBusinessPOS: El ya famoso Error Código Duro 58.

Como información adicional, cito la siguiente información obtenida del boletín No. 41 de MyBusinessPOS.com, la cual puede ser de utilidad.

Instalar SQL para trabajar en RED

Servidor

Una vez que se introduce en CD de instalación y nos muestra el “SplashCD” damos un clic en la opción Instalar SQL para trabajar en RED la cual nos mostrará una ventana donde debemos definir el “password para el servidor de Microsoft SQL Server” capturamos el password y lo confirmamos, damos un clic en el botón “Aceptar” y continuamos con la instalación.

Una ves instalado vamos a revisar el puerto que asigno al instalar el SQL, damos clic en el botón Inicio / Todos los programas / Microsoft SQL Server 2005 / Configuration Tools / SQL Server Configuration Manager Nos mostrará la siguiente ventana en la cual damos clic en la opción de SQL Server 2005 Network Configuration / Protocolo for SQL EXPRESS / TCP/IP y damos un clic en Propiedades del TCP/IP – IP Adreses IPAII – TCP Dynamic Port. Una vez que tenemos el número de puerto hay que acceder al firewall de Windows para liberar el puerto que nos servirá para conectarnos en red

Liberar puerto en el Firewall de Windows

Damos un clic en el botón Inicio / Panel de control / Firewall de Windows / Excepciones y damos clic en Agregar puerto… Asignamos un nombre y el número de puerto que género la instalación del SQL Server, clic en TCP, clic en Aceptar.

Hasta este punto ya tenemos el password para el servidor de Microsoft SQL Server, el número de puerto del SQL y liberado el puerto en el firewall de Windows.

Cliente

En el equipo cliente damos clic en la opción “Instalar MyBusiness” al concluir con la instalación nos mostrar los “Datos generales de la empresa” en la cual colocamos el nombre de nuestra empresa y damos clic en el botón “Avanzadas” y modificaremos los siguientes datos.

1. Desactivamos la casilla de “Utilizar base de datos local”

2. Revisamos que el nombre de la base de se el mismo de no ser así cambiamos la ruta o el nombre de la misma

3. Verificamos el nombre del equipo servidor o la IP a la cual nos vamos a conectar (125.265.1.125\SQLEXPRESS) ejemplo.

4. Cambiamos el puerto que nos asigna por el que nos genero el SQL y del cual liberamos el puerto

5. Y finalmente cambiamos el password por que creamos al momento de la instalación.

Damos clic en el botón “Aceptar” y ¡listo…!!! Nos hemos conectado en Red.

Publicado el por — 45 comentarios

Etiquetas de Código de Barras en Hoja Tamaño Carta

Icono

Editor de Etiquetas, generar e imprimir código de barras

1 archivo(s) 16.34 KB
♞Registro
♞Entrar_D
Olvidé_P

Icono

Código de barras en hoja Carta

1 archivo(s) 88.00 KB
Descarga

El generador de etiquetas de MyBusiness POS 2006 es una herramienta muy útil para la empresa. Sin embargo, en ocasiones es necesario hacer las adaptaciones necesarias para que se adapte la “caída” sobre hojas tamaño carta con etiquetas.
El código más común es el CODE39.   Este va a ser creado dentro de la siguiente ruta del Business Manager: personalización…formatos del sistema….(aquí creamos un nuevo archivo, llamado CODE39_AJUSTADO,  escribimos en el grupo ETIQUETAS, para que pueda ser utilizado desde la ventana etiquetas)
A continuación se muestra el código:

Public Sub Main()

‘TIPO DE PAPEL: 6287 T. CARTA
‘MARCA DE PAPEL: BIC PIMACO
‘ETIQUETAS/HOJA: 80
‘CONSEGUIRLO EN OFFICE DEPOT
‘IMPRESORA LÁSER
‘cada milimetro es equivalente a 57.1428571428571 pixels

IniciaDocumento

‘DEBIDO A QUE NUESTRA HOJA TIENE VARIAS FILAS Y COLUMNAS, SOLICITAMOS A PARTIR DE QUÉ FILA Y COLUMNA SE DEBE EMPEZAR A IMPRIMIR, POR SI EN ALGUN MOMENTO ESTÁ CASI COMPLETA LA HOJA

nColumna = InputBox( “Comenzar con la columna no.:”, 0 )
nFila = InputBox( “Comenzar con la fila no.:”, 0 )

‘EN CASO DE QUE SE CONTESTE 0 EN ALGUNO DE LOS CASOS, NO SE IMPRIMIRÁ NADA
if Val2( nColumna ) <= 0 Then
Exit Sub
end if

if Val2( nFila ) <= 0 Then Exit Sub end if ‘REALIZAMOS LA CONSULTA Set rstProds = CreaRecordSet( “SELECT * FROM prods WHERE etiquetas > 0 ORDER BY articulo”, Ambiente.Connection )

‘ESPECIFICAMOS EL LA SEPARACIÓN ENTRE CADA ETIQUETA, EN PIXELES, TANTO EN X(HORIZONTAL) COMO Y(VERTICAL)
nX = 2714.28571428571
nY = 725.714285714286

‘DEFINIMOS LOS MÁRGENES DE LA HOJA, EL SUPERIOR Y EL IZQUIERDO
nMargensuperior = 400
nMargenIzquierda = 828.57

While Not rstProds.EOF

cArticulo = Trim( rstProds(“articulo”) )
cDescrip = Trim( Mid(rstProds(“descrip”),1,16) ) & ” ” & Trim( rstProds(“modelo”) ) & ” ” & Trim( rstProds(“talla”) ) & ” ” & Formato( rstProds(“precio1?), “$##,##0.00? )
cEmpresa = Ambiente.Empresa

For i = 1 To rstProds(“Etiquetas”)

‘AQUÍ SE REALIZAN LAS OPERACIONES CON LAS VARIABLES QUE ANTES HABÍAMOS DEFINIDO
PosicionX = ((nX * nColumna) – nX) + nMargenIzquierda
PosicionY = ((nY * nFila) – nY) + nMargensuperior

‘EN LA SIGUIENTE LÍNEA, EL 10 ES EL GROSOR DE LAS BARRITAS, EL 200 ES LA ALTURA (EN PIXELS) DEL CÓDIGO DE BARRAS
Codigo39 PosicionX, PosicionY, 10, 200, cArticulo, True,, cDescrip

nColumna = nColumna + 1

‘EN EL SIGUIENTE BLOQUE ESPECIFICAMOS CUÁNTAS COLUMNAS VA A TENER LA HOJA TAMAÑO CARTA (EN ESTE CASO, 4)
if nColumna > 4 Then
nColumna = 1
nFila = nFila + 1
end if

if i = rstProds(“Etiquetas”) Then
Exit For
end if

‘EN EL SIGUIENTE BLOQUE ESPECIFICAMOS CUÁNTAS FILAS VA A TENER LA HOJA TAMAÑO CARTA (EN ESTE CASO, 20)
if nFila > 20 Then
nFila = 1
PaginaNueva

end if
Next
rstProds.MoveNext
Wend
FinDocumento
End Sub

 

Y listo!!!
ya tenemos nuestro formato totalmente funcional para imprimir.
Cabe aclarar que el rendimiento de una impresora láser es menor a comparación de una impresora especial para etiquetas, ya que la primera no está totalmente diseñada para este fin.

Espero sus comentarios y dudas.