Index: DOM/PM/Maatwerk/Calc/Common/impl/TBXKenmerken.cls.xml
===================================================================
diff -u -r56890 -r59178
--- DOM/PM/Maatwerk/Calc/Common/impl/TBXKenmerken.cls.xml	(.../TBXKenmerken.cls.xml)	(revision 56890)
+++ DOM/PM/Maatwerk/Calc/Common/impl/TBXKenmerken.cls.xml	(.../TBXKenmerken.cls.xml)	(revision 59178)
@@ -258,384 +258,6 @@
 ]]></Implementation>
 </Method>
 
-<UDLText name="T">
-<Content><![CDATA[
-/***  * /
-/***  =========== ==== =======   *** /
-/***  instantiate with Default   *** /
-/***  =========== ==== =======   *** /
-/***  */
-]]></Content>
-</UDLText>
-
-<Method name="InstanceWithDefaults">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>LadeKleur:%String,BodemKleur:%String,LadeDiepte:%Integer,Draagkracht:%Integer,InbouwBreedte:%Integer</FormalSpec>
-<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken</ReturnType>
-<Implementation><![CDATA[
-	Set TBXKenmerken=..%New()
-	Do TBXKenmerken.InitDefaultsAll()
-
-	Do TBXKenmerken.ZetKenmerkenLadeKleur(LadeKleur)
-	Do TBXKenmerken.ZetKenmerkenHoutKleur(BodemKleur)
-	Set TBXKenmerken.LadeDiepte = LadeDiepte
-	Set TBXKenmerken.Draagkracht = Draagkracht
-	Set TBXKenmerken.CorpusBinnenbreedte = InbouwBreedte
-
-	Quit TBXKenmerken
-]]></Implementation>
-</Method>
-
-<Method name="InitDefaultsAll">
-<Implementation><![CDATA[
-	Set ..GeleiderTechnologie = ##class(DOM.PM.enu.TBXGeleiderTechnologie).Blumotion()
-	Set ..HeeftOpvullijstLinks = 0
-	Set ..HeeftOpvullijstRechts = 0
-	Set ..Antislipmat = "0"
-	Set ..FrontOndersteuningType = ##class(DOM.PM.enu.TBXFrontOndersteuningType).FrontSteun()
-	Set ..HangmapBoringAantal = 0
-	Set ..DwarsverdelingAantal = ##class(DOM.PM.enu.TBXDwarsverdeling).Zonder()
-	Set ..RugwandMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Hout()
-	Set ..VerpakkingType = ##class(DOM.PM.enu.TBXVerpakkingType).V1()   ; Stuk 
-	Set ..PlaatMateriaal="HS"
-]]></Implementation>
-</Method>
-
-<Method name="ZetKenmerkenLadeKleur">
-<FormalSpec>LadeKleur:%String</FormalSpec>
-<Implementation><![CDATA[
-	If ##class(DOM.PM.enu.TBXLadeKleur).IsValid(LadeKleur) {
-		Set ..LadeKleur=LadeKleur
-		Set ..RugHouderKleur=LadeKleur
-		Set ..FrontHouderKleur=LadeKleur
-	}
-]]></Implementation>
-</Method>
-
-<Method name="ZetKenmerkenHoutKleur">
-<FormalSpec>BodemKleur:%String</FormalSpec>
-<Implementation><![CDATA[
-	If ##class(DOM.PM.enu.TBXHoutKleur).IsValid(BodemKleur) {
-		Set ..BodemKleur=BodemKleur
-		Set ..RugKleur=BodemKleur
-	}
-]]></Implementation>
-</Method>
-
-<UDLText name="T">
-<Content><![CDATA[
-/***  * /
-/***  ==== =========  *** /
-/***  Maak Varianten  *** /
-/***  ==== =========  *** /
-/***  */
-]]></Content>
-</UDLText>
-
-<Method name="MaakVariantPlus">
-<Implementation><![CDATA[
-	Set ..LadeVariant = ##class(DOM.PM.enu.LadeVariant).TBXPlus()
-	Set ..ZijkantDesign = "S"
-]]></Implementation>
-</Method>
-
-<Method name="MaakVariantIntivo">
-<Implementation><![CDATA[
-	Set ..LadeVariant = ##class(DOM.PM.enu.LadeVariant).TBXIntivo()
-	Set ..ZijkantDesign = "A"
-]]></Implementation>
-</Method>
-
-<Method name="MaakVariantAntaro">
-<Implementation><![CDATA[
-	Set ..LadeVariant = ##class(DOM.PM.enu.LadeVariant).TBXAntaro()
-	Set ..ZijkantDesign = "A"
-]]></Implementation>
-</Method>
-
-<UDLText name="T">
-<Content><![CDATA[
-/***  * /
-/***  ==== ========== ===== ====  *** /
-/***  Maak specifieke soort lade  *** /     /* i.e. lade, binnenlade, sifonlade, sifonbinnenlade, spoelbaklade * /
-/***  ==== ========== ===== ====  *** /
-/***  */
-]]></Content>
-</UDLText>
-
-<Method name="MaakBinnenlade">
-<Implementation><![CDATA[
-	Set ..Toepassing = ##class(DOM.PM.enu.TBXToepassing).Lade()
-	Set ..IsBinnenlade = 1
-	Set ..FrontBevestiging = ##class(DOM.PM.enu.TBXFrontBevestiging).Zonder()
-]]></Implementation>
-</Method>
-
-<Method name="MaakLade">
-<Implementation><![CDATA[
-	Set ..Toepassing = ##class(DOM.PM.enu.TBXToepassing).Lade()
-	Set ..IsBinnenlade = 0
-	Set ..FrontBevestiging = ##class(DOM.PM.enu.TBXFrontBevestiging).Schroef()
-]]></Implementation>
-</Method>
-
-<Method name="MaakSifonlade">
-<Implementation><![CDATA[
-	Set ..Toepassing = ##class(DOM.PM.enu.TBXToepassing).SifonType1()
-	Set ..IsBinnenlade = 0
-	Set ..FrontBevestiging = ##class(DOM.PM.enu.TBXFrontBevestiging).Schroef()
-	Set ..UitsparingBreedte1 = 119
-	Set ..UitsparingDiepte = 186
-]]></Implementation>
-</Method>
-
-<Method name="MaakSifonBinnenlade">
-<Implementation><![CDATA[
-	Set ..Toepassing = ##class(DOM.PM.enu.TBXToepassing).SifonType1()
-	Set ..IsBinnenlade = 1
-	Set ..FrontBevestiging = ##class(DOM.PM.enu.TBXFrontBevestiging).Zonder()
-	Set ..UitsparingBreedte1 = 119
-	Set ..UitsparingDiepte = 186
-]]></Implementation>
-</Method>
-
-<Method name="MaakSpoelbaklade">
-<Implementation><![CDATA[
-	Set ..Toepassing = ##class(DOM.PM.enu.TBXToepassing).Spoelbak()
-	Set ..IsBinnenlade = 0
-	Set ..FrontBevestiging = ##class(DOM.PM.enu.TBXFrontBevestiging).Schroef()
-]]></Implementation>
-</Method>
-
-<UDLText name="T">
-<Content><![CDATA[
-/***  * /
-/***  ==== ========== ==== === ========  *** /
-/***  Maak specifieke lade via LadeCode  *** /     /* i.e. ladecodes zijn bijvoorbeeld  M, M/Z, B, B/Z, DY, DLS, DY/Z, CMY/Z   * /
-/***  ==== ========== ==== === ========  *** /
-/***  */
-]]></Content>
-</UDLText>
-
-<Method name="MaakViaCodeM">
-<Description>
-De LadeVariant moet ZELF ingevuld worden </Description>
-<Implementation><![CDATA[
-	Do ..MaakLade()
-	
-	Set ..ZijkantHoogte = "M"
-	Set ..LadeHoogte = "M"
-	Set ..RugHoogte = ..LadeHoogte
-	Set ..ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).Laag()
-	Set ..VoorwandVerhogingType = ##class(DOM.PM.enu.TBXVoorwandVerhogingType).Geen()
-]]></Implementation>
-</Method>
-
-<Method name="MaakViaCodeMZ">
-<Description>
-De LadeVariant moet ZELF ingevuld worden </Description>
-<Implementation><![CDATA[
-	Do ..MaakBinnenlade()
-	
-	Set ..ZijkantHoogte = "M"
-	Set ..LadeHoogte = "M"
-	Set ..RugHoogte = ..LadeHoogte
-	Set ..ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).Laag()
-	Set ..VoorwandVerhogingType = ##class(DOM.PM.enu.TBXVoorwandVerhogingType).Geen()
-]]></Implementation>
-</Method>
-
-<Method name="MaakViaCodeB">
-<Description>
-De LadeVariant moet OP VOORHAND ingevuld zijn (plus of antaro) </Description>
-<Implementation><![CDATA[
-	Do ..MaakLade()
-	
-	If (..LadeVariant = ##class(DOM.PM.enu.LadeVariant).TBXPlus()) || (..LadeVariant = ##class(DOM.PM.enu.LadeVariant).TBXAntaro()) {
-		Set ..ZijkantHoogte = "M"
-		Set ..LadeHoogte = "B"
-		Set ..RugHoogte = ..LadeHoogte
-		Set ..ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).Reling()
-		Set ..ZijwandVerhogingAantal = 1
-		Set ..VoorwandVerhogingType = ##class(DOM.PM.enu.TBXVoorwandVerhogingType).Geen()
-	}
-	Else {
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("LadeCode niet mogelijk voor deze ladevariant"))
-	}
-]]></Implementation>
-</Method>
-
-<Method name="MaakViaCodeBZ">
-<Description>
-De LadeVariant moet OP VOORHAND ingevuld zijn (alleen voor plus) </Description>
-<Implementation><![CDATA[
-	Do ..MaakBinnenlade()
-	
-	If (..LadeVariant = ##class(DOM.PM.enu.LadeVariant).TBXPlus()) {
-		Set ..ZijkantHoogte = "M"
-		Set ..LadeHoogte = "B"
-		Set ..RugHoogte = ..LadeHoogte
-		Set ..ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).Reling()
-		Set ..ZijwandVerhogingAantal = 1
-		Set ..VoorwandVerhogingType = ##class(DOM.PM.enu.TBXVoorwandVerhogingType).Geen()
-	}
-	Else {
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("LadeCode niet mogelijk voor deze ladevariant"))
-	}
-]]></Implementation>
-</Method>
-
-<Method name="MaakViaCodeC">
-<Description>
-De LadeVariant moet OP VOORHAND ingevuld zijn (alleen voor plus) 
-Voor intivo : MaakViaCodeCL() 
-Voor antaro : MaakViaCodeCM() </Description>
-<Implementation><![CDATA[
-	Do ..MaakLade()
-	
-	If (..LadeVariant = ##class(DOM.PM.enu.LadeVariant).TBXPlus()) {
-		Set ..ZijkantHoogte = "K"
-		Set ..LadeHoogte = "C"
-		Set ..RugHoogte = ..LadeHoogte
-		Set ..ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).Reling()
-		Set ..ZijwandVerhogingAantal = 1
-		Set ..VoorwandVerhogingType = ##class(DOM.PM.enu.TBXVoorwandVerhogingType).Geen()
-	}
-	Else {
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("LadeCode niet mogelijk voor deze ladevariant"))
-	}
-]]></Implementation>
-</Method>
-
-<Method name="MaakViaCodeCZ">
-<Description>
-De LadeVariant moet OP VOORHAND ingevuld zijn (alleen voor plus) 
-Voor intivo : MaakViaCodeCLZ() 
-Voor antaro : MaakViaCodeCMZ() </Description>
-<Implementation><![CDATA[
-	;Do ..MaakVariantPlus()
-	Do ..MaakBinnenlade()
-	
-	If (..LadeVariant = ##class(DOM.PM.enu.LadeVariant).TBXPlus()) {
-		Set ..ZijkantHoogte = "K"
-		Set ..LadeHoogte = "C"
-		Set ..RugHoogte = ..LadeHoogte
-		Set ..ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).Reling()
-		Set ..ZijwandVerhogingAantal = 1
-		Set ..VoorwandVerhogingType = ##class(DOM.PM.enu.TBXVoorwandVerhogingType).Reling()
-	}
-	Else {
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("LadeCode niet mogelijk voor deze ladevariant"))
-	}
-]]></Implementation>
-</Method>
-
-<Method name="MaakViaCodeD">
-<Description>
-De LadeVariant moet OP VOORHAND ingevuld zijn (alleen voor plus) 
-Voor intivo : MaakViaCodeDL() </Description>
-<Implementation><![CDATA[
-	;Do ..MaakVariantPlus()
-	Do ..MaakLade()
-	
-	If ..LadeVariant = ##class(DOM.PM.enu.LadeVariant).TBXPlus() {
-		Set ..ZijkantHoogte = "M"
-		Set ..LadeHoogte = "D"
-		Set ..RugHoogte = ..LadeHoogte
-		Set ..ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).Reling()
-		Set ..ZijwandVerhogingAantal = 2
-		Set ..VoorwandVerhogingType = ##class(DOM.PM.enu.TBXVoorwandVerhogingType).Geen()
-	}
-	Else {
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("LadeCode niet mogelijk voor deze ladevariant"))
-	}
-]]></Implementation>
-</Method>
-
-<Method name="MaakViaCodeMS2">
-<Description>
-De LadeVariant moet ZELF ingevuld worden </Description>
-<Implementation><![CDATA[
-	Do ..MaakSpoelbaklade()
-	
-	Set ..ZijkantHoogte = "M"
-	Set ..LadeHoogte = "M"
-	Set ..SpoelbakBinnenzijwandHoogte = "M"
-	Set ..RugHoogte = ..LadeHoogte
-	Set ..ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).Laag()
-	Set ..VoorwandVerhogingType = ##class(DOM.PM.enu.TBXVoorwandVerhogingType).Geen()
-]]></Implementation>
-</Method>
-
-<Method name="MaakViaCodeDS2">
-<Description>
-De LadeVariant moet OP VOORHAND ingevuld zijn (alleen voor plus) 
-Voor intivo : MaakViaCodeDLS2() </Description>
-<Implementation><![CDATA[
-	;Do ..MaakVariantPlus()
-	Do ..MaakSpoelbaklade()
-	
-	If ..LadeVariant = ##class(DOM.PM.enu.LadeVariant).TBXPlus() {
-		Set ..ZijkantHoogte = "M"
-		Set ..LadeHoogte = "D"
-		Set ..SpoelbakBinnenzijwandHoogte = "D"
-		Set ..RugHoogte = ..LadeHoogte
-		Set ..ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).Boxside()
-		Set ..ZijwandVerhogingAantal = 1
-		Set ..VoorwandVerhogingType = ##class(DOM.PM.enu.TBXVoorwandVerhogingType).Geen()	
-		Set ..DwarsverdelingAantal = ##class(DOM.PM.enu.TBXDwarsverdeling).TweeMaalTwee()	
-	}
-	Else {
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("LadeCode niet mogelijk voor deze ladevariant"))
-	}
-]]></Implementation>
-</Method>
-
-<Method name="MaakViaCodeDY">
-<Description>
-De LadeVariant moet OP VOORHAND ingevuld zijn (alleen voor plus) 
-Voor intivo : MaakViaCodeDLY() </Description>
-<Implementation><![CDATA[
-	;Do ..MaakVariantPlus()
-	Do ..MaakSifonlade()
-	
-	If ..LadeVariant = ##class(DOM.PM.enu.LadeVariant).TBXPlus() {
-		Set ..ZijkantHoogte = "M"
-		Set ..LadeHoogte = "D"
-		Set ..RugHoogte = ..LadeHoogte
-		Set ..ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).Reling()
-		Set ..ZijwandVerhogingAantal = 2
-		Set ..VoorwandVerhogingType = ##class(DOM.PM.enu.TBXVoorwandVerhogingType).Geen()
-	}
-	Else {
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("LadeCode niet mogelijk voor deze ladevariant"))
-	}
-]]></Implementation>
-</Method>
-
-<Method name="MaakViaCodeDYZ">
-<Description>
-De LadeVariant moet OP VOORHAND ingevuld zijn (alleen voor plus) 
-Voor intivo : MaakViaCodeDLYZ() </Description>
-<Implementation><![CDATA[
-	;Do ..MaakVariantPlus()
-	Do ..MaakSifonBinnenlade()
-	
-	If ..LadeVariant = ##class(DOM.PM.enu.LadeVariant).TBXPlus() {
-		Set ..ZijkantHoogte = "M"
-		Set ..LadeHoogte = "D"
-		Set ..RugHoogte = ..LadeHoogte
-		Set ..ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).Reling()
-		Set ..ZijwandVerhogingAantal = 2
-		Set ..VoorwandVerhogingType = ##class(DOM.PM.enu.TBXVoorwandVerhogingType).Reling()
-		Set ..VoorwandMetGreep = 1
-	}
-	Else {
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("LadeCode niet mogelijk voor deze ladevariant"))
-	}
-]]></Implementation>
-</Method>
-
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DefaultData>TBXKenmerkenDefaultData</DefaultData>