From 2b37bdb5c2f633152399fe51f2424cd409e1aa43 Mon Sep 17 00:00:00 2001 From: joyfullservice Date: Fri, 1 Dec 2023 17:37:39 -0600 Subject: [PATCH] Refactor components to provide file extension list Parent functionality such as determining the most recent file modified, getting the last modified date, and checking for alternate source files is better done by having the class provide the list of file extensions that might be used by the class, and having single external functions perform these tasks. (Avoids some redundant code.) --- .../modules/IDbComponent.cls | 26 +++++------ .../modules/clsAdpFunction.cls | 29 ++++++------ .../modules/clsAdpProcedure.cls | 29 ++++++------ .../modules/clsAdpServerView.cls | 29 ++++++------ .../modules/clsAdpTable.cls | 29 ++++++------ .../modules/clsAdpTrigger.cls | 29 ++++++------ .../modules/clsDbConnection.cls | 29 ++++++------ .../modules/clsDbDocument.cls | 29 ++++++------ .../modules/clsDbForm.cls | 32 +++++++------- .../modules/clsDbHiddenAttribute.cls | 29 ++++++------ .../modules/clsDbImexSpec.cls | 29 ++++++------ .../modules/clsDbMacro.cls | 29 ++++++------ .../modules/clsDbModule.cls | 32 +++++++------- .../modules/clsDbNavPaneGroup.cls | 29 ++++++------ .../modules/clsDbProjProperty.cls | 29 ++++++------ .../modules/clsDbProject.cls | 29 ++++++------ .../modules/clsDbProperty.cls | 29 ++++++------ .../modules/clsDbQuery.cls | 36 +++++++-------- .../modules/clsDbRelation.cls | 29 ++++++------ .../modules/clsDbReport.cls | 32 +++++++------- .../modules/clsDbSavedSpec.cls | 29 ++++++------ .../modules/clsDbSharedImage.cls | 44 +++++++++---------- .../modules/clsDbTableData.cls | 30 ++++++------- .../modules/clsDbTableDataMacro.cls | 29 ++++++------ .../modules/clsDbTableDef.cls | 33 +++++++------- .../modules/clsDbTheme.cls | 32 +++++++------- .../modules/clsDbVbeForm.cls | 34 +++++++------- .../modules/clsDbVbeProject.cls | 29 ++++++------ .../modules/clsDbVbeReference.cls | 29 ++++++------ 29 files changed, 421 insertions(+), 461 deletions(-) diff --git a/Version Control.accda.src/modules/IDbComponent.cls b/Version Control.accda.src/modules/IDbComponent.cls index c7ff92b2..7c27df54 100644 --- a/Version Control.accda.src/modules/IDbComponent.cls +++ b/Version Control.accda.src/modules/IDbComponent.cls @@ -149,20 +149,6 @@ Public Function DateModified() As Date End Function -'--------------------------------------------------------------------------------------- -' Procedure : SourceModifiedDateDate -' Author : Adam Waller -' Date : 4/27/2020 -' Purpose : The date/time the source object was modified. In most cases, this would -' : be the date/time of the source file, but it some cases like SQL objects -' : the date can be determined through other means, so this function -' : allows either approach to be taken. -'--------------------------------------------------------------------------------------- -' -Public Function SourceModifiedDate() As Date -End Function - - '--------------------------------------------------------------------------------------- ' Procedure : BaseFolder ' Author : Adam Waller @@ -184,6 +170,18 @@ Public Property Get SourceFile() As String End Property +'--------------------------------------------------------------------------------------- +' Procedure : FileExtensions +' Author : Adam Waller +' Date : 12/1/2023 +' Purpose : A collection of the file extensions used in source files for this +' : component type. +'--------------------------------------------------------------------------------------- +' +Public Property Get FileExtensions() As Collection +End Property + + '--------------------------------------------------------------------------------------- ' Procedure : GetFileList ' Author : Adam Waller diff --git a/Version Control.accda.src/modules/clsAdpFunction.cls b/Version Control.accda.src/modules/clsAdpFunction.cls index 45ef77df..3412986f 100644 --- a/Version Control.accda.src/modules/clsAdpFunction.cls +++ b/Version Control.accda.src/modules/clsAdpFunction.cls @@ -188,21 +188,6 @@ Private Function IDbComponent_DateModified() As Date End Function -'--------------------------------------------------------------------------------------- -' Procedure : SourceModifiedDate -' Author : Adam Waller -' Date : 4/27/2020 -' Purpose : The date/time the source object was modified. In most cases, this would -' : be the date/time of the source file, but it some cases like SQL objects -' : the date can be determined through other means, so this function -' : allows either approach to be taken. -'--------------------------------------------------------------------------------------- -' -Private Function IDbComponent_SourceModifiedDate() As Date - IDbComponent_SourceModifiedDate = GetLastModifiedDate(IDbComponent_SourceFile) -End Function - - '--------------------------------------------------------------------------------------- ' Procedure : Category ' Author : Adam Waller @@ -226,6 +211,20 @@ Private Property Get IDbComponent_BaseFolder() As String End Property +'--------------------------------------------------------------------------------------- +' Procedure : FileExtensions +' Author : Adam Waller +' Date : 12/1/2023 +' Purpose : A collection of the file extensions used in source files for this +' : component type. +'--------------------------------------------------------------------------------------- +' +Private Property Get IDbComponent_FileExtensions() As Collection + Set IDbComponent_FileExtensions = New Collection + IDbComponent_FileExtensions.Add "sql" +End Property + + '--------------------------------------------------------------------------------------- ' Procedure : Name ' Author : Adam Waller diff --git a/Version Control.accda.src/modules/clsAdpProcedure.cls b/Version Control.accda.src/modules/clsAdpProcedure.cls index 48db1571..65237344 100644 --- a/Version Control.accda.src/modules/clsAdpProcedure.cls +++ b/Version Control.accda.src/modules/clsAdpProcedure.cls @@ -188,21 +188,6 @@ Private Function IDbComponent_DateModified() As Date End Function -'--------------------------------------------------------------------------------------- -' Procedure : SourceModifiedDate -' Author : Adam Waller -' Date : 4/27/2020 -' Purpose : The date/time the source object was modified. In most cases, this would -' : be the date/time of the source file, but it some cases like SQL objects -' : the date can be determined through other means, so this function -' : allows either approach to be taken. -'--------------------------------------------------------------------------------------- -' -Private Function IDbComponent_SourceModifiedDate() As Date - IDbComponent_SourceModifiedDate = GetLastModifiedDate(IDbComponent_SourceFile) -End Function - - '--------------------------------------------------------------------------------------- ' Procedure : Category ' Author : Adam Waller @@ -226,6 +211,20 @@ Private Property Get IDbComponent_BaseFolder() As String End Property +'--------------------------------------------------------------------------------------- +' Procedure : FileExtensions +' Author : Adam Waller +' Date : 12/1/2023 +' Purpose : A collection of the file extensions used in source files for this +' : component type. +'--------------------------------------------------------------------------------------- +' +Private Property Get IDbComponent_FileExtensions() As Collection + Set IDbComponent_FileExtensions = New Collection + IDbComponent_FileExtensions.Add "sql" +End Property + + '--------------------------------------------------------------------------------------- ' Procedure : Name ' Author : Adam Waller diff --git a/Version Control.accda.src/modules/clsAdpServerView.cls b/Version Control.accda.src/modules/clsAdpServerView.cls index ef856667..e93ac385 100644 --- a/Version Control.accda.src/modules/clsAdpServerView.cls +++ b/Version Control.accda.src/modules/clsAdpServerView.cls @@ -188,21 +188,6 @@ Private Function IDbComponent_DateModified() As Date End Function -'--------------------------------------------------------------------------------------- -' Procedure : SourceModifiedDate -' Author : Adam Waller -' Date : 4/27/2020 -' Purpose : The date/time the source object was modified. In most cases, this would -' : be the date/time of the source file, but it some cases like SQL objects -' : the date can be determined through other means, so this function -' : allows either approach to be taken. -'--------------------------------------------------------------------------------------- -' -Private Function IDbComponent_SourceModifiedDate() As Date - IDbComponent_SourceModifiedDate = GetLastModifiedDate(IDbComponent_SourceFile) -End Function - - '--------------------------------------------------------------------------------------- ' Procedure : Category ' Author : Adam Waller @@ -226,6 +211,20 @@ Private Property Get IDbComponent_BaseFolder() As String End Property +'--------------------------------------------------------------------------------------- +' Procedure : FileExtensions +' Author : Adam Waller +' Date : 12/1/2023 +' Purpose : A collection of the file extensions used in source files for this +' : component type. +'--------------------------------------------------------------------------------------- +' +Private Property Get IDbComponent_FileExtensions() As Collection + Set IDbComponent_FileExtensions = New Collection + IDbComponent_FileExtensions.Add "sql" +End Property + + '--------------------------------------------------------------------------------------- ' Procedure : Name ' Author : Adam Waller diff --git a/Version Control.accda.src/modules/clsAdpTable.cls b/Version Control.accda.src/modules/clsAdpTable.cls index 838aeed8..c6dc1fdf 100644 --- a/Version Control.accda.src/modules/clsAdpTable.cls +++ b/Version Control.accda.src/modules/clsAdpTable.cls @@ -248,21 +248,6 @@ Private Function IDbComponent_DateModified() As Date End Function -'--------------------------------------------------------------------------------------- -' Procedure : SourceModifiedDate -' Author : Adam Waller -' Date : 4/27/2020 -' Purpose : The date/time the source object was modified. In most cases, this would -' : be the date/time of the source file, but it some cases like SQL objects -' : the date can be determined through other means, so this function -' : allows either approach to be taken. -'--------------------------------------------------------------------------------------- -' -Private Function IDbComponent_SourceModifiedDate() As Date - IDbComponent_SourceModifiedDate = GetLastModifiedDate(IDbComponent_SourceFile) -End Function - - '--------------------------------------------------------------------------------------- ' Procedure : Category ' Author : Adam Waller @@ -286,6 +271,20 @@ Private Property Get IDbComponent_BaseFolder() As String End Property +'--------------------------------------------------------------------------------------- +' Procedure : FileExtensions +' Author : Adam Waller +' Date : 12/1/2023 +' Purpose : A collection of the file extensions used in source files for this +' : component type. +'--------------------------------------------------------------------------------------- +' +Private Property Get IDbComponent_FileExtensions() As Collection + Set IDbComponent_FileExtensions = New Collection + IDbComponent_FileExtensions.Add "txt" +End Property + + '--------------------------------------------------------------------------------------- ' Procedure : Name ' Author : Adam Waller diff --git a/Version Control.accda.src/modules/clsAdpTrigger.cls b/Version Control.accda.src/modules/clsAdpTrigger.cls index bdb71e9a..090f75a3 100644 --- a/Version Control.accda.src/modules/clsAdpTrigger.cls +++ b/Version Control.accda.src/modules/clsAdpTrigger.cls @@ -214,21 +214,6 @@ Private Function IDbComponent_DateModified() As Date End Function -'--------------------------------------------------------------------------------------- -' Procedure : SourceModifiedDate -' Author : Adam Waller -' Date : 4/27/2020 -' Purpose : The date/time the source object was modified. In most cases, this would -' : be the date/time of the source file, but it some cases like SQL objects -' : the date can be determined through other means, so this function -' : allows either approach to be taken. -'--------------------------------------------------------------------------------------- -' -Private Function IDbComponent_SourceModifiedDate() As Date - IDbComponent_SourceModifiedDate = GetLastModifiedDate(IDbComponent_SourceFile) -End Function - - '--------------------------------------------------------------------------------------- ' Procedure : Category ' Author : Adam Waller @@ -252,6 +237,20 @@ Private Property Get IDbComponent_BaseFolder() As String End Property +'--------------------------------------------------------------------------------------- +' Procedure : FileExtensions +' Author : Adam Waller +' Date : 12/1/2023 +' Purpose : A collection of the file extensions used in source files for this +' : component type. +'--------------------------------------------------------------------------------------- +' +Private Property Get IDbComponent_FileExtensions() As Collection + Set IDbComponent_FileExtensions = New Collection + IDbComponent_FileExtensions.Add "sql" +End Property + + '--------------------------------------------------------------------------------------- ' Procedure : Name ' Author : Adam Waller diff --git a/Version Control.accda.src/modules/clsDbConnection.cls b/Version Control.accda.src/modules/clsDbConnection.cls index e7cd877c..ea85eb97 100644 --- a/Version Control.accda.src/modules/clsDbConnection.cls +++ b/Version Control.accda.src/modules/clsDbConnection.cls @@ -335,21 +335,6 @@ Private Function IDbComponent_DateModified() As Date End Function -'--------------------------------------------------------------------------------------- -' Procedure : SourceModifiedDate -' Author : Adam Waller -' Date : 5/17/2021 -' Purpose : The date/time the source object was modified. In most cases, this would -' : be the date/time of the source file, but it some cases like SQL objects -' : the date can be determined through other means, so this function -' : allows either approach to be taken. -'--------------------------------------------------------------------------------------- -' -Private Function IDbComponent_SourceModifiedDate() As Date - IDbComponent_SourceModifiedDate = GetLastModifiedDate(IDbComponent_SourceFile) -End Function - - '--------------------------------------------------------------------------------------- ' Procedure : Category ' Author : Adam Waller @@ -373,6 +358,20 @@ Private Property Get IDbComponent_BaseFolder() As String End Property +'--------------------------------------------------------------------------------------- +' Procedure : FileExtensions +' Author : Adam Waller +' Date : 12/1/2023 +' Purpose : A collection of the file extensions used in source files for this +' : component type. +'--------------------------------------------------------------------------------------- +' +Private Property Get IDbComponent_FileExtensions() As Collection + Set IDbComponent_FileExtensions = New Collection + IDbComponent_FileExtensions.Add "json" +End Property + + '--------------------------------------------------------------------------------------- ' Procedure : Name ' Author : Adam Waller diff --git a/Version Control.accda.src/modules/clsDbDocument.cls b/Version Control.accda.src/modules/clsDbDocument.cls index 62f08067..7a7004c2 100644 --- a/Version Control.accda.src/modules/clsDbDocument.cls +++ b/Version Control.accda.src/modules/clsDbDocument.cls @@ -423,21 +423,6 @@ Private Function IDbComponent_DateModified() As Date End Function -'--------------------------------------------------------------------------------------- -' Procedure : SourceModifiedDate -' Author : Adam Waller -' Date : 4/27/2020 -' Purpose : The date/time the source object was modified. In most cases, this would -' : be the date/time of the source file, but it some cases like SQL objects -' : the date can be determined through other means, so this function -' : allows either approach to be taken. -'--------------------------------------------------------------------------------------- -' -Private Function IDbComponent_SourceModifiedDate() As Date - IDbComponent_SourceModifiedDate = GetLastModifiedDate(IDbComponent_SourceFile) -End Function - - '--------------------------------------------------------------------------------------- ' Procedure : Category ' Author : Adam Waller @@ -461,6 +446,20 @@ Private Property Get IDbComponent_BaseFolder() As String End Property +'--------------------------------------------------------------------------------------- +' Procedure : FileExtensions +' Author : Adam Waller +' Date : 12/1/2023 +' Purpose : A collection of the file extensions used in source files for this +' : component type. +'--------------------------------------------------------------------------------------- +' +Private Property Get IDbComponent_FileExtensions() As Collection + Set IDbComponent_FileExtensions = New Collection + IDbComponent_FileExtensions.Add "json" +End Property + + '--------------------------------------------------------------------------------------- ' Procedure : Name ' Author : Adam Waller diff --git a/Version Control.accda.src/modules/clsDbForm.cls b/Version Control.accda.src/modules/clsDbForm.cls index 1fba7d15..941a86ca 100644 --- a/Version Control.accda.src/modules/clsDbForm.cls +++ b/Version Control.accda.src/modules/clsDbForm.cls @@ -249,23 +249,6 @@ Private Function IDbComponent_DateModified() As Date End Function -'--------------------------------------------------------------------------------------- -' Procedure : SourceModifiedDate -' Author : Adam Waller -' Date : 4/27/2020 -' Purpose : The date/time the source object was modified. In most cases, this would -' : be the date/time of the source file, but it some cases like SQL objects -' : the date can be determined through other means, so this function -' : allows either approach to be taken. -'--------------------------------------------------------------------------------------- -' -Private Function IDbComponent_SourceModifiedDate() As Date - IDbComponent_SourceModifiedDate = Largest( _ - GetLastModifiedDate(IDbComponent_SourceFile), _ - GetLastModifiedDate(SwapExtension(IDbComponent_SourceFile, "cls"))) -End Function - - '--------------------------------------------------------------------------------------- ' Procedure : Category ' Author : Adam Waller @@ -289,6 +272,21 @@ Private Property Get IDbComponent_BaseFolder() As String End Property +'--------------------------------------------------------------------------------------- +' Procedure : FileExtensions +' Author : Adam Waller +' Date : 12/1/2023 +' Purpose : A collection of the file extensions used in source files for this +' : component type. +'--------------------------------------------------------------------------------------- +' +Private Property Get IDbComponent_FileExtensions() As Collection + Set IDbComponent_FileExtensions = New Collection + IDbComponent_FileExtensions.Add "bas" + IDbComponent_FileExtensions.Add "cls" +End Property + + '--------------------------------------------------------------------------------------- ' Procedure : Name ' Author : Adam Waller diff --git a/Version Control.accda.src/modules/clsDbHiddenAttribute.cls b/Version Control.accda.src/modules/clsDbHiddenAttribute.cls index b409a5a2..17a576c6 100644 --- a/Version Control.accda.src/modules/clsDbHiddenAttribute.cls +++ b/Version Control.accda.src/modules/clsDbHiddenAttribute.cls @@ -385,21 +385,6 @@ Private Function IDbComponent_DateModified() As Date End Function -'--------------------------------------------------------------------------------------- -' Procedure : SourceModifiedDate -' Author : Adam Waller / Indigo744 -' Date : 4/27/2020 -' Purpose : The date/time the source object was modified. In most cases, this would -' : be the date/time of the source file, but it some cases like SQL objects -' : the date can be determined through other means, so this function -' : allows either approach to be taken. -'--------------------------------------------------------------------------------------- -' -Private Function IDbComponent_SourceModifiedDate() As Date - IDbComponent_SourceModifiedDate = GetLastModifiedDate(IDbComponent_SourceFile) -End Function - - '--------------------------------------------------------------------------------------- ' Procedure : Category ' Author : Adam Waller / Indigo744 @@ -423,6 +408,20 @@ Private Property Get IDbComponent_BaseFolder() As String End Property +'--------------------------------------------------------------------------------------- +' Procedure : FileExtensions +' Author : Adam Waller +' Date : 12/1/2023 +' Purpose : A collection of the file extensions used in source files for this +' : component type. +'--------------------------------------------------------------------------------------- +' +Private Property Get IDbComponent_FileExtensions() As Collection + Set IDbComponent_FileExtensions = New Collection + IDbComponent_FileExtensions.Add "json" +End Property + + '--------------------------------------------------------------------------------------- ' Procedure : Name ' Author : Adam Waller / Indigo744 diff --git a/Version Control.accda.src/modules/clsDbImexSpec.cls b/Version Control.accda.src/modules/clsDbImexSpec.cls index 6f9df983..e1440eb9 100644 --- a/Version Control.accda.src/modules/clsDbImexSpec.cls +++ b/Version Control.accda.src/modules/clsDbImexSpec.cls @@ -403,21 +403,6 @@ Private Function IDbComponent_DateModified() As Date End Function -'--------------------------------------------------------------------------------------- -' Procedure : SourceModifiedDate -' Author : Adam Waller -' Date : 4/27/2020 -' Purpose : The date/time the source object was modified. In most cases, this would -' : be the date/time of the source file, but it some cases like SQL objects -' : the date can be determined through other means, so this function -' : allows either approach to be taken. -'--------------------------------------------------------------------------------------- -' -Private Function IDbComponent_SourceModifiedDate() As Date - IDbComponent_SourceModifiedDate = GetLastModifiedDate(IDbComponent_SourceFile) -End Function - - '--------------------------------------------------------------------------------------- ' Procedure : Category ' Author : Adam Waller @@ -441,6 +426,20 @@ Private Property Get IDbComponent_BaseFolder() As String End Property +'--------------------------------------------------------------------------------------- +' Procedure : FileExtensions +' Author : Adam Waller +' Date : 12/1/2023 +' Purpose : A collection of the file extensions used in source files for this +' : component type. +'--------------------------------------------------------------------------------------- +' +Private Property Get IDbComponent_FileExtensions() As Collection + Set IDbComponent_FileExtensions = New Collection + IDbComponent_FileExtensions.Add "json" +End Property + + '--------------------------------------------------------------------------------------- ' Procedure : Name ' Author : Adam Waller diff --git a/Version Control.accda.src/modules/clsDbMacro.cls b/Version Control.accda.src/modules/clsDbMacro.cls index 55a9745c..48f2f6f2 100644 --- a/Version Control.accda.src/modules/clsDbMacro.cls +++ b/Version Control.accda.src/modules/clsDbMacro.cls @@ -203,21 +203,6 @@ Private Function IDbComponent_DateModified() As Date End Function -'--------------------------------------------------------------------------------------- -' Procedure : SourceModifiedDate -' Author : Adam Waller -' Date : 4/27/2020 -' Purpose : The date/time the source object was modified. In most cases, this would -' : be the date/time of the source file, but it some cases like SQL objects -' : the date can be determined through other means, so this function -' : allows either approach to be taken. -'--------------------------------------------------------------------------------------- -' -Private Function IDbComponent_SourceModifiedDate() As Date - IDbComponent_SourceModifiedDate = GetLastModifiedDate(IDbComponent_SourceFile) -End Function - - '--------------------------------------------------------------------------------------- ' Procedure : Category ' Author : Adam Waller @@ -241,6 +226,20 @@ Private Property Get IDbComponent_BaseFolder() As String End Property +'--------------------------------------------------------------------------------------- +' Procedure : FileExtensions +' Author : Adam Waller +' Date : 12/1/2023 +' Purpose : A collection of the file extensions used in source files for this +' : component type. +'--------------------------------------------------------------------------------------- +' +Private Property Get IDbComponent_FileExtensions() As Collection + Set IDbComponent_FileExtensions = New Collection + IDbComponent_FileExtensions.Add "bas" +End Property + + '--------------------------------------------------------------------------------------- ' Procedure : Name ' Author : Adam Waller diff --git a/Version Control.accda.src/modules/clsDbModule.cls b/Version Control.accda.src/modules/clsDbModule.cls index 2577b7f0..b2b27709 100644 --- a/Version Control.accda.src/modules/clsDbModule.cls +++ b/Version Control.accda.src/modules/clsDbModule.cls @@ -384,23 +384,6 @@ Private Function IDbComponent_DateModified() As Date End Function -'--------------------------------------------------------------------------------------- -' Procedure : SourceModifiedDate -' Author : Adam Waller -' Date : 4/27/2020 -' Purpose : The date/time the source object was modified. In most cases, this would -' : be the date/time of the source file, but it some cases like SQL objects -' : the date can be determined through other means, so this function -' : allows either approach to be taken. -'--------------------------------------------------------------------------------------- -' -Private Function IDbComponent_SourceModifiedDate() As Date - IDbComponent_SourceModifiedDate = Largest( _ - GetLastModifiedDate(IDbComponent_SourceFile), _ - GetLastModifiedDate(SwapExtension(IDbComponent_SourceFile, "cls"))) -End Function - - '--------------------------------------------------------------------------------------- ' Procedure : Category ' Author : Adam Waller @@ -424,6 +407,21 @@ Private Property Get IDbComponent_BaseFolder() As String End Property +'--------------------------------------------------------------------------------------- +' Procedure : FileExtensions +' Author : Adam Waller +' Date : 12/1/2023 +' Purpose : A collection of the file extensions used in source files for this +' : component type. +'--------------------------------------------------------------------------------------- +' +Private Property Get IDbComponent_FileExtensions() As Collection + Set IDbComponent_FileExtensions = New Collection + IDbComponent_FileExtensions.Add "bas" + IDbComponent_FileExtensions.Add "cls" +End Property + + '--------------------------------------------------------------------------------------- ' Procedure : Name ' Author : Adam Waller diff --git a/Version Control.accda.src/modules/clsDbNavPaneGroup.cls b/Version Control.accda.src/modules/clsDbNavPaneGroup.cls index f14ddd51..d05954de 100644 --- a/Version Control.accda.src/modules/clsDbNavPaneGroup.cls +++ b/Version Control.accda.src/modules/clsDbNavPaneGroup.cls @@ -502,21 +502,6 @@ Private Function IDbComponent_DateModified() As Date End Function -'--------------------------------------------------------------------------------------- -' Procedure : SourceModifiedDate -' Author : Adam Waller -' Date : 4/27/2020 -' Purpose : The date/time the source object was modified. In most cases, this would -' : be the date/time of the source file, but it some cases like SQL objects -' : the date can be determined through other means, so this function -' : allows either approach to be taken. -'--------------------------------------------------------------------------------------- -' -Private Function IDbComponent_SourceModifiedDate() As Date - IDbComponent_SourceModifiedDate = GetLastModifiedDate(IDbComponent_SourceFile) -End Function - - '--------------------------------------------------------------------------------------- ' Procedure : Category ' Author : Adam Waller @@ -540,6 +525,20 @@ Private Property Get IDbComponent_BaseFolder() As String End Property +'--------------------------------------------------------------------------------------- +' Procedure : FileExtensions +' Author : Adam Waller +' Date : 12/1/2023 +' Purpose : A collection of the file extensions used in source files for this +' : component type. +'--------------------------------------------------------------------------------------- +' +Private Property Get IDbComponent_FileExtensions() As Collection + Set IDbComponent_FileExtensions = New Collection + IDbComponent_FileExtensions.Add "json" +End Property + + '--------------------------------------------------------------------------------------- ' Procedure : Name ' Author : Adam Waller diff --git a/Version Control.accda.src/modules/clsDbProjProperty.cls b/Version Control.accda.src/modules/clsDbProjProperty.cls index 611d6c55..1da6cb2c 100644 --- a/Version Control.accda.src/modules/clsDbProjProperty.cls +++ b/Version Control.accda.src/modules/clsDbProjProperty.cls @@ -337,21 +337,6 @@ Private Function IDbComponent_DateModified() As Date End Function -'--------------------------------------------------------------------------------------- -' Procedure : SourceModifiedDate -' Author : Adam Waller -' Date : 4/27/2020 -' Purpose : The date/time the source object was modified. In most cases, this would -' : be the date/time of the source file, but it some cases like SQL objects -' : the date can be determined through other means, so this function -' : allows either approach to be taken. -'--------------------------------------------------------------------------------------- -' -Private Function IDbComponent_SourceModifiedDate() As Date - IDbComponent_SourceModifiedDate = GetLastModifiedDate(IDbComponent_SourceFile) -End Function - - '--------------------------------------------------------------------------------------- ' Procedure : Category ' Author : Adam Waller @@ -375,6 +360,20 @@ Private Property Get IDbComponent_BaseFolder() As String End Property +'--------------------------------------------------------------------------------------- +' Procedure : FileExtensions +' Author : Adam Waller +' Date : 12/1/2023 +' Purpose : A collection of the file extensions used in source files for this +' : component type. +'--------------------------------------------------------------------------------------- +' +Private Property Get IDbComponent_FileExtensions() As Collection + Set IDbComponent_FileExtensions = New Collection + IDbComponent_FileExtensions.Add "json" +End Property + + '--------------------------------------------------------------------------------------- ' Procedure : Name ' Author : Adam Waller diff --git a/Version Control.accda.src/modules/clsDbProject.cls b/Version Control.accda.src/modules/clsDbProject.cls index 2be0a32d..3f7e65b0 100644 --- a/Version Control.accda.src/modules/clsDbProject.cls +++ b/Version Control.accda.src/modules/clsDbProject.cls @@ -261,21 +261,6 @@ Private Function IDbComponent_DateModified() As Date End Function -'--------------------------------------------------------------------------------------- -' Procedure : SourceModifiedDate -' Author : Adam Waller -' Date : 5/17/2021 -' Purpose : The date/time the source object was modified. In most cases, this would -' : be the date/time of the source file, but it some cases like SQL objects -' : the date can be determined through other means, so this function -' : allows either approach to be taken. -'--------------------------------------------------------------------------------------- -' -Private Function IDbComponent_SourceModifiedDate() As Date - IDbComponent_SourceModifiedDate = GetLastModifiedDate(IDbComponent_SourceFile) -End Function - - '--------------------------------------------------------------------------------------- ' Procedure : Category ' Author : Adam Waller @@ -299,6 +284,20 @@ Private Property Get IDbComponent_BaseFolder() As String End Property +'--------------------------------------------------------------------------------------- +' Procedure : FileExtensions +' Author : Adam Waller +' Date : 12/1/2023 +' Purpose : A collection of the file extensions used in source files for this +' : component type. +'--------------------------------------------------------------------------------------- +' +Private Property Get IDbComponent_FileExtensions() As Collection + Set IDbComponent_FileExtensions = New Collection + IDbComponent_FileExtensions.Add "json" +End Property + + '--------------------------------------------------------------------------------------- ' Procedure : Name ' Author : Adam Waller diff --git a/Version Control.accda.src/modules/clsDbProperty.cls b/Version Control.accda.src/modules/clsDbProperty.cls index af628e01..3f28e8fb 100644 --- a/Version Control.accda.src/modules/clsDbProperty.cls +++ b/Version Control.accda.src/modules/clsDbProperty.cls @@ -430,21 +430,6 @@ Private Function IDbComponent_DateModified() As Date End Function -'--------------------------------------------------------------------------------------- -' Procedure : SourceModifiedDate -' Author : Adam Waller -' Date : 4/27/2020 -' Purpose : The date/time the source object was modified. In most cases, this would -' : be the date/time of the source file, but it some cases like SQL objects -' : the date can be determined through other means, so this function -' : allows either approach to be taken. -'--------------------------------------------------------------------------------------- -' -Private Function IDbComponent_SourceModifiedDate() As Date - IDbComponent_SourceModifiedDate = GetLastModifiedDate(IDbComponent_SourceFile) -End Function - - '--------------------------------------------------------------------------------------- ' Procedure : Category ' Author : Adam Waller @@ -468,6 +453,20 @@ Private Property Get IDbComponent_BaseFolder() As String End Property +'--------------------------------------------------------------------------------------- +' Procedure : FileExtensions +' Author : Adam Waller +' Date : 12/1/2023 +' Purpose : A collection of the file extensions used in source files for this +' : component type. +'--------------------------------------------------------------------------------------- +' +Private Property Get IDbComponent_FileExtensions() As Collection + Set IDbComponent_FileExtensions = New Collection + IDbComponent_FileExtensions.Add "json" +End Property + + '--------------------------------------------------------------------------------------- ' Procedure : Name ' Author : Adam Waller diff --git a/Version Control.accda.src/modules/clsDbQuery.cls b/Version Control.accda.src/modules/clsDbQuery.cls index b0503ef9..79a358a0 100644 --- a/Version Control.accda.src/modules/clsDbQuery.cls +++ b/Version Control.accda.src/modules/clsDbQuery.cls @@ -277,27 +277,6 @@ Private Function IDbComponent_DateModified() As Date End Function -'--------------------------------------------------------------------------------------- -' Procedure : SourceModifiedDate -' Author : Adam Waller -' Date : 4/27/2020 -' Purpose : The date/time the source object was modified. In most cases, this would -' : be the date/time of the source file, but it some cases like SQL objects -' : the date can be determined through other means, so this function -' : allows either approach to be taken. -'--------------------------------------------------------------------------------------- -' -Private Function IDbComponent_SourceModifiedDate() As Date - If Options.ForceImportOriginalQuerySQL Then - IDbComponent_SourceModifiedDate = Largest( _ - GetLastModifiedDate(IDbComponent_SourceFile), _ - GetLastModifiedDate(SwapExtension(IDbComponent_SourceFile, "sql"))) - Else - IDbComponent_SourceModifiedDate = GetLastModifiedDate(IDbComponent_SourceFile) - End If -End Function - - '--------------------------------------------------------------------------------------- ' Procedure : Category ' Author : Adam Waller @@ -321,6 +300,21 @@ Private Property Get IDbComponent_BaseFolder() As String End Property +'--------------------------------------------------------------------------------------- +' Procedure : FileExtensions +' Author : Adam Waller +' Date : 12/1/2023 +' Purpose : A collection of the file extensions used in source files for this +' : component type. +'--------------------------------------------------------------------------------------- +' +Private Property Get IDbComponent_FileExtensions() As Collection + Set IDbComponent_FileExtensions = New Collection + IDbComponent_FileExtensions.Add "bas" + IDbComponent_FileExtensions.Add "sql" +End Property + + '--------------------------------------------------------------------------------------- ' Procedure : Name ' Author : Adam Waller diff --git a/Version Control.accda.src/modules/clsDbRelation.cls b/Version Control.accda.src/modules/clsDbRelation.cls index 07c31b2f..7e0e1720 100644 --- a/Version Control.accda.src/modules/clsDbRelation.cls +++ b/Version Control.accda.src/modules/clsDbRelation.cls @@ -362,21 +362,6 @@ Private Function IDbComponent_DateModified() As Date End Function -'--------------------------------------------------------------------------------------- -' Procedure : SourceModifiedDate -' Author : Adam Waller -' Date : 4/27/2020 -' Purpose : The date/time the source object was modified. In most cases, this would -' : be the date/time of the source file, but it some cases like SQL objects -' : the date can be determined through other means, so this function -' : allows either approach to be taken. -'--------------------------------------------------------------------------------------- -' -Private Function IDbComponent_SourceModifiedDate() As Date - IDbComponent_SourceModifiedDate = GetLastModifiedDate(IDbComponent_SourceFile) -End Function - - '--------------------------------------------------------------------------------------- ' Procedure : Category ' Author : Adam Waller @@ -400,6 +385,20 @@ Private Property Get IDbComponent_BaseFolder() As String End Property +'--------------------------------------------------------------------------------------- +' Procedure : FileExtensions +' Author : Adam Waller +' Date : 12/1/2023 +' Purpose : A collection of the file extensions used in source files for this +' : component type. +'--------------------------------------------------------------------------------------- +' +Private Property Get IDbComponent_FileExtensions() As Collection + Set IDbComponent_FileExtensions = New Collection + IDbComponent_FileExtensions.Add "json" +End Property + + '--------------------------------------------------------------------------------------- ' Procedure : Name ' Author : Adam Waller diff --git a/Version Control.accda.src/modules/clsDbReport.cls b/Version Control.accda.src/modules/clsDbReport.cls index f50d68dc..32365eab 100644 --- a/Version Control.accda.src/modules/clsDbReport.cls +++ b/Version Control.accda.src/modules/clsDbReport.cls @@ -219,23 +219,6 @@ Private Function IDbComponent_DateModified() As Date End Function -'--------------------------------------------------------------------------------------- -' Procedure : SourceModifiedDate -' Author : Adam Waller -' Date : 4/27/2020 -' Purpose : The date/time the source object was modified. In most cases, this would -' : be the date/time of the source file, but it some cases like SQL objects -' : the date can be determined through other means, so this function -' : allows either approach to be taken. -'--------------------------------------------------------------------------------------- -' -Private Function IDbComponent_SourceModifiedDate() As Date - IDbComponent_SourceModifiedDate = Largest( _ - GetLastModifiedDate(IDbComponent_SourceFile), _ - GetLastModifiedDate(SwapExtension(IDbComponent_SourceFile, "cls"))) -End Function - - '--------------------------------------------------------------------------------------- ' Procedure : Category ' Author : Adam Waller @@ -259,6 +242,21 @@ Private Property Get IDbComponent_BaseFolder() As String End Property +'--------------------------------------------------------------------------------------- +' Procedure : FileExtensions +' Author : Adam Waller +' Date : 12/1/2023 +' Purpose : A collection of the file extensions used in source files for this +' : component type. +'--------------------------------------------------------------------------------------- +' +Private Property Get IDbComponent_FileExtensions() As Collection + Set IDbComponent_FileExtensions = New Collection + IDbComponent_FileExtensions.Add "bas" + IDbComponent_FileExtensions.Add "cls" +End Property + + '--------------------------------------------------------------------------------------- ' Procedure : Name ' Author : Adam Waller diff --git a/Version Control.accda.src/modules/clsDbSavedSpec.cls b/Version Control.accda.src/modules/clsDbSavedSpec.cls index fefd5d68..80ae207c 100644 --- a/Version Control.accda.src/modules/clsDbSavedSpec.cls +++ b/Version Control.accda.src/modules/clsDbSavedSpec.cls @@ -276,21 +276,6 @@ Private Function IDbComponent_DateModified() As Date End Function -'--------------------------------------------------------------------------------------- -' Procedure : SourceModifiedDate -' Author : Adam Waller -' Date : 4/27/2020 -' Purpose : The date/time the source object was modified. In most cases, this would -' : be the date/time of the source file, but it some cases like SQL objects -' : the date can be determined through other means, so this function -' : allows either approach to be taken. -'--------------------------------------------------------------------------------------- -' -Private Function IDbComponent_SourceModifiedDate() As Date - IDbComponent_SourceModifiedDate = GetLastModifiedDate(IDbComponent_SourceFile) -End Function - - '--------------------------------------------------------------------------------------- ' Procedure : Category ' Author : Adam Waller @@ -314,6 +299,20 @@ Private Property Get IDbComponent_BaseFolder() As String End Property +'--------------------------------------------------------------------------------------- +' Procedure : FileExtensions +' Author : Adam Waller +' Date : 12/1/2023 +' Purpose : A collection of the file extensions used in source files for this +' : component type. +'--------------------------------------------------------------------------------------- +' +Private Property Get IDbComponent_FileExtensions() As Collection + Set IDbComponent_FileExtensions = New Collection + IDbComponent_FileExtensions.Add "json" +End Property + + '--------------------------------------------------------------------------------------- ' Procedure : Name ' Author : Adam Waller diff --git a/Version Control.accda.src/modules/clsDbSharedImage.cls b/Version Control.accda.src/modules/clsDbSharedImage.cls index 39fe1c68..5d8ea6a5 100644 --- a/Version Control.accda.src/modules/clsDbSharedImage.cls +++ b/Version Control.accda.src/modules/clsDbSharedImage.cls @@ -571,28 +571,6 @@ Private Function IDbComponent_DateModified() As Date End Function -'--------------------------------------------------------------------------------------- -' Procedure : SourceModifiedDate -' Author : Adam Waller -' Date : 4/27/2020 -' Purpose : The date/time the source object was modified. In most cases, this would -' : be the date/time of the source file, but it some cases like SQL objects -' : the date can be determined through other means, so this function -' : allows either approach to be taken. -'--------------------------------------------------------------------------------------- -' -Private Function IDbComponent_SourceModifiedDate() As Date - IDbComponent_SourceModifiedDate = Largest( _ - GetLastModifiedDate(IDbComponent_SourceFile), _ - GetLastModifiedDate(SwapExtension(IDbComponent_SourceFile, "jpg")), _ - GetLastModifiedDate(SwapExtension(IDbComponent_SourceFile, "jpeg")), _ - GetLastModifiedDate(SwapExtension(IDbComponent_SourceFile, "jpe")), _ - GetLastModifiedDate(SwapExtension(IDbComponent_SourceFile, "gif")), _ - GetLastModifiedDate(SwapExtension(IDbComponent_SourceFile, "png")), _ - GetLastModifiedDate(SwapExtension(IDbComponent_SourceFile, "ico"))) -End Function - - '--------------------------------------------------------------------------------------- ' Procedure : Category ' Author : Adam Waller @@ -616,6 +594,28 @@ Private Property Get IDbComponent_BaseFolder() As String End Property +'--------------------------------------------------------------------------------------- +' Procedure : FileExtensions +' Author : Adam Waller +' Date : 12/1/2023 +' Purpose : A collection of the file extensions used in source files for this +' : component type. +'--------------------------------------------------------------------------------------- +' +Private Property Get IDbComponent_FileExtensions() As Collection + Set IDbComponent_FileExtensions = New Collection + With IDbComponent_FileExtensions + .Add "json" + .Add "jpg" + .Add "jpeg" + .Add "jpe" + .Add "gif" + .Add "png" + .Add "ico" + End With +End Property + + '--------------------------------------------------------------------------------------- ' Procedure : Name ' Author : Adam Waller diff --git a/Version Control.accda.src/modules/clsDbTableData.cls b/Version Control.accda.src/modules/clsDbTableData.cls index 237e8463..1b13d65d 100644 --- a/Version Control.accda.src/modules/clsDbTableData.cls +++ b/Version Control.accda.src/modules/clsDbTableData.cls @@ -611,21 +611,6 @@ Private Function IDbComponent_DateModified() As Date End Function -'--------------------------------------------------------------------------------------- -' Procedure : SourceModifiedDate -' Author : Adam Waller -' Date : 4/27/2020 -' Purpose : The date/time the source object was modified. In most cases, this would -' : be the date/time of the source file, but it some cases like SQL objects -' : the date can be determined through other means, so this function -' : allows either approach to be taken. -'--------------------------------------------------------------------------------------- -' -Private Function IDbComponent_SourceModifiedDate() As Date - IDbComponent_SourceModifiedDate = GetLastModifiedDate(IDbComponent_SourceFile) -End Function - - '--------------------------------------------------------------------------------------- ' Procedure : Category ' Author : Adam Waller @@ -649,6 +634,21 @@ Private Property Get IDbComponent_BaseFolder() As String End Property +'--------------------------------------------------------------------------------------- +' Procedure : FileExtensions +' Author : Adam Waller +' Date : 12/1/2023 +' Purpose : A collection of the file extensions used in source files for this +' : component type. +'--------------------------------------------------------------------------------------- +' +Private Property Get IDbComponent_FileExtensions() As Collection + Set IDbComponent_FileExtensions = New Collection + IDbComponent_FileExtensions.Add "txt" + IDbComponent_FileExtensions.Add "tdf" +End Property + + '--------------------------------------------------------------------------------------- ' Procedure : Name ' Author : Adam Waller diff --git a/Version Control.accda.src/modules/clsDbTableDataMacro.cls b/Version Control.accda.src/modules/clsDbTableDataMacro.cls index cd124dae..5da695b6 100644 --- a/Version Control.accda.src/modules/clsDbTableDataMacro.cls +++ b/Version Control.accda.src/modules/clsDbTableDataMacro.cls @@ -248,21 +248,6 @@ Private Function IDbComponent_DateModified() As Date End Function -'--------------------------------------------------------------------------------------- -' Procedure : SourceModifiedDate -' Author : Adam Waller -' Date : 4/27/2020 -' Purpose : The date/time the source object was modified. In most cases, this would -' : be the date/time of the source file, but it some cases like SQL objects -' : the date can be determined through other means, so this function -' : allows either approach to be taken. -'--------------------------------------------------------------------------------------- -' -Private Function IDbComponent_SourceModifiedDate() As Date - IDbComponent_SourceModifiedDate = GetLastModifiedDate(IDbComponent_SourceFile) -End Function - - '--------------------------------------------------------------------------------------- ' Procedure : Category ' Author : Adam Waller @@ -286,6 +271,20 @@ Private Property Get IDbComponent_BaseFolder() As String End Property +'--------------------------------------------------------------------------------------- +' Procedure : FileExtensions +' Author : Adam Waller +' Date : 12/1/2023 +' Purpose : A collection of the file extensions used in source files for this +' : component type. +'--------------------------------------------------------------------------------------- +' +Private Property Get IDbComponent_FileExtensions() As Collection + Set IDbComponent_FileExtensions = New Collection + IDbComponent_FileExtensions.Add "xml" +End Property + + '--------------------------------------------------------------------------------------- ' Procedure : Name ' Author : Adam Waller diff --git a/Version Control.accda.src/modules/clsDbTableDef.cls b/Version Control.accda.src/modules/clsDbTableDef.cls index 2b85def3..d4a8a714 100644 --- a/Version Control.accda.src/modules/clsDbTableDef.cls +++ b/Version Control.accda.src/modules/clsDbTableDef.cls @@ -794,24 +794,6 @@ Private Function IDbComponent_DateModified() As Date End Function -'--------------------------------------------------------------------------------------- -' Procedure : SourceModifiedDate -' Author : Adam Waller -' Date : 4/27/2020 -' Purpose : The date/time the source object was modified. In most cases, this would -' : be the date/time of the source file, but it some cases like SQL objects -' : the date can be determined through other means, so this function -' : allows either approach to be taken. -'--------------------------------------------------------------------------------------- -' -Private Function IDbComponent_SourceModifiedDate() As Date - ' The primary source file may be either xml or json - IDbComponent_SourceModifiedDate = Largest( _ - GetLastModifiedDate(SwapExtension(IDbComponent_SourceFile, "xml")), _ - GetLastModifiedDate(SwapExtension(IDbComponent_SourceFile, "json"))) -End Function - - '--------------------------------------------------------------------------------------- ' Procedure : Category ' Author : Adam Waller @@ -835,6 +817,21 @@ Private Property Get IDbComponent_BaseFolder() As String End Property +'--------------------------------------------------------------------------------------- +' Procedure : FileExtensions +' Author : Adam Waller +' Date : 12/1/2023 +' Purpose : A collection of the file extensions used in source files for this +' : component type. +'--------------------------------------------------------------------------------------- +' +Private Property Get IDbComponent_FileExtensions() As Collection + Set IDbComponent_FileExtensions = New Collection + IDbComponent_FileExtensions.Add "xml" + IDbComponent_FileExtensions.Add "json" +End Property + + '--------------------------------------------------------------------------------------- ' Procedure : Name ' Author : Adam Waller diff --git a/Version Control.accda.src/modules/clsDbTheme.cls b/Version Control.accda.src/modules/clsDbTheme.cls index e8fb38fd..bce3390a 100644 --- a/Version Control.accda.src/modules/clsDbTheme.cls +++ b/Version Control.accda.src/modules/clsDbTheme.cls @@ -530,23 +530,6 @@ Private Function IDbComponent_DateModified() As Date End Function -'--------------------------------------------------------------------------------------- -' Procedure : SourceModifiedDate -' Author : Adam Waller -' Date : 4/27/2020 -' Purpose : The date/time the source object was modified. In most cases, this would -' : be the date/time of the source file, but it some cases like SQL objects -' : the date can be determined through other means, so this function -' : allows either approach to be taken. -'--------------------------------------------------------------------------------------- -' -Private Function IDbComponent_SourceModifiedDate() As Date - '// TODO: Recursively identify the most recent file modified date. - 'If FSO.FileExists(IDbComponent_SourceFile) Then IDbComponent_SourceModifiedDate = GetLastModifiedDate(IDbComponent_SourceFile) - -End Function - - '--------------------------------------------------------------------------------------- ' Procedure : Category ' Author : Adam Waller @@ -570,6 +553,21 @@ Private Property Get IDbComponent_BaseFolder() As String End Property +'--------------------------------------------------------------------------------------- +' Procedure : FileExtensions +' Author : Adam Waller +' Date : 12/1/2023 +' Purpose : A collection of the file extensions used in source files for this +' : component type. +'--------------------------------------------------------------------------------------- +' +Private Property Get IDbComponent_FileExtensions() As Collection + Set IDbComponent_FileExtensions = New Collection + IDbComponent_FileExtensions.Add "thmx" +End Property + + + '--------------------------------------------------------------------------------------- ' Procedure : Name ' Author : Adam Waller diff --git a/Version Control.accda.src/modules/clsDbVbeForm.cls b/Version Control.accda.src/modules/clsDbVbeForm.cls index 1e4a13b8..b48e3596 100644 --- a/Version Control.accda.src/modules/clsDbVbeForm.cls +++ b/Version Control.accda.src/modules/clsDbVbeForm.cls @@ -340,24 +340,6 @@ Private Function IDbComponent_DateModified() As Date End Function -'--------------------------------------------------------------------------------------- -' Procedure : SourceModifiedDate -' Author : Adam Waller -' Date : 4/27/2020 -' Purpose : The date/time the source object was modified. In most cases, this would -' : be the date/time of the source file, but it some cases like SQL objects -' : the date can be determined through other means, so this function -' : allows either approach to be taken. -'--------------------------------------------------------------------------------------- -' -Private Function IDbComponent_SourceModifiedDate() As Date - IDbComponent_SourceModifiedDate = Largest( _ - GetLastModifiedDate(IDbComponent_SourceFile), _ - GetLastModifiedDate(SwapExtension(IDbComponent_SourceFile, "frx")), _ - GetLastModifiedDate(SwapExtension(IDbComponent_SourceFile, "frm"))) -End Function - - '--------------------------------------------------------------------------------------- ' Procedure : Category ' Author : Adam Waller @@ -381,6 +363,22 @@ Private Property Get IDbComponent_BaseFolder() As String End Property +'--------------------------------------------------------------------------------------- +' Procedure : FileExtensions +' Author : Adam Waller +' Date : 12/1/2023 +' Purpose : A collection of the file extensions used in source files for this +' : component type. +'--------------------------------------------------------------------------------------- +' +Private Property Get IDbComponent_FileExtensions() As Collection + Set IDbComponent_FileExtensions = New Collection + IDbComponent_FileExtensions.Add "json" + IDbComponent_FileExtensions.Add "frx" + IDbComponent_FileExtensions.Add "frm" +End Property + + '--------------------------------------------------------------------------------------- ' Procedure : Name ' Author : Adam Waller diff --git a/Version Control.accda.src/modules/clsDbVbeProject.cls b/Version Control.accda.src/modules/clsDbVbeProject.cls index f9436502..42e5d1dc 100644 --- a/Version Control.accda.src/modules/clsDbVbeProject.cls +++ b/Version Control.accda.src/modules/clsDbVbeProject.cls @@ -389,21 +389,6 @@ Private Function IDbComponent_DateModified() As Date End Function -'--------------------------------------------------------------------------------------- -' Procedure : SourceModifiedDate -' Author : Adam Waller -' Date : 4/27/2020 -' Purpose : The date/time the source object was modified. In most cases, this would -' : be the date/time of the source file, but it some cases like SQL objects -' : the date can be determined through other means, so this function -' : allows either approach to be taken. -'--------------------------------------------------------------------------------------- -' -Private Function IDbComponent_SourceModifiedDate() As Date - IDbComponent_SourceModifiedDate = GetLastModifiedDate(IDbComponent_SourceFile) -End Function - - '--------------------------------------------------------------------------------------- ' Procedure : Category ' Author : Adam Waller @@ -427,6 +412,20 @@ Private Property Get IDbComponent_BaseFolder() As String End Property +'--------------------------------------------------------------------------------------- +' Procedure : FileExtensions +' Author : Adam Waller +' Date : 12/1/2023 +' Purpose : A collection of the file extensions used in source files for this +' : component type. +'--------------------------------------------------------------------------------------- +' +Private Property Get IDbComponent_FileExtensions() As Collection + Set IDbComponent_FileExtensions = New Collection + IDbComponent_FileExtensions.Add "json" +End Property + + '--------------------------------------------------------------------------------------- ' Procedure : Name ' Author : Adam Waller diff --git a/Version Control.accda.src/modules/clsDbVbeReference.cls b/Version Control.accda.src/modules/clsDbVbeReference.cls index 6986eec2..3c094fe0 100644 --- a/Version Control.accda.src/modules/clsDbVbeReference.cls +++ b/Version Control.accda.src/modules/clsDbVbeReference.cls @@ -408,21 +408,6 @@ Private Function IDbComponent_DateModified() As Date End Function -'--------------------------------------------------------------------------------------- -' Procedure : SourceModifiedDate -' Author : Adam Waller -' Date : 4/27/2020 -' Purpose : The date/time the source object was modified. In most cases, this would -' : be the date/time of the source file, but it some cases like SQL objects -' : the date can be determined through other means, so this function -' : allows either approach to be taken. -'--------------------------------------------------------------------------------------- -' -Private Function IDbComponent_SourceModifiedDate() As Date - IDbComponent_SourceModifiedDate = GetLastModifiedDate(IDbComponent_SourceFile) -End Function - - '--------------------------------------------------------------------------------------- ' Procedure : Category ' Author : Adam Waller @@ -446,6 +431,20 @@ Private Property Get IDbComponent_BaseFolder() As String End Property +'--------------------------------------------------------------------------------------- +' Procedure : FileExtensions +' Author : Adam Waller +' Date : 12/1/2023 +' Purpose : A collection of the file extensions used in source files for this +' : component type. +'--------------------------------------------------------------------------------------- +' +Private Property Get IDbComponent_FileExtensions() As Collection + Set IDbComponent_FileExtensions = New Collection + IDbComponent_FileExtensions.Add "json" +End Property + + '--------------------------------------------------------------------------------------- ' Procedure : Name ' Author : Adam Waller