cptStatusSheet - account for blank ECF names

[AronGahagan]

Problem:

The following trips an error if the ECF has a blank custom field name:

200-        ElseIf FieldNameToFieldConstant(rstFields(1), pjTask) >= 188776000 Then '<-- ERROR
201-          .lboFields.List(.lboFields.ListCount - 1, 2) = "Enterprise"
202-        Else

Solution:

Change this:

180-  For lngField = 188776000 To 188778000 '2000 should do it for now
181:    If Application.FieldConstantToFieldName(lngField) <> "<Unavailable>" Then
182:      rstFields.AddNew Array(0, 1, 2), Array(lngField, Application.FieldConstantToFieldName(lngField), "Enterprise")
183-    End If
184-  Next lngField

to this:

180-  For lngField = 188776000 To 188778000 '2000 should do it for now
181:    If Len(FieldConstantToFieldName(lngField))>0 And FieldConstantToFieldName(lngField) <> "<Unavailable>" Then
182:      rstFields.AddNew Array(0, 1, 2), Array(lngField, FieldConstantToFieldName(lngField), "Enterprise")
183-    End If
184-  Next lngField

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