Index: APPS/PM/Maatwerk/impl/DtoNaarKenmerkVisitor.cls.xml
===================================================================
diff -u -r39414 -r45773
--- APPS/PM/Maatwerk/impl/DtoNaarKenmerkVisitor.cls.xml	(.../DtoNaarKenmerkVisitor.cls.xml)	(revision 39414)
+++ APPS/PM/Maatwerk/impl/DtoNaarKenmerkVisitor.cls.xml	(.../DtoNaarKenmerkVisitor.cls.xml)	(revision 45773)
@@ -15,14 +15,21 @@
 <Private>1</Private>
 </Property>
 
+<Property name="LbxConverter">
+<Type>APPS.PM.Maatwerk.impl.LBX.DtoNaarKenmerkConverter</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>InbouwBreedteBerekenaar:APPS.PM.Maatwerk.Lade.impl.InbouwBreedteBerekenaar</FormalSpec>
+<FormalSpec>InbouwBreedteBerekenaar:APPS.PM.Maatwerk.Lade.impl.InbouwBreedteBerekenaar,LbxConverter:APPS.PM.Maatwerk.impl.LBX.DtoNaarKenmerkConverter</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	set ..InbouwBreedteBerekenaar = $$$Implementation(InbouwBreedteBerekenaar,##class(APPS.PM.Maatwerk.Lade.impl.InbouwBreedteBerekenaar).%New())
+	Set ..InbouwBreedteBerekenaar = $$$Inject(InbouwBreedteBerekenaar,##class(APPS.PM.Maatwerk.Lade.impl.InbouwBreedteBerekenaar).%New())
+	Set ..LbxConverter = $$$Inject(LbxConverter, ##class(APPS.PM.Maatwerk.impl.LBX.DtoNaarKenmerkConverter).%New())
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -199,106 +206,40 @@
 <FormalSpec>LBXKenmerken:APPS.PM.Maatwerk.dto.LBXKenmerken</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	set IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerkenv01).%New()
-	set ..IngegevenKenmerken = IngegevenKenmerken  
-		
-	try {
-		Set IngegevenKenmerken.InterneBreedte = ..InbouwBreedteBerekenaar.BerekenInbouwBreedte(LBXKenmerken)
-	} catch {
-		#dim Exception As TECH.Exceptions.GeneralErrorException = ##class(TECH.ExceptionHandler).Catch()
-	}
+	#dim DomKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..LbxConverter.Convert(LBXKenmerken)
 	
-	set IngegevenKenmerken.ProductieWijze = LBXKenmerken.ProductieWijze
-	if LBXKenmerken.ProductieWijze = ##class(APPS.PM.enu.LBXProductieWijze).Volledig() {
-		set IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.LBXProductieWijze).Volledig()
-	}
+	Set ..IngegevenKenmerken = DomKenmerken  
 	
-	Set IngegevenKenmerken.Klasse = LBXKenmerken.Klasse
-	
-	Set IngegevenKenmerken.LadeKleur = LBXKenmerken.LadeKleur
-	Set IngegevenKenmerken.BodemKleur = LBXKenmerken.BodemKleur
-	Set IngegevenKenmerken.LadeHoogte = LBXKenmerken.LadeHoogte
-	Set IngegevenKenmerken.LadeDiepte = LBXKenmerken.LadeDiepte
-	Set IngegevenKenmerken.IsBinnenlade = LBXKenmerken.IsBinnenlade
-	Set IngegevenKenmerken.RugWandMateriaal = LBXKenmerken.RugWandMateriaal
-	Set IngegevenKenmerken.HeeftOpvullijstLinks = LBXKenmerken.HeeftOpvullijstLinks
-	Set IngegevenKenmerken.HeeftOpvullijstRechts = LBXKenmerken.HeeftOpvullijstRechts
-	Set IngegevenKenmerken.HeeftZijstabilisering = LBXKenmerken.HeeftZijstabilisering
-	Set IngegevenKenmerken.FrontBevestiging = LBXKenmerken.FrontBevestiging
-	Set IngegevenKenmerken.GeleiderTechnologie = LBXKenmerken.GeleiderTechnologie
-	Set IngegevenKenmerken.Draagkracht = LBXKenmerken.Draagkracht
-	Set IngegevenKenmerken.VerpakkingType = LBXKenmerken.VerpakkingType
-	Set IngegevenKenmerken.RugHoogte = LBXKenmerken.RugHoogte
-	Set IngegevenKenmerken.OpvullijstKleur = LBXKenmerken.OpvullijstKleur
-	
-	Do ..VerwerkLBXVoorWand( LBXKenmerken, IngegevenKenmerken )
-
-	Set IngegevenKenmerken.GUIKenmerken.IsBinnenbreedte = LBXKenmerken.IsBinnenbreedte
-	Set IngegevenKenmerken.GUIKenmerken.WandDikte = LBXKenmerken.CorpusWandDikte
-	
 	Do ..WisInterneBreedteIndienNul(LBXKenmerken, ..IngegevenKenmerken)	
 	
 	If ##class(APPS.ApplicatieContext).Instance().GeefIngegevenKenmerkenTypeAPI().IsSifonlade(LBXKenmerken) {
