RULE ply_reference

(* SCHEMA step_merged_ap_schema; *)

-- DIFF IN AP203e2
-- IN AP203e2/AP242
RULE ply_reference FOR (ply_laminate_sequence_definition, next_assembly_usage_occurrence, product_related_product_category );
   LOCAL
      i : INTEGER;
      j : INTEGER;
      k : INTEGER;
      dkuhr : LOGICAL := FALSE;
      nnauo : INTEGER;
      nprpc : INTEGER := 0;
      rp : product;
   END_LOCAL;
      REPEAT i := LOINDEX(ply_laminate_sequence_definition) TO HIINDEX(ply_laminate_sequence_definition);
         nnauo := 0;
         REPEAT j := LOINDEX(next_assembly_usage_occurrence) TO HIINDEX(next_assembly_usage_occurrence);
            IF ply_laminate_sequence_definition[i] = next_assembly_usage_occurrence[j].relating_product_definition THEN
               rp := next_assembly_usage_occurrence[j].related_product_definition.formation.of_product;
               nprpc := 0;
               REPEAT k := LOINDEX(product_related_product_category) TO HIINDEX(product_related_product_category);
                  IF (product_related_product_category[k].name = 'ply') AND (rp IN product_related_product_category[k].products) THEN
                     nprpc := nprpc + 1;
                  END_IF;
               END_REPEAT;
               IF nprpc = 1 THEN
                  nnauo := nnauo + 1;
               ELSE
                  dkuhr := FALSE;
                  ESCAPE;
               END_IF;
            END_IF;
         END_REPEAT;
         IF dkuhr = FALSE THEN
            ESCAPE;
         END_IF;
         IF nnauo = 0 THEN
            dkuhr := FALSE;
            ESCAPE;
         END_IF;
      END_REPEAT;
   WHERE
      WR1:
         dkuhr;
END_RULE;

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