Index: APPS/Halux/Machine/Kantenband/impl/DataConvertor.cls.xml
===================================================================
diff -u -r29059 -r30550
--- APPS/Halux/Machine/Kantenband/impl/DataConvertor.cls.xml	(.../DataConvertor.cls.xml)	(revision 29059)
+++ APPS/Halux/Machine/Kantenband/impl/DataConvertor.cls.xml	(.../DataConvertor.cls.xml)	(revision 30550)
@@ -38,7 +38,9 @@
 	Set Object.Length = DTO.Lengte
 	Set Object.Width = DTO.Breedte
 	Set Object.Thickness = DTO.Dikte
+	SEt Object.BatchID = DTO.BatchID
 	
+	#dim i As %Integer
 	For i=1:1:DTO.Passages.Count() {
 		Set Object = ..ConverteerPassageNaarObject(i,DTO.Passages.GetAt(i),Object)
 	}
@@ -60,7 +62,9 @@
 	Set DTO.Lengte = Object.Length
 	Set DTO.Breedte = Object.Width
 	Set DTO.Dikte = Object.Thickness
+	Set DTO.BatchID = Object.BatchID
 	
+	#dim i As %Integer
 	For i=1:1:4 {
 		Do DTO.Passages.SetAt(..ConverteerPassageNaarDTO(i,Object),i)
 	}