BOM set Reference

[jostroopers]

I have an assembly in which I have created 3 LOD, 1_Ruit, 2_Ruit, 3_Ruit.
With a text parameter 'Deling' and an iLogic code 'LOD' I can send the LOD so that components are suppressed.
However, if I look at the BOM, the suppressed parts are not set to Reference so that they are still counted in the BOM.
How do I use iLogic to set the suppressed components to Reference in the BOM?
I have tried several codes but am not an expert.

If Deling = "1_Ruit" Then
oOcc.BOMStructure "Tussenligger" = Reference
End If

If Deling = "1_Ruit" Then
oOcc.BOMStructure "Tussenruit" = Reference
End If

And so on.

[MechMachineMan]

Resource utilization is key to successful programming:

http://help.autodesk.com/view/INVNTOR/2018/ENU/?guid=GUID-F298DB7C-AB42-4AA9-B3F4-980A8BF78A01

All 3 below work (in their various cases). The best one for readability is the middle. The best one for performance (and avoiding issues) is the the bottom.

oOcc.BOMStructure = kReferenceBOMStructure

OR

oOcc.BOMStructure = BOMStructureEnum.kReferenceBOMStructure

OR

oOcc.BOMStructure = 51972

[jostroopers]

Do i use that in this way?

If Deling = "1_Ruit" Then
oOcc.BOMStructure "Tussenruit" = 51972
End If

[bradeneuropeArthur]

Yes you do already.

oOcc.BOMStructure "Tussenruit" = 51972

The 51972 is the bottom one...

[MechMachineMan]

No... you use it exactly as I typed it in:

If Deling = "1_Ruit" Then
    oOcc.BOMStructure = 51972
End If

If Deling = "1_Ruit" Then
    oOcc.BOMStructure = 51972
End If

[clutsa]

You're close. I think you're trying to do something more like

myPart = Component.InventorComponent("Tussenruit")
myPart.BOMStructure = 51972 'Reference
myPart.BOMStructure = 51969 'Default? I think

Also you could do a loop at the end like 

Dim doc As AssemblyDocument
doc = ThisDoc.Document
For Each oOcc In doc.ComponentDefinition.Occurrences
	If oOcc.Suppressed Then
		oOcc.BOMStructure = 51972 'reference
	Else
		oOcc.BOMStructure = 51969 'default
	End If
Next

[jostroopers]

@MechMachineMan

How dus the code know that "Tussenruit" has to go Reference.

[MechMachineMan]

The way I wrote it already implies that you have the occurrence you want assigned to the variable 'oOcc'.

@clutsa mentioned what you need to do to grab the occurrence in his post.

[clutsa]

Sorry that's what I was trying to clarify for you.

oOcc = Component.InventorComponent("Tussenruit")
If Deling = "1_Ruit" Then
    oOcc.BOMStructure = 51972 'reference
Else
    oOcc.BOMStructure = 51969 'default
End If

and if you don't want to declare each part that needs to be set to reference you could do the loop to set all parts that is suppressed to a referenced BOM.

Dim doc As AssemblyDocument
doc = ThisDoc.Document
For Each oOcc In doc.ComponentDefinition.Occurrences
	If oOcc.Suppressed Then
		oOcc.BOMStructure = 51972 'reference
	Else
		oOcc.BOMStructure = 51969 'default
	End If
Next