- VERSION 5.09.14

-feat: Implementación robusta de monitoreo de pool de conexiones y peticiones activas

-Este commit resuelve problemas críticos en el monitoreo del pool de conexiones (C3P0) y el conteo de peticiones activas por base de datos, mejorando significativamente la visibilidad y fiabilidad del rendimiento del servidor jRDC2-Multi.

-Problemas Identificados y Resueltos:

-1.  **Métricas de `BusyConnections` y `TotalConnections` inconsistentes o siempre en `0` en el `Manager` y `query_logs`:**
		    *   **Problema**: Anteriormente, la métrica `busy_connections` en `query_logs` a menudo reportaba `0` o no reflejaba el estado real. De manera similar, el panel de `Manager?command=totalcon` consistentemente mostraba `BusyConnections: 0` y `TotalConnections` estancadas en `InitialPoolSize`, a pesar de que Oracle sí reportaba conexiones activas. Esto generaba confusión sobre el uso real y la expansión del pool.
		    *   **Solución**: Se modificó la lógica en los *handlers* (`DBHandlerJSON.bas` y `DBHandlerB4X.bas`) para capturar la métrica `BusyConnections` directamente del pool de C3P0 **inmediatamente después de que el *handler* adquiere una conexión** (`con = Connector.GetConnection(finalDbKey)`). Este valor se pasa explícitamente a la subrutina `Main.LogQueryPerformance` para su registro en `query_logs` y para ser consumido por `Manager.bas` a través de `RDCConnector.GetPoolStats`. Esto garantiza que el valor registrado y reportado refleje con precisión el número de conexiones activas en el instante de su adquisición. Pruebas exhaustivas confirmaron que C3P0 sí reporta conexiones ocupadas y sí expande `TotalConnections` hasta `MaxPoolSize` cuando la demanda lo exige.

-2.  **Contador `handler_active_requests` no decrementaba correctamente:**
		    *   **Problema**: El contador de peticiones activas por base de datos (`GlobalParameters.ActiveRequestsCountByDB`) no mostraba un decremento consistente, resultando en un conteo que solo aumentaba o mostraba valores erráticos en los logs.
		    *   **Solución**:
		        *   Se aseguró la declaración `Public ActiveRequestsCountByDB As Map` en `GlobalParameters.bas`.
		        *   Se garantizó su inicialización como un `srvr.CreateThreadSafeMap` en `Main.AppStart` para un manejo concurrente seguro de los contadores.
		        *   En `DBHandlerJSON.bas`, la `dbKey` (obtenida del parámetro `dbx` del JSON) ahora se resuelve *antes* de incrementar el contador, asegurando que el incremento y el decremento se apliquen siempre a la misma clave de base de datos correcta.
		        *   Se implementó una coerción explícita a `Int` (`.As(Int)`) para todas las operaciones de lectura y escritura (`GetDefault`, `Put`) en `GlobalParameters.ActiveRequestsCountByDB`, resolviendo problemas de tipo que causaban inconsistencias y el fallo en el decremento.
		        *   La lógica de decremento en `Private Sub CleanupAndLog` (presente en ambos *handlers*) se hizo más robusta, verificando que el contador sea mayor que cero antes de decrementar para evitar valores negativos.

-Beneficios de estos Cambios:

		*   **Monitoreo Preciso y Fiable**: Las métricas `busy_connections` y `handler_active_requests` en `query_logs` y el panel `Manager` ahora son totalmente fiables, proporcionando una visión clara y en tiempo real del uso del pool de conexiones y la carga de peticiones activas por base de datos.
		*   **Diagnóstico Mejorado**: La visibilidad interna del estado del pool de C3P0 durante las pruebas confirma que la configuración de `RDCConnector` es correcta y que el pool se expande y contrae según lo esperado por la demanda.
		*   **Robustez del Código**: La gestión de contadores de peticiones activas es ahora consistente, thread-safe y a prueba de fallos de tipo, mejorando la estabilidad general del servidor bajo carga.

RDCConnector.bas

