https://gsbelarus.com:80/gs/wiki/index.php?action=history&feed=atom&title=AC_BI_ENTRY_BLOCK
AC BI ENTRY BLOCK - История изменений
2026-07-17T03:05:15Z
История изменений этой страницы в вики
MediaWiki 1.19.16
https://gsbelarus.com:80/gs/wiki/index.php?title=AC_BI_ENTRY_BLOCK&diff=7112&oldid=prev
SYSDBA: Новая страница: « <syntaxhighlight lang="SQL"> CREATE TRIGGER ac_bi_entry_block FOR ac_entry INACTIVE BEFORE INSERT POSITION 28017 AS DECLARE VARIABLE IG INTEGER; DECLAR…»
2017-02-11T06:16:21Z
<p>Новая страница: « <syntaxhighlight lang="SQL"> CREATE TRIGGER ac_bi_entry_block FOR ac_entry INACTIVE BEFORE INSERT POSITION 28017 AS DECLARE VARIABLE IG INTEGER; DECLAR…»</p>
<p><b>Новая страница</b></p><div><br />
<syntaxhighlight lang="SQL"><br />
CREATE TRIGGER ac_bi_entry_block FOR ac_entry<br />
INACTIVE<br />
BEFORE INSERT<br />
POSITION 28017<br />
AS<br />
DECLARE VARIABLE IG INTEGER;<br />
DECLARE VARIABLE BG INTEGER;<br />
DECLARE VARIABLE DT INTEGER;<br />
DECLARE VARIABLE F INTEGER;<br />
BEGIN<br />
IF ((NEW.entrydate - CAST('17.11.1858' AS DATE)) < GEN_ID(gd_g_block, 0)) THEN<br />
BEGIN<br />
SELECT d.documenttypekey<br />
FROM gd_document d<br />
JOIN ac_record r ON r.documentkey = d.id<br />
WHERE<br />
r.id = NEW.recordkey<br />
INTO<br />
:DT;<br />
<br />
EXECUTE PROCEDURE gd_p_exclude_block_dt (:DT)<br />
RETURNING_VALUES :F;<br />
<br />
IF(:F = 0) THEN<br />
BEGIN<br />
BG = GEN_ID(gd_g_block_group, 0);<br />
IF (:BG = 0) THEN<br />
BEGIN<br />
EXCEPTION gd_e_block;<br />
END ELSE<br />
BEGIN<br />
SELECT ingroup FROM gd_user WHERE ibname = CURRENT_USER<br />
INTO :IG;<br />
IF (BIN_AND(:BG, :IG) = 0) THEN<br />
BEGIN<br />
EXCEPTION gd_e_block;<br />
END<br />
END<br />
END <br />
END<br />
END<br />
</syntaxhighlight><br />
<br />
[[Category:База данных]]</div>
SYSDBA