Drools 5에서 같은 종류의 여러 객체를 어떻게 일치시킬 수 있습니까?

Question

두 개 이상의 메모리에 BMSContract 개체 컬렉션이 있으면 BMSContract.status 필드를 사용하여 특정 패턴을 일치시켜야합니다. 그러한 컬렉션에서 정확히 하나의 BMSContract가 ACTIVE 상태 인 경우에만 내 규칙이 Success로 처리됩니다. 다른 모든 개체 및 상태 코드의 조합은 실패로 해결됩니다. 이 규칙은 2 개 이상의 개체 만 수집하고 2 개, 5 개, 10 개, 15 개 또는 그 이상이 될 수 있습니다. 단일 BMSContract 레코드를 관리하는 규칙이 약간 다릅니다. 이 규칙은 단지 이들과 같은 여러 기록 시나리오에 특정 :

Case1 - Success 
BMSContract(status=ACTIVE) 
BMSContract(status=PENDING) 
Reason: only one Active in the collection 

Case2 - Success 
BMSContract(status=ACTIVE) 
BMSContract(status=PENDING) 
BMSContract(status=HOLD) 
Reason: only one Active in the coll 

Case3 - Success 
BMSContract(status=ACTIVE) 
BMSContract(status=PENDING) 
BMSContract(status=HOLD) 
BMSContract(status=CANCEL) 
Reason: only one Active in the coll 

Case4 - Failure 
BMSContract(status=ACTIVE) 
BMSContract(status=ACTIVE) 
Reason: too many Active records in coll 

Case5 - Failure 
BMSContract(status=ACTIVE) 
BMSContract(status=ACTIVE) 
BMSContract(status=ACTIVE) 
Reason: too many Active records in coll 

Case6 - Failure 
BMSContract(status=ACTIVE) 
BMSContract(status=ACTIVE) 
BMSContract(status=ACTIVE) 
BMSContract(status=ACTIVE) 
BMSContract(status=ACTIVE) 
Reason: too many Active records in coll 

Case7 - Failure 
BMSContract(status=PENDING) 
BMSContract(status=HOLD) 
BMSContract(status=OTHER) 
Reason: No Active records in coll 

Answer 1

당신이 BMSContract 사실의 번호를 가지고 있음을 감안할 때, 다음과 같은 규칙이 충분하다 :

rule OK 
when 
    $ac: BMSContract(status == "ACTIVE") 
    not BMSContract(this != $ac, status == "ACTIVE") 
then 
    // there is exactly one ACTIVE 
end 

rule not_OK_1 
when 
    not BMSContract(status == "ACTIVE") 
then 
    // there is no ACTIVE 
end 

rule not_OK_2 
when 
    $ac: BMSContract(status == "ACTIVE") 
    exists BMSContract(this != $ac, status == "ACTIVE") 
then 
    // there is more than one ACTIVE 
end 

변형이 가능하고 할 수있다

이

rule not_OK_2a 
when 
    $ac1: BMSContract(status == "ACTIVE") 
    $ac2: BMSContract(this != $ac, status == "ACTIVE") 
then 
    // log and retract $ac2 
end