Index: APPS/VisiDot/impl/VHossProductionHelper.cls.xml
===================================================================
diff -u -r2571 -r2786
--- APPS/VisiDot/impl/VHossProductionHelper.cls.xml	(.../VHossProductionHelper.cls.xml)	(revision 2571)
+++ APPS/VisiDot/impl/VHossProductionHelper.cls.xml	(.../VHossProductionHelper.cls.xml)	(revision 2786)
@@ -38,6 +38,15 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefPalletIDVanVHossID">
+<FormalSpec>VHossID:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set Type = $Extract(VHossID,1,2) 
+	Set VHossNr = $Extract(VHossID,5,10) 
+	Quit Type_VHossNr
+]]></Implementation>
+</Method>
+
 <Method name="GeefBatchVanLadeID">
 <FormalSpec>LadeID:%String</FormalSpec>
 <ReturnType>%Integer</ReturnType>