From b1aa67ff5917df9ae49c0626d9396b85997e79f4 Mon Sep 17 00:00:00 2001 From: Jake Date: Fri, 24 Jun 2022 20:15:16 +0000 Subject: [PATCH] B2022-026 RO Memory reduction coding (Jakes Merge) --- .../PROMSRollback (v2.0).Sql | 1073 +++++++++++++++++ 1 file changed, 1073 insertions(+) create mode 100644 PROMS/VEPROMS User Interface/PROMSRollback (v2.0).Sql diff --git a/PROMS/VEPROMS User Interface/PROMSRollback (v2.0).Sql b/PROMS/VEPROMS User Interface/PROMSRollback (v2.0).Sql new file mode 100644 index 00000000..b73c5db5 --- /dev/null +++ b/PROMS/VEPROMS User Interface/PROMSRollback (v2.0).Sql @@ -0,0 +1,1073 @@ + + +If (db_name() in('master','model','msdn','tempdb')) +begin + DECLARE @ErrorMsg varchar(255) + SET @ErrorMsg = 'Don''t add these procedures and functions to ' + db_name() + PRINT '==========================================================================' + PRINT '' + PRINT @ErrorMsg + PRINT '' + PRINT 'You probably want to be in the VEPROMS database' + PRINT '' + PRINT '==========================================================================' + RAISERROR (@ErrorMsg, 20, -1) with log + RETURN +end +print 'Adding procedures and functions to ' + db_name() +Go + + +/* +========================================================================================================== + Begin: B2022-026 RO Memory reduction coding (Jakes Merge) [Version 2.0] + Notes** If you need to rollback to the previous version for some reason and undo the changes + for v2.0 then run this sql file +========================================================================================================== +*/ + +/* +--------------------------------------------------------------------------------------------------- +-- Remove any new tables/procs/functions/view specifically for [Version 2.0] +--------------------------------------------------------------------------------------------------- +*/ + IF EXISTS (SELECT * FROM sys.objects WHERE object_id = OBJECT_ID(N'[dbo].[RofstHeader]') AND type in (N'U')) + IF EXISTS (SELECT * FROM sys.objects WHERE object_id = OBJECT_ID(N'FK_RofstHeader_ROFsts') AND type in (N'F')) + ALTER TABLE [dbo].[RofstHeader] DROP CONSTRAINT [FK_RofstHeader_ROFsts] + GO + IF EXISTS (SELECT * FROM sys.objects WHERE object_id = OBJECT_ID(N'[dbo].[RofstDefaultValue]') AND type in (N'U')) + IF EXISTS (SELECT * FROM sys.objects WHERE object_id = OBJECT_ID(N'FK_RofstDefaultValue_RofstHeader') AND type in (N'F')) + ALTER TABLE [dbo].[RofstDefaultValue] DROP CONSTRAINT [FK_RofstDefaultValue_RofstHeader] + GO + IF EXISTS (SELECT * FROM sys.objects WHERE object_id = OBJECT_ID(N'[dbo].[RofstDatabase]') AND type in (N'U')) + IF EXISTS (SELECT * FROM sys.objects WHERE object_id = OBJECT_ID(N'FK_RofstDatabase_RofstHeader') AND type in (N'F')) + ALTER TABLE [dbo].[RofstDatabase] DROP CONSTRAINT [FK_RofstDatabase_RofstHeader] + GO + IF EXISTS (SELECT * FROM sys.objects WHERE object_id = OBJECT_ID(N'[dbo].[RofstChild]') AND type in (N'U')) + IF EXISTS (SELECT * FROM sys.objects WHERE object_id = OBJECT_ID(N'FK_RofstChild_RofstDatabase') AND type in (N'F')) + ALTER TABLE [dbo].[RofstChild] DROP CONSTRAINT [FK_RofstChild_RofstDatabase] + GO + IF EXISTS (SELECT * FROM sys.objects WHERE object_id = OBJECT_ID(N'[dbo].[RofstHeader]') AND type in (N'U')) + IF EXISTS (SELECT * FROM sys.objects WHERE object_id = OBJECT_ID(N'DF_RofstHeader_CreateDate') AND type in (N'D')) + ALTER TABLE [dbo].[RofstHeader] DROP CONSTRAINT [DF_RofstHeader_CreateDate] + GO + IF EXISTS (SELECT * FROM sys.objects WHERE object_id = OBJECT_ID(N'[dbo].[RofstHeader]') AND type in (N'U')) + IF EXISTS (SELECT * FROM sys.objects WHERE object_id = OBJECT_ID(N'DF_RofstHeader_CreateUserID') AND type in (N'D')) + ALTER TABLE [dbo].[RofstHeader] DROP CONSTRAINT [DF_RofstHeader_CreateUserID] + GO + IF EXISTS (SELECT * FROM sys.objects WHERE object_id = OBJECT_ID(N'[dbo].[RofstDatabase]') AND type in (N'U')) + IF EXISTS (SELECT * FROM sys.objects WHERE object_id = OBJECT_ID(N'DF_RofstDatabase_ParentID') AND type in (N'D')) + ALTER TABLE [dbo].[RofstDatabase] DROP CONSTRAINT [DF_RofstDatabase_ParentID] + GO + + IF (@@Error = 0) PRINT 'Table/FK Constraints Deleted: Succeeded' + ELSE PRINT 'Table/FK Constraints Deleted: Error on Deletion' + Go + + + + /****** Object: Index [IX_RofstID_Roid] Script Date: 6/6/2022 11:18:32 AM ******/ + IF EXISTS (SELECT * FROM sys.indexes Where name = 'IX_RofstID_Roid') + DROP INDEX [IX_RofstID_Roid] ON [dbo].[RofstChild] + GO + IF (@@Error = 0) PRINT 'Index Deleted: [IX_RofstID_Roid] Succeeded' + ELSE PRINT 'Index Deleted: [IX_RofstID_Roid] Error on Deletion' + Go + + /****** Object: Index [IX_RofstID_DbiID_ParentID] Script Date: 6/6/2022 11:18:32 AM ******/ + IF EXISTS (SELECT * FROM sys.indexes Where name = 'IX_RofstID_DbiID_ParentID') + DROP INDEX [IX_RofstID_DbiID_ParentID] ON [dbo].[RofstChild] + GO + IF (@@Error = 0) PRINT 'Index Deleted: [IX_RofstID_DbiID_ParentID] Succeeded' + ELSE PRINT 'Index Deleted: [IX_RofstID_DbiID_ParentID] Error on Deletion' + Go + + + /****** Object: Table [dbo].[RofstHeader] Script Date: 6/6/2022 11:18:32 AM ******/ + IF Exists(SELECT * FROM sys.objects Where name = 'RofstHeader' AND type in (N'U')) + DROP TABLE [dbo].[RofstHeader] + GO + IF (@@Error = 0) PRINT 'Table Deleted: [RofstHeader] Succeeded' + ELSE PRINT 'Table Deleted: [RofstHeader] Error on Deletion' + Go + + /****** Object: Table [dbo].[RofstDefaultValue] Script Date: 6/6/2022 11:18:32 AM ******/ + IF Exists(SELECT * FROM sys.objects Where name = 'RofstDefaultValue' AND type in (N'U')) + DROP TABLE [dbo].[RofstDefaultValue] + GO + IF (@@Error = 0) PRINT 'Table Deleted: [RofstDefaultValue] Succeeded' + ELSE PRINT 'Table Deleted: [RofstDefaultValue] Error on Deletion' + Go + + /****** Object: Table [dbo].[RofstDatabase] Script Date: 6/6/2022 11:18:32 AM ******/ + IF Exists(SELECT * FROM sys.objects Where name = 'RofstDatabase' AND type in (N'U')) + DROP TABLE [dbo].[RofstDatabase] + GO + IF (@@Error = 0) PRINT 'Table Deleted: [RofstDatabase] Succeeded' + ELSE PRINT 'Table Deleted: [RofstDatabase] Error on Deletion' + Go + + /****** Object: Table [dbo].[RofstChild] Script Date: 6/6/2022 11:18:32 AM ******/ + IF Exists(SELECT * FROM sys.objects Where name = 'RofstChild' AND type in (N'U')) + DROP TABLE [dbo].[RofstChild] + GO + IF (@@Error = 0) PRINT 'Table Deleted: [RofstChild] Succeeded' + ELSE PRINT 'Table Deleted: [RofstChild] Error on Deletion' + Go + + + + /****** Object: StoredProcedure [dbo].[vesp_RofstHeaderInsert] ******/ + If Exists(SELECT * FROM sys.objects Where name = 'vesp_RofstHeaderInsert' AND type in (N'P')) + DROP PROCEDURE [dbo].[vesp_RofstHeaderInsert] + GO + IF (@@Error = 0) PRINT 'Procedure Deleted: [vesp_RofstHeaderInsert] Succeeded' + ELSE PRINT 'Procedure Deleted: [vesp_RofstHeaderInsert] Error on Deletion' + Go + + /****** Object: StoredProcedure [dbo].[vesp_RofstHeaderFinalizeLoad] ******/ + If Exists(SELECT * FROM sys.objects Where name = 'vesp_RofstHeaderFinalizeLoad' AND type in (N'P')) + DROP PROCEDURE [dbo].[vesp_RofstHeaderFinalizeLoad] + GO + IF (@@Error = 0) PRINT 'Procedure Deleted: [vesp_RofstHeaderFinalizeLoad] Succeeded' + ELSE PRINT 'Procedure Deleted: [vesp_RofstHeaderFinalizeLoad] Error on Deletion' + Go + + /****** Object: StoredProcedure [dbo].[vesp_RofstDataSearch] ******/ + If Exists(SELECT * FROM sys.objects Where name = 'vesp_RofstDataSearch' AND type in (N'P')) + DROP PROCEDURE [dbo].[vesp_RofstDataSearch] + GO + IF (@@Error = 0) PRINT 'Procedure Deleted: [vesp_RofstDataSearch] Succeeded' + ELSE PRINT 'Procedure Deleted: [vesp_RofstDataSearch] Error on Deletion' + Go + + /****** Object: StoredProcedure [dbo].[vesp_RofstDataGetValueDifferences] ******/ + If Exists(SELECT * FROM sys.objects Where name = 'vesp_RofstDataGetValueDifferences' AND type in (N'P')) + DROP PROCEDURE [dbo].[vesp_RofstDataGetValueDifferences] + GO + IF (@@Error = 0) PRINT 'Procedure Deleted: [vesp_RofstDataGetValueDifferences] Succeeded' + ELSE PRINT 'Procedure Deleted: [vesp_RofstDataGetValueDifferences] Error on Deletion' + Go + + /****** Object: StoredProcedure [dbo].[vesp_RofstDataGetRofstByID] ******/ + If Exists(SELECT * FROM sys.objects Where name = 'vesp_RofstDataGetRofstByID' AND type in (N'P')) + DROP PROCEDURE [dbo].[vesp_RofstDataGetRofstByID] + GO + IF (@@Error = 0) PRINT 'Procedure Deleted: [vesp_RofstDataGetRofstByID] Succeeded' + ELSE PRINT 'Procedure Deleted: [vesp_RofstDataGetRofstByID] Error on Deletion' + Go + + /****** Object: StoredProcedure [dbo].[vesp_RofstDataGetHeaderRofstByID] ******/ + If Exists(SELECT * FROM sys.objects Where name = 'vesp_RofstDataGetHeaderRofstByID' AND type in (N'P')) + DROP PROCEDURE [dbo].[vesp_RofstDataGetHeaderRofstByID] + GO + IF (@@Error = 0) PRINT 'Procedure Deleted: [vesp_RofstDataGetHeaderRofstByID] Succeeded' + ELSE PRINT 'Procedure Deleted: [vesp_RofstDataGetHeaderRofstByID] Error on Deletion' + Go + + /****** Object: StoredProcedure [dbo].[vesp_RofstDataGetDatabases] ******/ + If Exists(SELECT * FROM sys.objects Where name = 'vesp_RofstDataGetDatabases' AND type in (N'P')) + DROP PROCEDURE [dbo].[vesp_RofstDataGetDatabases] + GO + IF (@@Error = 0) PRINT 'Procedure Deleted: [vesp_RofstDataGetDatabases] Succeeded' + ELSE PRINT 'Procedure Deleted: [vesp_RofstDataGetDatabases] Error on Deletion' + Go + + /****** Object: StoredProcedure [dbo].[vesp_RofstDataGetDatabaseByID] ******/ + If Exists(SELECT * FROM sys.objects Where name = 'vesp_RofstDataGetDatabaseByID' AND type in (N'P')) + DROP PROCEDURE [dbo].[vesp_RofstDataGetDatabaseByID] + GO + IF (@@Error = 0) PRINT 'Procedure Deleted: [vesp_RofstDataGetDatabaseByID] Succeeded' + ELSE PRINT 'Procedure Deleted: [vesp_RofstDataGetDatabaseByID] Error on Deletion' + Go + + /****** Object: StoredProcedure [dbo].[vesp_RofstDataGetChildrenByType] ******/ + If Exists(SELECT * FROM sys.objects Where name = 'vesp_RofstDataGetChildrenByType' AND type in (N'P')) + DROP PROCEDURE[dbo].[vesp_RofstDataGetChildrenByType] + GO + IF (@@Error = 0) PRINT 'Procedure Deleted: [vesp_RofstDataGetChildrenByType] Succeeded' + ELSE PRINT 'Procedure Deleted: [vesp_RofstDataGetChildrenByType] Error on Deletion' + Go + + /****** Object: StoredProcedure [dbo].[vesp_RofstDataGetChildrenByRoid] ******/ + If Exists(SELECT * FROM sys.objects Where name = 'vesp_RofstDataGetChildrenByRoid' AND type in (N'P')) + DROP PROCEDURE [dbo].[vesp_RofstDataGetChildrenByRoid] + GO + IF (@@Error = 0) PRINT 'Procedure Deleted: [vesp_RofstDataGetChildrenByRoid] Succeeded' + ELSE PRINT 'Procedure Deleted: [vesp_RofstDataGetChildrenByRoid] Error on Deletion' + Go + + /****** Object: StoredProcedure [dbo].[vesp_RofstDataGetChildrenByRofstID] ******/ + If Exists(SELECT * FROM sys.objects Where name = 'vesp_RofstDataGetChildrenByRofstID' AND type in (N'P')) + DROP PROCEDURE [dbo].[vesp_RofstDataGetChildrenByRofstID] + GO + IF (@@Error = 0) PRINT 'Procedure Deleted: [vesp_RofstDataGetChildrenByRofstID] Succeeded' + ELSE PRINT 'Procedure Deleted: [vesp_RofstDataGetChildrenByRofstID] Error on Deletion' + Go + + /****** Object: StoredProcedure [dbo].[vesp_RofstDataGetChildrenByID] ******/ + If Exists(SELECT * FROM sys.objects Where name = 'vesp_RofstDataGetChildrenByID' AND type in (N'P')) + DROP PROCEDURE [dbo].[vesp_RofstDataGetChildrenByID] + GO + IF (@@Error = 0) PRINT 'Procedure Deleted: [vesp_RofstDataGetChildrenByID] Succeeded' + ELSE PRINT 'Procedure Deleted: [vesp_RofstDataGetChildrenByID] Error on Deletion' + Go + + /****** Object: StoredProcedure [dbo].[vesp_RofstDataGetChildByRoid] ******/ + If Exists(SELECT * FROM sys.objects Where name = 'vesp_RofstDataGetChildByRoid' AND type in (N'P')) + DROP PROCEDURE [dbo].[vesp_RofstDataGetChildByRoid] + GO + IF (@@Error = 0) PRINT 'Procedure Deleted: [vesp_RofstDataGetChildByRoid] Succeeded' + ELSE PRINT 'Procedure Deleted: [vesp_RofstDataGetChildByRoid] Error on Deletion' + Go + + /****** Object: StoredProcedure [dbo].[vesp_RofstDataGetChildByID] ******/ + If Exists(SELECT * FROM sys.objects Where name = 'vesp_RofstDataGetChildByID' AND type in (N'P')) + DROP PROCEDURE [dbo].[vesp_RofstDataGetChildByID] + GO + IF (@@Error = 0) PRINT 'Procedure Deleted: [vesp_RofstDataGetChildByID] Succeeded' + ELSE PRINT 'Procedure Deleted: [vesp_RofstDataGetChildByID] Error on Deletion' + Go + + /****** Object: StoredProcedure [dbo].[vesp_RofstDataGetChildByAccPageID] ******/ + If Exists(SELECT * FROM sys.objects Where name = 'vesp_RofstDataGetChildByAccPageID' AND type in (N'P')) + DROP PROCEDURE [dbo].[vesp_RofstDataGetChildByAccPageID] + GO + IF (@@Error = 0) PRINT 'Procedure Deleted: [vesp_RofstDataGetChildByAccPageID] Succeeded' + ELSE PRINT 'Procedure Deleted: [vesp_RofstDataGetChildByAccPageID] Error on Deletion' + Go + + /****** Object: StoredProcedure [dbo].[vesp_RofstDatabaseInsert] ******/ + If Exists(SELECT * FROM sys.objects Where name = 'vesp_RofstDatabaseInsert' AND type in (N'P')) + DROP PROCEDURE [dbo].[vesp_RofstDatabaseInsert] + GO + IF (@@Error = 0) PRINT 'Procedure Deleted: [vesp_RofstDatabaseInsert] Succeeded' + ELSE PRINT 'Procedure Deleted: [vesp_RofstDatabaseInsert] Error on Deletion' + Go + + /****** Object: StoredProcedure [dbo].[vesp_RofstChildInsert] ******/ + If Exists(SELECT * FROM sys.objects Where name = 'vesp_RofstChildInsert' AND type in (N'P')) + DROP PROCEDURE [dbo].[vesp_RofstChildInsert] + GO + IF (@@Error = 0) PRINT 'Procedure Deleted: [vesp_RofstChildInsert] Succeeded' + ELSE PRINT 'Procedure Deleted: [vesp_RofstChildInsert] Error on Deletion' + Go + + + + /****** Object: View [dbo].[vwRofstData_RofstDefaultValues] ******/ + If Exists(SELECT * FROM sys.objects Where name = 'vwRofstData_RofstDefaultValues' AND type in (N'V')) + DROP VIEW [dbo].[vwRofstData_RofstDefaultValues] + GO + IF (@@Error = 0) PRINT 'View Deleted: [vwRofstData_RofstDefaultValues] Succeeded' + ELSE PRINT 'View Deleted: [vwRofstData_RofstDefaultValues] Error on Deletion' + Go + + /****** Object: View [dbo].[vwRofstData_RofstDatabases] ******/ + If Exists(SELECT * FROM sys.objects Where name = 'vwRofstData_RofstDatabases' AND type in (N'V')) + DROP VIEW [dbo].[vwRofstData_RofstDatabases] + GO + IF (@@Error = 0) PRINT 'View Deleted: [vwRofstData_RofstDatabases] Succeeded' + ELSE PRINT 'View Deleted: [vwRofstData_RofstDatabases] Error on Deletion' + Go + + /****** Object: View [dbo].[vwRofstData_RofstChildren] ******/ + If Exists(SELECT * FROM sys.objects Where name = 'vwRofstData_RofstChildren' AND type in (N'V')) + DROP VIEW [dbo].[vwRofstData_RofstChildren] + GO + IF (@@Error = 0) PRINT 'View Deleted: [vwRofstData_RofstChildren] Succeeded' + ELSE PRINT 'View Deleted: [vwRofstData_RofstChildren] Error on Deletion' + Go + + /****** Object: View [dbo].[vwRofstData_RofstHeaders] ******/ + If Exists(SELECT * FROM sys.objects Where name = 'vwRofstData_RofstHeaders' AND type in (N'V')) + DROP VIEW [dbo].[vwRofstData_RofstHeaders] + GO + IF (@@Error = 0) PRINT 'View Deleted: [vwRofstData_RofstHeaders] Succeeded' + ELSE PRINT 'View Deleted: [vwRofstData_RofstHeaders] Error on Deletion' + Go + + /****** Object: View [dbo].[vwRofstData_RofstHeaderStatuses] ******/ + If Exists(SELECT * FROM sys.objects Where name = 'vwRofstData_RofstHeaderStatuses' AND type in (N'V')) + DROP VIEW [dbo].[vwRofstData_RofstHeaderStatuses] + GO + IF (@@Error = 0) PRINT 'View Deleted: [vwRofstData_RofstHeaderStatuses] Succeeded' + ELSE PRINT 'View Deleted: [vwRofstData_RofstHeaderStatuses] Error on Deletion' + Go + + + + /****** Object: UserDefinedFunction [dbo].[vefn_RofstDataReplaceVars] ******/ + If Exists(SELECT * FROM sys.objects Where name = 'vefn_RofstDataReplaceVars' AND type in (N'FN')) + DROP FUNCTION [dbo].[vefn_RofstDataReplaceVars] + GO + IF (@@Error = 0) PRINT 'Function Deleted: [vefn_RofstDataReplaceVars] Succeeded' + ELSE PRINT 'Function Deleted: [vefn_RofstDataReplaceVars] Error on Deletion' + Go + + /****** Object: UserDefinedFunction [dbo].[vefn_RofstDataReplaceApplTagsWithDefaults] ******/ + If Exists(SELECT * FROM sys.objects Where name = 'vefn_RofstDataReplaceApplTagsWithDefaults' AND type in (N'FN')) + DROP FUNCTION [dbo].[vefn_RofstDataReplaceApplTagsWithDefaults] + GO + IF (@@Error = 0) PRINT 'Function Deleted: [vefn_RofstDataReplaceApplTagsWithDefaults] Succeeded' + ELSE PRINT 'Function Deleted: [vefn_RofstDataReplaceApplTagsWithDefaults] Error on Deletion' + Go + + /****** Object: UserDefinedFunction [dbo].[vefn_RofstDataGetLoadStatus] ******/ + If Exists(SELECT * FROM sys.objects Where name = 'vefn_RofstDataGetLoadStatus' AND type in (N'FN')) + DROP FUNCTION [dbo].[vefn_RofstDataGetLoadStatus] + GO + IF (@@Error = 0) PRINT 'Function Deleted: [vefn_RofstDataGetLoadStatus] Succeeded' + ELSE PRINT 'Function Deleted: [vefn_RofstDataGetLoadStatus] Error on Deletion' + Go + + + + + +/* +--------------------------------------------------------------------------------------------------- +-- Replace any previously existing stored procs before [Version 2.0] back to their previous version +--------------------------------------------------------------------------------------------------- +*/ + + IF EXISTS (Select * From dbo.sysobjects WHERE id = OBJECT_ID(N'[dbo].[getDocVersion]') AND OBJECTPROPERTY(id,N'IsProcedure') = 1) + DROP Procedure [dbo].[getDocVersion]; + GO + + SET ANSI_NULLS ON + GO + SET QUOTED_IDENTIFIER ON + GO + + /***************************************************************************** + Volian Enterprises - Proprietary Information - DO NOT COPY OR DISTRIBUTE + Copyright 2022 - Volian Enterprises, Inc. All rights reserved. + *****************************************************************************/ + + CREATE PROCEDURE [dbo].[getDocVersion] + ( + @VersionID int + ) + WITH EXECUTE AS OWNER + AS + SELECT + [VersionID], + [FolderID], + [VersionType], + [Name], + [Title], + [ItemID], + [FormatID], + [Config], + [DTS], + [UserID], + [LastChanged], + (SELECT Count(1) FROM [Associations] WHERE [Associations].[VersionID]=[DocVersions].[VersionID]) [AssociationCount] + FROM [DocVersions] + WHERE [VersionID]=@VersionID + + SELECT + [Associations].[AssociationID], + [Associations].[VersionID], + [Associations].[ROFstID], + [Associations].[Config], + [Associations].[DTS], + [Associations].[UserID], + [Associations].[LastChanged], + [ROFsts].[RODbID] [ROFst_RODbID], + [ROFsts].[ROLookup] [ROFst_ROLookup], + [ROFsts].[Config] [ROFst_Config], + [ROFsts].[DTS] [ROFst_DTS], + [ROFsts].[UserID] [ROFst_UserID] + FROM [Associations] + JOIN [ROFsts] ON + [ROFsts].[ROFstID]=[Associations].[ROFstID] + WHERE + [Associations].[VersionID]=@VersionID + + RETURN + GO + + IF (@@Error = 0) PRINT 'Procedure Creation: [getDocVersion] Succeeded' + ELSE PRINT 'Procedure Creation: [getDocVersion] Error on Creation' + GO + + + + + IF EXISTS (Select * From dbo.sysobjects WHERE id = OBJECT_ID(N'[dbo].[getFiguresByImageID]') AND OBJECTPROPERTY(id,N'IsProcedure') = 1) + DROP Procedure [dbo].[getFiguresByImageID]; + GO + + SET ANSI_NULLS ON + GO + SET QUOTED_IDENTIFIER ON + GO + + /***************************************************************************** + Volian Enterprises - Proprietary Information - DO NOT COPY OR DISTRIBUTE + Copyright 2022 - Volian Enterprises, Inc. All rights reserved. + *****************************************************************************/ + + CREATE PROCEDURE [dbo].[getFiguresByImageID] + ( + @ImageID int + ) + WITH EXECUTE AS OWNER + AS + + SELECT + [Figures].[FigureID], + [Figures].[ROFstID], + [Figures].[ImageID], + [Figures].[Config], + [Figures].[DTS], + [Figures].[UserID], + [Figures].[LastChanged], + [ROFsts].[RODbID] [ROFst_RODbID], + [ROFsts].[ROLookup] [ROFst_ROLookup], + [ROFsts].[Config] [ROFst_Config], + [ROFsts].[DTS] [ROFst_DTS], + [ROFsts].[UserID] [ROFst_UserID] + FROM [Figures] + JOIN [ROFsts] ON + [ROFsts].[ROFstID]=[Figures].[ROFstID] + WHERE + [Figures].[ImageID]=@ImageID + + RETURN + GO + + IF (@@Error = 0) PRINT 'Procedure Creation: [getFiguresByImageID] Succeeded' + ELSE PRINT 'Procedure Creation: [getFiguresByImageID] Error on Creation' + GO + + + + + IF EXISTS (Select * From dbo.sysobjects WHERE id = OBJECT_ID(N'[dbo].[getJustROFst]') AND OBJECTPROPERTY(id,N'IsProcedure') = 1) + DROP Procedure [dbo].[getJustROFst]; + GO + + SET ANSI_NULLS ON + GO + SET QUOTED_IDENTIFIER ON + GO + + /***************************************************************************** + Volian Enterprises - Proprietary Information - DO NOT COPY OR DISTRIBUTE + Copyright 2022 - Volian Enterprises, Inc. All rights reserved. + *****************************************************************************/ + + CREATE PROCEDURE [dbo].[getJustROFst] + ( + @ROFstID int + ) + WITH EXECUTE AS OWNER + AS + SELECT + [ROFstID], + [RODbID], + [ROLookup], + [Config], + [DTS], + [UserID], + [LastChanged], + (SELECT Count(1) FROM [Associations] WHERE [Associations].[ROFstID]=[ROFsts].[ROFstID]) [AssociationCount], + (SELECT Count(1) FROM [Figures] WHERE [Figures].[ROFstID]=[ROFsts].[ROFstID]) [FigureCount] + FROM [ROFsts] + WHERE [ROFstID]=@ROFstID + + RETURN + + GO + + IF (@@Error = 0) PRINT 'Procedure Creation: [getJustROFst] Succeeded' + ELSE PRINT 'Procedure Creation: [getJustROFst] Error on Creation' + GO + + + + + IF EXISTS (Select * From dbo.sysobjects WHERE id = OBJECT_ID(N'[dbo].[getRODb]') AND OBJECTPROPERTY(id,N'IsProcedure') = 1) + DROP Procedure [dbo].[getRODb]; + GO + + SET ANSI_NULLS ON + GO + SET QUOTED_IDENTIFIER ON + GO + + /***************************************************************************** + Volian Enterprises - Proprietary Information - DO NOT COPY OR DISTRIBUTE + Copyright 2022 - Volian Enterprises, Inc. All rights reserved. + *****************************************************************************/ + + CREATE PROCEDURE [dbo].[getRODb] + ( + @RODbID int + ) + WITH EXECUTE AS OWNER + AS + SELECT + [RODbID], + [ROName], + [FolderPath], + [DBConnectionString], + [Config], + [DTS], + [UserID], + [LastChanged], + (SELECT Count(1) FROM [DROUsages] WHERE [DROUsages].[RODbID]=[RODbs].[RODbID]) [DROUsageCount], + (SELECT Count(1) FROM [ROFsts] WHERE [ROFsts].[RODbID]=[RODbs].[RODbID]) [ROFstCount], + (SELECT Count(1) FROM [ROImages] WHERE [ROImages].[RODbID]=[RODbs].[RODbID]) [ROImageCount], + (SELECT Count(1) FROM [RoUsages] WHERE [RoUsages].[RODbID]=[RODbs].[RODbID]) [RoUsageCount] + FROM [RODbs] + WHERE [RODbID]=@RODbID + + SELECT + [DROUsages].[DROUsageID], + [DROUsages].[DocID], + [DROUsages].[ROID], + [DROUsages].[Config], + [DROUsages].[DTS], + [DROUsages].[UserID], + [DROUsages].[LastChanged], + [DROUsages].[RODbID], + [Documents].[LibTitle] [Document_LibTitle], + [Documents].[DocContent] [Document_DocContent], + [Documents].[DocAscii] [Document_DocAscii], + [Documents].[Config] [Document_Config], + [Documents].[DTS] [Document_DTS], + [Documents].[UserID] [Document_UserID], + [Documents].[FileExtension] [Document_FileExtension] + FROM [DROUsages] + JOIN [Documents] ON + [Documents].[DocID]=[DROUsages].[DocID] + WHERE + [DROUsages].[RODbID]=@RODbID + + + SELECT + [ROFsts].[ROFstID], + [ROFsts].[RODbID], + [ROFsts].[ROLookup], + [ROFsts].[Config], + [ROFsts].[DTS], + [ROFsts].[UserID], + [ROFsts].[LastChanged] + FROM [ROFsts] + WHERE + [ROFsts].[RODbID]=@RODbID + + + SELECT + [ROImages].[ImageID], + [ROImages].[RODbID], + [ROImages].[FileName], + [ROImages].[Content], + [ROImages].[Config], + [ROImages].[DTS], + [ROImages].[UserID], + [ROImages].[LastChanged] + FROM [ROImages] + WHERE + [ROImages].[RODbID]=@RODbID + + + SELECT + [RoUsages].[ROUsageID], + [RoUsages].[ContentID], + [RoUsages].[ROID], + [RoUsages].[Config], + [RoUsages].[DTS], + [RoUsages].[UserID], + [RoUsages].[LastChanged], + [RoUsages].[RODbID], + [Contents].[Number] [Content_Number], + [Contents].[Text] [Content_Text], + [Contents].[Type] [Content_Type], + [Contents].[FormatID] [Content_FormatID], + [Contents].[Config] [Content_Config], + [Contents].[DTS] [Content_DTS], + [Contents].[UserID] [Content_UserID] + FROM [RoUsages] + JOIN [Contents] ON + [Contents].[ContentID]=[RoUsages].[ContentID] + WHERE + [RoUsages].[RODbID]=@RODbID + + RETURN + GO + + IF (@@Error = 0) PRINT 'Procedure Creation: [getRODb] Succeeded' + ELSE PRINT 'Procedure Creation: [getRODb] Error on Creation' + GO + + + + + IF EXISTS (Select * From dbo.sysobjects WHERE id = OBJECT_ID(N'[dbo].[getROFst]') AND OBJECTPROPERTY(id,N'IsProcedure') = 1) + DROP Procedure [dbo].[getROFst]; + GO + + SET ANSI_NULLS ON + GO + SET QUOTED_IDENTIFIER ON + GO + + /***************************************************************************** + Volian Enterprises - Proprietary Information - DO NOT COPY OR DISTRIBUTE + Copyright 2022 - Volian Enterprises, Inc. All rights reserved. + *****************************************************************************/ + + CREATE PROCEDURE [dbo].[getROFst] + + ( + @ROFstID int + ) + WITH EXECUTE AS OWNER + AS + SELECT + [ROFstID], + [RODbID], + [ROLookup], + [Config], + [DTS], + [UserID], + [LastChanged], + (SELECT Count(1) FROM [Associations] WHERE [Associations].[ROFstID]=[ROFsts].[ROFstID]) [AssociationCount], + (SELECT Count(1) FROM [Figures] WHERE [Figures].[ROFstID]=[ROFsts].[ROFstID]) [FigureCount] + FROM [ROFsts] + WHERE [ROFstID]=@ROFstID + + SELECT + [Associations].[AssociationID], + [Associations].[VersionID], + [Associations].[ROFstID], + [Associations].[Config], + [Associations].[DTS], + [Associations].[UserID], + [Associations].[LastChanged], + [DocVersions].[FolderID] [DocVersion_FolderID], + [DocVersions].[VersionType] [DocVersion_VersionType], + [DocVersions].[Name] [DocVersion_Name], + [DocVersions].[Title] [DocVersion_Title], + [DocVersions].[ItemID] [DocVersion_ItemID], + [DocVersions].[FormatID] [DocVersion_FormatID], + [DocVersions].[Config] [DocVersion_Config], + [DocVersions].[DTS] [DocVersion_DTS], + [DocVersions].[UserID] [DocVersion_UserID] + FROM [Associations] + JOIN [DocVersions] ON + [DocVersions].[VersionID]=[Associations].[VersionID] + WHERE + [Associations].[ROFstID]=@ROFstID + + + SELECT + [Figures].[FigureID], + [Figures].[ROFstID], + [Figures].[ImageID], + [Figures].[Config], + [Figures].[DTS], + [Figures].[UserID], + [Figures].[LastChanged], + [ROImages].[RODbID] [ROImage_RODbID], + [ROImages].[FileName] [ROImage_FileName], + [ROImages].[Content] [ROImage_Content], + [ROImages].[Config] [ROImage_Config], + [ROImages].[DTS] [ROImage_DTS], + [ROImages].[UserID] [ROImage_UserID] + FROM [Figures] + JOIN [ROImages] ON + [ROImages].[ImageID]=[Figures].[ImageID] + WHERE + [Figures].[ROFstID]=@ROFstID + + RETURN + GO + + IF (@@Error = 0) PRINT 'Procedure Creation: [getROFst] Succeeded' + ELSE PRINT 'Procedure Creation: [getROFst] Error on Creation' + GO + + + + + + + IF EXISTS (Select * From dbo.sysobjects WHERE id = OBJECT_ID(N'[dbo].[getROFstByRODbID_DTS]') AND OBJECTPROPERTY(id,N'IsProcedure') = 1) + DROP Procedure [dbo].[getROFstByRODbID_DTS]; + GO + + SET ANSI_NULLS ON + GO + SET QUOTED_IDENTIFIER ON + GO + + /***************************************************************************** + Volian Enterprises - Proprietary Information - DO NOT COPY OR DISTRIBUTE + Copyright 2022 - Volian Enterprises, Inc. All rights reserved. + *****************************************************************************/ + + CREATE PROCEDURE [dbo].[getROFstByRODbID_DTS] + ( + @RODbID int, + @DTS datetime + ) + WITH EXECUTE AS OWNER + AS + SELECT + [ROFstID], + [RODbID], + [ROLookup], + [Config], + [DTS], + [UserID], + [LastChanged], + (SELECT Count(1) FROM [Associations] WHERE [Associations].[ROFstID]=[ROFsts].[ROFstID]) [AssociationCount], + (SELECT Count(1) FROM [Figures] WHERE [Figures].[ROFstID]=[ROFsts].[ROFstID]) [FigureCount] + FROM [ROFsts] + WHERE [RODbID]=@RODbID AND [DTS]=@DTS + + RETURN + + GO + + IF (@@Error = 0) PRINT 'Procedure Creation: [getROFstByRODbID_DTS] Succeeded' + ELSE PRINT 'Procedure Creation: [getROFstByRODbID_DTS] Error on Creation' + GO + + + + + + + IF EXISTS (Select * From dbo.sysobjects WHERE id = OBJECT_ID(N'[dbo].[getRoFstBySize]') AND OBJECTPROPERTY(id,N'IsProcedure') = 1) + DROP Procedure [dbo].[getRoFstBySize]; + GO + + SET ANSI_NULLS ON + GO + SET QUOTED_IDENTIFIER ON + GO + + /***************************************************************************** + Volian Enterprises - Proprietary Information - DO NOT COPY OR DISTRIBUTE + Copyright 2022 - Volian Enterprises, Inc. All rights reserved. + *****************************************************************************/ + + create PROCEDURE [dbo].[getRoFstBySize] + ( + @RODbID int, + @Len int + ) + WITH EXECUTE AS OWNER + AS + + select [ROFstID], + [RODbID], + [ROLookup], + [Config], + [DTS], + [UserID], + [LastChanged], + (SELECT Count(1) FROM [Associations] WHERE [Associations].[ROFstID]=[ROFsts].[ROFstID]) [AssociationCount], + (SELECT Count(1) FROM [Figures] WHERE [Figures].[ROFstID]=[ROFsts].[ROFstID]) [FigureCount] + from [ROFsts] + where len(rolookup) = @len and [RODbID] = @RODbID + + RETURN + + GO + + IF (@@Error = 0) PRINT 'Procedure Creation: [getRoFstBySize] Succeeded' + ELSE PRINT 'Procedure Creation: [getRoFstBySize] Error on Creation' + GO + + + + + + IF EXISTS (Select * From dbo.sysobjects WHERE id = OBJECT_ID(N'[dbo].[getROFsts]') AND OBJECTPROPERTY(id,N'IsProcedure') = 1) + DROP Procedure [dbo].[getROFsts]; + GO + + SET ANSI_NULLS ON + GO + SET QUOTED_IDENTIFIER ON + GO + + /***************************************************************************** + Volian Enterprises - Proprietary Information - DO NOT COPY OR DISTRIBUTE + Copyright 2022 - Volian Enterprises, Inc. All rights reserved. + *****************************************************************************/ + + CREATE PROCEDURE [dbo].[getROFsts] + + WITH EXECUTE AS OWNER + AS + SELECT + [ROFstID], + [RODbID], + [ROLookup], + [Config], + [DTS], + [UserID], + [LastChanged], + (SELECT Count(1) FROM [Associations] WHERE [Associations].[ROFstID]=[ROFsts].[ROFstID]) [AssociationCount], + (SELECT Count(1) FROM [Figures] WHERE [Figures].[ROFstID]=[ROFsts].[ROFstID]) [FigureCount] + FROM [ROFsts] + + RETURN + + GO + + IF (@@Error = 0) PRINT 'Procedure Creation: [getROFsts] Succeeded' + ELSE PRINT 'Procedure Creation: [getROFsts] Error on Creation' + GO + + + + + + + IF EXISTS (Select * From dbo.sysobjects WHERE id = OBJECT_ID(N'[dbo].[getROFstsByRODbID]') AND OBJECTPROPERTY(id,N'IsProcedure') = 1) + DROP Procedure [dbo].[getROFstsByRODbID]; + GO + + SET ANSI_NULLS ON + GO + SET QUOTED_IDENTIFIER ON + GO + + /***************************************************************************** + Volian Enterprises - Proprietary Information - DO NOT COPY OR DISTRIBUTE + Copyright 2022 - Volian Enterprises, Inc. All rights reserved. + *****************************************************************************/ + + CREATE PROCEDURE [dbo].[getROFstsByRODbID] + ( + @RODbID int + ) + WITH EXECUTE AS OWNER + AS + + SELECT + [ROFsts].[ROFstID], + [ROFsts].[RODbID], + [ROFsts].[ROLookup], + [ROFsts].[Config], + [ROFsts].[DTS], + [ROFsts].[UserID], + [ROFsts].[LastChanged], + (SELECT COUNT(1) FROM [Associations] WHERE [Associations].[ROFstID]=[ROFsts].[ROFstID]) [AssociationCount], + (SELECT COUNT(1) FROM [Figures] WHERE [Figures].[ROFstID]=[ROFsts].[ROFstID]) [FigureCount] + FROM [ROFsts] + WHERE + [ROFsts].[RODbID]=@RODbID + + RETURN + GO + + IF (@@Error = 0) PRINT 'Procedure Creation: [getROFstsByRODbID] Succeeded' + ELSE PRINT 'Procedure Creation: [getROFstsByRODbID] Error on Creation' + GO + + + + + + + + IF EXISTS (Select * From dbo.sysobjects WHERE id = OBJECT_ID(N'[dbo].[getROImage]') AND OBJECTPROPERTY(id,N'IsProcedure') = 1) + DROP Procedure [dbo].[getROImage]; + GO + + SET ANSI_NULLS ON + GO + SET QUOTED_IDENTIFIER ON + GO + + /***************************************************************************** + Volian Enterprises - Proprietary Information - DO NOT COPY OR DISTRIBUTE + Copyright 2022 - Volian Enterprises, Inc. All rights reserved. + *****************************************************************************/ + + CREATE PROCEDURE [dbo].[getROImage] + ( + @ImageID int + ) + WITH EXECUTE AS OWNER + AS + SELECT + [ImageID], + [RODbID], + [FileName], + [Content], + [Config], + [DTS], + [UserID], + [LastChanged], + (SELECT COUNT(1) FROM [Figures] WHERE [Figures].[ImageID]=[ROImages].[ImageID]) [FigureCount] + FROM [ROImages] + WHERE [ImageID]=@ImageID + + SELECT + [Figures].[FigureID], + [Figures].[ROFstID], + [Figures].[ImageID], + [Figures].[Config], + [Figures].[DTS], + [Figures].[UserID], + [Figures].[LastChanged], + [ROFsts].[RODbID] [ROFst_RODbID], + [ROFsts].[ROLookup] [ROFst_ROLookup], + [ROFsts].[Config] [ROFst_Config], + [ROFsts].[DTS] [ROFst_DTS], + [ROFsts].[UserID] [ROFst_UserID] + FROM [Figures] + JOIN [ROFsts] ON + [ROFsts].[ROFstID]=[Figures].[ROFstID] + WHERE + [Figures].[ImageID]=@ImageID + + RETURN + GO + + IF (@@Error = 0) PRINT 'Procedure Creation: [getROImage] Succeeded' + ELSE PRINT 'Procedure Creation: [getROImage] Error on Creation' + GO + + + + + + IF EXISTS (Select * From dbo.sysobjects WHERE id = OBJECT_ID(N'[dbo].[updateROFst]') AND OBJECTPROPERTY(id,N'IsProcedure') = 1) + DROP Procedure [dbo].[updateROFst]; + GO + + SET ANSI_NULLS ON + GO + SET QUOTED_IDENTIFIER ON + GO + + /***************************************************************************** + Volian Enterprises - Proprietary Information - DO NOT COPY OR DISTRIBUTE + Copyright 2022 - Volian Enterprises, Inc. All rights reserved. + *****************************************************************************/ + + CREATE PROCEDURE [dbo].[updateROFst] + ( + @ROFstID int, + @RODbID int, + @ROLookup varbinary(MAX), + @Config nvarchar(MAX)=null, + @DTS datetime, + @UserID nvarchar(100), + @LastChanged timestamp, + @newLastChanged timestamp output + ) + WITH EXECUTE AS OWNER + AS + BEGIN TRY -- Try Block + + BEGIN TRANSACTION + + UPDATE [ROFsts] + SET + [RODbID]=@RODbID, + [ROLookup]=@ROLookup, + [Config]=@Config, + [DTS]=@DTS, + [UserID]=@UserID + WHERE [ROFstID]=@ROFstID AND [LastChanged]=@LastChanged + IF @@ROWCOUNT = 0 + BEGIN + IF NOT exists(select * from [ROFsts] WHERE [ROFstID]=@ROFstID) + RAISERROR('ROFst record has been deleted by another user', 16, 1) + ELSE + RAISERROR('ROFst has been edited by another user', 16, 1) + END + + SELECT @newLastChanged=[LastChanged] + FROM [ROFsts] WHERE [ROFstID]=@ROFstID + + IF( @@TRANCOUNT > 0 ) COMMIT + END TRY + BEGIN CATCH -- Catch Block + IF( @@TRANCOUNT = 1 ) ROLLBACK -- Only rollback if top level + ELSE IF( @@TRANCOUNT > 1 ) COMMIT -- Otherwise commit. Top level will rollback + EXEC vlnErrorHandler + END CATCH + + GO + + IF (@@Error = 0) PRINT 'Procedure Creation: [updateROFst] Succeeded' + ELSE PRINT 'Procedure Creation: [updateROFst] Error on Creation' + GO + + + +/* +========================================================================================================== + End: B2022-026 RO Memory reduction coding (Jakes Merge) [Version 2.0] +========================================================================================================== +*/ + + +----------------------------------------------------------------------------- +/* + --------------------------------------------------------------------------- + | ADD New Code Before this Block | + | Change Date and Description | + --------------------------------------------------------------------------- +*/ +----------------------------------------------------------------------------- +-- Rebuild / Reorganize All Indexes +exec [dbo].[vesp_UtilityCheckIndexes]; + +IF (@@Error = 0) PRINT 'Running vesp_UtilityCheckIndexes Succeeded' +ELSE PRINT 'Running vesp_UtilityCheckIndexes Failed to Execute' +GO + + +IF EXISTS (SELECT * FROM dbo.sysobjects WHERE id = OBJECT_ID(N'[vesp_GetSQLCodeRevision]') AND OBJECTPROPERTY(id,N'IsProcedure') = 1) + DROP PROCEDURE [vesp_GetSQLCodeRevision]; +GO + +/***************************************************************************** + Volian Enterprises - Proprietary Information - DO NOT COPY OR DISTRIBUTE + Copyright 2021 - Volian Enterprises, Inc. All rights reserved. +*****************************************************************************/ +CREATE PROCEDURE [dbo].[vesp_GetSQLCodeRevision] +WITH EXECUTE AS OWNER +AS +BEGIN TRY -- Try Block + BEGIN TRANSACTION + -- Change information in the next line when you are done + set nocount on + DECLARE @RevDate varchar(255) + DECLARE @RevDescription varchar(255) + + set @RevDate = '06/02/2022 12:30 PM' + set @RevDescription = 'getGridIds fix for table searches' + + Select cast(@RevDate as datetime) RevDate, @RevDescription RevDescription + PRINT 'SQL Code Revision ' + @RevDate + ' - ' + @RevDescription + IF( @@TRANCOUNT > 0 ) COMMIT +END TRY +BEGIN CATCH -- Catch Block + IF( @@TRANCOUNT = 1 ) ROLLBACK -- Only rollback if top level + ELSE IF( @@TRANCOUNT > 1 ) COMMIT -- Otherwise commit. Top level will rollback + EXEC vlnErrorHandler +END CATCH +GO +-- Display the status of Proc creation +IF (@@Error = 0) PRINT 'StoredProcedure [vesp_GetSQLCodeRevision] Succeeded' +ELSE PRINT 'StoredProcedure [vesp_GetSQLCodeRevision] Error on Creation' +go + +Exec vesp_GetSQLCodeRevision;