dmencu 0.1.37 → 0.1.38

package/install/actualizar_inconvar.sql

@@ -0,0 +1,30 @@
+set search_path= base;
+set role preju2022_owner;
+
+CREATE OR REPLACE FUNCTION actualizar_inconvar_trg()
+  RETURNS trigger AS
+$BODY$
+begin
+  if tg_op = 'INSERT' or tg_op = 'UPDATE' then
+    delete from in_con_var where operativo=new.operativo and  pk_integrada=new.pk_integrada and consistencia=new.consistencia;
+    insert into in_con_var(operativo, consistencia, pk_integrada, variable, tabla_datos, valor)
+      select new.operativo, new.consistencia, new.pk_integrada, split_part(key, '.', 2 ) as variable, split_part(key, '.', 1) as tabla_datos, value as valor 
+        from jsonb_each_text(new.incon_valores) ; 
+    return new;      
+  end if;       
+  if tg_op = 'DELETE' then
+    delete from in_con_var where operativo=old.operativo and  pk_integrada=old.pk_integrada and consistencia=old.consistencia;
+    return old;  
+  else
+    return new; 
+  end if;
+end;
+$BODY$
+  LANGUAGE plpgsql VOLATILE SECURITY DEFINER;
+
+--DROP TRIGGER actualizar_inconvar_trg ON inconsistencias;
+CREATE TRIGGER actualizar_inconvar_trg
+  BEFORE INSERT OR DELETE OR UPDATE OF incon_valores
+  ON inconsistencias
+  FOR EACH ROW
+  EXECUTE PROCEDURE actualizar_inconvar_trg();  

package/install/agregados_tem.sql

@@ -0,0 +1,5 @@
+set search_path=base;
+
+alter table tem 
+add column "libre" boolean default true, 
+add column "fecha_bloqueo" timestamp;

package/install/control_cargado_tareas_tem_trg.sql

@@ -0,0 +1,30 @@
+--set search_path = base;
+--set role dmencu_owner;
+
+CREATE OR REPLACE FUNCTION control_cargado_tareas_tem_trg()
+    RETURNS trigger
+    LANGUAGE 'plpgsql'
+AS $BODY$
+declare 
+  cant_cargados integer;
+  tarea_cargada text;
+begin
+    if new.operacion='cargar'  then
+        select count(*), min(tarea) 
+            into cant_cargados, tarea_cargada
+            from tareas_tem tt join parametros using(operativo)
+            where tt.enc=old.enc and tt.cargado_dm is not null and tt.tarea is distinct from new.tarea
+                and unico_registro;
+        if cant_cargados >0 then
+            raise exception 'Error: la encuesta % ya esta cargada para la tarea %', old.enc, tarea_cargada;
+        end if;
+    end if;    
+    return new;
+end;
+$BODY$;
+
+CREATE TRIGGER control_cargado_tareas_tem_trg
+    BEFORE UPDATE OF operacion
+    ON tareas_tem
+    FOR EACH ROW
+    EXECUTE PROCEDURE control_cargado_tareas_tem_trg();

package/install/control_disform_cerrado_trg.sql

@@ -0,0 +1,51 @@
+--set search_path=base;
+--set role dmencu_owner;
+
+CREATE OR REPLACE FUNCTION control_disform_cerrado_trg()
+  RETURNS trigger AS
+$BODY$
+DECLARE
+    v_operativo          TEXT;
+    v_disform_cerrado   boolean;
+    v_registro_salida    RECORD;
+    v_ref_op             RECORD;
+    
+BEGIN
+v_ref_op=NEW;
+v_registro_salida=NEW;
+  
+IF TG_OP IN ('UPDATE','DELETE') THEN
+  v_ref_op=OLD;
+END IF;
+IF TG_OP ='DELETE' THEN
+  v_registro_salida=OLD;
+END IF;
+
+IF TG_TABLE_NAME IN ('casilleros','unidad_analisis') THEN
+  v_operativo=v_ref_op.operativo;
+  SELECT disform_cerrado
+        INTO v_disform_cerrado
+        FROM operativos
+        WHERE operativo= v_operativo;
+   IF v_disform_cerrado  THEN    
+     RAISE EXCEPTION 'ERROR diseño de formularios cerrado. No es posible modificar la tabla %  del operativo %.', tg_table_name, v_operativo;
+   END IF;
+END IF;
+
+RETURN v_registro_salida;
+END;
+$BODY$
+  LANGUAGE plpgsql ;
+
+
+CREATE TRIGGER unidad_analisis_disform_cerrado_trg
+  BEFORE UPDATE OR INSERT OR DELETE
+  ON unidad_analisis
+  FOR EACH ROW
+  EXECUTE PROCEDURE control_disform_cerrado_trg();
+  
+CREATE TRIGGER casilleros_disform_cerrado_trg
+  BEFORE UPDATE OR INSERT OR DELETE
+  ON casilleros
+  FOR EACH ROW
+  EXECUTE PROCEDURE control_disform_cerrado_trg();

