Index: vhUnitTest/DOM/PM/impl/IKCanonischeWaarde/TestINKKenmerken.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/impl/IKCanonischeWaarde/TestINKKenmerken.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/impl/IKCanonischeWaarde/TestINKKenmerken.cls.xml	(revision 68061)
@@ -0,0 +1,147 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.PM.impl.IKCanonischeWaarde.TestINKKenmerken">
+<Super>vhUnitTest.DOM.PM.Maatwerk.MVX.Base,vhUnitTest.DOM.PM.Maatwerk.Calc.Common.impl.LadeUitsparingCanonischeWaardeGenerator.Basis</Super>
+
+<Parameter name="CanonischeWaardeBasis">
+<Type>%String</Type>
+<Default>;V;\\;\\;\{UitsparingPlaceHolder}\;OG;40;0;I;TOB;0;0;0;1;580;500;M;OG-M;Z;;M;Hout;{ToepassingPlaceHolder};Probox;Metaal;0;15;;Pure;;;;Zonder</Default>
+</Parameter>
+
+<Property name="IKCanonischeWaardeGenerator">
+<Type>DOM.PM.Maatwerk.Calc.Common.IKCanonischeWaardeGenerator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="DummyTrigger">
+<Description>
+dummy property om deze UT te triggeren  :-P </Description>
+<Type>DOM.PM.Maatwerk.impl.IngegevenKenmerkenTypeAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Do ##super()
+	
+	Set ..IKCanonischeWaardeGenerator = ##class(DOM.PM.Maatwerk.Calc.Common.IKCanonischeWaardeGenerator).%New()
+]]></Implementation>
+</Method>
+
+<Method name="Test MvxKenmerken Gewone Lade">
+<Implementation><![CDATA[
+	#dim MvxKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.INKKenmerken = ..GeefMvxKenmerken()	
+	#dim VerwachteCanonischeWaarde As %String = ..GeefVerwachteCanonischeWaarde()
+	
+	Do ..AssertCanonischeWaarde(MvxKenmerken,VerwachteCanonischeWaarde)
+]]></Implementation>
+</Method>
+
+<Method name="Test MvxKenmerken Lade Met Onlies En NietMeeleveren, de items worden gesorteerd">
+<Implementation><![CDATA[
+	#dim MvxKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken = ..GeefMvxKenmerken()	
+	Set MvxKenmerken.Onderdelen = ##class(TECH.ListUtils).CreateListOfDataTypes("RolB","RolC","RolA")
+	Set MvxKenmerken.NietMeeleveren = ##class(TECH.ListUtils).CreateListOfDataTypes("Rol3","Rol1","Rol2")
+	
+	#dim VerwachteCanonischeWaarde As %String = ..GeefVerwachteCanonischeWaarde()
+	Set VerwachteCanonischeWaarde = ##class(TECH.StringUtils).Replace(VerwachteCanonischeWaarde, ";\\;\\;\\;" , ";\RolA;RolB;RolC\;\Rol1;Rol2;Rol3\;\\;" ,0,1)   ; StartPos = 0, ReplaceCount = 1 --> enkel het eerste item vervangen 
+	
+	Do ..AssertCanonischeWaarde(MvxKenmerken,VerwachteCanonischeWaarde)
+]]></Implementation>
+</Method>
+
+<Method name="Test MvxKenmerken Lade Met GekoppeldeMat">
+<Implementation><![CDATA[	// TODO : wanneer Matten of SST ondersteund wordt.
+]]></Implementation>
+</Method>
+
+<Method name="Test MvxKenmerken Sifonlade">
+<Implementation><![CDATA[
+	#dim MvxKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken = ..GeefMvxKenmerken()
+	Set MvxKenmerken.Toepassing = ##class(DOM.PM.enu.MVXToepassing).Sifon()
+	Set MvxKenmerken.UitsparingData = ..GeefUitsparingDataDubbel()
+	
+	#dim VerwachteCanonischeWaarde As %String =..GeefVerwachteCanonischeWaarde("SY", ..GeefVerwachteCanonischeWaardeUitsparingDubbel())
+	
+	Do ..AssertCanonischeWaarde(MvxKenmerken,VerwachteCanonischeWaarde)
+]]></Implementation>
+</Method>
+
+<Method name="Test MvxKenmerken Spoelbaklade">
+<Implementation><![CDATA[
+	#dim MvxKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken = ..GeefMvxKenmerken()
+	Set MvxKenmerken.Toepassing = ##class(DOM.PM.enu.MVXToepassing).Spoelbak()
+	Set MvxKenmerken.UitsparingData = ..GeefUitsparingDataEnkel()
+	
+	#dim VerwachteCanonischeWaarde As %String =..GeefVerwachteCanonischeWaarde("SP", ..GeefVerwachteCanonischeWaardeUitsparingEnkel())
+
+	Do ..AssertCanonischeWaarde(MvxKenmerken,VerwachteCanonischeWaarde)
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+/* 
+  =====================
+  |  PRIVATE METHODS  |
+  =====================
+*/
+]]></Content>
+</UDLText>
+
+<Method name="AssertCanonischeWaarde">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,VerwachteCanonischeWaarde:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim CanonischeWaarde As %String = ..IKCanonischeWaardeGenerator.GeefCanonischeWaarde(IngegevenKenmerken)
+	Do $$$AssertEquals(CanonischeWaarde,VerwachteCanonischeWaarde)
+]]></Implementation>
+</Method>
+
+<Method name="GeefMvxKenmerken">
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim MvxKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken).StandaardLade()
+	
+	// Voor deze testcase zoveel mogelijk properties invullen, ook al vormt deze set kenmerken dan een onmogelijke combinatie voor MVX. 
+	// Het doel is enkel om de "pieces" van de CanonischeWaarde te controleren. 
+	
+	Set MvxKenmerken.AantalDwarsverdelingen = 0
+	Set MvxKenmerken.IsBinnenlade = $$$True
+	Set MvxKenmerken.VoorwandType = ..Enum.VoorwandType.Metaal
+	Set MvxKenmerken.GeleiderTechnologie = ..Enum.GeleiderTechnologie.TIPONBLUMOTION
+	Set MvxKenmerken.HeeftOpvullijstLinks = $$$False
+	Set MvxKenmerken.HeeftOpvullijstRechts = $$$False
+	Set MvxKenmerken.HeeftZijstabilisering = $$$False
+	Set MvxKenmerken.MeenemerSet = "Z"
+		
+	Set MvxKenmerken.InterneBreedte = 580
+	Set MvxKenmerken.GUIKenmerken.IsBinnenbreedte = $$$False
+	Set MvxKenmerken.GUIKenmerken.WandDikte = 15
+	Set MvxKenmerken.NietMeeleveren = ""
+	;Set MvxKenmerken.HeeftOpvullijstLinks = $$$True
+	;Set MvxKenmerken.HeeftOpvullijstRechts = $$$True
+	;Set MvxKenmerken.HeeftZijstabilisering = $$$True
+	;Set MvxKenmerken.VoorWandVerhogingHoogte = "Hoog()"
+	;Set MvxKenmerken.VoorWandVerhogingMateriaal = "GlasDiamant()"
+	;Set MvxKenmerken.OpvullijstKleur = ##class(DOM.PM.enu.MVXOpvullijstKleur).PlatinaZilverGrijs()
+
+	Quit MvxKenmerken
+]]></Implementation>
+</Method>
+
+<Method name="GeefVerwachteCanonischeWaarde">
+<FormalSpec>Toepassing:%String="L",UitsparingData:%String=""</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim VerwachteCanonischeWaarde As %String = ..#CanonischeWaardeBasis
+	Set VerwachteCanonischeWaarde = ##class(TECH.StringUtils).Replace(VerwachteCanonischeWaarde,"{ToepassingPlaceHolder}",Toepassing)
+	Set VerwachteCanonischeWaarde = ##class(TECH.StringUtils).Replace(VerwachteCanonischeWaarde,"{UitsparingPlaceHolder}",UitsparingData)
+	Quit VerwachteCanonischeWaarde
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Inkorting.Aansturing/Test002/StartBatch/Productie_002_prn.txt
===================================================================
diff -u
--- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Inkorting.Aansturing/Test002/StartBatch/Productie_002_prn.txt	(revision 0)
+++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Inkorting.Aansturing/Test002/StartBatch/Productie_002_prn.txt	(revision 68061)
@@ -0,0 +1,16 @@
+U

