Index: DOM/PM/TBXProduct/impl/TBXSifonladeType3.cls.xml
===================================================================
diff -u -r44217 -r44219
--- DOM/PM/TBXProduct/impl/TBXSifonladeType3.cls.xml	(.../TBXSifonladeType3.cls.xml)	(revision 44217)
+++ DOM/PM/TBXProduct/impl/TBXSifonladeType3.cls.xml	(.../TBXSifonladeType3.cls.xml)	(revision 44219)
@@ -2,7 +2,6 @@
 <Export generator="Cache" version="24">
 <Class name="DOM.PM.TBXProduct.impl.TBXSifonladeType3">
 <ClassType/>
-<IncludeCode>TECH.Error</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>DOM.PM.TBXProduct.impl.TBXLadeMetUitsparing</Super>
 
@@ -17,21 +16,16 @@
 <Implementation><![CDATA[
 	If (..Uitsparingen.Count() = 0)
 	{
-		Set Radius = 0
-		If (..GeefAantalUitsparingen() = 1)
-		{
-			;Set RechteUitsparing = ##class(DOM.PM.TBXProduct.impl.TBXRechteUitsparing).%New(..GeefUitsparingDiepte(),..GeefBreedteUitsparing1(),..GeefAfstandTotZijkantLinks(),..GeefAfstandTotZijkantRechts(),..GeefSifonkapKleur(),..GeefTussenrugMateriaal())
-			;Do ..Uitsparingen.Insert(RechteUitsparing)
-
-			Set RondeUitsparing = ##class(DOM.PM.TBXProduct.impl.TBXRondeUitsparing).%New(..GeefUitsparingDiepte(),..GeefSifonBreedte(),..GeefAfstandTotZijkantLinks(),..GeefAfstandTotZijkantRechts(),Radius)
-			Do ..Uitsparingen.Insert(RondeUitsparing)
+		#dim SifonkapKleur = ""
+		If (..GeefAantalUitsparingen() = 1) {
+			Set SifonType3Uitsparing = ##class(DOM.PM.TBXProduct.impl.TBXSifonType3Uitsparing).%New(..GeefUitsparingDiepte(),..GeefSifonBreedte(),..GeefAfstandTotZijkantLinks(),..GeefAfstandTotZijkantRechts(), SifonkapKleur)
+			Do ..Uitsparingen.Insert(SifonType3Uitsparing)
 		}
-		Else
-		{
-			Set RondeUitsparing = ##class(DOM.PM.TBXProduct.impl.TBXRondeUitsparing).%New(..GeefUitsparingDiepte(),..GeefSifonBreedte(),..GeefAfstandTotZijkantLinks(),..GeefAfstandTotZijkantRechts2(),Radius)
-			Do ..Uitsparingen.Insert(RondeUitsparing)
-			Set RondeUitsparing = ##class(DOM.PM.TBXProduct.impl.TBXRondeUitsparing).%New(..GeefUitsparingDiepte(),..GeefSifonBreedte(),..GeefAfstandTotZijkantLinks2(),..GeefAfstandTotZijkantRechts(),Radius)
-			Do ..Uitsparingen.Insert(RondeUitsparing)
+		Else {
+			Set SifonType3Uitsparing = ##class(DOM.PM.TBXProduct.impl.TBXSifonType3Uitsparing).%New(..GeefUitsparingDiepte(),..GeefSifonBreedte(),..GeefAfstandTotZijkantLinks(),..GeefAfstandTotZijkantRechts2(), SifonkapKleur)
+			Do ..Uitsparingen.Insert(SifonType3Uitsparing)
+			Set SifonType3Uitsparing = ##class(DOM.PM.TBXProduct.impl.TBXSifonType3Uitsparing).%New(..GeefUitsparingDiepte(),..GeefSifonBreedte(),..GeefAfstandTotZijkantLinks2(),..GeefAfstandTotZijkantRechts(), SifonkapKleur)
+			Do ..Uitsparingen.Insert(SifonType3Uitsparing)
 		}
 	}
 	Quit ..Uitsparingen
@@ -44,30 +38,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefAfstandTotZijkantLinks">
-<ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[
-	Set Afstand = ##super()
-	If (Afstand = "")
-	{
-		Set Afstand = ..BerekenAfstandSymmetrischeSifon()
-	}
-	Quit Afstand
-]]></Implementation>
-</Method>
-
-<Method name="GeefAfstandTotZijkantRechts">
-<ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[
-	Set Afstand = ##super()
-	If (Afstand = "")
-	{
-		Set Afstand = ..BerekenAfstandSymmetrischeSifon()
-	}
-	Quit Afstand
-]]></Implementation>
-</Method>
-
 <Method name="GeefAfstandTotZijkantLinks2">
 <Private>1</Private>
 <ReturnType>%Integer</ReturnType>
@@ -92,13 +62,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="BerekenAfstandSymmetrischeSifon">
-<Private>1</Private>
-<ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[	Quit (..GeefInterneBreedte()-..GeefSifonBreedte())/2
-]]></Implementation>
-</Method>
-
 <Method name="GeefSifonBreedte">
 <Private>1</Private>
 <ReturnType>%Integer</ReturnType>
@@ -116,16 +79,6 @@
 	If ##class(TECH.StringUtils).Equals(SifonType, "SIF3_01", "SIF3_01.x2") {
 		Set Diepte = 227
 	}
-	/*
-	ElseIf ((SifonType = ##class(DOM.PM.enu.TBXSifonType).EnkeleSifon()) || (SifonType = ##class(DOM.PM.enu.TBXSifonType).DubbeleSifon()))
-	{
-		Set Diepte = 186
-	}
-	Elseif ((SifonType = ##class(DOM.PM.enu.TBXSifonType).EnkeleDiepeSifon()) || (SifonType = ##class(DOM.PM.enu.TBXSifonType).DubbeleDiepeSifon()))
-	{
-		Set Diepte = 250
-	}
-	*/
 	Quit Diepte
 ]]></Implementation>
 </Method>