package/install/desintegrarpk.sql

@@ -0,0 +1,24 @@
+set search_path= base;
+set role preju2022_owner;
+
+create or replace function desintegrarpk_trg() returns trigger
+  language plpgsql SECURITY DEFINER as
+$body$
+begin
+  new.vivienda := new.pk_integrada->>'vivienda';
+  new.hogar := new.pk_integrada->>'hogar';
+  new.persona := new.pk_integrada->>'persona';
+  new.visita := new.pk_integrada->>'visita';
+  return new;
+end;
+$body$;
+
+create trigger desintegrarpk_trg
+  before insert or update 
+  of pk_integrada
+  on inconsistencias
+  for each row
+  execute procedure desintegrarpk_trg();
+
+
+  

package/install/esquema_comun.sql

@@ -0,0 +1,60 @@
+-- set role preju_test2022_owner;
+-- set role preju_capa2022_owner;
+set role preju2022_owner;
+
+drop schema if exists "comun" cascade;
+create schema "comun";
+grant usage on schema "comun" to "preju2022_admin";
+grant create on schema "comun" to "preju2022_admin";
+
+CREATE OR REPLACE FUNCTION comun.informado("P_valor" anyelement)
+  RETURNS boolean AS
+'SELECT $1 IS NOT NULL'
+  LANGUAGE sql IMMUTABLE;
+
+CREATE OR REPLACE FUNCTION comun.informado("P_valor" text)
+  RETURNS boolean AS
+$BODY$SELECT $1 !~ '^\s*$' AND $1 IS NOT NULL$BODY$
+  LANGUAGE sql IMMUTABLE;
+
+
+
+--NSNC
+CREATE OR REPLACE FUNCTION comun.nsnc("P_valor" anyelement)
+  RETURNS boolean AS
+'SELECT $1 IS NOT DISTINCT FROM -9'
+  LANGUAGE sql IMMUTABLE;
+
+CREATE OR REPLACE FUNCTION comun.nsnc("P_valor" text)
+  RETURNS boolean AS
+$BODY$SELECT $1 IS NOT DISTINCT FROM '-9'$BODY$
+  LANGUAGE sql IMMUTABLE;
+
+CREATE OR REPLACE FUNCTION comun.nsnc("P_valor" date)
+  RETURNS boolean AS
+$$SELECT $1 IS NOT DISTINCT FROM '0999-09-09'$$
+  LANGUAGE sql IMMUTABLE;
+
+--CON_DATO
+CREATE OR REPLACE FUNCTION comun.con_dato("P_valor" anyelement)
+  RETURNS boolean AS
+'SELECT comun.informado($1) AND NOT comun.nsnc($1)'
+  LANGUAGE sql IMMUTABLE;
+
+--blanco
+CREATE OR REPLACE FUNCTION comun.blanco("P_valor" anyelement)
+  RETURNS boolean AS
+'SELECT $1 IS NULL'
+  LANGUAGE sql IMMUTABLE;
+
+CREATE OR REPLACE FUNCTION comun.blanco("P_valor" text)
+  RETURNS boolean AS
+$BODY$SELECT $1 IS NULL$BODY$
+  LANGUAGE sql IMMUTABLE;
+
+--es_par
+CREATE OR REPLACE FUNCTION comun.es_par(p_valor anyelement)
+    RETURNS boolean
+    AS $BODY$select case when mod(p_valor,2)=0 then TRUE else FALSE end$BODY$
+    LANGUAGE 'sql'
+    IMMUTABLE ;

