Index: vhUnitTest/DOM/PM/Maatwerk/INK/impl/KorttekstBepaler/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/Maatwerk/INK/impl/KorttekstBepaler/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/Maatwerk/INK/impl/KorttekstBepaler/Test.cls.xml	(revision 68077)
@@ -0,0 +1,88 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.PM.Maatwerk.INK.impl.KorttekstBepaler.Test">
+<Super>vhUnitTest.DOM.PM.Maatwerk.INK.Base</Super>
+
+<Parameter name="DossierNummer">
+<Type>%String</Type>
+<Default> 38J</Default>
+</Parameter>
+
+<Property name="InkKorttekstBepaler">
+<Type>DOM.PM.Maatwerk.INK.impl.KorttekstBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="INKKenmerken">
+<Type>DOM.PM.Maatwerk.Calc.Common.impl.INKKenmerken</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+ 	Do ##super()
+ 	
+ 	Set ..InkKorttekstBepaler = ##class(DOM.PM.Maatwerk.INK.impl.KorttekstBepaler).%New()
+]]></Implementation>
+</Method>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	
+	Set ..INKKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.INKKenmerken).StandaardInkorting()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Standaard gedrag">
+<Implementation><![CDATA[	Do ..AssertPositiesInKorttekst("ZR7.108 38JVERZ", 1, 25)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Korttekst begint met eerste 7 karakters van korttekst halffabrikaat">
+<Implementation><![CDATA[	Do ..AssertPositiesInKorttekst("ZR7.108", 1, 7)
+]]></Implementation>
+</Method>
+
+<Method name="Test: 4 karakters voorzien voor dossiercode">
+<Implementation><![CDATA[	Do ..AssertPositiesInKorttekst(" 38J", 8, 11)
+]]></Implementation>
+</Method>
+
+<Method name="Test: VERZ achteraan toegevoegd">
+<Implementation><![CDATA[	Do ..AssertPositiesInKorttekst("VERZ", 12, 16)
+]]></Implementation>
+</Method>
+
+<Method name="AssertPositiesInKorttekst">
+<FormalSpec>ControleKorttekst:TECH.String,BeginPositie:TECH.Integer,EindPositie:TECH.Integer=0</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Korttekst As TECH.String = ..GeefKorttekst()
+	
+	Set EindPositie = $$$If((EindPositie = 0), BeginPositie, EindPositie)
+	
+	Do $$$AssertEquals($Length(Korttekst), 15)
+	Do $$$AssertEquals($Extract(Korttekst, BeginPositie, EindPositie), ControleKorttekst)
+]]></Implementation>
+</Method>
+
+<Method name="GeefKorttekst">
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom).%New()
+	
+	Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.Halffab).%New(917818)
+	Set BewerktHalffabrikaat =  ##class(DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem).%New("", ##class(DOM.PM.Maatwerk.Calc.HF.enu.INKRol).BewerktHalffabrikaat(), Halffab)
+	
+	Do HalffabItemsBoom.HalffabItems.SetAt(BewerktHalffabrikaat, ##class(DOM.PM.Maatwerk.Calc.HF.enu.INKRol).BewerktHalffabrikaat())
+	
+	Quit ..InkKorttekstBepaler.BepaalKorttekst(..#DossierNummer, ..INKKenmerken, HalffabItemsBoom)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/DOM/PM/impl/INKLangtekstCreator/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/impl/INKLangtekstCreator/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/impl/INKLangtekstCreator/Test.cls.xml	(revision 68077)
@@ -0,0 +1,55 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.PM.impl.INKLangtekstCreator.Test">
+<Super>vhUnitTest.DOM.PM.Maatwerk.INK.Base</Super>
+
+<Property name="InkLangtekstCreator">
+<Type>DOM.PM.impl.INKLangtekstCreator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="InkKenmerken">
+<Type>DOM.PM.Maatwerk.Calc.Common.impl.INKKenmerken</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Do ##super()
+	
+	Set ..InkLangtekstCreator = ##class(DOM.PM.impl.INKLangtekstCreator).%New()
+]]></Implementation>
+</Method>
+
+<Method name="Test: StandaardInkorting">
+<Implementation><![CDATA[
+	Set ..InkKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.INKKenmerken).StandaardInkorting()
+	
+	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst()
+	#dim ControleLangtekst As TECH.String = ##class(TECH.StringUtils).Concatenate(  "Verzagen van" _ $$$CRLF, 
+																					"ZR7.1080U  RELING  20ELN2" _ $$$CRLF,
+																					"op lengte 380 en 240 en 160mm")
+	
+	Do $$$AssertEquals(Langtekst.GeefString(), ControleLangtekst)
+]]></Implementation>
+</Method>
+
+<Method name="GeefLangtekst">
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim Taal As DOM.enu.Taal = ##class(DOM.enu.Taal).Nederlands()
+	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom).%New()
+	
+	Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.Halffab).%New(917818)
+	Set BewerktHalffabrikaat =  ##class(DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem).%New("", ##class(DOM.PM.Maatwerk.Calc.HF.enu.INKRol).BewerktHalffabrikaat(), Halffab)
+	
+	Do HalffabItemsBoom.HalffabItems.SetAt(BewerktHalffabrikaat, ##class(DOM.PM.Maatwerk.Calc.HF.enu.INKRol).BewerktHalffabrikaat())
+	
+	Quit ..InkLangtekstCreator.GeefLangtekst(..InkKenmerken, HalffabItemsBoom, Taal,, HalffabItemsBoom) //2e HalffabItemsBoom is placeholder, onherwerkte boom bestaat niet in .NET
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>