Index: BL/PPS/TBX/DocRugwandhouderLijst.cls.xml
===================================================================
diff -u -r2853 -r3636
--- BL/PPS/TBX/DocRugwandhouderLijst.cls.xml	(.../DocRugwandhouderLijst.cls.xml)	(revision 2853)
+++ BL/PPS/TBX/DocRugwandhouderLijst.cls.xml	(.../DocRugwandhouderLijst.cls.xml)	(revision 3636)
@@ -44,21 +44,17 @@
 		Set Lade = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(PRNr)
 		
 		If (Lade.GeefRugMateriaal()=##class(DOM.PM.enu.TBXRugMateriaal).Hout()) &&
-		   ( ((Lade.%Extends("DOM.PM.TBXProduct.TBXLadeMetUitsparing"))) || (Lade.GeefBlumotion() = ##class(DOM.PM.enu.TBXBlumotion).TipOn()) )
+		   ( Lade.%Extends("DOM.PM.TBXProduct.TBXLadeMetUitsparing") || (Lade.GeefBlumotion() = ##class(DOM.PM.enu.TBXBlumotion).TipOn()) )
 		{
-			If ($Data(^PRBS("BS",PRNr,"PRRUGLI.001")))
+			For BouwsteenLabel = "PRRUGLI.001","PRRUGRE.001","PRRUGSPLI.001","PRRUGSPRE.001"
 			{
-				Set HouderPRNr = $Piece(^PRBS("BS",PRNr,"PRRUGLI.001"),"\",1)
-				Set HouderAantal = $Piece(^PRBS("BS",PRNr,"PRRUGLI.001"),"\",2)
-				Do ..IncrementHouderAantal(HouderPRNr,HouderAantal)
+				If ($Data(^PRBS("BS",PRNr,BouwsteenLabel)))
+				{
+					Set HouderPRNr = $Piece(^PRBS("BS",PRNr,BouwsteenLabel),"\",1)
+					Set HouderAantal = $Piece(^PRBS("BS",PRNr,BouwsteenLabel),"\",2)
+					Do ..IncrementHouderAantal(HouderPRNr,HouderAantal)
+				}
 			}
-			
-			If ($Data(^PRBS("BS",PRNr,"PRRUGRE.001")))
-			{
-				Set HouderPRNr = $Piece(^PRBS("BS",PRNr,"PRRUGRE.001"),"\",1)
-				Set HouderAantal = $Piece(^PRBS("BS",PRNr,"PRRUGRE.001"),"\",2)
-				Do ..IncrementHouderAantal(HouderPRNr,HouderAantal)
-			}
 		}
 		
 	}