IsProductDocument

From scripting
Jump to: navigation, search
Function IsProductDocument(CurObj As Variant) As Boolean
On Error GoTo Blast
Dim CurPD As ProductDocument
Set CurPD = CurObj
IsProductDocument = True
Exit Function
Blast:
IsProductDocument = False
End Function