-		Set IngegevenKenmerken.RugHoogte = ##class(DOM.PM.enu.LBXRugHoogte).M()
-	}
-	ElseIf (IngegevenKenmerken.RugHoogte = "") {
+		Set DomKenmerken.RugHoogte = ##class(DOM.PM.enu.LBXRugHoogte).M()
+	} ElseIf (DomKenmerken.RugHoogte = "") {
 		#dim RugUtils As DOM.PM.Maatwerk.Lade.RugUtils = ##class(DOM.DomeinContext).Instance().GeefMaatwerkCalcAPI().GeefLadeRugUtils(##class(DOM.PM.enu.LadeVariant).LBXPure())
-		Set IngegevenKenmerken.RugHoogte = RugUtils.GeefRugHoogteVoorLadeHoogte(IngegevenKenmerken.LadeHoogte)
+		Set DomKenmerken.RugHoogte = RugUtils.GeefRugHoogteVoorLadeHoogte(DomKenmerken.LadeHoogte)
 	}
 
 	//#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerkenv01
-	Set IngegevenKenmerken.UitsparingData.RugDeelX = LBXKenmerken.UitsparingDataBreedteX
-	Set IngegevenKenmerken.UitsparingData.RugDeelM = LBXKenmerken.UitsparingDataBreedteM
-	Set IngegevenKenmerken.UitsparingData.RugDeelY = LBXKenmerken.UitsparingDataBreedteY
+	Set DomKenmerken.UitsparingData.RugDeelX = LBXKenmerken.UitsparingDataBreedteX
+	Set DomKenmerken.UitsparingData.RugDeelM = LBXKenmerken.UitsparingDataBreedteM
+	Set DomKenmerken.UitsparingData.RugDeelY = LBXKenmerken.UitsparingDataBreedteY
 	// Momenteel doen we niets met de breedtevelden van de uitsparingen Z1 en Z2. We gebruiken intern enkel de code.
-	Set IngegevenKenmerken.UitsparingData.UitsparingZ1 = LBXKenmerken.UitsparingDataCodeZ1
-	Set IngegevenKenmerken.UitsparingData.UitsparingZ2 = LBXKenmerken.UitsparingDataCodeZ2
-	Set IngegevenKenmerken.UitsparingData.AantalUitsparingen = LBXKenmerken.UitsparingDataAantalUitsparingen
+	Set DomKenmerken.UitsparingData.UitsparingZ1 = LBXKenmerken.UitsparingDataCodeZ1
+	Set DomKenmerken.UitsparingData.UitsparingZ2 = LBXKenmerken.UitsparingDataCodeZ2
+	Set DomKenmerken.UitsparingData.AantalUitsparingen = LBXKenmerken.UitsparingDataAantalUitsparingen
 	
-	Set IngegevenKenmerken.ZijWandType = LBXKenmerken.ZijWandType
+	Set DomKenmerken.ZijWandType = LBXKenmerken.ZijWandType
 	If LBXKenmerken.ZijWandType = ##class(DOM.PM.enu.LBXZijWandType).Free() {
-		Set IngegevenKenmerken.ZijWandVerhogingMateriaal = ##class(DOM.PM.enu.LBXZijWandVerhogingMateriaal).GlasDiamant()
+		Set DomKenmerken.ZijWandVerhogingMateriaal = ##class(DOM.PM.enu.LBXZijWandVerhogingMateriaal).GlasDiamant()
 	}
 	
