Index: DOM/PM/Maatwerk/Calc/HF/impl/HalffabItemNaarDtoVisitor.cls.xml
===================================================================
diff -u -r29059 -r29298
--- DOM/PM/Maatwerk/Calc/HF/impl/HalffabItemNaarDtoVisitor.cls.xml	(.../HalffabItemNaarDtoVisitor.cls.xml)	(revision 29059)
+++ DOM/PM/Maatwerk/Calc/HF/impl/HalffabItemNaarDtoVisitor.cls.xml	(.../HalffabItemNaarDtoVisitor.cls.xml)	(revision 29298)
@@ -36,14 +36,26 @@
 	Set BewerktHalffabItem.TeBekomenAantal = Item.TeBekomenAantal
 	
 	#dim Iterator As TECH.ListIterator = Item.GeefBewerkteDimensiesIterator()
-	While (Iterator.HasNext())
-	{
+	While (Iterator.HasNext()) {
 		Set KeyValuePair = ##class(TECH.KeyValuePair).%New()
 		Set KeyValuePair.Value = Iterator.Next()
 		Set KeyValuePair.Key = Iterator.Key()
 		Do BewerktHalffabItem.BewerkingDimensies.Insert(KeyValuePair)
 	}
+
+	#if ##class(TECH.Config.ConfigMgr).Instance().GeefOmgeving()="DEV"
 	
+	if Item.%Extends(##class(DOM.PM.Maatwerk.Calc.HF.impl.HalffabItem.BodemDeksel).%ClassName(1)) {
+		#dim Volume As APPS.Halux.PPS.Verpakking.Volume = Item.Volume
+		Do BewerktHalffabItem.BewerkingDimensies.Insert(##class(TECH.KeyValuePair).%New("DebugInfo","Doos: B:"_Volume.Breedte_" D:"_Volume.Diepte _ "H:"_Volume.Hoogte))
+	}
+	
+	if Item.%Extends(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabItem.Verpakkingv001BulkPerOnderdeelGegroepeerdTemplate).%ClassName(1)) {
+		#dim Item As DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabItem.Verpakkingv001BulkPerOnderdeelGegroepeerdTemplate
+		Do BewerktHalffabItem.BewerkingDimensies.Insert(##class(TECH.KeyValuePair).%New("DebugInfo","# verp : "_Item.GeefAantalVerpakkingen()_" - "_##class(TECH.ArrayUtils).ArrayToPieces(Item.GeefAantallenPerVerpakking())))
+	}
+	#endif
+	
 	Do ..VulAanConcreetHalffabItem(Item, BewerktHalffabItem)
 	
 	Do ..HalffabItem.HalffabItems.Insert(BewerktHalffabItem)