Index: APPS/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r56846 -r56847
--- APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 56846)
+++ APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 56847)
@@ -97,7 +97,7 @@
 			If DnaCode.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).Nieuw() {
 				Set DnaCode.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBatch()
 				Set DnaCode.Lijn = Batch.GeefLijn()
-				//Set DnaCode.IsWegwerpPallet = Batch.GeefIsWegwerpPallet()
+				Set DnaCode.IsWegwerpPallet = Batch.GeefIsWegwerpPallet()
 				Do ..DnaCodeRepository.Bewaar(DnaCode)
 			}
 		}
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
 	
Index: vhUnitTest/APPS/Halux/common/impl/VoegToeBezwaren/ToeleveringInBatch/Test.cls.xml
===================================================================
diff -u -r56761 -r56847
--- vhUnitTest/APPS/Halux/common/impl/VoegToeBezwaren/ToeleveringInBatch/Test.cls.xml	(.../Test.cls.xml)	(revision 56761)
+++ vhUnitTest/APPS/Halux/common/impl/VoegToeBezwaren/ToeleveringInBatch/Test.cls.xml	(.../Test.cls.xml)	(revision 56847)
@@ -78,11 +78,19 @@
   	Set ^KTO1(..#ToeleveringID)="6332\"
  	
  	Set ^KTO(6332,..#ToeleveringID,0)=103                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         
-	Set ^KTO(6332,..#ToeleveringID,1)="\16.02.11\KOMM. TESTKLANT VAN HOECK\\\6332\\1000\\\\\\\\\\EUR\62151,43200\\\2\\\\"
+	Set ^KTO(6332,..#ToeleveringID,1)="\16.02.11\KOMM. TESTKLANT VAN HOECK\\\6332\1000\\\\\\\\\\\EUR\62151,43200\\\2\\\\"
 	Set ^KTO(6332,..#ToeleveringID,4)=3
 	Set ^KTO(6332,..#ToeleveringID,101)="\700\250\\\44.33\#\\11082.50\11082.50\\L\1\\100\11082.50\KTRPL\\\\E\EUR\\\11/08\\\101\\\\\\\\"
 	Set ^KTO(6332,..#ToeleveringID,102)="\595226\1\\\64.71\#\\64.71\64.71\\L\2\\200\64.71\KTRPL\\\\E\EUR\\\11/08\\\102\\\\\\\\"
 	
+	Set ^KOD(1000,"F",1000,1)="\10.03.11\TEST\\\1000\EX;1`EX;3`EX;5\1111#2042#62160,53165\\cw@vanhoecke.be\\\\\\\\EUR\\\60\2\\DIV#62160,53165#123348\\\\\\\\\\\\\\\\\\\\\62160,53165"
+	Set ^KOD(1000,"F",1000,2)="\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
+	Set ^KOD(1000,"F",1000,3)="1\TESTKLANT VAN HOECKE nv\\FIRMA\Europark noord 9\9100\Sint-Niklaas\1019\N\\\\\\\\\\.\\\\test cw\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
+	Set ^KOD(1000,"F",1000,4)=3
+	Set ^KOD(1000,"F",1000,101)="703100 \1002\1\\\97.14\0#\8\97.14\97.14\703100 \L\\\100\97.14\KF0\\\\E1\EUR\\1\62171\\"_..#ToeleveringID_"\101\\\\\\\\\\\\\\\\\\1\\"
+ 	
+ 	do ##class(vhUnitTest.DataHelper).MaakOrderCompleet(6332,1000)
+	
 	Set DnaCode = ##class(DOM.Halux.AAP.DnaCode).%New()
 	Set DnaCode.Toelevering = ..#ToeleveringID
 	Set DnaCode.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).Nieuw()