Index: WSimpl/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r55634 -r55636
--- WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 55634)
+++ WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 55636)
@@ -21,6 +21,9 @@
 	
 	If Match {
 		Set Response.Header.Status = "200"
+	} Else {
+		Set Response.Header.Status = "1005:InvalidUserInput"
+		Set Response.Header.Omschrijving = "Ongeldige code"
 	}
 	
 	Quit Response
Index: vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/ValideerPalletcode/Test.cls.xml
===================================================================
diff -u -r55635 -r55636
--- vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/ValideerPalletcode/Test.cls.xml	(.../Test.cls.xml)	(revision 55635)
+++ vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/ValideerPalletcode/Test.cls.xml	(.../Test.cls.xml)	(revision 55636)
@@ -93,6 +93,20 @@
 	Do $$$AssertEquals(Antwoord.Header.Status,"200")
 ]]></Implementation>
 </Method>
+
+<Method name="Test: willekeurige code -&gt; niet ok">
+<Implementation><![CDATA[
+	Set Request = ##class(WS.Halux.AAP.ValideerPalletCodeRequest).%New()
+	Set Request.PalletCode = $$$DummyString
+	
+	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New()
+	
+	#dim Antwoord As WS.Halux.AAP.ValideerPalletCodeResponse = DnaCodeService.ValideerPalletCode(Request)
+	
+	Do $$$AssertEquals(Antwoord.Header.Status,"1005:InvalidUserInput")
+	Do $$$AssertEquals(Antwoord.Header.Omschrijving,"Ongeldige code")
+]]></Implementation>
+</Method>
 </Class>