Index: vhUnitTest/APPS/Halux/PPS/impl/PalletIDBepaler/GeefNieuwPalletID/Test.cls.xml
===================================================================
diff -u -r72799 -r73175
--- vhUnitTest/APPS/Halux/PPS/impl/PalletIDBepaler/GeefNieuwPalletID/Test.cls.xml	(.../Test.cls.xml)	(revision 72799)
+++ vhUnitTest/APPS/Halux/PPS/impl/PalletIDBepaler/GeefNieuwPalletID/Test.cls.xml	(.../Test.cls.xml)	(revision 73175)
@@ -28,26 +28,11 @@
 <Private>1</Private>
 </Property>
 
-<Property name="DateTimeApiMock">
-<Type>TECH.DateTime.DateTimeAPI</Type>
+<Property name="PalletIDBepalerHelperMock">
+<Type>APPS.Halux.PPS.impl.PalletIDBepaler.PalletIDBepalerHelper</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="DnaCodeRepositoryMock">
-<Type>DOM.Halux.AAP.DnaCodeRepository</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="ConfiguratorServiceMock">
-<Type>APPS.VKP.Maatwerk.impl.ConfiguratorService</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[
@@ -56,10 +41,7 @@
 	Set ..VorigPalletNr = ^RES("EWPAL","CNT","TBX")
 	Set ^RES("EWPAL","CNT","TBX") = ..#DummyPalletNr
 	
-	Set ..DateTimeApiMock = ##class(vhTest.Mock.TECH.DateTime.DateTimeAPI).%New()
-	Set ..DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
-	Set ..ConfiguratorServiceMock = ##class(vhTest.Mock.APPS.VKP.Maatwerk.impl.ConfiguratorService).%New()
-	Set ..KlantInstellingenRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.KlantinstellingenRepository).%New()
+	Set ..PalletIDBepalerHelperMock = ##class(vhTest.Mock.APPS.Halux.PPS.impl.PalletIDBepaler.PalletIDBepalerHelper).%New()
 ]]></Implementation>
 </Method>
 
