Commit inicial

ParameterValidationUtils.bas

@@ -0,0 +1,70 @@
+B4J=true
+Group=Default Group
+ModulesStructureVersion=1
+Type=StaticCode
+Version=10.3
+@EndOfDesignText@
+' Archivo: ParameterValidationUtils.bas
+' Módulo de utilidad: ParameterValidationUtils
+' Centraliza la lógica de validación y ajuste de parámetros SQL.
+' Ahora soporta recorte de parámetros excesivos.
+
+Sub Process_Globals
+	' El Type ParameterValidationResult está declarado en Main.bas, no se declara aquí.
+End Sub
+
+' Valida y ajusta la lista de parámetros para la ejecución SQL, aplicando la lógica de tolerancia.
+' Retorna un ParameterValidationResult indicando éxito/error y los parámetros a usar.
+Public Sub ValidateAndAdjustParameters (CommandName As String, DBKey As String, sqlCommand As String, receivedParams As List, IsToleranceEnabled As Boolean) As ParameterValidationResult
+	Dim res As ParameterValidationResult
+	res.Initialize
+	res.Success = True ' Asumimos éxito inicialmente
+	
+'	Log(">>>>   IsToleranceEnabled: " & IsToleranceEnabled)
+
+	' Aseguramos que receivedParams esté inicializada, incluso si está vacía o Null
+	If receivedParams = Null Or receivedParams.IsInitialized = False Then
+		receivedParams.Initialize ' Inicializa una lista vacía si es Null o no inicializada.
+	End If
+
+	' Contar cuántos '?' hay en la sentencia SQL para saber cuántos parámetros se esperan.
+	Dim expectedParams As Int = sqlCommand.Length - sqlCommand.Replace("?", "").Length
+	Dim receivedParamsSize As Int = receivedParams.Size
+
+	If receivedParamsSize < expectedParams Then
+		' Caso 1: Se recibieron MENOS parámetros de los esperados. Esto es un error.
+		res.Success = False
+		res.ErrorMessage = $"ERROR: Número de parámetros insuficiente para "${CommandName}" (DB: ${DBKey}). Se esperaban ${expectedParams} y se recibieron ${receivedParamsSize}."$
+		Log(res.ErrorMessage)
+		Main.LogServerError("ERROR", "ParameterValidationUtils.ValidateAndAdjustParameters", res.ErrorMessage, DBKey, CommandName, Null) ' <-- Nuevo Log
+		Return res
+	Else If receivedParamsSize > expectedParams Then
+		' Caso 2: Se recibieron MÁS parámetros de los esperados.
+		If IsToleranceEnabled Then ' Solo recortamos si la tolerancia está habilitada
+			Dim adjustedParams As List
+			adjustedParams.Initialize
+			For i = 0 To expectedParams - 1
+				adjustedParams.Add(receivedParams.Get(i))
+			Next
+			res.ParamsToExecute = adjustedParams
+			res.Success = True
+			Dim WarningMsg As String = $"ADVERTENCIA: Se recibieron más parámetros de los esperados para "${CommandName}" (DB: ${DBKey}). Se esperaban ${expectedParams} y se recibieron ${receivedParamsSize}. Se ajustó la lista de parámetros a ${expectedParams} elementos."$
+'			Log(WarningMsg)
+'			Log("Cache: " & Main.LOG_CACHE_THRESHOLD & "|" & Main.ErrorLogCache.Size)
+			Main.LogServerError("ADVERTENCIA", "ParameterValidationUtils.ValidateAndAdjustParameters", WarningMsg, DBKey, CommandName, Null)
+		Else
+			' Si la tolerancia NO está habilitada, esto es un error crítico.
+			res.Success = False
+			res.ErrorMessage = $"ERROR: Número de parámetros excesivo para "${CommandName}" (DB: ${DBKey}). Se esperaban ${expectedParams} y se recibieron ${receivedParamsSize}. La tolerancia a parámetros extra está DESHABILITADA."$
+			Log(res.ErrorMessage)
+			Main.LogServerError("ERROR", "ParameterValidationUtils.ValidateAndAdjustParameters", res.ErrorMessage, DBKey, CommandName, Null)
+			Return res
+		End If
+	Else
+		' Caso 3: Se recibieron el número EXACTO de parámetros. Todo bien.
+		res.ParamsToExecute = receivedParams ' Usamos la lista original tal cual.
+		res.Success = True ' Confirmamos éxito.
+	End If
+    
+	Return res
+End Sub