CREATE OR ALTER trigger ttbesteira_b0d_01 for tbesteira
active before delete position 0
AS
DECLARE VARIABLE p1 Integer;
DECLARE VARIABLE p2 Integer;
DECLARE VARIABLE p3 Integer;
Begin

	For Select
	(Select First 1 A.REMESSA From TbPedido_Item_Processado A Where A.Esteira_Producao = OLD.Codigo),
	(Select First 1 A.Esteira_Id From TbCalendario_Esteira A Where A.Esteira_Id = OLD.Codigo),
	(Select First 1 c.remessa_id From tbprogramacao c Where c.gp_id = OLD.Codigo)

	FROM RDB$DATABASE
	Into :p1,:p2,:p3
	Do
	begin

	  if (:P1 > 0) Then Exception "..." 'REGISTRO JÁ VINCULADO AO REGISTRO DE REMESSAS. REM.'||:P1||' . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .  . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ';
	  if (:P2 > 0) Then Exception "..." 'REGISTRO JÁ VINCULADO AO CALENDÁRIO DE PRODUÇÃO.'||' . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .  . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ';
	  if (:P3 > 0) Then Exception "..." 'REGISTRO JÁ VINCULADO AO REGISTRO DE PROGRAMACAO. REM.'||:P3||' . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .  . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ';

	end

End;

CREATE OR ALTER trigger ttbsetor_b0d_01 for tbsetor
active before delete position 0
AS
DECLARE VARIABLE p1 Integer;
DECLARE VARIABLE p2 Integer;
DECLARE VARIABLE p3 Integer;
Begin

    For Select
        (Select First 1 A.Modelo_Codigo From TbModelo_Setor A Where A.Setor_Codigo = OLD.Codigo),
        (Select First 1 A.Remessa From TbRemessa_Setor A Where A.Setor_Id = OLD.Codigo),
        (Select First 1 p.Remessa_id From Tbprogramacao p Where p.up_id = OLD.Codigo)
    
    FROM RDB$DATABASE
    Into :p1,:p2,:p3
    Do
    begin
    
      if (:P1 > 0) Then Exception "..." 'REGISTRO JÁ VINCULADO AO CADASTRO DE MODELOS POR SETOR. MOD.'||:P1||' . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .  . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ';
      if (:P2 > 0) Then Exception "..." 'REGISTRO JÁ VINCULADO AO REGISTRO DE REMESSAS DE PRODUÇÃO POR SETOR. REM.'||:P2||' . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .  . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ';
      if (:P3 > 0) Then Exception "..." 'REGISTRO JÁ VINCULADO AO REGISTRO DE REMESSAS DE PRODUÇÃO POR SETOR. REM.'||:P3||' . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .  . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ';

    end

End;


