- VERSION 5.09.16

- feat: Implementa tolerancia de parámetros configurable y mejora estabilidad general del servidor.
- La tolerancia de parametros permite que si un query requiere 3 parametros y se mandan 4, NO mande un error,
	solo manda a la base de datos los parametros correctos y tira los extras, y guarda una "ADVERTENCIA" en el Log de errores.

- Este commit introduce la funcionalidad de `parameterTolerance` configurable y aborda varias mejoras críticas para la estabilidad y eficiencia del jRDC2-Multi.

- Principales cambios y beneficios:
- **Tolerancia de Parámetros**: Añade la propiedad `parameterTolerance` en `config.properties` para controlar el manejo de parámetros de más. Cuando está habilitada, recorta los parámetros excesivos; si está deshabilitada (modo estricto, por defecto), genera un error, aumentando la robustez de la validación.
- **Inicialización Multi-DB Confiable**: Corrige la lógica de inicialización en `Main.AppStart` para `RDCConnector` de DB3 y DB4, asegurando que cada base de datos tenga su propio *pool* de conexiones correctamente configurado.
- **Optimización de Ejecución SQL**: Elimina llamadas duplicadas a `ExecQuery2` y `ExecNonQuery2` en `DBHandlerB4X.bas`, garantizando que solo los parámetros validados se utilicen y evitando ejecuciones redundantes en la base de datos.
- **Refactorización y Limpieza**: Se eliminó la declaración duplicada de `ActiveRequestsCountByDB` en `Main.bas` y la subrutina `Handle0` obsoleta en `Manager.bas`, mejorando la claridad y mantenibilidad del código.

RDCConnector.bas

@@ -31,6 +31,9 @@ Sub Class_Globals
 	' Almacena la configuración completa (DriverClass, JdbcUrl, User, Password, InitialPoolSize, etc.)
 	' cargada de su respectivo archivo .properties.
 	Public config As Map
+	
+	' Indica si la tolerancia a parámetros de más está activa.
+	Public IsParameterToleranceEnabled As Boolean
 End Sub
 
 ' Subrutina de inicialización para el conector de una base de datos específica.
@@ -44,6 +47,16 @@ Public Sub Initialize(DB As String)
 	' Es CRUCIAL que se asigne a la variable de CLASE 'config' (sin 'Dim' local)
 	' para que la configuración cargada del archivo sea persistente para esta instancia del conector.
 	config = LoadConfigMap(DB)
+	
+	' Leer la configuración de tolerancia de parámetros
+	Dim toleranceSetting As Int = config.GetDefault("parameterTolerance", 0).As(Int) ' Por defecto, 0 (estricto)
+	IsParameterToleranceEnabled = (toleranceSetting = 1) ' La tolerancia se habilita si el valor es 1
+    
+	If IsParameterToleranceEnabled Then
+		Log($"RDCConnector.Initialize para ${DB}: Tolerancia a parámetros de más, HABILITADA."$)
+	Else
+		Log($"RDCConnector.Initialize para ${DB}: Tolerancia a parámetros de más, DESHABILITADA (modo estricto)."$)
+	End If
 
 	' Bloque Try-Catch para la inicialización y configuración del pool.
 	' Esto es esencial para capturar cualquier error crítico que impida la conexión inicial a la base de datos.
@@ -78,7 +91,7 @@ Public Sub Initialize(DB As String)
 		' LÍNEAS CRÍTICAS PARA FORZAR UN COMPORTAMIENTO NO SILENCIOSO DE C3P0:
 		' Por defecto, C3P0 puede reintentar muchas veces y no lanzar una excepción si las conexiones iniciales fallan.
 		' Estas líneas fuerzan a C3P0 a ser estricto y reportar errores de inmediato.
-		jo.RunMethod("setAcquireRetryAttempts", Array As Object(1))      ' Limita los intentos iniciales de adquisición a 1.
+		jo.RunMethod("setAcquireRetryAttempts", Array As Object(2))      ' Limita los intentos iniciales de adquisición a 1.
 		jo.RunMethod("setBreakAfterAcquireFailure", Array As Object(True)) ' ¡Forza a C3P0 a lanzar una excepción si falla al adquirir conexiones!
 
 		' PASO 4: Forzar la creación de conexiones iniciales y verificar el estado.
@@ -138,7 +151,9 @@ Public Sub Initialize(DB As String)
 	Catch
 		' Si ocurre un error durante la inicialización del pool o al forzar la conexión,
 		' este Log es CRÍTICO para el diagnóstico, especialmente en un entorno de producción.
-		Log($"RDCConnector.Initialize para ${DB}: ERROR CRÍTICO al inicializar/forzar conexión: ${LastException.Message}"$)
+		Dim ErrorMsg As String = $"RDCConnector.Initialize para ${DB}: ERROR CRÍTICO al inicializar/forzar conexión: ${LastException.Message}"$
+		Log(ErrorMsg)
+		Main.LogServerError("ERROR", "RDCConnector.Initialize", ErrorMsg, DB, Null, Null)
 	End Try
 
 	' Configuración de depuración de queries. Se activa automáticamente si el proyecto se ejecuta en modo DEBUG.
@@ -178,7 +193,9 @@ Public Sub GetCommand(DB As String, Key As String) As String
 	' Obtiene los comandos de la DB específica del mapa global Main.commandsMap.
 	commands = Main.commandsMap.Get(DB).As(Map)
 	If commands.ContainsKey("sql." & Key) = False Then
-		Log($"RDCConnector.GetCommand: *** Comando no encontrado: '${Key}' para DB: '${DB}' ***"$) ' Log importante si un comando no se encuentra.
+		Dim ErrorMsg As String = $"RDCConnector.GetCommand: *** Comando no encontrado: '${Key}' para DB: '${DB}' ***"$
+		Log(ErrorMsg)
+		Main.LogServerError("ERROR", "RDCConnector.GetCommand", ErrorMsg, DB, Key, Null) ' Log importante si un comando no se encuentra.
 	End If
 	Return commands.Get("sql." & Key) ' Retorna la sentencia SQL.
 End Sub
@@ -285,12 +302,16 @@ Public Sub GetPoolStats As Map
 
 		Catch
 			' Si ocurre un error al obtener las estadísticas, se registra y se añade un mensaje de error al mapa.
-			Log("RDCConnector.GetPoolStats: ERROR CRÍTICO al obtener estadísticas del pool: " & LastException.Message)
+			Dim ErrorMsg As String = "RDCConnector.GetPoolStats: ERROR CRÍTICO al obtener estadísticas del pool: " & LastException.Message
+			Log(ErrorMsg)
+			Main.LogServerError("ERROR", "RDCConnector.GetPoolStats", ErrorMsg, "Todas", Null, Null) ' <-- Nuevo Log
 			stats.Put("Error", LastException.Message)
 		End Try
 	Else
 		' Si el pool no está inicializado, se registra una advertencia y se devuelve un mapa con un error.
-		Log("RDCConnector.GetPoolStats: ADVERTENCIA: Pool NO está inicializado. Retornando mapa con error.")
+		Dim WarningMsg As String = "RDCConnector.GetPoolStats: ADVERTENCIA: Pool NO está inicializado. Retornando mapa con error."
+		Log(WarningMsg)
+		Main.LogServerError("ADVERTENCIA", "RDCConnector.GetPoolStats", WarningMsg, "Todas", Null, Null) ' <-- Nuevo Log
 		stats.Put("Error", "Pool de conexiones no inicializado para esta DB.")
 	End If