Difference between revisions of "HasPackage"

Latest revision as of 06:05, 22 April 2017

'Dim PkgManager
'Set PkgManager = MyPart.GetItem("GTCAttPkgManagerVBExt")

Function HasPackage(InputObj As Variant) As Boolean
On Error GoTo Blast
Dim pkgs As AttPackages
Set pkgs = attManager.GetAttachedPackages(InputObj)
If pkgs.Count = 0 Then
    hasPackage = False
    Exit Function
End If
HasPackage = True
Exit Function
Blast:
HasPackage = False
End Function