Retrieving reference codes for vendors

This example finds all references to vendors in a formula.

Dim oVendors As Object ObjProperty("OBJECTCODE.REF.V\REFFORMULA3","", "", 
"*", 2)

Get the reference code for each vendor reference in the formula. This goes through the array of vendors returned by the "VENDOR" argument.

For i As Integer = 0 to oVendors.length-1
     Dim oVendorRefCode As Object =
 ObjProperty("REFCODE.REF", "", "", oVendors(i), 2)
     oVendorRefCode = oVendorRefCode(0)
Next i