Index: vhUnitTest/APPS/Halux/common/TestBatch.cls.xml
===================================================================
diff -u -r29059 -r56847
--- vhUnitTest/APPS/Halux/common/TestBatch.cls.xml	(.../TestBatch.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/Halux/common/TestBatch.cls.xml	(.../TestBatch.cls.xml)	(revision 56847)
@@ -21,6 +21,11 @@
 	Set ^KTO(6332,298006,101)="\700\250\\\44.33\#\\11082.50\11082.50\\L\1\\100\11082.50\KTRPL\\\\E\EUR\\\11/08\\\101\\\\\\\\"
 	Set ^KTO(6332,298006,102)="\595226\1\\\64.71\#\\64.71\64.71\\L\2\\200\64.71\KTRPL\\\\E\EUR\\\11/08\\\102\\\\\\\\"
 	
+	Set DnaCode = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCode.Toelevering = 298006
+	Set DnaCode.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).Nieuw()
+	Do ##class(DOM.Halux.AAP.DnaCodeRepository).%New().Bewaar(DnaCode)
+	
 	Set ^TO("IU",298006,100) = 101
 	Set ^TO("IU",298006,200) = 102