Doc. Ref. 29104 Título: Dos ejemplos de aplicación de las prestaciones IA en Hexa Autor: Soltec Última actualización: 09/04/2026 #inteligencia #artificial #chatgpt #tabla #html #ia #proyecto #tarea #dedicacion

---

Dos ejemplos de aplicación de las prestaciones IA en Hexa

Hexa dispone de un módulo de conexión con el servicio de OpenAI que permite realizar consultas y obtener respuestas. En este documento se expone dos ejemplos de aplicación de las prestaciones IA en Hexa

Resumir el texto de dedicación de una tarea.

Este ejemplo genera un informe a partir del contenido de una tarea y su dedicación. Al final, se envía el resultado al objeto IA para que lo resuma y se visualiza el resultado obtenido.

Sub Main (Criterio, Orden, Opciones)
    CodProy = BD.Cmp ("Tarea", "Proyecto", Criterio, 0)
    TitProy = BD.Cmp ("Proyecto", "Titulo", "Codigo=" & fpc.sqlt (CodProy), 0)
    CodTar = BD.Cmp ("Tarea", "Codigo", Criterio, 0)
    DescTar = BD.Cmp ("Tarea", "Descripcion", Criterio, 0)
    BD.Rs.Consulta = "SELECT Fecha, Empleado, Cantidad, Comentarios FROM Dedicacion WHERE Proyecto=" & fpc.SQLT (CodProy) & " And Tarea=" & fpc.VAC (CodTar) & " ORDER BY Fecha, Codigo"
    BD.Rs.Abrir (False)
    Texto = ""
    Do While Not BD.Rs.Fin
        Texto = Texto & "[" & BD.Rs.Campo ("Empleado") & "]" & " el " & BD.Rs.Campo ("Fecha") & " (" & BD.Rs.Campo ("Cantidad") & "ut)" & VbCrLf & BD.Rs.Campo ("Comentarios") & VbCrLf
        BD.Rs.Siguiente
    Loop
    BD.Rs.Cerrar
    Texto = Texto & "---Costes-------------------" & VbCrLf
    BD.Rs.Consulta = "SELECT SUM (Cantidad) AS Horas, Categoria, MIN (PrecioHora) AS Precio, MIN (PrecioHora) * SUM (Cantidad) As Total FROM Dedicacion LEFT JOIN Categoria ON Dedicacion.Categoria = Categoria.Codigo WHERE Proyecto=" & fpc.SQLT (CodProy) & " AND Tarea=" & fpc.SQLC (CodTar) & " GROUP BY Categoria"
    Total = 0
    BD.Rs.Abrir (False)
    Do While Not BD.Rs.Fin
        Texto = Texto & BD.Rs.Campo ("Horas") & "h " & BD.Rs.Campo ("Categoria") & " * " & BD.Rs.Campo ("Precio") & "EUR/h = " & BD.Rs.Campo ("Total") & "EUR" & VbCrLf
        Total = Total + fpc.VaC ("" & BD.Rs.Campo ("Total"))
        BD.Rs.Siguiente
    Loop
    Texto = Texto & "Total: " & Total & "EUR" 
    BD.Rs.Cerrar

    Texto = AI.CallOpenAI2 ("Please summarize the following text in Spanish: " & Texto)

    Titulo = "Inf.Tarea " & CodTar & "-" & DescTar & "(Proy." & CodProy & "-" & TitProy & ")"
    Diario.NuevoFormulario "visortexto", "", "", "Texto=" & fpc.sqlt (Texto) & " Titulo=" & fpc.sqlt (Titulo)
End Sub

Formatear una tabla HTML antes de mostrarla.

Este ejemplo, además del objeto IA, muestra las prestaciones del objeto RS para hacer una consulta SQL a la base de datos de Hexa, y convertirla en una tabla HTML para visualizarla en el formulario "visor" de Hexa.

Una vez generada la tabla, se solicita al objeto IA que le haga algunas mejoras en el formato de visualización.

Sub Main (Criterio, Orden, Opciones)
   Campos = "Codigo, Nombre, Direccion"
   Condicion = "Poblacion='Badalona' ORDER BY Nombre"
   BD.RS.Consulta = "SELECT " & Campos & " FROM Cliente WHERE " & Condicion
   BD.Rs.Abrir (false)
   T = BD.Rs.gethtmlTable ()
   Peticion = "Formatea esta tabla HTML para que el encabezado tenga un fondo gris, el espacio entre los textos y los bordes sea un poco más grande y el fondo de la tabla sea verde claro"
   T = AI.CallOpenAI2 (Peticion & VbCrLf &  T)
   Diario.NuevoFormulario "visortexto", "", "", "Texto=" & fpc.sqlt (T) & " Titulo='Hola' HTML=si"
End Sub

Volver a la búsqueda anterior