Publicado el Dejar un comentario

Base de datos en blanco

Descarga e instala de manera manual SQL Server y SQL Managemente studio

Descarga la base de datos en blanco para adjuntar en MyBusiness POS

Si quieres ver las tablas del sistema, te recomiendo descargar este archivo con los detalles de cada tabla



.

Publicado el Dejar un comentario

MODULO DE PRODUCCION.

Mediante este Modulo podrás dar de Alta Ordenes de producción y administrarlos con su status.

Publicado el 2 comentarios

Consulta tipo de cambio Banxico en tiempo real

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/

Publicado el 1 comentario

Recuperar contraseña MyBusiness POS

password-mybusinessposEn Mybusiness POS es posible desencriptar la clave de cualquier usuario de una forma sencilla.

Opción 1:

Si tenemos privilegios de supervisor, podemos hacerlo importando un formulario, lo ejecutamos y obtendermos la clave de acceso.

Opción 2:

Podemos acceder a la base de datos, veremos la contraseña encriptada. Con el apoyo de un archivo de excel, podemos descifrar el contenido de la clave.

Ojalá sea de utilidad esta información proporcionada y sobre todo que le demos buen uso al parche.

Publicado el 1 comentario

Disponibilidad del servicio SQL y puerto 1400

  1. Dirigirse al icono de inicio de windows y seleccionar en la carpeta de Microsoft SQL Server 2005/Herramientas de Configuración/Administrador de Configuración
  2. Le aparecerá una pantalla como la siguiente en donde se muestra que los servicios de SQL SERVER 2005 (se encuentran en el rectángulo rojo) están activados.  Si alguno esta en color rojo, lo debe seleccionar, dando un clic con el botón derecho y elegir Propiedades
  3. Le aparecerá una ventana, seleccione la pestaña Servicio, posteriormente Automático en el Modo de inicio. Dar un clic en Aplicar y en Aceptar.
  4. Verifique que el Puerto 1400 este liberado, siga las instrucciones:
  5. En el icono Protocolos for SQLEXPRESS, verifique si los protocolos de SQL Server están habilitados
  6. Seleccione el Protocolo TCP/IP, Clic con el botón derecho y elegir propiedades
  7. Debe seleccionar la pestaña IP Addresses, verifique que en la parte inferior tenga el Puerto Dinámico 1400

+ IP All

TCP Dynamic Ports      1400

En caso de que no esté o aparezca en blanco, colocar el número de puerto 1400.