Index: APPS/PM/Maatwerk/impl/IngegevenKenmerkVerpakkingVisitor.cls.xml
===================================================================
diff -u -r38591 -r40389
--- APPS/PM/Maatwerk/impl/IngegevenKenmerkVerpakkingVisitor.cls.xml	(.../IngegevenKenmerkVerpakkingVisitor.cls.xml)	(revision 38591)
+++ APPS/PM/Maatwerk/impl/IngegevenKenmerkVerpakkingVisitor.cls.xml	(.../IngegevenKenmerkVerpakkingVisitor.cls.xml)	(revision 40389)
@@ -73,8 +73,12 @@
 <FormalSpec>TBXKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Do ..VerpakkingenTBX.VerhoogMetAantal(TBXKenmerken.VerpakkingType,..AantalTeGebruikenBijVerwerking)
-	Do ..VerschillendeVerpakkingsTypes.VerhoogMetAantal(TBXKenmerken.VerpakkingType,..AantalTeGebruikenBijVerwerking)
+	#Dim VerpakkingType As DOM.PM.enu.TBXVerpakking = TBXKenmerken.VerpakkingType
+	If $$$Not($IsObject(VerpakkingType)) || (VerpakkingType = "") { 
+		Set VerpakkingType = TBXKenmerken.LegacyKenmerken.ItemVPK 
+	}
+	Do ..VerpakkingenTBX.VerhoogMetAantal(VerpakkingType,..AantalTeGebruikenBijVerwerking)
+	Do ..VerschillendeVerpakkingsTypes.VerhoogMetAantal(VerpakkingType,..AantalTeGebruikenBijVerwerking)
 	Quit $$$OK
 ]]></Implementation>
 </Method>