Index: vhUnitTest/APPS/PM/Maatwerk/impl/KenmerkenConverter/DomNaarApps/Tax/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/PM/Maatwerk/impl/KenmerkenConverter/DomNaarApps/Tax/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/PM/Maatwerk/impl/KenmerkenConverter/DomNaarApps/Tax/Test.cls.xml	(revision 50617)
@@ -0,0 +1,141 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.PM.Maatwerk.impl.KenmerkenConverter.DomNaarApps.Tax.Test">
+<Super>vhUnitTest.DOM.PM.Maatwerk.TAX.Base</Super>
+
+<Method name="Test: Standaard- en GuiKenmerken">
+<Implementation><![CDATA[
+	#dim DomKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade()
+	#dim DomNaarAppsConverter As APPS.PM.Maatwerk.impl.KenmerkenConverter.DomNaarApps.Tax = ##class(APPS.PM.Maatwerk.impl.KenmerkenConverter.DomNaarApps.Tax).%New()
+	#dim AppsKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = DomNaarAppsConverter.Converteer(DomKenmerken)
+	
+	Do ..AssertStandaardKenmerken(DomKenmerken, AppsKenmerken)
+	Do ..AssertGuiKenmerken(DomKenmerken.GUIKenmerken, AppsKenmerken)
+]]></Implementation>
+</Method>
+
+<Method name="AssertStandaardKenmerken">
+<FormalSpec>DomKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken,AppsKenmerken:APPS.PM.Maatwerk.dto.TAORKenmerken</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do $$$AssertEquals(DomKenmerken.BodemKleur, AppsKenmerken.BodemKleur, "BodemKleur wordt overgenomen")
+	Do $$$AssertEquals(DomKenmerken.Draagkracht, AppsKenmerken.Draagkracht, "Draagkracht wordt overgenomen")
+	Do $$$AssertEquals(DomKenmerken.FrontBevestiging, AppsKenmerken.FrontBevestiging, "FrontBevestiging wordt overgenomen")
+	Do $$$AssertEquals(DomKenmerken.AfdekkapBovenKleur, AppsKenmerken.FrontEindkapKleur, "FrontEindkapKleur wordt overgenomen van AfdekkapBovenKleur")
+	Do $$$AssertEquals(DomKenmerken.GeleiderTechnologie, AppsKenmerken.GeleiderTechnologie, "GeleiderTechnologie wordt overgenomen")
+	Do $$$AssertEquals(DomKenmerken.GlijderType, AppsKenmerken.GlijderType, "GlijderType wordt overgenomen")
+	Do $$$AssertEquals(DomKenmerken.HeeftDiepteVerstelling, AppsKenmerken.HeeftDiepteVerstelling, "HeeftDiepteVerstelling wordt overgenomen")
+	Do $$$AssertEquals(DomKenmerken.HeeftOpvullijstLinks, AppsKenmerken.HeeftOpvullijstLinks, "HeeftOpvullijstLinks wordt overgenomen")
+	Do $$$AssertEquals(DomKenmerken.HeeftOpvullijstRechts, AppsKenmerken.HeeftOpvullijstRechts, "HeeftOpvullijstRechts wordt overgenomen")
+	Do $$$AssertEquals(DomKenmerken.HeeftZijstabilisering, AppsKenmerken.HeeftZijstabilisering, "HeeftZijstabilisering wordt overgenomen")
+	Do $$$AssertEquals(DomKenmerken.IsBinnenlade, AppsKenmerken.IsBinnenlade, "IsBinnenlade wordt overgenomen")
+	Do $$$AssertEquals(DomKenmerken.KantenbandKleur, AppsKenmerken.KantenbandKleur, "KantenbandKleur wordt overgenomen")
+	Do $$$AssertEquals(DomKenmerken.KoppelingType, AppsKenmerken.KoppelingType, "KoppelingType wordt overgenomen")
+	Do $$$AssertEquals(DomKenmerken.LadeBinnenKleur, AppsKenmerken.LadeBinnenKleur, "LadeBinnenKleur wordt overgenomen")
+	Do $$$AssertEquals(DomKenmerken.LadeDiepte, AppsKenmerken.LadeDiepte, "LadeDiepte wordt overgenomen")
+	Do $$$AssertEquals(DomKenmerken.LadeHoogte, AppsKenmerken.LadeHoogte, "LadeHoogte wordt overgenomen")
+	Do $$$AssertEquals(DomKenmerken.LadeKleur, AppsKenmerken.LadeKleur, "LadeKleur wordt overgenomen")
+	Do $$$AssertEquals(DomKenmerken.ProductieWijze, AppsKenmerken.LosseComponent, "LosseComponent wordt overgenomen van ProductieWijze")
+	Do $$$AssertEquals(DomKenmerken.OpvullijstKleur, AppsKenmerken.OpvullijstKleur, "OpvullijstKleur wordt overgenomen")
+	Do $$$AssertEquals(DomKenmerken.RugHoogte, AppsKenmerken.RugHoogte, "RugHoogte wordt overgenomen")
+	Do $$$AssertEquals(DomKenmerken.SpecialType, AppsKenmerken.SpecialType, "SpecialType wordt overgenomen")
+	Do $$$AssertEquals(DomKenmerken.Uittrekbaarheid, AppsKenmerken.Uittrekbaarheid, "Uittrekbaarheid wordt overgenomen")
+	Do $$$AssertEquals(DomKenmerken.VerpakkingType, AppsKenmerken.VerpakkingType, "VerpakkingType wordt overgenomen")
+]]></Implementation>
+</Method>
+
+<Method name="AssertGuiKenmerken">
+<FormalSpec>GuiKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORGUIKenmerken,AppsKenmerken:APPS.PM.Maatwerk.dto.TAORKenmerken</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do $$$AssertEquals(GuiKenmerken.WandDikte, AppsKenmerken.CorpusWandDikte, "CorpusWandDikte wordt overgenomen van GUIKenmerken")
+	Do $$$AssertEquals(GuiKenmerken.IsBinnenbreedte, AppsKenmerken.IsBinnenbreedte, "IsBinnenbreedte wordt overgenomen van GUIKenmerken")
+]]></Implementation>
+</Method>
+
+<Method name="Test: CorpusBreedte wordt lege string indien InterneBreedte gelijk aan 0">
+<Implementation><![CDATA[
+	#dim DomKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade()
+	Set DomKenmerken.CorpusBinnenbreedte = 0
+	Set DomKenmerken.HeeftOpvullijstLinks = $$$False
+	Set DomKenmerken.HeeftOpvullijstRechts = $$$False
+	
+	Do ..AssertCorpusBreedte(DomKenmerken, "", "CorpusBreedte wordt gewist indien InterneBreedte gelijk aan 0")
+]]></Implementation>
+</Method>
+
+<Method name="Test: CorpusBreedte wordt lege string indien InterneBreedte kleiner dan 0">
+<Implementation><![CDATA[
+	#dim DomKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade()
+	Set DomKenmerken.CorpusBinnenbreedte = 0
+	Set DomKenmerken.HeeftOpvullijstLinks = $$$True
+	Set DomKenmerken.HeeftOpvullijstRechts = $$$True
+	
+	Do ..AssertCorpusBreedte(DomKenmerken, "", "CorpusBreedte wordt gewist indien InterneBreedte kleiner dan 0")
+]]></Implementation>
+</Method>
+
+<Method name="AssertCorpusBreedte">
+<FormalSpec>DomKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken,VerwachteCorpusBreedte:%String,Message:%String=""</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim DomNaarAppsConverter As APPS.PM.Maatwerk.impl.KenmerkenConverter.DomNaarApps.Tax = ##class(APPS.PM.Maatwerk.impl.KenmerkenConverter.DomNaarApps.Tax).%New()
+	#dim AppsKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = DomNaarAppsConverter.Converteer(DomKenmerken)
+	
+	Do $$$AssertEquals(AppsKenmerken.CorpusBreedte, VerwachteCorpusBreedte, Message)
+]]></Implementation>
+</Method>
+
+<Method name="Test: CorpusBreedte wordt berekend door MaatwerkCalcApi indien InterneBreedte groter dan 0">
+<Implementation><![CDATA[
+	#dim RandomCorpusBreedte As %Decimal = 123456
+	#dim DomKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade()
+	
+	#dim LadeCorpusBreedteBepalerMock As vhTest.Mock.DOM.PM.Maatwerk.Lade.CorpusBreedteBepaler = ##class(vhTest.Mock.DOM.PM.Maatwerk.Lade.CorpusBreedteBepaler).%New()
+	Do LadeCorpusBreedteBepalerMock.VerwachtMethodCall("GeefCorpusBreedte", DomKenmerken).DanReturn(RandomCorpusBreedte)
+	
+	#dim MaatwerkCalcApiMock As vhTest.Mock.DOM.PM.MaatwerkCalcAPI = ##class(vhTest.Mock.DOM.PM.MaatwerkCalcAPI).%New()
+	Do MaatwerkCalcApiMock.VerwachtMethodCall("GeefLadeCorpusBreedteBepaler").DanReturn(LadeCorpusBreedteBepalerMock)
+	
+	#dim DomNaarAppsConverter As APPS.PM.Maatwerk.impl.KenmerkenConverter.DomNaarApps.Tax = ##class(APPS.PM.Maatwerk.impl.KenmerkenConverter.DomNaarApps.Tax).%New(MaatwerkCalcApiMock)
+	#dim AppsKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = DomNaarAppsConverter.Converteer(DomKenmerken)
+	
+	Do $$$AssertEquals(AppsKenmerken.CorpusBreedte, RandomCorpusBreedte, "CorpusBreedte wordt berekend door MaatwerkCalcApi")
+	
+	Do MaatwerkCalcApiMock.Verifieer()
+	Do LadeCorpusBreedteBepalerMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: NietMeeleveren rollen TiponSynchronisatieStang en -Tandwiel worden geconcateneerd indien beide aanwezig">
+<Implementation><![CDATA[
+	#dim DomKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade()
+	Do DomKenmerken.NietMeeleveren.Insert(..Enum.NietMeeleveren.TiponSynchronisatieStang)
+	Do DomKenmerken.NietMeeleveren.Insert(..Enum.NietMeeleveren.TiponSynchronisatieTandwiel)
+	
+	#dim DomNaarAppsConverter As APPS.PM.Maatwerk.impl.KenmerkenConverter.DomNaarApps.Tax = ##class(APPS.PM.Maatwerk.impl.KenmerkenConverter.DomNaarApps.Tax).%New()
+	#dim AppsKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = DomNaarAppsConverter.Converteer(DomKenmerken)
+	
+	Do $$$AssertInList(AppsKenmerken.NietMeeleveren, ..Enum.NietMeeleveren.TiponSynchronisatieStang _ ..Enum.NietMeeleveren.TiponSynchronisatieTandwiel)
+	Do $$$AssertNotInList(AppsKenmerken.NietMeeleveren, ..Enum.NietMeeleveren.TiponSynchronisatieStang)
+	Do $$$AssertNotInList(AppsKenmerken.NietMeeleveren, ..Enum.NietMeeleveren.TiponSynchronisatieTandwiel)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Afzonderlijke NietMeeleveren rollen TiponBlumotionSetEenhedenEnMeenemers, -SynchronisatieAdapter en -SynchronisatieStang worden verwijderd indien geconcateneerde rol aanwezig">
+<Implementation><![CDATA[
+	#dim DomKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade()
+	Do DomKenmerken.NietMeeleveren.Insert(..Enum.NietMeeleveren.TiponBlumotionSetEenhedenEnMeenemers _ ..Enum.NietMeeleveren.TiponBlumotionSynchronisatieAdapter _ ..Enum.NietMeeleveren.TiponBlumotionSynchronisatieStang)
+	
+	#dim DomNaarAppsConverter As APPS.PM.Maatwerk.impl.KenmerkenConverter.DomNaarApps.Tax = ##class(APPS.PM.Maatwerk.impl.KenmerkenConverter.DomNaarApps.Tax).%New()
+	#dim AppsKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = DomNaarAppsConverter.Converteer(DomKenmerken)
+	
+	Do $$$AssertNotInList(AppsKenmerken.NietMeeleveren, ..Enum.NietMeeleveren.TiponBlumotionSetEenhedenEnMeenemers)
+	Do $$$AssertNotInList(AppsKenmerken.NietMeeleveren, ..Enum.NietMeeleveren.TiponBlumotionSynchronisatieAdapter)
+	Do $$$AssertNotInList(AppsKenmerken.NietMeeleveren, ..Enum.NietMeeleveren.TiponBlumotionSynchronisatieStang)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/PM/Maatwerk/impl/KenmerkenConverter/DomNaarApps/Tax.cls.xml
===================================================================
diff -u
--- APPS/PM/Maatwerk/impl/KenmerkenConverter/DomNaarApps/Tax.cls.xml	(revision 0)
+++ APPS/PM/Maatwerk/impl/KenmerkenConverter/DomNaarApps/Tax.cls.xml	(revision 50617)
@@ -0,0 +1,107 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.PM.Maatwerk.impl.KenmerkenConverter.DomNaarApps.Tax">
+<Super>DOM.PM.Maatwerk.TAX.impl.Base</Super>
+
+<Property name="MaatwerkCalcApi">
+<Type>DOM.PM.MaatwerkCalcAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>MaatwerkCalcApi:DOM.PM.MaatwerkCalcAPI</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..MaatwerkCalcApi = $$$Inject(MaatwerkCalcApi, ##class(DOM.PM.impl.MaatwerkCalcAPI).%New())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Converteer">
+<FormalSpec>DomKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</FormalSpec>
+<ReturnType>APPS.PM.Maatwerk.dto.TAORKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim AppsKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(APPS.PM.Maatwerk.dto.TAORKenmerken).%New()
+	
+	Set AppsKenmerken.BodemKleur = DomKenmerken.BodemKleur
+	Set AppsKenmerken.CorpusBreedte = ..GeefCorpusBreedte(DomKenmerken)
+	Set AppsKenmerken.CorpusWandDikte = DomKenmerken.GUIKenmerken.WandDikte
+	Set AppsKenmerken.Draagkracht = DomKenmerken.Draagkracht
+	Set AppsKenmerken.FrontBevestiging = DomKenmerken.FrontBevestiging
+	Set AppsKenmerken.FrontEindkapKleur = DomKenmerken.AfdekkapBovenKleur
+	Set AppsKenmerken.GeleiderTechnologie = DomKenmerken.GeleiderTechnologie
+	Set AppsKenmerken.GlijderType = DomKenmerken.GlijderType
+	Set AppsKenmerken.HeeftDiepteVerstelling = DomKenmerken.HeeftDiepteVerstelling
+	Set AppsKenmerken.HeeftOpvullijstLinks = DomKenmerken.HeeftOpvullijstLinks
+	Set AppsKenmerken.HeeftOpvullijstRechts = DomKenmerken.HeeftOpvullijstRechts
+	Set AppsKenmerken.HeeftZijstabilisering = DomKenmerken.HeeftZijstabilisering
+	Set AppsKenmerken.IsBinnenbreedte = DomKenmerken.GUIKenmerken.IsBinnenbreedte
+	Set AppsKenmerken.IsBinnenlade = DomKenmerken.IsBinnenlade
+	Set AppsKenmerken.KantenbandKleur = DomKenmerken.KantenbandKleur
+	Set AppsKenmerken.KoppelingType = DomKenmerken.KoppelingType
+	Set AppsKenmerken.LadeBinnenKleur = DomKenmerken.LadeBinnenKleur
+	Set AppsKenmerken.LadeDiepte = DomKenmerken.LadeDiepte
+	Set AppsKenmerken.LadeHoogte = DomKenmerken.LadeHoogte
+	Set AppsKenmerken.LadeKleur = DomKenmerken.LadeKleur
+	Set AppsKenmerken.LosseComponent = DomKenmerken.ProductieWijze
+	Set AppsKenmerken.NietMeeleveren = ..GeefNietMeeleveren(DomKenmerken)
+	Set AppsKenmerken.OpvullijstKleur = DomKenmerken.OpvullijstKleur
+	Set AppsKenmerken.RugHoogte = DomKenmerken.RugHoogte
+	Set AppsKenmerken.SpecialType = DomKenmerken.SpecialType
+	Set AppsKenmerken.Uittrekbaarheid = DomKenmerken.Uittrekbaarheid
+	Set AppsKenmerken.VerpakkingType = DomKenmerken.VerpakkingType
+	
+	Quit AppsKenmerken
+]]></Implementation>
+</Method>
+
+<Method name="GeefCorpusBreedte">
+<FormalSpec>DomKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim CorpusBreedte As %String = ""
+	
+	If $$$Not(+DomKenmerken.InterneBreedte <= 0) {
+		Set CorpusBreedte = ..MaatwerkCalcApi.GeefLadeCorpusBreedteBepaler().GeefCorpusBreedte(DomKenmerken)	
+	}
+	
+	Quit CorpusBreedte
+]]></Implementation>
+</Method>
+
+<Method name="GeefNietMeeleveren">
+<FormalSpec>DomKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	#dim NietMeeleveren As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	#dim Iterator As TECH.Iterator = ##class(TECH.ListIterator).%New(DomKenmerken.NietMeeleveren)
+	
+	While (Iterator.HasNext()) {
+		Do NietMeeleveren.Insert(Iterator.Next())
+	}
+
+	If (##class(TECH.ListUtils).Contains(NietMeeleveren, ..Enum.NietMeeleveren.TiponSynchronisatieStang) && ##class(TECH.ListUtils).Contains(NietMeeleveren, ..Enum.NietMeeleveren.TiponSynchronisatieTandwiel)) {
+		Do NietMeeleveren.Insert(..Enum.NietMeeleveren.TiponSynchronisatieStang _ ..Enum.NietMeeleveren.TiponSynchronisatieTandwiel)
+		Do NietMeeleveren.RemoveAt(NietMeeleveren.Find(..Enum.NietMeeleveren.TiponSynchronisatieStang))
+		Do NietMeeleveren.RemoveAt(NietMeeleveren.Find(..Enum.NietMeeleveren.TiponSynchronisatieTandwiel))
+	}
+
+	If (##class(TECH.ListUtils).Contains(NietMeeleveren, ..Enum.NietMeeleveren.TiponBlumotionSetEenhedenEnMeenemers _ ..Enum.NietMeeleveren.TiponBlumotionSynchronisatieAdapter _ ..Enum.NietMeeleveren.TiponBlumotionSynchronisatieStang)) {
+		Do NietMeeleveren.RemoveAt(NietMeeleveren.Find(..Enum.NietMeeleveren.TiponBlumotionSetEenhedenEnMeenemers))
+		Do NietMeeleveren.RemoveAt(NietMeeleveren.Find(..Enum.NietMeeleveren.TiponBlumotionSynchronisatieAdapter))
+		Do NietMeeleveren.RemoveAt(NietMeeleveren.Find(..Enum.NietMeeleveren.TiponBlumotionSynchronisatieStang))
+	}
+
+	Quit NietMeeleveren
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>