-- Tabela: R900ACP GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R900ACP_AI' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R900ACP_AI END GO CREATE TRIGGER wf_r900acp_ai ON r900acp FOR insert AS BEGIN DECLARE @NEW_PERID BIGINT DECLARE @NEW_FUSO SMALLINT DECLARE @NEW_HORVER VARCHAR(1) DECLARE @NEW_EMAIL VARCHAR(200) DECLARE @NEW_PrxUsr VARCHAR(254) DECLARE @NEW_PrxPsw VARCHAR(254) DECLARE @NEW_SEQREG BIGINT DECLARE @NEW_VERSEQ BIGINT DECLARE CUR_R900ACP_INS_NEW_REP CURSOR FOR SELECT new.perid N_PERID,new.fuso N_FUSO,new.horver N_HORVER,new.email N_EMAIL,new.prxusr N_PrxUsr,new.prxpsw N_PrxPsw,new.seqreg N_SEQREG,new.verseq N_VERSEQ FROM inserted new DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R900ACP_INS_NEW_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900ACP_INS_NEW_REP DEALLOCATE CUR_R900ACP_INS_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R900ACP_INS_NEW_REP INTO @NEW_PERID, @NEW_FUSO, @NEW_HORVER, @NEW_EMAIL, @NEW_PrxUsr, @NEW_PrxPsw, @NEW_SEQREG, @NEW_VERSEQ WHILE (@@FETCH_STATUS = 0) BEGIN INSERT INTO [NOME_DA_BASE].DBO.R900ACP (perid,fuso,horver,email,prxusr,prxpsw,seqreg,verseq) VALUES (@NEW_PERID,@NEW_FUSO,@NEW_HORVER,@NEW_EMAIL,@NEW_PrxUsr,@NEW_PrxPsw,@NEW_SEQREG,@NEW_VERSEQ) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900ACP_INS_NEW_REP DEALLOCATE CUR_R900ACP_INS_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R900ACP_INS_NEW_REP INTO @NEW_PERID, @NEW_FUSO, @NEW_HORVER, @NEW_EMAIL, @NEW_PrxUsr, @NEW_PrxPsw, @NEW_SEQREG, @NEW_VERSEQ END CLOSE CUR_R900ACP_INS_NEW_REP DEALLOCATE CUR_R900ACP_INS_NEW_REP FIM: END GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R900ACP_AU' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R900ACP_AU END GO CREATE TRIGGER wf_r900acp_au ON r900acp FOR update AS BEGIN DECLARE @OLD_PERID BIGINT DECLARE @OLD_FUSO SMALLINT DECLARE @OLD_HORVER VARCHAR(1) DECLARE @OLD_EMAIL VARCHAR(200) DECLARE @OLD_PrxUsr VARCHAR(254) DECLARE @OLD_PrxPsw VARCHAR(254) DECLARE @OLD_SEQREG BIGINT DECLARE @OLD_VERSEQ BIGINT DECLARE @NEW_PERID BIGINT DECLARE @NEW_FUSO SMALLINT DECLARE @NEW_HORVER VARCHAR(1) DECLARE @NEW_EMAIL VARCHAR(200) DECLARE @NEW_PrxUsr VARCHAR(254) DECLARE @NEW_PrxPsw VARCHAR(254) DECLARE @NEW_SEQREG BIGINT DECLARE @NEW_VERSEQ BIGINT DECLARE CUR_R900ACP_UPD_OLD_REP CURSOR FOR SELECT old.perid O_PERID,old.fuso O_FUSO,old.horver O_HORVER,old.email O_EMAIL,old.prxusr O_PrxUsr,old.prxpsw O_PrxPsw,old.seqreg O_SEQREG,old.verseq O_VERSEQ FROM deleted old DECLARE CUR_R900ACP_UPD_NEW_REP CURSOR FOR SELECT new.perid N_PERID,new.fuso N_FUSO,new.horver N_HORVER,new.email N_EMAIL,new.prxusr N_PrxUsr,new.prxpsw N_PrxPsw,new.seqreg N_SEQREG,new.verseq N_VERSEQ FROM inserted new DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R900ACP_UPD_OLD_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900ACP_UPD_OLD_REP DEALLOCATE CUR_R900ACP_UPD_OLD_REP CLOSE CUR_R900ACP_UPD_NEW_REP DEALLOCATE CUR_R900ACP_UPD_NEW_REP GOTO FIM END OPEN CUR_R900ACP_UPD_NEW_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900ACP_UPD_OLD_REP DEALLOCATE CUR_R900ACP_UPD_OLD_REP CLOSE CUR_R900ACP_UPD_NEW_REP DEALLOCATE CUR_R900ACP_UPD_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R900ACP_UPD_OLD_REP INTO @OLD_PERID, @OLD_FUSO, @OLD_HORVER, @OLD_EMAIL, @OLD_PrxUsr, @OLD_PrxPsw, @OLD_SEQREG, @OLD_VERSEQ FETCH NEXT FROM CUR_R900ACP_UPD_NEW_REP INTO @NEW_PERID, @NEW_FUSO, @NEW_HORVER, @NEW_EMAIL, @NEW_PrxUsr, @NEW_PrxPsw, @NEW_SEQREG, @NEW_VERSEQ WHILE (@@FETCH_STATUS = 0) BEGIN UPDATE [NOME_DA_BASE].DBO.R900ACP SET perid=@NEW_PERID,fuso=@NEW_FUSO,horver=@NEW_HORVER,email=@NEW_EMAIL,prxusr=@NEW_PrxUsr,prxpsw=@NEW_PrxPsw,seqreg=@NEW_SEQREG,verseq=@NEW_VERSEQ WHERE ((perid is null and @old_perid is null) or (perid=@old_perid)) and ((fuso is null and @old_fuso is null) or (fuso=@old_fuso)) and ((horver is null and @old_horver is null) or (horver=@old_horver)) and ((email is null and @old_email is null) or (email=@old_email)) and ((prxusr is null and @old_prxusr is null) or (prxusr=@old_prxusr)) and ((prxpsw is null and @old_prxpsw is null) or (prxpsw=@old_prxpsw)) and ((seqreg is null and @old_seqreg is null) or (seqreg=@old_seqreg)) and ((verseq is null and @old_verseq is null) or (verseq=@old_verseq)) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900ACP_UPD_OLD_REP DEALLOCATE CUR_R900ACP_UPD_OLD_REP CLOSE CUR_R900ACP_UPD_NEW_REP DEALLOCATE CUR_R900ACP_UPD_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R900ACP_UPD_OLD_REP INTO @OLD_PERID, @OLD_FUSO, @OLD_HORVER, @OLD_EMAIL, @OLD_PrxUsr, @OLD_PrxPsw, @OLD_SEQREG, @OLD_VERSEQ FETCH NEXT FROM CUR_R900ACP_UPD_NEW_REP INTO @NEW_PERID, @NEW_FUSO, @NEW_HORVER, @NEW_EMAIL, @NEW_PrxUsr, @NEW_PrxPsw, @NEW_SEQREG, @NEW_VERSEQ END CLOSE CUR_R900ACP_UPD_OLD_REP DEALLOCATE CUR_R900ACP_UPD_OLD_REP CLOSE CUR_R900ACP_UPD_NEW_REP DEALLOCATE CUR_R900ACP_UPD_NEW_REP FIM: END GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R900ACP_AD' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R900ACP_AD END GO CREATE TRIGGER wf_r900acp_ad ON r900acp FOR delete AS BEGIN DECLARE @OLD_PERID BIGINT DECLARE @OLD_FUSO SMALLINT DECLARE @OLD_HORVER VARCHAR(1) DECLARE @OLD_EMAIL VARCHAR(200) DECLARE @OLD_PrxUsr VARCHAR(254) DECLARE @OLD_PrxPsw VARCHAR(254) DECLARE @OLD_SEQREG BIGINT DECLARE @OLD_VERSEQ BIGINT DECLARE CUR_R900ACP_DEL_OLD_REP CURSOR FOR SELECT old.perid O_PERID,old.fuso O_FUSO,old.horver O_HORVER,old.email O_EMAIL,old.prxusr O_PrxUsr,old.prxpsw O_PrxPsw,old.seqreg O_SEQREG,old.verseq O_VERSEQ FROM deleted old DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R900ACP_DEL_OLD_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900ACP_DEL_OLD_REP DEALLOCATE CUR_R900ACP_DEL_OLD_REP GOTO FIM END FETCH NEXT FROM CUR_R900ACP_DEL_OLD_REP INTO @OLD_PERID, @OLD_FUSO, @OLD_HORVER, @OLD_EMAIL, @OLD_PrxUsr, @OLD_PrxPsw, @OLD_SEQREG, @OLD_VERSEQ WHILE (@@FETCH_STATUS = 0) BEGIN DELETE FROM [NOME_DA_BASE].DBO.R900ACP WHERE ((perid is null and @old_perid is null) or (perid=@old_perid)) and ((fuso is null and @old_fuso is null) or (fuso=@old_fuso)) and ((horver is null and @old_horver is null) or (horver=@old_horver)) and ((email is null and @old_email is null) or (email=@old_email)) and ((prxusr is null and @old_prxusr is null) or (prxusr=@old_prxusr)) and ((prxpsw is null and @old_prxpsw is null) or (prxpsw=@old_prxpsw)) and ((seqreg is null and @old_seqreg is null) or (seqreg=@old_seqreg)) and ((verseq is null and @old_verseq is null) or (verseq=@old_verseq)) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900ACP_DEL_OLD_REP DEALLOCATE CUR_R900ACP_DEL_OLD_REP GOTO FIM END FETCH NEXT FROM CUR_R900ACP_DEL_OLD_REP INTO @OLD_PERID, @OLD_FUSO, @OLD_HORVER, @OLD_EMAIL, @OLD_PrxUsr, @OLD_PrxPsw, @OLD_SEQREG, @OLD_VERSEQ END CLOSE CUR_R900ACP_DEL_OLD_REP DEALLOCATE CUR_R900ACP_DEL_OLD_REP FIM: END -- Tabela: R900APD GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R900APD_AI' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R900APD_AI END GO CREATE TRIGGER wf_r900apd_ai ON r900apd FOR insert AS BEGIN DECLARE @NEW_PERID BIGINT DECLARE @NEW_DATSEQ SMALLINT DECLARE @NEW_SEQREG BIGINT DECLARE @NEW_VERSEQ BIGINT DECLARE @NEW_DAT1 VARCHAR(254) DECLARE @NEW_DAT2 VARCHAR(254) DECLARE CUR_R900APD_INS_NEW_REP CURSOR FOR SELECT new.perid N_PERID,new.datseq N_DATSEQ,new.seqreg N_SEQREG,new.verseq N_VERSEQ,new.dat1 N_DAT1,new.dat2 N_DAT2 FROM inserted new DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R900APD_INS_NEW_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900APD_INS_NEW_REP DEALLOCATE CUR_R900APD_INS_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R900APD_INS_NEW_REP INTO @NEW_PERID, @NEW_DATSEQ, @NEW_SEQREG, @NEW_VERSEQ, @NEW_DAT1, @NEW_DAT2 WHILE (@@FETCH_STATUS = 0) BEGIN INSERT INTO [NOME_DA_BASE].DBO.R900APD (perid,datseq,seqreg,verseq,dat1,dat2) VALUES (@NEW_PERID,@NEW_DATSEQ,@NEW_SEQREG,@NEW_VERSEQ,@NEW_DAT1,@NEW_DAT2) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900APD_INS_NEW_REP DEALLOCATE CUR_R900APD_INS_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R900APD_INS_NEW_REP INTO @NEW_PERID, @NEW_DATSEQ, @NEW_SEQREG, @NEW_VERSEQ, @NEW_DAT1, @NEW_DAT2 END CLOSE CUR_R900APD_INS_NEW_REP DEALLOCATE CUR_R900APD_INS_NEW_REP FIM: END GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R900APD_AU' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R900APD_AU END GO CREATE TRIGGER wf_r900apd_au ON r900apd FOR update AS BEGIN DECLARE @OLD_PERID BIGINT DECLARE @OLD_DATSEQ SMALLINT DECLARE @OLD_SEQREG BIGINT DECLARE @OLD_VERSEQ BIGINT DECLARE @OLD_DAT1 VARCHAR(254) DECLARE @OLD_DAT2 VARCHAR(254) DECLARE @NEW_PERID BIGINT DECLARE @NEW_DATSEQ SMALLINT DECLARE @NEW_SEQREG BIGINT DECLARE @NEW_VERSEQ BIGINT DECLARE @NEW_DAT1 VARCHAR(254) DECLARE @NEW_DAT2 VARCHAR(254) DECLARE CUR_R900APD_UPD_OLD_REP CURSOR FOR SELECT old.perid O_PERID,old.datseq O_DATSEQ,old.seqreg O_SEQREG,old.verseq O_VERSEQ,old.dat1 O_DAT1,old.dat2 O_DAT2 FROM deleted old DECLARE CUR_R900APD_UPD_NEW_REP CURSOR FOR SELECT new.perid N_PERID,new.datseq N_DATSEQ,new.seqreg N_SEQREG,new.verseq N_VERSEQ,new.dat1 N_DAT1,new.dat2 N_DAT2 FROM inserted new DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R900APD_UPD_OLD_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900APD_UPD_OLD_REP DEALLOCATE CUR_R900APD_UPD_OLD_REP CLOSE CUR_R900APD_UPD_NEW_REP DEALLOCATE CUR_R900APD_UPD_NEW_REP GOTO FIM END OPEN CUR_R900APD_UPD_NEW_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900APD_UPD_OLD_REP DEALLOCATE CUR_R900APD_UPD_OLD_REP CLOSE CUR_R900APD_UPD_NEW_REP DEALLOCATE CUR_R900APD_UPD_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R900APD_UPD_OLD_REP INTO @OLD_PERID, @OLD_DATSEQ, @OLD_SEQREG, @OLD_VERSEQ, @OLD_DAT1, @OLD_DAT2 FETCH NEXT FROM CUR_R900APD_UPD_NEW_REP INTO @NEW_PERID, @NEW_DATSEQ, @NEW_SEQREG, @NEW_VERSEQ, @NEW_DAT1, @NEW_DAT2 WHILE (@@FETCH_STATUS = 0) BEGIN UPDATE [NOME_DA_BASE].DBO.R900APD SET perid=@NEW_PERID,datseq=@NEW_DATSEQ,seqreg=@NEW_SEQREG,verseq=@NEW_VERSEQ,dat1=@NEW_DAT1,dat2=@NEW_DAT2 WHERE (perid=@old_perid) and (datseq=@old_datseq) and (seqreg=@old_seqreg) and (verseq=@old_verseq) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900APD_UPD_OLD_REP DEALLOCATE CUR_R900APD_UPD_OLD_REP CLOSE CUR_R900APD_UPD_NEW_REP DEALLOCATE CUR_R900APD_UPD_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R900APD_UPD_OLD_REP INTO @OLD_PERID, @OLD_DATSEQ, @OLD_SEQREG, @OLD_VERSEQ, @OLD_DAT1, @OLD_DAT2 FETCH NEXT FROM CUR_R900APD_UPD_NEW_REP INTO @NEW_PERID, @NEW_DATSEQ, @NEW_SEQREG, @NEW_VERSEQ, @NEW_DAT1, @NEW_DAT2 END CLOSE CUR_R900APD_UPD_OLD_REP DEALLOCATE CUR_R900APD_UPD_OLD_REP CLOSE CUR_R900APD_UPD_NEW_REP DEALLOCATE CUR_R900APD_UPD_NEW_REP FIM: END GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R900APD_AD' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R900APD_AD END GO CREATE TRIGGER wf_r900apd_ad ON r900apd FOR delete AS BEGIN DECLARE @OLD_PERID BIGINT DECLARE @OLD_DATSEQ SMALLINT DECLARE @OLD_SEQREG BIGINT DECLARE @OLD_VERSEQ BIGINT DECLARE @OLD_DAT1 VARCHAR(254) DECLARE @OLD_DAT2 VARCHAR(254) DECLARE CUR_R900APD_DEL_OLD_REP CURSOR FOR SELECT old.perid O_PERID,old.datseq O_DATSEQ,old.seqreg O_SEQREG,old.verseq O_VERSEQ,old.dat1 O_DAT1,old.dat2 O_DAT2 FROM deleted old DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R900APD_DEL_OLD_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900APD_DEL_OLD_REP DEALLOCATE CUR_R900APD_DEL_OLD_REP GOTO FIM END FETCH NEXT FROM CUR_R900APD_DEL_OLD_REP INTO @OLD_PERID, @OLD_DATSEQ, @OLD_SEQREG, @OLD_VERSEQ, @OLD_DAT1, @OLD_DAT2 WHILE (@@FETCH_STATUS = 0) BEGIN DELETE FROM [NOME_DA_BASE].DBO.R900APD WHERE (perid=@old_perid) and (datseq=@old_datseq) and (seqreg=@old_seqreg) and (verseq=@old_verseq) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900APD_DEL_OLD_REP DEALLOCATE CUR_R900APD_DEL_OLD_REP GOTO FIM END FETCH NEXT FROM CUR_R900APD_DEL_OLD_REP INTO @OLD_PERID, @OLD_DATSEQ, @OLD_SEQREG, @OLD_VERSEQ, @OLD_DAT1, @OLD_DAT2 END CLOSE CUR_R900APD_DEL_OLD_REP DEALLOCATE CUR_R900APD_DEL_OLD_REP FIM: END -- Tabela: R900CPG GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R900CPG_AI' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R900CPG_AI END GO CREATE TRIGGER wf_r900cpg_ai ON r900cpg FOR insert AS BEGIN DECLARE @NEW_PERID BIGINT DECLARE @NEW_EMAIL VARCHAR(200) DECLARE CUR_R900CPG_INS_NEW_REP CURSOR FOR SELECT new.perid N_PERID,new.email N_EMAIL FROM inserted new DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R900CPG_INS_NEW_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900CPG_INS_NEW_REP DEALLOCATE CUR_R900CPG_INS_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R900CPG_INS_NEW_REP INTO @NEW_PERID, @NEW_EMAIL WHILE (@@FETCH_STATUS = 0) BEGIN INSERT INTO [NOME_DA_BASE].DBO.R900CPG (perid,email) VALUES (@NEW_PERID,@NEW_EMAIL) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900CPG_INS_NEW_REP DEALLOCATE CUR_R900CPG_INS_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R900CPG_INS_NEW_REP INTO @NEW_PERID, @NEW_EMAIL END CLOSE CUR_R900CPG_INS_NEW_REP DEALLOCATE CUR_R900CPG_INS_NEW_REP FIM: END GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R900CPG_AU' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R900CPG_AU END GO CREATE TRIGGER wf_r900cpg_au ON r900cpg FOR update AS BEGIN DECLARE @OLD_PERID BIGINT DECLARE @OLD_EMAIL VARCHAR(200) DECLARE @NEW_PERID BIGINT DECLARE @NEW_EMAIL VARCHAR(200) DECLARE CUR_R900CPG_UPD_OLD_REP CURSOR FOR SELECT old.perid O_PERID,old.email O_EMAIL FROM deleted old DECLARE CUR_R900CPG_UPD_NEW_REP CURSOR FOR SELECT new.perid N_PERID,new.email N_EMAIL FROM inserted new DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R900CPG_UPD_OLD_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900CPG_UPD_OLD_REP DEALLOCATE CUR_R900CPG_UPD_OLD_REP CLOSE CUR_R900CPG_UPD_NEW_REP DEALLOCATE CUR_R900CPG_UPD_NEW_REP GOTO FIM END OPEN CUR_R900CPG_UPD_NEW_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900CPG_UPD_OLD_REP DEALLOCATE CUR_R900CPG_UPD_OLD_REP CLOSE CUR_R900CPG_UPD_NEW_REP DEALLOCATE CUR_R900CPG_UPD_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R900CPG_UPD_OLD_REP INTO @OLD_PERID, @OLD_EMAIL FETCH NEXT FROM CUR_R900CPG_UPD_NEW_REP INTO @NEW_PERID, @NEW_EMAIL WHILE (@@FETCH_STATUS = 0) BEGIN UPDATE [NOME_DA_BASE].DBO.R900CPG SET perid=@NEW_PERID,email=@NEW_EMAIL WHERE (perid=@old_perid) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900CPG_UPD_OLD_REP DEALLOCATE CUR_R900CPG_UPD_OLD_REP CLOSE CUR_R900CPG_UPD_NEW_REP DEALLOCATE CUR_R900CPG_UPD_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R900CPG_UPD_OLD_REP INTO @OLD_PERID, @OLD_EMAIL FETCH NEXT FROM CUR_R900CPG_UPD_NEW_REP INTO @NEW_PERID, @NEW_EMAIL END CLOSE CUR_R900CPG_UPD_OLD_REP DEALLOCATE CUR_R900CPG_UPD_OLD_REP CLOSE CUR_R900CPG_UPD_NEW_REP DEALLOCATE CUR_R900CPG_UPD_NEW_REP FIM: END GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R900CPG_AD' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R900CPG_AD END GO CREATE TRIGGER wf_r900cpg_ad ON r900cpg FOR delete AS BEGIN DECLARE @OLD_PERID BIGINT DECLARE @OLD_EMAIL VARCHAR(200) DECLARE CUR_R900CPG_DEL_OLD_REP CURSOR FOR SELECT old.perid O_PERID,old.email O_EMAIL FROM deleted old DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R900CPG_DEL_OLD_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900CPG_DEL_OLD_REP DEALLOCATE CUR_R900CPG_DEL_OLD_REP GOTO FIM END FETCH NEXT FROM CUR_R900CPG_DEL_OLD_REP INTO @OLD_PERID, @OLD_EMAIL WHILE (@@FETCH_STATUS = 0) BEGIN DELETE FROM [NOME_DA_BASE].DBO.R900CPG WHERE (perid=@old_perid) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900CPG_DEL_OLD_REP DEALLOCATE CUR_R900CPG_DEL_OLD_REP GOTO FIM END FETCH NEXT FROM CUR_R900CPG_DEL_OLD_REP INTO @OLD_PERID, @OLD_EMAIL END CLOSE CUR_R900CPG_DEL_OLD_REP DEALLOCATE CUR_R900CPG_DEL_OLD_REP FIM: END -- Tabela: R900CPL GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R900CPL_AI' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R900CPL_AI END GO CREATE TRIGGER wf_r900cpl_ai ON r900cpl FOR insert AS BEGIN DECLARE @NEW_PERID BIGINT DECLARE @NEW_FUSO SMALLINT DECLARE @NEW_HORVER VARCHAR(1) DECLARE @NEW_EMAIL VARCHAR(200) DECLARE @NEW_PrxUsr VARCHAR(254) DECLARE @NEW_PrxPsw VARCHAR(254) DECLARE @NEW_SEQREG BIGINT DECLARE CUR_R900CPL_INS_NEW_REP CURSOR FOR SELECT new.perid N_PERID,new.fuso N_FUSO,new.horver N_HORVER,new.email N_EMAIL,new.prxusr N_PrxUsr,new.prxpsw N_PrxPsw,new.seqreg N_SEQREG FROM inserted new DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R900CPL_INS_NEW_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900CPL_INS_NEW_REP DEALLOCATE CUR_R900CPL_INS_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R900CPL_INS_NEW_REP INTO @NEW_PERID, @NEW_FUSO, @NEW_HORVER, @NEW_EMAIL, @NEW_PrxUsr, @NEW_PrxPsw, @NEW_SEQREG WHILE (@@FETCH_STATUS = 0) BEGIN INSERT INTO [NOME_DA_BASE].DBO.R900CPL (perid,fuso,horver,email,prxusr,prxpsw,seqreg) VALUES (@NEW_PERID,@NEW_FUSO,@NEW_HORVER,@NEW_EMAIL,@NEW_PrxUsr,@NEW_PrxPsw,@NEW_SEQREG) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900CPL_INS_NEW_REP DEALLOCATE CUR_R900CPL_INS_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R900CPL_INS_NEW_REP INTO @NEW_PERID, @NEW_FUSO, @NEW_HORVER, @NEW_EMAIL, @NEW_PrxUsr, @NEW_PrxPsw, @NEW_SEQREG END CLOSE CUR_R900CPL_INS_NEW_REP DEALLOCATE CUR_R900CPL_INS_NEW_REP FIM: END GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R900CPL_AU' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R900CPL_AU END GO CREATE TRIGGER wf_r900cpl_au ON r900cpl FOR update AS BEGIN DECLARE @OLD_PERID BIGINT DECLARE @OLD_FUSO SMALLINT DECLARE @OLD_HORVER VARCHAR(1) DECLARE @OLD_EMAIL VARCHAR(200) DECLARE @OLD_PrxUsr VARCHAR(254) DECLARE @OLD_PrxPsw VARCHAR(254) DECLARE @OLD_SEQREG BIGINT DECLARE @NEW_PERID BIGINT DECLARE @NEW_FUSO SMALLINT DECLARE @NEW_HORVER VARCHAR(1) DECLARE @NEW_EMAIL VARCHAR(200) DECLARE @NEW_PrxUsr VARCHAR(254) DECLARE @NEW_PrxPsw VARCHAR(254) DECLARE @NEW_SEQREG BIGINT DECLARE CUR_R900CPL_UPD_OLD_REP CURSOR FOR SELECT old.perid O_PERID,old.fuso O_FUSO,old.horver O_HORVER,old.email O_EMAIL,old.prxusr O_PrxUsr,old.prxpsw O_PrxPsw,old.seqreg O_SEQREG FROM deleted old DECLARE CUR_R900CPL_UPD_NEW_REP CURSOR FOR SELECT new.perid N_PERID,new.fuso N_FUSO,new.horver N_HORVER,new.email N_EMAIL,new.prxusr N_PrxUsr,new.prxpsw N_PrxPsw,new.seqreg N_SEQREG FROM inserted new DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R900CPL_UPD_OLD_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900CPL_UPD_OLD_REP DEALLOCATE CUR_R900CPL_UPD_OLD_REP CLOSE CUR_R900CPL_UPD_NEW_REP DEALLOCATE CUR_R900CPL_UPD_NEW_REP GOTO FIM END OPEN CUR_R900CPL_UPD_NEW_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900CPL_UPD_OLD_REP DEALLOCATE CUR_R900CPL_UPD_OLD_REP CLOSE CUR_R900CPL_UPD_NEW_REP DEALLOCATE CUR_R900CPL_UPD_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R900CPL_UPD_OLD_REP INTO @OLD_PERID, @OLD_FUSO, @OLD_HORVER, @OLD_EMAIL, @OLD_PrxUsr, @OLD_PrxPsw, @OLD_SEQREG FETCH NEXT FROM CUR_R900CPL_UPD_NEW_REP INTO @NEW_PERID, @NEW_FUSO, @NEW_HORVER, @NEW_EMAIL, @NEW_PrxUsr, @NEW_PrxPsw, @NEW_SEQREG WHILE (@@FETCH_STATUS = 0) BEGIN UPDATE [NOME_DA_BASE].DBO.R900CPL SET perid=@NEW_PERID,fuso=@NEW_FUSO,horver=@NEW_HORVER,email=@NEW_EMAIL,prxusr=@NEW_PrxUsr,prxpsw=@NEW_PrxPsw,seqreg=@NEW_SEQREG WHERE (perid=@old_perid) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900CPL_UPD_OLD_REP DEALLOCATE CUR_R900CPL_UPD_OLD_REP CLOSE CUR_R900CPL_UPD_NEW_REP DEALLOCATE CUR_R900CPL_UPD_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R900CPL_UPD_OLD_REP INTO @OLD_PERID, @OLD_FUSO, @OLD_HORVER, @OLD_EMAIL, @OLD_PrxUsr, @OLD_PrxPsw, @OLD_SEQREG FETCH NEXT FROM CUR_R900CPL_UPD_NEW_REP INTO @NEW_PERID, @NEW_FUSO, @NEW_HORVER, @NEW_EMAIL, @NEW_PrxUsr, @NEW_PrxPsw, @NEW_SEQREG END CLOSE CUR_R900CPL_UPD_OLD_REP DEALLOCATE CUR_R900CPL_UPD_OLD_REP CLOSE CUR_R900CPL_UPD_NEW_REP DEALLOCATE CUR_R900CPL_UPD_NEW_REP FIM: END GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R900CPL_AD' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R900CPL_AD END GO CREATE TRIGGER wf_r900cpl_ad ON r900cpl FOR delete AS BEGIN DECLARE @OLD_PERID BIGINT DECLARE @OLD_FUSO SMALLINT DECLARE @OLD_HORVER VARCHAR(1) DECLARE @OLD_EMAIL VARCHAR(200) DECLARE @OLD_PrxUsr VARCHAR(254) DECLARE @OLD_PrxPsw VARCHAR(254) DECLARE @OLD_SEQREG BIGINT DECLARE CUR_R900CPL_DEL_OLD_REP CURSOR FOR SELECT old.perid O_PERID,old.fuso O_FUSO,old.horver O_HORVER,old.email O_EMAIL,old.prxusr O_PrxUsr,old.prxpsw O_PrxPsw,old.seqreg O_SEQREG FROM deleted old DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R900CPL_DEL_OLD_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900CPL_DEL_OLD_REP DEALLOCATE CUR_R900CPL_DEL_OLD_REP GOTO FIM END FETCH NEXT FROM CUR_R900CPL_DEL_OLD_REP INTO @OLD_PERID, @OLD_FUSO, @OLD_HORVER, @OLD_EMAIL, @OLD_PrxUsr, @OLD_PrxPsw, @OLD_SEQREG WHILE (@@FETCH_STATUS = 0) BEGIN DELETE FROM [NOME_DA_BASE].DBO.R900CPL WHERE (perid=@old_perid) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900CPL_DEL_OLD_REP DEALLOCATE CUR_R900CPL_DEL_OLD_REP GOTO FIM END FETCH NEXT FROM CUR_R900CPL_DEL_OLD_REP INTO @OLD_PERID, @OLD_FUSO, @OLD_HORVER, @OLD_EMAIL, @OLD_PrxUsr, @OLD_PrxPsw, @OLD_SEQREG END CLOSE CUR_R900CPL_DEL_OLD_REP DEALLOCATE CUR_R900CPL_DEL_OLD_REP FIM: END -- Tabela: R900DSB GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R900DSB_AI' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R900DSB_AI END GO CREATE TRIGGER wf_r900dsb_ai ON r900dsb FOR insert AS BEGIN DECLARE @NEW_DesId BIGINT DECLARE @NEW_UsrId BIGINT DECLARE @NEW_SubId BIGINT DECLARE @NEW_DatIni DATETIME DECLARE @NEW_DatFim DATETIME DECLARE @NEW_Motivo VARCHAR(127) DECLARE @NEW_DsgRec VARCHAR(1) DECLARE CUR_R900DSB_INS_NEW_REP CURSOR FOR SELECT new.desid N_DesId,new.usrid N_UsrId,new.subid N_SubId,new.datini N_DatIni,new.datfim N_DatFim,new.motivo N_Motivo,new.dsgrec N_DsgRec FROM inserted new DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R900DSB_INS_NEW_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900DSB_INS_NEW_REP DEALLOCATE CUR_R900DSB_INS_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R900DSB_INS_NEW_REP INTO @NEW_DesId, @NEW_UsrId, @NEW_SubId, @NEW_DatIni, @NEW_DatFim, @NEW_Motivo, @NEW_DsgRec WHILE (@@FETCH_STATUS = 0) BEGIN INSERT INTO [NOME_DA_BASE].DBO.R900DSB (desid,usrid,subid,datini,datfim,motivo,dsgrec) VALUES (@NEW_DesId,@NEW_UsrId,@NEW_SubId,@NEW_DatIni,@NEW_DatFim,@NEW_Motivo,@NEW_DsgRec) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900DSB_INS_NEW_REP DEALLOCATE CUR_R900DSB_INS_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R900DSB_INS_NEW_REP INTO @NEW_DesId, @NEW_UsrId, @NEW_SubId, @NEW_DatIni, @NEW_DatFim, @NEW_Motivo, @NEW_DsgRec END CLOSE CUR_R900DSB_INS_NEW_REP DEALLOCATE CUR_R900DSB_INS_NEW_REP FIM: END GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R900DSB_AU' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R900DSB_AU END GO CREATE TRIGGER wf_r900dsb_au ON r900dsb FOR update AS BEGIN DECLARE @OLD_DesId BIGINT DECLARE @OLD_UsrId BIGINT DECLARE @OLD_SubId BIGINT DECLARE @OLD_DatIni DATETIME DECLARE @OLD_DatFim DATETIME DECLARE @OLD_Motivo VARCHAR(127) DECLARE @OLD_DsgRec VARCHAR(1) DECLARE @NEW_DesId BIGINT DECLARE @NEW_UsrId BIGINT DECLARE @NEW_SubId BIGINT DECLARE @NEW_DatIni DATETIME DECLARE @NEW_DatFim DATETIME DECLARE @NEW_Motivo VARCHAR(127) DECLARE @NEW_DsgRec VARCHAR(1) DECLARE CUR_R900DSB_UPD_OLD_REP CURSOR FOR SELECT old.desid O_DesId,old.usrid O_UsrId,old.subid O_SubId,old.datini O_DatIni,old.datfim O_DatFim,old.motivo O_Motivo,old.dsgrec O_DsgRec FROM deleted old DECLARE CUR_R900DSB_UPD_NEW_REP CURSOR FOR SELECT new.desid N_DesId,new.usrid N_UsrId,new.subid N_SubId,new.datini N_DatIni,new.datfim N_DatFim,new.motivo N_Motivo,new.dsgrec N_DsgRec FROM inserted new DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R900DSB_UPD_OLD_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900DSB_UPD_OLD_REP DEALLOCATE CUR_R900DSB_UPD_OLD_REP CLOSE CUR_R900DSB_UPD_NEW_REP DEALLOCATE CUR_R900DSB_UPD_NEW_REP GOTO FIM END OPEN CUR_R900DSB_UPD_NEW_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900DSB_UPD_OLD_REP DEALLOCATE CUR_R900DSB_UPD_OLD_REP CLOSE CUR_R900DSB_UPD_NEW_REP DEALLOCATE CUR_R900DSB_UPD_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R900DSB_UPD_OLD_REP INTO @OLD_DesId, @OLD_UsrId, @OLD_SubId, @OLD_DatIni, @OLD_DatFim, @OLD_Motivo, @OLD_DsgRec FETCH NEXT FROM CUR_R900DSB_UPD_NEW_REP INTO @NEW_DesId, @NEW_UsrId, @NEW_SubId, @NEW_DatIni, @NEW_DatFim, @NEW_Motivo, @NEW_DsgRec WHILE (@@FETCH_STATUS = 0) BEGIN UPDATE [NOME_DA_BASE].DBO.R900DSB SET desid=@NEW_DesId,usrid=@NEW_UsrId,subid=@NEW_SubId,datini=@NEW_DatIni,datfim=@NEW_DatFim,motivo=@NEW_Motivo,dsgrec=@NEW_DsgRec WHERE (desid=@old_desid) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900DSB_UPD_OLD_REP DEALLOCATE CUR_R900DSB_UPD_OLD_REP CLOSE CUR_R900DSB_UPD_NEW_REP DEALLOCATE CUR_R900DSB_UPD_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R900DSB_UPD_OLD_REP INTO @OLD_DesId, @OLD_UsrId, @OLD_SubId, @OLD_DatIni, @OLD_DatFim, @OLD_Motivo, @OLD_DsgRec FETCH NEXT FROM CUR_R900DSB_UPD_NEW_REP INTO @NEW_DesId, @NEW_UsrId, @NEW_SubId, @NEW_DatIni, @NEW_DatFim, @NEW_Motivo, @NEW_DsgRec END CLOSE CUR_R900DSB_UPD_OLD_REP DEALLOCATE CUR_R900DSB_UPD_OLD_REP CLOSE CUR_R900DSB_UPD_NEW_REP DEALLOCATE CUR_R900DSB_UPD_NEW_REP FIM: END GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R900DSB_AD' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R900DSB_AD END GO CREATE TRIGGER wf_r900dsb_ad ON r900dsb FOR delete AS BEGIN DECLARE @OLD_DesId BIGINT DECLARE @OLD_UsrId BIGINT DECLARE @OLD_SubId BIGINT DECLARE @OLD_DatIni DATETIME DECLARE @OLD_DatFim DATETIME DECLARE @OLD_Motivo VARCHAR(127) DECLARE @OLD_DsgRec VARCHAR(1) DECLARE CUR_R900DSB_DEL_OLD_REP CURSOR FOR SELECT old.desid O_DesId,old.usrid O_UsrId,old.subid O_SubId,old.datini O_DatIni,old.datfim O_DatFim,old.motivo O_Motivo,old.dsgrec O_DsgRec FROM deleted old DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R900DSB_DEL_OLD_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900DSB_DEL_OLD_REP DEALLOCATE CUR_R900DSB_DEL_OLD_REP GOTO FIM END FETCH NEXT FROM CUR_R900DSB_DEL_OLD_REP INTO @OLD_DesId, @OLD_UsrId, @OLD_SubId, @OLD_DatIni, @OLD_DatFim, @OLD_Motivo, @OLD_DsgRec WHILE (@@FETCH_STATUS = 0) BEGIN DELETE FROM [NOME_DA_BASE].DBO.R900DSB WHERE (desid=@old_desid) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900DSB_DEL_OLD_REP DEALLOCATE CUR_R900DSB_DEL_OLD_REP GOTO FIM END FETCH NEXT FROM CUR_R900DSB_DEL_OLD_REP INTO @OLD_DesId, @OLD_UsrId, @OLD_SubId, @OLD_DatIni, @OLD_DatFim, @OLD_Motivo, @OLD_DsgRec END CLOSE CUR_R900DSB_DEL_OLD_REP DEALLOCATE CUR_R900DSB_DEL_OLD_REP FIM: END -- Tabela: R900GQU GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R900GQU_AI' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R900GQU_AI END GO CREATE TRIGGER wf_r900gqu_ai ON r900gqu FOR insert AS BEGIN DECLARE @NEW_TemplId VARCHAR(22) DECLARE @NEW_DatSeq SMALLINT DECLARE @NEW_Dat1 VARCHAR(254) DECLARE @NEW_Dat2 VARCHAR(254) DECLARE CUR_R900GQU_INS_NEW_REP CURSOR FOR SELECT new.templid N_TemplId,new.datseq N_DatSeq,new.dat1 N_Dat1,new.dat2 N_Dat2 FROM inserted new DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R900GQU_INS_NEW_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900GQU_INS_NEW_REP DEALLOCATE CUR_R900GQU_INS_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R900GQU_INS_NEW_REP INTO @NEW_TemplId, @NEW_DatSeq, @NEW_Dat1, @NEW_Dat2 WHILE (@@FETCH_STATUS = 0) BEGIN INSERT INTO [NOME_DA_BASE].DBO.R900GQU (templid,datseq,dat1,dat2) VALUES (@NEW_TemplId,@NEW_DatSeq,@NEW_Dat1,@NEW_Dat2) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900GQU_INS_NEW_REP DEALLOCATE CUR_R900GQU_INS_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R900GQU_INS_NEW_REP INTO @NEW_TemplId, @NEW_DatSeq, @NEW_Dat1, @NEW_Dat2 END CLOSE CUR_R900GQU_INS_NEW_REP DEALLOCATE CUR_R900GQU_INS_NEW_REP FIM: END GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R900GQU_AU' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R900GQU_AU END GO CREATE TRIGGER wf_r900gqu_au ON r900gqu FOR update AS BEGIN DECLARE @OLD_TemplId VARCHAR(22) DECLARE @OLD_DatSeq SMALLINT DECLARE @OLD_Dat1 VARCHAR(254) DECLARE @OLD_Dat2 VARCHAR(254) DECLARE @NEW_TemplId VARCHAR(22) DECLARE @NEW_DatSeq SMALLINT DECLARE @NEW_Dat1 VARCHAR(254) DECLARE @NEW_Dat2 VARCHAR(254) DECLARE CUR_R900GQU_UPD_OLD_REP CURSOR FOR SELECT old.templid O_TemplId,old.datseq O_DatSeq,old.dat1 O_Dat1,old.dat2 O_Dat2 FROM deleted old DECLARE CUR_R900GQU_UPD_NEW_REP CURSOR FOR SELECT new.templid N_TemplId,new.datseq N_DatSeq,new.dat1 N_Dat1,new.dat2 N_Dat2 FROM inserted new DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R900GQU_UPD_OLD_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900GQU_UPD_OLD_REP DEALLOCATE CUR_R900GQU_UPD_OLD_REP CLOSE CUR_R900GQU_UPD_NEW_REP DEALLOCATE CUR_R900GQU_UPD_NEW_REP GOTO FIM END OPEN CUR_R900GQU_UPD_NEW_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900GQU_UPD_OLD_REP DEALLOCATE CUR_R900GQU_UPD_OLD_REP CLOSE CUR_R900GQU_UPD_NEW_REP DEALLOCATE CUR_R900GQU_UPD_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R900GQU_UPD_OLD_REP INTO @OLD_TemplId, @OLD_DatSeq, @OLD_Dat1, @OLD_Dat2 FETCH NEXT FROM CUR_R900GQU_UPD_NEW_REP INTO @NEW_TemplId, @NEW_DatSeq, @NEW_Dat1, @NEW_Dat2 WHILE (@@FETCH_STATUS = 0) BEGIN UPDATE [NOME_DA_BASE].DBO.R900GQU SET templid=@NEW_TemplId,datseq=@NEW_DatSeq,dat1=@NEW_Dat1,dat2=@NEW_Dat2 WHERE (templid=@old_templid) and (datseq=@old_datseq) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900GQU_UPD_OLD_REP DEALLOCATE CUR_R900GQU_UPD_OLD_REP CLOSE CUR_R900GQU_UPD_NEW_REP DEALLOCATE CUR_R900GQU_UPD_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R900GQU_UPD_OLD_REP INTO @OLD_TemplId, @OLD_DatSeq, @OLD_Dat1, @OLD_Dat2 FETCH NEXT FROM CUR_R900GQU_UPD_NEW_REP INTO @NEW_TemplId, @NEW_DatSeq, @NEW_Dat1, @NEW_Dat2 END CLOSE CUR_R900GQU_UPD_OLD_REP DEALLOCATE CUR_R900GQU_UPD_OLD_REP CLOSE CUR_R900GQU_UPD_NEW_REP DEALLOCATE CUR_R900GQU_UPD_NEW_REP FIM: END GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R900GQU_AD' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R900GQU_AD END GO CREATE TRIGGER wf_r900gqu_ad ON r900gqu FOR delete AS BEGIN DECLARE @OLD_TemplId VARCHAR(22) DECLARE @OLD_DatSeq SMALLINT DECLARE @OLD_Dat1 VARCHAR(254) DECLARE @OLD_Dat2 VARCHAR(254) DECLARE CUR_R900GQU_DEL_OLD_REP CURSOR FOR SELECT old.templid O_TemplId,old.datseq O_DatSeq,old.dat1 O_Dat1,old.dat2 O_Dat2 FROM deleted old DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R900GQU_DEL_OLD_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900GQU_DEL_OLD_REP DEALLOCATE CUR_R900GQU_DEL_OLD_REP GOTO FIM END FETCH NEXT FROM CUR_R900GQU_DEL_OLD_REP INTO @OLD_TemplId, @OLD_DatSeq, @OLD_Dat1, @OLD_Dat2 WHILE (@@FETCH_STATUS = 0) BEGIN DELETE FROM [NOME_DA_BASE].DBO.R900GQU WHERE (templid=@old_templid) and (datseq=@old_datseq) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900GQU_DEL_OLD_REP DEALLOCATE CUR_R900GQU_DEL_OLD_REP GOTO FIM END FETCH NEXT FROM CUR_R900GQU_DEL_OLD_REP INTO @OLD_TemplId, @OLD_DatSeq, @OLD_Dat1, @OLD_Dat2 END CLOSE CUR_R900GQU_DEL_OLD_REP DEALLOCATE CUR_R900GQU_DEL_OLD_REP FIM: END -- Tabela: R900GRP GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R900GRP_AI' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R900GRP_AI END GO CREATE TRIGGER wf_r900grp_ai ON r900grp FOR insert AS BEGIN DECLARE @NEW_GRPID BIGINT DECLARE @NEW_MEMID BIGINT DECLARE CUR_R900GRP_INS_NEW_REP CURSOR FOR SELECT new.grpid N_GRPID,new.memid N_MEMID FROM inserted new DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R900GRP_INS_NEW_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900GRP_INS_NEW_REP DEALLOCATE CUR_R900GRP_INS_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R900GRP_INS_NEW_REP INTO @NEW_GRPID, @NEW_MEMID WHILE (@@FETCH_STATUS = 0) BEGIN INSERT INTO [NOME_DA_BASE].DBO.R900GRP (grpid,memid) VALUES (@NEW_GRPID,@NEW_MEMID) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900GRP_INS_NEW_REP DEALLOCATE CUR_R900GRP_INS_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R900GRP_INS_NEW_REP INTO @NEW_GRPID, @NEW_MEMID END CLOSE CUR_R900GRP_INS_NEW_REP DEALLOCATE CUR_R900GRP_INS_NEW_REP FIM: END GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R900GRP_AU' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R900GRP_AU END GO CREATE TRIGGER wf_r900grp_au ON r900grp FOR update AS BEGIN DECLARE @OLD_GRPID BIGINT DECLARE @OLD_MEMID BIGINT DECLARE @NEW_GRPID BIGINT DECLARE @NEW_MEMID BIGINT DECLARE CUR_R900GRP_UPD_OLD_REP CURSOR FOR SELECT old.grpid O_GRPID,old.memid O_MEMID FROM deleted old DECLARE CUR_R900GRP_UPD_NEW_REP CURSOR FOR SELECT new.grpid N_GRPID,new.memid N_MEMID FROM inserted new DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R900GRP_UPD_OLD_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900GRP_UPD_OLD_REP DEALLOCATE CUR_R900GRP_UPD_OLD_REP CLOSE CUR_R900GRP_UPD_NEW_REP DEALLOCATE CUR_R900GRP_UPD_NEW_REP GOTO FIM END OPEN CUR_R900GRP_UPD_NEW_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900GRP_UPD_OLD_REP DEALLOCATE CUR_R900GRP_UPD_OLD_REP CLOSE CUR_R900GRP_UPD_NEW_REP DEALLOCATE CUR_R900GRP_UPD_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R900GRP_UPD_OLD_REP INTO @OLD_GRPID, @OLD_MEMID FETCH NEXT FROM CUR_R900GRP_UPD_NEW_REP INTO @NEW_GRPID, @NEW_MEMID WHILE (@@FETCH_STATUS = 0) BEGIN UPDATE [NOME_DA_BASE].DBO.R900GRP SET grpid=@NEW_GRPID,memid=@NEW_MEMID WHERE (grpid=@old_grpid) and (memid=@old_memid) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900GRP_UPD_OLD_REP DEALLOCATE CUR_R900GRP_UPD_OLD_REP CLOSE CUR_R900GRP_UPD_NEW_REP DEALLOCATE CUR_R900GRP_UPD_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R900GRP_UPD_OLD_REP INTO @OLD_GRPID, @OLD_MEMID FETCH NEXT FROM CUR_R900GRP_UPD_NEW_REP INTO @NEW_GRPID, @NEW_MEMID END CLOSE CUR_R900GRP_UPD_OLD_REP DEALLOCATE CUR_R900GRP_UPD_OLD_REP CLOSE CUR_R900GRP_UPD_NEW_REP DEALLOCATE CUR_R900GRP_UPD_NEW_REP FIM: END GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R900GRP_AD' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R900GRP_AD END GO CREATE TRIGGER wf_r900grp_ad ON r900grp FOR delete AS BEGIN DECLARE @OLD_GRPID BIGINT DECLARE @OLD_MEMID BIGINT DECLARE CUR_R900GRP_DEL_OLD_REP CURSOR FOR SELECT old.grpid O_GRPID,old.memid O_MEMID FROM deleted old DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R900GRP_DEL_OLD_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900GRP_DEL_OLD_REP DEALLOCATE CUR_R900GRP_DEL_OLD_REP GOTO FIM END FETCH NEXT FROM CUR_R900GRP_DEL_OLD_REP INTO @OLD_GRPID, @OLD_MEMID WHILE (@@FETCH_STATUS = 0) BEGIN DELETE FROM [NOME_DA_BASE].DBO.R900GRP WHERE (grpid=@old_grpid) and (memid=@old_memid) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900GRP_DEL_OLD_REP DEALLOCATE CUR_R900GRP_DEL_OLD_REP GOTO FIM END FETCH NEXT FROM CUR_R900GRP_DEL_OLD_REP INTO @OLD_GRPID, @OLD_MEMID END CLOSE CUR_R900GRP_DEL_OLD_REP DEALLOCATE CUR_R900GRP_DEL_OLD_REP FIM: END -- Tabela: R900LDC GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R900LDC_AI' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R900LDC_AI END GO CREATE TRIGGER wf_r900ldc_ai ON r900ldc FOR insert AS BEGIN DECLARE @NEW_SVRNAM VARCHAR(255) DECLARE @NEW_PORT INTEGER DECLARE @NEW_BASEDN VARCHAR(999) DECLARE @NEW_FILTER VARCHAR(255) DECLARE @NEW_ESCFND SMALLINT DECLARE @NEW_VERSION SMALLINT DECLARE @NEW_USERNA VARCHAR(255) DECLARE @NEW_PASSW VARCHAR(255) DECLARE @NEW_GRPID BIGINT DECLARE @NEW_ENABLE VARCHAR(1) DECLARE @NEW_INSUSE VARCHAR(1) DECLARE @NEW_OBJCLS VARCHAR(255) DECLARE @NEW_ATUSNA VARCHAR(255) DECLARE @NEW_ATUSDN VARCHAR(255) DECLARE @NEW_ATUSDS VARCHAR(255) DECLARE @NEW_LPFAIL VARCHAR(1) DECLARE CUR_R900LDC_INS_NEW_REP CURSOR FOR SELECT new.svrnam N_SVRNAM,new.port N_PORT,new.basedn N_BASEDN,new.filter N_FILTER,new.escfnd N_ESCFND,new.version N_VERSION,new.userna N_USERNA,new.passw N_PASSW,new.grpid N_GRPID,new.enable N_ENABLE, new.insuse N_INSUSE,new.objcls N_OBJCLS,new.atusna N_ATUSNA,new.atusdn N_ATUSDN,new.atusds N_ATUSDS,new.lpfail N_LPFAIL FROM inserted new DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R900LDC_INS_NEW_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900LDC_INS_NEW_REP DEALLOCATE CUR_R900LDC_INS_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R900LDC_INS_NEW_REP INTO @NEW_SVRNAM, @NEW_PORT, @NEW_BASEDN, @NEW_FILTER, @NEW_ESCFND, @NEW_VERSION, @NEW_USERNA, @NEW_PASSW, @NEW_GRPID, @NEW_ENABLE, @NEW_INSUSE, @NEW_OBJCLS, @NEW_ATUSNA, @NEW_ATUSDN, @NEW_ATUSDS, @NEW_LPFAIL WHILE (@@FETCH_STATUS = 0) BEGIN INSERT INTO [NOME_DA_BASE].DBO.R900LDC (svrnam,port,basedn,filter,escfnd,version,userna,passw,grpid,enable,insuse,objcls,atusna,atusdn,atusds,lpfail) VALUES (@NEW_SVRNAM,@NEW_PORT,@NEW_BASEDN,@NEW_FILTER,@NEW_ESCFND,@NEW_VERSION,@NEW_USERNA,@NEW_PASSW,@NEW_GRPID,@NEW_ENABLE,@NEW_INSUSE,@NEW_OBJCLS,@NEW_ATUSNA,@NEW_ATUSDN,@NEW_ATUSDS,@NEW_LPFAIL) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900LDC_INS_NEW_REP DEALLOCATE CUR_R900LDC_INS_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R900LDC_INS_NEW_REP INTO @NEW_SVRNAM, @NEW_PORT, @NEW_BASEDN, @NEW_FILTER, @NEW_ESCFND, @NEW_VERSION, @NEW_USERNA, @NEW_PASSW, @NEW_GRPID, @NEW_ENABLE, @NEW_INSUSE, @NEW_OBJCLS, @NEW_ATUSNA, @NEW_ATUSDN, @NEW_ATUSDS, @NEW_LPFAIL END CLOSE CUR_R900LDC_INS_NEW_REP DEALLOCATE CUR_R900LDC_INS_NEW_REP FIM: END GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R900LDC_AU' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R900LDC_AU END GO CREATE TRIGGER wf_r900ldc_au ON r900ldc FOR update AS BEGIN DECLARE @OLD_SVRNAM VARCHAR(255) DECLARE @OLD_PORT INTEGER DECLARE @OLD_BASEDN VARCHAR(999) DECLARE @OLD_FILTER VARCHAR(255) DECLARE @OLD_ESCFND SMALLINT DECLARE @OLD_VERSION SMALLINT DECLARE @OLD_USERNA VARCHAR(255) DECLARE @OLD_PASSW VARCHAR(255) DECLARE @OLD_GRPID BIGINT DECLARE @OLD_ENABLE VARCHAR(1) DECLARE @OLD_INSUSE VARCHAR(1) DECLARE @OLD_OBJCLS VARCHAR(255) DECLARE @OLD_ATUSNA VARCHAR(255) DECLARE @OLD_ATUSDN VARCHAR(255) DECLARE @OLD_ATUSDS VARCHAR(255) DECLARE @OLD_LPFAIL VARCHAR(1) DECLARE @NEW_SVRNAM VARCHAR(255) DECLARE @NEW_PORT INTEGER DECLARE @NEW_BASEDN VARCHAR(999) DECLARE @NEW_FILTER VARCHAR(255) DECLARE @NEW_ESCFND SMALLINT DECLARE @NEW_VERSION SMALLINT DECLARE @NEW_USERNA VARCHAR(255) DECLARE @NEW_PASSW VARCHAR(255) DECLARE @NEW_GRPID BIGINT DECLARE @NEW_ENABLE VARCHAR(1) DECLARE @NEW_INSUSE VARCHAR(1) DECLARE @NEW_OBJCLS VARCHAR(255) DECLARE @NEW_ATUSNA VARCHAR(255) DECLARE @NEW_ATUSDN VARCHAR(255) DECLARE @NEW_ATUSDS VARCHAR(255) DECLARE @NEW_LPFAIL VARCHAR(1) DECLARE CUR_R900LDC_UPD_OLD_REP CURSOR FOR SELECT old.svrnam O_SVRNAM,old.port O_PORT,old.basedn O_BASEDN,old.filter O_FILTER,old.escfnd O_ESCFND,old.version O_VERSION,old.userna O_USERNA,old.passw O_PASSW,old.grpid O_GRPID,old.enable O_ENABLE, old.insuse O_INSUSE,old.objcls O_OBJCLS,old.atusna O_ATUSNA,old.atusdn O_ATUSDN,old.atusds O_ATUSDS,old.lpfail O_LPFAIL FROM deleted old DECLARE CUR_R900LDC_UPD_NEW_REP CURSOR FOR SELECT new.svrnam N_SVRNAM,new.port N_PORT,new.basedn N_BASEDN,new.filter N_FILTER,new.escfnd N_ESCFND,new.version N_VERSION,new.userna N_USERNA,new.passw N_PASSW,new.grpid N_GRPID,new.enable N_ENABLE, new.insuse N_INSUSE,new.objcls N_OBJCLS,new.atusna N_ATUSNA,new.atusdn N_ATUSDN,new.atusds N_ATUSDS,new.lpfail N_LPFAIL FROM inserted new DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R900LDC_UPD_OLD_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900LDC_UPD_OLD_REP DEALLOCATE CUR_R900LDC_UPD_OLD_REP CLOSE CUR_R900LDC_UPD_NEW_REP DEALLOCATE CUR_R900LDC_UPD_NEW_REP GOTO FIM END OPEN CUR_R900LDC_UPD_NEW_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900LDC_UPD_OLD_REP DEALLOCATE CUR_R900LDC_UPD_OLD_REP CLOSE CUR_R900LDC_UPD_NEW_REP DEALLOCATE CUR_R900LDC_UPD_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R900LDC_UPD_OLD_REP INTO @OLD_SVRNAM, @OLD_PORT, @OLD_BASEDN, @OLD_FILTER, @OLD_ESCFND, @OLD_VERSION, @OLD_USERNA, @OLD_PASSW, @OLD_GRPID, @OLD_ENABLE, @OLD_INSUSE, @OLD_OBJCLS, @OLD_ATUSNA, @OLD_ATUSDN, @OLD_ATUSDS, @OLD_LPFAIL FETCH NEXT FROM CUR_R900LDC_UPD_NEW_REP INTO @NEW_SVRNAM, @NEW_PORT, @NEW_BASEDN, @NEW_FILTER, @NEW_ESCFND, @NEW_VERSION, @NEW_USERNA, @NEW_PASSW, @NEW_GRPID, @NEW_ENABLE, @NEW_INSUSE, @NEW_OBJCLS, @NEW_ATUSNA, @NEW_ATUSDN, @NEW_ATUSDS, @NEW_LPFAIL WHILE (@@FETCH_STATUS = 0) BEGIN UPDATE [NOME_DA_BASE].DBO.R900LDC SET svrnam=@NEW_SVRNAM,port=@NEW_PORT,basedn=@NEW_BASEDN,filter=@NEW_FILTER,escfnd=@NEW_ESCFND,version=@NEW_VERSION,userna=@NEW_USERNA,passw=@NEW_PASSW,grpid=@NEW_GRPID,enable=@NEW_ENABLE,insuse=@NEW_INSUSE,objcls=@NEW_OBJCLS,atusna=@NEW_ATUSNA,atusdn=@NEW_ATUSDN,atusds=@NEW_ATUSDS,lpfail=@NEW_LPFAIL WHERE ((svrnam is null and @old_svrnam is null) or (svrnam=@old_svrnam)) and ((port is null and @old_port is null) or (port=@old_port)) and ((basedn is null and @old_basedn is null) or (basedn=@old_basedn)) and ((filter is null and @old_filter is null) or (filter=@old_filter)) and ((escfnd is null and @old_escfnd is null) or (escfnd=@old_escfnd)) and ((version is null and @old_version is null) or (version=@old_version)) and ((userna is null and @old_userna is null) or (userna=@old_userna)) and ((passw is null and @old_passw is null) or (passw=@old_passw)) and ((grpid is null and @old_grpid is null) or (grpid=@old_grpid)) and ((enable is null and @old_enable is null) or (enable=@old_enable)) and ((insuse is null and @old_insuse is null) or (insuse=@old_insuse)) and ((objcls is null and @old_objcls is null) or (objcls=@old_objcls)) and ((atusna is null and @old_atusna is null) or (atusna=@old_atusna)) and ((atusdn is null and @old_atusdn is null) or (atusdn=@old_atusdn)) and ((atusds is null and @old_atusds is null) or (atusds=@old_atusds)) and ((lpfail is null and @old_lpfail is null) or (lpfail=@old_lpfail)) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900LDC_UPD_OLD_REP DEALLOCATE CUR_R900LDC_UPD_OLD_REP CLOSE CUR_R900LDC_UPD_NEW_REP DEALLOCATE CUR_R900LDC_UPD_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R900LDC_UPD_OLD_REP INTO @OLD_SVRNAM, @OLD_PORT, @OLD_BASEDN, @OLD_FILTER, @OLD_ESCFND, @OLD_VERSION, @OLD_USERNA, @OLD_PASSW, @OLD_GRPID, @OLD_ENABLE, @OLD_INSUSE, @OLD_OBJCLS, @OLD_ATUSNA, @OLD_ATUSDN, @OLD_ATUSDS, @OLD_LPFAIL FETCH NEXT FROM CUR_R900LDC_UPD_NEW_REP INTO @NEW_SVRNAM, @NEW_PORT, @NEW_BASEDN, @NEW_FILTER, @NEW_ESCFND, @NEW_VERSION, @NEW_USERNA, @NEW_PASSW, @NEW_GRPID, @NEW_ENABLE, @NEW_INSUSE, @NEW_OBJCLS, @NEW_ATUSNA, @NEW_ATUSDN, @NEW_ATUSDS, @NEW_LPFAIL END CLOSE CUR_R900LDC_UPD_OLD_REP DEALLOCATE CUR_R900LDC_UPD_OLD_REP CLOSE CUR_R900LDC_UPD_NEW_REP DEALLOCATE CUR_R900LDC_UPD_NEW_REP FIM: END GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R900LDC_AD' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R900LDC_AD END GO CREATE TRIGGER wf_r900ldc_ad ON r900ldc FOR delete AS BEGIN DECLARE @OLD_SVRNAM VARCHAR(255) DECLARE @OLD_PORT INTEGER DECLARE @OLD_BASEDN VARCHAR(999) DECLARE @OLD_FILTER VARCHAR(255) DECLARE @OLD_ESCFND SMALLINT DECLARE @OLD_VERSION SMALLINT DECLARE @OLD_USERNA VARCHAR(255) DECLARE @OLD_PASSW VARCHAR(255) DECLARE @OLD_GRPID BIGINT DECLARE @OLD_ENABLE VARCHAR(1) DECLARE @OLD_INSUSE VARCHAR(1) DECLARE @OLD_OBJCLS VARCHAR(255) DECLARE @OLD_ATUSNA VARCHAR(255) DECLARE @OLD_ATUSDN VARCHAR(255) DECLARE @OLD_ATUSDS VARCHAR(255) DECLARE @OLD_LPFAIL VARCHAR(1) DECLARE CUR_R900LDC_DEL_OLD_REP CURSOR FOR SELECT old.svrnam O_SVRNAM,old.port O_PORT,old.basedn O_BASEDN,old.filter O_FILTER,old.escfnd O_ESCFND,old.version O_VERSION,old.userna O_USERNA,old.passw O_PASSW,old.grpid O_GRPID,old.enable O_ENABLE, old.insuse O_INSUSE,old.objcls O_OBJCLS,old.atusna O_ATUSNA,old.atusdn O_ATUSDN,old.atusds O_ATUSDS,old.lpfail O_LPFAIL FROM deleted old DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R900LDC_DEL_OLD_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900LDC_DEL_OLD_REP DEALLOCATE CUR_R900LDC_DEL_OLD_REP GOTO FIM END FETCH NEXT FROM CUR_R900LDC_DEL_OLD_REP INTO @OLD_SVRNAM, @OLD_PORT, @OLD_BASEDN, @OLD_FILTER, @OLD_ESCFND, @OLD_VERSION, @OLD_USERNA, @OLD_PASSW, @OLD_GRPID, @OLD_ENABLE, @OLD_INSUSE, @OLD_OBJCLS, @OLD_ATUSNA, @OLD_ATUSDN, @OLD_ATUSDS, @OLD_LPFAIL WHILE (@@FETCH_STATUS = 0) BEGIN DELETE FROM [NOME_DA_BASE].DBO.R900LDC WHERE ((svrnam is null and @old_svrnam is null) or (svrnam=@old_svrnam)) and ((port is null and @old_port is null) or (port=@old_port)) and ((basedn is null and @old_basedn is null) or (basedn=@old_basedn)) and ((filter is null and @old_filter is null) or (filter=@old_filter)) and ((escfnd is null and @old_escfnd is null) or (escfnd=@old_escfnd)) and ((version is null and @old_version is null) or (version=@old_version)) and ((userna is null and @old_userna is null) or (userna=@old_userna)) and ((passw is null and @old_passw is null) or (passw=@old_passw)) and ((grpid is null and @old_grpid is null) or (grpid=@old_grpid)) and ((enable is null and @old_enable is null) or (enable=@old_enable)) and ((insuse is null and @old_insuse is null) or (insuse=@old_insuse)) and ((objcls is null and @old_objcls is null) or (objcls=@old_objcls)) and ((atusna is null and @old_atusna is null) or (atusna=@old_atusna)) and ((atusdn is null and @old_atusdn is null) or (atusdn=@old_atusdn)) and ((atusds is null and @old_atusds is null) or (atusds=@old_atusds)) and ((lpfail is null and @old_lpfail is null) or (lpfail=@old_lpfail)) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900LDC_DEL_OLD_REP DEALLOCATE CUR_R900LDC_DEL_OLD_REP GOTO FIM END FETCH NEXT FROM CUR_R900LDC_DEL_OLD_REP INTO @OLD_SVRNAM, @OLD_PORT, @OLD_BASEDN, @OLD_FILTER, @OLD_ESCFND, @OLD_VERSION, @OLD_USERNA, @OLD_PASSW, @OLD_GRPID, @OLD_ENABLE, @OLD_INSUSE, @OLD_OBJCLS, @OLD_ATUSNA, @OLD_ATUSDN, @OLD_ATUSDS, @OLD_LPFAIL END CLOSE CUR_R900LDC_DEL_OLD_REP DEALLOCATE CUR_R900LDC_DEL_OLD_REP FIM: END -- Tabela: R900LSO GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R900LSO_AI' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R900LSO_AI END GO CREATE TRIGGER wf_r900lso_ai ON r900lso FOR insert AS BEGIN DECLARE @NEW_LOGOPT SMALLINT DECLARE @NEW_VLPath VARCHAR(255) DECLARE @NEW_SRVNAM VARCHAR(30) DECLARE @NEW_SRVIP VARCHAR(15) DECLARE CUR_R900LSO_INS_NEW_REP CURSOR FOR SELECT new.logopt N_LOGOPT,new.vlpath N_VLPath,new.srvnam N_SRVNAM,new.srvip N_SRVIP FROM inserted new DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R900LSO_INS_NEW_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900LSO_INS_NEW_REP DEALLOCATE CUR_R900LSO_INS_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R900LSO_INS_NEW_REP INTO @NEW_LOGOPT, @NEW_VLPath, @NEW_SRVNAM, @NEW_SRVIP WHILE (@@FETCH_STATUS = 0) BEGIN INSERT INTO [NOME_DA_BASE].DBO.R900LSO (logopt,vlpath,srvnam,srvip) VALUES (@NEW_LOGOPT,@NEW_VLPath,@NEW_SRVNAM,@NEW_SRVIP) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900LSO_INS_NEW_REP DEALLOCATE CUR_R900LSO_INS_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R900LSO_INS_NEW_REP INTO @NEW_LOGOPT, @NEW_VLPath, @NEW_SRVNAM, @NEW_SRVIP END CLOSE CUR_R900LSO_INS_NEW_REP DEALLOCATE CUR_R900LSO_INS_NEW_REP FIM: END GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R900LSO_AU' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R900LSO_AU END GO CREATE TRIGGER wf_r900lso_au ON r900lso FOR update AS BEGIN DECLARE @OLD_LOGOPT SMALLINT DECLARE @OLD_VLPath VARCHAR(255) DECLARE @OLD_SRVNAM VARCHAR(30) DECLARE @OLD_SRVIP VARCHAR(15) DECLARE @NEW_LOGOPT SMALLINT DECLARE @NEW_VLPath VARCHAR(255) DECLARE @NEW_SRVNAM VARCHAR(30) DECLARE @NEW_SRVIP VARCHAR(15) DECLARE CUR_R900LSO_UPD_OLD_REP CURSOR FOR SELECT old.logopt O_LOGOPT,old.vlpath O_VLPath,old.srvnam O_SRVNAM,old.srvip O_SRVIP FROM deleted old DECLARE CUR_R900LSO_UPD_NEW_REP CURSOR FOR SELECT new.logopt N_LOGOPT,new.vlpath N_VLPath,new.srvnam N_SRVNAM,new.srvip N_SRVIP FROM inserted new DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R900LSO_UPD_OLD_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900LSO_UPD_OLD_REP DEALLOCATE CUR_R900LSO_UPD_OLD_REP CLOSE CUR_R900LSO_UPD_NEW_REP DEALLOCATE CUR_R900LSO_UPD_NEW_REP GOTO FIM END OPEN CUR_R900LSO_UPD_NEW_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900LSO_UPD_OLD_REP DEALLOCATE CUR_R900LSO_UPD_OLD_REP CLOSE CUR_R900LSO_UPD_NEW_REP DEALLOCATE CUR_R900LSO_UPD_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R900LSO_UPD_OLD_REP INTO @OLD_LOGOPT, @OLD_VLPath, @OLD_SRVNAM, @OLD_SRVIP FETCH NEXT FROM CUR_R900LSO_UPD_NEW_REP INTO @NEW_LOGOPT, @NEW_VLPath, @NEW_SRVNAM, @NEW_SRVIP WHILE (@@FETCH_STATUS = 0) BEGIN UPDATE [NOME_DA_BASE].DBO.R900LSO SET logopt=@NEW_LOGOPT,vlpath=@NEW_VLPath,srvnam=@NEW_SRVNAM,srvip=@NEW_SRVIP WHERE ((logopt is null and @old_logopt is null) or (logopt=@old_logopt)) and ((vlpath is null and @old_vlpath is null) or (vlpath=@old_vlpath)) and ((srvnam is null and @old_srvnam is null) or (srvnam=@old_srvnam)) and ((srvip is null and @old_srvip is null) or (srvip=@old_srvip)) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900LSO_UPD_OLD_REP DEALLOCATE CUR_R900LSO_UPD_OLD_REP CLOSE CUR_R900LSO_UPD_NEW_REP DEALLOCATE CUR_R900LSO_UPD_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R900LSO_UPD_OLD_REP INTO @OLD_LOGOPT, @OLD_VLPath, @OLD_SRVNAM, @OLD_SRVIP FETCH NEXT FROM CUR_R900LSO_UPD_NEW_REP INTO @NEW_LOGOPT, @NEW_VLPath, @NEW_SRVNAM, @NEW_SRVIP END CLOSE CUR_R900LSO_UPD_OLD_REP DEALLOCATE CUR_R900LSO_UPD_OLD_REP CLOSE CUR_R900LSO_UPD_NEW_REP DEALLOCATE CUR_R900LSO_UPD_NEW_REP FIM: END GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R900LSO_AD' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R900LSO_AD END GO CREATE TRIGGER wf_r900lso_ad ON r900lso FOR delete AS BEGIN DECLARE @OLD_LOGOPT SMALLINT DECLARE @OLD_VLPath VARCHAR(255) DECLARE @OLD_SRVNAM VARCHAR(30) DECLARE @OLD_SRVIP VARCHAR(15) DECLARE CUR_R900LSO_DEL_OLD_REP CURSOR FOR SELECT old.logopt O_LOGOPT,old.vlpath O_VLPath,old.srvnam O_SRVNAM,old.srvip O_SRVIP FROM deleted old DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R900LSO_DEL_OLD_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900LSO_DEL_OLD_REP DEALLOCATE CUR_R900LSO_DEL_OLD_REP GOTO FIM END FETCH NEXT FROM CUR_R900LSO_DEL_OLD_REP INTO @OLD_LOGOPT, @OLD_VLPath, @OLD_SRVNAM, @OLD_SRVIP WHILE (@@FETCH_STATUS = 0) BEGIN DELETE FROM [NOME_DA_BASE].DBO.R900LSO WHERE ((logopt is null and @old_logopt is null) or (logopt=@old_logopt)) and ((vlpath is null and @old_vlpath is null) or (vlpath=@old_vlpath)) and ((srvnam is null and @old_srvnam is null) or (srvnam=@old_srvnam)) and ((srvip is null and @old_srvip is null) or (srvip=@old_srvip)) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900LSO_DEL_OLD_REP DEALLOCATE CUR_R900LSO_DEL_OLD_REP GOTO FIM END FETCH NEXT FROM CUR_R900LSO_DEL_OLD_REP INTO @OLD_LOGOPT, @OLD_VLPath, @OLD_SRVNAM, @OLD_SRVIP END CLOSE CUR_R900LSO_DEL_OLD_REP DEALLOCATE CUR_R900LSO_DEL_OLD_REP FIM: END -- Tabela: R900PDT GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R900PDT_AI' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R900PDT_AI END GO CREATE TRIGGER wf_r900pdt_ai ON r900pdt FOR insert AS BEGIN DECLARE @NEW_PERID BIGINT DECLARE @NEW_DATSEQ SMALLINT DECLARE @NEW_DAT1 VARCHAR(254) DECLARE @NEW_DAT2 VARCHAR(254) DECLARE @NEW_SEQREG BIGINT DECLARE CUR_R900PDT_INS_NEW_REP CURSOR FOR SELECT new.perid N_PERID,new.datseq N_DATSEQ,new.dat1 N_DAT1,new.dat2 N_DAT2,new.seqreg N_SEQREG FROM inserted new DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R900PDT_INS_NEW_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900PDT_INS_NEW_REP DEALLOCATE CUR_R900PDT_INS_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R900PDT_INS_NEW_REP INTO @NEW_PERID, @NEW_DATSEQ, @NEW_DAT1, @NEW_DAT2, @NEW_SEQREG WHILE (@@FETCH_STATUS = 0) BEGIN INSERT INTO [NOME_DA_BASE].DBO.R900PDT (perid,datseq,dat1,dat2,seqreg) VALUES (@NEW_PERID,@NEW_DATSEQ,@NEW_DAT1,@NEW_DAT2,@NEW_SEQREG) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900PDT_INS_NEW_REP DEALLOCATE CUR_R900PDT_INS_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R900PDT_INS_NEW_REP INTO @NEW_PERID, @NEW_DATSEQ, @NEW_DAT1, @NEW_DAT2, @NEW_SEQREG END CLOSE CUR_R900PDT_INS_NEW_REP DEALLOCATE CUR_R900PDT_INS_NEW_REP FIM: END GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R900PDT_AU' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R900PDT_AU END GO CREATE TRIGGER wf_r900pdt_au ON r900pdt FOR update AS BEGIN DECLARE @OLD_PERID BIGINT DECLARE @OLD_DATSEQ SMALLINT DECLARE @OLD_DAT1 VARCHAR(254) DECLARE @OLD_DAT2 VARCHAR(254) DECLARE @OLD_SEQREG BIGINT DECLARE @NEW_PERID BIGINT DECLARE @NEW_DATSEQ SMALLINT DECLARE @NEW_DAT1 VARCHAR(254) DECLARE @NEW_DAT2 VARCHAR(254) DECLARE @NEW_SEQREG BIGINT DECLARE CUR_R900PDT_UPD_OLD_REP CURSOR FOR SELECT old.perid O_PERID,old.datseq O_DATSEQ,old.dat1 O_DAT1,old.dat2 O_DAT2,old.seqreg O_SEQREG FROM deleted old DECLARE CUR_R900PDT_UPD_NEW_REP CURSOR FOR SELECT new.perid N_PERID,new.datseq N_DATSEQ,new.dat1 N_DAT1,new.dat2 N_DAT2,new.seqreg N_SEQREG FROM inserted new DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R900PDT_UPD_OLD_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900PDT_UPD_OLD_REP DEALLOCATE CUR_R900PDT_UPD_OLD_REP CLOSE CUR_R900PDT_UPD_NEW_REP DEALLOCATE CUR_R900PDT_UPD_NEW_REP GOTO FIM END OPEN CUR_R900PDT_UPD_NEW_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900PDT_UPD_OLD_REP DEALLOCATE CUR_R900PDT_UPD_OLD_REP CLOSE CUR_R900PDT_UPD_NEW_REP DEALLOCATE CUR_R900PDT_UPD_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R900PDT_UPD_OLD_REP INTO @OLD_PERID, @OLD_DATSEQ, @OLD_DAT1, @OLD_DAT2, @OLD_SEQREG FETCH NEXT FROM CUR_R900PDT_UPD_NEW_REP INTO @NEW_PERID, @NEW_DATSEQ, @NEW_DAT1, @NEW_DAT2, @NEW_SEQREG WHILE (@@FETCH_STATUS = 0) BEGIN UPDATE [NOME_DA_BASE].DBO.R900PDT SET perid=@NEW_PERID,datseq=@NEW_DATSEQ,dat1=@NEW_DAT1,dat2=@NEW_DAT2,seqreg=@NEW_SEQREG WHERE (perid=@old_perid) and (datseq=@old_datseq) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900PDT_UPD_OLD_REP DEALLOCATE CUR_R900PDT_UPD_OLD_REP CLOSE CUR_R900PDT_UPD_NEW_REP DEALLOCATE CUR_R900PDT_UPD_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R900PDT_UPD_OLD_REP INTO @OLD_PERID, @OLD_DATSEQ, @OLD_DAT1, @OLD_DAT2, @OLD_SEQREG FETCH NEXT FROM CUR_R900PDT_UPD_NEW_REP INTO @NEW_PERID, @NEW_DATSEQ, @NEW_DAT1, @NEW_DAT2, @NEW_SEQREG END CLOSE CUR_R900PDT_UPD_OLD_REP DEALLOCATE CUR_R900PDT_UPD_OLD_REP CLOSE CUR_R900PDT_UPD_NEW_REP DEALLOCATE CUR_R900PDT_UPD_NEW_REP FIM: END GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R900PDT_AD' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R900PDT_AD END GO CREATE TRIGGER wf_r900pdt_ad ON r900pdt FOR delete AS BEGIN DECLARE @OLD_PERID BIGINT DECLARE @OLD_DATSEQ SMALLINT DECLARE @OLD_DAT1 VARCHAR(254) DECLARE @OLD_DAT2 VARCHAR(254) DECLARE @OLD_SEQREG BIGINT DECLARE CUR_R900PDT_DEL_OLD_REP CURSOR FOR SELECT old.perid O_PERID,old.datseq O_DATSEQ,old.dat1 O_DAT1,old.dat2 O_DAT2,old.seqreg O_SEQREG FROM deleted old DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R900PDT_DEL_OLD_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900PDT_DEL_OLD_REP DEALLOCATE CUR_R900PDT_DEL_OLD_REP GOTO FIM END FETCH NEXT FROM CUR_R900PDT_DEL_OLD_REP INTO @OLD_PERID, @OLD_DATSEQ, @OLD_DAT1, @OLD_DAT2, @OLD_SEQREG WHILE (@@FETCH_STATUS = 0) BEGIN DELETE FROM [NOME_DA_BASE].DBO.R900PDT WHERE (perid=@old_perid) and (datseq=@old_datseq) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900PDT_DEL_OLD_REP DEALLOCATE CUR_R900PDT_DEL_OLD_REP GOTO FIM END FETCH NEXT FROM CUR_R900PDT_DEL_OLD_REP INTO @OLD_PERID, @OLD_DATSEQ, @OLD_DAT1, @OLD_DAT2, @OLD_SEQREG END CLOSE CUR_R900PDT_DEL_OLD_REP DEALLOCATE CUR_R900PDT_DEL_OLD_REP FIM: END -- Tabela: R900POL GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R900POL_AI' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R900POL_AI END GO CREATE TRIGGER wf_r900pol_ai ON r900pol FOR insert AS BEGIN DECLARE @NEW_POLKND SMALLINT DECLARE @NEW_POLID SMALLINT DECLARE @NEW_DATSEQ SMALLINT DECLARE @NEW_DAT1 VARCHAR(254) DECLARE @NEW_DAT2 VARCHAR(254) DECLARE CUR_R900POL_INS_NEW_REP CURSOR FOR SELECT new.polknd N_POLKND,new.polid N_POLID,new.datseq N_DATSEQ,new.dat1 N_DAT1,new.dat2 N_DAT2 FROM inserted new DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R900POL_INS_NEW_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900POL_INS_NEW_REP DEALLOCATE CUR_R900POL_INS_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R900POL_INS_NEW_REP INTO @NEW_POLKND, @NEW_POLID, @NEW_DATSEQ, @NEW_DAT1, @NEW_DAT2 WHILE (@@FETCH_STATUS = 0) BEGIN INSERT INTO [NOME_DA_BASE].DBO.R900POL (polknd,polid,datseq,dat1,dat2) VALUES (@NEW_POLKND,@NEW_POLID,@NEW_DATSEQ,@NEW_DAT1,@NEW_DAT2) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900POL_INS_NEW_REP DEALLOCATE CUR_R900POL_INS_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R900POL_INS_NEW_REP INTO @NEW_POLKND, @NEW_POLID, @NEW_DATSEQ, @NEW_DAT1, @NEW_DAT2 END CLOSE CUR_R900POL_INS_NEW_REP DEALLOCATE CUR_R900POL_INS_NEW_REP FIM: END GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R900POL_AU' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R900POL_AU END GO CREATE TRIGGER wf_r900pol_au ON r900pol FOR update AS BEGIN DECLARE @OLD_POLKND SMALLINT DECLARE @OLD_POLID SMALLINT DECLARE @OLD_DATSEQ SMALLINT DECLARE @OLD_DAT1 VARCHAR(254) DECLARE @OLD_DAT2 VARCHAR(254) DECLARE @NEW_POLKND SMALLINT DECLARE @NEW_POLID SMALLINT DECLARE @NEW_DATSEQ SMALLINT DECLARE @NEW_DAT1 VARCHAR(254) DECLARE @NEW_DAT2 VARCHAR(254) DECLARE CUR_R900POL_UPD_OLD_REP CURSOR FOR SELECT old.polknd O_POLKND,old.polid O_POLID,old.datseq O_DATSEQ,old.dat1 O_DAT1,old.dat2 O_DAT2 FROM deleted old DECLARE CUR_R900POL_UPD_NEW_REP CURSOR FOR SELECT new.polknd N_POLKND,new.polid N_POLID,new.datseq N_DATSEQ,new.dat1 N_DAT1,new.dat2 N_DAT2 FROM inserted new DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R900POL_UPD_OLD_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900POL_UPD_OLD_REP DEALLOCATE CUR_R900POL_UPD_OLD_REP CLOSE CUR_R900POL_UPD_NEW_REP DEALLOCATE CUR_R900POL_UPD_NEW_REP GOTO FIM END OPEN CUR_R900POL_UPD_NEW_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900POL_UPD_OLD_REP DEALLOCATE CUR_R900POL_UPD_OLD_REP CLOSE CUR_R900POL_UPD_NEW_REP DEALLOCATE CUR_R900POL_UPD_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R900POL_UPD_OLD_REP INTO @OLD_POLKND, @OLD_POLID, @OLD_DATSEQ, @OLD_DAT1, @OLD_DAT2 FETCH NEXT FROM CUR_R900POL_UPD_NEW_REP INTO @NEW_POLKND, @NEW_POLID, @NEW_DATSEQ, @NEW_DAT1, @NEW_DAT2 WHILE (@@FETCH_STATUS = 0) BEGIN UPDATE [NOME_DA_BASE].DBO.R900POL SET polknd=@NEW_POLKND,polid=@NEW_POLID,datseq=@NEW_DATSEQ,dat1=@NEW_DAT1,dat2=@NEW_DAT2 WHERE (polknd=@old_polknd) and (polid=@old_polid) and (datseq=@old_datseq) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900POL_UPD_OLD_REP DEALLOCATE CUR_R900POL_UPD_OLD_REP CLOSE CUR_R900POL_UPD_NEW_REP DEALLOCATE CUR_R900POL_UPD_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R900POL_UPD_OLD_REP INTO @OLD_POLKND, @OLD_POLID, @OLD_DATSEQ, @OLD_DAT1, @OLD_DAT2 FETCH NEXT FROM CUR_R900POL_UPD_NEW_REP INTO @NEW_POLKND, @NEW_POLID, @NEW_DATSEQ, @NEW_DAT1, @NEW_DAT2 END CLOSE CUR_R900POL_UPD_OLD_REP DEALLOCATE CUR_R900POL_UPD_OLD_REP CLOSE CUR_R900POL_UPD_NEW_REP DEALLOCATE CUR_R900POL_UPD_NEW_REP FIM: END GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R900POL_AD' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R900POL_AD END GO CREATE TRIGGER wf_r900pol_ad ON r900pol FOR delete AS BEGIN DECLARE @OLD_POLKND SMALLINT DECLARE @OLD_POLID SMALLINT DECLARE @OLD_DATSEQ SMALLINT DECLARE @OLD_DAT1 VARCHAR(254) DECLARE @OLD_DAT2 VARCHAR(254) DECLARE CUR_R900POL_DEL_OLD_REP CURSOR FOR SELECT old.polknd O_POLKND,old.polid O_POLID,old.datseq O_DATSEQ,old.dat1 O_DAT1,old.dat2 O_DAT2 FROM deleted old DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R900POL_DEL_OLD_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900POL_DEL_OLD_REP DEALLOCATE CUR_R900POL_DEL_OLD_REP GOTO FIM END FETCH NEXT FROM CUR_R900POL_DEL_OLD_REP INTO @OLD_POLKND, @OLD_POLID, @OLD_DATSEQ, @OLD_DAT1, @OLD_DAT2 WHILE (@@FETCH_STATUS = 0) BEGIN DELETE FROM [NOME_DA_BASE].DBO.R900POL WHERE (polknd=@old_polknd) and (polid=@old_polid) and (datseq=@old_datseq) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900POL_DEL_OLD_REP DEALLOCATE CUR_R900POL_DEL_OLD_REP GOTO FIM END FETCH NEXT FROM CUR_R900POL_DEL_OLD_REP INTO @OLD_POLKND, @OLD_POLID, @OLD_DATSEQ, @OLD_DAT1, @OLD_DAT2 END CLOSE CUR_R900POL_DEL_OLD_REP DEALLOCATE CUR_R900POL_DEL_OLD_REP FIM: END -- Tabela: R900PPL GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R900PPL_AI' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R900PPL_AI END GO CREATE TRIGGER wf_r900ppl_ai ON r900ppl FOR insert AS BEGIN DECLARE @NEW_PERID BIGINT DECLARE @NEW_PERNAM VARCHAR(255) DECLARE @NEW_PERDEL VARCHAR(1) DECLARE CUR_R900PPL_INS_NEW_REP CURSOR FOR SELECT new.perid N_PERID,new.pernam N_PERNAM,new.perdel N_PERDEL FROM inserted new DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R900PPL_INS_NEW_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900PPL_INS_NEW_REP DEALLOCATE CUR_R900PPL_INS_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R900PPL_INS_NEW_REP INTO @NEW_PERID, @NEW_PERNAM, @NEW_PERDEL WHILE (@@FETCH_STATUS = 0) BEGIN INSERT INTO [NOME_DA_BASE].DBO.R900PPL (perid,pernam,perdel) VALUES (@NEW_PERID,@NEW_PERNAM,@NEW_PERDEL) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900PPL_INS_NEW_REP DEALLOCATE CUR_R900PPL_INS_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R900PPL_INS_NEW_REP INTO @NEW_PERID, @NEW_PERNAM, @NEW_PERDEL END CLOSE CUR_R900PPL_INS_NEW_REP DEALLOCATE CUR_R900PPL_INS_NEW_REP FIM: END GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R900PPL_AU' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R900PPL_AU END GO CREATE TRIGGER wf_r900ppl_au ON r900ppl FOR update AS BEGIN DECLARE @OLD_PERID BIGINT DECLARE @OLD_PERNAM VARCHAR(255) DECLARE @OLD_PERDEL VARCHAR(1) DECLARE @NEW_PERID BIGINT DECLARE @NEW_PERNAM VARCHAR(255) DECLARE @NEW_PERDEL VARCHAR(1) DECLARE CUR_R900PPL_UPD_OLD_REP CURSOR FOR SELECT old.perid O_PERID,old.pernam O_PERNAM,old.perdel O_PERDEL FROM deleted old DECLARE CUR_R900PPL_UPD_NEW_REP CURSOR FOR SELECT new.perid N_PERID,new.pernam N_PERNAM,new.perdel N_PERDEL FROM inserted new DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R900PPL_UPD_OLD_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900PPL_UPD_OLD_REP DEALLOCATE CUR_R900PPL_UPD_OLD_REP CLOSE CUR_R900PPL_UPD_NEW_REP DEALLOCATE CUR_R900PPL_UPD_NEW_REP GOTO FIM END OPEN CUR_R900PPL_UPD_NEW_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900PPL_UPD_OLD_REP DEALLOCATE CUR_R900PPL_UPD_OLD_REP CLOSE CUR_R900PPL_UPD_NEW_REP DEALLOCATE CUR_R900PPL_UPD_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R900PPL_UPD_OLD_REP INTO @OLD_PERID, @OLD_PERNAM, @OLD_PERDEL FETCH NEXT FROM CUR_R900PPL_UPD_NEW_REP INTO @NEW_PERID, @NEW_PERNAM, @NEW_PERDEL WHILE (@@FETCH_STATUS = 0) BEGIN UPDATE [NOME_DA_BASE].DBO.R900PPL SET perid=@NEW_PERID,pernam=@NEW_PERNAM,perdel=@NEW_PERDEL WHERE (perid=@old_perid) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900PPL_UPD_OLD_REP DEALLOCATE CUR_R900PPL_UPD_OLD_REP CLOSE CUR_R900PPL_UPD_NEW_REP DEALLOCATE CUR_R900PPL_UPD_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R900PPL_UPD_OLD_REP INTO @OLD_PERID, @OLD_PERNAM, @OLD_PERDEL FETCH NEXT FROM CUR_R900PPL_UPD_NEW_REP INTO @NEW_PERID, @NEW_PERNAM, @NEW_PERDEL END CLOSE CUR_R900PPL_UPD_OLD_REP DEALLOCATE CUR_R900PPL_UPD_OLD_REP CLOSE CUR_R900PPL_UPD_NEW_REP DEALLOCATE CUR_R900PPL_UPD_NEW_REP FIM: END GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R900PPL_AD' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R900PPL_AD END GO CREATE TRIGGER wf_r900ppl_ad ON r900ppl FOR delete AS BEGIN DECLARE @OLD_PERID BIGINT DECLARE @OLD_PERNAM VARCHAR(255) DECLARE @OLD_PERDEL VARCHAR(1) DECLARE CUR_R900PPL_DEL_OLD_REP CURSOR FOR SELECT old.perid O_PERID,old.pernam O_PERNAM,old.perdel O_PERDEL FROM deleted old DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R900PPL_DEL_OLD_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900PPL_DEL_OLD_REP DEALLOCATE CUR_R900PPL_DEL_OLD_REP GOTO FIM END FETCH NEXT FROM CUR_R900PPL_DEL_OLD_REP INTO @OLD_PERID, @OLD_PERNAM, @OLD_PERDEL WHILE (@@FETCH_STATUS = 0) BEGIN DELETE FROM [NOME_DA_BASE].DBO.R900PPL WHERE (perid=@old_perid) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900PPL_DEL_OLD_REP DEALLOCATE CUR_R900PPL_DEL_OLD_REP GOTO FIM END FETCH NEXT FROM CUR_R900PPL_DEL_OLD_REP INTO @OLD_PERID, @OLD_PERNAM, @OLD_PERDEL END CLOSE CUR_R900PPL_DEL_OLD_REP DEALLOCATE CUR_R900PPL_DEL_OLD_REP FIM: END -- Tabela: R900UPR GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R900UPR_AI' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R900UPR_AI END GO CREATE TRIGGER wf_r900upr_ai ON r900upr FOR insert AS BEGIN DECLARE @NEW_CodUsu BIGINT DECLARE @NEW_ModId INTEGER DECLARE @NEW_PrmId INTEGER DECLARE @NEW_PrmVal VARCHAR(511) DECLARE CUR_R900UPR_INS_NEW_REP CURSOR FOR SELECT new.codusu N_CodUsu,new.modid N_ModId,new.prmid N_PrmId,new.prmval N_PrmVal FROM inserted new DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R900UPR_INS_NEW_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900UPR_INS_NEW_REP DEALLOCATE CUR_R900UPR_INS_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R900UPR_INS_NEW_REP INTO @NEW_CodUsu, @NEW_ModId, @NEW_PrmId, @NEW_PrmVal WHILE (@@FETCH_STATUS = 0) BEGIN INSERT INTO [NOME_DA_BASE].DBO.R900UPR (codusu,modid,prmid,prmval) VALUES (@NEW_CodUsu,@NEW_ModId,@NEW_PrmId,@NEW_PrmVal) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900UPR_INS_NEW_REP DEALLOCATE CUR_R900UPR_INS_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R900UPR_INS_NEW_REP INTO @NEW_CodUsu, @NEW_ModId, @NEW_PrmId, @NEW_PrmVal END CLOSE CUR_R900UPR_INS_NEW_REP DEALLOCATE CUR_R900UPR_INS_NEW_REP FIM: END GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R900UPR_AU' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R900UPR_AU END GO CREATE TRIGGER wf_r900upr_au ON r900upr FOR update AS BEGIN DECLARE @OLD_CodUsu BIGINT DECLARE @OLD_ModId INTEGER DECLARE @OLD_PrmId INTEGER DECLARE @OLD_PrmVal VARCHAR(511) DECLARE @NEW_CodUsu BIGINT DECLARE @NEW_ModId INTEGER DECLARE @NEW_PrmId INTEGER DECLARE @NEW_PrmVal VARCHAR(511) DECLARE CUR_R900UPR_UPD_OLD_REP CURSOR FOR SELECT old.codusu O_CodUsu,old.modid O_ModId,old.prmid O_PrmId,old.prmval O_PrmVal FROM deleted old DECLARE CUR_R900UPR_UPD_NEW_REP CURSOR FOR SELECT new.codusu N_CodUsu,new.modid N_ModId,new.prmid N_PrmId,new.prmval N_PrmVal FROM inserted new DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R900UPR_UPD_OLD_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900UPR_UPD_OLD_REP DEALLOCATE CUR_R900UPR_UPD_OLD_REP CLOSE CUR_R900UPR_UPD_NEW_REP DEALLOCATE CUR_R900UPR_UPD_NEW_REP GOTO FIM END OPEN CUR_R900UPR_UPD_NEW_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900UPR_UPD_OLD_REP DEALLOCATE CUR_R900UPR_UPD_OLD_REP CLOSE CUR_R900UPR_UPD_NEW_REP DEALLOCATE CUR_R900UPR_UPD_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R900UPR_UPD_OLD_REP INTO @OLD_CodUsu, @OLD_ModId, @OLD_PrmId, @OLD_PrmVal FETCH NEXT FROM CUR_R900UPR_UPD_NEW_REP INTO @NEW_CodUsu, @NEW_ModId, @NEW_PrmId, @NEW_PrmVal WHILE (@@FETCH_STATUS = 0) BEGIN UPDATE [NOME_DA_BASE].DBO.R900UPR SET codusu=@NEW_CodUsu,modid=@NEW_ModId,prmid=@NEW_PrmId,prmval=@NEW_PrmVal WHERE (codusu=@old_codusu) and (modid=@old_modid) and (prmid=@old_prmid) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900UPR_UPD_OLD_REP DEALLOCATE CUR_R900UPR_UPD_OLD_REP CLOSE CUR_R900UPR_UPD_NEW_REP DEALLOCATE CUR_R900UPR_UPD_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R900UPR_UPD_OLD_REP INTO @OLD_CodUsu, @OLD_ModId, @OLD_PrmId, @OLD_PrmVal FETCH NEXT FROM CUR_R900UPR_UPD_NEW_REP INTO @NEW_CodUsu, @NEW_ModId, @NEW_PrmId, @NEW_PrmVal END CLOSE CUR_R900UPR_UPD_OLD_REP DEALLOCATE CUR_R900UPR_UPD_OLD_REP CLOSE CUR_R900UPR_UPD_NEW_REP DEALLOCATE CUR_R900UPR_UPD_NEW_REP FIM: END GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R900UPR_AD' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R900UPR_AD END GO CREATE TRIGGER wf_r900upr_ad ON r900upr FOR delete AS BEGIN DECLARE @OLD_CodUsu BIGINT DECLARE @OLD_ModId INTEGER DECLARE @OLD_PrmId INTEGER DECLARE @OLD_PrmVal VARCHAR(511) DECLARE CUR_R900UPR_DEL_OLD_REP CURSOR FOR SELECT old.codusu O_CodUsu,old.modid O_ModId,old.prmid O_PrmId,old.prmval O_PrmVal FROM deleted old DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R900UPR_DEL_OLD_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900UPR_DEL_OLD_REP DEALLOCATE CUR_R900UPR_DEL_OLD_REP GOTO FIM END FETCH NEXT FROM CUR_R900UPR_DEL_OLD_REP INTO @OLD_CodUsu, @OLD_ModId, @OLD_PrmId, @OLD_PrmVal WHILE (@@FETCH_STATUS = 0) BEGIN DELETE FROM [NOME_DA_BASE].DBO.R900UPR WHERE (codusu=@old_codusu) and (modid=@old_modid) and (prmid=@old_prmid) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900UPR_DEL_OLD_REP DEALLOCATE CUR_R900UPR_DEL_OLD_REP GOTO FIM END FETCH NEXT FROM CUR_R900UPR_DEL_OLD_REP INTO @OLD_CodUsu, @OLD_ModId, @OLD_PrmId, @OLD_PrmVal END CLOSE CUR_R900UPR_DEL_OLD_REP DEALLOCATE CUR_R900UPR_DEL_OLD_REP FIM: END -- Tabela: R900URG GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R900URG_AI' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R900URG_AI END GO CREATE TRIGGER wf_r900urg_ai ON r900urg FOR insert AS BEGIN DECLARE @NEW_URGID SMALLINT DECLARE @NEW_DATSEQ SMALLINT DECLARE @NEW_DAT1 VARCHAR(254) DECLARE @NEW_DAT2 VARCHAR(254) DECLARE CUR_R900URG_INS_NEW_REP CURSOR FOR SELECT new.urgid N_URGID,new.datseq N_DATSEQ,new.dat1 N_DAT1,new.dat2 N_DAT2 FROM inserted new DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R900URG_INS_NEW_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900URG_INS_NEW_REP DEALLOCATE CUR_R900URG_INS_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R900URG_INS_NEW_REP INTO @NEW_URGID, @NEW_DATSEQ, @NEW_DAT1, @NEW_DAT2 WHILE (@@FETCH_STATUS = 0) BEGIN INSERT INTO [NOME_DA_BASE].DBO.R900URG (urgid,datseq,dat1,dat2) VALUES (@NEW_URGID,@NEW_DATSEQ,@NEW_DAT1,@NEW_DAT2) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900URG_INS_NEW_REP DEALLOCATE CUR_R900URG_INS_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R900URG_INS_NEW_REP INTO @NEW_URGID, @NEW_DATSEQ, @NEW_DAT1, @NEW_DAT2 END CLOSE CUR_R900URG_INS_NEW_REP DEALLOCATE CUR_R900URG_INS_NEW_REP FIM: END GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R900URG_AU' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R900URG_AU END GO CREATE TRIGGER wf_r900urg_au ON r900urg FOR update AS BEGIN DECLARE @OLD_URGID SMALLINT DECLARE @OLD_DATSEQ SMALLINT DECLARE @OLD_DAT1 VARCHAR(254) DECLARE @OLD_DAT2 VARCHAR(254) DECLARE @NEW_URGID SMALLINT DECLARE @NEW_DATSEQ SMALLINT DECLARE @NEW_DAT1 VARCHAR(254) DECLARE @NEW_DAT2 VARCHAR(254) DECLARE CUR_R900URG_UPD_OLD_REP CURSOR FOR SELECT old.urgid O_URGID,old.datseq O_DATSEQ,old.dat1 O_DAT1,old.dat2 O_DAT2 FROM deleted old DECLARE CUR_R900URG_UPD_NEW_REP CURSOR FOR SELECT new.urgid N_URGID,new.datseq N_DATSEQ,new.dat1 N_DAT1,new.dat2 N_DAT2 FROM inserted new DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R900URG_UPD_OLD_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900URG_UPD_OLD_REP DEALLOCATE CUR_R900URG_UPD_OLD_REP CLOSE CUR_R900URG_UPD_NEW_REP DEALLOCATE CUR_R900URG_UPD_NEW_REP GOTO FIM END OPEN CUR_R900URG_UPD_NEW_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900URG_UPD_OLD_REP DEALLOCATE CUR_R900URG_UPD_OLD_REP CLOSE CUR_R900URG_UPD_NEW_REP DEALLOCATE CUR_R900URG_UPD_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R900URG_UPD_OLD_REP INTO @OLD_URGID, @OLD_DATSEQ, @OLD_DAT1, @OLD_DAT2 FETCH NEXT FROM CUR_R900URG_UPD_NEW_REP INTO @NEW_URGID, @NEW_DATSEQ, @NEW_DAT1, @NEW_DAT2 WHILE (@@FETCH_STATUS = 0) BEGIN UPDATE [NOME_DA_BASE].DBO.R900URG SET urgid=@NEW_URGID,datseq=@NEW_DATSEQ,dat1=@NEW_DAT1,dat2=@NEW_DAT2 WHERE (urgid=@old_urgid) and (datseq=@old_datseq) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900URG_UPD_OLD_REP DEALLOCATE CUR_R900URG_UPD_OLD_REP CLOSE CUR_R900URG_UPD_NEW_REP DEALLOCATE CUR_R900URG_UPD_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R900URG_UPD_OLD_REP INTO @OLD_URGID, @OLD_DATSEQ, @OLD_DAT1, @OLD_DAT2 FETCH NEXT FROM CUR_R900URG_UPD_NEW_REP INTO @NEW_URGID, @NEW_DATSEQ, @NEW_DAT1, @NEW_DAT2 END CLOSE CUR_R900URG_UPD_OLD_REP DEALLOCATE CUR_R900URG_UPD_OLD_REP CLOSE CUR_R900URG_UPD_NEW_REP DEALLOCATE CUR_R900URG_UPD_NEW_REP FIM: END GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R900URG_AD' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R900URG_AD END GO CREATE TRIGGER wf_r900urg_ad ON r900urg FOR delete AS BEGIN DECLARE @OLD_URGID SMALLINT DECLARE @OLD_DATSEQ SMALLINT DECLARE @OLD_DAT1 VARCHAR(254) DECLARE @OLD_DAT2 VARCHAR(254) DECLARE CUR_R900URG_DEL_OLD_REP CURSOR FOR SELECT old.urgid O_URGID,old.datseq O_DATSEQ,old.dat1 O_DAT1,old.dat2 O_DAT2 FROM deleted old DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R900URG_DEL_OLD_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900URG_DEL_OLD_REP DEALLOCATE CUR_R900URG_DEL_OLD_REP GOTO FIM END FETCH NEXT FROM CUR_R900URG_DEL_OLD_REP INTO @OLD_URGID, @OLD_DATSEQ, @OLD_DAT1, @OLD_DAT2 WHILE (@@FETCH_STATUS = 0) BEGIN DELETE FROM [NOME_DA_BASE].DBO.R900URG WHERE (urgid=@old_urgid) and (datseq=@old_datseq) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900URG_DEL_OLD_REP DEALLOCATE CUR_R900URG_DEL_OLD_REP GOTO FIM END FETCH NEXT FROM CUR_R900URG_DEL_OLD_REP INTO @OLD_URGID, @OLD_DATSEQ, @OLD_DAT1, @OLD_DAT2 END CLOSE CUR_R900URG_DEL_OLD_REP DEALLOCATE CUR_R900URG_DEL_OLD_REP FIM: END -- Tabela: R900WPR GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R900WPR_AI' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R900WPR_AI END GO CREATE TRIGGER wf_r900wpr_ai ON r900wpr FOR insert AS BEGIN DECLARE @NEW_DatSeq SMALLINT DECLARE @NEW_Dat1 VARCHAR(254) DECLARE @NEW_Dat2 VARCHAR(254) DECLARE CUR_R900WPR_INS_NEW_REP CURSOR FOR SELECT new.datseq N_DatSeq,new.dat1 N_Dat1,new.dat2 N_Dat2 FROM inserted new DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R900WPR_INS_NEW_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900WPR_INS_NEW_REP DEALLOCATE CUR_R900WPR_INS_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R900WPR_INS_NEW_REP INTO @NEW_DatSeq, @NEW_Dat1, @NEW_Dat2 WHILE (@@FETCH_STATUS = 0) BEGIN INSERT INTO [NOME_DA_BASE].DBO.R900WPR (datseq,dat1,dat2) VALUES (@NEW_DatSeq,@NEW_Dat1,@NEW_Dat2) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900WPR_INS_NEW_REP DEALLOCATE CUR_R900WPR_INS_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R900WPR_INS_NEW_REP INTO @NEW_DatSeq, @NEW_Dat1, @NEW_Dat2 END CLOSE CUR_R900WPR_INS_NEW_REP DEALLOCATE CUR_R900WPR_INS_NEW_REP FIM: END GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R900WPR_AU' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R900WPR_AU END GO CREATE TRIGGER wf_r900wpr_au ON r900wpr FOR update AS BEGIN DECLARE @OLD_DatSeq SMALLINT DECLARE @OLD_Dat1 VARCHAR(254) DECLARE @OLD_Dat2 VARCHAR(254) DECLARE @NEW_DatSeq SMALLINT DECLARE @NEW_Dat1 VARCHAR(254) DECLARE @NEW_Dat2 VARCHAR(254) DECLARE CUR_R900WPR_UPD_OLD_REP CURSOR FOR SELECT old.datseq O_DatSeq,old.dat1 O_Dat1,old.dat2 O_Dat2 FROM deleted old DECLARE CUR_R900WPR_UPD_NEW_REP CURSOR FOR SELECT new.datseq N_DatSeq,new.dat1 N_Dat1,new.dat2 N_Dat2 FROM inserted new DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R900WPR_UPD_OLD_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900WPR_UPD_OLD_REP DEALLOCATE CUR_R900WPR_UPD_OLD_REP CLOSE CUR_R900WPR_UPD_NEW_REP DEALLOCATE CUR_R900WPR_UPD_NEW_REP GOTO FIM END OPEN CUR_R900WPR_UPD_NEW_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900WPR_UPD_OLD_REP DEALLOCATE CUR_R900WPR_UPD_OLD_REP CLOSE CUR_R900WPR_UPD_NEW_REP DEALLOCATE CUR_R900WPR_UPD_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R900WPR_UPD_OLD_REP INTO @OLD_DatSeq, @OLD_Dat1, @OLD_Dat2 FETCH NEXT FROM CUR_R900WPR_UPD_NEW_REP INTO @NEW_DatSeq, @NEW_Dat1, @NEW_Dat2 WHILE (@@FETCH_STATUS = 0) BEGIN UPDATE [NOME_DA_BASE].DBO.R900WPR SET datseq=@NEW_DatSeq,dat1=@NEW_Dat1,dat2=@NEW_Dat2 WHERE (datseq=@old_datseq) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900WPR_UPD_OLD_REP DEALLOCATE CUR_R900WPR_UPD_OLD_REP CLOSE CUR_R900WPR_UPD_NEW_REP DEALLOCATE CUR_R900WPR_UPD_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R900WPR_UPD_OLD_REP INTO @OLD_DatSeq, @OLD_Dat1, @OLD_Dat2 FETCH NEXT FROM CUR_R900WPR_UPD_NEW_REP INTO @NEW_DatSeq, @NEW_Dat1, @NEW_Dat2 END CLOSE CUR_R900WPR_UPD_OLD_REP DEALLOCATE CUR_R900WPR_UPD_OLD_REP CLOSE CUR_R900WPR_UPD_NEW_REP DEALLOCATE CUR_R900WPR_UPD_NEW_REP FIM: END GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R900WPR_AD' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R900WPR_AD END GO CREATE TRIGGER wf_r900wpr_ad ON r900wpr FOR delete AS BEGIN DECLARE @OLD_DatSeq SMALLINT DECLARE @OLD_Dat1 VARCHAR(254) DECLARE @OLD_Dat2 VARCHAR(254) DECLARE CUR_R900WPR_DEL_OLD_REP CURSOR FOR SELECT old.datseq O_DatSeq,old.dat1 O_Dat1,old.dat2 O_Dat2 FROM deleted old DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R900WPR_DEL_OLD_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900WPR_DEL_OLD_REP DEALLOCATE CUR_R900WPR_DEL_OLD_REP GOTO FIM END FETCH NEXT FROM CUR_R900WPR_DEL_OLD_REP INTO @OLD_DatSeq, @OLD_Dat1, @OLD_Dat2 WHILE (@@FETCH_STATUS = 0) BEGIN DELETE FROM [NOME_DA_BASE].DBO.R900WPR WHERE (datseq=@old_datseq) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900WPR_DEL_OLD_REP DEALLOCATE CUR_R900WPR_DEL_OLD_REP GOTO FIM END FETCH NEXT FROM CUR_R900WPR_DEL_OLD_REP INTO @OLD_DatSeq, @OLD_Dat1, @OLD_Dat2 END CLOSE CUR_R900WPR_DEL_OLD_REP DEALLOCATE CUR_R900WPR_DEL_OLD_REP FIM: END -- Tabela: R901UVG GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R901UVG_AI' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R901UVG_AI END GO CREATE TRIGGER wf_r901uvg_ai ON r901uvg FOR insert AS BEGIN DECLARE @NEW_PerId BIGINT DECLARE @NEW_GrpId BIGINT DECLARE CUR_R901UVG_INS_NEW_REP CURSOR FOR SELECT new.perid N_PerId,new.grpid N_GrpId FROM inserted new DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R901UVG_INS_NEW_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R901UVG_INS_NEW_REP DEALLOCATE CUR_R901UVG_INS_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R901UVG_INS_NEW_REP INTO @NEW_PerId, @NEW_GrpId WHILE (@@FETCH_STATUS = 0) BEGIN INSERT INTO [NOME_DA_BASE].DBO.R901UVG (perid,grpid) VALUES (@NEW_PerId,@NEW_GrpId) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R901UVG_INS_NEW_REP DEALLOCATE CUR_R901UVG_INS_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R901UVG_INS_NEW_REP INTO @NEW_PerId, @NEW_GrpId END CLOSE CUR_R901UVG_INS_NEW_REP DEALLOCATE CUR_R901UVG_INS_NEW_REP FIM: END GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R901UVG_AU' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R901UVG_AU END GO CREATE TRIGGER wf_r901uvg_au ON r901uvg FOR update AS BEGIN DECLARE @OLD_PerId BIGINT DECLARE @OLD_GrpId BIGINT DECLARE @NEW_PerId BIGINT DECLARE @NEW_GrpId BIGINT DECLARE CUR_R901UVG_UPD_OLD_REP CURSOR FOR SELECT old.perid O_PerId,old.grpid O_GrpId FROM deleted old DECLARE CUR_R901UVG_UPD_NEW_REP CURSOR FOR SELECT new.perid N_PerId,new.grpid N_GrpId FROM inserted new DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R901UVG_UPD_OLD_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R901UVG_UPD_OLD_REP DEALLOCATE CUR_R901UVG_UPD_OLD_REP CLOSE CUR_R901UVG_UPD_NEW_REP DEALLOCATE CUR_R901UVG_UPD_NEW_REP GOTO FIM END OPEN CUR_R901UVG_UPD_NEW_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R901UVG_UPD_OLD_REP DEALLOCATE CUR_R901UVG_UPD_OLD_REP CLOSE CUR_R901UVG_UPD_NEW_REP DEALLOCATE CUR_R901UVG_UPD_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R901UVG_UPD_OLD_REP INTO @OLD_PerId, @OLD_GrpId FETCH NEXT FROM CUR_R901UVG_UPD_NEW_REP INTO @NEW_PerId, @NEW_GrpId WHILE (@@FETCH_STATUS = 0) BEGIN UPDATE [NOME_DA_BASE].DBO.R901UVG SET perid=@NEW_PerId,grpid=@NEW_GrpId WHERE (perid=@old_perid) and (grpid=@old_grpid) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R901UVG_UPD_OLD_REP DEALLOCATE CUR_R901UVG_UPD_OLD_REP CLOSE CUR_R901UVG_UPD_NEW_REP DEALLOCATE CUR_R901UVG_UPD_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R901UVG_UPD_OLD_REP INTO @OLD_PerId, @OLD_GrpId FETCH NEXT FROM CUR_R901UVG_UPD_NEW_REP INTO @NEW_PerId, @NEW_GrpId END CLOSE CUR_R901UVG_UPD_OLD_REP DEALLOCATE CUR_R901UVG_UPD_OLD_REP CLOSE CUR_R901UVG_UPD_NEW_REP DEALLOCATE CUR_R901UVG_UPD_NEW_REP FIM: END GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R901UVG_AD' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R901UVG_AD END GO CREATE TRIGGER wf_r901uvg_ad ON r901uvg FOR delete AS BEGIN DECLARE @OLD_PerId BIGINT DECLARE @OLD_GrpId BIGINT DECLARE CUR_R901UVG_DEL_OLD_REP CURSOR FOR SELECT old.perid O_PerId,old.grpid O_GrpId FROM deleted old DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R901UVG_DEL_OLD_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R901UVG_DEL_OLD_REP DEALLOCATE CUR_R901UVG_DEL_OLD_REP GOTO FIM END FETCH NEXT FROM CUR_R901UVG_DEL_OLD_REP INTO @OLD_PerId, @OLD_GrpId WHILE (@@FETCH_STATUS = 0) BEGIN DELETE FROM [NOME_DA_BASE].DBO.R901UVG WHERE (perid=@old_perid) and (grpid=@old_grpid) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R901UVG_DEL_OLD_REP DEALLOCATE CUR_R901UVG_DEL_OLD_REP GOTO FIM END FETCH NEXT FROM CUR_R901UVG_DEL_OLD_REP INTO @OLD_PerId, @OLD_GrpId END CLOSE CUR_R901UVG_DEL_OLD_REP DEALLOCATE CUR_R901UVG_DEL_OLD_REP FIM: END -- Tabela: R901UVP GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R901UVP_AI' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R901UVP_AI END GO CREATE TRIGGER wf_r901uvp_ai ON r901uvp FOR insert AS BEGIN DECLARE @NEW_PerId BIGINT DECLARE @NEW_UVM SMALLINT DECLARE CUR_R901UVP_INS_NEW_REP CURSOR FOR SELECT new.perid N_PerId,new.uvm N_UVM FROM inserted new DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R901UVP_INS_NEW_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R901UVP_INS_NEW_REP DEALLOCATE CUR_R901UVP_INS_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R901UVP_INS_NEW_REP INTO @NEW_PerId, @NEW_UVM WHILE (@@FETCH_STATUS = 0) BEGIN INSERT INTO [NOME_DA_BASE].DBO.R901UVP (perid,uvm) VALUES (@NEW_PerId,@NEW_UVM) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R901UVP_INS_NEW_REP DEALLOCATE CUR_R901UVP_INS_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R901UVP_INS_NEW_REP INTO @NEW_PerId, @NEW_UVM END CLOSE CUR_R901UVP_INS_NEW_REP DEALLOCATE CUR_R901UVP_INS_NEW_REP FIM: END GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R901UVP_AU' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R901UVP_AU END GO CREATE TRIGGER wf_r901uvp_au ON r901uvp FOR update AS BEGIN DECLARE @OLD_PerId BIGINT DECLARE @OLD_UVM SMALLINT DECLARE @NEW_PerId BIGINT DECLARE @NEW_UVM SMALLINT DECLARE CUR_R901UVP_UPD_OLD_REP CURSOR FOR SELECT old.perid O_PerId,old.uvm O_UVM FROM deleted old DECLARE CUR_R901UVP_UPD_NEW_REP CURSOR FOR SELECT new.perid N_PerId,new.uvm N_UVM FROM inserted new DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R901UVP_UPD_OLD_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R901UVP_UPD_OLD_REP DEALLOCATE CUR_R901UVP_UPD_OLD_REP CLOSE CUR_R901UVP_UPD_NEW_REP DEALLOCATE CUR_R901UVP_UPD_NEW_REP GOTO FIM END OPEN CUR_R901UVP_UPD_NEW_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R901UVP_UPD_OLD_REP DEALLOCATE CUR_R901UVP_UPD_OLD_REP CLOSE CUR_R901UVP_UPD_NEW_REP DEALLOCATE CUR_R901UVP_UPD_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R901UVP_UPD_OLD_REP INTO @OLD_PerId, @OLD_UVM FETCH NEXT FROM CUR_R901UVP_UPD_NEW_REP INTO @NEW_PerId, @NEW_UVM WHILE (@@FETCH_STATUS = 0) BEGIN UPDATE [NOME_DA_BASE].DBO.R901UVP SET perid=@NEW_PerId,uvm=@NEW_UVM WHERE (perid=@old_perid) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R901UVP_UPD_OLD_REP DEALLOCATE CUR_R901UVP_UPD_OLD_REP CLOSE CUR_R901UVP_UPD_NEW_REP DEALLOCATE CUR_R901UVP_UPD_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R901UVP_UPD_OLD_REP INTO @OLD_PerId, @OLD_UVM FETCH NEXT FROM CUR_R901UVP_UPD_NEW_REP INTO @NEW_PerId, @NEW_UVM END CLOSE CUR_R901UVP_UPD_OLD_REP DEALLOCATE CUR_R901UVP_UPD_OLD_REP CLOSE CUR_R901UVP_UPD_NEW_REP DEALLOCATE CUR_R901UVP_UPD_NEW_REP FIM: END GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R901UVP_AD' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R901UVP_AD END GO CREATE TRIGGER wf_r901uvp_ad ON r901uvp FOR delete AS BEGIN DECLARE @OLD_PerId BIGINT DECLARE @OLD_UVM SMALLINT DECLARE CUR_R901UVP_DEL_OLD_REP CURSOR FOR SELECT old.perid O_PerId,old.uvm O_UVM FROM deleted old DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R901UVP_DEL_OLD_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R901UVP_DEL_OLD_REP DEALLOCATE CUR_R901UVP_DEL_OLD_REP GOTO FIM END FETCH NEXT FROM CUR_R901UVP_DEL_OLD_REP INTO @OLD_PerId, @OLD_UVM WHILE (@@FETCH_STATUS = 0) BEGIN DELETE FROM [NOME_DA_BASE].DBO.R901UVP WHERE (perid=@old_perid) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R901UVP_DEL_OLD_REP DEALLOCATE CUR_R901UVP_DEL_OLD_REP GOTO FIM END FETCH NEXT FROM CUR_R901UVP_DEL_OLD_REP INTO @OLD_PerId, @OLD_UVM END CLOSE CUR_R901UVP_DEL_OLD_REP DEALLOCATE CUR_R901UVP_DEL_OLD_REP FIM: END -- Tabela: R910AUS GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R910AUS_AI' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R910AUS_AI END GO CREATE TRIGGER wf_r910aus_ai ON r910aus FOR insert AS BEGIN DECLARE @NEW_CodEnt BIGINT DECLARE @NEW_SEQREG BIGINT DECLARE @NEW_VERSEQ BIGINT DECLARE @NEW_NomCom VARCHAR(127) DECLARE @NEW_DesUsu VARCHAR(127) DECLARE @NEW_AltSen SMALLINT DECLARE @NEW_ConHab SMALLINT DECLARE @NEW_ConBlo SMALLINT DECLARE @NEW_DatBlo DATETIME DECLARE @NEW_HorBlo INTEGER DECLARE @NEW_DatSen DATETIME DECLARE @NEW_HorSen INTEGER DECLARE @NEW_PolDSe BIGINT DECLARE @NEW_PolSAn BIGINT DECLARE @NEW_PolBlq BIGINT DECLARE @NEW_DatCre DATETIME DECLARE @NEW_DatLog DATETIME DECLARE @NEW_HorLog INTEGER DECLARE @NEW_DatAlt DATETIME DECLARE @NEW_HorAlt INTEGER DECLARE @NEW_DatDes DATETIME DECLARE @NEW_HorDes INTEGER DECLARE CUR_R910AUS_INS_NEW_REP CURSOR FOR SELECT new.codent N_CodEnt,new.seqreg N_SEQREG,new.verseq N_VERSEQ,new.nomcom N_NomCom,new.desusu N_DesUsu,new.altsen N_AltSen,new.conhab N_ConHab,new.conblo N_ConBlo,new.datblo N_DatBlo,new.horblo N_HorBlo, new.datsen N_DatSen,new.horsen N_HorSen,new.poldse N_PolDSe,new.polsan N_PolSAn,new.polblq N_PolBlq,new.datcre N_DatCre,new.datlog N_DatLog,new.horlog N_HorLog,new.datalt N_DatAlt,new.horalt N_HorAlt, new.datdes N_DatDes,new.hordes N_HorDes FROM inserted new DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R910AUS_INS_NEW_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R910AUS_INS_NEW_REP DEALLOCATE CUR_R910AUS_INS_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R910AUS_INS_NEW_REP INTO @NEW_CodEnt, @NEW_SEQREG, @NEW_VERSEQ, @NEW_NomCom, @NEW_DesUsu, @NEW_AltSen, @NEW_ConHab, @NEW_ConBlo, @NEW_DatBlo, @NEW_HorBlo, @NEW_DatSen, @NEW_HorSen, @NEW_PolDSe, @NEW_PolSAn, @NEW_PolBlq, @NEW_DatCre, @NEW_DatLog, @NEW_HorLog, @NEW_DatAlt, @NEW_HorAlt, @NEW_DatDes, @NEW_HorDes WHILE (@@FETCH_STATUS = 0) BEGIN INSERT INTO [NOME_DA_BASE].DBO.R910AUS (codent,seqreg,verseq,nomcom,desusu,altsen,conhab,conblo,datblo,horblo,datsen,horsen,poldse,polsan,polblq,datcre,datlog,horlog,datalt,horalt,datdes,hordes) VALUES (@NEW_CodEnt,@NEW_SEQREG,@NEW_VERSEQ,@NEW_NomCom,@NEW_DesUsu,@NEW_AltSen,@NEW_ConHab,@NEW_ConBlo,@NEW_DatBlo,@NEW_HorBlo,@NEW_DatSen,@NEW_HorSen,@NEW_PolDSe,@NEW_PolSAn,@NEW_PolBlq,@NEW_DatCre,@NEW_DatLog,@NEW_HorLog,@NEW_DatAlt,@NEW_HorAlt,@NEW_DatDes,@NEW_HorDes) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R910AUS_INS_NEW_REP DEALLOCATE CUR_R910AUS_INS_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R910AUS_INS_NEW_REP INTO @NEW_CodEnt, @NEW_SEQREG, @NEW_VERSEQ, @NEW_NomCom, @NEW_DesUsu, @NEW_AltSen, @NEW_ConHab, @NEW_ConBlo, @NEW_DatBlo, @NEW_HorBlo, @NEW_DatSen, @NEW_HorSen, @NEW_PolDSe, @NEW_PolSAn, @NEW_PolBlq, @NEW_DatCre, @NEW_DatLog, @NEW_HorLog, @NEW_DatAlt, @NEW_HorAlt, @NEW_DatDes, @NEW_HorDes END CLOSE CUR_R910AUS_INS_NEW_REP DEALLOCATE CUR_R910AUS_INS_NEW_REP FIM: END GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R910AUS_AU' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R910AUS_AU END GO CREATE TRIGGER wf_r910aus_au ON r910aus FOR update AS BEGIN DECLARE @OLD_CodEnt BIGINT DECLARE @OLD_SEQREG BIGINT DECLARE @OLD_VERSEQ BIGINT DECLARE @OLD_NomCom VARCHAR(127) DECLARE @OLD_DesUsu VARCHAR(127) DECLARE @OLD_AltSen SMALLINT DECLARE @OLD_ConHab SMALLINT DECLARE @OLD_ConBlo SMALLINT DECLARE @OLD_DatBlo DATETIME DECLARE @OLD_HorBlo INTEGER DECLARE @OLD_DatSen DATETIME DECLARE @OLD_HorSen INTEGER DECLARE @OLD_PolDSe BIGINT DECLARE @OLD_PolSAn BIGINT DECLARE @OLD_PolBlq BIGINT DECLARE @OLD_DatCre DATETIME DECLARE @OLD_DatLog DATETIME DECLARE @OLD_HorLog INTEGER DECLARE @OLD_DatAlt DATETIME DECLARE @OLD_HorAlt INTEGER DECLARE @OLD_DatDes DATETIME DECLARE @OLD_HorDes INTEGER DECLARE @NEW_CodEnt BIGINT DECLARE @NEW_SEQREG BIGINT DECLARE @NEW_VERSEQ BIGINT DECLARE @NEW_NomCom VARCHAR(127) DECLARE @NEW_DesUsu VARCHAR(127) DECLARE @NEW_AltSen SMALLINT DECLARE @NEW_ConHab SMALLINT DECLARE @NEW_ConBlo SMALLINT DECLARE @NEW_DatBlo DATETIME DECLARE @NEW_HorBlo INTEGER DECLARE @NEW_DatSen DATETIME DECLARE @NEW_HorSen INTEGER DECLARE @NEW_PolDSe BIGINT DECLARE @NEW_PolSAn BIGINT DECLARE @NEW_PolBlq BIGINT DECLARE @NEW_DatCre DATETIME DECLARE @NEW_DatLog DATETIME DECLARE @NEW_HorLog INTEGER DECLARE @NEW_DatAlt DATETIME DECLARE @NEW_HorAlt INTEGER DECLARE @NEW_DatDes DATETIME DECLARE @NEW_HorDes INTEGER DECLARE CUR_R910AUS_UPD_OLD_REP CURSOR FOR SELECT old.codent O_CodEnt,old.seqreg O_SEQREG,old.verseq O_VERSEQ,old.nomcom O_NomCom,old.desusu O_DesUsu,old.altsen O_AltSen,old.conhab O_ConHab,old.conblo O_ConBlo,old.datblo O_DatBlo,old.horblo O_HorBlo, old.datsen O_DatSen,old.horsen O_HorSen,old.poldse O_PolDSe,old.polsan O_PolSAn,old.polblq O_PolBlq,old.datcre O_DatCre,old.datlog O_DatLog,old.horlog O_HorLog,old.datalt O_DatAlt,old.horalt O_HorAlt, old.datdes O_DatDes,old.hordes O_HorDes FROM deleted old DECLARE CUR_R910AUS_UPD_NEW_REP CURSOR FOR SELECT new.codent N_CodEnt,new.seqreg N_SEQREG,new.verseq N_VERSEQ,new.nomcom N_NomCom,new.desusu N_DesUsu,new.altsen N_AltSen,new.conhab N_ConHab,new.conblo N_ConBlo,new.datblo N_DatBlo,new.horblo N_HorBlo, new.datsen N_DatSen,new.horsen N_HorSen,new.poldse N_PolDSe,new.polsan N_PolSAn,new.polblq N_PolBlq,new.datcre N_DatCre,new.datlog N_DatLog,new.horlog N_HorLog,new.datalt N_DatAlt,new.horalt N_HorAlt, new.datdes N_DatDes,new.hordes N_HorDes FROM inserted new DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R910AUS_UPD_OLD_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R910AUS_UPD_OLD_REP DEALLOCATE CUR_R910AUS_UPD_OLD_REP CLOSE CUR_R910AUS_UPD_NEW_REP DEALLOCATE CUR_R910AUS_UPD_NEW_REP GOTO FIM END OPEN CUR_R910AUS_UPD_NEW_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R910AUS_UPD_OLD_REP DEALLOCATE CUR_R910AUS_UPD_OLD_REP CLOSE CUR_R910AUS_UPD_NEW_REP DEALLOCATE CUR_R910AUS_UPD_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R910AUS_UPD_OLD_REP INTO @OLD_CodEnt, @OLD_SEQREG, @OLD_VERSEQ, @OLD_NomCom, @OLD_DesUsu, @OLD_AltSen, @OLD_ConHab, @OLD_ConBlo, @OLD_DatBlo, @OLD_HorBlo, @OLD_DatSen, @OLD_HorSen, @OLD_PolDSe, @OLD_PolSAn, @OLD_PolBlq, @OLD_DatCre, @OLD_DatLog, @OLD_HorLog, @OLD_DatAlt, @OLD_HorAlt, @OLD_DatDes, @OLD_HorDes FETCH NEXT FROM CUR_R910AUS_UPD_NEW_REP INTO @NEW_CodEnt, @NEW_SEQREG, @NEW_VERSEQ, @NEW_NomCom, @NEW_DesUsu, @NEW_AltSen, @NEW_ConHab, @NEW_ConBlo, @NEW_DatBlo, @NEW_HorBlo, @NEW_DatSen, @NEW_HorSen, @NEW_PolDSe, @NEW_PolSAn, @NEW_PolBlq, @NEW_DatCre, @NEW_DatLog, @NEW_HorLog, @NEW_DatAlt, @NEW_HorAlt, @NEW_DatDes, @NEW_HorDes WHILE (@@FETCH_STATUS = 0) BEGIN UPDATE [NOME_DA_BASE].DBO.R910AUS SET codent=@NEW_CodEnt,seqreg=@NEW_SEQREG,verseq=@NEW_VERSEQ,nomcom=@NEW_NomCom,desusu=@NEW_DesUsu,altsen=@NEW_AltSen,conhab=@NEW_ConHab,conblo=@NEW_ConBlo,datblo=@NEW_DatBlo,horblo=@NEW_HorBlo,datsen=@NEW_DatSen,horsen=@NEW_HorSen,poldse=@NEW_PolDSe,polsan=@NEW_PolSAn,polblq=@NEW_PolBlq,datcre=@NEW_DatCre,datlog=@NEW_DatLog,horlog=@NEW_HorLog,datalt=@NEW_DatAlt,horalt=@NEW_HorAlt,datdes=@NEW_DatDes,hordes=@NEW_HorDes WHERE (codent=@old_codent) and (seqreg=@old_seqreg) and (verseq=@old_verseq) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R910AUS_UPD_OLD_REP DEALLOCATE CUR_R910AUS_UPD_OLD_REP CLOSE CUR_R910AUS_UPD_NEW_REP DEALLOCATE CUR_R910AUS_UPD_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R910AUS_UPD_OLD_REP INTO @OLD_CodEnt, @OLD_SEQREG, @OLD_VERSEQ, @OLD_NomCom, @OLD_DesUsu, @OLD_AltSen, @OLD_ConHab, @OLD_ConBlo, @OLD_DatBlo, @OLD_HorBlo, @OLD_DatSen, @OLD_HorSen, @OLD_PolDSe, @OLD_PolSAn, @OLD_PolBlq, @OLD_DatCre, @OLD_DatLog, @OLD_HorLog, @OLD_DatAlt, @OLD_HorAlt, @OLD_DatDes, @OLD_HorDes FETCH NEXT FROM CUR_R910AUS_UPD_NEW_REP INTO @NEW_CodEnt, @NEW_SEQREG, @NEW_VERSEQ, @NEW_NomCom, @NEW_DesUsu, @NEW_AltSen, @NEW_ConHab, @NEW_ConBlo, @NEW_DatBlo, @NEW_HorBlo, @NEW_DatSen, @NEW_HorSen, @NEW_PolDSe, @NEW_PolSAn, @NEW_PolBlq, @NEW_DatCre, @NEW_DatLog, @NEW_HorLog, @NEW_DatAlt, @NEW_HorAlt, @NEW_DatDes, @NEW_HorDes END CLOSE CUR_R910AUS_UPD_OLD_REP DEALLOCATE CUR_R910AUS_UPD_OLD_REP CLOSE CUR_R910AUS_UPD_NEW_REP DEALLOCATE CUR_R910AUS_UPD_NEW_REP FIM: END GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R910AUS_AD' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R910AUS_AD END GO CREATE TRIGGER wf_r910aus_ad ON r910aus FOR delete AS BEGIN DECLARE @OLD_CodEnt BIGINT DECLARE @OLD_SEQREG BIGINT DECLARE @OLD_VERSEQ BIGINT DECLARE @OLD_NomCom VARCHAR(127) DECLARE @OLD_DesUsu VARCHAR(127) DECLARE @OLD_AltSen SMALLINT DECLARE @OLD_ConHab SMALLINT DECLARE @OLD_ConBlo SMALLINT DECLARE @OLD_DatBlo DATETIME DECLARE @OLD_HorBlo INTEGER DECLARE @OLD_DatSen DATETIME DECLARE @OLD_HorSen INTEGER DECLARE @OLD_PolDSe BIGINT DECLARE @OLD_PolSAn BIGINT DECLARE @OLD_PolBlq BIGINT DECLARE @OLD_DatCre DATETIME DECLARE @OLD_DatLog DATETIME DECLARE @OLD_HorLog INTEGER DECLARE @OLD_DatAlt DATETIME DECLARE @OLD_HorAlt INTEGER DECLARE @OLD_DatDes DATETIME DECLARE @OLD_HorDes INTEGER DECLARE CUR_R910AUS_DEL_OLD_REP CURSOR FOR SELECT old.codent O_CodEnt,old.seqreg O_SEQREG,old.verseq O_VERSEQ,old.nomcom O_NomCom,old.desusu O_DesUsu,old.altsen O_AltSen,old.conhab O_ConHab,old.conblo O_ConBlo,old.datblo O_DatBlo,old.horblo O_HorBlo, old.datsen O_DatSen,old.horsen O_HorSen,old.poldse O_PolDSe,old.polsan O_PolSAn,old.polblq O_PolBlq,old.datcre O_DatCre,old.datlog O_DatLog,old.horlog O_HorLog,old.datalt O_DatAlt,old.horalt O_HorAlt, old.datdes O_DatDes,old.hordes O_HorDes FROM deleted old DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R910AUS_DEL_OLD_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R910AUS_DEL_OLD_REP DEALLOCATE CUR_R910AUS_DEL_OLD_REP GOTO FIM END FETCH NEXT FROM CUR_R910AUS_DEL_OLD_REP INTO @OLD_CodEnt, @OLD_SEQREG, @OLD_VERSEQ, @OLD_NomCom, @OLD_DesUsu, @OLD_AltSen, @OLD_ConHab, @OLD_ConBlo, @OLD_DatBlo, @OLD_HorBlo, @OLD_DatSen, @OLD_HorSen, @OLD_PolDSe, @OLD_PolSAn, @OLD_PolBlq, @OLD_DatCre, @OLD_DatLog, @OLD_HorLog, @OLD_DatAlt, @OLD_HorAlt, @OLD_DatDes, @OLD_HorDes WHILE (@@FETCH_STATUS = 0) BEGIN DELETE FROM [NOME_DA_BASE].DBO.R910AUS WHERE (codent=@old_codent) and (seqreg=@old_seqreg) and (verseq=@old_verseq) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R910AUS_DEL_OLD_REP DEALLOCATE CUR_R910AUS_DEL_OLD_REP GOTO FIM END FETCH NEXT FROM CUR_R910AUS_DEL_OLD_REP INTO @OLD_CodEnt, @OLD_SEQREG, @OLD_VERSEQ, @OLD_NomCom, @OLD_DesUsu, @OLD_AltSen, @OLD_ConHab, @OLD_ConBlo, @OLD_DatBlo, @OLD_HorBlo, @OLD_DatSen, @OLD_HorSen, @OLD_PolDSe, @OLD_PolSAn, @OLD_PolBlq, @OLD_DatCre, @OLD_DatLog, @OLD_HorLog, @OLD_DatAlt, @OLD_HorAlt, @OLD_DatDes, @OLD_HorDes END CLOSE CUR_R910AUS_DEL_OLD_REP DEALLOCATE CUR_R910AUS_DEL_OLD_REP FIM: END -- Tabela: R910ENT GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R910ENT_AI' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R910ENT_AI END GO CREATE TRIGGER wf_r910ent_ai ON r910ent FOR insert AS BEGIN DECLARE @NEW_CodEnt BIGINT DECLARE @NEW_NomEnt VARCHAR(255) DECLARE @NEW_NomExb VARCHAR(127) DECLARE @NEW_TipEnt VARCHAR(1) DECLARE CUR_R910ENT_INS_NEW_REP CURSOR FOR SELECT new.codent N_CodEnt,new.noment N_NomEnt,new.nomexb N_NomExb,new.tipent N_TipEnt FROM inserted new DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R910ENT_INS_NEW_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R910ENT_INS_NEW_REP DEALLOCATE CUR_R910ENT_INS_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R910ENT_INS_NEW_REP INTO @NEW_CodEnt, @NEW_NomEnt, @NEW_NomExb, @NEW_TipEnt WHILE (@@FETCH_STATUS = 0) BEGIN INSERT INTO [NOME_DA_BASE].DBO.R910ENT (codent,noment,nomexb,tipent) VALUES (@NEW_CodEnt,@NEW_NomEnt,@NEW_NomExb,@NEW_TipEnt) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R910ENT_INS_NEW_REP DEALLOCATE CUR_R910ENT_INS_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R910ENT_INS_NEW_REP INTO @NEW_CodEnt, @NEW_NomEnt, @NEW_NomExb, @NEW_TipEnt END CLOSE CUR_R910ENT_INS_NEW_REP DEALLOCATE CUR_R910ENT_INS_NEW_REP FIM: END GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R910ENT_AU' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R910ENT_AU END GO CREATE TRIGGER wf_r910ent_au ON r910ent FOR update AS BEGIN DECLARE @OLD_CodEnt BIGINT DECLARE @OLD_NomEnt VARCHAR(255) DECLARE @OLD_NomExb VARCHAR(127) DECLARE @OLD_TipEnt VARCHAR(1) DECLARE @NEW_CodEnt BIGINT DECLARE @NEW_NomEnt VARCHAR(255) DECLARE @NEW_NomExb VARCHAR(127) DECLARE @NEW_TipEnt VARCHAR(1) DECLARE CUR_R910ENT_UPD_OLD_REP CURSOR FOR SELECT old.codent O_CodEnt,old.noment O_NomEnt,old.nomexb O_NomExb,old.tipent O_TipEnt FROM deleted old DECLARE CUR_R910ENT_UPD_NEW_REP CURSOR FOR SELECT new.codent N_CodEnt,new.noment N_NomEnt,new.nomexb N_NomExb,new.tipent N_TipEnt FROM inserted new DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R910ENT_UPD_OLD_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R910ENT_UPD_OLD_REP DEALLOCATE CUR_R910ENT_UPD_OLD_REP CLOSE CUR_R910ENT_UPD_NEW_REP DEALLOCATE CUR_R910ENT_UPD_NEW_REP GOTO FIM END OPEN CUR_R910ENT_UPD_NEW_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R910ENT_UPD_OLD_REP DEALLOCATE CUR_R910ENT_UPD_OLD_REP CLOSE CUR_R910ENT_UPD_NEW_REP DEALLOCATE CUR_R910ENT_UPD_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R910ENT_UPD_OLD_REP INTO @OLD_CodEnt, @OLD_NomEnt, @OLD_NomExb, @OLD_TipEnt FETCH NEXT FROM CUR_R910ENT_UPD_NEW_REP INTO @NEW_CodEnt, @NEW_NomEnt, @NEW_NomExb, @NEW_TipEnt WHILE (@@FETCH_STATUS = 0) BEGIN UPDATE [NOME_DA_BASE].DBO.R910ENT SET codent=@NEW_CodEnt,noment=@NEW_NomEnt,nomexb=@NEW_NomExb,tipent=@NEW_TipEnt WHERE (codent=@old_codent) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R910ENT_UPD_OLD_REP DEALLOCATE CUR_R910ENT_UPD_OLD_REP CLOSE CUR_R910ENT_UPD_NEW_REP DEALLOCATE CUR_R910ENT_UPD_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R910ENT_UPD_OLD_REP INTO @OLD_CodEnt, @OLD_NomEnt, @OLD_NomExb, @OLD_TipEnt FETCH NEXT FROM CUR_R910ENT_UPD_NEW_REP INTO @NEW_CodEnt, @NEW_NomEnt, @NEW_NomExb, @NEW_TipEnt END CLOSE CUR_R910ENT_UPD_OLD_REP DEALLOCATE CUR_R910ENT_UPD_OLD_REP CLOSE CUR_R910ENT_UPD_NEW_REP DEALLOCATE CUR_R910ENT_UPD_NEW_REP FIM: END GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R910ENT_AD' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R910ENT_AD END GO CREATE TRIGGER wf_r910ent_ad ON r910ent FOR delete AS BEGIN DECLARE @OLD_CodEnt BIGINT DECLARE @OLD_NomEnt VARCHAR(255) DECLARE @OLD_NomExb VARCHAR(127) DECLARE @OLD_TipEnt VARCHAR(1) DECLARE CUR_R910ENT_DEL_OLD_REP CURSOR FOR SELECT old.codent O_CodEnt,old.noment O_NomEnt,old.nomexb O_NomExb,old.tipent O_TipEnt FROM deleted old DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R910ENT_DEL_OLD_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R910ENT_DEL_OLD_REP DEALLOCATE CUR_R910ENT_DEL_OLD_REP GOTO FIM END FETCH NEXT FROM CUR_R910ENT_DEL_OLD_REP INTO @OLD_CodEnt, @OLD_NomEnt, @OLD_NomExb, @OLD_TipEnt WHILE (@@FETCH_STATUS = 0) BEGIN DELETE FROM [NOME_DA_BASE].DBO.R910ENT WHERE (codent=@old_codent) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R910ENT_DEL_OLD_REP DEALLOCATE CUR_R910ENT_DEL_OLD_REP GOTO FIM END FETCH NEXT FROM CUR_R910ENT_DEL_OLD_REP INTO @OLD_CodEnt, @OLD_NomEnt, @OLD_NomExb, @OLD_TipEnt END CLOSE CUR_R910ENT_DEL_OLD_REP DEALLOCATE CUR_R910ENT_DEL_OLD_REP FIM: END -- Tabela: R910GRP GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R910GRP_AI' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R910GRP_AI END GO CREATE TRIGGER wf_r910grp_ai ON r910grp FOR insert AS BEGIN DECLARE @NEW_CodEnt BIGINT DECLARE @NEW_DesGrp VARCHAR(127) DECLARE CUR_R910GRP_INS_NEW_REP CURSOR FOR SELECT new.codent N_CodEnt,new.desgrp N_DesGrp FROM inserted new DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R910GRP_INS_NEW_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R910GRP_INS_NEW_REP DEALLOCATE CUR_R910GRP_INS_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R910GRP_INS_NEW_REP INTO @NEW_CodEnt, @NEW_DesGrp WHILE (@@FETCH_STATUS = 0) BEGIN INSERT INTO [NOME_DA_BASE].DBO.R910GRP (codent,desgrp) VALUES (@NEW_CodEnt,@NEW_DesGrp) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R910GRP_INS_NEW_REP DEALLOCATE CUR_R910GRP_INS_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R910GRP_INS_NEW_REP INTO @NEW_CodEnt, @NEW_DesGrp END CLOSE CUR_R910GRP_INS_NEW_REP DEALLOCATE CUR_R910GRP_INS_NEW_REP FIM: END GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R910GRP_AU' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R910GRP_AU END GO CREATE TRIGGER wf_r910grp_au ON r910grp FOR update AS BEGIN DECLARE @OLD_CodEnt BIGINT DECLARE @OLD_DesGrp VARCHAR(127) DECLARE @NEW_CodEnt BIGINT DECLARE @NEW_DesGrp VARCHAR(127) DECLARE CUR_R910GRP_UPD_OLD_REP CURSOR FOR SELECT old.codent O_CodEnt,old.desgrp O_DesGrp FROM deleted old DECLARE CUR_R910GRP_UPD_NEW_REP CURSOR FOR SELECT new.codent N_CodEnt,new.desgrp N_DesGrp FROM inserted new DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R910GRP_UPD_OLD_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R910GRP_UPD_OLD_REP DEALLOCATE CUR_R910GRP_UPD_OLD_REP CLOSE CUR_R910GRP_UPD_NEW_REP DEALLOCATE CUR_R910GRP_UPD_NEW_REP GOTO FIM END OPEN CUR_R910GRP_UPD_NEW_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R910GRP_UPD_OLD_REP DEALLOCATE CUR_R910GRP_UPD_OLD_REP CLOSE CUR_R910GRP_UPD_NEW_REP DEALLOCATE CUR_R910GRP_UPD_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R910GRP_UPD_OLD_REP INTO @OLD_CodEnt, @OLD_DesGrp FETCH NEXT FROM CUR_R910GRP_UPD_NEW_REP INTO @NEW_CodEnt, @NEW_DesGrp WHILE (@@FETCH_STATUS = 0) BEGIN UPDATE [NOME_DA_BASE].DBO.R910GRP SET codent=@NEW_CodEnt,desgrp=@NEW_DesGrp WHERE (codent=@old_codent) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R910GRP_UPD_OLD_REP DEALLOCATE CUR_R910GRP_UPD_OLD_REP CLOSE CUR_R910GRP_UPD_NEW_REP DEALLOCATE CUR_R910GRP_UPD_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R910GRP_UPD_OLD_REP INTO @OLD_CodEnt, @OLD_DesGrp FETCH NEXT FROM CUR_R910GRP_UPD_NEW_REP INTO @NEW_CodEnt, @NEW_DesGrp END CLOSE CUR_R910GRP_UPD_OLD_REP DEALLOCATE CUR_R910GRP_UPD_OLD_REP CLOSE CUR_R910GRP_UPD_NEW_REP DEALLOCATE CUR_R910GRP_UPD_NEW_REP FIM: END GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R910GRP_AD' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R910GRP_AD END GO CREATE TRIGGER wf_r910grp_ad ON r910grp FOR delete AS BEGIN DECLARE @OLD_CodEnt BIGINT DECLARE @OLD_DesGrp VARCHAR(127) DECLARE CUR_R910GRP_DEL_OLD_REP CURSOR FOR SELECT old.codent O_CodEnt,old.desgrp O_DesGrp FROM deleted old DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R910GRP_DEL_OLD_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R910GRP_DEL_OLD_REP DEALLOCATE CUR_R910GRP_DEL_OLD_REP GOTO FIM END FETCH NEXT FROM CUR_R910GRP_DEL_OLD_REP INTO @OLD_CodEnt, @OLD_DesGrp WHILE (@@FETCH_STATUS = 0) BEGIN DELETE FROM [NOME_DA_BASE].DBO.R910GRP WHERE (codent=@old_codent) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R910GRP_DEL_OLD_REP DEALLOCATE CUR_R910GRP_DEL_OLD_REP GOTO FIM END FETCH NEXT FROM CUR_R910GRP_DEL_OLD_REP INTO @OLD_CodEnt, @OLD_DesGrp END CLOSE CUR_R910GRP_DEL_OLD_REP DEALLOCATE CUR_R910GRP_DEL_OLD_REP FIM: END -- Tabela: R910MGP GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R910MGP_AI' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R910MGP_AI END GO CREATE TRIGGER wf_r910mgp_ai ON r910mgp FOR insert AS BEGIN DECLARE @NEW_CodGrp BIGINT DECLARE @NEW_CodMbr BIGINT DECLARE CUR_R910MGP_INS_NEW_REP CURSOR FOR SELECT new.codgrp N_CodGrp,new.codmbr N_CodMbr FROM inserted new DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R910MGP_INS_NEW_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R910MGP_INS_NEW_REP DEALLOCATE CUR_R910MGP_INS_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R910MGP_INS_NEW_REP INTO @NEW_CodGrp, @NEW_CodMbr WHILE (@@FETCH_STATUS = 0) BEGIN INSERT INTO [NOME_DA_BASE].DBO.R910MGP (codgrp,codmbr) VALUES (@NEW_CodGrp,@NEW_CodMbr) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R910MGP_INS_NEW_REP DEALLOCATE CUR_R910MGP_INS_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R910MGP_INS_NEW_REP INTO @NEW_CodGrp, @NEW_CodMbr END CLOSE CUR_R910MGP_INS_NEW_REP DEALLOCATE CUR_R910MGP_INS_NEW_REP FIM: END GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R910MGP_AU' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R910MGP_AU END GO CREATE TRIGGER wf_r910mgp_au ON r910mgp FOR update AS BEGIN DECLARE @OLD_CodGrp BIGINT DECLARE @OLD_CodMbr BIGINT DECLARE @NEW_CodGrp BIGINT DECLARE @NEW_CodMbr BIGINT DECLARE CUR_R910MGP_UPD_OLD_REP CURSOR FOR SELECT old.codgrp O_CodGrp,old.codmbr O_CodMbr FROM deleted old DECLARE CUR_R910MGP_UPD_NEW_REP CURSOR FOR SELECT new.codgrp N_CodGrp,new.codmbr N_CodMbr FROM inserted new DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R910MGP_UPD_OLD_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R910MGP_UPD_OLD_REP DEALLOCATE CUR_R910MGP_UPD_OLD_REP CLOSE CUR_R910MGP_UPD_NEW_REP DEALLOCATE CUR_R910MGP_UPD_NEW_REP GOTO FIM END OPEN CUR_R910MGP_UPD_NEW_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R910MGP_UPD_OLD_REP DEALLOCATE CUR_R910MGP_UPD_OLD_REP CLOSE CUR_R910MGP_UPD_NEW_REP DEALLOCATE CUR_R910MGP_UPD_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R910MGP_UPD_OLD_REP INTO @OLD_CodGrp, @OLD_CodMbr FETCH NEXT FROM CUR_R910MGP_UPD_NEW_REP INTO @NEW_CodGrp, @NEW_CodMbr WHILE (@@FETCH_STATUS = 0) BEGIN UPDATE [NOME_DA_BASE].DBO.R910MGP SET codgrp=@NEW_CodGrp,codmbr=@NEW_CodMbr WHERE (codgrp=@old_codgrp) and (codmbr=@old_codmbr) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R910MGP_UPD_OLD_REP DEALLOCATE CUR_R910MGP_UPD_OLD_REP CLOSE CUR_R910MGP_UPD_NEW_REP DEALLOCATE CUR_R910MGP_UPD_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R910MGP_UPD_OLD_REP INTO @OLD_CodGrp, @OLD_CodMbr FETCH NEXT FROM CUR_R910MGP_UPD_NEW_REP INTO @NEW_CodGrp, @NEW_CodMbr END CLOSE CUR_R910MGP_UPD_OLD_REP DEALLOCATE CUR_R910MGP_UPD_OLD_REP CLOSE CUR_R910MGP_UPD_NEW_REP DEALLOCATE CUR_R910MGP_UPD_NEW_REP FIM: END GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R910MGP_AD' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R910MGP_AD END GO CREATE TRIGGER wf_r910mgp_ad ON r910mgp FOR delete AS BEGIN DECLARE @OLD_CodGrp BIGINT DECLARE @OLD_CodMbr BIGINT DECLARE CUR_R910MGP_DEL_OLD_REP CURSOR FOR SELECT old.codgrp O_CodGrp,old.codmbr O_CodMbr FROM deleted old DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R910MGP_DEL_OLD_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R910MGP_DEL_OLD_REP DEALLOCATE CUR_R910MGP_DEL_OLD_REP GOTO FIM END FETCH NEXT FROM CUR_R910MGP_DEL_OLD_REP INTO @OLD_CodGrp, @OLD_CodMbr WHILE (@@FETCH_STATUS = 0) BEGIN DELETE FROM [NOME_DA_BASE].DBO.R910MGP WHERE (codgrp=@old_codgrp) and (codmbr=@old_codmbr) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R910MGP_DEL_OLD_REP DEALLOCATE CUR_R910MGP_DEL_OLD_REP GOTO FIM END FETCH NEXT FROM CUR_R910MGP_DEL_OLD_REP INTO @OLD_CodGrp, @OLD_CodMbr END CLOSE CUR_R910MGP_DEL_OLD_REP DEALLOCATE CUR_R910MGP_DEL_OLD_REP FIM: END -- Tabela: R910PBL GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R910PBL_AI' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R910PBL_AI END GO CREATE TRIGGER wf_r910pbl_ai ON r910pbl FOR insert AS BEGIN DECLARE @NEW_CodPol BIGINT DECLARE @NEW_DesPol VARCHAR(127) DECLARE @NEW_Bloque SMALLINT DECLARE @NEW_MaxTen SMALLINT DECLARE @NEW_DurCon INTEGER DECLARE @NEW_DesAut SMALLINT DECLARE @NEW_DurBlo INTEGER DECLARE CUR_R910PBL_INS_NEW_REP CURSOR FOR SELECT new.codpol N_CodPol,new.despol N_DesPol,new.bloque N_Bloque,new.maxten N_MaxTen,new.durcon N_DurCon,new.desaut N_DesAut,new.durblo N_DurBlo FROM inserted new DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R910PBL_INS_NEW_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R910PBL_INS_NEW_REP DEALLOCATE CUR_R910PBL_INS_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R910PBL_INS_NEW_REP INTO @NEW_CodPol, @NEW_DesPol, @NEW_Bloque, @NEW_MaxTen, @NEW_DurCon, @NEW_DesAut, @NEW_DurBlo WHILE (@@FETCH_STATUS = 0) BEGIN INSERT INTO [NOME_DA_BASE].DBO.R910PBL (codpol,despol,bloque,maxten,durcon,desaut,durblo) VALUES (@NEW_CodPol,@NEW_DesPol,@NEW_Bloque,@NEW_MaxTen,@NEW_DurCon,@NEW_DesAut,@NEW_DurBlo) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R910PBL_INS_NEW_REP DEALLOCATE CUR_R910PBL_INS_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R910PBL_INS_NEW_REP INTO @NEW_CodPol, @NEW_DesPol, @NEW_Bloque, @NEW_MaxTen, @NEW_DurCon, @NEW_DesAut, @NEW_DurBlo END CLOSE CUR_R910PBL_INS_NEW_REP DEALLOCATE CUR_R910PBL_INS_NEW_REP FIM: END GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R910PBL_AU' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R910PBL_AU END GO CREATE TRIGGER wf_r910pbl_au ON r910pbl FOR update AS BEGIN DECLARE @OLD_CodPol BIGINT DECLARE @OLD_DesPol VARCHAR(127) DECLARE @OLD_Bloque SMALLINT DECLARE @OLD_MaxTen SMALLINT DECLARE @OLD_DurCon INTEGER DECLARE @OLD_DesAut SMALLINT DECLARE @OLD_DurBlo INTEGER DECLARE @NEW_CodPol BIGINT DECLARE @NEW_DesPol VARCHAR(127) DECLARE @NEW_Bloque SMALLINT DECLARE @NEW_MaxTen SMALLINT DECLARE @NEW_DurCon INTEGER DECLARE @NEW_DesAut SMALLINT DECLARE @NEW_DurBlo INTEGER DECLARE CUR_R910PBL_UPD_OLD_REP CURSOR FOR SELECT old.codpol O_CodPol,old.despol O_DesPol,old.bloque O_Bloque,old.maxten O_MaxTen,old.durcon O_DurCon,old.desaut O_DesAut,old.durblo O_DurBlo FROM deleted old DECLARE CUR_R910PBL_UPD_NEW_REP CURSOR FOR SELECT new.codpol N_CodPol,new.despol N_DesPol,new.bloque N_Bloque,new.maxten N_MaxTen,new.durcon N_DurCon,new.desaut N_DesAut,new.durblo N_DurBlo FROM inserted new DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R910PBL_UPD_OLD_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R910PBL_UPD_OLD_REP DEALLOCATE CUR_R910PBL_UPD_OLD_REP CLOSE CUR_R910PBL_UPD_NEW_REP DEALLOCATE CUR_R910PBL_UPD_NEW_REP GOTO FIM END OPEN CUR_R910PBL_UPD_NEW_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R910PBL_UPD_OLD_REP DEALLOCATE CUR_R910PBL_UPD_OLD_REP CLOSE CUR_R910PBL_UPD_NEW_REP DEALLOCATE CUR_R910PBL_UPD_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R910PBL_UPD_OLD_REP INTO @OLD_CodPol, @OLD_DesPol, @OLD_Bloque, @OLD_MaxTen, @OLD_DurCon, @OLD_DesAut, @OLD_DurBlo FETCH NEXT FROM CUR_R910PBL_UPD_NEW_REP INTO @NEW_CodPol, @NEW_DesPol, @NEW_Bloque, @NEW_MaxTen, @NEW_DurCon, @NEW_DesAut, @NEW_DurBlo WHILE (@@FETCH_STATUS = 0) BEGIN UPDATE [NOME_DA_BASE].DBO.R910PBL SET codpol=@NEW_CodPol,despol=@NEW_DesPol,bloque=@NEW_Bloque,maxten=@NEW_MaxTen,durcon=@NEW_DurCon,desaut=@NEW_DesAut,durblo=@NEW_DurBlo WHERE (codpol=@old_codpol) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R910PBL_UPD_OLD_REP DEALLOCATE CUR_R910PBL_UPD_OLD_REP CLOSE CUR_R910PBL_UPD_NEW_REP DEALLOCATE CUR_R910PBL_UPD_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R910PBL_UPD_OLD_REP INTO @OLD_CodPol, @OLD_DesPol, @OLD_Bloque, @OLD_MaxTen, @OLD_DurCon, @OLD_DesAut, @OLD_DurBlo FETCH NEXT FROM CUR_R910PBL_UPD_NEW_REP INTO @NEW_CodPol, @NEW_DesPol, @NEW_Bloque, @NEW_MaxTen, @NEW_DurCon, @NEW_DesAut, @NEW_DurBlo END CLOSE CUR_R910PBL_UPD_OLD_REP DEALLOCATE CUR_R910PBL_UPD_OLD_REP CLOSE CUR_R910PBL_UPD_NEW_REP DEALLOCATE CUR_R910PBL_UPD_NEW_REP FIM: END GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R910PBL_AD' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R910PBL_AD END GO CREATE TRIGGER wf_r910pbl_ad ON r910pbl FOR delete AS BEGIN DECLARE @OLD_CodPol BIGINT DECLARE @OLD_DesPol VARCHAR(127) DECLARE @OLD_Bloque SMALLINT DECLARE @OLD_MaxTen SMALLINT DECLARE @OLD_DurCon INTEGER DECLARE @OLD_DesAut SMALLINT DECLARE @OLD_DurBlo INTEGER DECLARE CUR_R910PBL_DEL_OLD_REP CURSOR FOR SELECT old.codpol O_CodPol,old.despol O_DesPol,old.bloque O_Bloque,old.maxten O_MaxTen,old.durcon O_DurCon,old.desaut O_DesAut,old.durblo O_DurBlo FROM deleted old DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R910PBL_DEL_OLD_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R910PBL_DEL_OLD_REP DEALLOCATE CUR_R910PBL_DEL_OLD_REP GOTO FIM END FETCH NEXT FROM CUR_R910PBL_DEL_OLD_REP INTO @OLD_CodPol, @OLD_DesPol, @OLD_Bloque, @OLD_MaxTen, @OLD_DurCon, @OLD_DesAut, @OLD_DurBlo WHILE (@@FETCH_STATUS = 0) BEGIN DELETE FROM [NOME_DA_BASE].DBO.R910PBL WHERE (codpol=@old_codpol) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R910PBL_DEL_OLD_REP DEALLOCATE CUR_R910PBL_DEL_OLD_REP GOTO FIM END FETCH NEXT FROM CUR_R910PBL_DEL_OLD_REP INTO @OLD_CodPol, @OLD_DesPol, @OLD_Bloque, @OLD_MaxTen, @OLD_DurCon, @OLD_DesAut, @OLD_DurBlo END CLOSE CUR_R910PBL_DEL_OLD_REP DEALLOCATE CUR_R910PBL_DEL_OLD_REP FIM: END -- Tabela: R910PDS GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R910PDS_AI' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R910PDS_AI END GO CREATE TRIGGER wf_r910pds_ai ON r910pds FOR insert AS BEGIN DECLARE @NEW_CodPol BIGINT DECLARE @NEW_DesPol VARCHAR(127) DECLARE @NEW_PerAlt SMALLINT DECLARE @NEW_MxDias INTEGER DECLARE @NEW_MnDias INTEGER DECLARE CUR_R910PDS_INS_NEW_REP CURSOR FOR SELECT new.codpol N_CodPol,new.despol N_DesPol,new.peralt N_PerAlt,new.mxdias N_MxDias,new.mndias N_MnDias FROM inserted new DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R910PDS_INS_NEW_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R910PDS_INS_NEW_REP DEALLOCATE CUR_R910PDS_INS_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R910PDS_INS_NEW_REP INTO @NEW_CodPol, @NEW_DesPol, @NEW_PerAlt, @NEW_MxDias, @NEW_MnDias WHILE (@@FETCH_STATUS = 0) BEGIN INSERT INTO [NOME_DA_BASE].DBO.R910PDS (codpol,despol,peralt,mxdias,mndias) VALUES (@NEW_CodPol,@NEW_DesPol,@NEW_PerAlt,@NEW_MxDias,@NEW_MnDias) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R910PDS_INS_NEW_REP DEALLOCATE CUR_R910PDS_INS_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R910PDS_INS_NEW_REP INTO @NEW_CodPol, @NEW_DesPol, @NEW_PerAlt, @NEW_MxDias, @NEW_MnDias END CLOSE CUR_R910PDS_INS_NEW_REP DEALLOCATE CUR_R910PDS_INS_NEW_REP FIM: END GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R910PDS_AU' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R910PDS_AU END GO CREATE TRIGGER wf_r910pds_au ON r910pds FOR update AS BEGIN DECLARE @OLD_CodPol BIGINT DECLARE @OLD_DesPol VARCHAR(127) DECLARE @OLD_PerAlt SMALLINT DECLARE @OLD_MxDias INTEGER DECLARE @OLD_MnDias INTEGER DECLARE @NEW_CodPol BIGINT DECLARE @NEW_DesPol VARCHAR(127) DECLARE @NEW_PerAlt SMALLINT DECLARE @NEW_MxDias INTEGER DECLARE @NEW_MnDias INTEGER DECLARE CUR_R910PDS_UPD_OLD_REP CURSOR FOR SELECT old.codpol O_CodPol,old.despol O_DesPol,old.peralt O_PerAlt,old.mxdias O_MxDias,old.mndias O_MnDias FROM deleted old DECLARE CUR_R910PDS_UPD_NEW_REP CURSOR FOR SELECT new.codpol N_CodPol,new.despol N_DesPol,new.peralt N_PerAlt,new.mxdias N_MxDias,new.mndias N_MnDias FROM inserted new DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R910PDS_UPD_OLD_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R910PDS_UPD_OLD_REP DEALLOCATE CUR_R910PDS_UPD_OLD_REP CLOSE CUR_R910PDS_UPD_NEW_REP DEALLOCATE CUR_R910PDS_UPD_NEW_REP GOTO FIM END OPEN CUR_R910PDS_UPD_NEW_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R910PDS_UPD_OLD_REP DEALLOCATE CUR_R910PDS_UPD_OLD_REP CLOSE CUR_R910PDS_UPD_NEW_REP DEALLOCATE CUR_R910PDS_UPD_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R910PDS_UPD_OLD_REP INTO @OLD_CodPol, @OLD_DesPol, @OLD_PerAlt, @OLD_MxDias, @OLD_MnDias FETCH NEXT FROM CUR_R910PDS_UPD_NEW_REP INTO @NEW_CodPol, @NEW_DesPol, @NEW_PerAlt, @NEW_MxDias, @NEW_MnDias WHILE (@@FETCH_STATUS = 0) BEGIN UPDATE [NOME_DA_BASE].DBO.R910PDS SET codpol=@NEW_CodPol,despol=@NEW_DesPol,peralt=@NEW_PerAlt,mxdias=@NEW_MxDias,mndias=@NEW_MnDias WHERE (codpol=@old_codpol) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R910PDS_UPD_OLD_REP DEALLOCATE CUR_R910PDS_UPD_OLD_REP CLOSE CUR_R910PDS_UPD_NEW_REP DEALLOCATE CUR_R910PDS_UPD_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R910PDS_UPD_OLD_REP INTO @OLD_CodPol, @OLD_DesPol, @OLD_PerAlt, @OLD_MxDias, @OLD_MnDias FETCH NEXT FROM CUR_R910PDS_UPD_NEW_REP INTO @NEW_CodPol, @NEW_DesPol, @NEW_PerAlt, @NEW_MxDias, @NEW_MnDias END CLOSE CUR_R910PDS_UPD_OLD_REP DEALLOCATE CUR_R910PDS_UPD_OLD_REP CLOSE CUR_R910PDS_UPD_NEW_REP DEALLOCATE CUR_R910PDS_UPD_NEW_REP FIM: END GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R910PDS_AD' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R910PDS_AD END GO CREATE TRIGGER wf_r910pds_ad ON r910pds FOR delete AS BEGIN DECLARE @OLD_CodPol BIGINT DECLARE @OLD_DesPol VARCHAR(127) DECLARE @OLD_PerAlt SMALLINT DECLARE @OLD_MxDias INTEGER DECLARE @OLD_MnDias INTEGER DECLARE CUR_R910PDS_DEL_OLD_REP CURSOR FOR SELECT old.codpol O_CodPol,old.despol O_DesPol,old.peralt O_PerAlt,old.mxdias O_MxDias,old.mndias O_MnDias FROM deleted old DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R910PDS_DEL_OLD_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R910PDS_DEL_OLD_REP DEALLOCATE CUR_R910PDS_DEL_OLD_REP GOTO FIM END FETCH NEXT FROM CUR_R910PDS_DEL_OLD_REP INTO @OLD_CodPol, @OLD_DesPol, @OLD_PerAlt, @OLD_MxDias, @OLD_MnDias WHILE (@@FETCH_STATUS = 0) BEGIN DELETE FROM [NOME_DA_BASE].DBO.R910PDS WHERE (codpol=@old_codpol) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R910PDS_DEL_OLD_REP DEALLOCATE CUR_R910PDS_DEL_OLD_REP GOTO FIM END FETCH NEXT FROM CUR_R910PDS_DEL_OLD_REP INTO @OLD_CodPol, @OLD_DesPol, @OLD_PerAlt, @OLD_MxDias, @OLD_MnDias END CLOSE CUR_R910PDS_DEL_OLD_REP DEALLOCATE CUR_R910PDS_DEL_OLD_REP FIM: END -- Tabela: R910PSA GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R910PSA_AI' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R910PSA_AI END GO CREATE TRIGGER wf_r910psa_ai ON r910psa FOR insert AS BEGIN DECLARE @NEW_CodPol BIGINT DECLARE @NEW_DesPol VARCHAR(127) DECLARE @NEW_QtdSen SMALLINT DECLARE CUR_R910PSA_INS_NEW_REP CURSOR FOR SELECT new.codpol N_CodPol,new.despol N_DesPol,new.qtdsen N_QtdSen FROM inserted new DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R910PSA_INS_NEW_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R910PSA_INS_NEW_REP DEALLOCATE CUR_R910PSA_INS_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R910PSA_INS_NEW_REP INTO @NEW_CodPol, @NEW_DesPol, @NEW_QtdSen WHILE (@@FETCH_STATUS = 0) BEGIN INSERT INTO [NOME_DA_BASE].DBO.R910PSA (codpol,despol,qtdsen) VALUES (@NEW_CodPol,@NEW_DesPol,@NEW_QtdSen) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R910PSA_INS_NEW_REP DEALLOCATE CUR_R910PSA_INS_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R910PSA_INS_NEW_REP INTO @NEW_CodPol, @NEW_DesPol, @NEW_QtdSen END CLOSE CUR_R910PSA_INS_NEW_REP DEALLOCATE CUR_R910PSA_INS_NEW_REP FIM: END GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R910PSA_AU' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R910PSA_AU END GO CREATE TRIGGER wf_r910psa_au ON r910psa FOR update AS BEGIN DECLARE @OLD_CodPol BIGINT DECLARE @OLD_DesPol VARCHAR(127) DECLARE @OLD_QtdSen SMALLINT DECLARE @NEW_CodPol BIGINT DECLARE @NEW_DesPol VARCHAR(127) DECLARE @NEW_QtdSen SMALLINT DECLARE CUR_R910PSA_UPD_OLD_REP CURSOR FOR SELECT old.codpol O_CodPol,old.despol O_DesPol,old.qtdsen O_QtdSen FROM deleted old DECLARE CUR_R910PSA_UPD_NEW_REP CURSOR FOR SELECT new.codpol N_CodPol,new.despol N_DesPol,new.qtdsen N_QtdSen FROM inserted new DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R910PSA_UPD_OLD_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R910PSA_UPD_OLD_REP DEALLOCATE CUR_R910PSA_UPD_OLD_REP CLOSE CUR_R910PSA_UPD_NEW_REP DEALLOCATE CUR_R910PSA_UPD_NEW_REP GOTO FIM END OPEN CUR_R910PSA_UPD_NEW_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R910PSA_UPD_OLD_REP DEALLOCATE CUR_R910PSA_UPD_OLD_REP CLOSE CUR_R910PSA_UPD_NEW_REP DEALLOCATE CUR_R910PSA_UPD_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R910PSA_UPD_OLD_REP INTO @OLD_CodPol, @OLD_DesPol, @OLD_QtdSen FETCH NEXT FROM CUR_R910PSA_UPD_NEW_REP INTO @NEW_CodPol, @NEW_DesPol, @NEW_QtdSen WHILE (@@FETCH_STATUS = 0) BEGIN UPDATE [NOME_DA_BASE].DBO.R910PSA SET codpol=@NEW_CodPol,despol=@NEW_DesPol,qtdsen=@NEW_QtdSen WHERE (codpol=@old_codpol) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R910PSA_UPD_OLD_REP DEALLOCATE CUR_R910PSA_UPD_OLD_REP CLOSE CUR_R910PSA_UPD_NEW_REP DEALLOCATE CUR_R910PSA_UPD_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R910PSA_UPD_OLD_REP INTO @OLD_CodPol, @OLD_DesPol, @OLD_QtdSen FETCH NEXT FROM CUR_R910PSA_UPD_NEW_REP INTO @NEW_CodPol, @NEW_DesPol, @NEW_QtdSen END CLOSE CUR_R910PSA_UPD_OLD_REP DEALLOCATE CUR_R910PSA_UPD_OLD_REP CLOSE CUR_R910PSA_UPD_NEW_REP DEALLOCATE CUR_R910PSA_UPD_NEW_REP FIM: END GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R910PSA_AD' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R910PSA_AD END GO CREATE TRIGGER wf_r910psa_ad ON r910psa FOR delete AS BEGIN DECLARE @OLD_CodPol BIGINT DECLARE @OLD_DesPol VARCHAR(127) DECLARE @OLD_QtdSen SMALLINT DECLARE CUR_R910PSA_DEL_OLD_REP CURSOR FOR SELECT old.codpol O_CodPol,old.despol O_DesPol,old.qtdsen O_QtdSen FROM deleted old DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R910PSA_DEL_OLD_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R910PSA_DEL_OLD_REP DEALLOCATE CUR_R910PSA_DEL_OLD_REP GOTO FIM END FETCH NEXT FROM CUR_R910PSA_DEL_OLD_REP INTO @OLD_CodPol, @OLD_DesPol, @OLD_QtdSen WHILE (@@FETCH_STATUS = 0) BEGIN DELETE FROM [NOME_DA_BASE].DBO.R910PSA WHERE (codpol=@old_codpol) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R910PSA_DEL_OLD_REP DEALLOCATE CUR_R910PSA_DEL_OLD_REP GOTO FIM END FETCH NEXT FROM CUR_R910PSA_DEL_OLD_REP INTO @OLD_CodPol, @OLD_DesPol, @OLD_QtdSen END CLOSE CUR_R910PSA_DEL_OLD_REP DEALLOCATE CUR_R910PSA_DEL_OLD_REP FIM: END -- Tabela: R910USU GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R910USU_AI' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R910USU_AI END GO CREATE TRIGGER wf_r910usu_ai ON r910usu FOR insert AS BEGIN DECLARE @NEW_CodEnt BIGINT DECLARE @NEW_NomCom VARCHAR(127) DECLARE @NEW_DesUsu VARCHAR(127) DECLARE @NEW_AltSen SMALLINT DECLARE @NEW_ConHab SMALLINT DECLARE @NEW_ConBlo SMALLINT DECLARE @NEW_DatBlo DATETIME DECLARE @NEW_HorBlo INTEGER DECLARE @NEW_DatSen DATETIME DECLARE @NEW_HorSen INTEGER DECLARE @NEW_PolDSe BIGINT DECLARE @NEW_PolSAn BIGINT DECLARE @NEW_PolBlq BIGINT DECLARE @NEW_DatCre DATETIME DECLARE @NEW_DatLog DATETIME DECLARE @NEW_HorLog INTEGER DECLARE @NEW_DatAlt DATETIME DECLARE @NEW_HorAlt INTEGER DECLARE @NEW_DatDes DATETIME DECLARE @NEW_HorDes INTEGER DECLARE @NEW_SEQREG BIGINT DECLARE CUR_R910USU_INS_NEW_REP CURSOR FOR SELECT new.codent N_CodEnt,new.nomcom N_NomCom,new.desusu N_DesUsu,new.altsen N_AltSen,new.conhab N_ConHab,new.conblo N_ConBlo,new.datblo N_DatBlo,new.horblo N_HorBlo,new.datsen N_DatSen,new.horsen N_HorSen, new.poldse N_PolDSe,new.polsan N_PolSAn,new.polblq N_PolBlq,new.datcre N_DatCre,new.datlog N_DatLog,new.horlog N_HorLog,new.datalt N_DatAlt,new.horalt N_HorAlt,new.datdes N_DatDes,new.hordes N_HorDes,new.seqreg N_SEQREG FROM inserted new DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R910USU_INS_NEW_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R910USU_INS_NEW_REP DEALLOCATE CUR_R910USU_INS_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R910USU_INS_NEW_REP INTO @NEW_CodEnt, @NEW_NomCom, @NEW_DesUsu, @NEW_AltSen, @NEW_ConHab, @NEW_ConBlo, @NEW_DatBlo, @NEW_HorBlo, @NEW_DatSen, @NEW_HorSen, @NEW_PolDSe, @NEW_PolSAn, @NEW_PolBlq, @NEW_DatCre, @NEW_DatLog, @NEW_HorLog, @NEW_DatAlt, @NEW_HorAlt, @NEW_DatDes, @NEW_HorDes, @NEW_SEQREG WHILE (@@FETCH_STATUS = 0) BEGIN INSERT INTO [NOME_DA_BASE].DBO.R910USU (codent,nomcom,desusu,altsen,conhab,conblo,datblo,horblo,datsen,horsen,poldse,polsan,polblq,datcre,datlog,horlog,datalt,horalt,datdes,hordes,seqreg) VALUES (@NEW_CodEnt,@NEW_NomCom,@NEW_DesUsu,@NEW_AltSen,@NEW_ConHab,@NEW_ConBlo,@NEW_DatBlo,@NEW_HorBlo,@NEW_DatSen,@NEW_HorSen,@NEW_PolDSe,@NEW_PolSAn,@NEW_PolBlq,@NEW_DatCre,@NEW_DatLog,@NEW_HorLog,@NEW_DatAlt,@NEW_HorAlt,@NEW_DatDes,@NEW_HorDes,@NEW_SEQREG) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R910USU_INS_NEW_REP DEALLOCATE CUR_R910USU_INS_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R910USU_INS_NEW_REP INTO @NEW_CodEnt, @NEW_NomCom, @NEW_DesUsu, @NEW_AltSen, @NEW_ConHab, @NEW_ConBlo, @NEW_DatBlo, @NEW_HorBlo, @NEW_DatSen, @NEW_HorSen, @NEW_PolDSe, @NEW_PolSAn, @NEW_PolBlq, @NEW_DatCre, @NEW_DatLog, @NEW_HorLog, @NEW_DatAlt, @NEW_HorAlt, @NEW_DatDes, @NEW_HorDes, @NEW_SEQREG END CLOSE CUR_R910USU_INS_NEW_REP DEALLOCATE CUR_R910USU_INS_NEW_REP FIM: END GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R910USU_AU' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R910USU_AU END GO CREATE TRIGGER wf_r910usu_au ON r910usu FOR update AS BEGIN DECLARE @OLD_CodEnt BIGINT DECLARE @OLD_NomCom VARCHAR(127) DECLARE @OLD_DesUsu VARCHAR(127) DECLARE @OLD_AltSen SMALLINT DECLARE @OLD_ConHab SMALLINT DECLARE @OLD_ConBlo SMALLINT DECLARE @OLD_DatBlo DATETIME DECLARE @OLD_HorBlo INTEGER DECLARE @OLD_DatSen DATETIME DECLARE @OLD_HorSen INTEGER DECLARE @OLD_PolDSe BIGINT DECLARE @OLD_PolSAn BIGINT DECLARE @OLD_PolBlq BIGINT DECLARE @OLD_DatCre DATETIME DECLARE @OLD_DatLog DATETIME DECLARE @OLD_HorLog INTEGER DECLARE @OLD_DatAlt DATETIME DECLARE @OLD_HorAlt INTEGER DECLARE @OLD_DatDes DATETIME DECLARE @OLD_HorDes INTEGER DECLARE @OLD_SEQREG BIGINT DECLARE @NEW_CodEnt BIGINT DECLARE @NEW_NomCom VARCHAR(127) DECLARE @NEW_DesUsu VARCHAR(127) DECLARE @NEW_AltSen SMALLINT DECLARE @NEW_ConHab SMALLINT DECLARE @NEW_ConBlo SMALLINT DECLARE @NEW_DatBlo DATETIME DECLARE @NEW_HorBlo INTEGER DECLARE @NEW_DatSen DATETIME DECLARE @NEW_HorSen INTEGER DECLARE @NEW_PolDSe BIGINT DECLARE @NEW_PolSAn BIGINT DECLARE @NEW_PolBlq BIGINT DECLARE @NEW_DatCre DATETIME DECLARE @NEW_DatLog DATETIME DECLARE @NEW_HorLog INTEGER DECLARE @NEW_DatAlt DATETIME DECLARE @NEW_HorAlt INTEGER DECLARE @NEW_DatDes DATETIME DECLARE @NEW_HorDes INTEGER DECLARE @NEW_SEQREG BIGINT DECLARE CUR_R910USU_UPD_OLD_REP CURSOR FOR SELECT old.codent O_CodEnt,old.nomcom O_NomCom,old.desusu O_DesUsu,old.altsen O_AltSen,old.conhab O_ConHab,old.conblo O_ConBlo,old.datblo O_DatBlo,old.horblo O_HorBlo,old.datsen O_DatSen,old.horsen O_HorSen, old.poldse O_PolDSe,old.polsan O_PolSAn,old.polblq O_PolBlq,old.datcre O_DatCre,old.datlog O_DatLog,old.horlog O_HorLog,old.datalt O_DatAlt,old.horalt O_HorAlt,old.datdes O_DatDes,old.hordes O_HorDes,old.seqreg O_SEQREG FROM deleted old DECLARE CUR_R910USU_UPD_NEW_REP CURSOR FOR SELECT new.codent N_CodEnt,new.nomcom N_NomCom,new.desusu N_DesUsu,new.altsen N_AltSen,new.conhab N_ConHab,new.conblo N_ConBlo,new.datblo N_DatBlo,new.horblo N_HorBlo,new.datsen N_DatSen,new.horsen N_HorSen, new.poldse N_PolDSe,new.polsan N_PolSAn,new.polblq N_PolBlq,new.datcre N_DatCre,new.datlog N_DatLog,new.horlog N_HorLog,new.datalt N_DatAlt,new.horalt N_HorAlt,new.datdes N_DatDes,new.hordes N_HorDes,new.seqreg N_SEQREG FROM inserted new DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R910USU_UPD_OLD_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R910USU_UPD_OLD_REP DEALLOCATE CUR_R910USU_UPD_OLD_REP CLOSE CUR_R910USU_UPD_NEW_REP DEALLOCATE CUR_R910USU_UPD_NEW_REP GOTO FIM END OPEN CUR_R910USU_UPD_NEW_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R910USU_UPD_OLD_REP DEALLOCATE CUR_R910USU_UPD_OLD_REP CLOSE CUR_R910USU_UPD_NEW_REP DEALLOCATE CUR_R910USU_UPD_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R910USU_UPD_OLD_REP INTO @OLD_CodEnt, @OLD_NomCom, @OLD_DesUsu, @OLD_AltSen, @OLD_ConHab, @OLD_ConBlo, @OLD_DatBlo, @OLD_HorBlo, @OLD_DatSen, @OLD_HorSen, @OLD_PolDSe, @OLD_PolSAn, @OLD_PolBlq, @OLD_DatCre, @OLD_DatLog, @OLD_HorLog, @OLD_DatAlt, @OLD_HorAlt, @OLD_DatDes, @OLD_HorDes, @OLD_SEQREG FETCH NEXT FROM CUR_R910USU_UPD_NEW_REP INTO @NEW_CodEnt, @NEW_NomCom, @NEW_DesUsu, @NEW_AltSen, @NEW_ConHab, @NEW_ConBlo, @NEW_DatBlo, @NEW_HorBlo, @NEW_DatSen, @NEW_HorSen, @NEW_PolDSe, @NEW_PolSAn, @NEW_PolBlq, @NEW_DatCre, @NEW_DatLog, @NEW_HorLog, @NEW_DatAlt, @NEW_HorAlt, @NEW_DatDes, @NEW_HorDes, @NEW_SEQREG WHILE (@@FETCH_STATUS = 0) BEGIN UPDATE [NOME_DA_BASE].DBO.R910USU SET codent=@NEW_CodEnt,nomcom=@NEW_NomCom,desusu=@NEW_DesUsu,altsen=@NEW_AltSen,conhab=@NEW_ConHab,conblo=@NEW_ConBlo,datblo=@NEW_DatBlo,horblo=@NEW_HorBlo,datsen=@NEW_DatSen,horsen=@NEW_HorSen,poldse=@NEW_PolDSe,polsan=@NEW_PolSAn,polblq=@NEW_PolBlq,datcre=@NEW_DatCre,datlog=@NEW_DatLog,horlog=@NEW_HorLog,datalt=@NEW_DatAlt,horalt=@NEW_HorAlt,datdes=@NEW_DatDes,hordes=@NEW_HorDes,seqreg=@NEW_SEQREG WHERE (codent=@old_codent) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R910USU_UPD_OLD_REP DEALLOCATE CUR_R910USU_UPD_OLD_REP CLOSE CUR_R910USU_UPD_NEW_REP DEALLOCATE CUR_R910USU_UPD_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R910USU_UPD_OLD_REP INTO @OLD_CodEnt, @OLD_NomCom, @OLD_DesUsu, @OLD_AltSen, @OLD_ConHab, @OLD_ConBlo, @OLD_DatBlo, @OLD_HorBlo, @OLD_DatSen, @OLD_HorSen, @OLD_PolDSe, @OLD_PolSAn, @OLD_PolBlq, @OLD_DatCre, @OLD_DatLog, @OLD_HorLog, @OLD_DatAlt, @OLD_HorAlt, @OLD_DatDes, @OLD_HorDes, @OLD_SEQREG FETCH NEXT FROM CUR_R910USU_UPD_NEW_REP INTO @NEW_CodEnt, @NEW_NomCom, @NEW_DesUsu, @NEW_AltSen, @NEW_ConHab, @NEW_ConBlo, @NEW_DatBlo, @NEW_HorBlo, @NEW_DatSen, @NEW_HorSen, @NEW_PolDSe, @NEW_PolSAn, @NEW_PolBlq, @NEW_DatCre, @NEW_DatLog, @NEW_HorLog, @NEW_DatAlt, @NEW_HorAlt, @NEW_DatDes, @NEW_HorDes, @NEW_SEQREG END CLOSE CUR_R910USU_UPD_OLD_REP DEALLOCATE CUR_R910USU_UPD_OLD_REP CLOSE CUR_R910USU_UPD_NEW_REP DEALLOCATE CUR_R910USU_UPD_NEW_REP FIM: END GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R910USU_AD' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R910USU_AD END GO CREATE TRIGGER wf_r910usu_ad ON r910usu FOR delete AS BEGIN DECLARE @OLD_CodEnt BIGINT DECLARE @OLD_NomCom VARCHAR(127) DECLARE @OLD_DesUsu VARCHAR(127) DECLARE @OLD_AltSen SMALLINT DECLARE @OLD_ConHab SMALLINT DECLARE @OLD_ConBlo SMALLINT DECLARE @OLD_DatBlo DATETIME DECLARE @OLD_HorBlo INTEGER DECLARE @OLD_DatSen DATETIME DECLARE @OLD_HorSen INTEGER DECLARE @OLD_PolDSe BIGINT DECLARE @OLD_PolSAn BIGINT DECLARE @OLD_PolBlq BIGINT DECLARE @OLD_DatCre DATETIME DECLARE @OLD_DatLog DATETIME DECLARE @OLD_HorLog INTEGER DECLARE @OLD_DatAlt DATETIME DECLARE @OLD_HorAlt INTEGER DECLARE @OLD_DatDes DATETIME DECLARE @OLD_HorDes INTEGER DECLARE @OLD_SEQREG BIGINT DECLARE CUR_R910USU_DEL_OLD_REP CURSOR FOR SELECT old.codent O_CodEnt,old.nomcom O_NomCom,old.desusu O_DesUsu,old.altsen O_AltSen,old.conhab O_ConHab,old.conblo O_ConBlo,old.datblo O_DatBlo,old.horblo O_HorBlo,old.datsen O_DatSen,old.horsen O_HorSen, old.poldse O_PolDSe,old.polsan O_PolSAn,old.polblq O_PolBlq,old.datcre O_DatCre,old.datlog O_DatLog,old.horlog O_HorLog,old.datalt O_DatAlt,old.horalt O_HorAlt,old.datdes O_DatDes,old.hordes O_HorDes,old.seqreg O_SEQREG FROM deleted old DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R910USU_DEL_OLD_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R910USU_DEL_OLD_REP DEALLOCATE CUR_R910USU_DEL_OLD_REP GOTO FIM END FETCH NEXT FROM CUR_R910USU_DEL_OLD_REP INTO @OLD_CodEnt, @OLD_NomCom, @OLD_DesUsu, @OLD_AltSen, @OLD_ConHab, @OLD_ConBlo, @OLD_DatBlo, @OLD_HorBlo, @OLD_DatSen, @OLD_HorSen, @OLD_PolDSe, @OLD_PolSAn, @OLD_PolBlq, @OLD_DatCre, @OLD_DatLog, @OLD_HorLog, @OLD_DatAlt, @OLD_HorAlt, @OLD_DatDes, @OLD_HorDes, @OLD_SEQREG WHILE (@@FETCH_STATUS = 0) BEGIN DELETE FROM [NOME_DA_BASE].DBO.R910USU WHERE (codent=@old_codent) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R910USU_DEL_OLD_REP DEALLOCATE CUR_R910USU_DEL_OLD_REP GOTO FIM END FETCH NEXT FROM CUR_R910USU_DEL_OLD_REP INTO @OLD_CodEnt, @OLD_NomCom, @OLD_DesUsu, @OLD_AltSen, @OLD_ConHab, @OLD_ConBlo, @OLD_DatBlo, @OLD_HorBlo, @OLD_DatSen, @OLD_HorSen, @OLD_PolDSe, @OLD_PolSAn, @OLD_PolBlq, @OLD_DatCre, @OLD_DatLog, @OLD_HorLog, @OLD_DatAlt, @OLD_HorAlt, @OLD_DatDes, @OLD_HorDes, @OLD_SEQREG END CLOSE CUR_R910USU_DEL_OLD_REP DEALLOCATE CUR_R910USU_DEL_OLD_REP FIM: END -- Tabela: R911MOD GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R911MOD_AI' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R911MOD_AI END GO CREATE TRIGGER wf_r911mod_ai ON r911mod FOR insert AS BEGIN DECLARE @NEW_NumSec BIGINT DECLARE @NEW_ModNam VARCHAR(30) DECLARE CUR_R911MOD_INS_NEW_REP CURSOR FOR SELECT new.numsec N_NumSec,new.modnam N_ModNam FROM inserted new DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R911MOD_INS_NEW_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R911MOD_INS_NEW_REP DEALLOCATE CUR_R911MOD_INS_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R911MOD_INS_NEW_REP INTO @NEW_NumSec, @NEW_ModNam WHILE (@@FETCH_STATUS = 0) BEGIN INSERT INTO [NOME_DA_BASE].DBO.R911MOD (numsec,modnam) VALUES (@NEW_NumSec,@NEW_ModNam) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R911MOD_INS_NEW_REP DEALLOCATE CUR_R911MOD_INS_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R911MOD_INS_NEW_REP INTO @NEW_NumSec, @NEW_ModNam END CLOSE CUR_R911MOD_INS_NEW_REP DEALLOCATE CUR_R911MOD_INS_NEW_REP FIM: END GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R911MOD_AU' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R911MOD_AU END GO CREATE TRIGGER wf_r911mod_au ON r911mod FOR update AS BEGIN DECLARE @OLD_NumSec BIGINT DECLARE @OLD_ModNam VARCHAR(30) DECLARE @NEW_NumSec BIGINT DECLARE @NEW_ModNam VARCHAR(30) DECLARE CUR_R911MOD_UPD_OLD_REP CURSOR FOR SELECT old.numsec O_NumSec,old.modnam O_ModNam FROM deleted old DECLARE CUR_R911MOD_UPD_NEW_REP CURSOR FOR SELECT new.numsec N_NumSec,new.modnam N_ModNam FROM inserted new DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R911MOD_UPD_OLD_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R911MOD_UPD_OLD_REP DEALLOCATE CUR_R911MOD_UPD_OLD_REP CLOSE CUR_R911MOD_UPD_NEW_REP DEALLOCATE CUR_R911MOD_UPD_NEW_REP GOTO FIM END OPEN CUR_R911MOD_UPD_NEW_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R911MOD_UPD_OLD_REP DEALLOCATE CUR_R911MOD_UPD_OLD_REP CLOSE CUR_R911MOD_UPD_NEW_REP DEALLOCATE CUR_R911MOD_UPD_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R911MOD_UPD_OLD_REP INTO @OLD_NumSec, @OLD_ModNam FETCH NEXT FROM CUR_R911MOD_UPD_NEW_REP INTO @NEW_NumSec, @NEW_ModNam WHILE (@@FETCH_STATUS = 0) BEGIN UPDATE [NOME_DA_BASE].DBO.R911MOD SET numsec=@NEW_NumSec,modnam=@NEW_ModNam WHERE (numsec=@old_numsec) and (modnam=@old_modnam) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R911MOD_UPD_OLD_REP DEALLOCATE CUR_R911MOD_UPD_OLD_REP CLOSE CUR_R911MOD_UPD_NEW_REP DEALLOCATE CUR_R911MOD_UPD_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R911MOD_UPD_OLD_REP INTO @OLD_NumSec, @OLD_ModNam FETCH NEXT FROM CUR_R911MOD_UPD_NEW_REP INTO @NEW_NumSec, @NEW_ModNam END CLOSE CUR_R911MOD_UPD_OLD_REP DEALLOCATE CUR_R911MOD_UPD_OLD_REP CLOSE CUR_R911MOD_UPD_NEW_REP DEALLOCATE CUR_R911MOD_UPD_NEW_REP FIM: END GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R911MOD_AD' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R911MOD_AD END GO CREATE TRIGGER wf_r911mod_ad ON r911mod FOR delete AS BEGIN DECLARE @OLD_NumSec BIGINT DECLARE @OLD_ModNam VARCHAR(30) DECLARE CUR_R911MOD_DEL_OLD_REP CURSOR FOR SELECT old.numsec O_NumSec,old.modnam O_ModNam FROM deleted old DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R911MOD_DEL_OLD_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R911MOD_DEL_OLD_REP DEALLOCATE CUR_R911MOD_DEL_OLD_REP GOTO FIM END FETCH NEXT FROM CUR_R911MOD_DEL_OLD_REP INTO @OLD_NumSec, @OLD_ModNam WHILE (@@FETCH_STATUS = 0) BEGIN DELETE FROM [NOME_DA_BASE].DBO.R911MOD WHERE (numsec=@old_numsec) and (modnam=@old_modnam) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R911MOD_DEL_OLD_REP DEALLOCATE CUR_R911MOD_DEL_OLD_REP GOTO FIM END FETCH NEXT FROM CUR_R911MOD_DEL_OLD_REP INTO @OLD_NumSec, @OLD_ModNam END CLOSE CUR_R911MOD_DEL_OLD_REP DEALLOCATE CUR_R911MOD_DEL_OLD_REP FIM: END -- Tabela: R911SEC GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R911SEC_AI' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R911SEC_AI END GO CREATE TRIGGER wf_r911sec_ai ON r911sec FOR insert AS BEGIN DECLARE @NEW_NumSec BIGINT DECLARE @NEW_DatTim NUMERIC(14, 6) DECLARE @NEW_ComNam VARCHAR(30) DECLARE @NEW_UsrNam VARCHAR(30) DECLARE @NEW_AppNam VARCHAR(255) DECLARE @NEW_AppUsr VARCHAR(30) DECLARE @NEW_IDInst SMALLINT DECLARE @NEW_AdmMsg SMALLINT DECLARE @NEW_AppKnd SMALLINT DECLARE CUR_R911SEC_INS_NEW_REP CURSOR FOR SELECT new.numsec N_NumSec,new.dattim N_DatTim,new.comnam N_ComNam,new.usrnam N_UsrNam,new.appnam N_AppNam,new.appusr N_AppUsr,new.idinst N_IDInst,new.admmsg N_AdmMsg,new.appknd N_AppKnd FROM inserted new DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R911SEC_INS_NEW_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R911SEC_INS_NEW_REP DEALLOCATE CUR_R911SEC_INS_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R911SEC_INS_NEW_REP INTO @NEW_NumSec, @NEW_DatTim, @NEW_ComNam, @NEW_UsrNam, @NEW_AppNam, @NEW_AppUsr, @NEW_IDInst, @NEW_AdmMsg, @NEW_AppKnd WHILE (@@FETCH_STATUS = 0) BEGIN INSERT INTO [NOME_DA_BASE].DBO.R911SEC (numsec,dattim,comnam,usrnam,appnam,appusr,idinst,admmsg,appknd) VALUES (@NEW_NumSec,@NEW_DatTim,@NEW_ComNam,@NEW_UsrNam,@NEW_AppNam,@NEW_AppUsr,@NEW_IDInst,@NEW_AdmMsg,@NEW_AppKnd) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R911SEC_INS_NEW_REP DEALLOCATE CUR_R911SEC_INS_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R911SEC_INS_NEW_REP INTO @NEW_NumSec, @NEW_DatTim, @NEW_ComNam, @NEW_UsrNam, @NEW_AppNam, @NEW_AppUsr, @NEW_IDInst, @NEW_AdmMsg, @NEW_AppKnd END CLOSE CUR_R911SEC_INS_NEW_REP DEALLOCATE CUR_R911SEC_INS_NEW_REP FIM: END GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R911SEC_AU' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R911SEC_AU END GO CREATE TRIGGER wf_r911sec_au ON r911sec FOR update AS BEGIN DECLARE @OLD_NumSec BIGINT DECLARE @OLD_DatTim NUMERIC(14, 6) DECLARE @OLD_ComNam VARCHAR(30) DECLARE @OLD_UsrNam VARCHAR(30) DECLARE @OLD_AppNam VARCHAR(255) DECLARE @OLD_AppUsr VARCHAR(30) DECLARE @OLD_IDInst SMALLINT DECLARE @OLD_AdmMsg SMALLINT DECLARE @OLD_AppKnd SMALLINT DECLARE @NEW_NumSec BIGINT DECLARE @NEW_DatTim NUMERIC(14, 6) DECLARE @NEW_ComNam VARCHAR(30) DECLARE @NEW_UsrNam VARCHAR(30) DECLARE @NEW_AppNam VARCHAR(255) DECLARE @NEW_AppUsr VARCHAR(30) DECLARE @NEW_IDInst SMALLINT DECLARE @NEW_AdmMsg SMALLINT DECLARE @NEW_AppKnd SMALLINT DECLARE CUR_R911SEC_UPD_OLD_REP CURSOR FOR SELECT old.numsec O_NumSec,old.dattim O_DatTim,old.comnam O_ComNam,old.usrnam O_UsrNam,old.appnam O_AppNam,old.appusr O_AppUsr,old.idinst O_IDInst,old.admmsg O_AdmMsg,old.appknd O_AppKnd FROM deleted old DECLARE CUR_R911SEC_UPD_NEW_REP CURSOR FOR SELECT new.numsec N_NumSec,new.dattim N_DatTim,new.comnam N_ComNam,new.usrnam N_UsrNam,new.appnam N_AppNam,new.appusr N_AppUsr,new.idinst N_IDInst,new.admmsg N_AdmMsg,new.appknd N_AppKnd FROM inserted new DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R911SEC_UPD_OLD_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R911SEC_UPD_OLD_REP DEALLOCATE CUR_R911SEC_UPD_OLD_REP CLOSE CUR_R911SEC_UPD_NEW_REP DEALLOCATE CUR_R911SEC_UPD_NEW_REP GOTO FIM END OPEN CUR_R911SEC_UPD_NEW_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R911SEC_UPD_OLD_REP DEALLOCATE CUR_R911SEC_UPD_OLD_REP CLOSE CUR_R911SEC_UPD_NEW_REP DEALLOCATE CUR_R911SEC_UPD_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R911SEC_UPD_OLD_REP INTO @OLD_NumSec, @OLD_DatTim, @OLD_ComNam, @OLD_UsrNam, @OLD_AppNam, @OLD_AppUsr, @OLD_IDInst, @OLD_AdmMsg, @OLD_AppKnd FETCH NEXT FROM CUR_R911SEC_UPD_NEW_REP INTO @NEW_NumSec, @NEW_DatTim, @NEW_ComNam, @NEW_UsrNam, @NEW_AppNam, @NEW_AppUsr, @NEW_IDInst, @NEW_AdmMsg, @NEW_AppKnd WHILE (@@FETCH_STATUS = 0) BEGIN UPDATE [NOME_DA_BASE].DBO.R911SEC SET numsec=@NEW_NumSec,dattim=@NEW_DatTim,comnam=@NEW_ComNam,usrnam=@NEW_UsrNam,appnam=@NEW_AppNam,appusr=@NEW_AppUsr,idinst=@NEW_IDInst,admmsg=@NEW_AdmMsg,appknd=@NEW_AppKnd WHERE (numsec=@old_numsec) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R911SEC_UPD_OLD_REP DEALLOCATE CUR_R911SEC_UPD_OLD_REP CLOSE CUR_R911SEC_UPD_NEW_REP DEALLOCATE CUR_R911SEC_UPD_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R911SEC_UPD_OLD_REP INTO @OLD_NumSec, @OLD_DatTim, @OLD_ComNam, @OLD_UsrNam, @OLD_AppNam, @OLD_AppUsr, @OLD_IDInst, @OLD_AdmMsg, @OLD_AppKnd FETCH NEXT FROM CUR_R911SEC_UPD_NEW_REP INTO @NEW_NumSec, @NEW_DatTim, @NEW_ComNam, @NEW_UsrNam, @NEW_AppNam, @NEW_AppUsr, @NEW_IDInst, @NEW_AdmMsg, @NEW_AppKnd END CLOSE CUR_R911SEC_UPD_OLD_REP DEALLOCATE CUR_R911SEC_UPD_OLD_REP CLOSE CUR_R911SEC_UPD_NEW_REP DEALLOCATE CUR_R911SEC_UPD_NEW_REP FIM: END GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R911SEC_AD' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R911SEC_AD END GO CREATE TRIGGER wf_r911sec_ad ON r911sec FOR delete AS BEGIN DECLARE @OLD_NumSec BIGINT DECLARE @OLD_DatTim NUMERIC(14, 6) DECLARE @OLD_ComNam VARCHAR(30) DECLARE @OLD_UsrNam VARCHAR(30) DECLARE @OLD_AppNam VARCHAR(255) DECLARE @OLD_AppUsr VARCHAR(30) DECLARE @OLD_IDInst SMALLINT DECLARE @OLD_AdmMsg SMALLINT DECLARE @OLD_AppKnd SMALLINT DECLARE CUR_R911SEC_DEL_OLD_REP CURSOR FOR SELECT old.numsec O_NumSec,old.dattim O_DatTim,old.comnam O_ComNam,old.usrnam O_UsrNam,old.appnam O_AppNam,old.appusr O_AppUsr,old.idinst O_IDInst,old.admmsg O_AdmMsg,old.appknd O_AppKnd FROM deleted old DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R911SEC_DEL_OLD_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R911SEC_DEL_OLD_REP DEALLOCATE CUR_R911SEC_DEL_OLD_REP GOTO FIM END FETCH NEXT FROM CUR_R911SEC_DEL_OLD_REP INTO @OLD_NumSec, @OLD_DatTim, @OLD_ComNam, @OLD_UsrNam, @OLD_AppNam, @OLD_AppUsr, @OLD_IDInst, @OLD_AdmMsg, @OLD_AppKnd WHILE (@@FETCH_STATUS = 0) BEGIN DELETE FROM [NOME_DA_BASE].DBO.R911SEC WHERE (numsec=@old_numsec) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R911SEC_DEL_OLD_REP DEALLOCATE CUR_R911SEC_DEL_OLD_REP GOTO FIM END FETCH NEXT FROM CUR_R911SEC_DEL_OLD_REP INTO @OLD_NumSec, @OLD_DatTim, @OLD_ComNam, @OLD_UsrNam, @OLD_AppNam, @OLD_AppUsr, @OLD_IDInst, @OLD_AdmMsg, @OLD_AppKnd END CLOSE CUR_R911SEC_DEL_OLD_REP DEALLOCATE CUR_R911SEC_DEL_OLD_REP FIM: END -- Tabela: R911SRV GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R911SRV_AI' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R911SRV_AI END GO CREATE TRIGGER wf_r911srv_ai ON r911srv FOR insert AS BEGIN DECLARE @NEW_NumSrv BIGINT DECLARE @NEW_NumSec BIGINT DECLARE CUR_R911SRV_INS_NEW_REP CURSOR FOR SELECT new.numsrv N_NumSrv,new.numsec N_NumSec FROM inserted new DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R911SRV_INS_NEW_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R911SRV_INS_NEW_REP DEALLOCATE CUR_R911SRV_INS_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R911SRV_INS_NEW_REP INTO @NEW_NumSrv, @NEW_NumSec WHILE (@@FETCH_STATUS = 0) BEGIN INSERT INTO [NOME_DA_BASE].DBO.R911SRV (numsrv,numsec) VALUES (@NEW_NumSrv,@NEW_NumSec) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R911SRV_INS_NEW_REP DEALLOCATE CUR_R911SRV_INS_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R911SRV_INS_NEW_REP INTO @NEW_NumSrv, @NEW_NumSec END CLOSE CUR_R911SRV_INS_NEW_REP DEALLOCATE CUR_R911SRV_INS_NEW_REP FIM: END GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R911SRV_AU' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R911SRV_AU END GO CREATE TRIGGER wf_r911srv_au ON r911srv FOR update AS BEGIN DECLARE @OLD_NumSrv BIGINT DECLARE @OLD_NumSec BIGINT DECLARE @NEW_NumSrv BIGINT DECLARE @NEW_NumSec BIGINT DECLARE CUR_R911SRV_UPD_OLD_REP CURSOR FOR SELECT old.numsrv O_NumSrv,old.numsec O_NumSec FROM deleted old DECLARE CUR_R911SRV_UPD_NEW_REP CURSOR FOR SELECT new.numsrv N_NumSrv,new.numsec N_NumSec FROM inserted new DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R911SRV_UPD_OLD_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R911SRV_UPD_OLD_REP DEALLOCATE CUR_R911SRV_UPD_OLD_REP CLOSE CUR_R911SRV_UPD_NEW_REP DEALLOCATE CUR_R911SRV_UPD_NEW_REP GOTO FIM END OPEN CUR_R911SRV_UPD_NEW_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R911SRV_UPD_OLD_REP DEALLOCATE CUR_R911SRV_UPD_OLD_REP CLOSE CUR_R911SRV_UPD_NEW_REP DEALLOCATE CUR_R911SRV_UPD_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R911SRV_UPD_OLD_REP INTO @OLD_NumSrv, @OLD_NumSec FETCH NEXT FROM CUR_R911SRV_UPD_NEW_REP INTO @NEW_NumSrv, @NEW_NumSec WHILE (@@FETCH_STATUS = 0) BEGIN UPDATE [NOME_DA_BASE].DBO.R911SRV SET numsrv=@NEW_NumSrv,numsec=@NEW_NumSec WHERE (numsrv=@old_numsrv) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R911SRV_UPD_OLD_REP DEALLOCATE CUR_R911SRV_UPD_OLD_REP CLOSE CUR_R911SRV_UPD_NEW_REP DEALLOCATE CUR_R911SRV_UPD_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R911SRV_UPD_OLD_REP INTO @OLD_NumSrv, @OLD_NumSec FETCH NEXT FROM CUR_R911SRV_UPD_NEW_REP INTO @NEW_NumSrv, @NEW_NumSec END CLOSE CUR_R911SRV_UPD_OLD_REP DEALLOCATE CUR_R911SRV_UPD_OLD_REP CLOSE CUR_R911SRV_UPD_NEW_REP DEALLOCATE CUR_R911SRV_UPD_NEW_REP FIM: END GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R911SRV_AD' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R911SRV_AD END GO CREATE TRIGGER wf_r911srv_ad ON r911srv FOR delete AS BEGIN DECLARE @OLD_NumSrv BIGINT DECLARE @OLD_NumSec BIGINT DECLARE CUR_R911SRV_DEL_OLD_REP CURSOR FOR SELECT old.numsrv O_NumSrv,old.numsec O_NumSec FROM deleted old DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R911SRV_DEL_OLD_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R911SRV_DEL_OLD_REP DEALLOCATE CUR_R911SRV_DEL_OLD_REP GOTO FIM END FETCH NEXT FROM CUR_R911SRV_DEL_OLD_REP INTO @OLD_NumSrv, @OLD_NumSec WHILE (@@FETCH_STATUS = 0) BEGIN DELETE FROM [NOME_DA_BASE].DBO.R911SRV WHERE (numsrv=@old_numsrv) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R911SRV_DEL_OLD_REP DEALLOCATE CUR_R911SRV_DEL_OLD_REP GOTO FIM END FETCH NEXT FROM CUR_R911SRV_DEL_OLD_REP INTO @OLD_NumSrv, @OLD_NumSec END CLOSE CUR_R911SRV_DEL_OLD_REP DEALLOCATE CUR_R911SRV_DEL_OLD_REP FIM: END -- Tabela: R999USU GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R999USU_AI' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R999USU_AI END GO CREATE TRIGGER wf_r999usu_ai ON r999usu FOR insert AS BEGIN DECLARE @NEW_CodUsu BIGINT DECLARE @NEW_NomUsu VARCHAR(255) DECLARE @NEW_TipCol VARCHAR(10) DECLARE @NEW_NumEmp VARCHAR(255) DECLARE @NEW_CodFil VARCHAR(50) DECLARE @NEW_CodLoc VARCHAR(200) DECLARE @NEW_NumCad VARCHAR(50) DECLARE CUR_R999USU_INS_NEW_REP CURSOR FOR SELECT new.codusu N_CodUsu,new.nomusu N_NomUsu,new.tipcol N_TipCol,new.numemp N_NumEmp,new.codfil N_CodFil,new.codloc N_CodLoc,new.numcad N_NumCad FROM inserted new DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R999USU_INS_NEW_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R999USU_INS_NEW_REP DEALLOCATE CUR_R999USU_INS_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R999USU_INS_NEW_REP INTO @NEW_CodUsu, @NEW_NomUsu, @NEW_TipCol, @NEW_NumEmp, @NEW_CodFil, @NEW_CodLoc, @NEW_NumCad WHILE (@@FETCH_STATUS = 0) BEGIN INSERT INTO [NOME_DA_BASE].DBO.R999USU (codusu,nomusu,tipcol,numemp,codfil,codloc,numcad) VALUES (@NEW_CodUsu,@NEW_NomUsu,@NEW_TipCol,@NEW_NumEmp,@NEW_CodFil,@NEW_CodLoc,@NEW_NumCad) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R999USU_INS_NEW_REP DEALLOCATE CUR_R999USU_INS_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R999USU_INS_NEW_REP INTO @NEW_CodUsu, @NEW_NomUsu, @NEW_TipCol, @NEW_NumEmp, @NEW_CodFil, @NEW_CodLoc, @NEW_NumCad END CLOSE CUR_R999USU_INS_NEW_REP DEALLOCATE CUR_R999USU_INS_NEW_REP FIM: END GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R999USU_AU' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R999USU_AU END GO CREATE TRIGGER wf_r999usu_au ON r999usu FOR update AS BEGIN DECLARE @OLD_CodUsu BIGINT DECLARE @OLD_NomUsu VARCHAR(255) DECLARE @OLD_TipCol VARCHAR(10) DECLARE @OLD_NumEmp VARCHAR(255) DECLARE @OLD_CodFil VARCHAR(50) DECLARE @OLD_CodLoc VARCHAR(200) DECLARE @OLD_NumCad VARCHAR(50) DECLARE @NEW_CodUsu BIGINT DECLARE @NEW_NomUsu VARCHAR(255) DECLARE @NEW_TipCol VARCHAR(10) DECLARE @NEW_NumEmp VARCHAR(255) DECLARE @NEW_CodFil VARCHAR(50) DECLARE @NEW_CodLoc VARCHAR(200) DECLARE @NEW_NumCad VARCHAR(50) DECLARE CUR_R999USU_UPD_OLD_REP CURSOR FOR SELECT old.codusu O_CodUsu,old.nomusu O_NomUsu,old.tipcol O_TipCol,old.numemp O_NumEmp,old.codfil O_CodFil,old.codloc O_CodLoc,old.numcad O_NumCad FROM deleted old DECLARE CUR_R999USU_UPD_NEW_REP CURSOR FOR SELECT new.codusu N_CodUsu,new.nomusu N_NomUsu,new.tipcol N_TipCol,new.numemp N_NumEmp,new.codfil N_CodFil,new.codloc N_CodLoc,new.numcad N_NumCad FROM inserted new DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R999USU_UPD_OLD_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R999USU_UPD_OLD_REP DEALLOCATE CUR_R999USU_UPD_OLD_REP CLOSE CUR_R999USU_UPD_NEW_REP DEALLOCATE CUR_R999USU_UPD_NEW_REP GOTO FIM END OPEN CUR_R999USU_UPD_NEW_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R999USU_UPD_OLD_REP DEALLOCATE CUR_R999USU_UPD_OLD_REP CLOSE CUR_R999USU_UPD_NEW_REP DEALLOCATE CUR_R999USU_UPD_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R999USU_UPD_OLD_REP INTO @OLD_CodUsu, @OLD_NomUsu, @OLD_TipCol, @OLD_NumEmp, @OLD_CodFil, @OLD_CodLoc, @OLD_NumCad FETCH NEXT FROM CUR_R999USU_UPD_NEW_REP INTO @NEW_CodUsu, @NEW_NomUsu, @NEW_TipCol, @NEW_NumEmp, @NEW_CodFil, @NEW_CodLoc, @NEW_NumCad WHILE (@@FETCH_STATUS = 0) BEGIN UPDATE [NOME_DA_BASE].DBO.R999USU SET codusu=@NEW_CodUsu,nomusu=@NEW_NomUsu,tipcol=@NEW_TipCol,numemp=@NEW_NumEmp,codfil=@NEW_CodFil,codloc=@NEW_CodLoc,numcad=@NEW_NumCad WHERE (codusu=@old_codusu) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R999USU_UPD_OLD_REP DEALLOCATE CUR_R999USU_UPD_OLD_REP CLOSE CUR_R999USU_UPD_NEW_REP DEALLOCATE CUR_R999USU_UPD_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R999USU_UPD_OLD_REP INTO @OLD_CodUsu, @OLD_NomUsu, @OLD_TipCol, @OLD_NumEmp, @OLD_CodFil, @OLD_CodLoc, @OLD_NumCad FETCH NEXT FROM CUR_R999USU_UPD_NEW_REP INTO @NEW_CodUsu, @NEW_NomUsu, @NEW_TipCol, @NEW_NumEmp, @NEW_CodFil, @NEW_CodLoc, @NEW_NumCad END CLOSE CUR_R999USU_UPD_OLD_REP DEALLOCATE CUR_R999USU_UPD_OLD_REP CLOSE CUR_R999USU_UPD_NEW_REP DEALLOCATE CUR_R999USU_UPD_NEW_REP FIM: END GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R999USU_AD' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R999USU_AD END GO CREATE TRIGGER wf_r999usu_ad ON r999usu FOR delete AS BEGIN DECLARE @OLD_CodUsu BIGINT DECLARE @OLD_NomUsu VARCHAR(255) DECLARE @OLD_TipCol VARCHAR(10) DECLARE @OLD_NumEmp VARCHAR(255) DECLARE @OLD_CodFil VARCHAR(50) DECLARE @OLD_CodLoc VARCHAR(200) DECLARE @OLD_NumCad VARCHAR(50) DECLARE CUR_R999USU_DEL_OLD_REP CURSOR FOR SELECT old.codusu O_CodUsu,old.nomusu O_NomUsu,old.tipcol O_TipCol,old.numemp O_NumEmp,old.codfil O_CodFil,old.codloc O_CodLoc,old.numcad O_NumCad FROM deleted old DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R999USU_DEL_OLD_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R999USU_DEL_OLD_REP DEALLOCATE CUR_R999USU_DEL_OLD_REP GOTO FIM END FETCH NEXT FROM CUR_R999USU_DEL_OLD_REP INTO @OLD_CodUsu, @OLD_NomUsu, @OLD_TipCol, @OLD_NumEmp, @OLD_CodFil, @OLD_CodLoc, @OLD_NumCad WHILE (@@FETCH_STATUS = 0) BEGIN DELETE FROM [NOME_DA_BASE].DBO.R999USU WHERE (codusu=@old_codusu) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R999USU_DEL_OLD_REP DEALLOCATE CUR_R999USU_DEL_OLD_REP GOTO FIM END FETCH NEXT FROM CUR_R999USU_DEL_OLD_REP INTO @OLD_CodUsu, @OLD_NomUsu, @OLD_TipCol, @OLD_NumEmp, @OLD_CodFil, @OLD_CodLoc, @OLD_NumCad END CLOSE CUR_R999USU_DEL_OLD_REP DEALLOCATE CUR_R999USU_DEL_OLD_REP FIM: END -- Tabela: R900FAC GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R900FAC_AI' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R900FAC_AI END GO CREATE TRIGGER wf_r900fac_ai ON r900fac FOR insert AS BEGIN DECLARE @NEW_FRMID VARCHAR(64) DECLARE @NEW_DATSEQ SMALLINT DECLARE @NEW_DAT1 VARCHAR(254) DECLARE @NEW_DAT2 VARCHAR(254) DECLARE CUR_R900FAC_INS_NEW_REP CURSOR FOR SELECT new.frmid N_FRMID,new.datseq N_DATSEQ,new.dat1 N_DAT1,new.dat2 N_DAT2 FROM inserted new DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R900FAC_INS_NEW_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900FAC_INS_NEW_REP DEALLOCATE CUR_R900FAC_INS_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R900FAC_INS_NEW_REP INTO @NEW_FRMID, @NEW_DATSEQ, @NEW_DAT1, @NEW_DAT2 WHILE (@@FETCH_STATUS = 0) BEGIN INSERT INTO [NOME_DA_BASE].DBO.R900FAC (frmid,datseq,dat1,dat2) VALUES (@NEW_FRMID,@NEW_DATSEQ,@NEW_DAT1,@NEW_DAT2) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900FAC_INS_NEW_REP DEALLOCATE CUR_R900FAC_INS_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R900FAC_INS_NEW_REP INTO @NEW_FRMID, @NEW_DATSEQ, @NEW_DAT1, @NEW_DAT2 END CLOSE CUR_R900FAC_INS_NEW_REP DEALLOCATE CUR_R900FAC_INS_NEW_REP FIM: END GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R900FAC_AU' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R900FAC_AU END GO CREATE TRIGGER wf_r900fac_au ON r900fac FOR update AS BEGIN DECLARE @OLD_FRMID VARCHAR(64) DECLARE @OLD_DATSEQ SMALLINT DECLARE @OLD_DAT1 VARCHAR(254) DECLARE @OLD_DAT2 VARCHAR(254) DECLARE @NEW_FRMID VARCHAR(64) DECLARE @NEW_DATSEQ SMALLINT DECLARE @NEW_DAT1 VARCHAR(254) DECLARE @NEW_DAT2 VARCHAR(254) DECLARE CUR_R900FAC_UPD_OLD_REP CURSOR FOR SELECT old.frmid O_FRMID,old.datseq O_DATSEQ,old.dat1 O_DAT1,old.dat2 O_DAT2 FROM deleted old DECLARE CUR_R900FAC_UPD_NEW_REP CURSOR FOR SELECT new.frmid N_FRMID,new.datseq N_DATSEQ,new.dat1 N_DAT1,new.dat2 N_DAT2 FROM inserted new DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R900FAC_UPD_OLD_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900FAC_UPD_OLD_REP DEALLOCATE CUR_R900FAC_UPD_OLD_REP CLOSE CUR_R900FAC_UPD_NEW_REP DEALLOCATE CUR_R900FAC_UPD_NEW_REP GOTO FIM END OPEN CUR_R900FAC_UPD_NEW_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900FAC_UPD_OLD_REP DEALLOCATE CUR_R900FAC_UPD_OLD_REP CLOSE CUR_R900FAC_UPD_NEW_REP DEALLOCATE CUR_R900FAC_UPD_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R900FAC_UPD_OLD_REP INTO @OLD_FRMID, @OLD_DATSEQ, @OLD_DAT1, @OLD_DAT2 FETCH NEXT FROM CUR_R900FAC_UPD_NEW_REP INTO @NEW_FRMID, @NEW_DATSEQ, @NEW_DAT1, @NEW_DAT2 WHILE (@@FETCH_STATUS = 0) BEGIN UPDATE [NOME_DA_BASE].DBO.R900FAC SET frmid=@NEW_FRMID,datseq=@NEW_DATSEQ,dat1=@NEW_DAT1,dat2=@NEW_DAT2 WHERE (frmid=@old_frmid) and (datseq=@old_datseq) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900FAC_UPD_OLD_REP DEALLOCATE CUR_R900FAC_UPD_OLD_REP CLOSE CUR_R900FAC_UPD_NEW_REP DEALLOCATE CUR_R900FAC_UPD_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R900FAC_UPD_OLD_REP INTO @OLD_FRMID, @OLD_DATSEQ, @OLD_DAT1, @OLD_DAT2 FETCH NEXT FROM CUR_R900FAC_UPD_NEW_REP INTO @NEW_FRMID, @NEW_DATSEQ, @NEW_DAT1, @NEW_DAT2 END CLOSE CUR_R900FAC_UPD_OLD_REP DEALLOCATE CUR_R900FAC_UPD_OLD_REP CLOSE CUR_R900FAC_UPD_NEW_REP DEALLOCATE CUR_R900FAC_UPD_NEW_REP FIM: END GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R900FAC_AD' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R900FAC_AD END GO CREATE TRIGGER wf_r900fac_ad ON r900fac FOR delete AS BEGIN DECLARE @OLD_FRMID VARCHAR(64) DECLARE @OLD_DATSEQ SMALLINT DECLARE @OLD_DAT1 VARCHAR(254) DECLARE @OLD_DAT2 VARCHAR(254) DECLARE CUR_R900FAC_DEL_OLD_REP CURSOR FOR SELECT old.frmid O_FRMID,old.datseq O_DATSEQ,old.dat1 O_DAT1,old.dat2 O_DAT2 FROM deleted old DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R900FAC_DEL_OLD_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900FAC_DEL_OLD_REP DEALLOCATE CUR_R900FAC_DEL_OLD_REP GOTO FIM END FETCH NEXT FROM CUR_R900FAC_DEL_OLD_REP INTO @OLD_FRMID, @OLD_DATSEQ, @OLD_DAT1, @OLD_DAT2 WHILE (@@FETCH_STATUS = 0) BEGIN DELETE FROM [NOME_DA_BASE].DBO.R900FAC WHERE (frmid=@old_frmid) and (datseq=@old_datseq) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R900FAC_DEL_OLD_REP DEALLOCATE CUR_R900FAC_DEL_OLD_REP GOTO FIM END FETCH NEXT FROM CUR_R900FAC_DEL_OLD_REP INTO @OLD_FRMID, @OLD_DATSEQ, @OLD_DAT1, @OLD_DAT2 END CLOSE CUR_R900FAC_DEL_OLD_REP DEALLOCATE CUR_R900FAC_DEL_OLD_REP FIM: END -- Tabela: R910PMN GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R910PMN_AI' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R910PMN_AI END GO CREATE TRIGGER wf_r910pmn_ai ON r910pmn FOR insert AS BEGIN DECLARE @NEW_NomMnu VARCHAR(100) DECLARE @NEW_CodEnt BIGINT DECLARE @NEW_PerCon VARCHAR(1) DECLARE @NEW_PerIns VARCHAR(1) DECLARE @NEW_PerAlt VARCHAR(1) DECLARE @NEW_PerExc VARCHAR(1) DECLARE @NEW_AltPer VARCHAR(1) DECLARE CUR_R910PMN_INS_NEW_REP CURSOR FOR SELECT new.nommnu N_NomMnu,new.codent N_CodEnt,new.percon N_PerCon,new.perins N_PerIns,new.peralt N_PerAlt,new.perexc N_PerExc,new.altper N_AltPer FROM inserted new DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R910PMN_INS_NEW_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R910PMN_INS_NEW_REP DEALLOCATE CUR_R910PMN_INS_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R910PMN_INS_NEW_REP INTO @NEW_NomMnu, @NEW_CodEnt, @NEW_PerCon, @NEW_PerIns, @NEW_PerAlt, @NEW_PerExc, @NEW_AltPer WHILE (@@FETCH_STATUS = 0) BEGIN INSERT INTO [NOME_DA_BASE].DBO.R910PMN (nommnu,codent,percon,perins,peralt,perexc,altper) VALUES (@NEW_NomMnu,@NEW_CodEnt,@NEW_PerCon,@NEW_PerIns,@NEW_PerAlt,@NEW_PerExc,@NEW_AltPer) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R910PMN_INS_NEW_REP DEALLOCATE CUR_R910PMN_INS_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R910PMN_INS_NEW_REP INTO @NEW_NomMnu, @NEW_CodEnt, @NEW_PerCon, @NEW_PerIns, @NEW_PerAlt, @NEW_PerExc, @NEW_AltPer END CLOSE CUR_R910PMN_INS_NEW_REP DEALLOCATE CUR_R910PMN_INS_NEW_REP FIM: END GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R910PMN_AU' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R910PMN_AU END GO CREATE TRIGGER wf_r910pmn_au ON r910pmn FOR update AS BEGIN DECLARE @OLD_NomMnu VARCHAR(100) DECLARE @OLD_CodEnt BIGINT DECLARE @OLD_PerCon VARCHAR(1) DECLARE @OLD_PerIns VARCHAR(1) DECLARE @OLD_PerAlt VARCHAR(1) DECLARE @OLD_PerExc VARCHAR(1) DECLARE @OLD_AltPer VARCHAR(1) DECLARE @NEW_NomMnu VARCHAR(100) DECLARE @NEW_CodEnt BIGINT DECLARE @NEW_PerCon VARCHAR(1) DECLARE @NEW_PerIns VARCHAR(1) DECLARE @NEW_PerAlt VARCHAR(1) DECLARE @NEW_PerExc VARCHAR(1) DECLARE @NEW_AltPer VARCHAR(1) DECLARE CUR_R910PMN_UPD_OLD_REP CURSOR FOR SELECT old.nommnu O_NomMnu,old.codent O_CodEnt,old.percon O_PerCon,old.perins O_PerIns,old.peralt O_PerAlt,old.perexc O_PerExc,old.altper O_AltPer FROM deleted old DECLARE CUR_R910PMN_UPD_NEW_REP CURSOR FOR SELECT new.nommnu N_NomMnu,new.codent N_CodEnt,new.percon N_PerCon,new.perins N_PerIns,new.peralt N_PerAlt,new.perexc N_PerExc,new.altper N_AltPer FROM inserted new DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R910PMN_UPD_OLD_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R910PMN_UPD_OLD_REP DEALLOCATE CUR_R910PMN_UPD_OLD_REP CLOSE CUR_R910PMN_UPD_NEW_REP DEALLOCATE CUR_R910PMN_UPD_NEW_REP GOTO FIM END OPEN CUR_R910PMN_UPD_NEW_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R910PMN_UPD_OLD_REP DEALLOCATE CUR_R910PMN_UPD_OLD_REP CLOSE CUR_R910PMN_UPD_NEW_REP DEALLOCATE CUR_R910PMN_UPD_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R910PMN_UPD_OLD_REP INTO @OLD_NomMnu, @OLD_CodEnt, @OLD_PerCon, @OLD_PerIns, @OLD_PerAlt, @OLD_PerExc, @OLD_AltPer FETCH NEXT FROM CUR_R910PMN_UPD_NEW_REP INTO @NEW_NomMnu, @NEW_CodEnt, @NEW_PerCon, @NEW_PerIns, @NEW_PerAlt, @NEW_PerExc, @NEW_AltPer WHILE (@@FETCH_STATUS = 0) BEGIN UPDATE [NOME_DA_BASE].DBO.R910PMN SET nommnu=@NEW_NomMnu,codent=@NEW_CodEnt,percon=@NEW_PerCon,perins=@NEW_PerIns,peralt=@NEW_PerAlt,perexc=@NEW_PerExc,altper=@NEW_AltPer WHERE (nommnu=@old_nommnu) and (codent=@old_codent) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R910PMN_UPD_OLD_REP DEALLOCATE CUR_R910PMN_UPD_OLD_REP CLOSE CUR_R910PMN_UPD_NEW_REP DEALLOCATE CUR_R910PMN_UPD_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R910PMN_UPD_OLD_REP INTO @OLD_NomMnu, @OLD_CodEnt, @OLD_PerCon, @OLD_PerIns, @OLD_PerAlt, @OLD_PerExc, @OLD_AltPer FETCH NEXT FROM CUR_R910PMN_UPD_NEW_REP INTO @NEW_NomMnu, @NEW_CodEnt, @NEW_PerCon, @NEW_PerIns, @NEW_PerAlt, @NEW_PerExc, @NEW_AltPer END CLOSE CUR_R910PMN_UPD_OLD_REP DEALLOCATE CUR_R910PMN_UPD_OLD_REP CLOSE CUR_R910PMN_UPD_NEW_REP DEALLOCATE CUR_R910PMN_UPD_NEW_REP FIM: END GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R910PMN_AD' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R910PMN_AD END GO CREATE TRIGGER wf_r910pmn_ad ON r910pmn FOR delete AS BEGIN DECLARE @OLD_NomMnu VARCHAR(100) DECLARE @OLD_CodEnt BIGINT DECLARE @OLD_PerCon VARCHAR(1) DECLARE @OLD_PerIns VARCHAR(1) DECLARE @OLD_PerAlt VARCHAR(1) DECLARE @OLD_PerExc VARCHAR(1) DECLARE @OLD_AltPer VARCHAR(1) DECLARE CUR_R910PMN_DEL_OLD_REP CURSOR FOR SELECT old.nommnu O_NomMnu,old.codent O_CodEnt,old.percon O_PerCon,old.perins O_PerIns,old.peralt O_PerAlt,old.perexc O_PerExc,old.altper O_AltPer FROM deleted old DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R910PMN_DEL_OLD_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R910PMN_DEL_OLD_REP DEALLOCATE CUR_R910PMN_DEL_OLD_REP GOTO FIM END FETCH NEXT FROM CUR_R910PMN_DEL_OLD_REP INTO @OLD_NomMnu, @OLD_CodEnt, @OLD_PerCon, @OLD_PerIns, @OLD_PerAlt, @OLD_PerExc, @OLD_AltPer WHILE (@@FETCH_STATUS = 0) BEGIN DELETE FROM [NOME_DA_BASE].DBO.R910PMN WHERE (nommnu=@old_nommnu) and (codent=@old_codent) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R910PMN_DEL_OLD_REP DEALLOCATE CUR_R910PMN_DEL_OLD_REP GOTO FIM END FETCH NEXT FROM CUR_R910PMN_DEL_OLD_REP INTO @OLD_NomMnu, @OLD_CodEnt, @OLD_PerCon, @OLD_PerIns, @OLD_PerAlt, @OLD_PerExc, @OLD_AltPer END CLOSE CUR_R910PMN_DEL_OLD_REP DEALLOCATE CUR_R910PMN_DEL_OLD_REP FIM: END -- Tabela: R910MNU GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R910MNU_AI' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R910MNU_AI END GO CREATE TRIGGER wf_r910mnu_ai ON r910mnu FOR insert AS BEGIN DECLARE @NEW_NomMnu VARCHAR(255) DECLARE @NEW_NomPai VARCHAR(255) DECLARE @NEW_DesMnu VARCHAR(255) DECLARE @NEW_TipMnu SMALLINT DECLARE CUR_R910MNU_INS_NEW_REP CURSOR FOR SELECT new.nommnu N_NomMnu,new.nompai N_NomPai,new.desmnu N_DesMnu,new.tipmnu N_TipMnu FROM inserted new DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R910MNU_INS_NEW_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R910MNU_INS_NEW_REP DEALLOCATE CUR_R910MNU_INS_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R910MNU_INS_NEW_REP INTO @NEW_NomMnu, @NEW_NomPai, @NEW_DesMnu, @NEW_TipMnu WHILE (@@FETCH_STATUS = 0) BEGIN INSERT INTO [NOME_DA_BASE].DBO.R910MNU (nommnu,nompai,desmnu,tipmnu) VALUES (@NEW_NomMnu,@NEW_NomPai,@NEW_DesMnu,@NEW_TipMnu) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R910MNU_INS_NEW_REP DEALLOCATE CUR_R910MNU_INS_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R910MNU_INS_NEW_REP INTO @NEW_NomMnu, @NEW_NomPai, @NEW_DesMnu, @NEW_TipMnu END CLOSE CUR_R910MNU_INS_NEW_REP DEALLOCATE CUR_R910MNU_INS_NEW_REP FIM: END GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R910MNU_AU' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R910MNU_AU END GO CREATE TRIGGER wf_r910mnu_au ON r910mnu FOR update AS BEGIN DECLARE @OLD_NomMnu VARCHAR(255) DECLARE @OLD_NomPai VARCHAR(255) DECLARE @OLD_DesMnu VARCHAR(255) DECLARE @OLD_TipMnu SMALLINT DECLARE @NEW_NomMnu VARCHAR(255) DECLARE @NEW_NomPai VARCHAR(255) DECLARE @NEW_DesMnu VARCHAR(255) DECLARE @NEW_TipMnu SMALLINT DECLARE CUR_R910MNU_UPD_OLD_REP CURSOR FOR SELECT old.nommnu O_NomMnu,old.nompai O_NomPai,old.desmnu O_DesMnu,old.tipmnu O_TipMnu FROM deleted old DECLARE CUR_R910MNU_UPD_NEW_REP CURSOR FOR SELECT new.nommnu N_NomMnu,new.nompai N_NomPai,new.desmnu N_DesMnu,new.tipmnu N_TipMnu FROM inserted new DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R910MNU_UPD_OLD_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R910MNU_UPD_OLD_REP DEALLOCATE CUR_R910MNU_UPD_OLD_REP CLOSE CUR_R910MNU_UPD_NEW_REP DEALLOCATE CUR_R910MNU_UPD_NEW_REP GOTO FIM END OPEN CUR_R910MNU_UPD_NEW_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R910MNU_UPD_OLD_REP DEALLOCATE CUR_R910MNU_UPD_OLD_REP CLOSE CUR_R910MNU_UPD_NEW_REP DEALLOCATE CUR_R910MNU_UPD_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R910MNU_UPD_OLD_REP INTO @OLD_NomMnu, @OLD_NomPai, @OLD_DesMnu, @OLD_TipMnu FETCH NEXT FROM CUR_R910MNU_UPD_NEW_REP INTO @NEW_NomMnu, @NEW_NomPai, @NEW_DesMnu, @NEW_TipMnu WHILE (@@FETCH_STATUS = 0) BEGIN UPDATE [NOME_DA_BASE].DBO.R910MNU SET nommnu=@NEW_NomMnu,nompai=@NEW_NomPai,desmnu=@NEW_DesMnu,tipmnu=@NEW_TipMnu WHERE (nommnu=@old_nommnu) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R910MNU_UPD_OLD_REP DEALLOCATE CUR_R910MNU_UPD_OLD_REP CLOSE CUR_R910MNU_UPD_NEW_REP DEALLOCATE CUR_R910MNU_UPD_NEW_REP GOTO FIM END FETCH NEXT FROM CUR_R910MNU_UPD_OLD_REP INTO @OLD_NomMnu, @OLD_NomPai, @OLD_DesMnu, @OLD_TipMnu FETCH NEXT FROM CUR_R910MNU_UPD_NEW_REP INTO @NEW_NomMnu, @NEW_NomPai, @NEW_DesMnu, @NEW_TipMnu END CLOSE CUR_R910MNU_UPD_OLD_REP DEALLOCATE CUR_R910MNU_UPD_OLD_REP CLOSE CUR_R910MNU_UPD_NEW_REP DEALLOCATE CUR_R910MNU_UPD_NEW_REP FIM: END GO IF EXISTS (SELECT * FROM sys.objects WHERE name = N'WF_R910MNU_AD' AND [type] = 'TR') BEGIN DROP TRIGGER WF_R910MNU_AD END GO CREATE TRIGGER wf_r910mnu_ad ON r910mnu FOR delete AS BEGIN DECLARE @OLD_NomMnu VARCHAR(255) DECLARE @OLD_NomPai VARCHAR(255) DECLARE @OLD_DesMnu VARCHAR(255) DECLARE @OLD_TipMnu SMALLINT DECLARE CUR_R910MNU_DEL_OLD_REP CURSOR FOR SELECT old.nommnu O_NomMnu,old.nompai O_NomPai,old.desmnu O_DesMnu,old.tipmnu O_TipMnu FROM deleted old DECLARE @ChkError INTEGER SELECT @ChkError = 0 OPEN CUR_R910MNU_DEL_OLD_REP SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R910MNU_DEL_OLD_REP DEALLOCATE CUR_R910MNU_DEL_OLD_REP GOTO FIM END FETCH NEXT FROM CUR_R910MNU_DEL_OLD_REP INTO @OLD_NomMnu, @OLD_NomPai, @OLD_DesMnu, @OLD_TipMnu WHILE (@@FETCH_STATUS = 0) BEGIN DELETE FROM [NOME_DA_BASE].DBO.R910MNU WHERE (nommnu=@old_nommnu) SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_R910MNU_DEL_OLD_REP DEALLOCATE CUR_R910MNU_DEL_OLD_REP GOTO FIM END FETCH NEXT FROM CUR_R910MNU_DEL_OLD_REP INTO @OLD_NomMnu, @OLD_NomPai, @OLD_DesMnu, @OLD_TipMnu END CLOSE CUR_R910MNU_DEL_OLD_REP DEALLOCATE CUR_R910MNU_DEL_OLD_REP FIM: END