Index: OBJTimpl/PM/Maatwerk/KenmerkenConverter/AppsNaarOBJT.cls.xml
===================================================================
diff -u
--- OBJTimpl/PM/Maatwerk/KenmerkenConverter/AppsNaarOBJT.cls.xml	(revision 0)
+++ OBJTimpl/PM/Maatwerk/KenmerkenConverter/AppsNaarOBJT.cls.xml	(revision 72076)
@@ -0,0 +1,15 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="OBJTimpl.PM.Maatwerk.KenmerkenConverter.AppsNaarOBJT">
+<Abstract>1</Abstract>
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="Converteer">
+<Abstract>1</Abstract>
+<FormalSpec>AppsKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken</FormalSpec>
+<ReturnType>OBJT.PM.Maatwerk.dto.LadeKenmerken</ReturnType>
+</Method>
+</Class>
+
+
+</Export>
Index: OBJTimpl/PM/Maatwerk/KenmerkenConverter/AppsNaarOBJT/Tbx.cls.xml
===================================================================
diff -u
--- OBJTimpl/PM/Maatwerk/KenmerkenConverter/AppsNaarOBJT/Tbx.cls.xml	(revision 0)
+++ OBJTimpl/PM/Maatwerk/KenmerkenConverter/AppsNaarOBJT/Tbx.cls.xml	(revision 72076)
@@ -0,0 +1,120 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="OBJTimpl.PM.Maatwerk.KenmerkenConverter.AppsNaarOBJT.Tbx">
+<Super>OBJTimpl.PM.Maatwerk.KenmerkenConverter.AppsNaarOBJT</Super>
+
+<Method name="Converteer">
+<FormalSpec>AppsKenmerken:APPS.PM.Maatwerk.dto.TBXKenmerken</FormalSpec>
+<ReturnType>OBJT.PM.Maatwerk.dto.LadeKenmerken</ReturnType>
+<Implementation><![CDATA[
+	Set OBJTKenmerken = ##class(OBJT.PM.Maatwerk.dto.TbxKenmerken).%New()
+	
+	Set OBJTKenmerken.Toepassing = AppsKenmerken.Toepassing
+	Set OBJTKenmerken.Variant = "TBX"
+	Set OBJTKenmerken.Familie = ##class(TECH.StringUtils).ToFirstCase(AppsKenmerken.GeefFamilie())
+	
+	Set OBJTKenmerken.BodemKleur = AppsKenmerken.BodemKleur
+	Set OBJTKenmerken.CorpusBreedte = AppsKenmerken.CorpusBreedte
+	Set OBJTKenmerken.CorpusWandDikte = AppsKenmerken.CorpusWandDikte
+	Set OBJTKenmerken.Draagkracht = AppsKenmerken.Draagkracht
+	Set OBJTKenmerken.DwarsverdelingAantal = AppsKenmerken.DwarsverdelingAantal
+	Set OBJTKenmerken.FrontBevestiging = AppsKenmerken.FrontBevestiging
+	Set OBJTKenmerken.FrontHouderKleur = AppsKenmerken.FrontHouderKleur
+	Set OBJTKenmerken.GeleiderTechnologie = AppsKenmerken.GeleiderTechnologie
+	Set OBJTKenmerken.HeeftOpvullijstLinks = AppsKenmerken.HeeftOpvullijstLinks
+	Set OBJTKenmerken.HeeftOpvullijstRechts = AppsKenmerken.HeeftOpvullijstRechts
+	Set OBJTKenmerken.HeeftZijstabilisering = AppsKenmerken.HeeftZijstabilisering
+	Set OBJTKenmerken.InterneBreedte = AppsKenmerken.InterneBreedte
+	Set OBJTKenmerken.IsBinnenbreedte = AppsKenmerken.IsBinnenbreedte
+	Set OBJTKenmerken.IsBinnenlade = AppsKenmerken.IsBinnenlade
+	Set OBJTKenmerken.LadeDiepte = AppsKenmerken.LadeDiepte
+	Set OBJTKenmerken.LadeKleur = AppsKenmerken.LadeKleur
+	Set OBJTKenmerken.OpvullijstKleur = AppsKenmerken.OpvullijstKleur
+	Set OBJTKenmerken.PlaatMateriaal = AppsKenmerken.PlaatMateriaal
+	Set OBJTKenmerken.ProductieWijze = AppsKenmerken.ProductieWijze
+	Set OBJTKenmerken.RugHoogte = AppsKenmerken.RugHoogte
+	Set OBJTKenmerken.RugwandMateriaal = AppsKenmerken.RugwandMateriaal
+	
+	Do ..ConverteerFrontOndersteuning(AppsKenmerken, OBJTKenmerken)
+	Do ..ConverteerGreepEnMeenemer(AppsKenmerken, OBJTKenmerken)
+	
+	If ##class(APPS.ApplicatieContext).Instance().GeefIngegevenKenmerkenTypeAPI().IsLadeMetUitsparing(AppsKenmerken) {
+		Do ..ConverteerUitsparingData(AppsKenmerken, .OBJTKenmerken)
+	}
+	
+	Quit OBJTKenmerken
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerFrontOndersteuning">
+<FormalSpec><![CDATA[AppsKenmerken:APPS.PM.Maatwerk.dto.TBXKenmerken,&TbxKenmerken:OBJT.PM.Maatwerk.dto.TbxKenmerken]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set TbxKenmerken.FrontOndersteuningType = AppsKenmerken.FrontOndersteuningType
+	Set TbxKenmerken.FrontStabilisatorAantal = ""
+	
+	If ##class(TECH.StringUtils).Equals(AppsKenmerken.FrontOndersteuningType, ##class(DOM.PM.enu.TBXFrontOndersteuningType).Geen(), "") {
+		Set TbxKenmerken.FrontOndersteuningType = ##class(ECON.PM.Maatwerk.enu.TBXFrontOndersteuningType).Auto()
+		Set TbxKenmerken.FrontStabilisatorAantal = ""
+	}
+	
+	If AppsKenmerken.FrontOndersteuningType = ##class(ECON.PM.Maatwerk.enu.TBXFrontOndersteuningType).FrontStabilisator() {
+		Set TbxKenmerken.FrontStabilisatorAantal = AppsKenmerken.FrontOndersteuningAantal
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerGreepEnMeenemer">
+<FormalSpec><![CDATA[AppsKenmerken:APPS.PM.Maatwerk.dto.TBXKenmerken,&TbxKenmerken:OBJT.PM.Maatwerk.dto.TbxKenmerken]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set TbxKenmerken.GreepEnMeenemer = "Zonder"
+	If AppsKenmerken.VoorwandMetGreep {
+		Set TbxKenmerken.GreepEnMeenemer = "Handle"
+		If AppsKenmerken.VoorwandMetMeenemer {
+			Set TbxKenmerken.GreepEnMeenemer = "HandleAndLatch"
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerUitsparingData">
+<FormalSpec><![CDATA[Kenmerken:APPS.PM.Maatwerk.dto.LBXKenmerken,&TbxKenmerken:OBJT.PM.Maatwerk.dto.TbxKenmerken]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If +Kenmerken.UitsparingBreedte1 > 0 {
+		
+		#dim RugHoogte As DOM.PM.enu.LBXRugHoogte = ##class(DOM.PM.enu.LBXRugHoogte).M()
+		
+		Set TbxKenmerken.UitsparingData.UitsparingAantal = ##class(DOM.PM.enu.AantalUitsparingen).Enkel()
+		Set TbxKenmerken.UitsparingData.X.Breedte = Kenmerken.UitsparingPositie1
+		Set TbxKenmerken.UitsparingData.X.Hoogte = RugHoogte
+		Set TbxKenmerken.UitsparingData.X.Materiaal = Kenmerken.RugwandMateriaal
+		Set TbxKenmerken.UitsparingData.Y.Breedte = Kenmerken.InterneBreedte - Kenmerken.UitsparingPositie1 - Kenmerken.UitsparingBreedte1
+		Set TbxKenmerken.UitsparingData.Y.Hoogte = RugHoogte
+		Set TbxKenmerken.UitsparingData.Y.Materiaal = Kenmerken.RugwandMateriaal
+		Set TbxKenmerken.UitsparingData.Z1.Breedte = Kenmerken.UitsparingBreedte1
+		Set TbxKenmerken.UitsparingData.Z1.Hoogte = RugHoogte
+		Set TbxKenmerken.UitsparingData.Z1.Diepte = 0
+		Set TbxKenmerken.UitsparingData.Z1.Vorm = "Recht"
+		Set TbxKenmerken.UitsparingData.Z1.Materiaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Staal()
+		
+		If +Kenmerken.UitsparingBreedte2 > 0 {
+			Set TbxKenmerken.UitsparingData.UitsparingAantal = ##class(DOM.PM.enu.AantalUitsparingen).Dubbel()
+			Set TbxKenmerken.UitsparingData.Y.Breedte = Kenmerken.InterneBreedte - Kenmerken.UitsparingPositie2 - Kenmerken.UitsparingBreedte2
+			Set TbxKenmerken.UitsparingData.M.Breedte = Kenmerken.UitsparingPositie2 - Kenmerken.UitsparingPositie1 - Kenmerken.UitsparingBreedte1
+			Set TbxKenmerken.UitsparingData.M.Hoogte = RugHoogte
+			Set TbxKenmerken.UitsparingData.M.Materiaal = Kenmerken.RugwandMateriaal
+			Set TbxKenmerken.UitsparingData.Z2.Breedte = Kenmerken.UitsparingBreedte2
+			Set TbxKenmerken.UitsparingData.Z2.Hoogte = RugHoogte
+			Set TbxKenmerken.UitsparingData.Z2.Diepte = 0
+			Set TbxKenmerken.UitsparingData.Z2.Vorm = "Recht"
+			Set TbxKenmerken.UitsparingData.Z2.Materiaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Staal()			
+		}
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: OBJTimpl/PM/Maatwerk/KenmerkenConverter/AppsNaarOBJT/Mvx.cls.xml
===================================================================
diff -u
--- OBJTimpl/PM/Maatwerk/KenmerkenConverter/AppsNaarOBJT/Mvx.cls.xml	(revision 0)
+++ OBJTimpl/PM/Maatwerk/KenmerkenConverter/AppsNaarOBJT/Mvx.cls.xml	(revision 72076)
@@ -0,0 +1,116 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="OBJTimpl.PM.Maatwerk.KenmerkenConverter.AppsNaarOBJT.Mvx">
+<Super>OBJTimpl.PM.Maatwerk.KenmerkenConverter.AppsNaarOBJT</Super>
+
+<Property name="LadeUitsparingHelper">
+<Type>ECONimpl.PM.Maatwerk.LadeUitsparingHelper</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..LadeUitsparingHelper = ##class(ECONimpl.PM.Maatwerk.LadeUitsparingHelper).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Converteer">
+<FormalSpec>AppsKenmerken:APPS.PM.Maatwerk.dto.MVXKenmerken</FormalSpec>
+<ReturnType>OBJT.PM.Maatwerk.dto.LadeKenmerken</ReturnType>
+<Implementation><![CDATA[
+	Set OBJTKenmerken = ##class(OBJT.PM.Maatwerk.dto.MvxKenmerken).%New()
+	
+	Set OBJTKenmerken.Toepassing = AppsKenmerken.Toepassing
+	Set OBJTKenmerken.Variant = "MVX"
+	Set OBJTKenmerken.Familie = ##class(TECH.StringUtils).ToFirstCase(AppsKenmerken.GeefFamilie())
+	
+	Set OBJTKenmerken.DwarsverdelingAantal = AppsKenmerken.AantalDwarsverdelingen
+	Set OBJTKenmerken.BodemKleur = AppsKenmerken.BodemKleur
+	Set OBJTKenmerken.CorpusBreedte = AppsKenmerken.CorpusBreedte
+	Set OBJTKenmerken.CorpusWandDikte = AppsKenmerken.CorpusWandDikte
+	Set OBJTKenmerken.Draagkracht = AppsKenmerken.Draagkracht
+	Set OBJTKenmerken.FrontBevestiging = AppsKenmerken.FrontBevestiging
+	Set OBJTKenmerken.GeleiderTechnologie = AppsKenmerken.GeleiderTechnologie
+	Set OBJTKenmerken.HeeftOpvullijstLinks = AppsKenmerken.HeeftOpvullijstLinks
+	Set OBJTKenmerken.HeeftOpvullijstRechts = AppsKenmerken.HeeftOpvullijstRechts
+	Set OBJTKenmerken.HeeftZijstabilisering = AppsKenmerken.HeeftZijstabilisering
+	Set OBJTKenmerken.InterneBreedte = AppsKenmerken.InterneBreedte
+	Set OBJTKenmerken.IsBinnenbreedte = AppsKenmerken.IsBinnenbreedte
+	Set OBJTKenmerken.IsBinnenlade = AppsKenmerken.IsBinnenlade
+	Set OBJTKenmerken.LadeDiepte = AppsKenmerken.LadeDiepte
+	Set OBJTKenmerken.LadeHoogte = AppsKenmerken.LadeHoogte
+	Set OBJTKenmerken.LadeKleur = AppsKenmerken.LadeKleur
+	Set OBJTKenmerken.MeenemerSet = AppsKenmerken.MeenemerSet
+	Set OBJTKenmerken.OpvullijstKleur = AppsKenmerken.OpvullijstKleur
+	Set OBJTKenmerken.ProductieWijze = AppsKenmerken.ProductieWijze
+	Set OBJTKenmerken.RugHoogte = AppsKenmerken.RugHoogte
+	Set OBJTKenmerken.RugWandMateriaal = AppsKenmerken.RugWandMateriaal
+	Set OBJTKenmerken.VerpakkingType = AppsKenmerken.VerpakkingType
+	Set OBJTKenmerken.VoorwandType = AppsKenmerken.VoorwandType
+	Set OBJTKenmerken.ZijkantHoogte = AppsKenmerken.ZijkantHoogte
+	Set OBJTKenmerken.ZijwandType = AppsKenmerken.ZijwandType
+	Set OBJTKenmerken.ZijwandVerhogingInschuifElementKleur = AppsKenmerken.ZijwandVerhogingInschuifElementKleur
+	Set OBJTKenmerken.ZijwandVerhogingMateriaal = AppsKenmerken.ZijwandVerhogingMateriaal
+	Set OBJTKenmerken.ZijwandVerhogingRelingKleur = AppsKenmerken.ZijwandVerhogingRelingKleur
+	Set OBJTKenmerken.ZijwandVerhogingType = AppsKenmerken.ZijwandVerhogingType
+	
+	If ##class(APPS.ApplicatieContext).Instance().GeefIngegevenKenmerkenTypeAPI().IsLadeMetUitsparing(AppsKenmerken) {
+		Do ..ConverteerUitsparingData(AppsKenmerken, .OBJTKenmerken)
+	}
+	
+	Quit OBJTKenmerken
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerUitsparingData">
+<FormalSpec><![CDATA[Kenmerken:APPS.PM.Maatwerk.dto.MVXKenmerken,&MvxKenmerken:OBJT.PM.Maatwerk.dto.MvxKenmerken]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If ##class(TECH.StringUtils).Equals(Kenmerken.UitsparingDataAantalUitsparingen,##class(DOM.PM.enu.AantalUitsparingen).Enkel(),##class(DOM.PM.enu.AantalUitsparingen).Dubbel()) {
+		
+		#dim RugHoogte As DOM.PM.enu.MVXRugHoogte = Kenmerken.RugHoogte
+		#dim UitsparingDiepte As %Decimal = ..LadeUitsparingHelper.GeefUitsparingDiepte(Kenmerken.UitsparingDataCodeZ1)
+		
+		Set MvxKenmerken.UitsparingData.UitsparingAantal = Kenmerken.UitsparingDataAantalUitsparingen
+		Set MvxKenmerken.UitsparingData.M.Breedte = 0
+		Set MvxKenmerken.UitsparingData.M.Hoogte = ""
+		Set MvxKenmerken.UitsparingData.M.Materiaal = ""
+		Set MvxKenmerken.UitsparingData.X.Breedte = Kenmerken.UitsparingDataBreedteX
+		Set MvxKenmerken.UitsparingData.X.Hoogte = RugHoogte
+		Set MvxKenmerken.UitsparingData.X.Materiaal = Kenmerken.RugWandMateriaal
+		Set MvxKenmerken.UitsparingData.Y.Breedte = Kenmerken.UitsparingDataBreedteY
+		Set MvxKenmerken.UitsparingData.Y.Hoogte = RugHoogte
+		Set MvxKenmerken.UitsparingData.Y.Materiaal = Kenmerken.RugWandMateriaal
+		Set MvxKenmerken.UitsparingData.Z1.Breedte = Kenmerken.UitsparingDataBreedteZ1
+		Set MvxKenmerken.UitsparingData.Z1.Hoogte = RugHoogte
+		Set MvxKenmerken.UitsparingData.Z1.Diepte = UitsparingDiepte
+		Set MvxKenmerken.UitsparingData.Z1.Vorm = "Recht"
+		Set MvxKenmerken.UitsparingData.Z1.Materiaal = ##class(DOM.PM.enu.MVXRugWandMateriaal).Hout()
+		Set MvxKenmerken.UitsparingData.Z2.Breedte = 0
+		Set MvxKenmerken.UitsparingData.Z2.Hoogte = ""
+		Set MvxKenmerken.UitsparingData.Z2.Diepte = 0
+		Set MvxKenmerken.UitsparingData.Z2.Vorm = ""
+		Set MvxKenmerken.UitsparingData.Z2.Materiaal = ""
+		
+		If Kenmerken.UitsparingDataAantalUitsparingen = ##class(DOM.PM.enu.AantalUitsparingen).Dubbel() {
+			Set MvxKenmerken.UitsparingData.M.Breedte = Kenmerken.UitsparingDataBreedteM
+			Set MvxKenmerken.UitsparingData.M.Hoogte = RugHoogte
+			Set MvxKenmerken.UitsparingData.M.Materiaal = ##class(DOM.PM.enu.MVXRugWandMateriaal).Hout()
+			Set MvxKenmerken.UitsparingData.Z2.Breedte = Kenmerken.UitsparingDataBreedteZ2
+			Set MvxKenmerken.UitsparingData.Z2.Hoogte = RugHoogte
+			Set MvxKenmerken.UitsparingData.Z2.Diepte = UitsparingDiepte
+			Set MvxKenmerken.UitsparingData.Z2.Vorm = "Recht"
+			Set MvxKenmerken.UitsparingData.Z2.Materiaal = ##class(DOM.PM.enu.MVXRugWandMateriaal).Hout()
+		}
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: OBJTimpl/PM/Maatwerk/AppsConverter.cls.xml
===================================================================
diff -u
--- OBJTimpl/PM/Maatwerk/AppsConverter.cls.xml	(revision 0)
+++ OBJTimpl/PM/Maatwerk/AppsConverter.cls.xml	(revision 72076)
@@ -0,0 +1,35 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="OBJTimpl.PM.Maatwerk.AppsConverter">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="AppsNaarOBJTFactory">
+<Type>OBJTimpl.PM.Maatwerk.KenmerkenConverter.AppNaarOBJTFactory</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..AppsNaarOBJTFactory = ##class(OBJTimpl.PM.Maatwerk.KenmerkenConverter.AppNaarOBJTFactory).%New()
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerAppsNaarObjt">
+<FormalSpec>Kenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken</FormalSpec>
+<ReturnType>OBJT.PM.Maatwerk.dto.LadeKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim AppsNaarObjConverter As OBJTimpl.PM.Maatwerk.KenmerkenConverter.AppsNaarOBJT = ..AppsNaarOBJTFactory.Maak(Kenmerken)
+	
+	Quit AppsNaarObjConverter.Converteer(Kenmerken)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: OBJTimpl/PM/Maatwerk/KenmerkenConverter/AppsNaarOBJT/Lbx.cls.xml
===================================================================
diff -u
--- OBJTimpl/PM/Maatwerk/KenmerkenConverter/AppsNaarOBJT/Lbx.cls.xml	(revision 0)
+++ OBJTimpl/PM/Maatwerk/KenmerkenConverter/AppsNaarOBJT/Lbx.cls.xml	(revision 72076)
@@ -0,0 +1,97 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="OBJTimpl.PM.Maatwerk.KenmerkenConverter.AppsNaarOBJT.Lbx">
+<Super>OBJTimpl.PM.Maatwerk.KenmerkenConverter.AppsNaarOBJT</Super>
+
+<Method name="Converteer">
+<FormalSpec>AppsKenmerken:APPS.PM.Maatwerk.dto.LBXKenmerken</FormalSpec>
+<ReturnType>OBJT.PM.Maatwerk.dto.LadeKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim OBJTKenmerken = ##class(OBJT.PM.Maatwerk.dto.LbxKenmerken).%New()
+	
+	Set OBJTKenmerken.Toepassing = AppsKenmerken.Klasse
+	Set OBJTKenmerken.Variant = "LBX"
+	Set OBJTKenmerken.Familie = ##class(TECH.StringUtils).ToFirstCase(AppsKenmerken.GeefFamilie())
+	
+	Set OBJTKenmerken.DwarsverdelingAantal = AppsKenmerken.AantalDwarsverdelingen
+	Set OBJTKenmerken.BodemKleur = AppsKenmerken.BodemKleur
+	Set OBJTKenmerken.CorpusBreedte = AppsKenmerken.CorpusBreedte
+	Set OBJTKenmerken.CorpusWandDikte = AppsKenmerken.CorpusWandDikte
+	Set OBJTKenmerken.Draagkracht = AppsKenmerken.Draagkracht
+	Set OBJTKenmerken.DwarsverdelingType = AppsKenmerken.DwarsverdelingType
+	Set OBJTKenmerken.FrontBevestiging = AppsKenmerken.FrontBevestiging
+	Set OBJTKenmerken.GeleiderTechnologie = AppsKenmerken.GeleiderTechnologie
+	Set OBJTKenmerken.HeeftOpvullijstLinks = AppsKenmerken.HeeftOpvullijstLinks
+	Set OBJTKenmerken.HeeftOpvullijstRechts = AppsKenmerken.HeeftOpvullijstRechts
+	Set OBJTKenmerken.HeeftZijstabilisering = AppsKenmerken.HeeftZijstabilisering
+	Set OBJTKenmerken.InterneBreedte = AppsKenmerken.InterneBreedte
+	Set OBJTKenmerken.IsBinnenbreedte = AppsKenmerken.IsBinnenbreedte
+	Set OBJTKenmerken.IsBinnenlade = AppsKenmerken.IsBinnenlade
+	Set OBJTKenmerken.LadeDiepte = AppsKenmerken.LadeDiepte
+	Set OBJTKenmerken.LadeHoogte = AppsKenmerken.LadeHoogte
+	Set OBJTKenmerken.LadeKleur = AppsKenmerken.LadeKleur
+	Set OBJTKenmerken.OpvullijstKleur = AppsKenmerken.OpvullijstKleur
+	Set OBJTKenmerken.ProductieWijze = AppsKenmerken.ProductieWijze
+	Set OBJTKenmerken.RugHoogte = AppsKenmerken.RugHoogte
+	Set OBJTKenmerken.RugWandMateriaal = AppsKenmerken.RugWandMateriaal
+	Set OBJTKenmerken.VerpakkingType = AppsKenmerken.VerpakkingType
+	Set OBJTKenmerken.VoorWandTypeVanCBinnenlade = AppsKenmerken.VoorWandTypeVanCBinnenlade
+	Set OBJTKenmerken.VoorWandTypeVanMBinnenlade = AppsKenmerken.VoorWandTypeVanMBinnenlade
+	Set OBJTKenmerken.VoorWandTypeVanKBinnenlade = AppsKenmerken.VoorWandTypeVanKBinnenlade
+	Set OBJTKenmerken.ZijWandType = AppsKenmerken.ZijWandType
+	Set OBJTKenmerken.MeenemerSet = AppsKenmerken.MeenemerSet
+	Set OBJTKenmerken.LadeKleurBuiten = AppsKenmerken.LadeKleurBuiten
+	
+	If ##class(APPS.ApplicatieContext).Instance().GeefIngegevenKenmerkenTypeAPI().IsLadeMetUitsparing(AppsKenmerken) {
+		Do ..ConverteerUitsparingData(AppsKenmerken, .OBJTKenmerken)
+	}
+	
+	Quit OBJTKenmerken
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerUitsparingData">
+<FormalSpec><![CDATA[Kenmerken:APPS.PM.Maatwerk.dto.LBXKenmerken,&LbxKenmerken:OBJT.PM.Maatwerk.dto.LbxKenmerken]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If ##class(TECH.StringUtils).Equals(Kenmerken.UitsparingDataAantalUitsparingen,##class(DOM.PM.enu.AantalUitsparingen).Enkel(),##class(DOM.PM.enu.AantalUitsparingen).Dubbel()) {
+		#dim RugHoogte As DOM.PM.enu.LBXRugHoogte = ##class(DOM.PM.enu.LBXRugHoogte).M()
+		
+		Set LbxKenmerken.UitsparingData.UitsparingAantal = Kenmerken.UitsparingDataAantalUitsparingen
+		Set LbxKenmerken.UitsparingData.M.Breedte = 0
+		Set LbxKenmerken.UitsparingData.M.Hoogte = RugHoogte
+		Set LbxKenmerken.UitsparingData.M.Materiaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Hout()
+		Set LbxKenmerken.UitsparingData.X.Breedte = Kenmerken.UitsparingDataBreedteX
+		Set LbxKenmerken.UitsparingData.X.Hoogte = RugHoogte
+		Set LbxKenmerken.UitsparingData.X.Materiaal = Kenmerken.RugWandMateriaal
+		Set LbxKenmerken.UitsparingData.Y.Breedte = Kenmerken.UitsparingDataBreedteY
+		Set LbxKenmerken.UitsparingData.Y.Hoogte = RugHoogte
+		Set LbxKenmerken.UitsparingData.Y.Materiaal = Kenmerken.RugWandMateriaal
+		Set LbxKenmerken.UitsparingData.Z1.Breedte = Kenmerken.UitsparingDataBreedteZ1
+		Set LbxKenmerken.UitsparingData.Z1.Hoogte = RugHoogte
+		Set LbxKenmerken.UitsparingData.Z1.Diepte = 250
+		Set LbxKenmerken.UitsparingData.Z1.Vorm = "Recht"
+		Set LbxKenmerken.UitsparingData.Z1.Materiaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Staal()
+		Set LbxKenmerken.UitsparingData.Z2.Breedte = 0
+		Set LbxKenmerken.UitsparingData.Z2.Hoogte = ""
+		Set LbxKenmerken.UitsparingData.Z2.Diepte = 0
+		Set LbxKenmerken.UitsparingData.Z2.Vorm = ""
+		Set LbxKenmerken.UitsparingData.Z2.Materiaal = ""
+		
+		If Kenmerken.UitsparingDataAantalUitsparingen = ##class(DOM.PM.enu.AantalUitsparingen).Dubbel() {
+			Set LbxKenmerken.UitsparingData.M.Breedte = Kenmerken.UitsparingDataBreedteM
+			Set LbxKenmerken.UitsparingData.M.Hoogte = RugHoogte
+			Set LbxKenmerken.UitsparingData.M.Materiaal = Kenmerken.RugWandMateriaal
+			Set LbxKenmerken.UitsparingData.Z2.Breedte = Kenmerken.UitsparingDataBreedteZ2
+			Set LbxKenmerken.UitsparingData.Z2.Hoogte = RugHoogte
+			Set LbxKenmerken.UitsparingData.Z2.Diepte = 250
+			Set LbxKenmerken.UitsparingData.Z2.Vorm = "Recht"
+			Set LbxKenmerken.UitsparingData.Z2.Materiaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Staal()			
+		}
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: OBJTimpl/PM/Maatwerk/KenmerkenConverter/AppNaarOBJTFactory.cls.xml
===================================================================
diff -u
--- OBJTimpl/PM/Maatwerk/KenmerkenConverter/AppNaarOBJTFactory.cls.xml	(revision 0)
+++ OBJTimpl/PM/Maatwerk/KenmerkenConverter/AppNaarOBJTFactory.cls.xml	(revision 72076)
@@ -0,0 +1,29 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="OBJTimpl.PM.Maatwerk.KenmerkenConverter.AppNaarOBJTFactory">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="Maak">
+<FormalSpec>Kenmerken:APPS.PM.Maatwerk.dto.LadeKenmerken</FormalSpec>
+<ReturnType>OBJTimpl.PM.Maatwerk.KenmerkenConverter.AppsNaarOBJT</ReturnType>
+<Implementation><![CDATA[
+	#dim AppsNaarObjtConverter As OBJTimpl.PM.Maatwerk.KenmerkenConverter.AppsNaarOBJT
+	
+	If (Kenmerken.GeefVariant()) [ "LBX" {
+		Set AppsNaarObjtConverter = ##class(OBJTimpl.PM.Maatwerk.KenmerkenConverter.AppsNaarOBJT.Lbx).%New()
+	} ElseIf(Kenmerken.GeefVariant()) [ "MVX" {
+		Set AppsNaarObjtConverter = ##class(OBJTimpl.PM.Maatwerk.KenmerkenConverter.AppsNaarOBJT.Mvx).%New()
+	} ElseIf(Kenmerken.%Extends("APPS.PM.Maatwerk.dto.TBXKenmerken")) {
+		Set AppsNaarObjtConverter = ##class(OBJTimpl.PM.Maatwerk.KenmerkenConverter.AppsNaarOBJT.Tbx).%New()
+	} Else {
+		Set Exception = ##class(TECH.Exceptions.NotSupportedException).%New(..%ClassName(1), "Maak voor '" _ Kenmerken.GeefVariant() _ "'.")
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)
+	}
+	
+	Quit AppsNaarObjtConverter
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>