Index: vhUnitTest/DOM/PM/Maatwerk/TBX/impl/KorttekstBepaler/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/Maatwerk/TBX/impl/KorttekstBepaler/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/Maatwerk/TBX/impl/KorttekstBepaler/Test.cls.xml	(revision 65466)
@@ -0,0 +1,300 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.PM.Maatwerk.TBX.impl.KorttekstBepaler.Test">
+<Super>vhUnitTest.DOM.PM.Maatwerk.TBX.Base</Super>
+
+<Parameter name="DossierNummer">
+<Type>%String</Type>
+<Default>S38J</Default>
+</Parameter>
+
+<Parameter name="RandomInput">
+<Type>%String</Type>
+<Default><![CDATA[r#6P)&x]]></Default>
+</Parameter>
+
+<Property name="TbxKorttekstBepaler">
+<Type>DOM.PM.Maatwerk.TBX.impl.KorttekstBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="TBXKenmerken">
+<Type>DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+ 	Do ##super()
+ 	
+ 	Set ..TbxKorttekstBepaler = ##class(DOM.PM.Maatwerk.TBX.impl.KorttekstBepaler).%New()
+]]></Implementation>
+</Method>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	
+	Set ..TBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).StandaardLadeVoorHerwerkingBOMBOL()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Standaard gedrag">
+<Implementation><![CDATA[	Do ..AssertPositiesInKorttekst("TB8DAS.S38J500x1000  WALG", 1, 25)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Korttekst begint met TB">
+<Implementation><![CDATA[	Do ..AssertPositiesInKorttekst("TB", 1, 2)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Positie 3 is de GeleiderCode en anders een spatie">
+<Implementation><![CDATA[
+	Set ..TBXKenmerken.Draagkracht = ""
+	Do ..AssertPositiesInKorttekst("I", 3)
+	
+	Set ..TBXKenmerken.Draagkracht = ..#RandomInput
+	Do ..AssertPositiesInKorttekst("I", 3)
+	
+	Set ..TBXKenmerken.Draagkracht = ..Enum.Draagkracht.Draagkracht30
+	Do ..AssertPositiesInKorttekst("8", 3)
+	
+	Set ..TBXKenmerken.Draagkracht = ..Enum.Draagkracht.Draagkracht65
+	Do ..AssertPositiesInKorttekst("6", 3)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Positie 4 is de RugHoogte en anders een spatie">
+<Implementation><![CDATA[
+	Set ..TBXKenmerken.RugHoogte = ""
+	Do ..AssertPositiesInKorttekst(" ", 4)
+	
+	Set ..TBXKenmerken.RugHoogte = ..#RandomInput
+	Do ..AssertPositiesInKorttekst(" ", 4)
+	
+	Set ..TBXKenmerken.RugHoogte = ..Enum.RugHoogte.N
+	Do ..AssertPositiesInKorttekst("N", 4)
+	
+	Set ..TBXKenmerken.RugHoogte = ..Enum.RugHoogte.C
+	Do ..AssertPositiesInKorttekst("C", 4)
+	
+	Set ..TBXKenmerken.RugHoogte = ..Enum.RugHoogte.K
+	Do ..AssertPositiesInKorttekst("K", 4)
+	
+	Set ..TBXKenmerken.RugHoogte = ..Enum.RugHoogte.B
+	Do ..AssertPositiesInKorttekst("B", 4)
+	
+	Set ..TBXKenmerken.RugHoogte = ..Enum.RugHoogte.D
+	Do ..AssertPositiesInKorttekst("D", 4)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Positie 5 en eventueel 6 is de DesignCode">
+<Implementation><![CDATA[
+	Do ..AssertPositiesInKorttekst("A", 5)
+	
+	Set ..TBXKenmerken.LegacyKenmerken.ItemDC = "MT"
+	Do ..AssertPositiesInKorttekst("M", 5)
+	Do ..AssertPositiesInKorttekst("T", 6)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Positie 6 of 7 is de FrontBevestigingCode en anders een spatie">
+<Implementation><![CDATA[
+	Set ..TBXKenmerken.FrontBevestiging = ""
+	Do ..AssertPositiesInKorttekst(" ", 6)
+	
+	Set ..TBXKenmerken.FrontBevestiging = ..#RandomInput
+	Do ..AssertPositiesInKorttekst(" ", 6)
+	
+	Set ..TBXKenmerken.FrontBevestiging = ..Enum.FrontBevestiging.AluVolkern
+	Do ..AssertPositiesInKorttekst("A", 6)
+	
+	Set ..TBXKenmerken.FrontBevestiging = ..Enum.FrontBevestiging.Drevel
+	Do ..AssertPositiesInKorttekst("D", 6)	
+	
+	Set ..TBXKenmerken.FrontBevestiging = ..Enum.FrontBevestiging.Inserta
+	Do ..AssertPositiesInKorttekst("I", 6)
+	
+	Set ..TBXKenmerken.FrontBevestiging = ..Enum.FrontBevestiging.Schroef
+	Do ..AssertPositiesInKorttekst("S", 6)
+	
+	Set ..TBXKenmerken.IsBinnenlade = $$$True
+	Do ..AssertPositiesInKorttekst("Z", 6)
+	
+	Set ..TBXKenmerken.IsBinnenlade = $$$False
+	Set ..TBXKenmerken.LegacyKenmerken.ItemDC = "MT"
+	Set ..TBXKenmerken.FrontBevestiging = ..Enum.FrontBevestiging.Schroef
+	Do ..AssertPositiesInKorttekst("S", 7)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Posities 7 tot en met 11 zijn het DossierNummer rechts gelijnd">
+<Implementation><![CDATA[
+	Do ..AssertPositiesInKorttekst("."_..#DossierNummer, 7, 11)
+	
+	Set ..TBXKenmerken.LegacyKenmerken.ItemDC = "MT"
+	Set ..TBXKenmerken.FrontBevestiging = ..Enum.FrontBevestiging.Schroef
+	Do ..AssertPositiesInKorttekst("S"_..#DossierNummer, 7, 11)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Posities 12 tot en met 19 zijn de LadeDimensie links gelijnd">
+<Implementation><![CDATA[
+	// Standaard gedrag:
+	Set ..TBXKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte500
+	Set ..TBXKenmerken.InterneBreedte = 564
+	Do ..AssertPositiesInKorttekst("500x564 ", 12, 19)
+	
+	// Standaard gedrag:
+	Set ..TBXKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte500
+	Set ..TBXKenmerken.InterneBreedte = 1008
+	Do ..AssertPositiesInKorttekst("500x1008", 12, 19)
+	
+	// Missende input brengt de locatie van andere codes niet in het gedrang:
+	Set ..TBXKenmerken.LadeDiepte = ""
+	Set ..TBXKenmerken.InterneBreedte = 564
+	Do ..AssertPositiesInKorttekst("TB8DAS.S38Jx564      WALG", 1, 25)
+	
+	Set ..TBXKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte500
+	Set ..TBXKenmerken.InterneBreedte = ""
+	Do ..AssertPositiesInKorttekst("TB8DAS.S38J500x      WALG", 1, 25)
+	
+	// Een spatie als input brengt de locatie van de andere codes niet in het gedrang:
+	Set ..TBXKenmerken.LadeDiepte = " "
+	Set ..TBXKenmerken.InterneBreedte = 564 // Property is type TECH.Numeric. Kan dus niet een spatie zijn.
+	Do ..AssertPositiesInKorttekst("TB8DAS.S38J x564     WALG", 1, 25)
+	
+	// Foute input brengt de locatie van de andere codes niet in het gedrang:
+	Set ..TBXKenmerken.LadeDiepte = ..#RandomInput
+	Set ..TBXKenmerken.InterneBreedte = 564 // Property is type TECH.Numeric. Kan dus geen RandomInput zijn.
+	Do ..AssertPositiesInKorttekst("TB8DAS.S38Jr#6P)&xx  WALG", 1, 25)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Positie 20 en 21 is de VerpakkingCode en anders toepassing">
+<Implementation><![CDATA[
+	Set ..TBXKenmerken.VerpakkingType = ""
+	Do ..AssertPositiesInKorttekst(" ", 21)
+	Do ..AssertPositiesInKorttekst(" ", 20)
+	
+	Set ..TBXKenmerken.VerpakkingType = " "
+	Do ..AssertPositiesInKorttekst(" ", 21)
+	Do ..AssertPositiesInKorttekst(" ", 20)
+	
+	Set ..TBXKenmerken.VerpakkingType = ..#RandomInput
+	Do ..AssertPositiesInKorttekst(" ", 21)
+	Do ..AssertPositiesInKorttekst(" ", 20)
+	
+	Set ..TBXKenmerken.VerpakkingType = ..Enum.VerpakkingType.Pallet
+	Do ..AssertPositiesInKorttekst("P", 21)
+	Do ..AssertPositiesInKorttekst(" ", 20)
+	
+	Set ..TBXKenmerken.VerpakkingType = ..Enum.VerpakkingType.Probox
+	Do ..AssertPositiesInKorttekst("X", 21)
+	Do ..AssertPositiesInKorttekst(" ", 20)
+	
+	Set ..TBXKenmerken.VerpakkingType = ..Enum.VerpakkingType.Procom
+	Do ..AssertPositiesInKorttekst("C", 21)
+	Do ..AssertPositiesInKorttekst(" ", 20)
+	
+	Set ..TBXKenmerken.VerpakkingType = ..Enum.VerpakkingType.V1
+	Do ..AssertPositiesInKorttekst(" ", 21)
+	Do ..AssertPositiesInKorttekst(" ", 20)
+	
+	Set ..TBXKenmerken.VerpakkingType = ..Enum.VerpakkingType.VHoss
+	Do ..AssertPositiesInKorttekst("A", 21)
+	Do ..AssertPositiesInKorttekst(" ", 20)
+	
+	
+	Set ..TBXKenmerken.Toepassing = ..Enum.Toepassing.Spoelbak
+	Do ..AssertPositiesInKorttekst("2", 21)
+	Do ..AssertPositiesInKorttekst("S", 20)
+	
+	Set ..TBXKenmerken.Toepassing = ..Enum.Toepassing.SifonType3
+	Do ..AssertPositiesInKorttekst("3", 21)
+	Do ..AssertPositiesInKorttekst("S", 20)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Posities 22 tot en met 23 zijn de LadeKleur en anders 2 spaties">
+<Implementation><![CDATA[
+	Set ..TBXKenmerken.LadeKleur = ""
+	Do ..AssertPositiesInKorttekst("  ", 22, 23)
+	
+	Set ..TBXKenmerken.LadeKleur = " "
+	Do ..AssertPositiesInKorttekst("  ", 22, 23)
+	
+	Set ..TBXKenmerken.LadeKleur = "  "
+	Do ..AssertPositiesInKorttekst("  ", 22, 23)
+	
+	Set ..TBXKenmerken.LadeKleur = ..#RandomInput
+	Do ..AssertPositiesInKorttekst("  ", 22, 23)
+	
+	Set ..TBXKenmerken.LadeKleur = ..Enum.LadeKleur.BZ
+	Do ..AssertPositiesInKorttekst("TS", 22, 23)
+	
+	Set ..TBXKenmerken.LadeKleur = ..Enum.LadeKleur.MG
+	Do ..AssertPositiesInKorttekst("WA", 22, 23)
+	
+	Set ..TBXKenmerken.LadeKleur = ..Enum.LadeKleur.SW
+	Do ..AssertPositiesInKorttekst("SW", 22, 23)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Posities 24 tot en met 25 zijn de BodemKleur en anders 2 spaties">
+<Implementation><![CDATA[
+	Set ..TBXKenmerken.BodemKleur = ""
+	Do ..AssertPositiesInKorttekst("  ", 24, 25)
+	
+	Set ..TBXKenmerken.BodemKleur = " "
+	Do ..AssertPositiesInKorttekst("  ", 24, 25)
+	
+	Set ..TBXKenmerken.BodemKleur = "  "
+	Do ..AssertPositiesInKorttekst("  ", 24, 25)
+	
+	Set ..TBXKenmerken.BodemKleur = ..#RandomInput
+	Do ..AssertPositiesInKorttekst("  ", 24, 25)
+	
+	Set ..TBXKenmerken.BodemKleur = ..Enum.BodemKleur.Terrazwart
+	Do ..AssertPositiesInKorttekst("BZ", 24, 25)
+	
+	Set ..TBXKenmerken.BodemKleur = ..Enum.BodemKleur.Donkergrijs
+	Do ..AssertPositiesInKorttekst("DG", 24, 25)
+	
+	Set ..TBXKenmerken.BodemKleur = ..Enum.BodemKleur.Lichtgrijs
+	Do ..AssertPositiesInKorttekst("LG", 24, 25)
+	
+	Set ..TBXKenmerken.BodemKleur = ..Enum.BodemKleur.Wit
+	Do ..AssertPositiesInKorttekst("WI", 24, 25)
+]]></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), 25)
+	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() // VOORLOPIG NEW. Eens de link met .NET voorzien is: ..GeefHalffabItemsBoom(..MVXKenmerken)
+	
+	Quit ..TbxKorttekstBepaler.BepaalKorttekst(..#DossierNummer, ..TBXKenmerken, HalffabItemsBoom)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>