Index: DOM/PM/TBXProduct/impl/TBXLadeMetUitsparing.cls.xml
===================================================================
diff -u -r44244 -r44248
--- DOM/PM/TBXProduct/impl/TBXLadeMetUitsparing.cls.xml	(.../TBXLadeMetUitsparing.cls.xml)	(revision 44244)
+++ DOM/PM/TBXProduct/impl/TBXLadeMetUitsparing.cls.xml	(.../TBXLadeMetUitsparing.cls.xml)	(revision 44248)
@@ -12,20 +12,18 @@
 <Implementation><![CDATA[
 	// Implementatie via HF-kenmerken 
 	Set AdapterBouwsteen = ##class(DOM.PM.Bouwstenen.Bouwsteen).%OpenId(..GeefPRNr()_"||"_"PRTW2LI.001")
-	If ($IsObject(AdapterBouwsteen))
-	{
-		Set SPBinnenZijkantProduct = AdapterBouwsteen.KindProduct
-		Set SPBinnenZijkantPRNr = SPBinnenZijkantProduct.ProductNr
-		Set TussenstukDiepte = $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",SPBinnenZijkantPRNr,"AftrekBodem"),1)   ; In de nieuwe Builders moet de kenmerknaam veranderd worden naar "TussenstukDiepte".
-		If TussenstukDiepte'>0 
-		{
+	If ($IsObject(AdapterBouwsteen)) {
+		#dim SPBinnenZijkantProduct As Prod.Product = AdapterBouwsteen.KindProduct
+		#dim SPBinnenZijkantPRNr As %String = SPBinnenZijkantProduct.ProductNr
+		#dim TussenstukDiepte As %Numeric = $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",SPBinnenZijkantPRNr,"AftrekBodem"),1)   ; In de nieuwe Builders moet de kenmerknaam veranderd worden naar "TussenstukDiepte".
+		If $$$Not(TussenstukDiepte > 0) {
 			; Throw error 
 	 	}
 	}
 	Else {
 		// De bouwsteen "Binnenzijkant v. spoelbak" is niet aanwezig 
 		// In dit geval wordt de TussenstukDiepte hardcoded afgeleid uit ladediepte 
-		Set LadeDiepte=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",..GeefPRNr(),"LD"))
+		#dim LadeDiepte As %Numeric = $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",..GeefPRNr(),"LD"))
 		Set TussenstukDiepte=$S(LadeDiepte'>350:90, LadeDiepte'>400:120, 1:140)   ; Tussenstuk voor LD=350 : 90mm   -  LD=400 : 120mm   -  LD > 400 : 140mm    (LD=350 added by WimV on 24/06/2011) 
 	}
 	
@@ -37,10 +35,10 @@
 <Private>1</Private>
 <ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[
-	Set LadeDiepte = ..GeefLadeDiepte()	
-	Set TussenstukDiepte = ..GeefTussenstukDiepte()
+	#dim LadeDiepte As %Numeric = ..GeefLadeDiepte()	
+	#dim TussenstukDiepte As %Numeric = ..GeefTussenstukDiepte()
 
-	Set SpoelbakDiepte = LadeDiepte - TussenstukDiepte
+	#dim SpoelbakDiepte As %Numeric = LadeDiepte - TussenstukDiepte
 	Quit SpoelbakDiepte
 ]]></Implementation>
 </Method>
@@ -49,9 +47,8 @@
 <Private>1</Private>
 <ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[
-	Set Aantal = $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",..GeefPRNr(),"SYQTY"))
-	If (Aantal = "")
-	{
+	#dim Aantal As %Integer = $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",..GeefPRNr(),"SYQTY"))
+	If (Aantal = "") {
 		Set Aantal = 1
 	}
 	Quit Aantal