AddSetCodes
You can use this function for Optiva Workflows and Copy Methods.
Purpose
Assigns an object to a set code.
Syntax
Dim variable As Long = AddSetCodes(Symbol, Object, Code1, [Code2, Code3...])
Arguments
| Part | Description |
|---|---|
Symbol |
Type of object. Use empty quotation marks to indicate the current symbol for the workflow or the new object for a copy method. |
Object |
Object code to be added to set codes. Use empty quotation marks to indicate the current object for the workflow or the new object for a copy method. |
Code1 |
First set code to assign the object. |
Code2 |
Optional. Additional set codes to assign the object. |
Description
AddSetCodes assigns a system object to a set. For example, a formula can be assigned to the FDA set, which indicates formulas with FDA approval. Sets are used to enhance lookups.
A set code can be added manually to an object by opening the object and using the Set Classification dialog.
See the Infor PLM for Process Application Configuration Guide.
Examples
In this example, the PIZZASAUCE\003 formula is added to the SAUCE and PIZZA set codes. The Symbol and ObjectKey can be left as empty quotation marks to indicate the formula of the workflow. For formulas and specifications, you must include a backslash (\) followed by a version number if you include the object code.
Dim lSet As Long = AddSetCodes("FORMULA", "PIZZASAUCE\003","SAUCE",
"PIZZA")
In this example, the workflow or new object is added to the SAUCE and TOP set codes.
Dim lSet As Long = AddSetCodes("","","SAUCE","TOP")
In this example, the TOMATOES item is added to the SAUCE_INGRED set code.
Dim lSet As Long = AddSetCodes("ITEM","TOMATOES", "SAUCE_INGRED")
Copy Method example
You can construct a copy method where the user selects one or more sets to assign the new object. This example assumes that the fourth and fifth Auto Code segments allow the user to select from a list of sets.
Dim lSet4 As Long
Dim lSet5 As Long
Dim rc As Long
lSet4 = CopyMethod.Context.GetSegData(4)
lSet5 = CopyMethod.Context.GetSegData(5)
rc = AddSetCodes("","", lSet4, lSet5)