+
+ 
+ 
+  <B>BESTELBON  222.222</B>                    nv HALUX
+  Datum      14-11-14                   SINT-NIKLAAS
+  Dueout     14-11-14  DI1
+ """"                                                                            
+     Artikel                                                              Aantal 
+                                                                                 
+     <B>9.390.887.9</B> <B>*</B> <B>ZR7.108ASQVVERZ          </B>                                   <B>1 </B>
+      0.924.098.0 ZR7.1080U  RELING  20ELN2 Reling voor LEGRABOX,              1 
+                  Afmeting: 1.080           binnenlade, inkortbaar,              
+                                            Kleur: inox look                     
+                                                                                 
+
\ No newline at end of file
Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Inkorting.Aansturing/Test002/Activiteitgroep_Aansturing_Status/Productie.xml
===================================================================
diff -u
--- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Inkorting.Aansturing/Test002/Activiteitgroep_Aansturing_Status/Productie.xml	(revision 0)
+++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Inkorting.Aansturing/Test002/Activiteitgroep_Aansturing_Status/Productie.xml	(revision 68061)
@@ -0,0 +1,10 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<ActiviteitGroepAansturingStatus>
+  <ActiviteitGroepData>
+    <Categorie>Product op maat</Categorie>
+    <ID>12</ID>
+    <Omschrijving>Productie</Omschrijving>
+    <HeeftUitTeVoerenActies>true</HeeftUitTeVoerenActies>
+  </ActiviteitGroepData>
+  <Status>AangestuurdOK</Status>
+</ActiviteitGroepAansturingStatus>
\ No newline at end of file
Index: vhTest/Integratie/Productie/Planning/ActieveBatches/Inkorting/Aansturing/TestBase.cls.xml
===================================================================
diff -u
--- vhTest/Integratie/Productie/Planning/ActieveBatches/Inkorting/Aansturing/TestBase.cls.xml	(revision 0)
+++ vhTest/Integratie/Productie/Planning/ActieveBatches/Inkorting/Aansturing/TestBase.cls.xml	(revision 68061)
@@ -0,0 +1,22 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Integratie.Productie.Planning.ActieveBatches.Inkorting.Aansturing.TestBase">
+<Abstract>1</Abstract>
+<Super>vhTest.Integratie.Productie.Planning.ActieveBatches.Common.Aansturing.TestBase</Super>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestCase:%String</FormalSpec>
+<Implementation><![CDATA[ 	Do ##super(aTestCase)
+]]></Implementation>
+</Method>
+
+<Method name="GeefCategorie">
+<Private>1</Private>
+<ReturnType>APPS.Halux.common.enu.Categorie</ReturnType>
+<Implementation><![CDATA[	Quit ##class(APPS.Halux.common.enu.Categorie).ProductOpMaat()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Integratie/Productie/Planning/ActieveBatches/Inkorting/Aansturing/Test002.cls.xml
===================================================================
diff -u
--- vhTest/Integratie/Productie/Planning/ActieveBatches/Inkorting/Aansturing/Test002.cls.xml	(revision 0)
+++ vhTest/Integratie/Productie/Planning/ActieveBatches/Inkorting/Aansturing/Test002.cls.xml	(revision 68061)
@@ -0,0 +1,34 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Integratie.Productie.Planning.ActieveBatches.Inkorting.Aansturing.Test002">
+<Super>vhTest.Integratie.Productie.Planning.ActieveBatches.Inkorting.Aansturing.TestBase</Super>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestCase:%String</FormalSpec>
+<Implementation><![CDATA[ 	do ##super(aTestCase)
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductenPerToeleveringArray">
+<ReturnType>vhTest.Integratie.Productie.Setup.ProductenPerToeleveringArray</ReturnType>
+<Implementation><![CDATA[
+	#define ToeleveringID 222222
+	#define Aantal 			   1
+			
+	#define InkortingId     939088
+	
+	Set InkortingenPerToeleveringArray = ##class(vhTest.Integratie.Productie.Setup.ProductenPerToeleveringArray).%New()
+	
+	Set Inkortingen = ##class(vhTest.Integratie.Productie.Setup.ProductInfoLijst).%New()
+	
+	Do Inkortingen.Insert( ##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(..MaakProduct(##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.INKKenmerken).StandaardInkortingMetIdentiekeLengtes(),$$$InkortingId,"ASQV"),$$$Aantal))
+	
+	Do InkortingenPerToeleveringArray.SetAt(Inkortingen,$$$ToeleveringID)
+
+	Quit InkortingenPerToeleveringArray
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Inkorting.Aansturing/Test002/StartBatch/HALUX_productie_TAOR_KlantGENBAR8x11.TXT
===================================================================
diff -u
--- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Inkorting.Aansturing/Test002/StartBatch/HALUX_productie_TAOR_KlantGENBAR8x11.TXT	(revision 0)
+++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Inkorting.Aansturing/Test002/StartBatch/HALUX_productie_TAOR_KlantGENBAR8x11.TXT	(revision 68061)
@@ -0,0 +1,3 @@
+%BTW% /AF="C:\Bartender\Templates\KlantGENBAR8x11.btw" /PRN="HALUX_productie_TAOR" /R=3 /P  /D=<Trigger File Name> /CLOSE
+%END%
+LOGO\Logo VHZwart.svg	UNITTEST KLANT	Sint Niklaas	Order	322.222	Ref : 	Z.AS.QV.7	ZR7.108ASQVVERZ			240mm	UNITTES	Dossier		ZASQV7	ZR7.1080U  RELING  20ELN2	TestDnaCode
Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Inkorting.Aansturing/Test001/StartBatch/Productie_001_prn.txt
===================================================================
diff -u
--- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Inkorting.Aansturing/Test001/StartBatch/Productie_001_prn.txt	(revision 0)
+++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Inkorting.Aansturing/Test001/StartBatch/Productie_001_prn.txt	(revision 68061)
@@ -0,0 +1,16 @@
+U

+
+ 
+ 
+  <B>BESTELBON  222.222</B>                    nv HALUX
+  Datum      14-11-14                   SINT-NIKLAAS
+  Dueout     14-11-14  DI1
+ """"                                                                            
+     Artikel                                         Aantal   Barcode       Week 
+                                                                                 
+     9.390.887.9 * ZR7.108 ASQVERZ                        1   Z.ASQ.2            
+       ZR7.1080U  RELING  20ELN2                                                         
+       380  240  160mm                                                                   
+                                                                                 
+                                                                                 
+
\ No newline at end of file
Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Inkorting.Aansturing/Test001/Activiteitgroep_Aansturing_Status/Productie.xml
===================================================================
diff -u
--- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Inkorting.Aansturing/Test001/Activiteitgroep_Aansturing_Status/Productie.xml	(revision 0)
+++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Inkorting.Aansturing/Test001/Activiteitgroep_Aansturing_Status/Productie.xml	(revision 68061)
@@ -0,0 +1,10 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<ActiviteitGroepAansturingStatus>
+  <ActiviteitGroepData>
+    <Categorie>Product op maat</Categorie>
+    <ID>12</ID>
+    <Omschrijving>Productie</Omschrijving>
+    <HeeftUitTeVoerenActies>true</HeeftUitTeVoerenActies>
+  </ActiviteitGroepData>
+  <Status>AangestuurdOK</Status>
+</ActiviteitGroepAansturingStatus>
\ No newline at end of file
Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Inkorting.Aansturing/Test001/StartBatch/HALUX_productie_TAOR_KlantGENBAR8x11.TXT
===================================================================
diff -u
--- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Inkorting.Aansturing/Test001/StartBatch/HALUX_productie_TAOR_KlantGENBAR8x11.TXT	(revision 0)
+++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Inkorting.Aansturing/Test001/StartBatch/HALUX_productie_TAOR_KlantGENBAR8x11.TXT	(revision 68061)
@@ -0,0 +1,3 @@
+%BTW% /AF="C:\Bartender\Templates\KlantGENBAR8x11.btw" /PRN="HALUX_productie_TAOR" /R=3 /P  /D=<Trigger File Name> /CLOSE
+%END%
+LOGO\Logo VHZwart.svg	UNITTEST KLANT	Sint Niklaas	Order	322.222	Ref : 	Z.ASQ.2	ZR7.108 ASQVERZ			380  240  160mm	UNITTES	Dossier		ZASQ2	ZR7.1080U  RELING  20ELN2	TestDnaCode
Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Inkorting.Aansturing/Test002/StartBatch/Productie_001_prn.txt
===================================================================
diff -u
--- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Inkorting.Aansturing/Test002/StartBatch/Productie_001_prn.txt	(revision 0)
+++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Inkorting.Aansturing/Test002/StartBatch/Productie_001_prn.txt	(revision 68061)
@@ -0,0 +1,16 @@
+U

