Index: vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/ValideerPalletcode/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/ValideerPalletcode/Test.cls.xml	(revision 0)
+++ vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/ValideerPalletcode/Test.cls.xml	(revision 55632)
@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WSimpl.Halux.AAP.DnaCodeService.ValideerPalletcode.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: TBXxxxxx -&gt; ok">
+<Implementation><![CDATA[
+	Set Request = ##class(WS.Halux.AAP.ValideerPalletCodeRequest).%New()
+	Set Request.PalletCode = "TBX12345"
+	
+	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>
+
+
+</Export>
Index: WSimpl/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r55631 -r55632
--- WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 55631)
+++ WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 55632)
@@ -7,8 +7,17 @@
 <FormalSpec>ValideerPalletCodeRequest:WS.Halux.AAP.ValideerPalletCodeRequest</FormalSpec>
 <ReturnType>WS.Halux.AAP.ValideerPalletCodeResponse</ReturnType>
 <Implementation><![CDATA[
+	#dim Match As %Boolean = $$$False
 	Set Response = ##class(WS.Halux.AAP.ValideerPalletCodeResponse).%New()
 	
+	#dim PalletCode = ##class(TECH.StringUtils).ToUpper(ValideerPalletCodeRequest.PalletCode)
+	
+	Set:(PalletCode ?1"TBX"5N) Match=$$$True  
+	
+	If Match {
+		Set Response.Header.Status = "200"
+	}
+	
 	Quit Response
 ]]></Implementation>
 </Method>