diff --git a/Core/cptAbout_frm.frm b/Core/cptAbout_frm.frm
index b9b0478b..8ed6ad31 100644
--- a/Core/cptAbout_frm.frm
+++ b/Core/cptAbout_frm.frm
@@ -13,6 +13,7 @@ Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
+
'v1.1.1
Option Explicit
Private Const BLN_TRAP_ERRORS As Boolean = True
diff --git a/Core/cptAbout_frm.frx b/Core/cptAbout_frm.frx
index b8f1cfd5..559dbfe7 100644
Binary files a/Core/cptAbout_frm.frx and b/Core/cptAbout_frm.frx differ
diff --git a/Core/cptCore_bas.bas b/Core/cptCore_bas.bas
index 094e77e6..4f8a8a14 100644
--- a/Core/cptCore_bas.bas
+++ b/Core/cptCore_bas.bas
@@ -10,12 +10,12 @@ Sub cptStartEvents()
Set oMSPEvents = New cptEvents_cls
End Sub
-Function cptSpeed(blnOn As Boolean)
+Sub cptSpeed(blnOn As Boolean)
Application.ScreenUpdating = Not blnOn
Application.Calculation = pjAutomatic = Not blnOn
-End Function
+End Sub
Function cptGetUserForm(strModuleName As String) As UserForm
'objects
@@ -90,7 +90,6 @@ Dim vbComponent As Object, strVersion As String
strVersion = Replace(Replace(strVersion, "", ""), "", "")
cptGetVersions = cptGetVersions & vbComponent.Name & ": " & strVersion & vbCrLf
End If
-next_component:
Next vbComponent
exit_here:
@@ -134,7 +133,7 @@ Dim strAbout As String
End Sub
-Function cptReferenceExists(strReference) As Boolean
+Function cptReferenceExists(strReference As String) As Boolean
'used to ensure a reference exists, returns boolean
Dim Ref As Object, blnExists As Boolean
@@ -229,7 +228,6 @@ End Sub
Function cptCheckReference(strReference As String) As Boolean
'this routine will be called ahead of any subroutine requiring a reference
'returns boolean and subroutine only proceeds if true
-Dim blnExists As Boolean
On Error GoTo err_here
@@ -355,13 +353,13 @@ Dim arrCurrent As Object, arrInstalled As Object
Dim xmlDoc As Object, xmlNode As Object, xmlHttpDoc As Object, FindRecord As Object
Dim oStream As Object
'long
-Dim lngItem As Long, lgCol As Long
+Dim lngItem As Long
'strings
Dim strInstVer As String
Dim strCurVer As String
-Dim strURL As String, strMsg As String, strVersion As String, strFileName As String
+Dim strURL As String, strVersion As String
'booleans
-Dim blnUpdatesAreAvailable As Boolean, blnLoaded As Boolean
+Dim blnUpdatesAreAvailable As Boolean
'variants
Dim vCol As Variant
@@ -407,7 +405,6 @@ Dim vCol As Variant
strVersion = Replace(Replace(strVersion, "", ""), "", "")
arrInstalled.Add vbComponent.Name, strVersion
End If
-next_component:
Next vbComponent
'populate the listbox header
@@ -475,7 +472,7 @@ End Sub
Sub cptSetReferences()
'this is a one-time shot to set all references currently required by the cp toolbar
-Dim strDir As String, Ref As Object
+Dim strDir As String
On Error Resume Next
@@ -528,7 +525,7 @@ Dim strDir As String, Ref As Object
End Sub
-Sub cptHandleErr(strModule As String, strProcedure As String, err As ErrObject)
+Sub cptHandleErr(strModule As String, strProcedure As String, objErr As ErrObject)
'common error handling prompt
Dim strMsg As String
@@ -553,7 +550,7 @@ Sub cptSubmitFeedback()
Application.OpenBrowser "https://forms.office.com/Pages/ResponsePage.aspx?id=Ro5H7jf1GEu_K_zo12S-I41LrliPQfRIoKdHTo6ZR7RUNERTVDRISUhVVVFSWjBBMlVLQThCRFlHQiQlQCN0PWcu"
End Sub
-Function cptRemoveIllegalCharacters(ByVal strText As String) As String
+Function cptRemoveIllegalCharacters(strText As String) As String
'written by Ryan Beard (RyanBeard@ClearPlanConsulting.com)
Const cstrIllegals As String = "\,/,:,*,?,"",<,>,|"
@@ -572,7 +569,6 @@ End Function
Sub cptWrapItUp()
'objects
-Dim Tasks As Object
'strings
'longs
Dim lgLevel As Long
@@ -614,9 +610,9 @@ exit_here:
cptSpeed False
Exit Sub
-no_tasks:
- MsgBox "This project has no tasks to collapse.", vbExclamation + vbOKOnly, "WrapItUp"
- GoTo exit_here
+'no_tasks:
+' MsgBox "This project has no tasks to collapse.", vbExclamation + vbOKOnly, "WrapItUp"
+' GoTo exit_here
err_here:
Call cptHandleErr("cptCore_bas", "cptWrapItUp", err)
@@ -797,13 +793,9 @@ End Function
Function cptVersionStatus(strInstalled As String, strCurrent As String) As String
'objects
'strings
-Dim strAction As String
'longs
Dim lngVersion As Long
-Dim lngInstalled As Long
-Dim lngCurrent As Long
'integers
-Dim intLevel As Long
'booleans
'variants
Dim aCurrent As Variant
diff --git a/Core/cptEvents_cls.cls b/Core/cptEvents_cls.cls
index 924e2987..531cd306 100644
--- a/Core/cptEvents_cls.cls
+++ b/Core/cptEvents_cls.cls
@@ -24,7 +24,7 @@ Private Sub MyMSPApplication_WindowSelectionChange(ByVal Window As Window, ByVal
'objects
Dim ctl As Object
Dim frmText As Object 'UserForm
-Dim Tasks As Tasks, Task As Task, Resources As Resources, Resource As Resource
+Dim Tasks As Tasks, Task As Task, Resources As Resources
'strings
'longs
Dim lngItem As Long, lngItems As Long
diff --git a/Core/cptUpgrades_frm.frm b/Core/cptUpgrades_frm.frm
index 310376af..786a5be4 100644
--- a/Core/cptUpgrades_frm.frm
+++ b/Core/cptUpgrades_frm.frm
@@ -16,6 +16,7 @@ Attribute VB_Exposed = False
+
'v1.2.1
Option Explicit
Private Const BLN_TRAP_ERRORS As Boolean = True
diff --git a/Core/cptUpgrades_frm.frx b/Core/cptUpgrades_frm.frx
index f011c92b..bde702a1 100644
Binary files a/Core/cptUpgrades_frm.frx and b/Core/cptUpgrades_frm.frx differ
diff --git a/Count/cptCountTasks_bas.bas b/Count/cptCountTasks_bas.bas
index 7ced1d7a..9b92cf4a 100644
--- a/Count/cptCountTasks_bas.bas
+++ b/Count/cptCountTasks_bas.bas
@@ -9,7 +9,7 @@ Dim Task As Task, Tasks As Tasks
Dim lgTasks As Long, lgSummary As Long, lgInactive As Long
Dim strMsg As String
- On Error GoTo err_here
+ If BLN_TRAP_ERRORS Then On Error GoTo err_here Else On Error GoTo 0
'===
'Validate users selected view type
diff --git a/CurrentVersions.xml b/CurrentVersions.xml
index bb8a8197..ffaf1b63 100644
--- a/CurrentVersions.xml
+++ b/CurrentVersions.xml
@@ -8,46 +8,46 @@
Core
- cptAbout_frm
- cptAbout_frm.frm
- v1.1.1
- 3
- Core
+ cptSetup_bas
+ cptSetup_bas.bas
+ v1.2
+ 1
+
- cptBrowseFolder_bas
- cptBrowseFolder_bas.bas
+ cptCountTasks_bas
+ cptCountTasks_bas.bas
v1.0.1
1
- Core
+ Count
- cptCore_bas
- cptCore_bas.bas
- v1.3.1
+ cptCriticalPath_bas
+ cptCriticalPath_bas.bas
+ v2.7
1
- Core
+ Trace
- cptEvents_cls
- cptEvents_cls.cls
- v1.1.1
- 2
- Core
+ cptCriticalPathTools_bas
+ cptCriticalPathTools_bas.bas
+ v1.0.1
+ 1
+ Trace
- cptUpgrades_frm
- cptUpgrades_frm.frm
+ cptDynamicFilter_bas
+ cptDynamicFilter_bas.bas
v1.2.1
- 3
- Core
+ 1
+ Text
- cptCountTasks_bas
- cptCountTasks_bas.bas
- v1.0.1
- 1
- Count
+ cptDynamicFilter_frm
+ cptDynamicFilter_frm.frm
+ v1.3.1
+ 3
+ Text
cptIMSCobraExport_bas
@@ -63,6 +63,13 @@
3
Integration
+
+ cptPatch_bas
+ cptPatch_bas.bas
+ 19.03.29
+ 1
+
+
cptResourceDemand_bas
cptResourceDemand_bas.bas
@@ -105,20 +112,6 @@
3
Status
-
- cptDynamicFilter_bas
- cptDynamicFilter_bas.bas
- v1.2.1
- 1
- Text
-
-
- cptDynamicFilter_frm
- cptDynamicFilter_frm.frm
- v1.3.1
- 3
- Text
-
cptText_bas
cptText_bas.bas
@@ -134,31 +127,38 @@
Text
- cptCriticalPathTools_bas
- cptCriticalPathTools_bas.bas
+ cptAbout_frm
+ cptAbout_frm.frm
+ v1.1.1
+ 3
+ Core
+
+
+ cptBrowseFolder_bas
+ cptBrowseFolder_bas.bas
v1.0.1
1
- Trace
+ Core
- cptCriticalPath_bas
- cptCriticalPath_bas.bas
- v2.7
+ cptCore_bas
+ cptCore_bas.bas
+ v1.3.1
1
- Trace
+ Core
- cptPatch_bas
- cptPatch_bas.bas
- 19.03.29
- 1
-
+ cptEvents_cls
+ cptEvents_cls.cls
+ v1.1.1
+ 2
+ Core
- cptSetup_bas
- cptSetup_bas.bas
- v1.2
- 1
-
+ cptUpgrades_frm
+ cptUpgrades_frm.frm
+ v1.2.1
+ 3
+ Core
diff --git a/Integration/cptIMSCobraExport_frm.frm b/Integration/cptIMSCobraExport_frm.frm
index 6b7dc5ab..3a68fe3a 100644
--- a/Integration/cptIMSCobraExport_frm.frm
+++ b/Integration/cptIMSCobraExport_frm.frm
@@ -13,6 +13,7 @@ Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
+
'v3.1.2
Private Sub bcrBox_Change()
diff --git a/Integration/cptIMSCobraExport_frm.frx b/Integration/cptIMSCobraExport_frm.frx
index d82378b0..074665d5 100644
Binary files a/Integration/cptIMSCobraExport_frm.frx and b/Integration/cptIMSCobraExport_frm.frx differ
diff --git a/ResourceDemand/cptResourceDemand_bas.bas b/ResourceDemand/cptResourceDemand_bas.bas
index bf561ca2..670b039f 100644
--- a/ResourceDemand/cptResourceDemand_bas.bas
+++ b/ResourceDemand/cptResourceDemand_bas.bas
@@ -9,20 +9,19 @@ Private Const adVarChar As Long = 200
Sub cptExportResourceDemand(Optional lngTaskCount As Long)
'objects
Dim Task As Task, Resource As Resource, Assignment As Assignment
-Dim TSVS As TimeScaleValues, TSV As TimeScaleValue
+Dim TSV As TimeScaleValue
Dim TSVS_WORK As TimeScaleValues, TSVS_ACTUAL As TimeScaleValues
Dim xlApp As Excel.Application, Worksheet As Worksheet, Workbook As Workbook
Dim rng As Excel.Range
-Dim PivotTable As PivotTable, ListObject As ListObject, PivotChart As ChartObject
-Dim rst As Object 'ADODB.Recordset
+Dim PivotTable As PivotTable, ListObject As ListObject
'dates
Dim dtStart As Date, dtMin As Date, dtMax As Date
'doubles
Dim dblWork As Double
'strings
Dim strView As String
-Dim strFile As String, strGroup As String, strRange As String, strCLIN As String
-Dim strTitle As String, strMsg As String, strSQL As String, strHeaders As String
+Dim strFile As String, strRange As String
+Dim strTitle As String, strHeaders As String
Dim strRecord As String, strFileName As String
'longs
Dim lgFile As Long, lgTasks As Long, lgTask As Long
@@ -349,7 +348,7 @@ Dim strActiveView As String
Dim strFieldName As String, strFileName As String
'longs
Dim lngResourceCount As Long, lngResource As Long
-Dim lngFieldType As Variant, lngField As Long, lngItem As Long
+Dim lngField As Long, lngItem As Long
'integers
'booleans
'variants
diff --git a/ResourceDemand/cptResourceDemand_frm.frm b/ResourceDemand/cptResourceDemand_frm.frm
index 658e7a33..676c06a1 100644
--- a/ResourceDemand/cptResourceDemand_frm.frm
+++ b/ResourceDemand/cptResourceDemand_frm.frm
@@ -13,6 +13,7 @@ Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
+
'v1.0.2
Option Explicit
Private Const BLN_TRAP_ERRORS As Boolean = True
diff --git a/ResourceDemand/cptResourceDemand_frm.frx b/ResourceDemand/cptResourceDemand_frm.frx
index 9729b55c..2da7deee 100644
Binary files a/ResourceDemand/cptResourceDemand_frm.frx and b/ResourceDemand/cptResourceDemand_frm.frx differ
diff --git a/Status/cptSmartDuration_frm.frm b/Status/cptSmartDuration_frm.frm
index 425d80b4..51f2f2d8 100644
--- a/Status/cptSmartDuration_frm.frm
+++ b/Status/cptSmartDuration_frm.frm
@@ -16,6 +16,7 @@ Attribute VB_Exposed = False
+
'v1.0
Public dateError As Boolean
diff --git a/Status/cptSmartDuration_frm.frx b/Status/cptSmartDuration_frm.frx
index 9cac8f47..a28de410 100644
Binary files a/Status/cptSmartDuration_frm.frx and b/Status/cptSmartDuration_frm.frx differ
diff --git a/Status/cptStatusSheet_bas.bas b/Status/cptStatusSheet_bas.bas
index e23c50ba..9a46398a 100644
--- a/Status/cptStatusSheet_bas.bas
+++ b/Status/cptStatusSheet_bas.bas
@@ -14,7 +14,7 @@ Sub ShowCptStatusSheet_frm()
'objects
Dim arrFields As Object, arrEVT As Object, arrEVP As Object
'longs
-Dim lngField As Long, lgItem As Long
+Dim lngField As Long, lngItem As Long
'integers
Dim intField As Integer
'strings
@@ -22,7 +22,7 @@ Dim strFieldName As String, strFileName As String
'dates
Dim dtStatus As Date
'variants
-Dim st As Variant, vFieldType As Variant, lngFieldType As Variant
+Dim vFieldType As Variant
If BLN_TRAP_ERRORS Then On Error GoTo err_here Else On Error GoTo 0
@@ -48,7 +48,7 @@ Dim st As Variant, vFieldType As Variant, lngFieldType As Variant
For Each vFieldType In Array("Text", "Outline Code", "Number")
On Error GoTo err_here
For intField = 1 To 30
- lngField = FieldNameToFieldConstant(vFieldType & intField, lngFieldType)
+ lngField = FieldNameToFieldConstant(vFieldType & intField, pjTask)
strFieldName = CustomFieldGetName(lngField)
If Len(strFieldName) > 0 Then
arrFields.Add strFieldName, lngField
@@ -123,13 +123,13 @@ next_field:
With CreateObject("ADODB.Recordset")
.Open strFileName
.MoveFirst
- lgItem = 0
+ lngItem = 0
Do While Not .EOF
cptStatusSheet_frm.lboExport.AddItem
- cptStatusSheet_frm.lboExport.List(lgItem, 0) = .Fields(0) 'Field Constant
- cptStatusSheet_frm.lboExport.List(lgItem, 1) = .Fields(1) 'Custom Field Name
- cptStatusSheet_frm.lboExport.List(lgItem, 2) = .Fields(2) 'Local Field Name
- lgItem = lgItem + 1
+ cptStatusSheet_frm.lboExport.List(lngItem, 0) = .Fields(0) 'Field Constant
+ cptStatusSheet_frm.lboExport.List(lngItem, 1) = .Fields(1) 'Custom Field Name
+ cptStatusSheet_frm.lboExport.List(lngItem, 2) = .Fields(2) 'Local Field Name
+ lngItem = lngItem + 1
.MoveNext
Loop
.Close
@@ -186,14 +186,14 @@ Dim aSummaries As Object, aMilestones As Object, aNormal As Object, aAssignments
Dim aEach As Object, aTaskRow As Object, aHeaders As Object
Dim aOddBalls As Object, aCentered As Object, aEntryHeaders As Object
'longs
-Dim lgTaskCount As Long, lgTask As Long, lgHeaderRow As Long, lgLastCol As Long
-Dim lgRow As Long, lgLastRow As Long, lgCol As Long, lgField As Long
+Dim lgTaskCount As Long, lgTask As Long, lgHeaderRow As Long
+Dim lgRow As Long, lgCol As Long, lgField As Long
Dim lgNameCol As Long, lgBaselineWorkCol As Long, lgRemainingWorkCol As Long, lgEach As Long
Dim lgNotesCol As Long, lgColumnWidth As Long
Dim lgASCol As Long, lgAFCol As Long, lgETCCol As Long, lgEVPCol As Long
Dim t As Long, tTotal As Long
'string
-Dim strFieldName As String, strEVT As String, strEVP As String, strDir As String, strFileName As String
+Dim strEVT As String, strEVP As String, strDir As String, strFileName As String
Dim strFirstCell As String
'dates
Dim dtStatus As Date
@@ -443,7 +443,8 @@ next_field:
'identify for formatting
If Task.Milestone Then aMilestones.Add lgRow Else aNormal.Add lgRow
- xlCells(lgRow, lgLastCol + 1).Value = (GetTickCount - t) / 1000
+ 'debug only
+ 'xlCells(lgRow, lgLastCol + 1).Value = (GetTickCount - t) / 1000
'write task data to sheet
xlCells(lgRow, 1).Resize(, aTaskRow.count).Value = aTaskRow.ToArray()
@@ -472,7 +473,6 @@ next_field:
xlCells(lgRow, 1).Resize(, aTaskRow.count).Value = aTaskRow.ToArray()
aTaskRow.Clear
-next_assignment:
'/===debug===\
'xlCells(lgRow, aHeaders.count + 1).Value = (GetTickCount - t) / 1000
'\===debug===/
diff --git a/Status/cptStatusSheet_frm.frm b/Status/cptStatusSheet_frm.frm
index 21faba46..3cf00413 100644
--- a/Status/cptStatusSheet_frm.frm
+++ b/Status/cptStatusSheet_frm.frm
@@ -13,11 +13,7 @@ Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
-
-
-
'v1.1.1
-
Option Explicit
Private Const BLN_TRAP_ERRORS As Boolean = True
'If BLN_TRAP_ERRORS Then On Error GoTo err_here Else On Error GoTo 0
@@ -163,7 +159,7 @@ err_here:
End Sub
Private Sub cmdDown_Click()
-Dim arrExport As Object, lgExport As Long
+Dim lgExport As Long
Dim lgField As Long, strField As String, strField2 As String
If BLN_TRAP_ERRORS Then On Error GoTo err_here Else On Error GoTo 0
@@ -348,7 +344,7 @@ err_here:
End Sub
Private Sub cmdUp_Click()
-Dim arrExport As Object, lgExport As Long
+Dim lgExport As Long
Dim lgField As Long, strField As String, strField2 As String
If BLN_TRAP_ERRORS Then On Error GoTo err_here Else On Error GoTo 0
diff --git a/Status/cptStatusSheet_frm.frx b/Status/cptStatusSheet_frm.frx
index da328d5a..aec0bbff 100644
Binary files a/Status/cptStatusSheet_frm.frx and b/Status/cptStatusSheet_frm.frx differ
diff --git a/Text/cptDynamicFilter_frm.frm b/Text/cptDynamicFilter_frm.frm
index d0de2597..93f9a03a 100644
--- a/Text/cptDynamicFilter_frm.frm
+++ b/Text/cptDynamicFilter_frm.frm
@@ -13,6 +13,7 @@ Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
+
'v1.3.1
Option Explicit
Private Const BLN_TRAP_ERRORS As Boolean = True
diff --git a/Text/cptDynamicFilter_frm.frx b/Text/cptDynamicFilter_frm.frx
index b2d9d4ac..6945de3e 100644
Binary files a/Text/cptDynamicFilter_frm.frx and b/Text/cptDynamicFilter_frm.frx differ
diff --git a/Text/cptText_bas.bas b/Text/cptText_bas.bas
index 65f49fe1..b3b7fef5 100644
--- a/Text/cptText_bas.bas
+++ b/Text/cptText_bas.bas
@@ -87,7 +87,7 @@ End Sub
Sub cptEnumerate()
Dim Tasks As Tasks, Task As Task, lgDigits As Long
-Dim vbResponse As Variant, lgEnumerate As Long, lgStart As Long
+Dim vbResponse As Variant, lgEnumerate As Long
On Error Resume Next
Set Tasks = ActiveSelection.Tasks
@@ -236,7 +236,6 @@ Sub cptFindDuplicateTaskNames()
'requires: msexcel
'objects
Dim xlApp As Excel.Application, Workbook As Workbook, Worksheet As Worksheet, rng As Excel.Range, ListObject As ListObject
-Dim lgRow As Long
'string
Dim strFileName As String
'boolean
diff --git a/Text/cptText_frm.frm b/Text/cptText_frm.frm
index 2cda1be7..36a98e98 100644
--- a/Text/cptText_frm.frm
+++ b/Text/cptText_frm.frm
@@ -17,6 +17,7 @@ Attribute VB_Exposed = False
+
'v1.0.01
Option Explicit
Private Const BLN_TRAP_ERRORS As Boolean = True
@@ -118,10 +119,6 @@ err_here:
Resume exit_here
End Sub
-Private Sub lblWakeUp_Click()
- Call cptStartEvents
-End Sub
-
Private Sub txtAppend_Change()
Dim lngItem As Long
diff --git a/Text/cptText_frm.frx b/Text/cptText_frm.frx
index 9bc5a9c8..0092860a 100644
Binary files a/Text/cptText_frm.frx and b/Text/cptText_frm.frx differ
diff --git a/Trace/cptCriticalPathTools_bas.bas b/Trace/cptCriticalPathTools_bas.bas
index 98948a4f..1e8b25e1 100644
--- a/Trace/cptCriticalPathTools_bas.bas
+++ b/Trace/cptCriticalPathTools_bas.bas
@@ -4,23 +4,20 @@ Option Explicit
Private Const BLN_TRAP_ERRORS As Boolean = True
'If BLN_TRAP_ERRORS Then On Error GoTo err_here Else On Error GoTo 0
-Sub cptExportCriticalPath(ByRef Project As Project, Optional blnSendEmail = False, Optional blnKeepOpen = False, Optional ByRef TargetTask As Task)
+Sub cptExportCriticalPath(ByRef Project As Project, Optional blnSendEmail As Boolean = False, Optional blnKeepOpen As Boolean = False, Optional ByRef TargetTask As Task)
'objects
Dim pptExists As PowerPoint.Presentation
Dim Task As Task, Tasks As Tasks
Dim pptApp As PowerPoint.Application, Presentation As PowerPoint.Presentation, Slide As PowerPoint.Slide
-Dim Shape As PowerPoint.Shape
-Dim ShapeRange As PowerPoint.ShapeRange
+'Dim Shape As PowerPoint.Shape
+'Dim ShapeRange As PowerPoint.ShapeRange
'strings
-Dim remove As String
-Dim strFileName As String, strMsg As String, strProjectName As String, strDir As String
+Dim strFileName As String, strProjectName As String, strDir As String
'longs
-Dim lgT1Milestone As Long, lgDrivingPath As Long, lgL2Milestone As Long
Dim lgTask As Long, lgTasks As Long, lgSlide As Long
'dates
-Dim dtOriginalDeadline As Date, dtFrom As Date, dtTo As Date
+Dim dtFrom As Date, dtTo As Date
'boolean
-Dim blnFoundIt As Boolean
'variants
Dim vPath As Variant
@@ -77,6 +74,7 @@ Dim vPath As Variant
'make a title slide
Set Slide = Presentation.Slides.Add(1, ppLayoutCustom)
Slide.Layout = ppLayoutTitle
+ strProjectName = Replace(ActiveProject.Name, ".mpp", "")
Slide.Shapes(1).TextFrame.TextRange.Text = strProjectName & vbCrLf & "Critical Path Analysis"
Slide.Shapes(2).TextFrame.TextRange.Text = cptGetUserFullName & vbCrLf & Format(Now, "mm/dd/yyyy") 'Project.ProjectSummaryTask.GetField(FieldNameToFieldConstant("E2E Scheduler"))
diff --git a/cptSetup_bas.bas b/cptSetup_bas.bas
index 3e1325b2..95e39f2f 100644
--- a/cptSetup_bas.bas
+++ b/cptSetup_bas.bas
@@ -28,22 +28,18 @@ Dim strMsg As String
Dim strError As String
Dim strCptFileName As String
Dim strVersion As String
-Dim strCode As String
Dim strFileName As String
Dim strModule As String
Dim strURL As String
'longs
Dim lngLine As Long
Dim lngEvent As Long
-Dim lngActivate As Long
-Dim lngFile As Long
+'Dim lngFile As Long
'integers
'booleans
Dim blnExists As Boolean
-Dim blnSuccess As Boolean
'variants
Dim vEvent As Variant
-Dim vLine As Variant
'dates
If BLN_TRAP_ERRORS Then On Error GoTo err_here Else On Error GoTo 0
@@ -114,7 +110,7 @@ frx:
strFileName = Replace(strFileName, ".frx", ".frm")
End If
Else
- strError = strError & "- " & arrCore.getKey(lngFile) & vbCrLf
+ strError = strError & "- " & strFileName & vbCrLf
GoTo next_xmlNode
End If
@@ -280,7 +276,7 @@ Dim strPath As String
End Function
-Function cptModuleExists(strModule)
+Function cptModuleExists(strModule As String)
Dim vbComponent As Object
Dim blnExists As Boolean
Dim strError As String