FUNCTION pudv_get_groups
(input : Assembly_component) : SET [0:?] OF Assembly_group_component;
LOCAL
acr : SET OF Assembly_component_relationship := input\Assembly_component.occurrence_contexts;
agc : SET OF Assembly_group_component := [];
END_LOCAL;
REPEAT i := 1 TO HIINDEX(acr) BY 1;
IF ('COMPONENT_GROUPING_ARM.' + 'ASSEMBLY_GROUP_COMPONENT' IN TYPEOF(acr[i]\Product_occurrence_definition_relationship.relating_view))
THEN
agc := agc + acr[i]\Product_occurrence_definition_relationship.relating_view;
END_IF;
END_REPEAT;
RETURN (agc); END_FUNCTION; -- pudv_get_groups
|