Publicado el por — Dejar un comentario

Desarrollando con IA en MyBusiness POS

Ejemplo exacto del prompt que alguien debería escribirle a la IA para llegar al resultado de un código que generamos para MyBusiness POS v20.

Este prompt está optimizado para que la IA investigue bien y entregue código listo para producción.

Ejemplo de solicitud correcta a la IA

Quiero que generes un procedimiento completo en VBScript que se ejecute dentro de MyBusiness POS v20.

Antes de escribir el código, realiza una búsqueda profunda en helpmybusinesspos.info para identificar:

- Cómo funciona el motor de scripts interno de MyBusiness POS.
- Cómo se usa el objeto Ambiente.Connection.
- Cómo se crean y utilizan Recordsets (ADODB.Recordset).
- Ejemplos reales de consultas SQL ejecutadas desde procedimientos internos.

El objetivo es crear un procedimiento que:

1. Se ejecute dentro de MyBusiness POS v20 (no externo).
2. No use credenciales SQL ni cree una conexión nueva.
3. Utilice exclusivamente la conexión interna Ambiente.Connection.
4. Consulte la tabla "prods".
5. Permita buscar por clave de artículo o código de barras.
6. Devuelva descripcion, precio1, precio2 y precio3.
7. Muestre los resultados en un MsgBox.
8. Incluya validación de entrada.
9. Escape correctamente comillas simples para evitar errores SQL.
10. Libere correctamente los objetos Recordset al final.

Además, quiero que:

- El código esté completamente comentado.
- Expliques cada parte del procedimiento.
- Incluyas recomendaciones para adaptarlo a botones, eventos o Business Manager.
- Cites las secciones específicas encontradas en helpmybusinesspos.info que respalden el uso de Ambiente.Connection y scripting interno.

🎯 Por qué este prompt funciona bien

Porque:

✔ Especifica versión (v20)
✔ Obliga a investigar helpmybusinesspos.info
✔ Define claramente el entorno interno
✔ Restringe uso de conexiones externas
✔ Enumera exactamente qué debe incluir el código
✔ Pide comentarios y explicación técnica

🚀 Versión más avanzada (si quieres algo aún mejor)

Si quisieras un resultado todavía más profesional, podrías pedir:

Además, optimiza la consulta SQL para rendimiento,
sugiere índice recomendado para la tabla prods,
y agrega manejo de errores con On Error Resume Next controlado.

Este es el resultado de la petición a la IA, el cual sólo se debe copiar y pegar dentro de un nuevo procedimiento de mybusinesspos

'===========================================================
' Procedimiento: ConsultaPrecioProducto
' Descripción : Consulta precios desde la tabla prods
'               usando la conexión interna Ambiente.Connection
' Compatible  : MyBusiness POS v20
'===========================================================

Sub ConsultaPrecioProducto()

    On Error Resume Next

    '-------------------------------------------------------
    ' Declaración de variables
    '-------------------------------------------------------
    Dim rst
    Dim sSQL
    Dim sClave
    Dim descripcion
    Dim precio1, precio2, precio3

    '-------------------------------------------------------
    ' Solicitar clave o código de barras
    '-------------------------------------------------------
    sClave = InputBox("Ingrese clave o código de barras:", "Consulta de Precio")

    If Trim(sClave) = "" Then
        MsgBox "Debe ingresar una clave válida.", vbExclamation, "Aviso"
        Exit Sub
    End If

    '-------------------------------------------------------
    ' Sanitizar entrada básica (evitar error por comillas)
    '-------------------------------------------------------
    sClave = Replace(sClave, "'", "''")

    '-------------------------------------------------------
    ' Construcción de la consulta SQL
    '-------------------------------------------------------
    sSQL = "SELECT articulo, descripcion, precio1, precio2, precio3 " & _
           "FROM prods " & _
           "WHERE articulo = '" & sClave & "' " & _
           "OR codigobarras = '" & sClave & "'"

    '-------------------------------------------------------
    ' Crear recordset
    '-------------------------------------------------------
    Set rst = CreateObject("ADODB.Recordset")

    ' Ejecutar usando la conexión interna del sistema
    rst.Open sSQL, Ambiente.Connection, 1, 1

    '-------------------------------------------------------
    ' Validar si se encontró el producto
    '-------------------------------------------------------
    If Err.Number <> 0 Then
        MsgBox "Error al ejecutar la consulta: " & Err.Description, vbCritical, "Error"
        Exit Sub
    End If

    If Not rst.EOF Then

        descripcion = rst("descripcion")
        precio1 = rst("precio1")
        precio2 = rst("precio2")
        precio3 = rst("precio3")

        MsgBox "Artículo: " & rst("articulo") & vbCrLf & _
               "Descripción: " & descripcion & vbCrLf & _
               "Precio 1: $" & FormatNumber(precio1, 2) & vbCrLf & _
               "Precio 2: $" & FormatNumber(precio2, 2) & vbCrLf & _
               "Precio 3: $" & FormatNumber(precio3, 2), _
               vbInformation, "Resultado de la Consulta"

    Else
        MsgBox "No se encontró el artículo con la clave proporcionada.", _
               vbExclamation, "Sin resultados"
    End If

    '-------------------------------------------------------
    ' Liberar recursos
    '-------------------------------------------------------
    rst.Close
    Set rst = Nothing

    On Error GoTo 0

End Sub

Paso para implementar el procedimiento dentro de mybusinesspos

  • Aquí tienes los pasos sin formato, claros y directos para implementar el procedimiento dentro de MyBusiness POS v20:
  • Primero abre MyBusiness POS.
  • Entra al módulo Business Manager.
  • Ve al menú Herramientas y selecciona Procedimientos.
  • Haz clic en Nuevo para crear un procedimiento.
  • Escribe el nombre del procedimiento, por ejemplo: ConsultaPrecioProducto.
  • Selecciona como tipo de procedimiento VBScript.
  • Pega el código completo dentro del editor.
  • Guarda el procedimiento.
  • Para ejecutarlo manualmente, ve a Herramientas y selecciona Ejecutar Procedimiento, luego elige ConsultaPrecioProducto.
  • Si quieres asignarlo a un botón en ventas, ve a Configuración y después a Botones.
  • Selecciona un botón disponible.
  • En tipo de acción elige Ejecutar procedimiento.
  • Selecciona el procedimiento ConsultaPrecioProducto.
  • Guarda los cambios.
  • Ahora el botón ejecutará la consulta de precios dentro del sistema usando la conexión interna Ambiente.Connection.
  • Si deseas que se ejecute automáticamente como evento, entra a Herramientas y luego a Eventos.
  • Selecciona el evento donde quieras que se ejecute, por ejemplo al validar artículo.
  • Agrega la acción de ejecutar procedimiento y selecciona ConsultaPrecioProducto.
  • Guarda los cambios.
  • Con esto el procedimiento ya queda implementado dentro de MyBusiness POS v20 sin necesidad de usar credenciales externas, ya que utiliza la conexión interna del sistema.
Deja un comentario