- VERSION 5.09.16.2

- feat(logs): Implementación de Cacheo y Escritura Transaccional en Lotes

- Implementa la funcionalidad de cacheo de logs en memoria y escritura transaccional para reducir el overhead de E/S de disco en SQLite [1, 2].

- Cambios principales:
		1. Refactorización de LogQueryPerformance y LogServerError para que solo almacenen logs en las cachés globales (QueryLogCache y ErrorLogCache) [3].
		2. Introducción de WriteQueryLogsBatch y WriteErrorLogsBatch, que vacían las cachés y realizan la inserción a SQLite dentro de una única transacción atómica (`BeginTransaction`/`TransactionSuccessful`), disparada por umbral (`LOG_CACHE_THRESHOLD`) o periódicamente por `TimerLogs_Tick` [4-7].
		3. Corrección del manejo de objetos List en las rutinas de lote (Write*LogsBatch): Se implementó la copia explícita de contenido (`List.AddAll`) dentro del bloqueo (`MainConnectorsLock`) para asegurar que el lote mantenga sus registros, resolviendo el problema de tamaño cero causado por la asignación de referencias.

DBHandlerB4X.bas

@@ -408,7 +408,17 @@ Private Sub ExecuteBatch2(DB As String, con As SQL, in As InputStream, resp As S
 	resp.OutputStream.WriteBytes(data, 0, data.Length)
 
 	' Devuelve un resumen para el log.
-	Return $"batch (size=${commands.Size})"$
+'	Return $"batch (size=${commands.Size})"$
+	
+	' Devuelve un resumen para el log, incluyendo el nombre de la query si es un lote de tamaño 1.
+	If commands.Size = 1 Then
+		' Obtenemos el único comando en el lote.
+		Dim cmd As DBCommand = commands.Get(0)
+		Return $"batch (size=1) - query: ${cmd.Name}"$
+	Else
+		' Si el lote es de tamaño > 1, mantenemos el resumen por tamaño.
+		Return $"batch (size=${commands.Size})"$
+	End If
 End Sub
 
 ' --- Subrutinas para manejar la ejecución de queries y batches (Protocolo V1 - Compilación Condicional) ---
@@ -422,6 +432,7 @@ Private Sub ExecuteBatch(DB As String, con As SQL, in As InputStream, resp As Se
     ' Lee cuántos comandos vienen en el lote.
     Dim numberOfStatements As Int = ReadInt(in)
     Dim res(numberOfStatements) As Int ' Array para resultados (aunque no se usa).
+	Dim singleQueryName As String = ""
 
     Try
         con.BeginTransaction
@@ -430,6 +441,9 @@ Private Sub ExecuteBatch(DB As String, con As SQL, in As InputStream, resp As Se
             ' Lee el nombre del comando y la lista de parámetros usando el deserializador V1.
             Dim queryName As String = ReadObject(in)
             Dim params As List = ReadList(in)
+			If numberOfStatements = 1 Then
+				singleQueryName = queryName 'Capturamos el nombre del query.
+			End If
             Dim sqlCommand As String = Connector.GetCommand(DB, queryName)
 
             ' <<< INICIO NUEVA VALIDACIÓN: VERIFICAR SI EL COMANDO EXISTE (V1) >>>
@@ -475,7 +489,12 @@ Private Sub ExecuteBatch(DB As String, con As SQL, in As InputStream, resp As Se
         SendPlainTextError(resp, 500, LastException.Message)
     End Try
 
-    Return $"batch (size=${numberOfStatements})"$
+'	Return $"batch (size=${numberOfStatements})"$
+	If numberOfStatements = 1 And singleQueryName <> "" Then
+		Return $"batch (size=1) - query: ${singleQueryName}"$
+	Else
+		Return $"batch (size=${numberOfStatements})"$
+	End If
 End Sub
 
 ' Ejecuta una consulta única usando el protocolo V1.