Retrieving all references

This example retrieves all references and types from the current object.

Dim oRef As Object = ObjProperty("OBJECTCODE.REF", "", "", "*")
Dim oRefType As Object = ObjProperty("OBJECTTYPE.REF", "", "", "*")

Get the reference code for each reference in the formula. This goes through the array of references returned by the "*" argument.

For y As Integer = 0 to oRef.length-1
     MessageList("Referenced ", oReftype(y), " is ", oRef(y))
Next y

The script returns this information:

01.Referenced CUSTOMER is AHOLD

02.Referenced LABEL is FS-0008-US\0002.001

03.Referenced LABEL is FS-0008-EU\0002.001

05.Referenced LABEL is FS-0008-FR\0002.001

06.Referenced SPECIFICATION is FS-0008-FOR\0002.001

07.Referenced SPECIFICATION is FS-0008-PKG\0002.001

08.Referenced SPECIFICATION is FS-0008-PRC\0002.001