Index: vhUnitTest/APPS/EDI/common/impl/ProductConverter/EdiNaarApps/Tax/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EDI/common/impl/ProductConverter/EdiNaarApps/Tax/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EDI/common/impl/ProductConverter/EdiNaarApps/Tax/Test.cls.xml	(revision 52510)
@@ -0,0 +1,112 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EDI.common.impl.ProductConverter.EdiNaarApps.Tax.Test">
+<Super>vhUnitTest.DOM.PM.Maatwerk.TAX.Base</Super>
+
+<Property name="Converter">
+<Type>APPS.EDI.common.impl.ProductConverter</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Differenciator">
+<Type>TECH.ObjectUtils.impl.DifferenciatorXmlBased</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Do ##super()
+	
+	Set ..Converter = ##class(APPS.EDI.common.impl.ProductConverter).%New()
+	Set ..Differenciator = ##class(TECH.ObjectUtils.impl.DifferenciatorXmlBased).%New()
+]]></Implementation>
+</Method>
+
+<Method name="Test: TAX Standaardlade">
+<Implementation><![CDATA[	Do ..AssertConverter("StandaardLade")
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+/*
+Method "Test: TAX BinnenLade"()
+{
+	Do ..AssertConverter("BinnenLade")
+}
+
+Method "Test: TAX LadeMetVeelExtras"()
+{
+	Do ..AssertConverter("LadeMetVeelExtras")
+}
+*/
+]]></Content>
+</UDLText>
+
+<Method name="Test: TAX SifonLadeMet1Uitsparing">
+<Implementation><![CDATA[	Do ..AssertConverter("SifonLadeMet1Uitsparing")
+]]></Implementation>
+</Method>
+
+<Method name="Test: TAX SifonLadeMet2Uitsparingen">
+<Implementation><![CDATA[	Do ..AssertConverter("SifonLadeMet2Uitsparingen")
+]]></Implementation>
+</Method>
+
+<Method name="AssertConverter">
+<FormalSpec>SoortLade:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim LadeTAX As APPS.EDI.common.dto.v001.LadeTAX = $ClassMethod(##class(vhTest.Utils.APPS.EDI.common.dto.LadeTAX).%ClassName($$$True), SoortLade)
+
+	#dim ConvertOpties As TECH.KeyValue.List = ##class(TECH.KeyValue.List).%New()
+	Do ConvertOpties.InsertKeyValue("KlantID","K||1000")
+	Do ConvertOpties.InsertKeyValue("PersonalityID","1")
+	
+	#dim GeconverteerdeKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ..Converter.Convert(LadeTAX,ConvertOpties)
+	
+	Do $$$AssertEmptyList(..Differenciator.GetDifferences(GeconverteerdeKenmerken, $ClassMethod("vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken", SoortLade)))
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+/*
+Method "Test: Bij converteren van externe NietMeeleveren rollen worden bijhorende rollen ingevuld voor TIP-ON"()
+{
+	#dim EconKenmerken As ECON.PM.Maatwerk.dto.TaxKenmerken = ##class(vhTest.Utils.ECON.PM.Maatwerk.dto.TaxKenmerken).StandaardLade()
+	Set EconKenmerken.NietMeeleveren.TiponSynchronisatieSet = "true"
+	
+	#dim AppsKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ..Converter.Converteer(EconKenmerken)
+	
+	Do $$$AssertInList(AppsKenmerken.NietMeeleveren, ..Enum.NietMeeleveren.TiponSynchronisatieStang _ ..Enum.NietMeeleveren.TiponSynchronisatieTandwiel)
+}
+
+Method "Test: Bij converteren van externe NietMeeleveren rollen worden bijhorende rollen ingevuld voor TIP-ON BLUMOTION"()
+{
+	#dim EconKenmerken As ECON.PM.Maatwerk.dto.TaxKenmerken = ##class(vhTest.Utils.ECON.PM.Maatwerk.dto.TaxKenmerken).StandaardLade()
+	Set EconKenmerken.NietMeeleveren.TiponBlumotionSet = "true"
+	
+	#dim AppsKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ..Converter.Converteer(EconKenmerken)
+	
+	Do $$$AssertInList(AppsKenmerken.NietMeeleveren, ..Enum.NietMeeleveren.TiponBlumotionSetEenhedenEnMeenemers _ ..Enum.NietMeeleveren.TiponBlumotionSynchronisatieStang)
+}
+
+Method "Test: Bij converteren van interne NietMeeleveren rol wordt bijhorende rol ingevuld voor TIP-ON BLUMOTION"()
+{
+	#dim EconKenmerken As ECON.PM.Maatwerk.dto.TaxKenmerken = ##class(vhTest.Utils.ECON.PM.Maatwerk.dto.TaxKenmerken).StandaardLade()
+	Set EconKenmerken.NietMeeleveren.TiponBlumotionSetEenhedenEnMeenemers = "true"
+	Set EconKenmerken.NietMeeleveren.TiponBlumotionSynchronisatieStang = "true"
+	
+	#dim AppsKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ..Converter.Converteer(EconKenmerken)
+	
+	Do $$$AssertInList(AppsKenmerken.NietMeeleveren, ..Enum.NietMeeleveren.TiponBlumotionSetEenhedenEnMeenemers)
+	Do $$$AssertInList(AppsKenmerken.NietMeeleveren, ..Enum.NietMeeleveren.TiponBlumotionSynchronisatieStang)
+}
+*/
+]]></Content>
+</UDLText>
+</Class>
+
+
+</Export>