SET TERM ^ ;
CREATE OR ALTER trigger ttbproduto_b0d_01 for tbproduto
active before delete position 0
AS
DECLARE VARIABLE p1  Integer; DECLARE VARIABLE p2  Integer;
DECLARE VARIABLE p3  Integer; DECLARE VARIABLE p4  Integer;
DECLARE VARIABLE p5  Integer; DECLARE VARIABLE p6  Integer;
DECLARE VARIABLE p7  Integer; DECLARE VARIABLE p8  Integer;
DECLARE VARIABLE p9  Integer; DECLARE VARIABLE p10 Integer;
DECLARE VARIABLE p11 Integer; DECLARE VARIABLE p12 Integer;
DECLARE VARIABLE p13 Integer; DECLARE VARIABLE p14 Integer;
DECLARE VARIABLE p15 Integer; DECLARE VARIABLE p16 Integer;
DECLARE VARIABLE p17 Integer; DECLARE VARIABLE p18 Integer;
Begin

For Select
(Select First 1 A.Numero_NotaFiscal From TbNfs_Item A Where A.Produto_Codigo = OLD.CODIGO) ,
(Select First 1 A.Numero_NotaFiscal From TbNfe_Item A Where A.Produto_Codigo = OLD.CODIGO) ,
(Select First 1 A.Pedido         From TbPedido_Item A Where A.Produto_Codigo = OLD.CODIGO) ,
(Select First 1 A.OC             From TbOc_Item A Where A.Produto_Codigo = OLD.CODIGO) ,
(Select First 1 A.Modelo_Id      From TbModelo_Consumo_Cor A Where A.Produto_Id = OLD.CODIGO) ,
(Select First 1 A.COO            From TBCF_VENDA_DETALHE A Where A.ID_ECF_PRODUTO = OLD.CODIGO) ,
(Select First 1 A.Cliente_Codigo From TBCLIENTE_PRODUTO_PRECO A Where A.Produto_Codigo = OLD.CODIGO) ,
(Select First 1 A.Produto_Codigo From TBPRODUTO_PRECO A Where A.Produto_Codigo = OLD.CODIGO) ,
(Select First 1 A.TRANSACAO_DOCUMENTO From TBESPUMACAO_TRANSACAO A Where A.Produto_Codigo = OLD.CODIGO) ,
(Select First 1 A.Produto_Codigo From TBESTOQUE_MINIMO A Where A.Produto_Codigo = OLD.CODIGO) ,
(Select First 1 A.Produto_Codigo From TBESTOQUE_SALDO A Where A.Produto_Codigo = OLD.CODIGO) ,
(Select First 1 A.Patrimonio     From TBPATRIMONIO A Where A.PRODUTO_ID = OLD.CODIGO) ,
(Select First 1 A.PRODUTO_ID     From TBPATRIMONIO_COMPONENTES A Where A.PRODUTO_ID = OLD.CODIGO) ,
(Select First 1 A.REMESSA        From TBPEDIDO_ITEM_PROCESSADO A Where A.Produto_Codigo = OLD.CODIGO) ,
(Select First 1 A.REMESSA        From TBREMESSA_CONSUMO A Where A.PRODUTO_ID = OLD.CODIGO) ,
(Select First 1 A.Produto_ID     From TBDEFEITO_TRANSACAO_ITEM A Where A.Produto_ID = OLD.CODIGO),
(Select First 1 A.MODELO_CODIGO  From TbModelo_Consumo A Where A.Consumo_Produto_Codigo = OLD.CODIGO),
(Select First 1 A.pdv_conferencia_id From Tbpdv_conferencia_item A Where A.produto_id = OLD.CODIGO)
FROM RDB$DATABASE
Into :p1,:p2,:p3,:p4,:p5,:p6,:p7,:p8,:p9,:p10,:p11,:p12,:p13,:p14,:p15,:p16,:p17,:p18
Do
begin

  if (:P1 > 0) Then Exception "..." 'Exclusão não permitida. Produto já usado em documentos fiscais! NFS.'||:p1||' . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .  . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ';
  if (:P2 > 0) Then Exception "..." 'Exclusão não permitida. Produto já usado em documentos fiscais! NFE.'||:p2||' . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .  . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ';
  if (:P3 > 0) Then Exception "..." 'Exclusão não permitida. Produto já usado em pedido! PED.'||:p3||' . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .  . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ';
  if (:P4 > 0) Then Exception "..." 'Exclusão não permitida. Produto já usado em ordens de compra! OC.'||:p4||' . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .  . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ';
  if (:P5 > 0) Then Exception "..." 'Exclusão não permitida. Produto já usado em ficha técnica de modelo! MOD.'||:p5||' . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .  . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ';
  if (:P6 > 0) Then Exception "..." 'Exclusão não permitida. Produto já usado em cupons fiscais! COO.'||:p6||' . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .  . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ';
  if (:P7 > 0) Then Exception "..." 'Exclusão não permitida. Produto já usado em composição de preço para cliente! CLI.'||:p7||' . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .  . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ';

  if (:P8 > 0) Then Exception "..." 'Exclusão não permitida. Produto já usado em composição de preço! '||' . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .  . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ';
  if (:P9 > 0) Then Exception "..." 'Exclusão não permitida. Produto já usado em transação de espumação! DOC.'||:p9||' . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .  . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ';
  if (:P10> 0) Then Exception "..." 'Exclusão não permitida. Produto já usado em definição de estoque mínimo! '||' . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .  . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ';

  if (:P11 > 0) Then Exception "..." 'Exclusão não permitida. Produto já usado em movimentação de estoque! '||' . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .  . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ';
  if (:P12 > 0) Then Exception "..." 'Exclusão não permitida. Produto já usado em registro de patrimônio! PATR.'||:p12||' . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .  . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ';
  if (:P13 > 0) Then Exception "..." 'Exclusão não permitida. Produto já usado em componentes de patrimônio! '||' . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .  . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ';
  if (:P14 > 0) Then Exception "..." 'Exclusão não permitida. Produto já usado em remessa! REM.'||:p14||' . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .  . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ';
  if (:P15 > 0) Then Exception "..." 'Exclusão não permitida. Produto já usado em consumo de remessa! REM.'||:p15||' . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .  . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ';
  if (:P16 > 0) Then Exception "..." 'Exclusão não permitida. Produto já usado em registros de defeitos!'||' . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .  . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ';
  if (:P17 > 0) Then Exception "..." 'Exclusão não permitida. Produto já usado em ficha técnica de modelos! MOD.'||:p17||' . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .  . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . '; 
  if (:P18 > 0) Then Exception "..." 'Exclusão não permitida. Produto já usado em pre pedidos! PRE.'||:p18||' . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .  . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ';

end

End
^ SET TERM ; ^