UPDATE OR INSERT INTO TBMENU (CONTROLE, GRUPO, SUBGRUPO, TIPO, URL, DESCRICAO, DATAHORA, SUB_GRUPO, DESCRICAO_RESUMIDA)
                      VALUES (22609, 'PCP', 'PCP', '1', '', 'REGISTRO DE PRODUÇÃO - Div. Seamless', '2023-08-30 17:39:58', '2', 'REGISTRO DE PRODUÇÃO - Div. Seamless')
                    MATCHING (CONTROLE, GRUPO);

SET TERM ^ ;

CREATE OR ALTER trigger ttbesteira_b06iu for tbesteira
active before insert or update position 0
AS
declare variable TIPO VARCHAR(10);
begin

    if(coalesce(NEW.TIPO_AGRUPAMENTO,'') <> '')then
    begin
        FOR
            SELECT
                T.TIPO_AGRUPAMENTO
            FROM TBESTEIRA T
        INTO
            :TIPO
        DO
        BEGIN
            IF(NEW.TIPO_AGRUPAMENTO = :TIPO) THEN
            BEGIN
                EXCEPTION "..." 'TIPO DE AGRUPAMENTO JÁ EXISTENTE EM GRUPO DE PRODUÇÃO! OPERAÇÃO CANCELADA.';
            END
        END
    end
end
^

SET TERM ; ^

UPDATE OR INSERT INTO TBMENU (CONTROLE, GRUPO, SUBGRUPO, TIPO, URL, DESCRICAO, DATAHORA, SUB_GRUPO, DESCRICAO_RESUMIDA)
                      VALUES (22598, 'PCP', 'PCP', '1', '', 'GERAÇÃO DE REMESSAS - DIV. SEAMLESS', '2022-10-13 11:09:13', '2', 'GERAÇÃO DE REMESSAS - DIV. SEAMLESS')
                    MATCHING (CONTROLE, GRUPO);
UPDATE OR INSERT INTO TBMENU (CONTROLE, GRUPO, SUBGRUPO, TIPO, URL, DESCRICAO, DATAHORA, SUB_GRUPO, DESCRICAO_RESUMIDA)
                      VALUES (22135, 'PCP', 'PCP', '0', '', 'REGISTRO DE PRODUÇÃO DA TECELAGEM - DIV. SEAMLESS', '2023-02-17 09:31:36', '2', 'REGISTRO DE PRODUÇÃO DA TECELAGEM - DIV. SEAMLESS')
                    MATCHING (CONTROLE, GRUPO);
UPDATE OR INSERT INTO TBMENU (CONTROLE, GRUPO, SUBGRUPO, TIPO, URL, DESCRICAO, DATAHORA, SUB_GRUPO, DESCRICAO_RESUMIDA)
                      VALUES (22596, 'PCP', 'PCP', '1', '', 'CAPACIDADE PRODUTIVA X ENTRADA DE PEDIDOS - DIV. SEAMLESS', '2023-07-19 15:42:50', '2', 'CAPACIDADE PRODUTIVA X ENTRADA DE PEDIDOS - DIV. SEAMLESS')
                    MATCHING (CONTROLE, GRUPO);
UPDATE OR INSERT INTO TBMENU (CONTROLE, GRUPO, SUBGRUPO, TIPO, URL, DESCRICAO, DATAHORA, SUB_GRUPO, DESCRICAO_RESUMIDA)
                      VALUES (22595, 'PCP', 'PCP', '1', '', 'GERAÇÃO DE REMESSAS - DIV. SEAMLESS', '2023-08-01 10:23:51', '2', 'GERAÇÃO DE REMESSAS - DIV. SEAMLESS')
                    MATCHING (CONTROLE, GRUPO);
UPDATE OR INSERT INTO TBMENU (CONTROLE, GRUPO, SUBGRUPO, TIPO, URL, DESCRICAO, DATAHORA, SUB_GRUPO, DESCRICAO_RESUMIDA)
                      VALUES (22137, 'PCP', 'PCP', '1', '', 'REGISTRO DE PRODUÇÃO DA TECELAGEM - DIV. SEAMLESS', '2023-08-30 17:39:58', '2', 'REGISTRO DE PRODUÇÃO DA TECELAGEM - DIV. SEAMLESS')
                    MATCHING (CONTROLE, GRUPO);
UPDATE OR INSERT INTO TBMENU (CONTROLE, GRUPO, SUBGRUPO, TIPO, URL, DESCRICAO, DATAHORA, SUB_GRUPO, DESCRICAO_RESUMIDA)
                      VALUES (22609, 'PCP', 'PCP', '1', '', 'REGISTRO DE PRODUÇÃO - DIV. SEAMLESS', '2023-08-30 17:39:58', '2', 'REGISTRO DE PRODUÇÃO - DIV. SEAMLESS')
                    MATCHING (CONTROLE, GRUPO);

COMMIT WORK;

SET TERM ^ ;

CREATE OR ALTER trigger ttbmodelo_bloqueio_biud998 for tbmodelo_bloqueio
active before insert or update or delete position 998
as
declare variable codigo integer;
begin
  if (inserting) then
      begin
      update or insert into tbmodelo_validacao (modelo_id, status, observacao) values
      (new.modelo_id, '0', 'tbmodelo_sku') matching (modelo_id);
      end else
  if (updating) then
      begin
      update or insert into tbmodelo_validacao (modelo_id, status, observacao) values
      (new.modelo_id, '0', 'tbmodelo_sku') matching (modelo_id);
      end else
  if (deleting) then
      begin
      update or insert into tbmodelo_validacao (modelo_id, status, observacao) values
      (old.modelo_id, '0', 'tbmodelo_sku') matching (modelo_id);
      end

  codigo = coalesce((select first 1 p.codigo from tbproduto p where p.modelo_codigo = new.modelo_id and p.cor_codigo = new.cor_id),0);
  if(codigo > 0)then
  begin
    if(inserting)then execute procedure spi_integracao_mobile('TBPRODUTO',:codigo,'I');
    if(updating )then execute procedure spi_integracao_mobile('TBPRODUTO',:codigo,'A');
  end
end
^

SET TERM ; ^

