Having a problem with Geopak GetJobNumbersWithinAcdtiveDir

Hi Larry,

Do you receive any error message? Or which indicator do you have the .gpk file is not found?

Two points are crossing my mind:
- this example is assuming the lower boundary of the array jobNums is 0.
In case the Compiler Option Base 1 is used, the lower boundary will be 1 and the desired job not found.
Can you please check in your source code, if you can find a line with:
Option Base 1

- Did you check if the .gpk file is located in the right folder. To be sure please compare the file location with the content of the configuration variable _dgndir

Best regards,
Artur

Hi Larry,

Do you receive any error message? Or which indicator do you have the .gpk file is not found?

Two points are crossing my mind:
- this example is assuming the lower boundary of the array jobNums is 0.
In case the Compiler Option Base 1 is used, the lower boundary will be 1 and the desired job not found.
Can you please check in your source code, if you can find a line with:
Option Base 1

- Did you check if the .gpk file is located in the right folder. To be sure please compare the file location with the content of the configuration variable _dgndir

Best regards,
Artur

Artur,
The code I'm using is directly from the help file and it is working with other VBAs. For some reason in this VBA it is reading it as \path\\jobjob104.

Larry

Larry,
Are you using a different data set with this VBA than the others you say are working? I've seen this occur when the data set contains a gpk file that doesn't follow the naming standard of 'job104.gpk'. Perhaps you have a 'Copy of job104.gpk' in your gpk folder...?

Bruce,

Same project and same session. There is only one gpk in the directory. I have hard coded the gpk number to make it work for a deadline.

Hi Larry,

could you please execute this code below and send us the output of the debug statements - thank you in advance.

Artur

Option Explicit

Sub COGO_SetActiveJobNumber()
    Dim jobNums()   As String
    Dim count       As Integer
    Dim myCogo      As Cogo

    'Array of Job Numbers
    jobNums() = GetJobNumbersWithinActiveDir()

    For count = LBound(jobNums) To UBound(jobNums)
        'Get the first Job Number in the array
        If 0 = count Then
            'Set the active Job Number
            Set myCogo = OpenCogoByJobNumber(104)
'            Set myCogo = OpenCogoByJobNumber(jobNums(count))

            ' Geopak GPK active dir location logic:
            Dim arrCfgVars() As Variant
            Dim cfg As Variant
            arrCfgVars = Array("GPK_JOBDIR", "GPK_CWD", "_DGNFILE")
            For Each cfg In arrCfgVars
                If (ActiveWorkspace.IsConfigurationVariableDefined(cfg)) Then
                    Debug.Print cfg & ": " & ActiveWorkspace.ConfigurationVariableValue(cfg, True)
                Else
                    Debug.Print cfg & ": " & "NOT DEFINED"
                End If
            Next
            Debug.Print "Cogo.FullFileName: " & myCogo.FullFileName
                     
            If (myCogo Is Nothing) Then
                MsgBox "error reading job: " & jobNums(count)
            Else
                MsgBox myCogo.FullFileName
            End If

        End If

    Next count

End Sub

Artur,
here is the results

GPK_JOBDIR: Q:\City of Trotwood\0106104A.00 - MOT-Wolf Creek Pike Improv\88223\geopak\
GPK_CWD: Q:\City of Trotwood\0106104A.00 - MOT-Wolf Creek Pike Improv\88223\geopak
_DGNFILE: Q:\City of Trotwood\0106104A.00 - MOT-Wolf Creek Pike Improv\88223\row\sheets\88223RB016.dgn
Cogo.FullFileName: Q:\City of Trotwood\0106104A.00 - MOT-Wolf Creek Pike Improv\88223\geopak\\jobjob104.gpk