Index: BL/PPS/TBX/DocRugwandhouderLijst.cls.xml
===================================================================
diff -u -r2847 -r2848
--- BL/PPS/TBX/DocRugwandhouderLijst.cls.xml	(.../DocRugwandhouderLijst.cls.xml)	(revision 2847)
+++ BL/PPS/TBX/DocRugwandhouderLijst.cls.xml	(.../DocRugwandhouderLijst.cls.xml)	(revision 2848)
@@ -41,21 +41,26 @@
 		Set oQ=##class(DS.PPS.TBX.Queue).%OpenId(ResultSet.Data("ID"))
 		Continue:oQ.Status="PB" ; sequencelijnen met status "PB" worden overgeslagen
 		Set PRNr = oQ.ProductGetObjectId()
+		Set Lade = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(PRNr)
 		
-		If ($Data(^PRBS("BS",PRNr,"PRRUGLI.001")))
+		If (Lade.GeefRugMateriaal()=##class(DOM.PM.enu.TBXRugMateriaal).Hout()) &&
+		   ( ((Lade.%Extends("DOM.PM.TBXProduct.TBXLadeMetUitsparing"))) || (Lade.GeefBlumotion() = ##class(DOM.PM.enu.TBXBlumotion).TipOn()) )
 		{
-			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,"PRRUGLI.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,"PRRUGRE.001")))
+			{
+				Set HouderPRNr = $Piece(^PRBS("BS",PRNr,"PRRUGRE.001"),"\",1)
+				Set HouderAantal = $Piece(^PRBS("BS",PRNr,"PRRUGRE.001"),"\",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)
-		}
-		
 	}
 	
 	Set HouderIterator = ##class(TECH.ListIterator).%New(..Houders)
Index: vhDeploy/CSC/Deploy20111114x1101.cls.xml
===================================================================
diff -u
--- vhDeploy/CSC/Deploy20111114x1101.cls.xml	(revision 0)
+++ vhDeploy/CSC/Deploy20111114x1101.cls.xml	(revision 2848)
@@ -0,0 +1,23 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhDeploy.CSC.Deploy20111114x1101">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>svn.Deploy</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Rugwandhouderlijst in orde brengen</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set ^RES("HATBXLEAN","PI","PRINT","D","H") = "22`Rugwandhouderslijst"
+	Set ^RES("HATBXLEAN","PI","PRINTPROPLUS","D","H") = "13`Rugwandhouderslijst"
+	Set ^RES("HATBXLEAN","PI","PRINTKAST","D","H") = "22`Rugwandhouderslijst"
+	d ##class(BL.PPS.TBX.LijstDefinities.RugwandhouderLijstDefinitie).MaakDocument()
+]]></Implementation>
+</Method>
+</Class>
+</Export>