Primer Commit

DB/FUNCTIONS/PARAM_VALIDATOR.sql

@@ -0,0 +1,66 @@
+--------------------------------------------------------
+--  DDL for Function PARAM_VALIDATOR
+--------------------------------------------------------
+
+  CREATE OR REPLACE EDITIONABLE FUNCTION "ENVX_OPER"."PARAM_VALIDATOR" (pi_value IN CLOB, pi_type IN NUMBER)
+   RETURN BOOLEAN
+IS
+   v_num    NUMBER;
+   v_date   DATE;
+   v_json   json_object_t;
+   v_format VARCHAR2(100);
+BEGIN
+
+   SELECT parameter_type_format
+     INTO v_format
+     FROM system_parameter_type spt
+    WHERE id_parameter_type = pi_type;
+
+   -- Intenta convertir el valor a un número
+   CASE pi_type
+      WHEN 1 THEN 
+         --- NUMERO ---
+         BEGIN
+            v_num := TO_NUMBER(pi_value);
+            RETURN true;
+         EXCEPTION
+            WHEN OTHERS THEN
+               RETURN false;
+         END;
+      WHEN 2 THEN 
+         --- FECHA Y HORA ---
+         BEGIN
+            v_date := TO_DATE(pi_value, 'YYYY-MM-DD');
+            RETURN true;
+         EXCEPTION
+            WHEN OTHERS THEN
+               RETURN false;
+         END;
+      WHEN 3 THEN 
+         --- JSON ---
+         BEGIN
+            v_json := json_object_t.parse(pi_value);
+            RETURN true;
+         EXCEPTION
+            WHEN OTHERS THEN
+               RETURN false;
+         END;
+      WHEN 4 THEN 
+         --- LISTA DE VALORES ---
+         IF regexp_like(pi_value, '^''[[:alnum:]]+''(,''[[:alnum:]]+'')*$') THEN
+            RETURN true;
+         ELSE
+            RETURN false;
+         END IF;
+
+      WHEN 0 THEN 
+         --- TEXTO SIN FORMATO ---
+         RETURN true;
+   END CASE;
+   
+EXCEPTION
+   WHEN OTHERS THEN
+      RETURN false;
+END;
+
+/