Criando Trigger no DB2 via Observador Digital
Citação de Kindrazki em 8 de outubro de 2014, 18:11Criando Trigger no DB2 via Observador Digital
[code]
connect $v{datasource1};sql Select count(*) as QTDTRIGER from SYSCAT.TRIGGERS where upper(trigname) = 'TR_LOGALTDATA';
if $c{QTDTRIGER#0} == 0;
set comando = " Create ^
trigger tr_logaltdata after update of dtvencimento on dba.testee^
referencing new as new_tb old as old_tb^
for each row mode db2sql^
begin atomic^
insert into sysaltcp (idempresa,idplanilha,idclifor,idtitulo,digitotitulo,dtmovimento,dtvctoold,dtvctonew) values (new_tb.idempresa,new_tb.idplanilha,new_tb.idclifor,new_tb.idtitulo,new_tb.digitotitulo,now(),current_date,new_tb.dtvencimento)~^
End^
".replace('^','\n').replace('~', ''+((char)59));sql_exec $v{comando};
end_if;
[/code]
Criando Trigger no DB2 via Observador Digital
[code]
connect $v{datasource1};
sql Select count(*) as QTDTRIGER from SYSCAT.TRIGGERS where upper(trigname) = 'TR_LOGALTDATA';
if $c{QTDTRIGER#0} == 0;
set comando = " Create ^
trigger tr_logaltdata after update of dtvencimento on dba.testee^
referencing new as new_tb old as old_tb^
for each row mode db2sql^
begin atomic^
insert into sysaltcp (idempresa,idplanilha,idclifor,idtitulo,digitotitulo,dtmovimento,dtvctoold,dtvctonew) values (new_tb.idempresa,new_tb.idplanilha,new_tb.idclifor,new_tb.idtitulo,new_tb.digitotitulo,now(),current_date,new_tb.dtvencimento)~^
End^
".replace('^','\n').replace('~', ''+((char)59));
sql_exec $v{comando};
end_if;
[/code]