+
+ 
+ 
+  <B>BESTELBON  222.222</B>                    nv HALUX
+  Datum      14-11-14                   SINT-NIKLAAS
+  Dueout     14-11-14  DI1
+ """"                                                                            
+     Artikel                                         Aantal   Barcode       Week 
+                                                                                 
+     9.390.887.9 * ZR7.108ASQVVERZ                        1   Z.AS.QV.7          
+       ZR7.1080U  RELING  20ELN2                                                         
+       240mm                                                                             
+                                                                                 
+                                                                                 
+
\ No newline at end of file
Index: vhTest/Integratie/Productie/Planning/ActieveBatches/Inkorting/Aansturing/Test001.cls.xml
===================================================================
diff -u
--- vhTest/Integratie/Productie/Planning/ActieveBatches/Inkorting/Aansturing/Test001.cls.xml	(revision 0)
+++ vhTest/Integratie/Productie/Planning/ActieveBatches/Inkorting/Aansturing/Test001.cls.xml	(revision 68061)
@@ -0,0 +1,34 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Integratie.Productie.Planning.ActieveBatches.Inkorting.Aansturing.Test001">
+<Super>vhTest.Integratie.Productie.Planning.ActieveBatches.Inkorting.Aansturing.TestBase</Super>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestCase:%String</FormalSpec>
+<Implementation><![CDATA[ 	do ##super(aTestCase)
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductenPerToeleveringArray">
+<ReturnType>vhTest.Integratie.Productie.Setup.ProductenPerToeleveringArray</ReturnType>
+<Implementation><![CDATA[
+	#define ToeleveringID 222222
+	#define Aantal 			   1
+			
+	#define InkortingId     939088
+	
+	Set InkortingenPerToeleveringArray = ##class(vhTest.Integratie.Productie.Setup.ProductenPerToeleveringArray).%New()
+	
+	Set Inkortingen = ##class(vhTest.Integratie.Productie.Setup.ProductInfoLijst).%New()
+	
+	Do Inkortingen.Insert( ##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(..MaakProduct(##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.INKKenmerken).StandaardInkorting(),$$$InkortingId,"ASQ"),$$$Aantal))
+	
+	Do InkortingenPerToeleveringArray.SetAt(Inkortingen,$$$ToeleveringID)
+
+	Quit InkortingenPerToeleveringArray
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Utils/DOM/PM/Maatwerk/Calc/Common/impl/INKKenmerken.cls.xml
===================================================================
diff -u
--- vhTest/Utils/DOM/PM/Maatwerk/Calc/Common/impl/INKKenmerken.cls.xml	(revision 0)
+++ vhTest/Utils/DOM/PM/Maatwerk/Calc/Common/impl/INKKenmerken.cls.xml	(revision 68061)
@@ -0,0 +1,54 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.INKKenmerken">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="LegeKenmerken">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.INKKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim INKKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.INKKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.INKKenmerken).%New()
+	
+	Quit INKKenmerken
+]]></Implementation>
+</Method>
+
+<Method name="StandaardInkorting">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.INKKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim INKKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.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>DOM.PM.Maatwerk.Calc.Common.impl.INKKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim INKKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.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: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Inkorting.Aansturing/Test001/StartBatch/Productie_002_prn.txt
===================================================================
diff -u
--- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Inkorting.Aansturing/Test001/StartBatch/Productie_002_prn.txt	(revision 0)
+++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Inkorting.Aansturing/Test001/StartBatch/Productie_002_prn.txt	(revision 68061)
@@ -0,0 +1,16 @@
+U

+
+ 
+ 
+  <B>BESTELBON  222.222</B>                    nv HALUX
+  Datum      14-11-14                   SINT-NIKLAAS
+  Dueout     14-11-14  DI1
+ """"                                                                            
+     Artikel                                                              Aantal 
+                                                                                 
+     <B>9.390.887.9</B> <B>*</B> <B>ZR7.108 ASQVERZ          </B>                                   <B>1 </B>
+      0.924.098.0 ZR7.1080U  RELING  20ELN2 Reling voor LEGRABOX,              1 
+                  Afmeting: 1.080           binnenlade, inkortbaar,              
+                                            Kleur: inox look                     
+                                                                                 
+
\ No newline at end of file