s-06-ilap-cah-s2-sucursal-taller-trigger.sql

--@Autor: Carlos A. Hernández A. & Marco A. Moreno Guerra
--@Fecha creación: 16/05/2020
--@Descripción: Definición del trigger para operaciones DML para SUCURSAL_TALLER en CAHABDD_S2


create or replace trigger t_dml_sucursal_taller_cah_s2
instead of insert or update or delete on SUCURSAL_TALLER
declare
  v_count number;
begin
  case 
    when inserting then
      select count(1) into v_count
      from SUCURSAL_F2
      where sucursal_id = :new.sucursal_id;

      -- Inserción local (en CAHABDD_S2)
      if v_count > 0 then
        insert into SUCURSAL_TALLER_F2(sucursal_id,dia_descanso,telefono_atencion)
        values(:new.sucursal_id,:new.dia_descanso,:new.telefono_atencion);
      else
        select count(1) into v_count
        from SUCURSAL_F1
        where sucursal_id = :new.sucursal_id;

        -- Inserción remota en CAHABDD_S1
        if v_count > 0 then
          insert into SUCURSAL_TALLER_F1(sucursal_id,dia_descanso,telefono_atencion)
          values(:new.sucursal_id,:new.dia_descanso,:new.telefono_atencion);
        else 
          select count(1) into v_count
          from SUCURSAL_F3
          where sucursal_id = :new.sucursal_id;

          -- Inserción remota en MAMGBD_S1
          if v_count > 0 then
            insert into SUCURSAL_TALLER_F3(sucursal_id,dia_descanso,telefono_atencion)
            values(:new.sucursal_id,:new.dia_descanso,:new.telefono_atencion);
          else
            select count(1) into v_count
            from SUCURSAL_F4
            where sucursal_id = :new.sucursal_id;

            -- Inserción remota en MAMGBD_S2
            if v_count > 0 then
              insert into SUCURSAL_TALLER_F4(sucursal_id,dia_descanso,telefono_atencion)
              values(:new.sucursal_id,:new.dia_descanso,:new.telefono_atencion);
            -- Predicado inválido
            else
              raise_application_error(-20020, 'Error de integridad para el campo SUCURSAL_ID: ' 
                || :new.sucursal_id || ' No se encontró el registro padre en los fragmentos');
            end if;
          end if;
        end if;
      end if;

    when updating then
      raise_application_error(-20030, 'Las operaciones UPDATE no tienen soporte aun.');

    when deleting then
      select count(1) into v_count
      from SUCURSAL_F2
      where sucursal_id = :old.sucursal_id;

      -- Inserción local (en CAHABDD_S2)
      if v_count > 0 then
        delete from SUCURSAL_TALLER_F2 where sucursal_id = :old.sucursal_id;
      else
        select count(1) into v_count
        from SUCURSAL_F1
        where sucursal_id = :old.sucursal_id;

        -- Inserción remota en CAHABDD_S1
        if v_count > 0 then
          delete from SUCURSAL_TALLER_F1 where sucursal_id = :old.sucursal_id;
        else 
          select count(1) into v_count
          from SUCURSAL_F3
          where sucursal_id = :old.sucursal_id;

          -- Inserción remota en MAMGBD_S1
          if v_count > 0 then
            delete from SUCURSAL_TALLER_F3 where sucursal_id = :old.sucursal_id;
          else
            select count(1) into v_count
            from SUCURSAL_F4
            where sucursal_id = :old.sucursal_id;

            -- Inserción remota en MAMGBD_S2
            if v_count > 0 then
              delete from SUCURSAL_TALLER_F4 where sucursal_id = :old.sucursal_id;
            -- Predicado inválido
            else
              raise_application_error(-20020, 'Error de integridad para el campo SUCURSAL_ID: ' 
                || :old.sucursal_id || ' No se encontró el registro padre en los fragmentos');
            end if;
          end if;
        end if;
      end if;
    
  end case;
end;
/
show errors