Index: APPS/PM/Maatwerk/impl/IngegevenKenmerkVerpakkingVisitor.cls.xml
===================================================================
diff -u -r40565 -r41245
--- APPS/PM/Maatwerk/impl/IngegevenKenmerkVerpakkingVisitor.cls.xml	(.../IngegevenKenmerkVerpakkingVisitor.cls.xml)	(revision 40565)
+++ APPS/PM/Maatwerk/impl/IngegevenKenmerkVerpakkingVisitor.cls.xml	(.../IngegevenKenmerkVerpakkingVisitor.cls.xml)	(revision 41245)
@@ -75,7 +75,7 @@
 <Implementation><![CDATA[
 	#Dim VerpakkingType As DOM.PM.enu.TBXVerpakking = TBXKenmerken.VerpakkingType
 	If (VerpakkingType = "") && $$$Not(TBXKenmerken.LegacyKenmerken.ItemVPK = "") { 
-		Set VerpakkingType = TBXKenmerken.LegacyKenmerken.ItemVPK 
+		Set VerpakkingType = ##class(DOM.PM.enu.TBXVerpakking).NaarVerpakkingType(TBXKenmerken.LegacyKenmerken.ItemVPK)
 	}
 	Do ..VerpakkingenTBX.VerhoogMetAantal(VerpakkingType,..AantalTeGebruikenBijVerwerking)
 	Do ..VerschillendeVerpakkingsTypes.VerhoogMetAantal(VerpakkingType,..AantalTeGebruikenBijVerwerking)
Index: APPS/EC/Winkelkar/impl/VerpakkingControleurWinkelkarVisitor.cls.xml
===================================================================
diff -u -r39673 -r41245
--- APPS/EC/Winkelkar/impl/VerpakkingControleurWinkelkarVisitor.cls.xml	(.../VerpakkingControleurWinkelkarVisitor.cls.xml)	(revision 39673)
+++ APPS/EC/Winkelkar/impl/VerpakkingControleurWinkelkarVisitor.cls.xml	(.../VerpakkingControleurWinkelkarVisitor.cls.xml)	(revision 41245)
@@ -60,9 +60,7 @@
 <Method name="GeefAantalVanTBXVerpakkingType">
 <FormalSpec>VerpakkingType:%String</FormalSpec>
 <ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[
-	#dim Verpakking As %String = ##class(DOM.PM.enu.TBXVerpakking).NaarVerpakking(VerpakkingType)
-	Quit ..GeefAantalVanVerpakkingType(Verpakking,..IKVerpakkingVisitor.GeefTBXVerpakkingTypeIterator())
+<Implementation><![CDATA[	Quit ..GeefAantalVanVerpakkingType(VerpakkingType,..IKVerpakkingVisitor.GeefTBXVerpakkingTypeIterator())
 ]]></Implementation>
 </Method>