Whats 7222816462. Mejoramos la experiencia en el Punto de Venta de tu NEGOCIO
Si deseas conocer las tablas que tiene el sistema (compras, ventas, inventario, clientes, proveedores, operaciones), comparto el diccionario de datos
La base de datos tiene aproximadamente 250 tablas.
Las principales tablas son:
-prods
-clavesadd
-movsinv
-entradas
-entpart
-salidas
-salpart
-ventas
-partvta
-flujo
-histcamb
El código fuente de mybusiness pos se encuentra en las tablas:
-FormasDelta
-FormatosDelta
Podemos utilizar una herramienta web, http://canyouseeme.org y
Escribiremos
You port check: 1400
Probamos y debe aparecer success. Si aparece Error, entonces es necesario revisar que el puerto esté abierto en tres lugares:
Servidor Sql Server
Firewall del servidor
Módem de telmex
Error de sistema: -2147217913 The conversion of a char data type to a datetime data type resulted in an out-of-range datetime value.
Este error aparece cuando intentamos dar formato (año-mes-dia) a una fecha para aplicarlo en una consulta que solo acepta la estructura (dia-mes-año). Por ejemplo:
Set rstCorte = Rst("SELECT top 1 * FROM corteszx WHERE corte = 'z' and usufecha = '" & Libreria.Formato(date, "yyyy-mm-dd") & "' " , Ambiente.Connection )
El error se soluciona al modificar el orden de dia-mes-año de esta manera: Libreria.Formato(date, “dd-mm-yyyy”)
Set rstCorte = Rst("SELECT top 1 * FROM corteszx WHERE corte = 'z' and usufecha = '" & Libreria.Formato(date, "dd-mm-yyyy") & "' " , Ambiente.Connection )
Para MyBusinessPOS, la base de datos acepta el almacenamiento y consultas a través del puerto 1400. Este puerto debemos configurarlo en Microsoft SQL Server y en el firewall del servidor de la base de datos.
Hay varias formas de comprobar que el servidor tiene abierto el puerto 1400 para tener acceso desde el la estación de trabajo. Una de las opciones es que desde el equipo del cajero, haremos la prueba a través del comando Telnet (Inicio de windows->Ejecuta->CMD->telnet). Sin embargo, por default Telnet no está habilitado en Windows 7.
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.
