SET TERM #; EXECUTE BLOCK AS DECLARE seq_exists INTEGER; BEGIN SELECT COUNT(*) FROM RDB$GENERATORS WHERE RDB$GENERATOR_NAME = 'GEN_VENDAS_DETALHE_ID' INTO seq_exists; IF (seq_exists = 0) THEN EXECUTE STATEMENT 'CREATE SEQUENCE GEN_VENDAS_DETALHE_ID'; END# SET TERM ;# SET TERM #; EXECUTE BLOCK AS DECLARE i INT = 0; DECLARE temp INT = 0; BEGIN i = (SELECT COALESCE(MAX(CODIGO), 0) FROM VENDAS_DETALHE); temp = GEN_ID(GEN_VENDAS_DETALHE_ID, -(GEN_ID(GEN_VENDAS_DETALHE_ID, 0))); temp = GEN_ID(GEN_VENDAS_DETALHE_ID, :i); END# SET TERM ;# SET TERM ^ ; CREATE OR ALTER TRIGGER VENDAS_DETALHE_BI FOR VENDAS_DETALHE ACTIVE BEFORE INSERT POSITION 0 AS BEGIN IF (NEW.CODIGO IS NULL OR NEW.CODIGO = 0) THEN NEW.CODIGO = GEN_ID(GEN_VENDAS_DETALHE_ID, 1); END^ SET TERM ;^ SET TERM #; EXECUTE BLOCK AS DECLARE seq_exists INTEGER; BEGIN SELECT COUNT(*) FROM RDB$GENERATORS WHERE RDB$GENERATOR_NAME = 'GEN_PRE_VENDA_DETALHE_ID' INTO seq_exists; IF (seq_exists = 0) THEN EXECUTE STATEMENT 'CREATE SEQUENCE GEN_PRE_VENDA_DETALHE_ID'; END# SET TERM ;# SET TERM #; EXECUTE BLOCK AS DECLARE i INT = 0; DECLARE temp INT = 0; BEGIN i = (SELECT COALESCE(MAX(CODIGO), 0) FROM PRE_VENDA_DETALHE); temp = GEN_ID(GEN_PRE_VENDA_DETALHE_ID, -(GEN_ID(GEN_PRE_VENDA_DETALHE_ID, 0))); temp = GEN_ID(GEN_PRE_VENDA_DETALHE_ID, :i); END# SET TERM ;# SET TERM ^ ; CREATE OR ALTER TRIGGER PRE_VENDA_DETALHE_BI FOR PRE_VENDA_DETALHE ACTIVE BEFORE INSERT POSITION 0 AS BEGIN IF (NEW.CODIGO IS NULL OR NEW.CODIGO = 0) THEN NEW.CODIGO = GEN_ID(GEN_PRE_VENDA_DETALHE_ID, 1); END^ SET TERM ;^ SET TERM #; EXECUTE BLOCK AS DECLARE seq_exists INTEGER; BEGIN SELECT COUNT(*) FROM RDB$GENERATORS WHERE RDB$GENERATOR_NAME = 'GEN_MENSAGEM_ZAP_ID' INTO seq_exists; IF (seq_exists = 0) THEN EXECUTE STATEMENT 'CREATE SEQUENCE GEN_MENSAGEM_ZAP_ID'; END# SET TERM ;# SET TERM #; EXECUTE BLOCK AS DECLARE i INT = 0; DECLARE temp INT = 0; BEGIN i = (SELECT COALESCE(MAX(CODIGO), 0) FROM MENSAGEM_ZAP); temp = GEN_ID(GEN_MENSAGEM_ZAP_ID, -(GEN_ID(GEN_MENSAGEM_ZAP_ID, 0))); temp = GEN_ID(GEN_MENSAGEM_ZAP_ID, :i); END# SET TERM ;# SET TERM ^ ; CREATE OR ALTER TRIGGER MENSAGEM_ZAP_BI FOR MENSAGEM_ZAP ACTIVE BEFORE INSERT POSITION 0 AS BEGIN IF (NEW.CODIGO IS NULL OR NEW.CODIGO = 0) THEN NEW.CODIGO = GEN_ID(GEN_MENSAGEM_ZAP_ID, 1); END^ SET TERM ;^