1 08:50:37 DATA IN - Param = 1, Type = fldINT16, Precision = 0, Scale = 0, Data = 100 2 08:50:37 DATA IN - Param = 2, Type = fldINT16, Precision = 0, Scale = 0, Data = 200 3 08:50:37 DATA IN - Param = 3, Type = fldINT16, Precision = 0, Scale = 0, Data = 0 4 08:50:37 DATA IN - Param = 4, Type = fldINT16, Precision = 0, Scale = 0, Data = 10 5 08:50:37 EXECUTE - SELECT E045CCC.CODEMP, E045CCC.CODFIL, E045CCC.CODCCU, E045CCC.CTAAUX, E043RMP.CTAATU FROM E045CCC, E043RMP WHERE E045CCC.CODEMP = ? AND E045CCC.CTARED = E043RMP.CTAANT AND E043RMP.CODMPC = ? AND E043RMP.CODMPU = ? AND E043RMP.CODMPA = ? AND E043RMP.CTAATU IN (SELECT RMP.CTAATU FROM E043RMP RMP WHERE RMP.CODMPC = E043RMP.CODMPC AND RMP.CODMPU = E043RMP.CODMPU AND RMP.CODMPA = E043RMP.CODMPA) GROUP BY E045CCC.CODEMP, E045CCC.CODFIL, E045CCC.CODCCU, E045CCC.CTAAUX, E043RMP.CTAATU HAVING COUNT(E043RMP.CTAATU) > 1 ORDER BY 1,2,3,4,5 6 08:50:37 EXECUTE - if exists (select 1 from sysobjects where sysstat & 0xf = 8 and type = 'TR' and id = object_id('t640lctau') and uid = Schema_ID() ) DROP TRIGGER t640lctau 7 08:50:37 EXECUTE - if exists (select 1 from sysobjects where sysstat & 0xf = 8 and type = 'TR' and id = object_id('t640lctad') and uid = Schema_ID() ) DROP TRIGGER t640lctad 8 08:50:37 EXECUTE - if exists (select 1 from sysobjects where sysstat & 0xf = 8 and type = 'TR' and id = object_id('t640lctade') and uid = Schema_ID() ) DROP TRIGGER t640lctade 9 08:50:37 EXECUTE - if exists (select 1 from sysobjects where sysstat & 0xf = 8 and type = 'TR' and id = object_id('t640lctaue') and uid = Schema_ID() ) DROP TRIGGER t640lctaue 10 08:50:37 EXECUTE - if exists (select 1 from sysobjects where sysstat & 0xf = 8 and type = 'TR' and id = object_id('t640lctaie') and uid = Schema_ID() ) DROP TRIGGER t640lctaie 11 08:50:37 DATA IN - Param = 1, Type = fldZSTRING, Precision = 0, Scale = 0, Data = E070ECT 12 08:50:37 EXECUTE - SELECT DATSEQ, DATONE, DATTWO FROM R900TSV WHERE TBLNAM=? ORDER BY DATSEQ 13 08:50:37 DATA IN - Param = 1, Type = fldZSTRING, Precision = 0, Scale = 0, Data = S 14 08:50:37 EXECUTE - UPDATE E070ECT SET PRCMUD = ? WHERE ( (E070ECT.CODEMP = 100) ) 15 08:50:37 EXECUTE - if exists (select 1 from sysobjects where sysstat & 0xf = 8 and type = 'TR' and id = object_id('e642lctad') and uid = Schema_ID() ) DROP TRIGGER e642lctad 16 08:50:37 EXECUTE - if exists (select 1 from sysobjects where sysstat & 0xf = 8 and type = 'TR' and id = object_id('e642lctau') and uid = Schema_ID() ) DROP TRIGGER e642lctau 17 08:50:37 EXECUTE - if exists (select 1 from sysobjects where sysstat & 0xf = 8 and type = 'TR' and id = object_id('e642lctai') and uid = Schema_ID() ) DROP TRIGGER e642lctai 18 08:50:37 DATA IN - Param = 1, Type = fldUINT16, Precision = 0, Scale = 0, Data = 200 19 08:50:37 DATA IN - Param = 2, Type = fldUINT16, Precision = 0, Scale = 0, Data = 0 20 08:50:37 DATA IN - Param = 3, Type = fldUINT16, Precision = 0, Scale = 0, Data = 10 21 08:50:37 EXECUTE - SELECT CTAANT FROM E043RMP WHERE CODMPC = ? AND CODMPU = ? AND CODMPA = ? AND CTAANT IN (SELECT CTARED FROM E043PCM A WHERE A.CODMPC = E043RMP.CODMPC AND A.CTARED = E043RMP.CTAANT AND A.ANASIN = 'A') AND CTAATU IN (SELECT CTARED FROM E043PCM B WHERE B.CODMPC = E043RMP.CODMPA AND B.CTARED = E043RMP.CTAATU AND B.ANASIN = 'S') 22 08:50:37 EXECUTE - SELECT CODEMP,CODMOD FROM E700MOD WHERE USOCUS = 'S' 23 08:50:37 EXECUTE - SELECT CODEMP,CODROT FROM E710ROT WHERE USOCUS = 'S' 24 08:50:37 DATA IN - Param = 1, Type = fldZSTRING, Precision = 0, Scale = 0, Data = ALTPLANO1E000SCOCTARED 25 08:50:37 EXECUTE - SELECT DISTINCT(1) FROM E000LOG WHERE NOMTAB=? AND SEQLOG=1 AND TIPLOG='I' 26 08:50:37 DATA OUT - Column = 1, Type = fldINT32, Precision = 10, Scale = 0, Data = 1 27 08:50:37 DATA IN - Param = 1, Type = fldZSTRING, Precision = 0, Scale = 0, Data = ALTPLANO1E001RATCTARED 28 08:50:37 EXECUTE - SELECT DISTINCT(1) FROM E000LOG WHERE NOMTAB=? AND SEQLOG=1 AND TIPLOG='I' 29 08:50:37 DATA IN - Param = 1, Type = fldZSTRING, Precision = 0, Scale = 0, Data = E001RAT 30 08:50:37 EXECUTE - SELECT DATSEQ, DATONE, DATTWO FROM R900TSV WHERE TBLNAM=? ORDER BY DATSEQ 31 08:50:37 DATA IN - Param = 1, Type = fldINT16, Precision = 0, Scale = 0, Data = 200 32 08:50:37 DATA IN - Param = 2, Type = fldINT16, Precision = 0, Scale = 0, Data = 0 33 08:50:37 DATA IN - Param = 3, Type = fldINT16, Precision = 0, Scale = 0, Data = 10 34 08:50:37 DATA IN - Param = 4, Type = fldINT16, Precision = 0, Scale = 0, Data = 200 35 08:50:37 DATA IN - Param = 5, Type = fldINT16, Precision = 0, Scale = 0, Data = 0 36 08:50:37 DATA IN - Param = 6, Type = fldINT16, Precision = 0, Scale = 0, Data = 10 37 08:50:37 EXECUTE - UPDATE E001RAT SET CtaRed=(SELECT DISTINCT CTAATU FROM E043RMP WHERE CODMPC=? AND CODMPU=? AND CODMPA=? AND CTAANT=E001RAT.CtaRed) WHERE ( (E001RAT.CODEMP = 100) ) AND E001RAT.CtaRed > 0 AND E001RAT.CtaRed <> (SELECT DISTINCT CTAATU FROM E043RMP WHERE CODMPC=? AND CODMPU=? AND CODMPA=? AND CTAANT=E001RAT.CtaRed) 38 08:50:37 ERROR - Error returned from ODBC function SQLExecute in TSqlCommandOdbc.Execute ODBC Return Code: -1 (SQL_ERROR) ODBC SqlState: 21000 Native Error Code: 512 Error Message: [Microsoft][SQL Server Native Client 11.0][SQL Server]Subquery returned more than 1 value. This is not permitted when the subquery follows =, !=, <, <= , >, >= or when the subquery is used as an expression. Pocedure: , Line: 1 ODBC SqlState: 01000 Native Error Code: 3621 Error Message: [Microsoft][SQL Server Native Client 11.0][SQL Server]The statement has been terminated. Pocedure: , Line: 1 39 08:50:38 EXECUTE - if exists (select 1 from sysobjects where sysstat & 0xf = 8 and type = 'TR' and id = object_id('e642lctad') and uid = Schema_ID() ) DROP TRIGGER e642lctad 40 08:50:38 EXECUTE - CREATE TRIGGER e642lctad ON e642lct FOR delete AS BEGIN SET XACT_ABORT OFF DECLARE @OLD_CodEmp SMALLINT DECLARE @OLD_NumLct BIGINT DECLARE @OLD_CtaRed INTEGER DECLARE @OLD_CtaAux INTEGER DECLARE @OLD_SeqLct SMALLINT DECLARE @OLD_NumFtc BIGINT DECLARE @OLD_OriLct VARCHAR(3) DECLARE @OLD_CodFil INTEGER DECLARE @OLD_DatLct DATETIME DECLARE @OLD_VlrLct NUMERIC(14, 2) DECLARE @OLD_CodHpd SMALLINT DECLARE @OLD_CplLct VARCHAR(250) DECLARE @OLD_NumLot INTEGER DECLARE @OLD_DebCre VARCHAR(1) DECLARE @OLD_DocLct VARCHAR(12) DECLARE @OLD_SitAux SMALLINT DECLARE @OLD_CodUsu BIGINT DECLARE @OLD_DatEnt DATETIME DECLARE @OLD_HorEnt INTEGER DECLARE @OLD_ObsCpl VARCHAR(250) DECLARE CUR_e642lct_DEL_OLD CURSOR LOCAL FOR SELECT old.codemp O_CodEmp,old.numlct O_NumLct,old.ctared O_CtaRed,old.ctaaux O_CtaAux,old.seqlct O_SeqLct,old.numftc O_NumFtc,old.orilct O_OriLct,old.codfil O_CodFil,old.datlct O_DatLct,old.vlrlct O_VlrLct, old.codhpd O_CodHpd,old.cpllct O_CplLct,old.numlot O_NumLot,old.debcre O_DebCre,old.doclct O_DocLct,old.sitaux O_SitAux,old.codusu O_CodUsu,old.datent O_DatEnt,old.horent O_HorEnt,old.obscpl O_ObsCpl FROM deleted old DECLARE @wmesano DATETIME DECLARE @wvlraux FLOAT DECLARE @ChkError INTEGER SAVE TRANSACTION TR_e642lctad SELECT @ChkError = 0 OPEN CUR_e642lct_DEL_OLD SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_e642lct_DEL_OLD DEALLOCATE CUR_e642lct_DEL_OLD GOTO FIM END FETCH NEXT FROM CUR_e642lct_DEL_OLD INTO @OLD_CodEmp, @OLD_NumLct, @OLD_CtaRed, @OLD_CtaAux, @OLD_SeqLct, @OLD_NumFtc, @OLD_OriLct, @OLD_CodFil, @OLD_DatLct, @OLD_VlrLct, @OLD_CodHpd, @OLD_CplLct, @OLD_NumLot, @OLD_DebCre, @OLD_DocLct, @OLD_SitAux, @OLD_CodUsu, @OLD_DatEnt, @OLD_HorEnt, @OLD_ObsCpl WHILE (@@FETCH_STATUS = 0) BEGIN SELECT @WMESANO = CONVERT(DATETIME,CONVERT(VARCHAR,DATEPART(MONTH,@OLD_DATLCT))+'/'+CONVERT(VARCHAR,01)+'/'+CONVERT(VARCHAR,DATEPART(yy,@OLD_DATLCT))+' '+CONVERT(VARCHAR,0)+':'+CONVERT(VARCHAR,0)+':'+CONVERT(VARCHAR,0)) IF (@OLD_SITAUX=2) BEGIN SELECT @WVLRAUX = (@OLD_VLRLCT*-1) EXECUTE @ChkError = SP_ATUCONTASAUX @OLD_CODEMP,@OLD_CODFIL,@WMESANO,@OLD_CTAAUX,@OLD_CTARED,@WVLRAUX,@OLD_DEBCRE IF @ChkError <> 0 BEGIN CLOSE CUR_e642lct_DEL_OLD DEALLOCATE CUR_e642lct_DEL_OLD GOTO FIM END END FETCH NEXT FROM CUR_e642lct_DEL_OLD INTO @OLD_CodEmp, @OLD_NumLct, @OLD_CtaRed, @OLD_CtaAux, @OLD_SeqLct, @OLD_NumFtc, @OLD_OriLct, @OLD_CodFil, @OLD_DatLct, @OLD_VlrLct, @OLD_CodHpd, @OLD_CplLct, @OLD_NumLot, @OLD_DebCre, @OLD_DocLct, @OLD_SitAux, @OLD_CodUsu, @OLD_DatEnt, @OLD_HorEnt, @OLD_ObsCpl END CLOSE CUR_e642lct_DEL_OLD DEALLOCATE CUR_e642lct_DEL_OLD FIM: IF @ChkError <> 0 ROLLBACK TRANSACTION TR_e642lctad END 41 08:50:38 EXECUTE - if exists (select 1 from sysobjects where sysstat & 0xf = 8 and type = 'TR' and id = object_id('e642lctau') and uid = Schema_ID() ) DROP TRIGGER e642lctau 42 08:50:38 EXECUTE - CREATE TRIGGER e642lctau ON e642lct FOR update AS BEGIN SET XACT_ABORT OFF DECLARE @OLD_CodEmp SMALLINT DECLARE @OLD_NumLct BIGINT DECLARE @OLD_CtaRed INTEGER DECLARE @OLD_CtaAux INTEGER DECLARE @OLD_SeqLct SMALLINT DECLARE @OLD_NumFtc BIGINT DECLARE @OLD_OriLct VARCHAR(3) DECLARE @OLD_CodFil INTEGER DECLARE @OLD_DatLct DATETIME DECLARE @OLD_VlrLct NUMERIC(14, 2) DECLARE @OLD_CodHpd SMALLINT DECLARE @OLD_CplLct VARCHAR(250) DECLARE @OLD_NumLot INTEGER DECLARE @OLD_DebCre VARCHAR(1) DECLARE @OLD_DocLct VARCHAR(12) DECLARE @OLD_SitAux SMALLINT DECLARE @OLD_CodUsu BIGINT DECLARE @OLD_DatEnt DATETIME DECLARE @OLD_HorEnt INTEGER DECLARE @OLD_ObsCpl VARCHAR(250) DECLARE @NEW_CodEmp SMALLINT DECLARE @NEW_NumLct BIGINT DECLARE @NEW_CtaRed INTEGER DECLARE @NEW_CtaAux INTEGER DECLARE @NEW_SeqLct SMALLINT DECLARE @NEW_NumFtc BIGINT DECLARE @NEW_OriLct VARCHAR(3) DECLARE @NEW_CodFil INTEGER DECLARE @NEW_DatLct DATETIME DECLARE @NEW_VlrLct NUMERIC(14, 2) DECLARE @NEW_CodHpd SMALLINT DECLARE @NEW_CplLct VARCHAR(250) DECLARE @NEW_NumLot INTEGER DECLARE @NEW_DebCre VARCHAR(1) DECLARE @NEW_DocLct VARCHAR(12) DECLARE @NEW_SitAux SMALLINT DECLARE @NEW_CodUsu BIGINT DECLARE @NEW_DatEnt DATETIME DECLARE @NEW_HorEnt INTEGER DECLARE @NEW_ObsCpl VARCHAR(250) DECLARE CUR_e642lct_UPD_OLD CURSOR LOCAL FOR SELECT old.codemp O_CodEmp,old.numlct O_NumLct,old.ctared O_CtaRed,old.ctaaux O_CtaAux,old.seqlct O_SeqLct,old.numftc O_NumFtc,old.orilct O_OriLct,old.codfil O_CodFil,old.datlct O_DatLct,old.vlrlct O_VlrLct, old.codhpd O_CodHpd,old.cpllct O_CplLct,old.numlot O_NumLot,old.debcre O_DebCre,old.doclct O_DocLct,old.sitaux O_SitAux,old.codusu O_CodUsu,old.datent O_DatEnt,old.horent O_HorEnt,old.obscpl O_ObsCpl FROM deleted old DECLARE CUR_e642lct_UPD_NEW CURSOR LOCAL FOR SELECT new.codemp N_CodEmp,new.numlct N_NumLct,new.ctared N_CtaRed,new.ctaaux N_CtaAux,new.seqlct N_SeqLct,new.numftc N_NumFtc,new.orilct N_OriLct,new.codfil N_CodFil,new.datlct N_DatLct,new.vlrlct N_VlrLct, new.codhpd N_CodHpd,new.cpllct N_CplLct,new.numlot N_NumLot,new.debcre N_DebCre,new.doclct N_DocLct,new.sitaux N_SitAux,new.codusu N_CodUsu,new.datent N_DatEnt,new.horent N_HorEnt,new.obscpl N_ObsCpl FROM inserted new DECLARE @wmesano DATETIME DECLARE @wvlraux FLOAT DECLARE @wdiflct FLOAT DECLARE @ChkError INTEGER SAVE TRANSACTION TR_e642lctau SELECT @ChkError = 0 OPEN CUR_e642lct_UPD_OLD SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_e642lct_UPD_OLD DEALLOCATE CUR_e642lct_UPD_OLD CLOSE CUR_e642lct_UPD_NEW DEALLOCATE CUR_e642lct_UPD_NEW GOTO FIM END OPEN CUR_e642lct_UPD_NEW SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_e642lct_UPD_OLD DEALLOCATE CUR_e642lct_UPD_OLD CLOSE CUR_e642lct_UPD_NEW DEALLOCATE CUR_e642lct_UPD_NEW GOTO FIM END FETCH NEXT FROM CUR_e642lct_UPD_OLD INTO @OLD_CodEmp, @OLD_NumLct, @OLD_CtaRed, @OLD_CtaAux, @OLD_SeqLct, @OLD_NumFtc, @OLD_OriLct, @OLD_CodFil, @OLD_DatLct, @OLD_VlrLct, @OLD_CodHpd, @OLD_CplLct, @OLD_NumLot, @OLD_DebCre, @OLD_DocLct, @OLD_SitAux, @OLD_CodUsu, @OLD_DatEnt, @OLD_HorEnt, @OLD_ObsCpl FETCH NEXT FROM CUR_e642lct_UPD_NEW INTO @NEW_CodEmp, @NEW_NumLct, @NEW_CtaRed, @NEW_CtaAux, @NEW_SeqLct, @NEW_NumFtc, @NEW_OriLct, @NEW_CodFil, @NEW_DatLct, @NEW_VlrLct, @NEW_CodHpd, @NEW_CplLct, @NEW_NumLot, @NEW_DebCre, @NEW_DocLct, @NEW_SitAux, @NEW_CodUsu, @NEW_DatEnt, @NEW_HorEnt, @NEW_ObsCpl WHILE (@@FETCH_STATUS = 0) BEGIN SELECT @WMESANO = CONVERT(DATETIME,CONVERT(VARCHAR,DATEPART(MONTH,@OLD_DATLCT))+'/'+CONVERT(VARCHAR,01)+'/'+CONVERT(VARCHAR,DATEPART(yy,@OLD_DATLCT))+' '+CONVERT(VARCHAR,0)+':'+CONVERT(VARCHAR,0)+':'+CONVERT(VARCHAR,0)) IF (@OLD_SITAUX=3) AND (@NEW_SITAUX=2) BEGIN BEGIN RAISERROR('Trigger: Alteração de Situação de Excluído para Contabilizado não é Permitido',11,1) WITH SETERROR CLOSE CUR_e642lct_UPD_OLD DEALLOCATE CUR_e642lct_UPD_OLD CLOSE CUR_e642lct_UPD_NEW DEALLOCATE CUR_e642lct_UPD_NEW SELECT @ChkError = -30 GOTO FIM END END IF (@OLD_SITAUX=4) AND (@NEW_SITAUX<>2) BEGIN BEGIN RAISERROR('Trigger: A situação Eliminada (4) somente poderá ser retornada para situação Contabilizado (2)',11,1) WITH SETERROR CLOSE CUR_e642lct_UPD_OLD DEALLOCATE CUR_e642lct_UPD_OLD CLOSE CUR_e642lct_UPD_NEW DEALLOCATE CUR_e642lct_UPD_NEW SELECT @ChkError = -30 GOTO FIM END END IF (@OLD_SITAUX=1) AND (@NEW_SITAUX=2) BEGIN SELECT @WDIFLCT = @NEW_VLRLCT EXECUTE @ChkError = SP_ATUCONTASAUX @NEW_CODEMP,@NEW_CODFIL,@WMESANO,@NEW_CTAAUX,@NEW_CTARED,@WDIFLCT,@NEW_DEBCRE IF @ChkError <> 0 BEGIN CLOSE CUR_e642lct_UPD_OLD DEALLOCATE CUR_e642lct_UPD_OLD CLOSE CUR_e642lct_UPD_NEW DEALLOCATE CUR_e642lct_UPD_NEW GOTO FIM END END ELSE IF (@OLD_SITAUX=2) AND (@NEW_SITAUX=1) BEGIN SELECT @WDIFLCT = -@OLD_VLRLCT EXECUTE @ChkError = SP_ATUCONTASAUX @NEW_CODEMP,@NEW_CODFIL,@WMESANO,@NEW_CTAAUX,@NEW_CTARED,@WDIFLCT,@NEW_DEBCRE IF @ChkError <> 0 BEGIN CLOSE CUR_e642lct_UPD_OLD DEALLOCATE CUR_e642lct_UPD_OLD CLOSE CUR_e642lct_UPD_NEW DEALLOCATE CUR_e642lct_UPD_NEW GOTO FIM END END ELSE IF (@OLD_SITAUX=2) AND (@NEW_SITAUX=2) BEGIN IF (@OLD_CTAAUX<>@NEW_CTAAUX) BEGIN SELECT @WVLRAUX = (@OLD_VLRLCT*-1) EXECUTE @ChkError = SP_ATUCONTASAUX @OLD_CODEMP,@OLD_CODFIL,@WMESANO,@OLD_CTAAUX,@OLD_CTARED,@WVLRAUX,@OLD_DEBCRE IF @ChkError <> 0 BEGIN CLOSE CUR_e642lct_UPD_OLD DEALLOCATE CUR_e642lct_UPD_OLD CLOSE CUR_e642lct_UPD_NEW DEALLOCATE CUR_e642lct_UPD_NEW GOTO FIM END END SELECT @WDIFLCT = @NEW_VLRLCT IF (@OLD_CTAAUX=@NEW_CTAAUX) BEGIN SELECT @WDIFLCT = @NEW_VLRLCT-@OLD_VLRLCT END EXECUTE @ChkError = SP_ATUCONTASAUX @NEW_CODEMP,@NEW_CODFIL,@WMESANO,@NEW_CTAAUX,@NEW_CTARED,@WDIFLCT,@NEW_DEBCRE IF @ChkError <> 0 BEGIN CLOSE CUR_e642lct_UPD_OLD DEALLOCATE CUR_e642lct_UPD_OLD CLOSE CUR_e642lct_UPD_NEW DEALLOCATE CUR_e642lct_UPD_NEW GOTO FIM END END ELSE IF (@OLD_SITAUX=2) AND (@NEW_SITAUX=3) BEGIN SELECT @WDIFLCT = -@OLD_VLRLCT EXECUTE @ChkError = SP_ATUCONTASAUX @NEW_CODEMP,@NEW_CODFIL,@WMESANO,@NEW_CTAAUX,@NEW_CTARED,@WDIFLCT,@NEW_DEBCRE IF @ChkError <> 0 BEGIN CLOSE CUR_e642lct_UPD_OLD DEALLOCATE CUR_e642lct_UPD_OLD CLOSE CUR_e642lct_UPD_NEW DEALLOCATE CUR_e642lct_UPD_NEW GOTO FIM END END ELSE IF (@OLD_SITAUX=2) AND (@NEW_SITAUX=4) BEGIN SELECT @WDIFLCT = -@OLD_VLRLCT EXECUTE @ChkError = SP_ATUCONTASAUX @NEW_CODEMP,@NEW_CODFIL,@WMESANO,@NEW_CTAAUX,@NEW_CTARED,@WDIFLCT,@NEW_DEBCRE IF @ChkError <> 0 BEGIN CLOSE CUR_e642lct_UPD_OLD DEALLOCATE CUR_e642lct_UPD_OLD CLOSE CUR_e642lct_UPD_NEW DEALLOCATE CUR_e642lct_UPD_NEW GOTO FIM END END ELSE IF (@OLD_SITAUX=4) AND (@NEW_SITAUX=2) BEGIN SELECT @WDIFLCT = @NEW_VLRLCT EXECUTE @ChkError = SP_ATUCONTASAUX @NEW_CODEMP,@NEW_CODFIL,@WMESANO,@NEW_CTAAUX,@NEW_CTARED,@WDIFLCT,@NEW_DEBCRE IF @ChkError <> 0 BEGIN CLOSE CUR_e642lct_UPD_OLD DEALLOCATE CUR_e642lct_UPD_OLD CLOSE CUR_e642lct_UPD_NEW DEALLOCATE CUR_e642lct_UPD_NEW GOTO FIM END END FETCH NEXT FROM CUR_e642lct_UPD_OLD INTO @OLD_CodEmp, @OLD_NumLct, @OLD_CtaRed, @OLD_CtaAux, @OLD_SeqLct, @OLD_NumFtc, @OLD_OriLct, @OLD_CodFil, @OLD_DatLct, @OLD_VlrLct, @OLD_CodHpd, @OLD_CplLct, @OLD_NumLot, @OLD_DebCre, @OLD_DocLct, @OLD_SitAux, @OLD_CodUsu, @OLD_DatEnt, @OLD_HorEnt, @OLD_ObsCpl FETCH NEXT FROM CUR_e642lct_UPD_NEW INTO @NEW_CodEmp, @NEW_NumLct, @NEW_CtaRed, @NEW_CtaAux, @NEW_SeqLct, @NEW_NumFtc, @NEW_OriLct, @NEW_CodFil, @NEW_DatLct, @NEW_VlrLct, @NEW_CodHpd, @NEW_CplLct, @NEW_NumLot, @NEW_DebCre, @NEW_DocLct, @NEW_SitAux, @NEW_CodUsu, @NEW_DatEnt, @NEW_HorEnt, @NEW_ObsCpl END CLOSE CUR_e642lct_UPD_OLD DEALLOCATE CUR_e642lct_UPD_OLD CLOSE CUR_e642lct_UPD_NEW DEALLOCATE CUR_e642lct_UPD_NEW FIM: IF @ChkError <> 0 ROLLBACK TRANSACTION TR_e642lctau END 43 08:50:38 EXECUTE - if exists (select 1 from sysobjects where sysstat & 0xf = 8 and type = 'TR' and id = object_id('e642lctai') and uid = Schema_ID() ) DROP TRIGGER e642lctai 44 08:50:38 EXECUTE - CREATE TRIGGER e642lctai ON e642lct FOR insert AS BEGIN SET XACT_ABORT OFF DECLARE @NEW_CodEmp SMALLINT DECLARE @NEW_NumLct BIGINT DECLARE @NEW_CtaRed INTEGER DECLARE @NEW_CtaAux INTEGER DECLARE @NEW_SeqLct SMALLINT DECLARE @NEW_NumFtc BIGINT DECLARE @NEW_OriLct VARCHAR(3) DECLARE @NEW_CodFil INTEGER DECLARE @NEW_DatLct DATETIME DECLARE @NEW_VlrLct NUMERIC(14, 2) DECLARE @NEW_CodHpd SMALLINT DECLARE @NEW_CplLct VARCHAR(250) DECLARE @NEW_NumLot INTEGER DECLARE @NEW_DebCre VARCHAR(1) DECLARE @NEW_DocLct VARCHAR(12) DECLARE @NEW_SitAux SMALLINT DECLARE @NEW_CodUsu BIGINT DECLARE @NEW_DatEnt DATETIME DECLARE @NEW_HorEnt INTEGER DECLARE @NEW_ObsCpl VARCHAR(250) DECLARE CUR_e642lct_INS_NEW CURSOR LOCAL FOR SELECT new.codemp N_CodEmp,new.numlct N_NumLct,new.ctared N_CtaRed,new.ctaaux N_CtaAux,new.seqlct N_SeqLct,new.numftc N_NumFtc,new.orilct N_OriLct,new.codfil N_CodFil,new.datlct N_DatLct,new.vlrlct N_VlrLct, new.codhpd N_CodHpd,new.cpllct N_CplLct,new.numlot N_NumLot,new.debcre N_DebCre,new.doclct N_DocLct,new.sitaux N_SitAux,new.codusu N_CodUsu,new.datent N_DatEnt,new.horent N_HorEnt,new.obscpl N_ObsCpl FROM inserted new DECLARE @wmesano DATETIME DECLARE @ChkError INTEGER SAVE TRANSACTION TR_e642lctai SELECT @ChkError = 0 OPEN CUR_e642lct_INS_NEW SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_e642lct_INS_NEW DEALLOCATE CUR_e642lct_INS_NEW GOTO FIM END FETCH NEXT FROM CUR_e642lct_INS_NEW INTO @NEW_CodEmp, @NEW_NumLct, @NEW_CtaRed, @NEW_CtaAux, @NEW_SeqLct, @NEW_NumFtc, @NEW_OriLct, @NEW_CodFil, @NEW_DatLct, @NEW_VlrLct, @NEW_CodHpd, @NEW_CplLct, @NEW_NumLot, @NEW_DebCre, @NEW_DocLct, @NEW_SitAux, @NEW_CodUsu, @NEW_DatEnt, @NEW_HorEnt, @NEW_ObsCpl WHILE (@@FETCH_STATUS = 0) BEGIN SELECT @WMESANO = CONVERT(DATETIME,CONVERT(VARCHAR,DATEPART(MONTH,@NEW_DATLCT))+'/'+CONVERT(VARCHAR,01)+'/'+CONVERT(VARCHAR,DATEPART(yy,@NEW_DATLCT))+' '+CONVERT(VARCHAR,0)+':'+CONVERT(VARCHAR,0)+':'+CONVERT(VARCHAR,0)) IF (@NEW_SITAUX=2) BEGIN EXECUTE @ChkError = SP_ATUCONTASAUX @NEW_CODEMP,@NEW_CODFIL,@WMESANO,@NEW_CTAAUX,@NEW_CTARED,@NEW_VLRLCT,@NEW_DEBCRE IF @ChkError <> 0 BEGIN CLOSE CUR_e642lct_INS_NEW DEALLOCATE CUR_e642lct_INS_NEW GOTO FIM END END FETCH NEXT FROM CUR_e642lct_INS_NEW INTO @NEW_CodEmp, @NEW_NumLct, @NEW_CtaRed, @NEW_CtaAux, @NEW_SeqLct, @NEW_NumFtc, @NEW_OriLct, @NEW_CodFil, @NEW_DatLct, @NEW_VlrLct, @NEW_CodHpd, @NEW_CplLct, @NEW_NumLot, @NEW_DebCre, @NEW_DocLct, @NEW_SitAux, @NEW_CodUsu, @NEW_DatEnt, @NEW_HorEnt, @NEW_ObsCpl END CLOSE CUR_e642lct_INS_NEW DEALLOCATE CUR_e642lct_INS_NEW FIM: IF @ChkError <> 0 ROLLBACK TRANSACTION TR_e642lctai END 45 08:50:38 EXECUTE - if exists (select 1 from sysobjects where sysstat & 0xf = 8 and type = 'TR' and id = object_id('t640lctau') and uid = USER_ID() ) DROP TRIGGER t640lctau 46 08:50:38 EXECUTE - CREATE TRIGGER T640LCTAU ON E640LCT FOR UPDATE AS BEGIN DECLARE @OLD_CODEMP SMALLINT DECLARE @OLD_TIPLCT SMALLINT DECLARE @OLD_ORILCT VARCHAR(3) DECLARE @OLD_CODFIL INTEGER DECLARE @OLD_DATLCT DATETIME DECLARE @OLD_CTADEB INTEGER DECLARE @OLD_CTACRE INTEGER DECLARE @OLD_VLRLCT NUMERIC(14, 2) DECLARE @OLD_NUMLOT INTEGER DECLARE @OLD_SITLCT SMALLINT DECLARE @NEW_CODEMP SMALLINT DECLARE @NEW_TIPLCT SMALLINT DECLARE @NEW_ORILCT VARCHAR(3) DECLARE @NEW_CODFIL SMALLINT DECLARE @NEW_DATLCT DATETIME DECLARE @NEW_CTADEB INTEGER DECLARE @NEW_CTACRE INTEGER DECLARE @NEW_VLRLCT NUMERIC(14, 2) DECLARE @NEW_NUMLOT INTEGER DECLARE @NEW_SITLCT SMALLINT DECLARE CUR_E640LCT_UPD CURSOR FOR SELECT OLD.CODEMP O_CODEMP, OLD.TIPLCT O_TIPLCT, OLD.ORILCT O_ORILCT, OLD.CODFIL O_CODFIL, CONVERT(DATETIME,CONVERT(VARCHAR,DATEPART(MONTH,OLD.DATLCT))+'/'+CONVERT(VARCHAR,01)+'/'+CONVERT(VARCHAR,DATEPART(YY,OLD.DATLCT))+' '+CONVERT(VARCHAR,0)+':'+CONVERT(VARCHAR,0)+':'+CONVERT(VARCHAR,0)) O_DATLCT, OLD.CTADEB O_CTADEB, OLD.CTACRE O_CTACRE, OLD.NUMLOT O_NUMLOT, OLD.SITLCT O_SITLCT, NEW.CODEMP N_CODEMP, NEW.TIPLCT N_TIPLCT, NEW.ORILCT N_ORILCT, NEW.CODFIL N_CODFIL, CONVERT(DATETIME,CONVERT(VARCHAR,DATEPART(MONTH,NEW.DATLCT))+'/'+CONVERT(VARCHAR,01)+'/'+CONVERT(VARCHAR,DATEPART(YY,NEW.DATLCT))+' '+CONVERT(VARCHAR,0)+':'+CONVERT(VARCHAR,0)+':'+CONVERT(VARCHAR,0)) N_DATLCT, NEW.CTADEB N_CTADEB, NEW.CTACRE N_CTACRE, NEW.NUMLOT N_NUMLOT, NEW.SITLCT N_SITLCT, SUM(OLD.VLRLCT) O_VLRLCT, SUM(NEW.VLRLCT) N_VLRLCT FROM DELETED OLD INNER JOIN INSERTED NEW ON NEW.CODEMP = OLD.CODEMP AND NEW.NUMLCT = OLD.NUMLCT GROUP BY OLD.CODEMP, OLD.TIPLCT, OLD.ORILCT, OLD.CODFIL, CONVERT(DATETIME,CONVERT(VARCHAR,DATEPART(MONTH,OLD.DATLCT))+'/'+CONVERT(VARCHAR,01)+'/'+CONVERT(VARCHAR,DATEPART(YY,OLD.DATLCT))+' '+CONVERT(VARCHAR,0)+':'+CONVERT(VARCHAR,0)+':'+CONVERT(VARCHAR,0)), OLD.CTADEB, OLD.CTACRE, OLD.NUMLOT, OLD.SITLCT, NEW.CODEMP, NEW.TIPLCT, NEW.ORILCT, NEW.CODFIL, CONVERT(DATETIME,CONVERT(VARCHAR,DATEPART(MONTH,NEW.DATLCT))+'/'+CONVERT(VARCHAR,01)+'/'+CONVERT(VARCHAR,DATEPART(YY,NEW.DATLCT))+' '+CONVERT(VARCHAR,0)+':'+CONVERT(VARCHAR,0)+':'+CONVERT(VARCHAR,0)), NEW.CTADEB, NEW.CTACRE, NEW.NUMLOT, NEW.SITLCT; DECLARE @WMESANO DATETIME DECLARE @WVLRAUX FLOAT DECLARE @WDIFLCT FLOAT DECLARE @WOLDDEB BIGINT DECLARE @WNEWDEB BIGINT DECLARE @WOLDCRE BIGINT DECLARE @WNEWCRE BIGINT DECLARE @CHKERROR INTEGER SAVE TRANSACTION TR_E640LCTAU SELECT @CHKERROR = 0 OPEN CUR_E640LCT_UPD SELECT @CHKERROR = @@ERROR IF @CHKERROR <> 0 BEGIN CLOSE CUR_E640LCT_UPD DEALLOCATE CUR_E640LCT_UPD GOTO FIM END SELECT @CHKERROR = @@ERROR IF @CHKERROR <> 0 BEGIN CLOSE CUR_E640LCT_UPD DEALLOCATE CUR_E640LCT_UPD GOTO FIM END FETCH NEXT FROM CUR_E640LCT_UPD INTO @OLD_CODEMP, @OLD_TIPLCT, @OLD_ORILCT, @OLD_CODFIL, @OLD_DATLCT, @OLD_CTADEB, @OLD_CTACRE, @OLD_NUMLOT, @OLD_SITLCT, @NEW_CODEMP, @NEW_TIPLCT, @NEW_ORILCT, @NEW_CODFIL, @NEW_DATLCT, @NEW_CTADEB, @NEW_CTACRE, @NEW_NUMLOT, @NEW_SITLCT, @OLD_VLRLCT, @NEW_VLRLCT WHILE (@@FETCH_STATUS = 0) BEGIN IF ((@OLD_ORILCT<>@NEW_ORILCT) OR (@OLD_CODFIL<>@NEW_CODFIL) OR (@OLD_DATLCT=@NEW_DATLCT) OR (@OLD_CTADEB<>@NEW_CTADEB) OR (@OLD_CTACRE<>@NEW_CTACRE) OR (@OLD_VLRLCT=@NEW_VLRLCT) OR (@OLD_NUMLOT<>@NEW_NUMLOT) OR (@OLD_SITLCT<>@NEW_SITLCT) OR (@OLD_TIPLCT<>@NEW_TIPLCT)) BEGIN IF (@OLD_TIPLCT<>@NEW_TIPLCT) BEGIN BEGIN RAISERROR('TRIGGER: O TIPO DE LANÇAMENTO NÃO PODE SER ALTERADO',11,1) WITH SETERROR CLOSE CUR_E640LCT_UPD DEALLOCATE CUR_E640LCT_UPD SELECT @CHKERROR = -30 GOTO FIM END END SELECT @WMESANO = @OLD_DATLCT SELECT @WOLDDEB = ISNULL(@OLD_CTADEB,0) SELECT @WNEWDEB = ISNULL(@NEW_CTADEB,0) SELECT @WOLDCRE = ISNULL(@OLD_CTACRE,0) SELECT @WNEWCRE = ISNULL(@NEW_CTACRE,0) IF (@OLD_TIPLCT=2) BEGIN BEGIN RAISERROR('TRIGGER: ALTERAÇÃO NÃO PERMITIDA PARA LANÇAMENTO GERENCIAL (TIPO = 2)',11,1) WITH SETERROR CLOSE CUR_E640LCT_UPD DEALLOCATE CUR_E640LCT_UPD SELECT @CHKERROR = -30 GOTO FIM END END IF (@OLD_SITLCT=3) AND (@NEW_SITLCT=2) BEGIN BEGIN RAISERROR('TRIGGER: ALTERAÇÃO DE SITUAÇÃO DE EXCLUÍDO PARA CONTABILIZADO NÃO É PERMITIDO',11,1) WITH SETERROR CLOSE CUR_E640LCT_UPD DEALLOCATE CUR_E640LCT_UPD SELECT @CHKERROR = -30 GOTO FIM END END IF (@OLD_NUMLOT<>@NEW_NUMLOT) BEGIN BEGIN RAISERROR('TRIGGER: ALTERAÇÃO DE NÚMERO DO LOTE NÃO É PERMITIDO',11,1) WITH SETERROR CLOSE CUR_E640LCT_UPD DEALLOCATE CUR_E640LCT_UPD SELECT @CHKERROR = -30 GOTO FIM END END IF (@NEW_SITLCT=2) AND (@OLD_SITLCT<>2) BEGIN EXECUTE @CHKERROR = SP_TRANSFSALDOSCTB @NEW_CODEMP,@NEW_CODFIL,@NEW_DATLCT IF @CHKERROR <> 0 BEGIN CLOSE CUR_E640LCT_UPD DEALLOCATE CUR_E640LCT_UPD GOTO FIM END END IF (@OLD_SITLCT=1) AND (@NEW_SITLCT=1) BEGIN IF (@NEW_NUMLOT>0) BEGIN EXECUTE @CHKERROR = SP_ATULOTE @NEW_CODEMP,@NEW_CODFIL,@NEW_NUMLOT,@WOLDDEB,@WNEWDEB,@WOLDCRE,@WNEWCRE,@OLD_VLRLCT,@NEW_VLRLCT IF @CHKERROR <> 0 BEGIN CLOSE CUR_E640LCT_UPD DEALLOCATE CUR_E640LCT_UPD GOTO FIM END END END ELSE IF (@OLD_SITLCT=1) AND (@NEW_SITLCT=2) BEGIN SELECT @WDIFLCT = @NEW_VLRLCT IF (@WNEWDEB<>0) BEGIN EXECUTE @CHKERROR = SP_ATUCONTAS @NEW_CODEMP,@NEW_CODFIL,@WMESANO,@WNEWDEB,@WDIFLCT,'D' IF @CHKERROR <> 0 BEGIN CLOSE CUR_E640LCT_UPD DEALLOCATE CUR_E640LCT_UPD GOTO FIM END END IF (@WNEWCRE<>0) BEGIN EXECUTE @CHKERROR = SP_ATUCONTAS @NEW_CODEMP,@NEW_CODFIL,@WMESANO,@WNEWCRE,@WDIFLCT,'C' IF @CHKERROR <> 0 BEGIN CLOSE CUR_E640LCT_UPD DEALLOCATE CUR_E640LCT_UPD GOTO FIM END END END ELSE IF (@OLD_SITLCT=1) AND (@NEW_SITLCT=3) BEGIN IF (@NEW_NUMLOT>0) BEGIN EXECUTE @CHKERROR = SP_ATULOTE @NEW_CODEMP,@NEW_CODFIL,@NEW_NUMLOT,@WOLDDEB,0,@WOLDCRE,0,@OLD_VLRLCT,0 IF @CHKERROR <> 0 BEGIN CLOSE CUR_E640LCT_UPD DEALLOCATE CUR_E640LCT_UPD GOTO FIM END END END ELSE IF (@OLD_SITLCT=2) AND (@NEW_SITLCT=1) BEGIN SELECT @WDIFLCT = -@OLD_VLRLCT IF (@WNEWDEB<>0) BEGIN EXECUTE @CHKERROR = SP_ATUCONTAS @NEW_CODEMP,@NEW_CODFIL,@WMESANO,@WNEWDEB,@WDIFLCT,'D' IF @CHKERROR <> 0 BEGIN CLOSE CUR_E640LCT_UPD DEALLOCATE CUR_E640LCT_UPD GOTO FIM END END IF (@WNEWCRE<>0) BEGIN EXECUTE @CHKERROR = SP_ATUCONTAS @NEW_CODEMP,@NEW_CODFIL,@WMESANO,@WNEWCRE,@WDIFLCT,'C' IF @CHKERROR <> 0 BEGIN CLOSE CUR_E640LCT_UPD DEALLOCATE CUR_E640LCT_UPD GOTO FIM END END END ELSE IF (@OLD_SITLCT=2) AND (@NEW_SITLCT=2) BEGIN IF (@WOLDDEB<>0) AND (@WOLDDEB<>@WNEWDEB) BEGIN SELECT @WVLRAUX = (@OLD_VLRLCT*-1) EXECUTE @CHKERROR = SP_ATUCONTAS @OLD_CODEMP,@OLD_CODFIL,@WMESANO,@WOLDDEB,@WVLRAUX,'D' IF @CHKERROR <> 0 BEGIN CLOSE CUR_E640LCT_UPD DEALLOCATE CUR_E640LCT_UPD GOTO FIM END END IF (@WOLDCRE<>0) AND (@WOLDCRE<>@WNEWCRE) BEGIN SELECT @WVLRAUX = (@OLD_VLRLCT*-1) EXECUTE @CHKERROR = SP_ATUCONTAS @OLD_CODEMP,@OLD_CODFIL,@WMESANO,@WOLDCRE,@WVLRAUX,'C' IF @CHKERROR <> 0 BEGIN CLOSE CUR_E640LCT_UPD DEALLOCATE CUR_E640LCT_UPD GOTO FIM END END IF (@OLD_CODFIL<>@NEW_CODFIL) BEGIN SELECT @WVLRAUX = (@OLD_VLRLCT*-1) IF (@WOLDDEB<>0) AND (@WOLDDEB=@WNEWDEB) BEGIN EXECUTE @CHKERROR = SP_ATUCONTAS @OLD_CODEMP,@OLD_CODFIL,@WMESANO,@WOLDDEB,@WVLRAUX,'D' IF @CHKERROR <> 0 BEGIN CLOSE CUR_E640LCT_UPD DEALLOCATE CUR_E640LCT_UPD GOTO FIM END END IF (@WOLDCRE<>0) AND (@WOLDCRE=@WNEWCRE) BEGIN EXECUTE @CHKERROR = SP_ATUCONTAS @OLD_CODEMP,@OLD_CODFIL,@WMESANO,@WOLDCRE,@WVLRAUX,'C' IF @CHKERROR <> 0 BEGIN CLOSE CUR_E640LCT_UPD DEALLOCATE CUR_E640LCT_UPD GOTO FIM END END END IF (@WNEWDEB<>0) BEGIN SELECT @WDIFLCT = @NEW_VLRLCT IF ((@WOLDDEB=@WNEWDEB) AND (@OLD_CODFIL=@NEW_CODFIL)) BEGIN SELECT @WDIFLCT = @NEW_VLRLCT-@OLD_VLRLCT END EXECUTE @CHKERROR = SP_ATUCONTAS @NEW_CODEMP,@NEW_CODFIL,@WMESANO,@WNEWDEB,@WDIFLCT,'D' IF @CHKERROR <> 0 BEGIN CLOSE CUR_E640LCT_UPD DEALLOCATE CUR_E640LCT_UPD GOTO FIM END END IF (@WNEWCRE<>0) BEGIN SELECT @WDIFLCT = @NEW_VLRLCT IF ((@WOLDCRE=@WNEWCRE) AND (@OLD_CODFIL=@NEW_CODFIL)) BEGIN SELECT @WDIFLCT = @NEW_VLRLCT-@OLD_VLRLCT END EXECUTE @CHKERROR = SP_ATUCONTAS @NEW_CODEMP,@NEW_CODFIL,@WMESANO,@WNEWCRE,@WDIFLCT,'C' IF @CHKERROR <> 0 BEGIN CLOSE CUR_E640LCT_UPD DEALLOCATE CUR_E640LCT_UPD GOTO FIM END END END ELSE IF (@OLD_SITLCT=2) AND (@NEW_SITLCT=3) BEGIN SELECT @WDIFLCT = -@OLD_VLRLCT IF (@WNEWDEB<>0) BEGIN EXECUTE @CHKERROR = SP_ATUCONTAS @NEW_CODEMP,@NEW_CODFIL,@WMESANO,@WNEWDEB,@WDIFLCT,'D' IF @CHKERROR <> 0 BEGIN CLOSE CUR_E640LCT_UPD DEALLOCATE CUR_E640LCT_UPD GOTO FIM END END IF (@WNEWCRE<>0) BEGIN EXECUTE @CHKERROR = SP_ATUCONTAS @NEW_CODEMP,@NEW_CODFIL,@WMESANO,@WNEWCRE,@WDIFLCT,'C' IF @CHKERROR <> 0 BEGIN CLOSE CUR_E640LCT_UPD DEALLOCATE CUR_E640LCT_UPD GOTO FIM END END IF (@NEW_NUMLOT>0) BEGIN EXECUTE @CHKERROR = SP_ATULOTE @NEW_CODEMP,@NEW_CODFIL,@NEW_NUMLOT,@WOLDDEB,0,@WOLDCRE,0,@OLD_VLRLCT,0 IF @CHKERROR <> 0 BEGIN CLOSE CUR_E640LCT_UPD DEALLOCATE CUR_E640LCT_UPD GOTO FIM END END END ELSE IF (@OLD_SITLCT=3) AND (@NEW_SITLCT=1) BEGIN IF (@NEW_NUMLOT>0) BEGIN EXECUTE @CHKERROR = SP_ATULOTE @NEW_CODEMP,@NEW_CODFIL,@NEW_NUMLOT,0,@WNEWDEB,0,@WNEWCRE,0,@NEW_VLRLCT IF @CHKERROR <> 0 BEGIN CLOSE CUR_E640LCT_UPD DEALLOCATE CUR_E640LCT_UPD GOTO FIM END END END ELSE IF (@OLD_SITLCT=2) AND (@NEW_SITLCT=4) BEGIN SELECT @WDIFLCT = -@OLD_VLRLCT IF (@WNEWDEB<>0) BEGIN EXECUTE @CHKERROR = SP_ATUCONTAS @NEW_CODEMP,@NEW_CODFIL,@WMESANO,@WNEWDEB,@WDIFLCT,'D' IF @CHKERROR <> 0 BEGIN CLOSE CUR_E640LCT_UPD DEALLOCATE CUR_E640LCT_UPD GOTO FIM END END IF (@WNEWCRE<>0) BEGIN EXECUTE @CHKERROR = SP_ATUCONTAS @NEW_CODEMP,@NEW_CODFIL,@WMESANO,@WNEWCRE,@WDIFLCT,'C' IF @CHKERROR <> 0 BEGIN CLOSE CUR_E640LCT_UPD DEALLOCATE CUR_E640LCT_UPD GOTO FIM END END END ELSE IF (@OLD_SITLCT=4) AND (@NEW_SITLCT=2) BEGIN SELECT @WDIFLCT = @NEW_VLRLCT IF (@WNEWDEB<>0) BEGIN EXECUTE @CHKERROR = SP_ATUCONTAS @NEW_CODEMP,@NEW_CODFIL,@WMESANO,@WNEWDEB,@WDIFLCT,'D' IF @CHKERROR <> 0 BEGIN CLOSE CUR_E640LCT_UPD DEALLOCATE CUR_E640LCT_UPD GOTO FIM END END IF (@WNEWCRE<>0) BEGIN EXECUTE @CHKERROR = SP_ATUCONTAS @NEW_CODEMP,@NEW_CODFIL,@WMESANO,@WNEWCRE,@WDIFLCT,'C' IF @CHKERROR <> 0 BEGIN CLOSE CUR_E640LCT_UPD DEALLOCATE CUR_E640LCT_UPD GOTO FIM END END END END FETCH NEXT FROM CUR_E640LCT_UPD INTO @OLD_CODEMP, @OLD_TIPLCT, @OLD_ORILCT, @OLD_CODFIL, @OLD_DATLCT, @OLD_CTADEB, @OLD_CTACRE, @OLD_NUMLOT, @OLD_SITLCT, @NEW_CODEMP, @NEW_TIPLCT, @NEW_ORILCT, @NEW_CODFIL, @NEW_DATLCT, @NEW_CTADEB, @NEW_CTACRE, @NEW_NUMLOT, @NEW_SITLCT, @OLD_VLRLCT, @NEW_VLRLCT END CLOSE CUR_E640LCT_UPD DEALLOCATE CUR_E640LCT_UPD FIM: IF @CHKERROR <> 0 ROLLBACK TRANSACTION TR_E640LCTAU END 47 08:50:38 EXECUTE - if exists (select 1 from sysobjects where sysstat & 0xf = 8 and type = 'TR' and id = object_id('t640lctad') and uid = USER_ID() ) DROP TRIGGER t640lctad 48 08:50:38 EXECUTE - CREATE TRIGGER T640LCTAD ON E640LCT FOR DELETE AS BEGIN DECLARE @OLD_CODEMP SMALLINT DECLARE @OLD_TIPLCT SMALLINT DECLARE @OLD_CODFIL INTEGER DECLARE @OLD_DATLCT DATETIME DECLARE @OLD_CTADEB INTEGER DECLARE @OLD_CTACRE INTEGER DECLARE @OLD_VLRLCT NUMERIC(14, 2) DECLARE @OLD_NUMLOT INTEGER DECLARE @OLD_SITLCT SMALLINT DECLARE CUR_E640LCT_DEL CURSOR FOR SELECT OLD.CODEMP O_CODEMP, OLD.TIPLCT O_TIPLCT, OLD.CODFIL O_CODFIL, CONVERT(DATETIME,CONVERT(VARCHAR,DATEPART(MONTH,OLD.DATLCT))+'/'+CONVERT(VARCHAR,01)+'/'+CONVERT(VARCHAR,DATEPART(YY,OLD.DATLCT))+' '+CONVERT(VARCHAR,0)+':'+CONVERT(VARCHAR,0)+':'+CONVERT(VARCHAR,0)) O_DATLCT, OLD.CTADEB O_CTADEB, OLD.CTACRE O_CTACRE, OLD.NUMLOT O_NUMLOT, OLD.SITLCT O_SITLCT, SUM(OLD.VLRLCT) O_VLRLCT FROM DELETED OLD GROUP BY OLD.CODEMP, OLD.TIPLCT, OLD.CODFIL, CONVERT(DATETIME,CONVERT(VARCHAR,DATEPART(MONTH,OLD.DATLCT))+'/'+CONVERT(VARCHAR,01)+'/'+CONVERT(VARCHAR,DATEPART(YY,OLD.DATLCT))+' '+CONVERT(VARCHAR,0)+':'+CONVERT(VARCHAR,0)+':'+CONVERT(VARCHAR,0)), OLD.CTADEB, OLD.CTACRE, OLD.NUMLOT, OLD.SITLCT; DECLARE @WMESANO DATETIME DECLARE @WOLDDEB BIGINT DECLARE @WOLDCRE BIGINT DECLARE @WVLRAUX FLOAT DECLARE @CHKERROR INTEGER SAVE TRANSACTION TR_E640LCTAD SELECT @CHKERROR = 0 OPEN CUR_E640LCT_DEL SELECT @CHKERROR = @@ERROR IF @CHKERROR <> 0 BEGIN CLOSE CUR_E640LCT_DEL DEALLOCATE CUR_E640LCT_DEL GOTO FIM END FETCH NEXT FROM CUR_E640LCT_DEL INTO @OLD_CODEMP, @OLD_TIPLCT, @OLD_CODFIL, @OLD_DATLCT, @OLD_CTADEB, @OLD_CTACRE, @OLD_NUMLOT, @OLD_SITLCT, @OLD_VLRLCT WHILE (@@FETCH_STATUS = 0) BEGIN SELECT @WMESANO = @OLD_DATLCT SELECT @WOLDDEB = ISNULL(@OLD_CTADEB,0) SELECT @WOLDCRE = ISNULL(@OLD_CTACRE,0) IF (@WOLDDEB<>0) AND (@OLD_SITLCT=2) AND (@OLD_TIPLCT<>2) BEGIN SELECT @WVLRAUX = (@OLD_VLRLCT*-1) EXECUTE @CHKERROR = SP_ATUCONTAS @OLD_CODEMP,@OLD_CODFIL,@WMESANO,@OLD_CTADEB,@WVLRAUX,'D' IF @CHKERROR <> 0 BEGIN CLOSE CUR_E640LCT_DEL DEALLOCATE CUR_E640LCT_DEL GOTO FIM END END IF (@WOLDCRE<>0) AND (@OLD_SITLCT=2) AND (@OLD_TIPLCT<>2) BEGIN SELECT @WVLRAUX = (@OLD_VLRLCT*-1) EXECUTE @CHKERROR = SP_ATUCONTAS @OLD_CODEMP,@OLD_CODFIL,@WMESANO,@OLD_CTACRE,@WVLRAUX,'C' IF @CHKERROR <> 0 BEGIN CLOSE CUR_E640LCT_DEL DEALLOCATE CUR_E640LCT_DEL GOTO FIM END END IF (@OLD_NUMLOT>0) BEGIN EXECUTE @CHKERROR = SP_ATULOTE @OLD_CODEMP,@OLD_CODFIL,@OLD_NUMLOT,@WOLDDEB,0,@WOLDCRE,0,@OLD_VLRLCT,0 IF @CHKERROR <> 0 BEGIN CLOSE CUR_E640LCT_DEL DEALLOCATE CUR_E640LCT_DEL GOTO FIM END END FETCH NEXT FROM CUR_E640LCT_DEL INTO @OLD_CODEMP, @OLD_TIPLCT, @OLD_CODFIL, @OLD_DATLCT, @OLD_CTADEB, @OLD_CTACRE, @OLD_NUMLOT, @OLD_SITLCT, @OLD_VLRLCT END CLOSE CUR_E640LCT_DEL DEALLOCATE CUR_E640LCT_DEL FIM: IF @CHKERROR <> 0 ROLLBACK TRANSACTION TR_E640LCTAD END 49 08:50:38 EXECUTE - if exists (select 1 from sysobjects where sysstat & 0xf = 8 and type = 'TR' and id = object_id('t640lctade') and uid = USER_ID() ) DROP TRIGGER t640lctade 50 08:50:38 EXECUTE - CREATE TRIGGER T640LCTADE ON E640LCT FOR DELETE AS BEGIN SET NOCOUNT ON; END 51 08:50:38 EXECUTE - if exists (select 1 from sysobjects where sysstat & 0xf = 8 and type = 'TR' and id = object_id('t640lctaue') and uid = USER_ID() ) DROP TRIGGER t640lctaue 52 08:50:38 EXECUTE - CREATE TRIGGER T640LCTAUE ON E640LCT FOR UPDATE AS BEGIN SET NOCOUNT ON; END 53 08:50:38 EXECUTE - if exists (select 1 from sysobjects where sysstat & 0xf = 8 and type = 'TR' and id = object_id('t640lctaie') and uid = Schema_ID() ) DROP TRIGGER t640lctaie 54 08:50:38 EXECUTE - CREATE TRIGGER t640lctaie ON e640lct FOR insert AS BEGIN SET XACT_ABORT OFF DECLARE @NEW_CodEmp SMALLINT DECLARE @NEW_NumLct BIGINT DECLARE @NEW_NumFtc BIGINT DECLARE @NEW_TipLct SMALLINT DECLARE @NEW_OriLct VARCHAR(3) DECLARE @NEW_CodFil INTEGER DECLARE @NEW_DatLct DATETIME DECLARE @NEW_CtaDeb INTEGER DECLARE @NEW_CtaCre INTEGER DECLARE @NEW_VlrLct NUMERIC(14, 2) DECLARE @NEW_CodHpd SMALLINT DECLARE @NEW_CplLct VARCHAR(250) DECLARE @NEW_NumLot INTEGER DECLARE @NEW_TemRat SMALLINT DECLARE @NEW_TemAux SMALLINT DECLARE @NEW_DocLct VARCHAR(12) DECLARE @NEW_CgcCpf BIGINT DECLARE @NEW_CgcCre BIGINT DECLARE @NEW_SitLct SMALLINT DECLARE @NEW_CodUsu BIGINT DECLARE @NEW_DatEnt DATETIME DECLARE @NEW_HorEnt INTEGER DECLARE @NEW_ObsCpl VARCHAR(250) DECLARE @NEW_IndLct VARCHAR(2) DECLARE @NEW_EcdLct VARCHAR(50) DECLARE @NEW_DatExt DATETIME DECLARE CUR_e640lct_INS_NEW CURSOR LOCAL FOR SELECT new.codemp N_CodEmp,new.numlct N_NumLct,new.numftc N_NumFtc,new.tiplct N_TipLct,new.orilct N_OriLct,new.codfil N_CodFil,new.datlct N_DatLct,new.ctadeb N_CtaDeb,new.ctacre N_CtaCre,new.vlrlct N_VlrLct, new.codhpd N_CodHpd,new.cpllct N_CplLct,new.numlot N_NumLot,new.temrat N_TemRat,new.temaux N_TemAux,new.doclct N_DocLct,new.cgccpf N_CgcCpf,new.cgccre N_CgcCre,new.sitlct N_SitLct,new.codusu N_CodUsu, new.datent N_DatEnt,new.horent N_HorEnt,new.obscpl N_ObsCpl,new.indlct N_IndLct,new.ecdlct N_EcdLct,new.datext N_DatExt FROM inserted new DECLARE @wmesano DATETIME DECLARE @wnewdeb BIGINT DECLARE @wnewcre BIGINT DECLARE @ChkError INTEGER SAVE TRANSACTION TR_t640lctaie SELECT @ChkError = 0 OPEN CUR_e640lct_INS_NEW SELECT @ChkError = @@Error IF @ChkError <> 0 BEGIN CLOSE CUR_e640lct_INS_NEW DEALLOCATE CUR_e640lct_INS_NEW GOTO FIM END FETCH NEXT FROM CUR_e640lct_INS_NEW INTO @NEW_CodEmp, @NEW_NumLct, @NEW_NumFtc, @NEW_TipLct, @NEW_OriLct, @NEW_CodFil, @NEW_DatLct, @NEW_CtaDeb, @NEW_CtaCre, @NEW_VlrLct, @NEW_CodHpd, @NEW_CplLct, @NEW_NumLot, @NEW_TemRat, @NEW_TemAux, @NEW_DocLct, @NEW_CgcCpf, @NEW_CgcCre, @NEW_SitLct, @NEW_CodUsu, @NEW_DatEnt, @NEW_HorEnt, @NEW_ObsCpl, @NEW_IndLct, @NEW_EcdLct, @NEW_DatExt WHILE (@@FETCH_STATUS = 0) BEGIN SELECT @WMESANO = CONVERT(DATETIME,CONVERT(VARCHAR,DATEPART(MONTH,@NEW_DATLCT))+'/'+CONVERT(VARCHAR,01)+'/'+CONVERT(VARCHAR,DATEPART(yy,@NEW_DATLCT))+' '+CONVERT(VARCHAR,0)+':'+CONVERT(VARCHAR,0)+':'+CONVERT(VARCHAR,0)) IF (@NEW_SITLCT=2) BEGIN EXECUTE @ChkError = SP_TRANSFSALDOSCTB @NEW_CODEMP,@NEW_CODFIL,@NEW_DATLCT IF @ChkError <> 0 BEGIN CLOSE CUR_e640lct_INS_NEW DEALLOCATE CUR_e640lct_INS_NEW GOTO FIM END END SELECT @WNEWDEB = ISNULL(@NEW_CTADEB,0) SELECT @WNEWCRE = ISNULL(@NEW_CTACRE,0) IF (@WNEWDEB<>0) AND (@NEW_SITLCT=2) BEGIN EXECUTE @ChkError = SP_ATUCONTAS @NEW_CODEMP,@NEW_CODFIL,@WMESANO,@NEW_CTADEB,@NEW_VLRLCT,'D' IF @ChkError <> 0 BEGIN CLOSE CUR_e640lct_INS_NEW DEALLOCATE CUR_e640lct_INS_NEW GOTO FIM END END IF (@WNEWCRE<>0) AND (@NEW_SITLCT=2) BEGIN EXECUTE @ChkError = SP_ATUCONTAS @NEW_CODEMP,@NEW_CODFIL,@WMESANO,@NEW_CTACRE,@NEW_VLRLCT,'C' IF @ChkError <> 0 BEGIN CLOSE CUR_e640lct_INS_NEW DEALLOCATE CUR_e640lct_INS_NEW GOTO FIM END END IF (@NEW_NUMLOT>0) BEGIN EXECUTE @ChkError = SP_ATULOTE @NEW_CODEMP,@NEW_CODFIL,@NEW_NUMLOT,0,@WNEWDEB,0,@WNEWCRE,0,@NEW_VLRLCT IF @ChkError <> 0 BEGIN CLOSE CUR_e640lct_INS_NEW DEALLOCATE CUR_e640lct_INS_NEW GOTO FIM END END FETCH NEXT FROM CUR_e640lct_INS_NEW INTO @NEW_CodEmp, @NEW_NumLct, @NEW_NumFtc, @NEW_TipLct, @NEW_OriLct, @NEW_CodFil, @NEW_DatLct, @NEW_CtaDeb, @NEW_CtaCre, @NEW_VlrLct, @NEW_CodHpd, @NEW_CplLct, @NEW_NumLot, @NEW_TemRat, @NEW_TemAux, @NEW_DocLct, @NEW_CgcCpf, @NEW_CgcCre, @NEW_SitLct, @NEW_CodUsu, @NEW_DatEnt, @NEW_HorEnt, @NEW_ObsCpl, @NEW_IndLct, @NEW_EcdLct, @NEW_DatExt END CLOSE CUR_e640lct_INS_NEW DEALLOCATE CUR_e640lct_INS_NEW FIM: IF @ChkError <> 0 ROLLBACK TRANSACTION TR_t640lctaie END 55 08:50:38 DATA IN - Param = 1, Type = fldZSTRING, Precision = 0, Scale = 0, Data = S 56 08:50:38 EXECUTE - UPDATE E070ECT SET PRCMUD = ? WHERE ( (E070ECT.CODEMP = 100) ) 57 08:50:38 DATA IN - Param = 1, Type = fldINT16, Precision = 0, Scale = 0, Data = 0 58 08:50:38 DATA IN - Param = 2, Type = fldZSTRING, Precision = 0, Scale = 0, Data = FMENU 59 08:50:38 DATA IN - Param = 3, Type = fldINT16, Precision = 0, Scale = 0, Data = 85 60 08:50:38 EXECUTE - SELECT CODUSU, MODID, NOMFRM, NROPAG, FLDNAM, NROORD from r998ctg a WHERE MODID = ? and (UPPER(NOMFRM) = ?) and CODUSU = ? ORDER BY NROORD ASC 61 08:50:38 DATA IN - Param = 1, Type = fldINT16, Precision = 0, Scale = 0, Data = 0 62 08:50:38 DATA IN - Param = 2, Type = fldZSTRING, Precision = 0, Scale = 0, Data = FMENU 63 08:50:38 DATA IN - Param = 3, Type = fldINT16, Precision = 0, Scale = 0, Data = 0 64 08:50:38 EXECUTE - SELECT CODUSU, MODID, NOMFRM, NROPAG, FLDNAM, NROORD from r998ctg a WHERE MODID = ? and (UPPER(NOMFRM) = ?) and CODUSU = ? ORDER BY NROORD ASC 65 08:50:38 DATA IN - Param = 1, Type = fldINT16, Precision = 0, Scale = 0, Data = 0 66 08:50:38 DATA IN - Param = 2, Type = fldZSTRING, Precision = 0, Scale = 0, Data = F043VMP 67 08:50:38 DATA IN - Param = 3, Type = fldINT16, Precision = 0, Scale = 0, Data = 85 68 08:50:38 EXECUTE - SELECT CODUSU, MODID, NOMFRM, NROPAG, FLDNAM, NROORD from r998ctg a WHERE MODID = ? and (UPPER(NOMFRM) = ?) and CODUSU = ? ORDER BY NROORD ASC 69 08:50:38 DATA IN - Param = 1, Type = fldINT16, Precision = 0, Scale = 0, Data = 0 70 08:50:38 DATA IN - Param = 2, Type = fldZSTRING, Precision = 0, Scale = 0, Data = F043VMP 71 08:50:38 DATA IN - Param = 3, Type = fldINT16, Precision = 0, Scale = 0, Data = 0 72 08:50:38 EXECUTE - SELECT CODUSU, MODID, NOMFRM, NROPAG, FLDNAM, NROORD from r998ctg a WHERE MODID = ? and (UPPER(NOMFRM) = ?) and CODUSU = ? ORDER BY NROORD ASC