Index: UI/MB/UGLYPicking/dlgPickList.cls.xml
===================================================================
diff -u -r1608 -r55663
--- UI/MB/UGLYPicking/dlgPickList.cls.xml	(.../dlgPickList.cls.xml)	(revision 1608)
+++ UI/MB/UGLYPicking/dlgPickList.cls.xml	(.../dlgPickList.cls.xml)	(revision 55663)
@@ -1342,6 +1342,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefPalletID">
+<FormalSpec>PalletID:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set ProductionHelper = ##class(APPS.VisiDot.impl.VHossProductionHelper).%New()
+	 If (ProductionHelper.IsFrameID(PalletID))
+	 {
+		Set PalletID = ProductionHelper.GeefPalletIDVanVHossID(PalletID)
+	 }	
+	 Quit PalletID
+]]></Implementation>
+</Method>
+
 <Method name="txtScanPalletKeyDown">
 <FormalSpec>Args:%String</FormalSpec>
 <Language>cache</Language>
@@ -1358,7 +1372,7 @@
 
  If Key=$$$keyEnter Do
  . New PalletID
- . Set PalletID=..txtScanPallet.Text
+ . Set PalletID=..GeefPalletID(..txtScanPallet.Text)
  . New tmpItem
  . Set tmpItem=..dCOMPSEARCHPalletViaID(PalletID,..InTransMode)
  . If 'tmpItem && ($L(PalletID)<8) Do   ;niet gevonden, zelfde nog eens testen met leading zero's