cptSaveLocal - error in cptShowSaveLocal when cpt-ecf.adtg does not yet exist - Githubissues

AronGahagan / cpt-dev

Code repository for the ClearPlan Toolbar

https://www.ClearPlanConsulting.com

3 stars 1 forks source link

cptSaveLocal - error in cptShowSaveLocal when cpt-ecf.adtg does not yet exist #374

Closed AronGahagan closed 4 months ago

AronGahagan commented 4 months ago

Problem:

CustomFields/cptSaveLocal_bas.bas:1389:  'open the ecf recordset
CustomFields/cptSaveLocal_bas.bas:1390:  Set rstECF = CreateObject("ADODB.Recordset")
CustomFields/cptSaveLocal_bas.bas:1391:  rstECF.Open cptDir & "\settings\cpt-ecf.adtg"

Solution:

CustomFields/cptSaveLocal_bas.bas:1389:  'open the ecf recordset
CustomFields/cptSaveLocal_bas.bas:1390:  If Dir(cptDir & "\settings\cpt-ecf.adtg") = vbNullString Then GoTo exit_here
CustomFields/cptSaveLocal_bas.bas:1391:  Set rstECF = CreateObject("ADODB.Recordset")
CustomFields/cptSaveLocal_bas.bas:1392:  rstECF.Open cptDir & "\settings\cpt-ecf.adtg"

Todo:

[x] assign this issue
[x] label the issue for enhancement or bug
[x] label the issue with codemodule (so fixes can be aggregated and hotfixed together)
[x] checkout appropriate branch and create topic branch
[x] design, code and test
[x] update codemodule x.y.z
[x] update CurrentVersions.xml manually
[x] commit changes prefix comment with Issue #XXX -
[x] merge topic into appropriate branch(es) and push
[x] delete topic branch