7ges ERP Cliente/Servidor

Código del Patrón:

CREATE OR REPLACE FUNCTION llx_{tabla}_before_insert() 
RETURNS trigger 
LANGUAGE plpgsql
AS $$
BEGIN
    -- 1. Validación de campos obligatorios
    IF NEW.campo_obligatorio IS NULL OR trim(NEW.campo_obligatorio) = '' THEN
        RAISE EXCEPTION 'ErrorFieldRequired: campo_obligatorio';
    END IF;
    
    -- 2. Limpieza automática de datos
    NEW.campo_texto = trim(NEW.campo_texto);
    
    -- 3. Validación de email con regex
    IF NEW.email IS NOT NULL AND NEW.email != '' THEN
        NEW.email = trim(lower(NEW.email));
        IF NOT (NEW.email ~* '^[A-Za-z0-9._%+-]+@[A-Za-z0-9.-]+\.[A-Za-z]{2,}$') THEN
            RAISE EXCEPTION 'ErrorBadEMail: %', NEW.email;
        END IF;
    END IF;
    
    -- 4. Formateo de teléfonos
    IF NEW.phone IS NOT NULL THEN
        NEW.phone = regexp_replace(NEW.phone, '[^0-9+\-\.\s()]', '', 'g');
        NEW.phone = trim(NEW.phone);
    END IF;
    
    -- 5. Valores por defecto
    NEW.entity := COALESCE(NEW.entity, 1);
    NEW.status := COALESCE(NEW.status, 1);
    NEW.datec := COALESCE(NEW.datec, NOW());
    
    -- 6. Validación de valores numéricos
    IF NEW.campo_numerico IS NOT NULL AND NEW.campo_numerico < 0 THEN
        RAISE EXCEPTION 'El campo no puede ser negativo';
    END IF;
    
    RETURN NEW;
END;
$$;

CREATE OR REPLACE FUNCTION llx_documento_validate_status_change()
RETURNS trigger AS $$
BEGIN
    -- Solo procesar si cambió el estado
    IF OLD.fk_statut != NEW.fk_statut THEN
        
        -- Validar transiciones permitidas
        CASE OLD.fk_statut
            WHEN 0 THEN -- Borrador
                IF NEW.fk_statut NOT IN (1, -1) THEN
                    RAISE EXCEPTION 'Transición inválida desde borrador a estado %', NEW.fk_statut;
                END IF;
                
            WHEN 1 THEN -- Validado
                IF NEW.fk_statut NOT IN (2, 3, -1) THEN
                    RAISE EXCEPTION 'Transición inválida desde validado a estado %', NEW.fk_statut;
                END IF;
                
            WHEN 2 THEN -- En proceso
                IF NEW.fk_statut NOT IN (3, -1) THEN
                    RAISE EXCEPTION 'Transición inválida desde en proceso a estado %', NEW.fk_statut;
                END IF;
                
            WHEN 3 THEN -- Cerrado
                RAISE EXCEPTION 'No se puede modificar un documento cerrado';
                
            WHEN -1 THEN -- Cancelado
                IF NEW.fk_statut != 0 THEN
                    RAISE EXCEPTION 'Solo se puede reabrir un documento cancelado';
                END IF;
        END CASE;
        
        -- Acciones específicas por transición
        IF NEW.fk_statut = 1 AND OLD.fk_statut = 0 THEN
            -- Al validar: establecer fecha y generar referencia
            NEW.date_valid := COALESCE(NEW.date_valid, NOW());
            IF NEW.ref LIKE '(PROV%' THEN
                NEW.ref := llx_documento_get_next_ref(NEW.entity);
            END IF;
        END IF;
        
        IF NEW.fk_statut = -1 THEN
            -- Al cancelar: limpiar fechas de proceso
            NEW.date_valid := NULL;
            NEW.date_close := NULL;
        END IF;
        
        IF NEW.fk_statut = 3 THEN
            -- Al cerrar: establecer fecha de cierre
            NEW.date_close := COALESCE(NEW.date_close, NOW());
        END IF;
    END IF;
    
    RETURN NEW;
END;
$$ LANGUAGE plpgsql;

-- Trigger para auditoría automática
CREATE OR REPLACE FUNCTION llx_audit_changes()
RETURNS trigger AS $$
DECLARE
    v_changes jsonb := '{}';
    v_campo text;
    v_old_value text;
    v_new_value text;
BEGIN
    -- Para UPDATE: registrar cambios
    IF TG_OP = 'UPDATE' THEN
        -- Actualizar timestamp automáticamente
        NEW.tms := NOW();
        
        -- Detectar cambios significativos para histórico
        FOR v_campo IN SELECT column_name 
                       FROM information_schema.columns 
                       WHERE table_name = TG_TABLE_NAME 
                       AND column_name NOT IN ('tms', 'rowid', 'datec')
        LOOP
            EXECUTE format('SELECT ($1).%I::text, ($2).%I::text', v_campo, v_campo)
            INTO v_old_value, v_new_value
            USING OLD, NEW;
            
            IF v_old_value IS DISTINCT FROM v_new_value THEN
                v_changes := v_changes || jsonb_build_object(
                    v_campo, jsonb_build_object(
                        'old', v_old_value,
                        'new', v_new_value
                    )
                );
            END IF;
        END LOOP;
        
        -- Registrar en tabla de auditoría si hay cambios significativos
        IF v_changes != '{}' THEN
            INSERT INTO llx_audit_log (
                table_name, record_id, operation, changes, 
                user_id, change_date
            ) VALUES (
                TG_TABLE_NAME, NEW.rowid, 'UPDATE', v_changes,
                COALESCE(NEW.fk_user_modif, NEW.fk_user_author, 1), NOW()
            );
        END IF;
    END IF;
    
    -- Para INSERT: registrar creación
    IF TG_OP = 'INSERT' THEN
        NEW.datec := COALESCE(NEW.datec, NOW());
        NEW.tms := COALESCE(NEW.tms, NOW());
        
        INSERT INTO llx_audit_log (
            table_name, record_id, operation, 
            user_id, change_date
        ) VALUES (
            TG_TABLE_NAME, NEW.rowid, 'INSERT',
            COALESCE(NEW.fk_user_author, 1), NOW()
        );
    END IF;
    
    RETURN COALESCE(NEW, OLD);
END;
$$ LANGUAGE plpgsql;