-	Set IngegevenKenmerken.GUIKenmerken.HeeftDwarsverdeling = +LBXKenmerken.HeeftDwarsverdeling
-	Set IngegevenKenmerken.AantalDwarsverdelingen = $Select(+LBXKenmerken.HeeftDwarsverdeling:+LBXKenmerken.AantalDwarsverdelingen, 1:0)
+	Set DomKenmerken.GUIKenmerken.HeeftDwarsverdeling = +LBXKenmerken.HeeftDwarsverdeling
+	Set DomKenmerken.AantalDwarsverdelingen = $Select(+LBXKenmerken.HeeftDwarsverdeling:+LBXKenmerken.AantalDwarsverdelingen, 1:0)
 
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
-<Method name="VerwerkLBXVoorWand">
-<FormalSpec>LBXKenmerken:APPS.PM.Maatwerk.dto.LBXKenmerken,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	If ($$$Not(LBXKenmerken.VoorWandTypeVanMBinnenlade = "") && (LBXKenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).M()) ) {
-		
-		If (LBXKenmerken.VoorWandTypeVanMBinnenlade = ##class(DOM.PM.enu.LBXVoorWandTypeVanMBinnenlade).Glas()) {
-			Set IngegevenKenmerken.VoorWandType = ##class(DOM.PM.enu.LBXVoorWandType).Vulling()
-			Set IngegevenKenmerken.VoorWandVerhogingMateriaal = ##class(DOM.PM.enu.LBXVoorWandVerhogingMateriaal).GlasDiamant()
-		} ElseIf (LBXKenmerken.VoorWandTypeVanMBinnenlade = ##class(DOM.PM.enu.LBXVoorWandTypeVanMBinnenlade).Metaal()) {
-			Set IngegevenKenmerken.VoorWandType = ##class(DOM.PM.enu.LBXVoorWandType).Voorstuk()
-		}
-		
-	} ElseIf ($$$Not(LBXKenmerken.VoorWandTypeVanCBinnenlade = "") && (LBXKenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).C()) ) {
-		
-		If (LBXKenmerken.VoorWandTypeVanCBinnenlade = ##class(DOM.PM.enu.LBXVoorWandTypeVanCBinnenlade).Reling()) {
-			Set IngegevenKenmerken.VoorWandType = ##class(DOM.PM.enu.LBXVoorWandType).Reling()
-		} Else {
-			If (LBXKenmerken.VoorWandTypeVanCBinnenlade = ##class(DOM.PM.enu.LBXVoorWandTypeVanCBinnenlade).GlasLaag()) {
-				Set IngegevenKenmerken.VoorWandType = ##class(DOM.PM.enu.LBXVoorWandType).Vulling()
-				Set IngegevenKenmerken.VoorWandVerhogingMateriaal = ##class(DOM.PM.enu.LBXVoorWandVerhogingMateriaal).GlasDiamant()
-				Set IngegevenKenmerken.VoorWandVerhogingHoogte = ##class(DOM.PM.enu.LBXVoorWandVerhogingHoogte).Laag()
-			} ElseIf (LBXKenmerken.VoorWandTypeVanCBinnenlade = ##class(DOM.PM.enu.LBXVoorWandTypeVanCBinnenlade).GlasHoog()) {
-				Set IngegevenKenmerken.VoorWandType = ##class(DOM.PM.enu.LBXVoorWandType).Vulling()
-				Set IngegevenKenmerken.VoorWandVerhogingMateriaal = ##class(DOM.PM.enu.LBXVoorWandVerhogingMateriaal).GlasDiamant()
-				Set IngegevenKenmerken.VoorWandVerhogingHoogte = ##class(DOM.PM.enu.LBXVoorWandVerhogingHoogte).Hoog()
-			}
-		}
-	}
-]]></Implementation>
-</Method>
-
 <Method name="WisInterneBreedteIndienNul">
 <FormalSpec>Kenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
 <Private>1</Private>
