Index: vhTest/Utils/ECON/PM/Maatwerk/dto/InkKenmerken.cls.xml
===================================================================
diff -u
--- vhTest/Utils/ECON/PM/Maatwerk/dto/InkKenmerken.cls.xml	(revision 0)
+++ vhTest/Utils/ECON/PM/Maatwerk/dto/InkKenmerken.cls.xml	(revision 68078)
@@ -0,0 +1,42 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Utils.ECON.PM.Maatwerk.dto.InkKenmerken">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="StandaardInkorting">
+<ClassMethod>1</ClassMethod>
+<ReturnType>ECON.PM.Maatwerk.dto.InkKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim InkKenmerken As ECON.PM.Maatwerk.dto.InkKenmerken = ##class(ECON.PM.Maatwerk.dto.InkKenmerken).%New()
+	
+	Set InkKenmerken.AantalLengtes = 3
+	Set InkKenmerken.HalffabrikaatIdentNummer = "0.924.098.0"
+	Set InkKenmerken.IdentiekeLengtes = "false"
+	Set InkKenmerken.LengteProduct = 1080
+	Set InkKenmerken.Lengtes = "380;240;160"
+	Set InkKenmerken.Variant = "INK"
+	
+	Quit InkKenmerken
+]]></Implementation>
+</Method>
+
+<Method name="StandaardInkortingMetIdentiekeLengtes">
+<ClassMethod>1</ClassMethod>
+<ReturnType>ECON.PM.Maatwerk.dto.InkKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim InkKenmerken As ECON.PM.Maatwerk.dto.InkKenmerken = ##class(ECON.PM.Maatwerk.dto.InkKenmerken).%New()
+	
+	Set InkKenmerken.AantalLengtes = 3
+	Set InkKenmerken.HalffabrikaatIdentNummer = "0.924.098.0"
+	Set InkKenmerken.IdentiekeLengtes = "true"
+	Set InkKenmerken.LengteProduct = 1080
+	Set InkKenmerken.Lengtes = "240"
+	Set InkKenmerken.Variant = "INK"
+	
+	Quit InkKenmerken
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Utils/AXimpl/PM/Maatwerk/InkKenmerken.cls.xml
===================================================================
diff -u
--- vhTest/Utils/AXimpl/PM/Maatwerk/InkKenmerken.cls.xml	(revision 0)
+++ vhTest/Utils/AXimpl/PM/Maatwerk/InkKenmerken.cls.xml	(revision 68078)
@@ -0,0 +1,75 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Utils.AXimpl.PM.Maatwerk.InkKenmerken">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="LegeKenmerken">
+<ClassMethod>1</ClassMethod>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[	Quit ##class(%ListOfObjects).%New()
+]]></Implementation>
+</Method>
+
+<Method name="StandaardInkorting">
+<ClassMethod>1</ClassMethod>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	#dim InkKenmerken As %ListOfObjects = ..LegeKenmerken()
+	
+	Do ..VoegToeKenmerk("Aantallengtes", 3, InkKenmerken)
+	Do ..VoegToeKenmerk("Halffabrikaatidentnummer", "0.924.098.0", InkKenmerken)
+	Do ..VoegToeKenmerk("Identiekelengtes", "false", InkKenmerken)
+	Do ..VoegToeKenmerk("Lengteproduct", 1080, InkKenmerken)
+	Do ..VoegToeKenmerk("Lengtes", "380;240;160", InkKenmerken)
+	Do ..VoegToeKenmerk("Variant", "INK", InkKenmerken)
+	
+	Quit InkKenmerken
+]]></Implementation>
+</Method>
+
+<Method name="StandaardInkortingMetIdentiekeLengtes">
+<ClassMethod>1</ClassMethod>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	#dim InkKenmerken As %ListOfObjects = ..LegeKenmerken()
+	
+	Do ..VoegToeKenmerk("Aantallengtes", 3, InkKenmerken)
+	Do ..VoegToeKenmerk("Halffabrikaatidentnummer", "0.924.098.0", InkKenmerken)
+	Do ..VoegToeKenmerk("Identiekelengtes", "true", InkKenmerken)
+	Do ..VoegToeKenmerk("Lengteproduct", 1080, InkKenmerken)
+	Do ..VoegToeKenmerk("Lengtes", "240", InkKenmerken)
+	Do ..VoegToeKenmerk("Variant", "INK", InkKenmerken)
+	
+	Quit InkKenmerken
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeKenmerk">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>AxdEntityAttributeName:%String,AxdEntityAttributeValueTxt:%String,InkKenmerken:%ListOfObjects</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim AxdEntityAttribute As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute
+	#dim AxdEntityAttributeNameFull = "Data.Kenmerken."_AxdEntityAttributeName
+	
+	If ##class(TECH.ListUtils).ExistsPropertyWithValue(InkKenmerken,"Name",AxdEntityAttributeNameFull) {
+		Set AxdEntityAttribute = ##class(TECH.ObjectListUtils).FindPropertyWithValue(InkKenmerken,"Name",AxdEntityAttributeNameFull)
+		
+		If $IsObject(AxdEntityAttribute) {
+			Set AxdEntityAttribute.ValueTxt = AxdEntityAttributeValueTxt
+		} Else {
+			Do ##class(TECH.Exceptions.InvalidInputException).Throw("Geen AxdEntityAttribute met name = '"_AxdEntityAttributeNameFull_"' gevonden in InkKenmerken. De waarde kan dus niet vervangen worden.")
+		}
+	} Else {
+		Set AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New()
+		Set AxdEntityAttribute.Name = AxdEntityAttributeNameFull
+		Set AxdEntityAttribute.ValueTxt = AxdEntityAttributeValueTxt
+		
+		Do InkKenmerken.Insert(AxdEntityAttribute)
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/ECONimpl/PM/Maatwerk/KenmerkenConverter/EconNaarAppsFactory/Test.cls.xml
===================================================================
diff -u -r64205 -r68078
--- vhUnitTest/ECONimpl/PM/Maatwerk/KenmerkenConverter/EconNaarAppsFactory/Test.cls.xml	(.../Test.cls.xml)	(revision 64205)
+++ vhUnitTest/ECONimpl/PM/Maatwerk/KenmerkenConverter/EconNaarAppsFactory/Test.cls.xml	(.../Test.cls.xml)	(revision 68078)
@@ -23,6 +23,7 @@
 	Do ..AssertConverter(##class(vhTest.Utils.ECON.PM.Maatwerk.dto.TaxKenmerken).StandaardLade(), ##class(ECONimpl.PM.Maatwerk.KenmerkenConverter.EconNaarApps.Tax).%ClassName($$$True))
 	Do ..AssertConverter(##class(vhTest.Utils.ECON.PM.Maatwerk.dto.MvxKenmerken).StandaardLade(), ##class(ECONimpl.PM.Maatwerk.KenmerkenConverter.EconNaarApps.Mvx).%ClassName($$$True))
 	Do ..AssertConverter(##class(vhTest.Utils.ECON.PM.Maatwerk.dto.MatKenmerken).StandaardMat(), ##class(ECONimpl.PM.Maatwerk.KenmerkenConverter.EconNaarApps.Mat).%ClassName($$$True))
+	Do ..AssertConverter(##class(vhTest.Utils.ECON.PM.Maatwerk.dto.InkKenmerken).StandaardInkorting(), ##class(ECONimpl.PM.Maatwerk.KenmerkenConverter.EconNaarApps.Ink).%ClassName($$$True))
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/ECONimpl/PM/Maatwerk/KenmerkenConverter/EconNaarApps/Ink/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/ECONimpl/PM/Maatwerk/KenmerkenConverter/EconNaarApps/Ink/Test.cls.xml	(revision 0)
+++ vhUnitTest/ECONimpl/PM/Maatwerk/KenmerkenConverter/EconNaarApps/Ink/Test.cls.xml	(revision 68078)
@@ -0,0 +1,48 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.ECONimpl.PM.Maatwerk.KenmerkenConverter.EconNaarApps.Ink.Test">
+<Super>vhUnitTest.DOM.PM.Maatwerk.INK.Base</Super>
+
+<Property name="Converter">
+<Type>ECONimpl.PM.Maatwerk.KenmerkenConverter.EconNaarApps.Ink</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(ECONimpl.PM.Maatwerk.KenmerkenConverter.EconNaarApps.Ink).%New()
+	Set ..Differenciator = ##class(TECH.ObjectUtils.impl.DifferenciatorXmlBased).%New()
+]]></Implementation>
+</Method>
+
+<Method name="Test: INK StandaardInkorting">
+<Implementation><![CDATA[	Do ..AssertConverter("StandaardInkorting")
+]]></Implementation>
+</Method>
+
+<Method name="Test: INK StandaardInkortingMetIdentiekeLengtes">
+<Implementation><![CDATA[	Do ..AssertConverter("StandaardInkortingMetIdentiekeLengtes")
+]]></Implementation>
+</Method>
+
+<Method name="AssertConverter">
+<FormalSpec>SoortInkorting:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim EconKenmerken As ECON.PM.Maatwerk.dto.InkKenmerken = $ClassMethod(##class(vhTest.Utils.ECON.PM.Maatwerk.dto.InkKenmerken).%ClassName($$$True), SoortInkorting)
+	#dim GeconverteerdeKenmerken As APPS.PM.Maatwerk.dto.INKKenmerken = ..Converter.Converteer(EconKenmerken)
+	
+	Do $$$AssertEmptyList(..Differenciator.GetDifferences(GeconverteerdeKenmerken, $ClassMethod(##class(vhTest.Utils.APPS.PM.Maatwerk.dto.INKKenmerken).%ClassName($$$True), SoortInkorting)))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Utils/APPS/PM/Maatwerk/dto/INKKenmerken.cls.xml
===================================================================
diff -u
--- vhTest/Utils/APPS/PM/Maatwerk/dto/INKKenmerken.cls.xml	(revision 0)
+++ vhTest/Utils/APPS/PM/Maatwerk/dto/INKKenmerken.cls.xml	(revision 68078)
@@ -0,0 +1,51 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Utils.APPS.PM.Maatwerk.dto.INKKenmerken">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="LegeKenmerken">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.PM.Maatwerk.dto.INKKenmerken</ReturnType>
+<Implementation><![CDATA[	Quit ##class(APPS.PM.Maatwerk.dto.INKKenmerken).%New()
+]]></Implementation>
+</Method>
+
+<Method name="StandaardInkorting">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.PM.Maatwerk.dto.INKKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim INKKenmerken As APPS.PM.Maatwerk.dto.INKKenmerken = ..LegeKenmerken()
+	
+	Set INKKenmerken.AantalLengtes = 3
+	Set INKKenmerken.HalffabrikaatIdentNummer = "0.924.098.0"
+	Set INKKenmerken.IdentiekeLengtes = $$$False
+	Set INKKenmerken.LengteProduct = 1080
+	Set INKKenmerken.Lengtes = ##class(%ListOfDataTypes).%New()
+	Do INKKenmerken.Lengtes.Insert(380)
+	Do INKKenmerken.Lengtes.Insert(240)
+	Do INKKenmerken.Lengtes.Insert(160)
+	
+	Quit INKKenmerken
+]]></Implementation>
+</Method>
+
+<Method name="StandaardInkortingMetIdentiekeLengtes">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.PM.Maatwerk.dto.INKKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim INKKenmerken As APPS.PM.Maatwerk.dto.INKKenmerken = ..LegeKenmerken()
+	
+	Set INKKenmerken.AantalLengtes = 3
+	Set INKKenmerken.HalffabrikaatIdentNummer = "0.924.098.0"
+	Set INKKenmerken.IdentiekeLengtes = $$$True
+	Set INKKenmerken.LengteProduct = 1080
+	Set INKKenmerken.Lengtes = ##class(%ListOfDataTypes).%New()
+	Do INKKenmerken.Lengtes.Insert(240)
+	
+	Quit INKKenmerken
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/AXimpl/PM/Maatwerk/INK/AxNaarEconConverter/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/AXimpl/PM/Maatwerk/INK/AxNaarEconConverter/Test.cls.xml	(revision 0)
+++ vhUnitTest/AXimpl/PM/Maatwerk/INK/AxNaarEconConverter/Test.cls.xml	(revision 68078)
@@ -0,0 +1,50 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.AXimpl.PM.Maatwerk.INK.AxNaarEconConverter.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="Converter">
+<Type>AXimpl.PM.Maatwerk.AxNaarEconConverter</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(AXimpl.PM.Maatwerk.AxNaarEconConverter).%New()
+	Set ..Differenciator = ##class(TECH.ObjectUtils.impl.DifferenciatorXmlBased).%New()
+]]></Implementation>
+</Method>
+
+<Method name="Test: INK StandaardInkorting">
+<Implementation><![CDATA[	Do ..AssertConverter("StandaardInkorting")
+]]></Implementation>
+</Method>
+
+<Method name="Test: INK StandaardInkortingMetIdentiekeLengtes">
+<Implementation><![CDATA[	Do ..AssertConverter("StandaardInkortingMetIdentiekeLengtes")
+]]></Implementation>
+</Method>
+
+<Method name="AssertConverter">
+<FormalSpec>SoortLade:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim AxKenmerken As %ListOfDataTypes = $ClassMethod(##class(vhTest.Utils.AXimpl.PM.Maatwerk.InkKenmerken).%ClassName(1), SoortLade)
+	Do ##class(Tools.Wlip).%New(110).ListOfObjectsToText(AxKenmerken)
+	#dim GeconverteerdeKenmerken As ECON.PM.Maatwerk.dto.EconConfiguratie = ..Converter.Convert(AxKenmerken)
+	#dim IngegevenKenmerken As ECON.PM.Maatwerk.dto.EconConfiguratieKenmerken = GeconverteerdeKenmerken.IngegevenKenmerken
+	Do ##class(Tools.Wlip).%New(110).ObjToText(GeconverteerdeKenmerken.IngegevenKenmerken)
+	Do $$$AssertEmptyList(..Differenciator.GetDifferences(IngegevenKenmerken, $ClassMethod(##class(vhTest.Utils.ECON.PM.Maatwerk.dto.InkKenmerken).%ClassName(1), SoortLade)))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: ECONimpl/PM/Maatwerk/KenmerkenConverter/AppsNaarEcon/Ink.cls.xml
===================================================================
diff -u
--- ECONimpl/PM/Maatwerk/KenmerkenConverter/AppsNaarEcon/Ink.cls.xml	(revision 0)
+++ ECONimpl/PM/Maatwerk/KenmerkenConverter/AppsNaarEcon/Ink.cls.xml	(revision 68078)
@@ -0,0 +1,51 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="ECONimpl.PM.Maatwerk.KenmerkenConverter.AppsNaarEcon.Ink">
+<CompileAfter>ECON.PM.Maatwerk.dto.InkKenmerken,APPS.PM.Maatwerk.dto.INKKenmerken</CompileAfter>
+<Super>ECONimpl.PM.Maatwerk.KenmerkenConverter.AppsNaarEcon,DOM.PM.Maatwerk.INK.impl.Base</Super>
+
+<Method name="Converteer">
+<FormalSpec>AppsKenmerken:APPS.PM.Maatwerk.dto.INKKenmerken</FormalSpec>
+<ReturnType>ECON.PM.Maatwerk.dto.InkKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim EconKenmerken As ECON.PM.Maatwerk.dto.InkKenmerken = ..ConverteerGegenereerdeProperties(AppsKenmerken)
+	
+	Set EconKenmerken.Lengtes = ##class(TECH.ListUtils).ListToPieces(AppsKenmerken.Lengtes,";")
+	Set EconKenmerken.Variant = "INK"
+	
+	Quit EconKenmerken
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerGegenereerdeProperties">
+<CodeMode>objectgenerator</CodeMode>
+<FormalSpec>Kenmerken:APPS.PM.Maatwerk.dto.INKKenmerken</FormalSpec>
+<ReturnType>ECON.PM.Maatwerk.dto.InkKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim Properties
+	Do arrProperties^vhLib.Class("APPS.PM.Maatwerk.dto.INKKenmerken",.Properties,"A","A","A",1)
+	
+	Do %code.WriteLine($$$TAB_"Set InkKenmerken = ##class(ECON.PM.Maatwerk.dto.InkKenmerken).%New()")
+	
+	#dim Property As %String = ""
+	For { set Property = $order(Properties(Property)) quit:Property=""
+		continue:(##class(TECH.StringUtils).Contains(Property,"Familie","VersieNr","ExplicietGekozenKenmerken","GekoppeldeIngegevenKenmerken","ProductieWijze","Mailer","Validator", "Omschrijving"))
+		continue:(##class(TECH.StringUtils).StartsWith(Property,"Mat","Niet"))
+		
+		if $listget(Properties(Property),1)="%Library.Boolean" { 
+			Do %code.WriteLine($$$TAB_"Set InkKenmerken."_Property_" = $select(Kenmerken."_Property_":""true"",1:""false"")")
+		} else {
+			Do %code.WriteLine($$$TAB_"Set InkKenmerken."_Property_" = Kenmerken."_Property)
+		}
+		
+	}
+	
+	Do %code.WriteLine($$$TAB_"Quit InkKenmerken")
+
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/ECONimpl/PM/Maatwerk/KenmerkenConverter/AppsNaarEcon/Ink/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/ECONimpl/PM/Maatwerk/KenmerkenConverter/AppsNaarEcon/Ink/Test.cls.xml	(revision 0)
+++ vhUnitTest/ECONimpl/PM/Maatwerk/KenmerkenConverter/AppsNaarEcon/Ink/Test.cls.xml	(revision 68078)
@@ -0,0 +1,48 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.ECONimpl.PM.Maatwerk.KenmerkenConverter.AppsNaarEcon.Ink.Test">
+<Super>vhUnitTest.DOM.PM.Maatwerk.LBX.Base</Super>
+
+<Property name="Converter">
+<Type>ECONimpl.PM.Maatwerk.KenmerkenConverter.AppsNaarEcon.Ink</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(ECONimpl.PM.Maatwerk.KenmerkenConverter.AppsNaarEcon.Ink).%New()
+	Set ..Differenciator = ##class(TECH.ObjectUtils.impl.DifferenciatorXmlBased).%New()
+]]></Implementation>
+</Method>
+
+<Method name="Test: INK StandaardInkorting">
+<Implementation><![CDATA[	Do ..AssertConverter("StandaardInkorting")
+]]></Implementation>
+</Method>
+
+<Method name="Test: INK StandaardInkortingMetIdentiekeLengtes">
+<Implementation><![CDATA[	Do ..AssertConverter("StandaardInkortingMetIdentiekeLengtes")
+]]></Implementation>
+</Method>
+
+<Method name="AssertConverter">
+<FormalSpec>SoortLade:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim AppsKenmerken As APPS.PM.Maatwerk.dto.INKKenmerken = $ClassMethod(##class(vhTest.Utils.APPS.PM.Maatwerk.dto.INKKenmerken).%ClassName($$$True), SoortLade)
+	#dim GeconverteerdeKenmerken As ECON.PM.Maatwerk.dto.InkKenmerken = ..Converter.Converteer(AppsKenmerken)
+	
+	Do $$$AssertEmptyList(..Differenciator.GetDifferences(GeconverteerdeKenmerken, $ClassMethod(##class(vhTest.Utils.ECON.PM.Maatwerk.dto.InkKenmerken).%ClassName($$$True), SoortLade)))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>