Index: HADTBXPrep.mac.rou
===================================================================
diff -u -r734 -r921
--- HADTBXPrep.mac.rou	(.../HADTBXPrep.mac.rou)	(revision 734)
+++ HADTBXPrep.mac.rou	(.../HADTBXPrep.mac.rou)	(revision 921)
@@ -251,18 +251,17 @@
 	
 	Set API = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
 	Set Tandembox = API.GeefProduct(MPRNr)
-	
-	If ($IsObject(Tandembox) && Tandembox.%Extends("DOM.PM.TBXProduct.TBXLade"))
+	If ($IsObject(Tandembox) && Tandembox.%Extends("DOM.PM.TBXProduct.TBXLade")) Do
 	. If '$D(PRBS("PRAKLI.001")) Do  ; Er zijn geen separate afdekkappen, dus toevoegen
 	. . ;Toevoegen AFDEKKAP ZAA.xxx
 	. . If '$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",MPRNr,"NMAK")) Do ; Niet meeleveren afdekkap
-	. . . If (Tandembox.GeefZijkantDesign() = ##class(DOM.PM.enu.TBXZijkantDesign).A())
+	. . . If (Tandembox.GeefZijkantDesign() = ##class(DOM.PM.enu.TBXZijkantDesign).A()) Do
 	. . . . Set Kleur=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",MPRNr,"KL")) ; Kleur lade
 	. . . . Set HPRNr=$CASE(Kleur,"SW":472015,"BZ":471997,"IN":472252,:478609)
 	. . . . Set BSRec=HPRNr_"\2\H" ; ZAA 532 en ZAA5329 (inox)
 	. . . . Set $P(BSRec,D,19)="LOS"
 	. . . . Set PRBS("PRAKLI.001")=BSRec
-	. . . Else  If (Tandembox.GeefZijkantDesign() = ##class(DOM.PM.enu.TBXZijkantDesign).F())
+	. . . Else  If (Tandembox.GeefZijkantDesign() = ##class(DOM.PM.enu.TBXZijkantDesign).F()) Do
 	. . . . Set BSRec="74660\2\H" ; ZAA 330C
 	. . . . Set $P(BSRec,D,19)="LOS"
 	. . . . Set PRBS("PRAKLI.001")=BSRec
@@ -282,6 +281,7 @@
 	. . . Set BSRec="126100\2\H" ;T54.3300
 	. . . Set $P(BSRec,D,19)="LOS"
 	. . . Set PRBS("PRXPOSK.001")=BSRec
+	
 	Quit
 	
 BuildPRBSCacheOld(MPRNr,PRBS) ;old PV 24/11/2009
@@ -355,22 +355,8 @@
 	
 bepaalHoeveelheid(TandemBox,BSKey,BouwsteenHoeveelheid)
 	Set Hoeveelheid = BouwsteenHoeveelheid
-	If (BSKey["PRRL.")
+	If (BSKey["PRBXKG.")||(BSKey["PRBXKGSTRK.")
 	{
-		If (TandemBox.GeefReling().GeefVerpakking() = ##class(DOM.PM.enu.Verpakking).V1())
-		{
-			Set Hoeveelheid = Hoeveelheid * 2	
-		}
-	}
-	ElseIf (BSKey["PRRLADAPT.")
-	{
-		If TandemBox.BevatTussenReling() && (TandemBox.GeefTussenReling().GeefVerpakking() = ##class(DOM.PM.enu.Verpakking).V1())
-		{
-			Set Hoeveelheid = Hoeveelheid * 2	
-		}
-	}
-	ElseIf (BSKey["PRBXKG.")||(BSKey["PRBXKGSTRK.")
-	{
 		// Voor boxkapglas is de hoeveelheid te picken glazen altijd 2, onafhankelijk van wat in de bouwsteen staat
 		Set Hoeveelheid = 2
 	}