Index: UI/MB/UGLYPicking/dlgOpslagPalSel.cls.xml
===================================================================
diff -u -r7569 -r7716
--- UI/MB/UGLYPicking/dlgOpslagPalSel.cls.xml	(.../dlgOpslagPalSel.cls.xml)	(revision 7569)
+++ UI/MB/UGLYPicking/dlgOpslagPalSel.cls.xml	(.../dlgOpslagPalSel.cls.xml)	(revision 7716)
@@ -822,6 +822,13 @@
 <Implementation><![CDATA[
  Quit:(..dCurrentInterfaceMode'=$$$imVerplaatsPallet)
 
+ Set BronPalletID = ..txtBronPalletID.Text
+ Set ProductionHelper = ##class(APPS.VisiDot.impl.VHossProductionHelper).%New()
+ If (ProductionHelper.IsFrameID(BronPalletID))
+ {
+	Set BronPalletID = ProductionHelper.GeefPalletIDVanVHossID(BronPalletID)
+ }
+
  If ..InRCPMode Do
  . Do evpRCP
  Else  Do
@@ -838,13 +845,6 @@
  If BronLocation="" Do  Quit
  . Do pdaMsgBox^vhVisual(..Form.Caption,"Er is geen geldige bronlocatie ingescand!",$$$MBICONINFORMATION)
 
- Set BronPalletID = ..txtBronPalletID.Text
- Set ProductionHelper = ##class(APPS.VisiDot.impl.VHossProductionHelper).%New()
- If (ProductionHelper.IsFrameID(BronPalletID))
- {
-	Set BronPalletID = ProductionHelper.GeefPalletIDVanVHossID(BronPalletID)
- }
-
  New Result
  Set Result=$$$cmGeneral.CompleteLocationViaPalletID(.BronLocation,BronPalletID)