Контроль целостности типов документов - История изменений

SYSDBA в 10:09, 12 января 2018

2018-01-12T10:09:48Z

SYSDBA в 09:46, 12 января 2018

2018-01-12T09:46:27Z

SYSDBA в 08:59, 12 января 2018

2018-01-12T08:59:29Z

SYSDBA в 07:15, 12 января 2018

2018-01-12T07:15:44Z

SYSDBA в 13:49, 11 января 2018

2018-01-11T13:49:16Z

SYSDBA в 13:45, 11 января 2018

2018-01-11T13:45:39Z

SYSDBA: Новая страница: «Приведенный ниже код создает для каждой таблицы документа триггер, который проверяет со…»

2018-01-11T13:43:52Z

Новая страница: «Приведенный ниже код создает для каждой таблицы документа триггер, который проверяет со…»

Новая страница

Приведенный ниже код создает для каждой таблицы документа триггер, который проверяет соответствие этой таблицы типу документа из поля [[GD_DOCUMENT]].DOCUMENTTYPEKEY:

<syntaxhighlight lang="SQL">
EXECUTE BLOCK
AS
DECLARE VARIABLE stmt VARCHAR(2048);
DECLARE VARIABLE id INTEGER;
DECLARE VARIABLE relname VARCHAR(1024);
DECLARE VARIABLE keys VARCHAR(1024);
BEGIN
FOR
SELECT
hr.id,
hr.relationname,
LIST(dt.id)
FROM
gd_documenttype dt
JOIN at_relations hr ON hr.id = dt.HEADERRELKEY
GROUP BY
1, 2
INTO
:id, :relname, :keys
DO BEGIN
stmt =
'CREATE OR ALTER TRIGGER gd_check_dt_' || :id || ' FOR ' || :relname ||
' ACTIVE ' ||
' AFTER INSERT OR UPDATE ' ||
' POSITION 32000 ' ||
'AS ' ||
' DECLARE VARIABLE dtkey INTEGER = NULL; ' ||
'BEGIN ' ||
' SELECT documenttypekey FROM gd_document WHERE id = NEW.documentkey INTO :dtkey;' ||
' IF (NOT (:dtkey IN (' || :keys || '))) THEN ' ||
' EXCEPTION gd_e_exception ''Document type doesn`t match table ' || :relname || ''';' ||
'END';
EXECUTE STATEMENT :stmt WITH AUTONOMOUS TRANSACTION;
END
END
</syntaxhighlight>

[[Category:База данных]]

@@ Строка 72: / Строка 72: @@
      documentkey INTEGER,
      dtkey INTEGER,
-     expecteddtkey VARCHAR(64)
+     expecteddtkey VARCHAR(256)
+   )
 AS

@@ Строка 40: / Строка 40: @@
 </syntaxhighlight>
-В последствии удалить созданные триггеры можно с помощью кода:
+Впоследствии удалить созданные триггеры можно с помощью кода:
 <syntaxhighlight lang="SQL">
@@ Строка 63: / Строка 63: @@
 END
 </syntaxhighlight>
 [[Category:База данных]]

@@ Строка 16: / Строка 16: @@
        gd_documenttype dt
        JOIN at_relations hr ON hr.id = dt.HEADERRELKEY
      GROUP BY
 , 2

@@ Строка 4: / Строка 4: @@
 EXECUTE BLOCK
 AS
    DECLARE VARIABLE id INTEGER;
    DECLARE VARIABLE relname VARCHAR(1024);
@@ Строка 22: / Строка 21: @@
        :id, :relname, :dtkeys
    DO BEGIN
-     stmt =
+     EXECUTE STATEMENT
        'CREATE OR ALTER TRIGGER gd_check_dt_' || :id || ' FOR ' || :relname ||
        '  ACTIVE ' ||
@@ Строка 33: / Строка 32: @@
        '  IF (NOT (:dtkey IN (' || :dtkeys || '))) THEN ' ||
        '    EXCEPTION gd_e_exception ''Document type doesn`t match table ' || :relname || ''';' ||
-       'END';
+       'END'
-    EXECUTE STATEMENT :stmt WITH AUTONOMOUS TRANSACTION;
+      WITH AUTONOMOUS TRANSACTION;
    END
 END

@@ Строка 7: / Строка 7: @@
    DECLARE VARIABLE id INTEGER;
    DECLARE VARIABLE relname VARCHAR(1024);
-   DECLARE VARIABLE keys VARCHAR(1024);
+   DECLARE VARIABLE dtkeys VARCHAR(1024);
 BEGIN
    FOR
@@ Строка 20: / Строка 20: @@
 , 2
      INTO
-       :id, :relname, :keys
+       :id, :relname, :dtkeys
    DO BEGIN
      stmt =
@@ Строка 31: / Строка 31: @@
        'BEGIN ' ||
        '  SELECT documenttypekey FROM gd_document WHERE id = NEW.documentkey INTO :dtkey;' ||
-       '  IF (NOT (:dtkey IN (' || :keys || '))) THEN ' ||
+       '  IF (NOT (:dtkey IN (' || :dtkeys || '))) THEN ' ||
        '    EXCEPTION gd_e_exception ''Document type doesn`t match table ' || :relname || ''';' ||
        'END';