List check-out versions

Created:October/7/2002
Description:

If your organization routinely performs reconciles on versions in the master database, it is useful to know whether or not a version is associated with an active check-out. This code can be run as a macro in ArcMap to list the active check-out versions.

How to use:
  1. Paste the code into VBA in ArcMap.
  2. Click the source tab in the TOC, then click the master workspace.
  3. Run the sample and the check-out versions are listed in the immeadiate window in VBA.
Public Sub List_CO_Versions()

  Dim pMXD As IMxDocument
  Dim pWkSp As IWorkspace
  Dim pVerWkSp As IVersionedWorkspace
  Dim pEVerInfo As IEnumVersionInfo
  Dim pVerInfo As IVersionInfo
  Dim bolIsCO As Boolean
  Set pMXD = ThisDocument
  Set pWkSp = pMXD.SelectedItem
  
  ' Test each version to see if it is a check-out version
  If TypeOf pWkSp Is IVersionedWorkspace Then
    Set pVerWkSp = pWkSp
    Set pEVerInfo = pVerWkSp.Versions
    pEVerInfo.Reset
    Set pVerInfo = pEVerInfo.Next
    Do Until pVerInfo Is Nothing
      bolIsCO = IsCoVersion(pVerInfo.VersionName, pWkSp)
      If bolIsCO Then Debug.Print pVerInfo.VersionName & " is a checkout version"
      Set pVerInfo = pEVerInfo.Next
    Loop
  End If

End Sub
'++ Returns True if the version is a check-out version
'++ otherwise, returns false
Private Function IsCoVersion(strVersion As String, pWkSpRep As IWorkspaceReplicas) As Boolean

  Dim pRep As IReplica
  Dim pEnumRep As IEnumReplica
  Dim strUser As String
  Dim strDB As String
  Dim strCoVersion As String
  Dim pSQLSyntax As ISQLSyntax
  
  IsCoVersion = False
  
  '++ See if the version name matches a checkout version
  Set pSQLSyntax = pWkSpRep
  Set pEnumRep = pWkSpRep.Replicas
  pEnumRep.Reset
  Set pRep = pEnumRep.Next
  Do Until pRep Is Nothing
    If pRep.ReplicaRole = esriCheckOutTypeParent Then
      '++ Full qualify the version name from the checkout
      strCoVersion = pSQLSyntax.QualifyTableName("", pRep.Owner, pRep.Version)
      If UCase(strVersion) = UCase(strCoVersion) Then
        IsCoVersion = True
      End If
    End If
    Set pRep = pEnumRep.Next
  Loop
  
End Function