FUNCTION pudv_get_groups
(input : assembly_component_armx) : SET [0:?] OF assembly_group_component_armx;
LOCAL
acr : SET OF Product_occurrence_definition_relationship_armx := input\Assembly_component_armx.occurrence_contexts;
agc : SET OF Assembly_group_component_armx := [];
END_LOCAL;
REPEAT i := 1 TO HIINDEX(acr) BY 1;
IF ('COMPONENT_GROUPING_XIM.' + 'ASSEMBLY_GROUP_COMPONENT_ARMX' IN TYPEOF(acr[i].relating_view))
THEN
agc := agc + acr[i].relating_view;
END_IF;
END_REPEAT;
RETURN (agc); END_FUNCTION; -- pudv_get_groups
|