Index: DOM/PM/enu/TBXVerpakking.cls.xml
===================================================================
diff -u -r39672 -r39692
--- DOM/PM/enu/TBXVerpakking.cls.xml	(.../TBXVerpakking.cls.xml)	(revision 39672)
+++ DOM/PM/enu/TBXVerpakking.cls.xml	(.../TBXVerpakking.cls.xml)	(revision 39692)
@@ -86,7 +86,7 @@
 <ReturnType>DOM.PM.enu.TBXVerpakkingType</ReturnType>
 <Implementation><![CDATA[
 	Do ..Validate(Verpakking)
-	Quit $Case(Verpakking, "P":"Pallet", "X":"Probox", "Y":"Probox", "S":"V1", :"V1")
+	Quit $Case(Verpakking, "P":"Pallet", "X":"Probox", "S":"V1","O":"Procom","C":"Procom","A":"VHoss","B":"VHoss", :"V1")
 ]]></Implementation>
 </Method>
 
@@ -96,7 +96,7 @@
 <ReturnType>TECH.Enumeration</ReturnType>
 <Implementation><![CDATA[
 	Do ##class(DOM.PM.enu.TBXVerpakkingType).Validate(VerpakkingType)
-	Quit $Case(VerpakkingType, "Pallet":"P", "Procom":"O", "Probox":"X", "V1":"S")
+	Quit $Case(VerpakkingType, "Pallet":"P", "VHoss":"B","Procom":"O", "Probox":"X", "V1":"S")
 ]]></Implementation>
 </Method>
 </Class>