FUNCTION pudv_get_assemblies
(input : assembly_component_armx) : SET [0:?] OF product_view_definition;
LOCAL
acr : SET OF Product_occurrence_definition_relationship_armx := input\Assembly_component_armx.occurrence_contexts;
pvd : SET OF Product_view_definition := [];
END_LOCAL;
REPEAT i := 1 TO HIINDEX(acr) BY 1;
IF NOT('COMPONENT_GROUPING_XIM.' + 'ASSEMBLY_GROUP_COMPONENT_ARMX' IN TYPEOF(acr[i].relating_view))
THEN
pvd := pvd + acr[i].relating_view;
ELSE
pvd := pvd + get_assemblies(acr[i].relating_view);
END_IF;
END_REPEAT;
RETURN (pvd); END_FUNCTION; -- pudv_get_assemblies
|