package/install/metadatos/permisos.tab

@@ -0,0 +1,12 @@
+permiso         |accion    |predeterminado
+campo           |editar    |false
+campo           |ver       |false
+campo           |administrar|false
+configurar      |editar    |false
+configurar      |ver       |false
+encuestas       |ingresar  |false
+encuestas       |procesar  |false
+encuestas       |justificar|false
+encuestas       |relevar   |false
+consistencias   |editar    |false
+casilleros_texto|editar    |false

package/install/metadatos/roles.tab

@@ -0,0 +1,11 @@
+rol           |superuser|nombre
+admin         |true     |Administrador
+direccion     |false    |Dirección
+coor_campo    |false    |Coordinador de Campo
+encuestador   |false    |Encuestador
+dis_conceptual|false    |Diseño Conceptual
+recepcionista |false    |Recepcionista
+procesamiento |false    |Procesamiento
+auxiliar      |false    |Auxiliar de campo
+recuperador   |false    |recuperador
+supervisor    |false    |Supervisor

package/install/metadatos/roles_permisos.tab

@@ -0,0 +1,95 @@
+rol|permiso|accion|habilitado
+admin|campo|editar|true
+admin|campo|ver|true
+admin|casilleros_texto|editar|true
+admin|configurar|editar|true
+admin|configurar|ver|true
+admin|consistencias|editar|true
+admin|encuestas|ingresar|true
+admin|encuestas|justificar|true
+admin|encuestas|procesar|true
+auxiliar|campo|editar|false
+auxiliar|campo|ver|false
+auxiliar|casilleros_texto|editar|false
+auxiliar|configurar|editar|false
+auxiliar|configurar|ver|false
+auxiliar|consistencias|editar|false
+auxiliar|encuestas|ingresar|false
+auxiliar|encuestas|justificar|false
+auxiliar|encuestas|procesar|false
+coor_campo|campo|administrar|true
+coor_campo|campo|editar|true
+coor_campo|campo|ver|true
+coor_campo|casilleros_texto|editar|false
+coor_campo|configurar|editar|true
+coor_campo|configurar|ver|true
+coor_campo|consistencias|editar|true
+coor_campo|encuestas|ingresar|true
+coor_campo|encuestas|justificar|true
+coor_campo|encuestas|procesar|true
+direccion|campo|editar|true
+direccion|campo|ver|true
+direccion|casilleros_texto|editar|false
+direccion|configurar|editar|true
+direccion|configurar|ver|true
+direccion|consistencias|editar|true
+direccion|encuestas|ingresar|true
+direccion|encuestas|justificar|true
+direccion|encuestas|procesar|true
+dis_conceptual|campo|editar|false
+dis_conceptual|campo|ver|true
+dis_conceptual|casilleros_texto|editar|true
+dis_conceptual|configurar|editar|false
+dis_conceptual|configurar|ver|true
+dis_conceptual|consistencias|editar|false
+dis_conceptual|encuestas|ingresar|false
+dis_conceptual|encuestas|justificar|false
+dis_conceptual|encuestas|procesar|false
+procesamiento|campo|editar|false
+procesamiento|campo|ver|false
+procesamiento|casilleros_texto|editar|false
+procesamiento|configurar|editar|false
+procesamiento|configurar|ver|false
+procesamiento|consistencias|editar|true
+procesamiento|encuestas|ingresar|true
+procesamiento|encuestas|justificar|true
+procesamiento|encuestas|procesar|true
+recepcionista|campo|editar|true
+recepcionista|campo|ver|true
+recepcionista|casilleros_texto|editar|false
+recepcionista|configurar|editar|true
+recepcionista|configurar|ver|true
+recepcionista|consistencias|editar|false
+recepcionista|encuestas|ingresar|true
+recepcionista|encuestas|justificar|true
+recepcionista|encuestas|procesar|false
+encuestador|campo|editar|false
+encuestador|campo|ver|false
+encuestador|casilleros_texto|editar|false
+encuestador|configurar|editar|false
+encuestador|configurar|ver|false
+encuestador|consistencias|editar|false
+encuestador|encuestas|ingresar|true
+encuestador|encuestas|justificar|true
+encuestador|encuestas|procesar|false
+encuestador|encuestas|relevar|true
+recuperador|campo|editar|false
+recuperador|campo|ver|false
+recuperador|casilleros_texto|editar|false
+recuperador|configurar|editar|false
+recuperador|configurar|ver|false
+recuperador|consistencias|editar|false
+recuperador|encuestas|ingresar|true
+recuperador|encuestas|justificar|true
+recuperador|encuestas|procesar|false
+recuperador|encuestas|relevar|true
+supervisor|campo|editar|false
+supervisor|campo|ver|false
+supervisor|casilleros_texto|editar|false
+supervisor|configurar|editar|false
+supervisor|configurar|ver|false
+supervisor|consistencias|editar|false
+supervisor|encuestas|ingresar|true
+supervisor|encuestas|justificar|true
+supervisor|encuestas|procesar|false
+supervisor|encuestas|relevar|true