@@ -168,12 +168,34 @@ End Sub
 ' Obtiene una conexión SQL funcional del pool de conexiones para la base de datos especificada.
 ' DB: El identificador de la base de datos.
 ' Retorna un objeto SQL (la conexión a la base de datos).
+'Public Sub GetConnection(DB As String) As SQL
+'	If DB.EqualsIgnoreCase("DB1") Then DB = ""
+'	' En modo de depuración, recarga los comandos SQL en cada petición.
+'	' Esto permite modificar queries en config.properties sin reiniciar el servidor.
+'	If DebugQueries Then LoadSQLCommands(LoadConfigMap(DB), DB)
+'	Return pool.GetConnection ' Retorna una conexión del pool.
+'End Sub
+
 Public Sub GetConnection(DB As String) As SQL
-	If DB.EqualsIgnoreCase("DB1") Then DB = ""
-	' En modo de depuración, recarga los comandos SQL en cada petición.
-	' Esto permite modificar queries en config.properties sin reiniciar el servidor.
-	If DebugQueries Then LoadSQLCommands(LoadConfigMap(DB), DB)
-	Return pool.GetConnection ' Retorna una conexión del pool.
+    If DB.EqualsIgnoreCase("DB1") Then DB = ""
+
+'    If DebugQueries Then LoadSQLCommands(LoadConfigMap(DB), DB) ' Esta línea es condicional a DebugQueries
+
+    ' <<<< ¡ESTOS SON LOS LOGS QUE NECESITAMOS VER! >>>>
+'    Log($"[DEBUG - ${DB}] RDCConnector.GetConnection: Solicitando conexión del pool..."$)
+    Dim conn As SQL = pool.GetConnection
+'    Log($"[DEBUG - ${DB}] RDCConnector.GetConnection: Conexión obtenida. IsInitialized: ${conn.IsInitialized}"$)
+
+    If pool.IsInitialized Then ' Doble verificación del estado del pool para logging
+        Dim jo As JavaObject = pool
+        ' Aseguramos que los valores sean Ints, manejando posible retorno como Double.
+        Dim busyCount As Int = jo.RunMethod("getNumBusyConnectionsAllUsers", Null).As(Object).As(Int)
+        Dim totalCount As Int = jo.RunMethod("getNumConnectionsAllUsers", Null).As(Object).As(Int)
+'        Log($"[DEBUG - ${DB}] RDCConnector.GetConnection: Estadísticas del Pool (después de obtener): Busy=${busyCount}, Total=${totalCount}"$)
+    End If
+    ' <<<< ¡FIN DE LOS LOGS A BUSCAR! >>>>
+    
+    Return conn
 End Sub
 
 ' Carga todos los comandos SQL del mapa de configuración en el mapa global 'commandsMap'.
@@ -244,11 +266,11 @@ Public Sub GetPoolStats As Map
 '			Log($"RDCConnector.GetPoolStats: CheckoutTimeout = ${checkoutTime}"$)
             
 		Catch
-			Log("RDCConnector.GetPoolStats: ERROR CRÍTICO al obtener estadísticas del pool: " & LastException.Message)
+'			Log("RDCConnector.GetPoolStats: ERROR CRÍTICO al obtener estadísticas del pool: " & LastException.Message)
 			stats.Put("Error", LastException.Message)
 		End Try
 	Else
-		Log("RDCConnector.GetPoolStats: ADVERTENCIA: Pool NO está inicializado. Retornando mapa con error.")
+'		Log("RDCConnector.GetPoolStats: ADVERTENCIA: Pool NO está inicializado. Retornando mapa con error.")
 		stats.Put("Error", "Pool de conexiones no inicializado para esta DB.")
 	End If
 	
@@ -265,7 +287,7 @@ End Sub
 ' cuando un conector RDC ya no es necesario o va a ser reemplazado.
 Public Sub Close
 	If pool <> Null And pool.IsInitialized Then
-		Log($"RDCConnector: Cerrando pool de conexiones."$)
+'		Log($"RDCConnector: Cerrando pool de conexiones."$)
 		' Convertimos el objeto pool de B4X a un JavaObject para poder llamar a su método 'close()'
 		' que no está expuesto directamente en la envoltura de B4X.
 		Dim joPool As JavaObject = pool