Cacher is the code snippet organizer for pro developers

Private Sub ReportClasses()

   Dim i As Long
   Dim oClass As CscClass
   Dim oLocatorDef As CscLocatorDef
   'Dim locft As CscRegExpLib.CscRegExpLocator
   Dim oLocMeth As  ICscExtractionMethod
   'Dim oAZL As CscAdvZoneLocator    '# Reference this object - "LCI Cascade Advanced Zone Locator 2.0"


   For i = 0 To Project.ClassCount - 1
      Set oClass = Project.ClassByIndex(i)
      'oLog.Debug "Class Name: " & CStr(oClass.Name)

         If oClass.Locators.ItemExists("AZL_FormData") Then
            'oLog.Debug "Locator AZL_FormData Exists"
            Set oLocatorDef = oClass.Locators.ItemByName("AZL_FormData")
            'oLog.Debug "Derived: " & CStr(oLocatorDef.Derived)
            If oLocatorDef.FeatureLicenseId <> -1 Then
               oLog.Debug "Class Name|" & CStr(oClass.Name) & "|" & "FeatureLicenseId|" & CStr(oLocatorDef.FeatureLicenseId)
            End If

            'Set oLocMeth = oLocatorDef.LocatorMethod
            'If oLocatorDef.Derived = False Then
            '   oLog.Debug "AZL Locator Derived for Class: " & CStr(oLocatorDef.Derived)
            'End If
         End If
   Next

End Sub

Private Sub DeleteClasses()
   oLog.Info "DeleteClasses Started"
   Dim oClassData As CscXDocField
   Dim i As Long
   Dim sClassName As String

   Set oClassData = GetSqlResults("KofaxTransformation", "SELECT KtmClassName FROM KtmClassesToDelete")
   For i = 0 To oClassData.Alternatives.Count - 1
      sClassName = Trim$(oClassData.Alternatives.ItemByIndex(i).SubFields.ItemByName("KtmClassName").Text)
      If KtmClassExists(sClassName) Then
         oLog.Info "Deleting Class|" & CStr(sClassName)
         Project.DeleteClass(sClassName)
      End If
   Next

End Sub