Publicado el Dejar un comentario

Deseas que aparezca en el punto de venta Title Bar Buttons

1.-Abre Inicio001
2.- Escribe esta sintaxis en la linea 4 Me.BorderStyle = 1
3.-Que este antes de la linea Me.Caption = Ambiente.Empresa
4,.Guarda el Procedimiento
5-Ejecuta el Punto de Venta

Contactanos

 

Nestor Octavio Guzman Bernal
Desarrollador de Soluciones
Cel.: (722) 7 70 16 56
WhatsApp: (722) 7 70 16 56

 

Publicado el Dejar un comentario

Solución a Error al adjuntar base de datos dañada

Existe un error al intentar hacer la conexión -2147467259 Error al procesar el registro de la base de datos ‘C: \MyBusinessDatabase\MyBusinessPOS2012.mdf’. Si es posible, restaure la base de datos a partir de una copia de seguridad. Si no dispone de una copia de seguridad, puede ser necesario generar de nuevo el registro. código duro 5

Publicado el 2 comentarios

Báscula Torrey conectada por cable RS-232

En muchos negocios es imprescindible el uso de la báscula conectada al sistema mybusinesspos a través del cable RS-232.

Aquí puedes descargar la homologación

Cómo funciona lectura directa de la báscula?

-El sistema MyBusiness POS envía un caracter hacia la báscula (para TORREY EQ-10/20 es la letra “P”)

-La báscula retorna el peso en diez caracteres (” 0.652kg ” , iniciando por un espacio y termina con un salto de línea)

-Después de esto, MyBusinessPOS interpreta esta cadena de texto (” 0.652kg “) y solo toma los números para el peso

-El peso aparecerá en el espacio de comodín, el cual está en el punto de venta.

-El usuario escribe la clave del producto y el punto de venta lo agregará a las partidas, con el peso correspondiente

-Esto se repite aproximadamente 60 veces por segundo; es decir que si cambia el peso, de inmediato el sistema lo atrapa para realizar la venta.

Si hacen las pruebas y tienen problemitas; no sepreocupe, recuerde que con un pomito de 700 lo resolvemos, al enviarles el parche de la homologación.

Dejo esta descarga por necesitas hacer pruebas con el software que por default usa la báscula torrey, Scale.exe


Saludos

José Félix

Fuente: http://www.torrey.net/docs/mexico/fabatsa/leq/276-leq-manual-usuario.pdf

Publicado el Dejar un comentario

Exportar a texto .txt

Este es un ejemlo de cómo exportar a un archivo de texto.

Sub Main()
Dim rstClientes
Dim s

Set rstClientes = CreaRecordSet( _
"SELECT * FROM clients", Ambiente.Connection )

s = ""

If ExisteArchivo( "c:\clientes.txt" ) = True Then
If Question( "Desea eliminar el archivo", 2 ) = True Then
EliminaArchivo "c:\clientes.txt"
End If
End If

While Not rstClientes.EOF
s = Chr(34) & rstClientes("cliente") & Chr(34) & _
Chr(9) & Chr(34) & rstClientes("nombre") & Chr(34) & _
Chr(9) & Chr(34) & rstClientes("telefono") & Chr(34) & vbCrLf
OutLine "c:\clientes.txt", s
rstClientes.MoveNext
Wend

If Question( "Desea abrir el archivo", 1 ) = True Then
ShellRun Parent.hWnd, "Open", "c:\clientes.txt"
End If

End Sub

Este script puede ser de utilidad si quisiéramos ver un texto con los clientes o cualquier otro layout que se requiera para otros sistemas.

He utilizado para servicoos como facturación cfdi y para tiempo aire.
La función ExisteArchivo es genial porque lo único que escribimos como parámetro es la ruta de nuestro archivo de texto.

Lo importante es probar todas las posibilidades que existen para tener la información disponible para hacer lo que las reglas del negocio requiere.