Index: DOM/PM/TBXProduct/impl/TBXSpoelbakladeType2.cls.xml
===================================================================
diff -u -r44246 -r44249
--- DOM/PM/TBXProduct/impl/TBXSpoelbakladeType2.cls.xml	(.../TBXSpoelbakladeType2.cls.xml)	(revision 44246)
+++ DOM/PM/TBXProduct/impl/TBXSpoelbakladeType2.cls.xml	(.../TBXSpoelbakladeType2.cls.xml)	(revision 44249)
@@ -68,6 +68,43 @@
 <Implementation><![CDATA[	Quit ..GeefRugMateriaal()
 ]]></Implementation>
 </Method>
+
+<Method name="GeefTussenstukDiepte">
+<Private>1</Private>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	// Implementatie via HF-kenmerken 
+	Set AdapterBouwsteen = ##class(DOM.PM.Bouwstenen.Bouwsteen).%OpenId(..GeefPRNr()_"||"_"PRTW2LI.001")
+	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 
+		#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) 
+	}
+	
+	Quit TussenstukDiepte
+]]></Implementation>
+</Method>
+
+<Method name="GeefUitsparingDiepte">
+<Private>1</Private>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	#dim LadeDiepte As %Numeric = ..GeefLadeDiepte()	
+	#dim TussenstukDiepte As %Numeric = ..GeefTussenstukDiepte()
+
+	#dim SpoelbakDiepte As %Numeric = LadeDiepte - TussenstukDiepte
+	Quit SpoelbakDiepte
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: DOM/PM/TBXProduct/impl/TBXSifonladeType2.cls.xml
===================================================================
diff -u -r44246 -r44249
--- DOM/PM/TBXProduct/impl/TBXSifonladeType2.cls.xml	(.../TBXSifonladeType2.cls.xml)	(revision 44246)
+++ DOM/PM/TBXProduct/impl/TBXSifonladeType2.cls.xml	(.../TBXSifonladeType2.cls.xml)	(revision 44249)
@@ -124,6 +124,43 @@
 	Quit TussenrugMateriaal
 ]]></Implementation>
 </Method>
+
+<Method name="GeefTussenstukDiepte">
+<Private>1</Private>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	// Implementatie via HF-kenmerken 
+	Set AdapterBouwsteen = ##class(DOM.PM.Bouwstenen.Bouwsteen).%OpenId(..GeefPRNr()_"||"_"PRTW2LI.001")
+	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 
+		#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) 
+	}
+	
+	Quit TussenstukDiepte
+]]></Implementation>
+</Method>
+
+<Method name="GeefUitsparingDiepte">
+<Private>1</Private>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	#dim LadeDiepte As %Numeric = ..GeefLadeDiepte()	
+	#dim TussenstukDiepte As %Numeric = ..GeefTussenstukDiepte()
+
+	#dim SpoelbakDiepte As %Numeric = LadeDiepte - TussenstukDiepte
+	Quit SpoelbakDiepte
+]]></Implementation>
+</Method>
 </Class>