Index: vhUnitTest/APPS/Halux/AAP/DnaCodeService/DnaCodeServiceHelper/MagDnaCodeBijgewerktWorden/Test.cls.xml
===================================================================
diff -u -r66736 -r66750
--- vhUnitTest/APPS/Halux/AAP/DnaCodeService/DnaCodeServiceHelper/MagDnaCodeBijgewerktWorden/Test.cls.xml	(.../Test.cls.xml)	(revision 66736)
+++ vhUnitTest/APPS/Halux/AAP/DnaCodeService/DnaCodeServiceHelper/MagDnaCodeBijgewerktWorden/Test.cls.xml	(.../Test.cls.xml)	(revision 66750)
@@ -3,10 +3,34 @@
 <Class name="vhUnitTest.APPS.Halux.AAP.DnaCodeService.DnaCodeServiceHelper.MagDnaCodeBijgewerktWorden.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="Test">
-<Implementation><![CDATA[	Set Helper = ##class(APPS.Halux.AAP.DnaCodeService.DnaCodeServiceHelper).%New()
+<Property name="DnaCode1">
+<Type>DOM.Halux.AAP.DnaCode</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super()
+	
+	Set ..DnaCode1 = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set ..DnaCode1.SequentieNummer = "123456"
+	Set ..DnaCode1.DnaCode = "A00000"
 ]]></Implementation>
 </Method>
+
+<Method name="Test: Sequentiecode bestaat en DnaCode begint niet met H">
+<Implementation><![CDATA[
+	#dim SequentieNummer = "123456"
+	#dim ProductID = "123456"
+	#dim Herafdruk = 0
+	
+	Set DnaCodeServiceHelper = ##class(APPS.Halux.AAP.DnaCodeService.DnaCodeServiceHelper).%New()
+	#dim Resultaat As %Boolean = DnaCodeServiceHelper.MagDnaCodeBijgewerktWorden(..DnaCode1, ProductID, Herafdruk, SequentieNummer)
+	
+	Do $$$AssertTrue(Resultaat)
+]]></Implementation>
+</Method>
 </Class>