RULE existence_dependent_drawing_sheet_revision

(* SCHEMA step_merged_ap_schema; *)
-- IN AP232
RULE existence_dependent_drawing_sheet_revision FOR (drawing_sheet_revision );
   LOCAL
      pir : BAG OF presented_item_representation;
      prpc : BAG OF product_related_product_category;
      dsr : SET OF drawing_sheet_revision;
      pdf : SET OF product_definition_formation;
      result : BOOLEAN := TRUE;
   END_LOCAL;
      dsr := drawing_sheet_revision;
      REPEAT i := 1 TO SIZEOF(dsr) BY 1;
         pir := USEDIN(dsr[i], 'STEP_MERGED_AP_SCHEMA.' + 'PRESENTED_ITEM_REPRESENTATION.PRESENTATION');
         IF SIZEOF(pir) < 1 THEN
            result := FALSE;
         END_IF;
         REPEAT j := 1 TO SIZEOF(pir) BY 1;
            pdf := pir[j].item\applied_presented_item.items;
            IF SIZEOF(pdf) < 1 THEN
               result := FALSE;
            END_IF;
            REPEAT k := 1 TO SIZEOF(pdf) BY 1;
               prpc := USEDIN(pdf[k].of_product, 'STEP_MERGED_AP_SCHEMA.' + 'PRODUCT_RELATED_PRODUCT_CATEGORY.PRODUCTS');
               IF SIZEOF(prpc) < 1 THEN
                  result := FALSE;
               END_IF;
               REPEAT l := 1 TO SIZEOF(prpc) BY 1;
                  IF prpc[l]\product_category.name <> 'sheet' THEN
                     result := FALSE;
                  END_IF;
               END_REPEAT;
            END_REPEAT;
         END_REPEAT;
      END_REPEAT;
   WHERE
      wr1:
         result;
END_RULE;

[Top Level Definitions] [Exit]

Generated by STEP Tools® EXPRESS to HTML Converter
2017-01-19T11:17:24-05:00