Index: vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/HernoemPallet/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/HernoemPallet/Test.cls.xml	(revision 0)
+++ vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/HernoemPallet/Test.cls.xml	(revision 56097)
@@ -0,0 +1,118 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WSimpl.Halux.AAP.DnaCodeService.HernoemPallet.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: OudeCode is geldige palletcode met data (NieuweCode leeg) -&gt; lijst DnaCodes">
+<Implementation><![CDATA[
+	/*Set Request = ##class(WS.Halux.AAP.HernoemPalletRequest).%New()
+	Set Request.OudeCode = "TBX12345"
+	Set Request.NieuweCode = ""
+	
+	Set DnaCode1 = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCode2 = ##class(DOM.Halux.AAP.DnaCode).%New()
+	#dim DnaCodeIterator As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1, DnaCode2)
+	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaPalletCode",Request.OudeCode).DanReturn(DnaCodeIterator)
+	
+	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock)
+	
+	#dim Antwoord As WS.Halux.AAP.HernoemPalletResponse = DnaCodeService.HernoemPallet(Request)
+	
+	Do $$$AssertEquals(Antwoord.Header.Status,"200")
+	Do $$$AssertEquals(Antwoord.DnaCodes.Count(),2)
+	Do DnaCodeRepositoryMock.Verifieer()*/
+]]></Implementation>
+</Method>
+
+<Method name="aTest: OudeCode is geldige palletcode zonder data (NieuweCode leeg) -&gt; foutmelding geven">
+<Implementation><![CDATA[
+	Set Request = ##class(WS.Halux.AAP.ZoekViaToeleveringRequest).%New()
+	Set Request.Toelevering = "333333"
+	
+	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaToeleveringId",Request.Toelevering).DanReturn(..EmptyIterator())
+	
+	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock)
+	
+	#dim Antwoord As WS.Halux.AAP.ZoekViaToeleveringResponse = DnaCodeService.ZoekViaToelevering(Request)
+	
+	Do $$$AssertEquals(Antwoord.Header.Status,##class(TECH.enu.ExceptionCode).DataNotFound())
+	Do $$$AssertEquals(Antwoord.Header.Omschrijving,"Geen data gevonden voor pallet '333333'")
+	Do $$$AssertEquals(Antwoord.DnaCodes.Count(),0)
+	Do DnaCodeRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="aTest: OudeCode is geldige DnaCode (NieuweCode leeg) -&gt; lijst DnaCodes die op zelfde pallet zitten">
+<Implementation><![CDATA[
+	Set Request = ##class(WS.Halux.AAP.HernoemPalletRequest).%New()
+	Set Request.OudeCode = "TBX12345"
+	
+	Set DnaCode1 = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCode2 = ##class(DOM.Halux.AAP.DnaCode).%New()
+	#dim DnaCodeIterator As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1, DnaCode2)
+	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaToeleveringId",Request.Toelevering).DanReturn(DnaCodeIterator)
+	
+	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock)
+	
+	#dim Antwoord As WS.Halux.AAP.ZoekViaToeleveringResponse = DnaCodeService.ZoekViaToelevering(Request)
+	
+	Do $$$AssertEquals(Antwoord.Header.Status,"200")
+	Do $$$AssertEquals(Antwoord.DnaCodes.Count(),2)
+	Do $$$AssertEquals(Antwoord.AantalInToelevering,"2")
+	Do $$$AssertEquals(Antwoord.AantalReedsGescand,"0")
+	Do DnaCodeRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="aTest: OudeCode is geldige DnaCode die niet op pallet staat (NieuweCode leeg) -&gt; foutmelding geven">
+<Implementation><![CDATA[
+	Set Request = ##class(WS.Halux.AAP.HernoemPalletRequest).%New()
+	Set Request.OudeCode = "TBX12345"
+	
+	Set DnaCode1 = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCode2 = ##class(DOM.Halux.AAP.DnaCode).%New()
+	#dim DnaCodeIterator As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1, DnaCode2)
+	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaToeleveringId",Request.Toelevering).DanReturn(DnaCodeIterator)
+	
+	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock)
+	
+	#dim Antwoord As WS.Halux.AAP.ZoekViaToeleveringResponse = DnaCodeService.ZoekViaToelevering(Request)
+	
+	Do $$$AssertEquals(Antwoord.Header.Status,"200")
+	Do $$$AssertEquals(Antwoord.DnaCodes.Count(),2)
+	Do $$$AssertEquals(Antwoord.AantalInToelevering,"2")
+	Do $$$AssertEquals(Antwoord.AantalReedsGescand,"0")
+	Do DnaCodeRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="aTest: OudeCode is zinloos (NieuweCode leeg) -&gt; foutmelding geven">
+<Implementation><![CDATA[
+	Set Request = ##class(WS.Halux.AAP.HernoemPalletRequest).%New()
+	Set Request.OudeCode = "TBX12345"
+	
+	Set DnaCode1 = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCode2 = ##class(DOM.Halux.AAP.DnaCode).%New()
+	#dim DnaCodeIterator As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1, DnaCode2)
+	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaToeleveringId",Request.Toelevering).DanReturn(DnaCodeIterator)
+	
+	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock)
+	
+	#dim Antwoord As WS.Halux.AAP.ZoekViaToeleveringResponse = DnaCodeService.ZoekViaToelevering(Request)
+	
+	Do $$$AssertEquals(Antwoord.Header.Status,"200")
+	Do $$$AssertEquals(Antwoord.DnaCodes.Count(),2)
+	Do $$$AssertEquals(Antwoord.AantalInToelevering,"2")
+	Do $$$AssertEquals(Antwoord.AantalReedsGescand,"0")
+	Do DnaCodeRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/PalletCodeValidator/ValideerPalletCode/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/PalletCodeValidator/ValideerPalletCode/Test.cls.xml	(revision 0)
+++ vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/PalletCodeValidator/ValideerPalletCode/Test.cls.xml	(revision 56097)
@@ -0,0 +1,48 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WSimpl.Halux.AAP.DnaCodeService.PalletCodeValidator.ValideerPalletCode.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: TBXxxxxx -&gt; ok">
+<Implementation><![CDATA[	Do $$$AssertTrue(##class(WSimpl.Halux.AAP.DnaCodeService.PalletCodeValidator).%New().ValideerPalletCode("TBX12345"))
+]]></Implementation>
+</Method>
+
+<Method name="Test: KADxxxxx -&gt; ok">
+<Implementation><![CDATA[	Do $$$AssertTrue(##class(WSimpl.Halux.AAP.DnaCodeService.PalletCodeValidator).%New().ValideerPalletCode("KAD12345"))
+]]></Implementation>
+</Method>
+
+<Method name="Test: DIVxxxxx -&gt; ok">
+<Implementation><![CDATA[	Do $$$AssertTrue(##class(WSimpl.Halux.AAP.DnaCodeService.PalletCodeValidator).%New().ValideerPalletCode("DIV12345"))
+]]></Implementation>
+</Method>
+
+<Method name="Test: TBPxxxxx -&gt; ok">
+<Implementation><![CDATA[	Do $$$AssertTrue(##class(WSimpl.Halux.AAP.DnaCodeService.PalletCodeValidator).%New().ValideerPalletCode("TBP12345"))
+]]></Implementation>
+</Method>
+
+<Method name="Test: SFSxxxxx -&gt; ok">
+<Implementation><![CDATA[	Do $$$AssertTrue(##class(WSimpl.Halux.AAP.DnaCodeService.PalletCodeValidator).%New().ValideerPalletCode("SFS12345"))
+]]></Implementation>
+</Method>
+
+<Method name="Test: VHOSSxxx -&gt; ok">
+<Implementation><![CDATA[	Do $$$AssertTrue(##class(WSimpl.Halux.AAP.DnaCodeService.PalletCodeValidator).%New().ValideerPalletCode("Vhoss345"))
+]]></Implementation>
+</Method>
+
+<Method name="Test: tbxxxxxx (lowercase) -&gt; ok">
+<Implementation><![CDATA[	Do $$$AssertTrue(##class(WSimpl.Halux.AAP.DnaCodeService.PalletCodeValidator).%New().ValideerPalletCode("tbx12345"))
+]]></Implementation>
+</Method>
+
+<Method name="Test: willekeurige code -&gt; niet ok">
+<Implementation><![CDATA[	Do $$$AssertFalse(##class(WSimpl.Halux.AAP.DnaCodeService.PalletCodeValidator).%New().ValideerPalletCode($$$DummyString))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WSimpl/Halux/AAP/DnaCodeService/PalletCodeValidator.cls.xml
===================================================================
diff -u
--- WSimpl/Halux/AAP/DnaCodeService/PalletCodeValidator.cls.xml	(revision 0)
+++ WSimpl/Halux/AAP/DnaCodeService/PalletCodeValidator.cls.xml	(revision 56097)
@@ -0,0 +1,27 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.Halux.AAP.DnaCodeService.PalletCodeValidator">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="ValideerPalletCode">
+<FormalSpec>PalletCode:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim Result As %Boolean = $$$False
+	
+	Set PalletCode = ##class(TECH.StringUtils).ToUpper(PalletCode)
+	
+	Set:(PalletCode ?1"TBX"5N) Result=$$$True 
+	Set:(PalletCode ?1"DIV"5N) Result=$$$True
+	Set:(PalletCode ?1"KAD"5N) Result=$$$True
+	Set:(PalletCode ?1"SFS"5N) Result=$$$True
+	Set:(PalletCode ?1"TBP"5N) Result=$$$True
+	Set:(PalletCode ?1"VHOSS"3N) Result=$$$True
+	
+	Quit Result
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>