Whats 7222816462. Mejoramos la experiencia en el Punto de Venta de tu NEGOCIO
Puedes editar tu formato de ticket de manera visual, con diferentes tipos de fuente y tamaño.
El siguiente vídeo muestra cómo implementar el editor de ticket dentro de MyBusinesPOS
Una de las dificultades a las que nos enfrentamos en la primera instalación de MyBusiness POS es la configuración del formato de ticket. Lo más difícil es que parte de la configuración se realiza directo sobre el código del formato de ticket.
Si usted no cuenta con conocimientos de programación, no se preocupe, tenemos un desarrollo para que pueda editar su formato de ticket de manera visual y con diferentes tipos de letra.
Aquí se encuentra el archivo para descargar.
Cuál es el costo? Solo un pomo de 1,000 a las cuentas de esta página.
El siguiente vídeo muestra cómo implementar el editor de ticket dentro de MyBusinesPOS
Aquí hay un par de ejemplos de los resultados del editor
Este es el tipo de cambio actual, el cual verás tambien en Excel:
El siguiente proyecto permite conectar mediante soap al Web Service de Banco de México para obtener el tipo de cambio actual desde Excel y desde .paq
Más info, en este enlace directo www.banxico.org.mx/contacto/whatsapp/ 
Esta herramienta remplaza completamente la funcionalidad del servicio web “DgieWS” ubicado en: http://www.banxico.org.mx/DgieWSWeb/DgieWS?WSDL
Estimados usuarios:
Con base en el comunicado emitido por el Banco de México sobre la adopción del protocolo HTTPS, les pedimos que aquellos que utilicen Servicios Web (Webservices) para consultar información de este sitio verifiquen que estén utilizando la última versión de los mismos (www.banxico.org.mx/SieAPIRest/), a fin de que este cambio de protocolo no afecte el funcionamiento de sus procesos de consulta
a partir del 7 de septiembre de 2019.
Sub Main()
'jose felix jofelchez@gmail.com 7222816462
'Consuslta del tipo de cambio USD/MXN desde Banxico.org
Dim NS, NS_SOAP, NS_SOAPENC, NS_XSI, NS_XSD
NS = “http://ws.dgie.banxico.org.mx”
‘”https://www.w3schools.com/xml/”
NS_SOAP = “http://schemas.xmlsoap.org/soap/envelope/”
NS_SOAPENC = “http://schemas.xmlsoap.org/soap/encoding”
NS_XSI = “http://www.w3.org/2001/XMLSchema-instance”
NS_XSD = “http://www.w3.org/2001/XMLSchema”
‘ The URL of the Web service.
Dim URL
URL = “http://www.banxico.org.mx/DgieWSWeb/DgieWS”
‘ The URL of the operation (function).
Dim Operation_TipoCambio
Operation_TipoCambio = “tiposDeCambioBanxicoRequest”
‘ XML DOM objects.
Dim DOM, Envelope, Body, Operation, Param
‘ Creates an XML DOM object.
Set DOM = CreateObject(“MSXML2.DOMDocument.6.0”)
‘ Creates the main elements.
Set Envelope = DOM.createNode(1, “soap:Envelope”, NS_SOAP)
Envelope.setAttribute “xmlns:soapenc”, NS_SOAPENC
Envelope.setAttribute “xmlns:xsi”, NS_XSI
Envelope.setAttribute “xmlns:xsd”, NS_XSD
DOM.appendChild Envelope
Set Body = DOM.createElement(“soap:Body”)
Envelope.appendChild Body
‘ Creates an element for the TIPOSDECAMBIO function.
Set Operation = DOM.createNode(1, “tiposDeCambioBanxico”, NS)
Body.appendChild Operation
‘ Releases the objects.
Set Param = Nothing
Set Operation = Nothing
Set Body = Nothing
Set Envelope = Nothing
‘ Creates an XML HTTP object for sending a request.
Dim XMLHTTP
Set XMLHTTP = CreateObject(“MSXML2.ServerXMLHTTP.6.0”)
XMLHTTP.Open “POST”, URL, False
XMLHTTP.setRequestHeader “Content-Type”, “text/xml; charset=utf-8”
XMLHTTP.setRequestHeader “SOAPAction”, Operation_TipoCambio
‘ Sends the request.
XMLHTTP.send DOM.xml
‘ Loads the response to the DOM object.
DOM.LoadXML XMLHTTP.responseXML.xml
‘ Releases the object.
Set XMLHTTP = Nothing
‘ XML DOM objects.
Dim NodeList, Element
‘xml que se regresa del servidor
‘mymessage “” & replace(replace(replace(DOM.xml ,”><“,”>” &vbCrLf& “<“),”<“,”<“),”>”,”>”)
‘ Searches for the CelsiusToFahrenheitResult object, which contains the value in degrees Fahrenheit.
Set NodeList = DOM.getElementsByTagName(“*”)
For Each Element in NodeList
‘on error resume next
‘mymessage “” & Element.tagName & ” ” & Element.Text
If Element.tagName = “result” then ‘”CelsiusToFahrenheitResult” Then
‘mymessage ” ” & Element.Text
procesaRespuesta Element.Text
Exit For
End If
Next
‘ Releases the objects.
Set Element = Nothing
Set NodeList = Nothing
Set DOM = Nothing
End Sub
Sub procesaRespuesta( sMensaje)
Dim Query, rstArticulo
Dim NodeList, Element
Set Query = NewQuery()
Set Query.Connection = Ambiente.Connection
Set xml = CreateObject(“Msxml2.DOMDocument.3.0”)
xml.loadXML((sMensaje))
Set NodeList = xml.getElementsByTagName(“*”)
For Each Element in NodeList
If Element.tagName = “bm:Obs” then
msgbox “Tipo de cambio : ” & Trim(Element.getAttribute(“OBS_VALUE”) ) & vbCrLf & “Fecha : ” & Trim(Element.getAttribute(“TIME_PERIOD”) )
Exit For
End If
Next
End Sub
SIE API
El API del Sistema de Información Económica permite consultar las series de tiempo de todos los indicadores disponibles en este repositorio. Esta herramienta está orientada a desarrolladores o analistas que requieren la automatización del proceso de extracción de información económica publicada por el Banco de México.
Para utilizar el API se requiere usar el protocolo TLS 1.2
Token de consulta
El token de consulta es un requisito necesario para poder utilizar el API de series de tiempo. Consta de 64 caracteres alfanuméricos y debe ser enviado cada vez que se interactúe con los servicios provistos. El envío se debe realizar a través del header HTTP Bmx-Token o el parámetro token (El header tiene prioridad, si se envía el header se toma este valor en caso contrario se toma el valor del parámetro). Por ejemplo:
Token de consulta generado: 57389428453f8d1754c30564b6b915070587dc7102dd5fff2f5174edd623c90b
Estatus de token
El API define un conjunto de límites en el número de peticiones que se realizan por token de consulta ( Más detalles ). En caso de que estos límites se superen, el token de consulta utilizado será inhabilitado hasta que concluya el periodo de tiempo en el cuál se superó el número límite de consultas.
Token
57389428453f8d1754c30564b6b915070587dc7102dd5fff2f5174edd623c90b
Fecha de creación: 2019-10-14 09:40:44 America/Mexico_City
Estatus consultas oportunas
Activo
Estatus consultas históricas
Activo
Consultas oportunas
Fecha inicio periodo consulta N/D
Fecha fin periodo consulta N/D
Número de consultas en periodo 0
Número de consultas restantes en periodo 80
Número de consultas diarias 0
Número de consultas restantes en el día 40000
Consultas históricas
Fecha inicio periodo consulta N/D
Fecha fin periodo consulta N/D
Número de consultas en periodo 0
Número de consultas restantes en periodo 200
Número de consultas diarias 0
Número de consultas restantes en el día 10000
Fuente:
https://www.banxico.org.mx/SieAPIRest/service/v1/
Contamos con un catálogo de 2000 productos para abarrotes con sus códigos de barras.
Este catálogo está disponible en Excel para su fácil manejo previo a la carga dentro de tu sistema.
Inicia sesión para adquirir el archivo en Excel y en .paq.
.
La impresora recomendada para MyBusinessPOS es EcLine 5890x ,
también es compatible con el siguiente archivo, editor de ticket
Muchos nos vemos en la necesidad de modificar la fuente y tamaño del ticket en MyBusiness POS.
Existen dos formas de hacerlo, depende del caso:
En este caso, ir a la ruta dentro del business manager, Configuración–presonalización–procedimientos y rutinas de usuario–FORMATOTEXTO
El código es el siguiente:
Sub Main()
Dim p, s
On error resume next ‘En caso de error, el script continua sin mostrar error
‘Impresora de tickets definida en las Estación de trabajo
Set p = ImpresoraDefault(Ambiente.rstEstacion(“pticket”))
‘Ruta del logo: C:\archivos de programa\MyBusiness POS 2012\images\logo.jpg
‘El logo debe tener extensión .jpg
‘Los números 0, 0, 3, 4 son las coordenadas y tamaño del logo
‘Si desea imprimir el logo, descomenta estas dos lineas
‘ p.ScaleMode = 7 ‘ Centimetros
‘p.PaintPicture LoadPicture(Ambiente.Path & “\images\logo.jpg”), 0, 0, 3, 4
p.Font.Name = “Courier New” ‘Fuente recomendada: Tahoma o Courier New
p.Font.Size = 8 ‘Tamaño de la fuente, tamaño de letra
For n = 1 To 2 ‘Número de saltos de línea necesarios en el texto
s = s & vbCrLf ‘Saltos después del logo para evitar sobreescritura
Next
pt (p),(s) ‘ pt (print text) imprime el texto indicado (impresora), (texto)
pt (p),(Script.textToFormat)
p.EndDoc
End Sub
‘
El siguiente bloquecito de código lo podemos encontrar en el formato de ticket USB en la ruta Configuración–Personalización–Formatos del Sistema–Ticket USB.
Aquí podemos identificar la función EstableceFuente “Fuente a elegir”, TamañoFuente
IniciaDocumento 'Inicia con la impresión USB
' EstableceImpresora "Mi Impresora laser" 'esta linea permite elegir impresora USB destino
EstableceFuente "Courier New", 8 'Fuente que tendra el ticket USB
Say 0,.2, cSalida 'Alineación del texto, en pulgadas. cSalida es el texto a imprimir
FinDocumento 'Termina la Impresión USB
'
