Index: WSimpl/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r55632 -r55634
--- WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 55632)
+++ WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 55634)
@@ -12,7 +12,12 @@
 	
 	#dim PalletCode = ##class(TECH.StringUtils).ToUpper(ValideerPalletCodeRequest.PalletCode)
 	
-	Set:(PalletCode ?1"TBX"5N) Match=$$$True  
+	Set:(PalletCode ?1"TBX"5N) Match=$$$True 
+	Set:(PalletCode ?1"DIV"5N) Match=$$$True
+	Set:(PalletCode ?1"KAD"5N) Match=$$$True
+	Set:(PalletCode ?1"SFS"5N) Match=$$$True
+	Set:(PalletCode ?1"TBP"5N) Match=$$$True
+	Set:(PalletCode ?1"VHOSS"3N) Match=$$$True
 	
 	If Match {
 		Set Response.Header.Status = "200"
Index: vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/ValideerPalletcode/Test.cls.xml
===================================================================
diff -u -r55632 -r55634
--- vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/ValideerPalletcode/Test.cls.xml	(.../Test.cls.xml)	(revision 55632)
+++ vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/ValideerPalletcode/Test.cls.xml	(.../Test.cls.xml)	(revision 55634)
@@ -15,6 +15,71 @@
 	Do $$$AssertEquals(Antwoord.Header.Status,"200")
 ]]></Implementation>
 </Method>
+
+<Method name="Test: KADxxxxx -&gt; ok">
+<Implementation><![CDATA[
+	Set Request = ##class(WS.Halux.AAP.ValideerPalletCodeRequest).%New()
+	Set Request.PalletCode = "KAD12345"
+	
+	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New()
+	
+	#dim Antwoord As WS.Halux.AAP.ValideerPalletCodeResponse = DnaCodeService.ValideerPalletCode(Request)
+	
+	Do $$$AssertEquals(Antwoord.Header.Status,"200")
+]]></Implementation>
+</Method>
+
+<Method name="Test: DIVxxxxx -&gt; ok">
+<Implementation><![CDATA[
+	Set Request = ##class(WS.Halux.AAP.ValideerPalletCodeRequest).%New()
+	Set Request.PalletCode = "DIV12345"
+	
+	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New()
+	
+	#dim Antwoord As WS.Halux.AAP.ValideerPalletCodeResponse = DnaCodeService.ValideerPalletCode(Request)
+	
+	Do $$$AssertEquals(Antwoord.Header.Status,"200")
+]]></Implementation>
+</Method>
+
+<Method name="Test: TBPxxxxx -&gt; ok">
+<Implementation><![CDATA[
+	Set Request = ##class(WS.Halux.AAP.ValideerPalletCodeRequest).%New()
+	Set Request.PalletCode = "TBP12345"
+	
+	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New()
+	
+	#dim Antwoord As WS.Halux.AAP.ValideerPalletCodeResponse = DnaCodeService.ValideerPalletCode(Request)
+	
+	Do $$$AssertEquals(Antwoord.Header.Status,"200")
+]]></Implementation>
+</Method>
+
+<Method name="Test: SFSxxxxx -&gt; ok">
+<Implementation><![CDATA[
+	Set Request = ##class(WS.Halux.AAP.ValideerPalletCodeRequest).%New()
+	Set Request.PalletCode = "SFS12345"
+	
+	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New()
+	
+	#dim Antwoord As WS.Halux.AAP.ValideerPalletCodeResponse = DnaCodeService.ValideerPalletCode(Request)
+	
+	Do $$$AssertEquals(Antwoord.Header.Status,"200")
+]]></Implementation>
+</Method>
+
+<Method name="Test: VHOSSxxx -&gt; ok">
+<Implementation><![CDATA[
+	Set Request = ##class(WS.Halux.AAP.ValideerPalletCodeRequest).%New()
+	Set Request.PalletCode = "Vhoss345"
+	
+	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New()
+	
+	#dim Antwoord As WS.Halux.AAP.ValideerPalletCodeResponse = DnaCodeService.ValideerPalletCode(Request)
+	
+	Do $$$AssertEquals(Antwoord.Header.Status,"200")
+]]></Implementation>
+</Method>
 </Class>