FUNCTION using_product_definition_of_shape_representation
(item : shape_representation) : SET [0:?] OF product_definition;
LOCAL local_s_d_r: SET OF shape_definition_representation := []; local_p_d: SET OF product_definition := []; i : INTEGER; END_LOCAL;
-- find shape_definition_representations local_s_d_r := QUERY(i1<* bag_to_set (USEDIN (item, 'PRODUCT_PROPERTY_REPRESENTATION_SCHEMA.' + 'PROPERTY_DEFINITION_REPRESENTATION.USED_REPRESENTATION'))| 'PRODUCT_PROPERTY_REPRESENTATION_SCHEMA.'+ 'SHAPE_DEFINITION_REPRESENTATION' IN TYPEOF(i1));
-- find product_definition_shape & product_definitions REPEAT i := 1 TO HIINDEX (local_s_d_r); IF ('PRODUCT_PROPERTY_DEFINITION_SCHEMA.PROPERTY_DEFINITION' IN TYPEOF (local_s_d_r[i]\property_definition_representation.definition)) THEN IF('PRODUCT_DEFINITION_SCHEMA.PRODUCT_DEFINITION' IN TYPEOF (local_s_d_r[i]\property_definition_representation.definition\property_definition.definition)) THEN local_p_d := local_p_d + local_s_d_r[i]\property_definition_representation.definition\property_definition.definition; END_IF; END_IF; END_REPEAT; RETURN (local_p_d); END_FUNCTION; -- using_product_definition_of_shape_representation
|