@@ -96,10 +78,10 @@
 <Implementation><![CDATA[
 	#dim IngegevenKenmerkenStub = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).StandaardLade()
 	
-	Do ..ConfiguratorServiceMock.IndienMethodCall("GeefOnverwerkteKenmerkenVanProduct", ..#DummyProductNr).DanReturn(IngegevenKenmerkenStub)
+	Do ..PalletIDBepalerHelperMock.IndienMethodCall("GeefVerpakkingTypeVanProduct", ..#DummyProductNr).DanReturn("Pallet")
 	
 	#dim Type = "TBP"
-	#dim PalletIdBepaler = ##class(APPS.Halux.PPS.impl.PalletIDBepaler).%New(,, ..ConfiguratorServiceMock)
+	#dim PalletIdBepaler = ##class(APPS.Halux.PPS.impl.PalletIDBepaler).%New(..PalletIDBepalerHelperMock)
 	#dim PalletId = PalletIdBepaler.GeefNieuwPalletID(Type, ..#DummyToeleveringId, ..#DummyProductNr)
 	
 	Do $$$AssertEquals(PalletId, "TBP12346")
@@ -108,21 +90,14 @@
 
 <Method name="Test: GeefPalletId type TBP met ProductNummer op Probox en geen gescande DnaCodes in toelevering geeft volgende PalletId A">
 <Implementation><![CDATA[
-	#dim IngegevenKenmerkenStub = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).StandaardLade()
-	Set IngegevenKenmerkenStub.VerpakkingType = "Probox"
+	#dim LaatstGescandePalletCode As %String = ""
 	
-	#dim DnaCodeMock = ##class(DOM.Halux.AAP.DnaCode).%New()
-	Set DnaCodeMock.Toelevering = ..#DummyToeleveringId
+	Do ..PalletIDBepalerHelperMock.IndienMethodCall("GeefVerpakkingTypeVanProduct", ..#DummyProductNr).DanReturn("Probox")
+	Do ..PalletIDBepalerHelperMock.IndienMethodCall("GeefPalletCodeVanLaatstGescandeLade", ..#DummyToeleveringId).DanReturn(LaatstGescandePalletCode)
+	Do ..PalletIDBepalerHelperMock.IndienMethodCall("GeefSuffixVoorPalletCode", ..#DummyToeleveringId, LaatstGescandePalletCode).DanReturn("A")
 	
-	#dim DnaCodeLijst = ##class(%ListOfObjects).%New()
-	Do DnaCodeLijst.Insert(DnaCodeMock)
-	#dim DnaCodeIteratorMock As TECH.Iterator = ##class(TECH.ListIterator).%New(DnaCodeLijst)
-	
-	Do ..ConfiguratorServiceMock.IndienMethodCall("GeefOnverwerkteKenmerkenVanProduct", ..#DummyProductNr).DanReturn(IngegevenKenmerkenStub)
-	Do ..DnaCodeRepositoryMock.IndienMethodCall("ZoekViaToeleveringIdEnRecent", ..#DummyToeleveringId).DanReturn(DnaCodeIteratorMock)
-	
 	#dim Type = "TBP"
-	#dim PalletIdBepaler = ##class(APPS.Halux.PPS.impl.PalletIDBepaler).%New(..DnaCodeRepositoryMock,, ..ConfiguratorServiceMock)
+	#dim PalletIdBepaler = ##class(APPS.Halux.PPS.impl.PalletIDBepaler).%New(..PalletIDBepalerHelperMock)
 	#dim PalletId = PalletIdBepaler.GeefNieuwPalletID(Type, ..#DummyToeleveringId, ..#DummyProductNr)
 	
 	Do $$$AssertEquals(PalletId, "TBP12346A")
@@ -131,29 +106,14 @@
 
 <Method name="Test: GeefPalletId type TBP met ProductNummer op Probox en laatst gescande DnaCode B geeft volgende PalletId A">
 <Implementation><![CDATA[
-	#dim IngegevenKenmerkenStub = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).StandaardLade()
-	Set IngegevenKenmerkenStub.VerpakkingType = "Probox"
+	#dim LaatstGescandePalletCode As %String = "TBP12345B"
 	
-	#dim DnaCodeMockEen = ##class(DOM.Halux.AAP.DnaCode).%New()
-	Set DnaCodeMockEen.Toelevering = ..#DummyToeleveringId
-	Set DnaCodeMockEen.PalletCode = "TBP99999A"
-	Set DnaCodeMockEen.ScanTijdstip = "10000,10001"
+	Do ..PalletIDBepalerHelperMock.IndienMethodCall("GeefVerpakkingTypeVanProduct", ..#DummyProductNr).DanReturn("Probox")
+	Do ..PalletIDBepalerHelperMock.IndienMethodCall("GeefPalletCodeVanLaatstGescandeLade", ..#DummyToeleveringId).DanReturn(LaatstGescandePalletCode)
+	Do ..PalletIDBepalerHelperMock.IndienMethodCall("GeefSuffixVoorPalletCode", ..#DummyToeleveringId, LaatstGescandePalletCode).DanReturn("A")
 	
-	#dim DnaCodeMockTwee = ##class(DOM.Halux.AAP.DnaCode).%New()
-	Set DnaCodeMockTwee.Toelevering = ..#DummyToeleveringId
-	Set DnaCodeMockTwee.PalletCode = "TBP99999B"
-	Set DnaCodeMockTwee.ScanTijdstip = "10000,10002"
-	
-	#dim DnaCodeLijst = ##class(%ListOfObjects).%New()
-	Do DnaCodeLijst.Insert(DnaCodeMockEen)
-	Do DnaCodeLijst.Insert(DnaCodeMockTwee)
-	#dim DnaCodeIteratorMock As TECH.Iterator = ##class(TECH.ListIterator).%New(DnaCodeLijst)
-	
-	Do ..ConfiguratorServiceMock.IndienMethodCall("GeefOnverwerkteKenmerkenVanProduct", ..#DummyProductNr).DanReturn(IngegevenKenmerkenStub)
-	Do ..DnaCodeRepositoryMock.IndienMethodCall("ZoekViaToeleveringIdEnRecent", ..#DummyToeleveringId).DanReturn(DnaCodeIteratorMock)
-	
 	#dim Type = "TBP"
-	#dim PalletIdBepaler = ##class(APPS.Halux.PPS.impl.PalletIDBepaler).%New(..DnaCodeRepositoryMock,, ..ConfiguratorServiceMock)
+	#dim PalletIdBepaler = ##class(APPS.Halux.PPS.impl.PalletIDBepaler).%New(..PalletIDBepalerHelperMock)
 	#dim PalletId = PalletIdBepaler.GeefNieuwPalletID(Type, ..#DummyToeleveringId, ..#DummyProductNr)
 	
 	Do $$$AssertEquals(PalletId, "TBP12346A")
@@ -162,38 +122,17 @@
 
 <Method name="Test: GeefPalletId type TBP met ProductNummer op Probox en laatst gescande DnaCode A geeft dezelfde PalletId B">
 <Implementation><![CDATA[
-	#dim IngegevenKenmerkenStub = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).StandaardLade()
-	Set IngegevenKenmerkenStub.VerpakkingType = "Probox"
+	#dim LaatstGescandePalletCode As %String = "TBP12345A"
 	
-	#dim DnaCodeMockEen = ##class(DOM.Halux.AAP.DnaCode).%New()
-	Set DnaCodeMockEen.Toelevering = ..#DummyToeleveringId
-	Set DnaCodeMockEen.PalletCode = "TBP99998A"
-	Set DnaCodeMockEen.ScanTijdstip = "10000,10001"
+	Do ..PalletIDBepalerHelperMock.IndienMethodCall("GeefVerpakkingTypeVanProduct", ..#DummyProductNr).DanReturn("Probox")
+	Do ..PalletIDBepalerHelperMock.IndienMethodCall("GeefPalletCodeVanLaatstGescandeLade", ..#DummyToeleveringId).DanReturn(LaatstGescandePalletCode)
+	Do ..PalletIDBepalerHelperMock.IndienMethodCall("GeefSuffixVoorPalletCode", ..#DummyToeleveringId, LaatstGescandePalletCode).DanReturn("B")
 	
-	#dim DnaCodeMockTwee = ##class(DOM.Halux.AAP.DnaCode).%New()
-	Set DnaCodeMockTwee.Toelevering = ..#DummyToeleveringId
-	Set DnaCodeMockTwee.PalletCode = "TBP99998A"
-	Set DnaCodeMockTwee.ScanTijdstip = "10000,10002"
-	
-	#dim DnaCodeMockDrie = ##class(DOM.Halux.AAP.DnaCode).%New()
-	Set DnaCodeMockDrie.Toelevering = ..#DummyToeleveringId
-	Set DnaCodeMockDrie.PalletCode = "TBP99999A"
-	Set DnaCodeMockDrie.ScanTijdstip = "10000,10003"
-	
-	#dim DnaCodeLijst = ##class(%ListOfObjects).%New()
-	Do DnaCodeLijst.Insert(DnaCodeMockEen)
-	Do DnaCodeLijst.Insert(DnaCodeMockTwee)
-	Do DnaCodeLijst.Insert(DnaCodeMockDrie)
-	#dim DnaCodeIteratorMock As TECH.Iterator = ##class(TECH.ListIterator).%New(DnaCodeLijst)
-	
-	Do ..ConfiguratorServiceMock.IndienMethodCall("GeefOnverwerkteKenmerkenVanProduct", ..#DummyProductNr).DanReturn(IngegevenKenmerkenStub)
-	Do ..DnaCodeRepositoryMock.IndienMethodCall("ZoekViaToeleveringIdEnRecent", ..#DummyToeleveringId).DanReturn(DnaCodeIteratorMock)
-	
 	#dim Type = "TBP"
-	#dim PalletIdBepaler = ##class(APPS.Halux.PPS.impl.PalletIDBepaler).%New(..DnaCodeRepositoryMock,, ..ConfiguratorServiceMock)
+	#dim PalletIdBepaler = ##class(APPS.Halux.PPS.impl.PalletIDBepaler).%New(..PalletIDBepalerHelperMock)
 	#dim PalletId = PalletIdBepaler.GeefNieuwPalletID(Type, ..#DummyToeleveringId, ..#DummyProductNr)
 	
-	Do $$$AssertEquals(PalletId, "TBP99999B")
+	Do $$$AssertEquals(PalletId, "TBP12345B")
 ]]></Implementation>
 </Method>
 </Class>