package/install/metadatos/tipoc.tab

@@ -0,0 +1,13 @@
+tipoc|denominacion|irrepetible|desp_casillero|desp_hijos|puede_ser_var
+B|bloque|true|||false
+BF|Botón para formulario|true|||
+CONS|consistencia|true|||false
+CP|conjunto de preguntas|true|||false
+F|formulario||||false
+FILTRO|filtro|true|||false
+MATRIZ|matriz (de varias preguntas)|true|||false
+O|opción|||nueva_fila|false
+OM|opción múltiple|||misma_fila|
+P|pregunta|true||tabla|
+PMATRIZ|pregunta en forma de matriz|true||tabla_matriz|false
+TEXTO|texto aclaratorio sin pregunta||||false

package/install/metadatos/tipoc_tipoc.tab

@@ -0,0 +1,23 @@
+tipoc_padre|tipoc_hijo
+B|CP
+B|FILTRO
+B|MATRIZ
+B|P
+B|PMATRIZ
+B|TEXTO
+CP|P
+F|B
+F|BF
+F|CP
+F|FILTRO
+F|MATRIZ
+F|P
+F|PMATRIZ
+F|TEXTO
+MATRIZ|P
+O|P
+OM|O
+OM|P
+P|O
+P|OM
+PMATRIZ|OM

package/install/metadatos/tipovar.tab

@@ -0,0 +1,10 @@
+tipovar|html_type|type_name|validar|radio
+boolean|text|boolean|boolean|false
+decimal|number|decimal|numerico|false
+fecha|text|date|texto|false
+hora|text|interval|texto|false
+numero|number|bigint|numerico|false
+opciones|number|bigint|opciones|true
+si_no|number|bigint|opciones|true
+si_no_nn|number|bigint|opciones|true
+texto|text|text|texto|false

package/install/roles_permisos_ini.sql

@@ -0,0 +1,4 @@
+insert into roles_permisos(rol, permiso, accion, habilitado)
+   select rol ,permiso, accion, predeterminado
+     from roles r, permisos p
+     where not exists (select 1 from roles_permisos x where x.rol=r.rol and x.permiso=p.permiso and x.accion=p.accion);

package/install/sincro_tareas_areas_tareas_tem_trg.sql