Index: vhTest/Mock/DOM/PM/Maatwerk/Calc/Common/impl/LBXKenmerkenFactory.cls.xml
===================================================================
diff -u
--- vhTest/Mock/DOM/PM/Maatwerk/Calc/Common/impl/LBXKenmerkenFactory.cls.xml	(revision 0)
+++ vhTest/Mock/DOM/PM/Maatwerk/Calc/Common/impl/LBXKenmerkenFactory.cls.xml	(revision 45773)
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerkenFactory">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerkenFactory,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="Maak">
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("Maak")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/PM/Maatwerk/impl/LBX/DtoNaarKenmerkConverter/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/PM/Maatwerk/impl/LBX/DtoNaarKenmerkConverter/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/PM/Maatwerk/impl/LBX/DtoNaarKenmerkConverter/Test.cls.xml	(revision 45773)
@@ -0,0 +1,119 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.PM.Maatwerk.impl.LBX.DtoNaarKenmerkConverter.Test">
+<Super>vhUnitTest.DOM.PM.Maatwerk.LBX.Base</Super>
+
+<Property name="Converter">
+<Type>APPS.PM.Maatwerk.impl.LBX.DtoNaarKenmerkConverter</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Do ##super()
+	
+	Set ..Converter = ##class(APPS.PM.Maatwerk.impl.LBX.DtoNaarKenmerkConverter).%New()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Conversie ProductieWijze">
+<Implementation><![CDATA[
+	Do ..AssertProductieWijze(##class(APPS.PM.enu.LBXProductieWijze).Volledig(), ##class(DOM.PM.enu.LBXProductieWijze).Volledig())
+	
+	Do ..AssertProductieWijze(##class(DOM.PM.enu.LBXProductieWijze).Bodem(), ##class(DOM.PM.enu.LBXProductieWijze).Bodem())
+	Do ..AssertProductieWijze(##class(DOM.PM.enu.LBXProductieWijze).BodemEnRug(), ##class(DOM.PM.enu.LBXProductieWijze).BodemEnRug())
+	Do ..AssertProductieWijze(##class(DOM.PM.enu.LBXProductieWijze).Front(), ##class(DOM.PM.enu.LBXProductieWijze).Front())
+	Do ..AssertProductieWijze(##class(DOM.PM.enu.LBXProductieWijze).Rug(), ##class(DOM.PM.enu.LBXProductieWijze).Rug())
+	Do ..AssertProductieWijze(##class(DOM.PM.enu.LBXProductieWijze).RugMetHouders(), ##class(DOM.PM.enu.LBXProductieWijze).RugMetHouders())
+]]></Implementation>
+</Method>
+
+<Method name="Test: Velden worden overgenomen van DTO kenmerken zonder conversie">
+<Implementation><![CDATA[
+	Do ..Assert(..Enum.KenmerkNaam.Klasse, ..Enum.KenmerkNaam.Klasse, "RandomKlasse", "RandomKlasse")
+	Do ..Assert(..Enum.KenmerkNaam.LadeKleur, ..Enum.KenmerkNaam.LadeKleur, "RandomLadeKleur", "RandomLadeKleur")
+	Do ..Assert(..Enum.KenmerkNaam.BodemKleur, ..Enum.KenmerkNaam.BodemKleur, "RandomBodemKleur", "RandomBodemKleur")
+	Do ..Assert(..Enum.KenmerkNaam.LadeHoogte, ..Enum.KenmerkNaam.LadeHoogte, "RandomLadeHoogte", "RandomLadeHoogte")
+	Do ..Assert(..Enum.KenmerkNaam.LadeDiepte, ..Enum.KenmerkNaam.LadeDiepte, "RandomLadeDiepte", "RandomLadeDiepte")
+	Do ..Assert(..Enum.KenmerkNaam.IsBinnenlade, ..Enum.KenmerkNaam.IsBinnenlade, $$$True, $$$True)
+	Do ..Assert(..Enum.KenmerkNaam.RugWandMateriaal, ..Enum.KenmerkNaam.RugWandMateriaal, "RandomRugWandMateriaal", "RandomRugWandMateriaal")
+	Do ..Assert("HeeftOpvullijstLinks", "HeeftOpvullijstLinks", "RandomHeeftOpvullijstLinks", "RandomHeeftOpvullijstLinks")
+	Do ..Assert("HeeftOpvullijstRechts", "HeeftOpvullijstRechts", "RandomHeeftOpvullijstRechts", "RandomHeeftOpvullijstRechts")
+	Do ..Assert(..Enum.KenmerkNaam.HeeftZijstabilisering, ..Enum.KenmerkNaam.HeeftZijstabilisering, "RandomHeeftZijstabilisering", "RandomHeeftZijstabilisering")
+	Do ..Assert(..Enum.KenmerkNaam.FrontBevestiging, ..Enum.KenmerkNaam.FrontBevestiging, "RandomFrontBevestiging", "RandomFrontBevestiging")
+	Do ..Assert(..Enum.KenmerkNaam.GeleiderTechnologie, ..Enum.KenmerkNaam.GeleiderTechnologie, "RandomGeleiderTechnologie", "RandomGeleiderTechnologie")
+	Do ..Assert(..Enum.KenmerkNaam.Draagkracht, ..Enum.KenmerkNaam.Draagkracht, "RandomDraagkracht", "RandomDraagkracht")
+	Do ..Assert(..Enum.KenmerkNaam.VerpakkingType, ..Enum.KenmerkNaam.VerpakkingType, "RandomVerpakkingType", "RandomVerpakkingType")
+	Do ..Assert(..Enum.KenmerkNaam.RugHoogte, ..Enum.KenmerkNaam.RugHoogte, "RandomRugHoogte", "RandomRugHoogte")
+	Do ..Assert(..Enum.KenmerkNaam.OpvullijstKleur, ..Enum.KenmerkNaam.OpvullijstKleur, "RandomOpvullijstKleur", "RandomOpvullijstKleur")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Velden worden ingevuld op DOM GUI kenmerken zonder conversie">
+<Implementation><![CDATA[
+	#dim RandomWandDikte As %Integer = 1234
+	
+	Do ..AssertGuiKenmerk("CorpusWandDikte", "WandDikte", RandomWandDikte, RandomWandDikte)
+	Do ..AssertGuiKenmerk("IsBinnenbreedte", "IsBinnenbreedte", "RandomBinnenbreedte", "RandomBinnenbreedte")
+]]></Implementation>
+</Method>
+
+<Method name="Test: VoorWandTypeBepaler wordt opgeroepen">
+<Implementation><![CDATA[
+	#dim DtoKenmerken As APPS.PM.Maatwerk.dto.LBXKenmerken = ##class(APPS.PM.Maatwerk.dto.LBXKenmerken).%New()
+	#dim DomKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
+	
+	#dim LbxKenmerkenFactoryMock As vhTest.Mock.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerkenFactory = ##class(vhTest.Mock.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerkenFactory).%New()
+	Do LbxKenmerkenFactoryMock.VerwachtMethodCall("Maak").DanReturn(DomKenmerken)
+	
+	#dim InbouwBreedteBerekenaarMock As vhTest.Mock.APPS.PM.Maatwerk.Lade.impl.InbouwBreedteBerekenaar = ##class(vhTest.Mock.APPS.PM.Maatwerk.Lade.impl.InbouwBreedteBerekenaar).%New()
+	Do InbouwBreedteBerekenaarMock.VerwachtMethodCall("BerekenInbouwBreedte", DtoKenmerken)
+	
+	#dim VoorWandTypeBepalerMock As vhTest.Mock.APPS.PM.Maatwerk.impl.LBX.KenmerkNaarDtoConverter.VoorWandTypeBepaler = ##class(vhTest.Mock.APPS.PM.Maatwerk.impl.LBX.KenmerkNaarDtoConverter.VoorWandTypeBepaler).%New()
+	Do VoorWandTypeBepalerMock.VerwachtMethodCall("Bepaal", DtoKenmerken, DomKenmerken)
+	
+	#dim Converter As APPS.PM.Maatwerk.impl.LBX.DtoNaarKenmerkConverter = ##class(APPS.PM.Maatwerk.impl.LBX.DtoNaarKenmerkConverter).%New(LbxKenmerkenFactoryMock, InbouwBreedteBerekenaarMock, VoorWandTypeBepalerMock)
+	Do Converter.Convert(DtoKenmerken)
+	
+	Do LbxKenmerkenFactoryMock.Verifieer()
+	Do InbouwBreedteBerekenaarMock.Verifieer()
+	Do VoorWandTypeBepalerMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="AssertGuiKenmerk">
+<FormalSpec>DtoKenmerkNaam:%String,DomGuiKenmerkNaam:%String,DtoKenmerkWaarde:%String,VerwachteDomGuiKenmerkWaarde:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim DtoKenmerken As APPS.PM.Maatwerk.dto.LBXKenmerken  = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).LegeKenmerken()
+	Set $Property(DtoKenmerken, DtoKenmerkNaam) = DtoKenmerkWaarde
+	
+	#dim DomKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..Converter.Convert(DtoKenmerken)
+	
+	Do $$$AssertEquals($Property(DomKenmerken.GUIKenmerken, DomGuiKenmerkNaam), VerwachteDomGuiKenmerkWaarde)
+]]></Implementation>
+</Method>
+
+<Method name="AssertProductieWijze">
+<FormalSpec>DtoKenmerkWaarde:%String,VerwachteDomKenmerkWaarde:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Do ..Assert(..Enum.KenmerkNaam.ProductieWijze, ..Enum.KenmerkNaam.ProductieWijze, DtoKenmerkWaarde, VerwachteDomKenmerkWaarde)
+]]></Implementation>
+</Method>
+
+<Method name="Assert">
+<FormalSpec>DtoKenmerkNaam:%String,DomKenmerkNaam:%String,DtoKenmerkWaarde:%String,VerwachteDomKenmerkWaarde:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim DtoKenmerken As APPS.PM.Maatwerk.dto.LBXKenmerken  = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).LegeKenmerken()
+	Set $Property(DtoKenmerken, DtoKenmerkNaam) = DtoKenmerkWaarde
+	
+	#dim DomKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..Converter.Convert(DtoKenmerken)
+	
+	Do $$$AssertEquals($Property(DomKenmerken, DomKenmerkNaam), VerwachteDomKenmerkWaarde)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/PM/Maatwerk/impl/LBX/DtoNaarKenmerkConverter.cls.xml
===================================================================
diff -u
--- APPS/PM/Maatwerk/impl/LBX/DtoNaarKenmerkConverter.cls.xml	(revision 0)
+++ APPS/PM/Maatwerk/impl/LBX/DtoNaarKenmerkConverter.cls.xml	(revision 45773)
@@ -0,0 +1,107 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.PM.Maatwerk.impl.LBX.DtoNaarKenmerkConverter">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="InbouwBreedteBerekenaar">
+<Type>APPS.PM.Maatwerk.Lade.impl.InbouwBreedteBerekenaar</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="VoorWandTypeBepaler">
+<Type>APPS.PM.Maatwerk.impl.LBX.DtoNaarKenmerkConverter.VoorWandTypeBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LbxKenmerkenFactory">
+<Type>DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerkenFactory</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>LbxKenmerkenFactory:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerkenFactory="",InbouwBreedteBerekenaar:APPS.PM.Maatwerk.Lade.impl.InbouwBreedteBerekenaar="",VoorWandTypeBepaler:APPS.PM.Maatwerk.impl.LBX.DtoNaarKenmerkConverter.VoorWandTypeBepaler=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..LbxKenmerkenFactory = $$$Inject(LbxKenmerkenFactory, ##class(DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerkenFactory).%New())
+	Set ..InbouwBreedteBerekenaar = $$$Inject(InbouwBreedteBerekenaar, ##class(APPS.PM.Maatwerk.Lade.impl.InbouwBreedteBerekenaar).%New())
+	Set ..VoorWandTypeBepaler = $$$Inject(VoorWandTypeBepaler, ##class(APPS.PM.Maatwerk.impl.LBX.DtoNaarKenmerkConverter.VoorWandTypeBepaler).%New())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Convert">
+<FormalSpec>DtoKenmerken:APPS.PM.Maatwerk.dto.LBXKenmerken</FormalSpec>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim DomKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..LbxKenmerkenFactory.Maak()
+	
+	Set DomKenmerken.InterneBreedte = ..BerekenInbouwBreedte(DtoKenmerken)
+	Set DomKenmerken.ProductieWijze = ..BepaalProductieWijze(DtoKenmerken.ProductieWijze)
+	
+	Set DomKenmerken.Klasse = DtoKenmerken.Klasse
+	Set DomKenmerken.LadeKleur = DtoKenmerken.LadeKleur
+	Set DomKenmerken.BodemKleur = DtoKenmerken.BodemKleur
+	Set DomKenmerken.LadeHoogte = DtoKenmerken.LadeHoogte
+	Set DomKenmerken.LadeDiepte = DtoKenmerken.LadeDiepte
+	Set DomKenmerken.IsBinnenlade = DtoKenmerken.IsBinnenlade
+	Set DomKenmerken.RugWandMateriaal = DtoKenmerken.RugWandMateriaal
+	Set DomKenmerken.HeeftOpvullijstLinks = DtoKenmerken.HeeftOpvullijstLinks
+	Set DomKenmerken.HeeftOpvullijstRechts = DtoKenmerken.HeeftOpvullijstRechts
+	Set DomKenmerken.HeeftZijstabilisering = DtoKenmerken.HeeftZijstabilisering
+	Set DomKenmerken.FrontBevestiging = DtoKenmerken.FrontBevestiging
+	Set DomKenmerken.GeleiderTechnologie = DtoKenmerken.GeleiderTechnologie
+	Set DomKenmerken.Draagkracht = DtoKenmerken.Draagkracht
+	Set DomKenmerken.VerpakkingType = DtoKenmerken.VerpakkingType
+	Set DomKenmerken.RugHoogte = DtoKenmerken.RugHoogte
+	Set DomKenmerken.OpvullijstKleur = DtoKenmerken.OpvullijstKleur
+	
+	Set DomKenmerken.GUIKenmerken.IsBinnenbreedte = DtoKenmerken.IsBinnenbreedte
+	Set DomKenmerken.GUIKenmerken.WandDikte = DtoKenmerken.CorpusWandDikte
+	
+	Do ..VoorWandTypeBepaler.Bepaal(DtoKenmerken, .DomKenmerken)
+	
+	Quit DomKenmerken
+]]></Implementation>
+</Method>
+
+<Method name="BerekenInbouwBreedte">
+<FormalSpec>DtoKenmerken:APPS.PM.Maatwerk.dto.LBXKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Double</ReturnType>
+<Implementation><![CDATA[
+	#dim InbouwBreedte As %Double = 0
+	
+	Try {
+		Set InbouwBreedte = ..InbouwBreedteBerekenaar.BerekenInbouwBreedte(DtoKenmerken)
+	} Catch {
+		#dim Exception As TECH.Exceptions.GeneralErrorException = ##class(TECH.ExceptionHandler).Catch()
+	}
+	
+	Quit InbouwBreedte
+]]></Implementation>
+</Method>
+
+<Method name="BepaalProductieWijze">
+<FormalSpec>DtoProductieWijze:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.PM.enu.LBXProductieWijze</ReturnType>
+<Implementation><![CDATA[
+	#dim DomProductieWijze As DOM.PM.enu.LBXProductieWijze = ""
+	
+	If (DtoProductieWijze = ##class(APPS.PM.enu.LBXProductieWijze).Volledig()) {
+		Set DomProductieWijze = ##class(DOM.PM.enu.LBXProductieWijze).Volledig()
+	} Else {
+		Set DomProductieWijze = DtoProductieWijze
+	}
+	
+	Quit DomProductieWijze
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/PM/Maatwerk/impl/LBX/KenmerkNaarDtoConverter/Test.cls.xml
===================================================================
diff -u -r45764 -r45773
--- vhUnitTest/APPS/PM/Maatwerk/impl/LBX/KenmerkNaarDtoConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 45764)
+++ vhUnitTest/APPS/PM/Maatwerk/impl/LBX/KenmerkNaarDtoConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 45773)
@@ -61,7 +61,7 @@
 <Method name="Test: VoorWandTypeBepaler wordt opgeroepen">
 <Implementation><![CDATA[
 	#dim DomKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
-	#dim DtoKenmerken As APPS.PM.Maatwerk.dto.LBXKenmerken = ##class(APPS.PM.Maatwerk.dto.LBXKenmerken).%New()
+	#dim DtoKenmerken As APPS.PM.Maatwerk.dto.LBXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).LegeKenmerken()
 	
 	#dim LbxKenmerkenFactoryMock As vhTest.Mock.APPS.PM.Maatwerk.dto.LBXKenmerkenFactory = ##class(vhTest.Mock.APPS.PM.Maatwerk.dto.LBXKenmerkenFactory).%New()
 	Do LbxKenmerkenFactoryMock.VerwachtMethodCall("Maak").DanReturn(DtoKenmerken)
Index: vhTest/Fake/DOM/PM/Maatwerk/Calc/Common/impl/LBXKenmerkenFactory.cls.xml
===================================================================
diff -u
--- vhTest/Fake/DOM/PM/Maatwerk/Calc/Common/impl/LBXKenmerkenFactory.cls.xml	(revision 0)
+++ vhTest/Fake/DOM/PM/Maatwerk/Calc/Common/impl/LBXKenmerkenFactory.cls.xml	(revision 45773)
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerkenFactory">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerkenFactory</Super>
+
+<Method name="Maak">
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/PM/Maatwerk/Calc/Common/impl/LBXKenmerkenFactory.cls.xml
===================================================================
diff -u
--- DOM/PM/Maatwerk/Calc/Common/impl/LBXKenmerkenFactory.cls.xml	(revision 0)
+++ DOM/PM/Maatwerk/Calc/Common/impl/LBXKenmerkenFactory.cls.xml	(revision 45773)
@@ -0,0 +1,14 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerkenFactory">
+<Super>TECH.Mockable</Super>
+
+<Method name="Maak">
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerkenv01).%New()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/PM/Maatwerk/impl/LBX/DtoNaarKenmerkConverter/VoorWandTypeBepaler/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/PM/Maatwerk/impl/LBX/DtoNaarKenmerkConverter/VoorWandTypeBepaler/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/PM/Maatwerk/impl/LBX/DtoNaarKenmerkConverter/VoorWandTypeBepaler/Test.cls.xml	(revision 45773)
@@ -0,0 +1,63 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.PM.Maatwerk.impl.LBX.DtoNaarKenmerkConverter.VoorWandTypeBepaler.Test">
+<Super>vhUnitTest.DOM.PM.Maatwerk.LBX.Base</Super>
+
+<Property name="VoorWandTypeBepaler">
+<Type>APPS.PM.Maatwerk.impl.LBX.DtoNaarKenmerkConverter.VoorWandTypeBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Do ##super()
+	
+	Set ..VoorWandTypeBepaler = ##class(APPS.PM.Maatwerk.impl.LBX.DtoNaarKenmerkConverter.VoorWandTypeBepaler).%New()
+]]></Implementation>
+</Method>
+
+<Method name="Test: VoorWandType bepaling bij Binnenlades">
+<Implementation><![CDATA[
+	Do ..AssertVoorWandType($$$True, ..Enum.LadeHoogte.M, "VoorWandTypeVanMBinnenlade", ##class(DOM.PM.enu.LBXVoorWandTypeVanMBinnenlade).Glas(), ..Enum.VoorWandType.Vulling, ..Enum.VoorWandVerhogingMateriaal.GlasDiamant, "")
+	Do ..AssertVoorWandType($$$True, ..Enum.LadeHoogte.M, "VoorWandTypeVanMBinnenlade", ##class(DOM.PM.enu.LBXVoorWandTypeVanMBinnenlade).Metaal(), ..Enum.VoorWandType.Voorstuk, "", "")
+	
+	Do ..AssertVoorWandType($$$True, ..Enum.LadeHoogte.C, "VoorWandTypeVanCBinnenlade", ##class(DOM.PM.enu.LBXVoorWandTypeVanCBinnenlade).GlasLaag(), ..Enum.VoorWandType.Vulling, ..Enum.VoorWandVerhogingMateriaal.GlasDiamant, ..Enum.VoorWandVerhogingHoogte.Laag)
+	Do ..AssertVoorWandType($$$True, ..Enum.LadeHoogte.C, "VoorWandTypeVanCBinnenlade", ##class(DOM.PM.enu.LBXVoorWandTypeVanCBinnenlade).GlasHoog(), ..Enum.VoorWandType.Vulling, ..Enum.VoorWandVerhogingMateriaal.GlasDiamant, ..Enum.VoorWandVerhogingHoogte.Hoog)
+	Do ..AssertVoorWandType($$$True, ..Enum.LadeHoogte.C, "VoorWandTypeVanCBinnenlade", ##class(DOM.PM.enu.LBXVoorWandTypeVanCBinnenlade).Reling(), ..Enum.VoorWandType.Reling, "", "")
+	
+	Do ..AssertVoorWandType($$$True, ..Enum.LadeHoogte.K, "VoorWandTypeVanKBinnenlade", ##class(DOM.PM.enu.LBXVoorWandTypeVanKBinnenlade).Metaal(), ..Enum.VoorWandType.Voorstuk, "", "")
+]]></Implementation>
+</Method>
+
+<Method name="Test: VoorWandType bepaling bij niet-Binnenlades">
+<Implementation><![CDATA[
+	Do ..AssertVoorWandType($$$False, ..Enum.LadeHoogte.M, "VoorWandTypeVanMBinnenlade", "RandomWaarde", "", "", "")
+	Do ..AssertVoorWandType($$$False, ..Enum.LadeHoogte.C, "VoorWandTypeVanCBinnenlade", "RandomWaarde", "", "", "")
+	Do ..AssertVoorWandType($$$False, ..Enum.LadeHoogte.K, "VoorWandTypeVanKBinnenlade", "RandomWaarde", "", "", "")
+]]></Implementation>
+</Method>
+
+<Method name="AssertVoorWandType">
+<FormalSpec>IsBinnenlade:%Boolean,LadeHoogte:DOM.PM.enu.LBXLadeHoogte,DtoKenmerkNaam:%String,DtoKenmerkWaarde:%String,VerwachteType:DOM.PM.enu.LBXVoorWandType,VerwachteMateriaal:DOM.PM.enu.LBXVoorWandVerhogingMateriaal,VerwachteHoogte:DOM.PM.enu.LBXVoorWandVerhogingHoogte</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim DtoKenmerken As APPS.PM.Maatwerk.dto.LBXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).LegeKenmerken()
+	
+	Set DtoKenmerken.IsBinnenlade = IsBinnenlade
+	Set DtoKenmerken.LadeHoogte = LadeHoogte
+	
+	Set $Property(DtoKenmerken, DtoKenmerkNaam) = DtoKenmerkWaarde
+	
+	#dim DomKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
+	
+	Do ..VoorWandTypeBepaler.Bepaal(DtoKenmerken, .DomKenmerken)
+	
+	Do $$$AssertEquals(DomKenmerken.VoorWandType, VerwachteType)
+	Do $$$AssertEquals(DomKenmerken.VoorWandVerhogingMateriaal, VerwachteMateriaal)
+	Do $$$AssertEquals(DomKenmerken.VoorWandVerhogingHoogte, VerwachteHoogte)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/PM/Maatwerk/impl/LBX/DtoNaarKenmerkConverter/VoorWandTypeBepaler.cls.xml
===================================================================
diff -u
--- APPS/PM/Maatwerk/impl/LBX/DtoNaarKenmerkConverter/VoorWandTypeBepaler.cls.xml	(revision 0)
+++ APPS/PM/Maatwerk/impl/LBX/DtoNaarKenmerkConverter/VoorWandTypeBepaler.cls.xml	(revision 45773)
@@ -0,0 +1,66 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.PM.Maatwerk.impl.LBX.DtoNaarKenmerkConverter.VoorWandTypeBepaler">
+<Super>DOM.PM.Maatwerk.LBX.impl.Base</Super>
+
+<Method name="Bepaal">
+<FormalSpec><![CDATA[DtoKenmerken:APPS.PM.Maatwerk.dto.LBXKenmerken,&DomKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken]]></FormalSpec>
+<Implementation><![CDATA[
+	If (DtoKenmerken.IsBinnenlade) {
+		If (DtoKenmerken.LadeHoogte = ..Enum.LadeHoogte.M) {
+			Do ..BepaalVoorLadeHoogteM(DtoKenmerken, DomKenmerken)	
+		} ElseIf (DtoKenmerken.LadeHoogte = ..Enum.LadeHoogte.C) {
+			Do ..BepaalVoorLadeHoogteC(DtoKenmerken, DomKenmerken)
+		} ElseIf (DtoKenmerken.LadeHoogte = ..Enum.LadeHoogte.K) {
+			Do ..BepaalVoorLadeHoogteK(DtoKenmerken, DomKenmerken)
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="BepaalVoorLadeHoogteM">
+<FormalSpec><![CDATA[DtoKenmerken:APPS.PM.Maatwerk.dto.LBXKenmerken,&DomKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If (DtoKenmerken.VoorWandTypeVanMBinnenlade = ##class(DOM.PM.enu.LBXVoorWandTypeVanMBinnenlade).Glas()) {
+		Set DomKenmerken.VoorWandType = ..Enum.VoorWandType.Vulling
+		Set DomKenmerken.VoorWandVerhogingMateriaal = ..Enum.VoorWandVerhogingMateriaal.GlasDiamant
+	} ElseIf (DtoKenmerken.VoorWandTypeVanMBinnenlade = ##class(DOM.PM.enu.LBXVoorWandTypeVanMBinnenlade).Metaal()) {
+		Set DomKenmerken.VoorWandType = ..Enum.VoorWandType.Voorstuk
+	}
+]]></Implementation>
+</Method>
+
+<Method name="BepaalVoorLadeHoogteC">
+<FormalSpec><![CDATA[DtoKenmerken:APPS.PM.Maatwerk.dto.LBXKenmerken,&DomKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If (DtoKenmerken.VoorWandTypeVanCBinnenlade = ##class(DOM.PM.enu.LBXVoorWandTypeVanCBinnenlade).Reling()) {
+		Set DomKenmerken.VoorWandType = ..Enum.VoorWandType.Reling	
+	} Else {
+		If (DtoKenmerken.VoorWandTypeVanCBinnenlade = ##class(DOM.PM.enu.LBXVoorWandTypeVanCBinnenlade).GlasLaag()) {
+			Set DomKenmerken.VoorWandType = ..Enum.VoorWandType.Vulling
+			Set DomKenmerken.VoorWandVerhogingMateriaal = ..Enum.VoorWandVerhogingMateriaal.GlasDiamant
+			Set DomKenmerken.VoorWandVerhogingHoogte = ..Enum.VoorWandVerhogingHoogte.Laag
+		} ElseIf (DtoKenmerken.VoorWandTypeVanCBinnenlade = ##class(DOM.PM.enu.LBXVoorWandTypeVanCBinnenlade).GlasHoog()) {
+			Set DomKenmerken.VoorWandType = ..Enum.VoorWandType.Vulling
+			Set DomKenmerken.VoorWandVerhogingMateriaal = ..Enum.VoorWandVerhogingMateriaal.GlasDiamant
+			Set DomKenmerken.VoorWandVerhogingHoogte = ..Enum.VoorWandVerhogingHoogte.Hoog
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="BepaalVoorLadeHoogteK">
+<FormalSpec><![CDATA[DtoKenmerken:APPS.PM.Maatwerk.dto.LBXKenmerken,&DomKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If (DtoKenmerken.VoorWandTypeVanKBinnenlade = ##class(DOM.PM.enu.LBXVoorWandTypeVanKBinnenlade).Metaal()) {
+		Set DomKenmerken.VoorWandType = ..Enum.VoorWandType.Voorstuk
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>