AronGahagan / cpt-dev

Code repository for the ClearPlan Toolbar
https://www.ClearPlanConsulting.com
3 stars 1 forks source link

cptStatusSheet - fix ActiveProject.Path Server Check #358

Closed AronGahagan closed 9 months ago

AronGahagan commented 9 months ago

Problem:

If no Status Sheet settings found, and if Metrics settings found, then assume Metrics settings = Status Sheet settings Include For Each prompt should be Yes/No/Cancel

Status/cptStatusSheetImport_bas.bas:334:  If Left(ActiveProject.Path, 3) = "<>\" Or Left(ActiveProject.Path, 4) = "http" Then
Status/cptStatusSheetImport_frm.frm:173:    If Left(ActiveProject.Path, 3) = "<>\" Or Left(ActiveProject.Path, 4) = "http" Then
Status/cptStatusSheet_bas.bas:134:    If Left(ActiveProject.Path, 3) = "<>\" Or Left(ActiveProject.Path, 4) = "http" Then
Status/cptStatusSheet_frm.frm:495:    If Left(ActiveProject.Path, 3) = "<>\" Or Left(ActiveProject.Path, 4) = "http" Then
Metrics/cptDECM_bas.bas:2671:      If InStr(oSubproject.Path, "<>") = 0 Then 'offline
Metrics/cptDECM_bas.bas:2673:      ElseIf InStr(oSubproject.Path, "<>") > 0 Then 'online
Trace/cptNetworkBrowser_bas.bas:115:      If InStr(oSubproject.Path, "<>") = 0 Then 'offline
Trace/cptNetworkBrowser_bas.bas:117:      ElseIf InStr(oSubproject.Path, "<>") > 0 Then 'online

Solution:

Status/cptStatusSheetImport_bas.bas:334:  If Left(ActiveProject.Path, 2) = "<>" Or Left(ActiveProject.Path, 4) = "http" Then
Status/cptStatusSheetImport_frm.frm:173:    If Left(ActiveProject.Path, 2) = "<>" Or Left(ActiveProject.Path, 4) = "http" Then
Status/cptStatusSheet_bas.bas:134:    If Left(ActiveProject.Path, 2) = "<>" Or Left(ActiveProject.Path, 4) = "http" Then
Status/cptStatusSheet_frm.frm:495:    If Left(ActiveProject.Path, 2) = "<>" Or Left(ActiveProject.Path, 4) = "http" Then
Metrics/cptDECM_bas.bas:2671:      If Left(oSubproject.Path, 2) = "<>" Then
Metrics/cptDECM_bas.bas:2673:      ElseIf Left(oSubproject.Path, 2) = "<>" Then
Trace/cptNetworkBrowser_bas.bas:115:      If Left(oSubproject.Path, 2) = "<>" Then
Trace/cptNetworkBrowser_bas.bas:117:      ElseIf Left(oSubproject.Path, 2) = "<>" Then

Todo: