RULE drawing_suffix_number_combination_identification_constraint

(* SCHEMA step_merged_ap_schema; *)

-- IN AP232
RULE drawing_suffix_number_combination_identification_constraint FOR (product_relationship );
   LOCAL
      prpc : BAG OF product_related_product_category;
      p : product;
      tresult : BOOLEAN;
      pr : SET OF product_relationship;
      result : BOOLEAN := TRUE;
   END_LOCAL;
      pr := QUERY (v <* product_relationship| v.name = 'drawing suffix number combination');
      REPEAT i := 1 TO SIZEOF(pr) BY 1;
         p := pr[i].relating_product;
         prpc := USEDIN(p, 'STEP_MERGED_AP_SCHEMA.' + 'PRODUCT_RELATED_PRODUCT_CATEGORY.PRODUCTS');
         REPEAT j := 1 TO SIZEOF(prpc) BY 1;
            IF prpc[j]\product_category.name = 'document' THEN
               result := FALSE;
            END_IF;
         END_REPEAT;
         p := pr[i].related_product;
         prpc := USEDIN(p, 'STEP_MERGED_AP_SCHEMA.' + 'PRODUCT_RELATED_PRODUCT_CATEGORY.PRODUCTS');
         tresult := FALSE;
         REPEAT j := 1 TO SIZEOF(prpc) BY 1;
            IF prpc[j]\product_category.name = 'document' THEN
               tresult := TRUE;
            END_IF;
         END_REPEAT;
         IF NOT tresult THEN
            result := FALSE;
         END_IF;
      END_REPEAT;
   WHERE
      wr1:
         result;
END_RULE;

Generated by STEP Tools® EXPRESS to HTML Converter
2020-07-28T17:02:19-04:00