Class ThisRule
Dim counter As Integer
		
Sub Main()
    Dim oAsmDoc As AssemblyDocument = ThisApplication.ActiveDocument
	
	Dim myUserPropName As String = "nazevUzivatelskeVlastnosti"
	
	Dim myUserPropValue As String = InputBox("Zadejte přesnou hodnotu iVlastnosti", "Zadejte přesnou hodnotu iVlastnosti", "hodnotaVlastnosti")
	Call TraverseAssembly(oAsmDoc.ComponentDefinition.Occurrences, 1, myUserPropName, myUserPropValue)
	
	MsgBox("Bylo zmeneno " & counter & "komponent na referencni")
End Sub

Private Sub TraverseAssembly(Occurrences As ComponentOccurrences,Level As Integer, myUserPropName As String, myUserPropValue As String)
	Dim oOcc As ComponentOccurrence
    For Each oOcc In Occurrences
		If oOcc.DefinitionDocumentType = kAssemblyDocumentObject Then
        	GoTo nextLevel
		End If
		
		Dim oDoc As Document
		oDoc = oOcc.Definition.Document
		
		On Error Resume Next
		Dim oOccPropValue = iProperties.Value(oOcc.Name, "Custom", myUserPropName)
		
		If Err.Number <> 0 Then
			MsgBox("Komponenta " & oOcc.Name & " nema ivlastnost s nazvem " & myUserPropName )
		Else
			If oOccPropValue = myUserPropValue Then
				oOcc.BOMStructure = "kReferenceBOMStructure"
				counter = counter + 1
				'MsgBox("menim ivlastnost")
			Else
				'Pokud komponenta nema spravnou hodnotu nasi ivlastnosti, struktura rozpisky bude normalni
				oOcc.BOMStructure = "kNormalBOMStructure"
			End If
		End If
		
		Err.Number = 0 ' errors reset
		
		nextLevel :
        If oOcc.DefinitionDocumentType = kAssemblyDocumentObject Then
            Call TraverseAssembly(oOcc.SubOccurrences, Level + 1, myUserPropName, myUserPropValue)
        End If
    Next
End Sub

End Class