Index: APPS/PM/Maatwerk/NaarObjectConverter.cls.xml
===================================================================
diff -u
--- APPS/PM/Maatwerk/NaarObjectConverter.cls.xml	(revision 0)
+++ APPS/PM/Maatwerk/NaarObjectConverter.cls.xml	(revision 30219)
@@ -0,0 +1,15 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.PM.Maatwerk.NaarObjectConverter">
+<Abstract>1</Abstract>
+<Super>TECH.Interface</Super>
+
+<Method name="Converteer">
+<Abstract>1</Abstract>
+<FormalSpec>IngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken</FormalSpec>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</ReturnType>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/PM/Maatwerk/impl/NaarObjectConverterTAX.cls.xml
===================================================================
diff -u
--- APPS/PM/Maatwerk/impl/NaarObjectConverterTAX.cls.xml	(revision 0)
+++ APPS/PM/Maatwerk/impl/NaarObjectConverterTAX.cls.xml	(revision 30219)
@@ -0,0 +1,131 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.PM.Maatwerk.impl.NaarObjectConverterTAX">
+<Super>DOM.PM.Maatwerk.TAX.impl.Base,APPS.PM.Maatwerk.NaarObjectConverter</Super>
+
+<Property name="IngegevenKenmerken">
+<Type>APPS.PM.Maatwerk.dto.TAORKenmerken</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="InbouwBreedteBerekenaar">
+<Type>APPS.PM.Maatwerk.Lade.impl.InbouwBreedteBerekenaar</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>InbouwBreedteBerekenaar:APPS.PM.Maatwerk.Lade.impl.InbouwBreedteBerekenaar</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())
+	
+	quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Converteer">
+<FormalSpec>TAORKenmerken:APPS.PM.Maatwerk.dto.TAORKenmerken</FormalSpec>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim GeconverteerdeKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
+	
+	set GeconverteerdeKenmerken.AfdekkapBovenKleur = TAORKenmerken.FrontEindkapKleur
+	set GeconverteerdeKenmerken.BodemKleur = TAORKenmerken.BodemKleur
+	set GeconverteerdeKenmerken.CorpusBinnenbreedte = ..BepaalCorpusBinnenbreedte(TAORKenmerken)
+	set GeconverteerdeKenmerken.Draagkracht = TAORKenmerken.Draagkracht
+	set GeconverteerdeKenmerken.FrontBevestiging = ..BepaalFrontBevestiging(TAORKenmerken)
+	set GeconverteerdeKenmerken.FrontEindkapKleur = ..BepaalFrontEindkapKleur(TAORKenmerken)
+	set GeconverteerdeKenmerken.GlijderType = TAORKenmerken.GlijderType
+	set GeconverteerdeKenmerken.IsBinnenlade = TAORKenmerken.IsBinnenlade
+	set GeconverteerdeKenmerken.KoppelingType = TAORKenmerken.KoppelingType
+	set GeconverteerdeKenmerken.LadeDiepte = TAORKenmerken.LadeDiepte
+	set GeconverteerdeKenmerken.LadeHoogte = TAORKenmerken.LadeHoogte
+	set GeconverteerdeKenmerken.LadeKleur = TAORKenmerken.LadeKleur
+	set GeconverteerdeKenmerken.HeeftDiepteVerstelling = TAORKenmerken.HeeftDiepteVerstelling
+	set GeconverteerdeKenmerken.HeeftOpvullijstLinks = TAORKenmerken.HeeftOpvullijstLinks
+	set GeconverteerdeKenmerken.HeeftOpvullijstRechts = TAORKenmerken.HeeftOpvullijstRechts
+	set GeconverteerdeKenmerken.HeeftTipon = TAORKenmerken.HeeftTipon
+	set GeconverteerdeKenmerken.HeeftZijstabilisering = TAORKenmerken.HeeftZijstabilisering
+	set GeconverteerdeKenmerken.OpvullijstKleur = TAORKenmerken.OpvullijstKleur
+	set GeconverteerdeKenmerken.ProductieWijze = ..BepaalProductieWijze(TAORKenmerken)
+	set GeconverteerdeKenmerken.Uittrekbaarheid = TAORKenmerken.Uittrekbaarheid
+	set GeconverteerdeKenmerken.VerpakkingType = TAORKenmerken.VerpakkingType
+	
+	set GeconverteerdeKenmerken.GUIKenmerken.IsBinnenbreedte = TAORKenmerken.IsBinnenbreedte
+	set GeconverteerdeKenmerken.GUIKenmerken.WandDikte = TAORKenmerken.CorpusWandDikte
+	
+	quit GeconverteerdeKenmerken
+]]></Implementation>
+</Method>
+
+<Method name="BepaalCorpusBinnenbreedte">
+<FormalSpec>TAORKenmerken:APPS.PM.Maatwerk.dto.TAORKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.Numeric</ReturnType>
+<Implementation><![CDATA[
+	#dim CorpusBinnenbreedte As TECH.Numeric = ""
+	
+	try {
+		set CorpusBinnenbreedte = ..InbouwBreedteBerekenaar.BerekenInbouwBreedte(TAORKenmerken)
+		set CorpusBinnenbreedte = CorpusBinnenbreedte + (TAORKenmerken.HeeftOpvullijstLinks * 25) + (TAORKenmerken.HeeftOpvullijstRechts * 25)
+	} catch {
+		#dim Exception As TECH.Exceptions.GeneralErrorException = ##class(TECH.ExceptionHandler).Catch()
+	}	
+	
+	quit CorpusBinnenbreedte
+]]></Implementation>
+</Method>
+
+<Method name="BepaalFrontBevestiging">
+<FormalSpec>TAORKenmerken:APPS.PM.Maatwerk.dto.TAORKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.PM.enu.TAORFrontBevestiging</ReturnType>
+<Implementation><![CDATA[
+	#dim FrontBevestiging As DOM.PM.enu.TAORFrontBevestiging
+	
+	if (TAORKenmerken.IsBinnenlade) {
+		set FrontBevestiging = ..Enum.FrontBevestiging.Schroef 
+	} else {
+		set FrontBevestiging = TAORKenmerken.FrontBevestiging
+	}
+	
+	quit FrontBevestiging
+]]></Implementation>
+</Method>
+
+<Method name="BepaalFrontEindkapKleur">
+<FormalSpec>TAORKenmerken:APPS.PM.Maatwerk.dto.TAORKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.PM.enu.TAORFrontEindkapKleur</ReturnType>
+<Implementation><![CDATA[
+	#dim FrontEindkapKleur As DOM.PM.enu.TAORFrontEindkapKleur = ""
+	
+	if (TAORKenmerken.IsBinnenlade) {
+		set FrontEindkapKleur = TAORKenmerken.FrontEindkapKleur
+	}
+	
+	quit FrontEindkapKleur
+]]></Implementation>
+</Method>
+
+<Method name="BepaalProductieWijze">
+<FormalSpec>TAORKenmerken:APPS.PM.Maatwerk.dto.TAORKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.PM.enu.TAORProductieWijze</ReturnType>
+<Implementation><![CDATA[
+	#dim ProductieWijze As DOM.PM.enu.TAORProductieWijze = ""
+	
+	if (TAORKenmerken.VerpakkingType = ..Enum.VerpakkingType.LosseComponentenInBulk) {
+		set ProductieWijze = TAORKenmerken.LosseComponent
+	}
+	
+	quit ProductieWijze
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/APPS/PM/Maatwerk/NaarObjectConverter.cls.xml
===================================================================
diff -u
--- vhTest/Mock/APPS/PM/Maatwerk/NaarObjectConverter.cls.xml	(revision 0)
+++ vhTest/Mock/APPS/PM/Maatwerk/NaarObjectConverter.cls.xml	(revision 30219)
@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.APPS.PM.Maatwerk.NaarObjectConverter">
+<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
+Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.PM.Maatwerk.NaarObjectConverter,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="Converteer">
+<FormalSpec>IngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken</FormalSpec>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("Converteer",IngegevenKenmerken)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/PM/Maatwerk/impl/NaarObjectConverterTAX/Converteer/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/PM/Maatwerk/impl/NaarObjectConverterTAX/Converteer/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/PM/Maatwerk/impl/NaarObjectConverterTAX/Converteer/Test.cls.xml	(revision 30219)
@@ -0,0 +1,129 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.PM.Maatwerk.impl.NaarObjectConverterTAX.Converteer.Test">
+<Super>vhUnitTest.DOM.PM.Maatwerk.TAX.Base</Super>
+
+<Property name="Converter">
+<Type>APPS.PM.Maatwerk.impl.NaarObjectConverterTAX</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="TAORKenmerken">
+<Type>APPS.PM.Maatwerk.dto.TAORKenmerken</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	do ##super()
+	
+	set ..Converter = ##class(APPS.PM.Maatwerk.impl.NaarObjectConverterTAX).%New()
+]]></Implementation>
+</Method>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	do ##super(aTestName)
+	
+	set ..TAORKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).StandaardLade()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Kenmerken zonder voorwaarden worden overgenomen">
+<Implementation><![CDATA[
+	#dim GeconverteerdeKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..Converter.Converteer(..TAORKenmerken)
+	
+	do $$$AssertEquals(GeconverteerdeKenmerken.AfdekkapBovenKleur, ..TAORKenmerken.FrontEindkapKleur)
+	do $$$AssertEquals(GeconverteerdeKenmerken.BodemKleur, ..TAORKenmerken.BodemKleur)
+	do $$$AssertEquals(GeconverteerdeKenmerken.Draagkracht, ..TAORKenmerken.Draagkracht)
+	do $$$AssertEquals(GeconverteerdeKenmerken.GlijderType, ..TAORKenmerken.GlijderType)
+	do $$$AssertEquals(GeconverteerdeKenmerken.IsBinnenlade, ..TAORKenmerken.IsBinnenlade)
+	do $$$AssertEquals(GeconverteerdeKenmerken.KoppelingType, ..TAORKenmerken.KoppelingType)
+	do $$$AssertEquals(GeconverteerdeKenmerken.LadeDiepte, ..TAORKenmerken.LadeDiepte)
+	do $$$AssertEquals(GeconverteerdeKenmerken.LadeHoogte, ..TAORKenmerken.LadeHoogte)
+	do $$$AssertEquals(GeconverteerdeKenmerken.LadeKleur, ..TAORKenmerken.LadeKleur)
+	do $$$AssertEquals(GeconverteerdeKenmerken.HeeftDiepteVerstelling, ..TAORKenmerken.HeeftDiepteVerstelling)
+	do $$$AssertEquals(GeconverteerdeKenmerken.HeeftOpvullijstLinks, ..TAORKenmerken.HeeftOpvullijstLinks)
+	do $$$AssertEquals(GeconverteerdeKenmerken.HeeftOpvullijstRechts, ..TAORKenmerken.HeeftOpvullijstRechts)
+	do $$$AssertEquals(GeconverteerdeKenmerken.HeeftTipon, ..TAORKenmerken.HeeftTipon)
+	do $$$AssertEquals(GeconverteerdeKenmerken.HeeftZijstabilisering, ..TAORKenmerken.HeeftZijstabilisering)
+	do $$$AssertEquals(GeconverteerdeKenmerken.OpvullijstKleur, ..TAORKenmerken.OpvullijstKleur)
+	do $$$AssertEquals(GeconverteerdeKenmerken.Uittrekbaarheid, ..TAORKenmerken.Uittrekbaarheid)
+	do $$$AssertEquals(GeconverteerdeKenmerken.VerpakkingType, ..TAORKenmerken.VerpakkingType)
+]]></Implementation>
+</Method>
+
+<Method name="Test: FrontBevestiging wordt overgenomen indien geen Binnenlade">
+<Implementation><![CDATA[
+	set ..TAORKenmerken.IsBinnenlade = $$$False
+	set ..TAORKenmerken.FrontBevestiging = ..Enum.FrontBevestiging.Expando
+	
+	#dim GeconverteerdeKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..Converter.Converteer(..TAORKenmerken)
+	
+	do $$$AssertEquals(GeconverteerdeKenmerken.FrontBevestiging, ..Enum.FrontBevestiging.Expando)
+]]></Implementation>
+</Method>
+
+<Method name="Test: FrontBevestiging wordt op Schroef gezet indien Binnenlade">
+<Implementation><![CDATA[
+	set ..TAORKenmerken.IsBinnenlade = $$$True
+	set ..TAORKenmerken.FrontBevestiging = ..Enum.FrontBevestiging.Expando
+	
+	#dim GeconverteerdeKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..Converter.Converteer(..TAORKenmerken)
+	
+	do $$$AssertEquals(GeconverteerdeKenmerken.FrontBevestiging, ..Enum.FrontBevestiging.Schroef)
+]]></Implementation>
+</Method>
+
+<Method name="Test: FrontEindkapKleur wordt overgenomen indien Binnenlade">
+<Implementation><![CDATA[
+	set ..TAORKenmerken.IsBinnenlade = $$$True
+	set ..TAORKenmerken.FrontEindkapKleur = ..Enum.FrontEindkapKleur.ZwartAluminiumLook
+	
+	#dim GeconverteerdeKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..Converter.Converteer(..TAORKenmerken)
+	
+	do $$$AssertEquals(GeconverteerdeKenmerken.FrontEindkapKleur, ..Enum.FrontEindkapKleur.ZwartAluminiumLook)
+]]></Implementation>
+</Method>
+
+<Method name="Test: FrontEindkapKleur wordt niet ingevuld indien geen Binnenlade">
+<Implementation><![CDATA[
+	set ..TAORKenmerken.IsBinnenlade = $$$False
+	set ..TAORKenmerken.FrontEindkapKleur = ..Enum.FrontEindkapKleur.ZwartAluminiumLook
+	
+	#dim GeconverteerdeKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..Converter.Converteer(..TAORKenmerken)
+	
+	do $$$AssertEquals(GeconverteerdeKenmerken.FrontEindkapKleur, "")
+]]></Implementation>
+</Method>
+
+<Method name="Test: LosseComponent wordt geconverteerd naar ProductieWijze indien VerpakkingType LosseComponentInBulk">
+<Implementation><![CDATA[
+	#dim LosseComponent As APPS.PM.enu.TAORLosseComponent.AutoComplete = ##class(APPS.PM.enu.TAORLosseComponent.AutoComplete).%New()
+	
+	set ..TAORKenmerken.VerpakkingType = ..Enum.VerpakkingType.LosseComponentenInBulk
+	set ..TAORKenmerken.LosseComponent = LosseComponent.Front
+	
+	#dim GeconverteerdeKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..Converter.Converteer(..TAORKenmerken)
+	
+	do $$$AssertEquals(GeconverteerdeKenmerken.ProductieWijze, ..Enum.ProductieWijze.Front)
+]]></Implementation>
+</Method>
+
+<Method name="Test: ProductieWijze wordt niet ingevuld indien ander VerpakkingType dan LosseComponentInBulk">
+<Implementation><![CDATA[
+	#dim LosseComponent As APPS.PM.enu.TAORLosseComponent.AutoComplete = ##class(APPS.PM.enu.TAORLosseComponent.AutoComplete).%New()
+	
+	set ..TAORKenmerken.VerpakkingType = ..Enum.VerpakkingType.BulkPerOnderdeelGegroepeerd
+	set ..TAORKenmerken.LosseComponent = LosseComponent.Front
+	
+	#dim GeconverteerdeKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..Converter.Converteer(..TAORKenmerken)
+	
+	do $$$AssertEquals(GeconverteerdeKenmerken.ProductieWijze, "")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>