|
RULE ply_reference FOR (ply_laminate_sequence_definition, next_assembly_usage_occurrence, product_related_product_category); LOCAL i,j,k : INTEGER; dkuhr : LOGICAL := TRUE; 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; -- ply_reference |
|
public class RPly_reference public int rWr1(SdaiContext _context) public int run(SdaiContext _context, A_string violations) |