Index: APPS/PM/Maatwerk/impl/IngegevenKenmerkVerpakkingVisitor.cls.xml
===================================================================
diff -u -r41245 -r41247
--- APPS/PM/Maatwerk/impl/IngegevenKenmerkVerpakkingVisitor.cls.xml	(.../IngegevenKenmerkVerpakkingVisitor.cls.xml)	(revision 41245)
+++ APPS/PM/Maatwerk/impl/IngegevenKenmerkVerpakkingVisitor.cls.xml	(.../IngegevenKenmerkVerpakkingVisitor.cls.xml)	(revision 41247)
@@ -73,10 +73,13 @@
 <FormalSpec>TBXKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	#Dim VerpakkingType As DOM.PM.enu.TBXVerpakking = TBXKenmerken.VerpakkingType
-	If (VerpakkingType = "") && $$$Not(TBXKenmerken.LegacyKenmerken.ItemVPK = "") { 
-		Set VerpakkingType = ##class(DOM.PM.enu.TBXVerpakking).NaarVerpakkingType(TBXKenmerken.LegacyKenmerken.ItemVPK)
+	#Dim TbxVerpakking As DOM.PM.enu.TBXVerpakking = TBXKenmerken.VerpakkingType
+	If (TbxVerpakking = "") && $$$Not(TBXKenmerken.LegacyKenmerken.ItemVPK = "") { 
+		set TbxVerpakking = TBXKenmerken.LegacyKenmerken.ItemVPK
 	}
+	
+	#dim VerpakkingType As DOM.PM.enu.TBXVerpakkingType = ##class(DOM.PM.enu.TBXVerpakking).NaarVerpakkingType(TbxVerpakking)
+	
 	Do ..VerpakkingenTBX.VerhoogMetAantal(VerpakkingType,..AantalTeGebruikenBijVerwerking)
 	Do ..VerschillendeVerpakkingsTypes.VerhoogMetAantal(VerpakkingType,..AantalTeGebruikenBijVerwerking)
 	Quit $$$OK