Index: vhUnitTest/APPS/Halux/PPS/impl/PalletIDBepaler/PalletIDBepalerHelper/GeefSuffixVoorPalletCode/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/PPS/impl/PalletIDBepaler/PalletIDBepalerHelper/GeefSuffixVoorPalletCode/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/PPS/impl/PalletIDBepaler/PalletIDBepalerHelper/GeefSuffixVoorPalletCode/Test.cls.xml	(revision 73169)
@@ -0,0 +1,110 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Halux.PPS.impl.PalletIDBepaler.PalletIDBepalerHelper.GeefSuffixVoorPalletCode.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="DummyKlantNummer">
+<Type>%String</Type>
+<Default>K||1234</Default>
+</Parameter>
+
+<Parameter name="DummyPalletCode">
+<Type>%Integer</Type>
+<Default>12345</Default>
+</Parameter>
+
+<Parameter name="DummyToeleveringId">
+<Type>%String</Type>
+<Default>200000</Default>
+</Parameter>
+
+<Property name="DnaCodeRepositoryMock">
+<Type>DOM.Halux.AAP.DnaCodeRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="KlantInstellingenRepositoryMock">
+<Type>DOM.Halux.AAP.KlantinstellingenRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>TestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(TestName)
+	
+	Set ..DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
+	Set ..KlantInstellingenRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.KlantinstellingenRepository).%New()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Geen laatst gescande pallet -&gt; Suffix A">
+<Implementation><![CDATA[
+	#dim DnaCodeIteratorMock AS TECH.Iterator = ..EmptyIterator()
+	Do ..DnaCodeRepositoryMock.IndienMethodCall("ZoekViaToeleveringIdEnRecent", ..#DummyToeleveringId).DanReturn(DnaCodeIteratorMock)
+	
+	#dim LaatstGescandePalletCode = ""
+	#dim PalletIDBepalerHelper = ##class(APPS.Halux.PPS.impl.PalletIDBepaler.PalletIDBepalerHelper).%New(..DnaCodeRepositoryMock)
+	#dim Suffix As %String = PalletIDBepalerHelper.GeefSuffixVoorPalletCode(..#DummyToeleveringId, LaatstGescandePalletCode)
+	
+	Do $$$AssertEquals(Suffix, "A")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Laatst gescande palletcode is A -&gt; Suffix B">
+<Implementation><![CDATA[
+	#dim DnaCodeIteratorMock AS TECH.Iterator = ..EmptyIterator()
+	Do ..DnaCodeRepositoryMock.IndienMethodCall("ZoekViaToeleveringIdEnRecent", ..#DummyToeleveringId).DanReturn(DnaCodeIteratorMock)
+	
+	#dim LaatstGescandePalletCode = "TBP12345A"
+	#dim PalletIDBepalerHelper = ##class(APPS.Halux.PPS.impl.PalletIDBepaler.PalletIDBepalerHelper).%New(..DnaCodeRepositoryMock)
+	#dim Suffix As %String = PalletIDBepalerHelper.GeefSuffixVoorPalletCode(..#DummyToeleveringId, LaatstGescandePalletCode)
+	
+	Do $$$AssertEquals(Suffix, "B")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Laatst gescande palletcode is B -&gt; Suffix A">
+<Implementation><![CDATA[
+	#dim DnaCodeIteratorMock AS TECH.Iterator = ..EmptyIterator()
+	Do ..DnaCodeRepositoryMock.IndienMethodCall("ZoekViaToeleveringIdEnRecent", ..#DummyToeleveringId).DanReturn(DnaCodeIteratorMock)
+	
+	#dim LaatstGescandePalletCode = "TBP12345B"
+	#dim PalletIDBepalerHelper = ##class(APPS.Halux.PPS.impl.PalletIDBepaler.PalletIDBepalerHelper).%New(..DnaCodeRepositoryMock)
+	#dim Suffix As %String = PalletIDBepalerHelper.GeefSuffixVoorPalletCode(..#DummyToeleveringId, LaatstGescandePalletCode)
+	
+	Do $$$AssertEquals(Suffix, "A")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Laatst gescande palletcode is A maar klant voor halve pallet -&gt; Suffix A">
+<Implementation><![CDATA[
+	#dim DnaCodeMock = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCodeMock.KlantNummer = ..#DummyKlantNummer
+	
+	#dim DnaCodeLijst = ##class(%ListOfObjects).%New()
+	Do DnaCodeLijst.Insert(DnaCodeMock)
+	
+	#dim DnaCodeIteratorMock = ##class(TECH.ListIterator).%New(DnaCodeLijst)
+	Do ..DnaCodeRepositoryMock.IndienMethodCall("ZoekViaToeleveringIdEnRecent", ..#DummyToeleveringId).DanReturn(DnaCodeIteratorMock)
+	
+	#dim KlantInstellingenMock = ##class(DOM.Halux.AAP.Klantinstellingen).%New()
+	Set KlantInstellingenMock.HalvePallet = $$$True
+	
+	#dim KlantInstellingenLijst = ##class(%ListOfObjects).%New()
+	Do KlantInstellingenLijst.Insert(KlantInstellingenMock)
+	
+	#dim KlantInstellingenIterator = ##class(TECH.ListIterator).%New(KlantInstellingenLijst)
+	Do ..KlantInstellingenRepositoryMock.IndienMethodCall("ZoekViaKlantId", ..#DummyKlantNummer).DanReturn(KlantInstellingenIterator)
+	
+	#dim LaatstGescandePalletCode = "TBP12345A"
+	#dim PalletIDBepalerHelper = ##class(APPS.Halux.PPS.impl.PalletIDBepaler.PalletIDBepalerHelper).%New(..DnaCodeRepositoryMock,,, ..KlantInstellingenRepositoryMock)
+	#dim Suffix As %String = PalletIDBepalerHelper.GeefSuffixVoorPalletCode(..#DummyToeleveringId, LaatstGescandePalletCode)
+	
+	Do $$$AssertEquals(Suffix, "A")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/impl/PalletIDBepaler/PalletIDBepalerHelper.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/impl/PalletIDBepaler/PalletIDBepalerHelper.cls.xml	(revision 0)
+++ APPS/Halux/PPS/impl/PalletIDBepaler/PalletIDBepalerHelper.cls.xml	(revision 73169)
@@ -0,0 +1,111 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.impl.PalletIDBepaler.PalletIDBepalerHelper">
+<Super>TECH.RegisteredObject,TECH.Mockable</Super>
+
+<Property name="DnaCodeRepository">
+<Type>DOM.Halux.AAP.DnaCodeRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="DateTimeApi">
+<Type>TECH.DateTime.DateTimeAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="KlantInstellingenRepository">
+<Type>DOM.Halux.AAP.KlantinstellingenRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ConfiguratorService">
+<Type>APPS.VKP.Maatwerk.impl.ConfiguratorService</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>DnaCodeRepository:DOM.Halux.AAP.DnaCodeRepository="",DateTimeApi:TECH.DateTime.DateTimeAPI="",ConfiguratorService:APPS.VKP.Maatwerk.impl.ConfiguratorService="",KlantInstellingenRepository:DOM.Halux.AAP.KlantinstellingenRepository=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..DnaCodeRepository = $$$Inject(DnaCodeRepository, ##class(DOM.Halux.AAP.DnaCodeRepository).%New())
+	Set ..DateTimeApi = $$$Inject(DateTimeApi, ##class(TECH.DateTime.impl.DateTimeAPI).%New())
+	Set ..ConfiguratorService = $$$Inject(ConfiguratorService, ##class(APPS.VKP.Maatwerk.impl.ConfiguratorService).%New())
+	Set ..KlantInstellingenRepository = $$$Inject(KlantInstellingenRepository, ##class(DOM.Halux.AAP.KlantinstellingenRepository).%New())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefSuffixVoorPalletCode">
+<FormalSpec>ToeleveringId:%String,LaatstGescandePalletCode:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim DnaCodeIterator As TECH.Iterator = ..DnaCodeRepository.ZoekViaToeleveringIdEnRecent(ToeleveringId)
+	#dim IsKlantVoorHalvePallet As %Boolean = $$$False
+	
+	If DnaCodeIterator.HasNext() {
+		#dim KlantId As %String = DnaCodeIterator.Next().KlantNummer
+		#dim KlantInstellingenIterator As TECH.Iterator = ..KlantInstellingenRepository.ZoekViaKlantId(KlantId)
+		
+		If KlantInstellingenIterator.HasNext() {
+			Set IsKlantVoorHalvePallet = KlantInstellingenIterator.Next().HalvePallet
+		}
+	}
+	
+	#dim Suffix As %String
+	If IsKlantVoorHalvePallet || (LaatstGescandePalletCode = "") || ($Extract(LaatstGescandePalletCode, 9, 9) = "B") {
+		Set Suffix = "A"
+	} Else {
+		Set Suffix = "B"
+	}
+	
+	Quit Suffix
+]]></Implementation>
+</Method>
+
+<Method name="GeefPalletCodeVanLaatstGescandeLade">
+<FormalSpec>ToeleveringId:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim DnaCodeIterator As TECH.Iterator = ..DnaCodeRepository.ZoekViaToeleveringIdEnRecent(ToeleveringId)
+	#dim LaatsteScanTijdstip As %Integer = "1,1"
+	#dim PalletCodeLaatstGescandeLade As %String = ""
+	
+	While DnaCodeIterator.HasNext() {
+		#dim DnaCode As DOM.Halux.AAP.DnaCode = DnaCodeIterator.Next()
+		
+		If ($$$Not(DnaCode.ScanTijdstip = "") && ..DateTimeApi.HorologIsGroterDan(DnaCode.ScanTijdstip, LaatsteScanTijdstip)) {
+			Set LaatsteScanTijdstip = DnaCode.ScanTijdstip
+			Set PalletCodeLaatstGescandeLade = DnaCode.PalletCode
+		}
+	}
+	
+	Quit PalletCodeLaatstGescandeLade
+]]></Implementation>
+</Method>
+
+<Method name="GeefVerpakkingTypeVanProduct">
+<FormalSpec>ProductNummer:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim VerpakkingType As %String = ""
+	
+	If $$$Not(ProductNummer = "") {
+		Try {
+			#dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.IngegevenKenmerken = ..ConfiguratorService.GeefOnverwerkteKenmerkenVanProduct(ProductNummer)
+			Set VerpakkingType = IngegevenKenmerken.VerpakkingType
+		} Catch {
+			#dim Exceptie As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+			do ##class(TECH.ExceptionHandler).Throw(Exceptie)
+		}
+	}
+	
+	Quit VerpakkingType
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/APPS/Halux/PPS/impl/PalletIDBepaler/PalletIDBepalerHelper.cls.xml
===================================================================
diff -u
--- vhTest/Mock/APPS/Halux/PPS/impl/PalletIDBepaler/PalletIDBepalerHelper.cls.xml	(revision 0)
+++ vhTest/Mock/APPS/Halux/PPS/impl/PalletIDBepaler/PalletIDBepalerHelper.cls.xml	(revision 73169)
@@ -0,0 +1,41 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.APPS.Halux.PPS.impl.PalletIDBepaler.PalletIDBepalerHelper">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.Halux.PPS.impl.PalletIDBepaler.PalletIDBepalerHelper,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="%OnNew">
+<FormalSpec>DnaCodeRepository:DOM.Halux.AAP.DnaCodeRepository="",DateTimeApi:TECH.DateTime.DateTimeAPI="",ConfiguratorService:APPS.VKP.Maatwerk.impl.ConfiguratorService="",KlantInstellingenRepository:DOM.Halux.AAP.KlantinstellingenRepository=""</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefPalletCodeVanLaatstGescandeLade">
+<FormalSpec>ToeleveringId:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefPalletCodeVanLaatstGescandeLade",ToeleveringId)
+]]></Implementation>
+</Method>
+
+<Method name="GeefSuffixVoorPalletCode">
+<FormalSpec>ToeleveringId:%String,LaatstGescandePalletCode:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefSuffixVoorPalletCode",ToeleveringId,LaatstGescandePalletCode)
+]]></Implementation>
+</Method>
+
+<Method name="GeefVerpakkingTypeVanProduct">
+<FormalSpec>ProductNummer:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefVerpakkingTypeVanProduct",ProductNummer)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/impl/PalletIDBepaler.cls.xml
===================================================================
diff -u -r72799 -r73169
--- APPS/Halux/PPS/impl/PalletIDBepaler.cls.xml	(.../PalletIDBepaler.cls.xml)	(revision 72799)
+++ APPS/Halux/PPS/impl/PalletIDBepaler.cls.xml	(.../PalletIDBepaler.cls.xml)	(revision 73169)
@@ -8,36 +8,18 @@
 <Private>1</Private>
 </Property>
 
-<Property name="DnaCodeRepository">
-<Type>DOM.Halux.AAP.DnaCodeRepository</Type>
+<Property name="PalletIDBepalerHelper">
+<Type>APPS.Halux.PPS.impl.PalletIDBepaler.PalletIDBepalerHelper</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="DateTimeApi">
-<Type>TECH.DateTime.DateTimeAPI</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="KlantInstellingenRepository">
-<Type>DOM.Halux.AAP.KlantinstellingenRepository</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="ConfiguratorService">
-<Type>APPS.VKP.Maatwerk.impl.ConfiguratorService</Type>
-<Private>1</Private>
-</Property>
-
 <Method name="%OnNew">
-<FormalSpec>DnaCodeRepository:DOM.Halux.AAP.DnaCodeRepository="",DateTimeApi:TECH.DateTime.DateTimeAPI="",ConfiguratorService:APPS.VKP.Maatwerk.impl.ConfiguratorService="",KlantInstellingenRepository:DOM.Halux.AAP.KlantinstellingenRepository=""</FormalSpec>
+<FormalSpec>PalletIDBepalerHelper:APPS.Halux.PPS.impl.PalletIDBepaler.PalletIDBepalerHelper=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set ..DnaCodeRepository = $$$Inject(DnaCodeRepository, ##class(DOM.Halux.AAP.DnaCodeRepository).%New())
-	Set ..DateTimeApi = $$$Inject(DateTimeApi, ##class(TECH.DateTime.impl.DateTimeAPI).%New())
-	Set ..ConfiguratorService = $$$Inject(ConfiguratorService, ##class(APPS.VKP.Maatwerk.impl.ConfiguratorService).%New())
-	Set ..KlantInstellingenRepository = $$$Inject(KlantInstellingenRepository, ##class(DOM.Halux.AAP.KlantinstellingenRepository).%New())
+	Set ..PalletIDBepalerHelper = $$$Inject(PalletIDBepalerHelper, ##class(APPS.Halux.PPS.impl.PalletIDBepaler.PalletIDBepalerHelper).%New())
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -52,7 +34,7 @@
 	#dim PalletNr As %Integer
 	#dim NieuwePalletCode As %String
 	
-	If (..GeefVerpakkingTypeVanProduct(ProductNummer) = "Probox") {
+	If (..PalletIDBepalerHelper.GeefVerpakkingTypeVanProduct(ProductNummer) = "Probox") {
 		Set NieuwePalletCode = ..GeefPalletCodeVoorProbox(Type, ToeleveringId, $$$LengteBarcode)
 	} Else {
 		Set PalletNr = ..GeefVolgendPalletNr()
@@ -69,11 +51,10 @@
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	
-	#dim LaatstGescandePalletCode = ..GeefPalletCodeVanLaatstGescandeLade(ToeleveringId)
+	#dim LaatstGescandePalletCode = ..PalletIDBepalerHelper.GeefPalletCodeVanLaatstGescandeLade(ToeleveringId)
 	#dim NieuwePalletCode As %String
 	
-	#dim Suffix As %String = ..GeefSuffixVoorPalletCode(ToeleveringId, LaatstGescandePalletCode)
+	#dim Suffix As %String = ..PalletIDBepalerHelper.GeefSuffixVoorPalletCode(ToeleveringId, LaatstGescandePalletCode)
 	If (Suffix = "A") {
 		#dim PalletNr As %Integer = ..GeefVolgendPalletNr()
 		Do ..Verwerk(Type)
@@ -86,73 +67,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefSuffixVoorPalletCode">
-<FormalSpec>ToeleveringId:%String,LaatstGescandePalletCode:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
-	#dim DnaCodeIterator As TECH.Iterator = ..DnaCodeRepository.ZoekViaToeleveringIdEnRecent(ToeleveringId)
-	#dim IsKlantVoorHalvePallet As %Boolean = $$$False
-	
-	If DnaCodeIterator.HasNext() {
-		#dim KlantId As %String = DnaCodeIterator.Next().KlantNummer
-		#dim KlantInstellingenIterator As TECH.Iterator = ..KlantInstellingenRepository.ZoekViaKlantId(KlantId)
-		
-		If KlantInstellingenIterator.HasNext() {
-			Set IsKlantVoorHalvePallet = KlantInstellingenIterator.Next().HalvePallet
-		}
-	}
-	// Do DnaCodeIterator.Reset()
-	
-	#dim Suffix As %String
-	If IsKlantVoorHalvePallet || (LaatstGescandePalletCode = "") || ($Extract(LaatstGescandePalletCode, 9, 9) = "B") {
-		Set Suffix = "A"
-	} Else {
-		Set Suffix = "B"
-	}
-	
-	Quit Suffix
-]]></Implementation>
-</Method>
-
-<Method name="GeefPalletCodeVanLaatstGescandeLade">
-<FormalSpec>ToeleveringId:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	#dim DnaCodeIterator As TECH.Iterator = ..DnaCodeRepository.ZoekViaToeleveringIdEnRecent(ToeleveringId)
-	#dim LaatsteScanTijdstip As %Integer = "1,1"
-	#dim PalletCodeLaatstGescandeLade As %String = ""
-	
-	While DnaCodeIterator.HasNext() {
-		#dim DnaCode As DOM.Halux.AAP.DnaCode = DnaCodeIterator.Next()
-		
-		If ($$$Not(DnaCode.ScanTijdstip = "") && ..DateTimeApi.HorologIsGroterDan(DnaCode.ScanTijdstip, LaatsteScanTijdstip)) {
-			Set LaatsteScanTijdstip = DnaCode.ScanTijdstip
-			Set PalletCodeLaatstGescandeLade = DnaCode.PalletCode
-		}
-	}
-	// Do DnaCodeIterator.Reset()
-	
-	Quit PalletCodeLaatstGescandeLade
-]]></Implementation>
-</Method>
-
-<Method name="GeefVerpakkingTypeVanProduct">
-<FormalSpec>ProductNummer:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	#dim VerpakkingType As %String = ""
-	Try {
-		#dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.IngegevenKenmerken = ..ConfiguratorService.GeefOnverwerkteKenmerkenVanProduct(ProductNummer)
-		Set VerpakkingType = IngegevenKenmerken.VerpakkingType
-	} Catch {}
-	
-	Quit VerpakkingType
-]]></Implementation>
-</Method>
-
 <Method name="GeefVolgendPalletNr">
 <Private>1</Private>
 <ReturnType>%Integer</ReturnType>
Index: vhUnitTest/APPS/Halux/PPS/impl/PalletIDBepaler/PalletIDBepalerHelper/GeefPalletCodeVanLaatstGescandeLade/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/PPS/impl/PalletIDBepaler/PalletIDBepalerHelper/GeefPalletCodeVanLaatstGescandeLade/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/PPS/impl/PalletIDBepaler/PalletIDBepalerHelper/GeefPalletCodeVanLaatstGescandeLade/Test.cls.xml	(revision 73169)
@@ -0,0 +1,90 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Halux.PPS.impl.PalletIDBepaler.PalletIDBepalerHelper.GeefPalletCodeVanLaatstGescandeLade.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="DummyToeleveringId">
+<Type>%String</Type>
+<Default>200000</Default>
+</Parameter>
+
+<Property name="DnaCodeRepositoryMock">
+<Type>DOM.Halux.AAP.DnaCodeRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>TestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(TestName)
+	
+	Set ..DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Geen andere DnaCodes in toelevering -&gt; Lege PalletCode">
+<Implementation><![CDATA[
+	#dim DnaCodeIteratorMock AS TECH.Iterator = ..EmptyIterator()
+	Do ..DnaCodeRepositoryMock.IndienMethodCall("ZoekViaToeleveringIdEnRecent", ..#DummyToeleveringId).DanReturn(DnaCodeIteratorMock)
+	
+	#dim PalletIDBepalerHelper = ##class(APPS.Halux.PPS.impl.PalletIDBepaler.PalletIDBepalerHelper).%New(..DnaCodeRepositoryMock)
+	#dim LaatstGescandePalletCode As %String = PalletIDBepalerHelper.GeefPalletCodeVanLaatstGescandeLade(..#DummyToeleveringId)
+	
+	Do $$$AssertEquals(LaatstGescandePalletCode, "")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Geen ingescande DnaCodes in toelevering -&gt; lege PalletCode">
+<Implementation><![CDATA[
+	#dim ScanTijdstippen As %List = $ListBuild("")
+	#dim PalletCodes As %List = $ListBuild("TBP12345")
+	
+	#dim DnaCodeIteratorMock As TECH.Iterator = ..GeefDnaCodeIteratorMetScanTijdstippenEnPalletCodes(ScanTijdstippen, PalletCodes)
+	Do ..DnaCodeRepositoryMock.IndienMethodCall("ZoekViaToeleveringIdEnRecent", ..#DummyToeleveringId).DanReturn(DnaCodeIteratorMock)
+	
+	#dim PalletIDBepalerHelper = ##class(APPS.Halux.PPS.impl.PalletIDBepaler.PalletIDBepalerHelper).%New(..DnaCodeRepositoryMock)
+	#dim LaatstGescandePalletCode As %String = PalletIDBepalerHelper.GeefPalletCodeVanLaatstGescandeLade(..#DummyToeleveringId)
+	
+	Do $$$AssertEquals(LaatstGescandePalletCode, "")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Verschillende ingescande DnaCodes in toelevering -&gt; PalletCode is die van meest recent ingescand tijdstip">
+<Implementation><![CDATA[
+	#dim ScanTijdstippen As %List = $ListBuild("1000,2", "1000,1", "1000,5", "1000, 3", "1000, 4")
+	#dim PalletCodes As %List = $ListBuild("TBP10002", "TBP10001", "TBP10005", "TBP10003", "TBP10004")
+	
+	#dim DnaCodeIteratorMock As TECH.Iterator = ..GeefDnaCodeIteratorMetScanTijdstippenEnPalletCodes(ScanTijdstippen, PalletCodes)
+	Do ..DnaCodeRepositoryMock.IndienMethodCall("ZoekViaToeleveringIdEnRecent", ..#DummyToeleveringId).DanReturn(DnaCodeIteratorMock)
+	
+	#dim PalletIDBepalerHelper = ##class(APPS.Halux.PPS.impl.PalletIDBepaler.PalletIDBepalerHelper).%New(..DnaCodeRepositoryMock)
+	#dim LaatstGescandePalletCode As %String = PalletIDBepalerHelper.GeefPalletCodeVanLaatstGescandeLade(..#DummyToeleveringId)
+	
+	Do $$$AssertEquals(LaatstGescandePalletCode, "TBP10005")
+]]></Implementation>
+</Method>
+
+<Method name="GeefDnaCodeIteratorMetScanTijdstippenEnPalletCodes">
+<FormalSpec>ScanTijdstippen:%List,PalletCodes:%List</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	#dim DnaCodeLijst = ##class(%ListOfObjects).%New()
+	#dim DnaCodeMock As DOM.Halux.AAP.DnaCode
+	#dim Index As %Integer = 1
+	
+	For Index = 1:1:$ListLength(ScanTijdstippen) {
+		Set DnaCodeMock = ##class(DOM.Halux.AAP.DnaCode).%New()
+		Set DnaCodeMock.ScanTijdstip = $List(ScanTijdstippen, Index)
+		Set DnaCodeMock.PalletCode = $List(PalletCodes, Index)
+		
+		Do DnaCodeLijst.Insert(DnaCodeMock)
+	}
+	
+	Quit ##class(TECH.ListIterator).%New(DnaCodeLijst)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Fake/APPS/Halux/PPS/impl/PalletIDBepaler/PalletIDBepalerHelper.cls.xml
===================================================================
diff -u
--- vhTest/Fake/APPS/Halux/PPS/impl/PalletIDBepaler/PalletIDBepalerHelper.cls.xml	(revision 0)
+++ vhTest/Fake/APPS/Halux/PPS/impl/PalletIDBepaler/PalletIDBepalerHelper.cls.xml	(revision 73169)
@@ -0,0 +1,33 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.APPS.Halux.PPS.impl.PalletIDBepaler.PalletIDBepalerHelper">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.Halux.PPS.impl.PalletIDBepaler.PalletIDBepalerHelper</Super>
+
+<Method name="GeefPalletCodeVanLaatstGescandeLade">
+<FormalSpec>ToeleveringId:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="GeefSuffixVoorPalletCode">
+<FormalSpec>ToeleveringId:%String,LaatstGescandePalletCode:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="GeefVerpakkingTypeVanProduct">
+<FormalSpec>ProductNummer:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>