@@ -0,0 +1,28 @@
+--set role dmencu_owner;
+--set search_path=base;
+
+DROP FUNCTION if exists sincro_tareas_areas_tareas_tem_trg();
+CREATE OR REPLACE FUNCTION sincro_tareas_areas_tareas_tem_trg()
+    RETURNS trigger
+    LANGUAGE 'plpgsql'
+AS $BODY$
+begin
+    update tareas_tem tt
+        set operacion        = case when new.operacion        is not null and new.operacion        is distinct from old.operacion        then new.operacion        else operacion        end,
+            asignado         = case when new.asignado         is not null and new.asignado         is distinct from old.asignado         then new.asignado         else asignado         end,
+            fecha_asignacion = case when new.fecha_asignacion is not null and new.fecha_asignacion is distinct from old.fecha_asignacion then new.fecha_asignacion else fecha_asignacion end
+        from tem t   
+        where t.operativo=tt.operativo and t.enc=tt.enc 
+            and area=t.area and tt.habilitada
+            and tt.tarea=new.tarea
+            and area=new.area;            
+    return new;
+end;
+$BODY$;
+
+DROP TRIGGER IF EXISTS sincro_tareas_areas_tareas_tem_trg ON tareas_areas;
+CREATE TRIGGER sincro_tareas_areas_tareas_tem_trg
+   AFTER INSERT OR UPDATE OF operacion, asignado,fecha_asignacion,asignante 
+   ON tareas_areas
+   FOR EACH ROW
+   EXECUTE PROCEDURE sincro_tareas_areas_tareas_tem_trg();   

package/install/sincronizacion_tareas_tem.sql

@@ -0,0 +1,18 @@
+--set role dmencu_owner;
+--set search_path=base;
+
+CREATE OR REPLACE FUNCTION sincronizacion_tareas_tem_trg()
+    RETURNS trigger
+    LANGUAGE 'plpgsql'
+AS $BODY$
+begin
+    new.cargado      = new.cargado_dm is not null;
+    return new;
+end;
+$BODY$;
+
+CREATE TRIGGER sincronizacion_tareas_tem_trg
+    BEFORE INSERT OR UPDATE OF cargado_dm
+    ON tareas_tem
+    FOR EACH ROW
+    EXECUTE PROCEDURE sincronizacion_tareas_tem_trg();

package/install/sincronizacion_tem.sql

@@ -0,0 +1,49 @@
+--set role to preju2022_owner;
+--set search_path = base;
+
+CREATE OR REPLACE FUNCTION sincronizacion_tem_trg()
+    RETURNS trigger
+    LANGUAGE 'plpgsql'
+AS $BODY$
+declare
+  datos           jsonb=new.json_encuesta;
+  v_cant_p        integer;
+  v_seleccionado  text;
+begin
+       
+    select sum (total_m) as cant_p--sum(jsonb_array_length(personas))
+        ,case when sum(jsonb_array_length(datos->'hogares'))>1 then string_agg('h'||ordinality||':'||coalesce(cr_num_miembro::text,'')||'-'||coalesce(msnombre),',') 
+            else min(cr_num_miembro)||'-'||min(msnombre) 
+        end  as seleccionado
+        into v_cant_p, v_seleccionado
+        from rows from (jsonb_to_recordset(datos->'hogares')  as (total_m integer, cr_num_miembro integer, msnombre text, personas jsonb)
+        ) with ordinality  as hogares (total_m, cr_num_miembro,msnombre, personas); 
+
+    new.cant_h       = (datos ->>'total_h') ::integer ;
+    --new.cant_h       = jsonb_array_length(datos ->'hogares');
+
+    new.cant_p       = v_cant_p ;
+    new.seleccionado = v_seleccionado;
+    if old.json_encuesta is distinct from datos then
+        new.modificado= current_timestamp;
+    end if;
+
+    return new;
+end;
+$BODY$;
+
+-- /*
+CREATE TRIGGER sincronizacion_tem_trg
+  BEFORE INSERT OR UPDATE OF json_encuesta, obs
+  ON tem
+  FOR EACH ROW
+  EXECUTE PROCEDURE sincronizacion_tem_trg();
+
+-- */
+
+/*
+--para forzar sincro
+update tem
+set obs=obs 
+where json_encuesta is not null;
+*/

package/package.json

@@ -1,13 +1,14 @@
 {
   "name": "dmencu",
   "description": "DM Encu - Encuestas en dispositivo móvil",
-  "version": "0.1.37",
+  "version": "0.1.38",
   "author": "Codenautas <codenautas@googlegroups.com>",
   "license": "MIT",
   "main": "dist/server/server/app-dmencu.js",
   "types": "dist/server/server/app-dmencu.d.ts",
   "files": [
-    "dist"
+    "dist",
+    "install"
   ],
   "dependencies": {
     "@material-ui/core": "~4.12.3",