ActiveDelphi

[hjmarcon]

Olá.
Estou fazendo uma rotina de replicação de dados seguindo a seguinte estrutura de triggers

[hjmarcon]

Creio que consegui identificar o problema:
"in autonomous transaction do ". Pelo que dá a entender, será utilizada uma transação só para a trigger, ignorando a transação em que está sendo feito o comando.
Pelos testes que fiz, resolveu o problema. Segue a instrução da trigger alterada:
SET TERM ^ ;
CREATE TRIGGER REPL_TABELA FOR TABELA ACTIVE
AFTER INSERT OR UPDATE OR DELETE POSITION 0
AS
begin
--in autonomous transaction do
--begin
if (inserting) then
insert into REPLICACAO values(
CURRENT_DATE, (SELECT COALESCE(MAX(SEQ_REP)+1,1) FROM REPLICACAO WHERE DTA_REP = CURRENT_DATE)
,'TABELA'
,'INSERT INTO TABELA VALUES('||NEW.CAMPO1_INT
||','||NEW.CAMPO2_STRING
||','||NEW.CAMPO3_DATETIME
||','||NEW.CAMPO4_DECIMAL
||')'
,'I', 'N', CURRENT_TIMESTAMP);
if (updating) then
insert into REPLICACAO values(
CURRENT_DATE, (SELECT COALESCE(MAX(SEQ_REP)+1,1) FROM REPLICACAO WHERE DTA_REP = CURRENT_DATE)
,'TABELA'
,'UPDATE TABELA SET '||
' CAMPO2_STRING = '||NEW.CAMPO2_STRING||
',CAMPO3_DATETIME = '||NEW.CAMPO3_DATETIME||
',CAMPO4_DECIMAL = '||NEW.CAMPO4_DECIMAL||
' WHERE CAMPO1_INT = '||NEW.CAMPO1_INT||
, 'U', 'N', CURRENT_TIMESTAMP);
if (deleting) then
insert into REPLICACAO values(
CURRENT_DATE, (SELECT COALESCE(MAX(SEQ_REP)+1,1) FROM REPLICACAO WHERE DTA_REP = CURRENT_DATE)
,'TABELA'
,'DELETE FROM TABELA'||
' WHERE CAMPO1_INT = '||OLD.CAMPO1_INT||
, 'D', 'N', CURRENT_TIMESTAMP);
--end
end
^
SET TERM ;