Index: vhUnitTest/APPS/PM/Maatwerk/impl/KenmerkenConverter/DomNaarApps/Ink/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/PM/Maatwerk/impl/KenmerkenConverter/DomNaarApps/Ink/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/PM/Maatwerk/impl/KenmerkenConverter/DomNaarApps/Ink/Test.cls.xml	(revision 68408)
@@ -0,0 +1,56 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.PM.Maatwerk.impl.KenmerkenConverter.DomNaarApps.Ink.Test">
+<Super>vhUnitTest.DOM.PM.Maatwerk.INK.Base</Super>
+
+<Property name="DomNaarAppsConverter">
+<Type>APPS.PM.Maatwerk.impl.KenmerkenConverter.DomNaarApps.Ink</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Do ##super()
+	
+	Set ..DomNaarAppsConverter = ##class(APPS.PM.Maatwerk.impl.KenmerkenConverter.DomNaarApps.Ink).%New()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Conversie properties">
+<Implementation><![CDATA[
+	Do ..Assert("AantalLengtes", "AantalLengtes", 3, 3)
+	Do ..Assert("IdentiekeLengtes", "IdentiekeLengtes", $$$True, $$$True)
+	Do ..Assert("HalffabrikaatIdentNummer", "HalffabrikaatIdentNummer", "DummyID", "DummyID")
+	Do ..Assert("LengteProduct", "LengteProduct", 380, 380)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Conversie Lengtes">
+<Implementation><![CDATA[
+	#dim DomKenmerken As vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.INKKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.INKKenmerken).LegeKenmerken()
+	Do DomKenmerken.Lengtes.Insert(380)
+	Do DomKenmerken.Lengtes.Insert(250)
+	
+	#dim AppsKenmerken As APPS.PM.Maatwerk.dto.InkKenmerken = ..DomNaarAppsConverter.Converteer(DomKenmerken)
+	
+	Do $$$AssertInList(AppsKenmerken.Lengtes, 380)
+	Do $$$AssertInList(AppsKenmerken.Lengtes, 250)
+]]></Implementation>
+</Method>
+
+<Method name="Assert">
+<FormalSpec>DomKenmerkNaam:%String,AppsKenmerkNaam:%String,DomKenmerkWaarde:%String,VerwachteAppsKenmerkWaarde:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim DomKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.INKKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.INKKenmerken).LegeKenmerken()
+	Set $Property(DomKenmerken, DomKenmerkNaam) = DomKenmerkWaarde
+	
+	#dim AppsKenmerken As APPS.PM.Maatwerk.dto.INKKenmerken = ..DomNaarAppsConverter.Converteer(DomKenmerken)
+	
+	Do $$$AssertEquals($Property(AppsKenmerken, AppsKenmerkNaam), VerwachteAppsKenmerkWaarde)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/PM/Maatwerk/impl/KenmerkNaarDtoVisitor.cls.xml
===================================================================
diff -u -r66019 -r68408
--- APPS/PM/Maatwerk/impl/KenmerkNaarDtoVisitor.cls.xml	(.../KenmerkNaarDtoVisitor.cls.xml)	(revision 66019)
+++ APPS/PM/Maatwerk/impl/KenmerkNaarDtoVisitor.cls.xml	(.../KenmerkNaarDtoVisitor.cls.xml)	(revision 68408)
@@ -50,6 +50,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="KenmerkenConverterInk">
+<Type>APPS.PM.Maatwerk.impl.KenmerkenConverter.DomNaarApps.Ink</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
@@ -64,6 +69,7 @@
 	Set ..KenmerkenConverterTbx = ##class(APPS.PM.Maatwerk.impl.KenmerkenConverter.DomNaarApps.Tbx).%New()
 	Set ..KenmerkenConverterSST = ##class(APPS.PM.Maatwerk.impl.KenmerkenConverter.DomNaarApps.SST).%New()
 	Set ..KenmerkenConverterMvx = ##class(APPS.PM.Maatwerk.impl.KenmerkenConverter.DomNaarApps.Mvx).%New()
+	Set ..KenmerkenConverterInk = ##class(APPS.PM.Maatwerk.impl.KenmerkenConverter.DomNaarApps.Ink).%New()
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -151,6 +157,16 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkINKKenmerken">
+<FormalSpec>InkKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.INKKenmerken</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..IngegevenKenmerken = ..KenmerkenConverterInk.Converteer(InkKenmerken)
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkBasis">
 <FormalSpec>Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
 <Private>1</Private>
Index: ECONimpl/PM/Maatwerk/KenmerkenConverter/AppsNaarEconFactory.cls.xml
===================================================================
diff -u -r66665 -r68408
--- ECONimpl/PM/Maatwerk/KenmerkenConverter/AppsNaarEconFactory.cls.xml	(.../AppsNaarEconFactory.cls.xml)	(revision 66665)
+++ ECONimpl/PM/Maatwerk/KenmerkenConverter/AppsNaarEconFactory.cls.xml	(.../AppsNaarEconFactory.cls.xml)	(revision 68408)
@@ -9,7 +9,9 @@
 <Implementation><![CDATA[
 	#dim AppsNaarEconConverter As ECONimpl.PM.Maatwerk.KenmerkenConverter.AppsNaarEcon
 	
-	If (Kenmerken.GeefVariant()) [ "LBX"{
+	If (Kenmerken.GeefVariant()) [ "INK"{
+		Set AppsNaarEconConverter = ##class(ECONimpl.PM.Maatwerk.KenmerkenConverter.AppsNaarEcon.Ink).%New()
+	} ElseIf (Kenmerken.GeefVariant()) [ "LBX"{
 		Set AppsNaarEconConverter = ##class(ECONimpl.PM.Maatwerk.KenmerkenConverter.AppsNaarEcon.Lbx).%New()
 	} ElseIf (Kenmerken.GeefVariant()) [ "MVX"{
 		Set AppsNaarEconConverter = ##class(ECONimpl.PM.Maatwerk.KenmerkenConverter.AppsNaarEcon.Mvx).%New()
Index: APPS/PM/Maatwerk/impl/KenmerkenConverter/DomNaarApps/Ink.cls.xml
===================================================================
diff -u
--- APPS/PM/Maatwerk/impl/KenmerkenConverter/DomNaarApps/Ink.cls.xml	(revision 0)
+++ APPS/PM/Maatwerk/impl/KenmerkenConverter/DomNaarApps/Ink.cls.xml	(revision 68408)
@@ -0,0 +1,60 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.PM.Maatwerk.impl.KenmerkenConverter.DomNaarApps.Ink">
+<Super>DOM.PM.Maatwerk.INK.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.INKKenmerken</FormalSpec>
+<ReturnType>APPS.PM.Maatwerk.dto.INKKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim AppsKenmerken As APPS.PM.Maatwerk.dto.INKKenmerken = ##class(APPS.PM.Maatwerk.dto.INKKenmerken).%New()	
+		
+	Set AppsKenmerken.NietMeeleveren = ..GeefNietMeeleveren(DomKenmerken)
+	
+	Set AppsKenmerken.AantalLengtes = DomKenmerken.AantalLengtes
+	Set AppsKenmerken.IdentiekeLengtes = DomKenmerken.IdentiekeLengtes
+	Set AppsKenmerken.HalffabrikaatIdentNummer = DomKenmerken.HalffabrikaatIdentNummer
+	Set AppsKenmerken.LengteProduct = DomKenmerken.LengteProduct	
+	Set AppsKenmerken.Lengtes = DomKenmerken.Lengtes
+	
+	Quit AppsKenmerken
+]]></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 APPS.PM.Maatwerk.dto.IngegevenKenmerkenNietMeeleveren = ##class(APPS.PM.Maatwerk.dto.IngegevenKenmerkenNietMeeleveren).%New()
+	#dim Iterator As TECH.Iterator = ##class(TECH.ListIterator).%New(DomKenmerken.NietMeeleveren)
+	
+	While (Iterator.HasNext()) {
+		Do NietMeeleveren.Insert(Iterator.Next())
+	}
+	
+	Quit NietMeeleveren
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>