Index: UI/MB/UGLYPicking/dlgOpslagPalSel.cls.xml
===================================================================
diff -u -r1074 -r7501
--- UI/MB/UGLYPicking/dlgOpslagPalSel.cls.xml	(.../dlgOpslagPalSel.cls.xml)	(revision 1074)
+++ UI/MB/UGLYPicking/dlgOpslagPalSel.cls.xml	(.../dlgOpslagPalSel.cls.xml)	(revision 7501)
@@ -5,6 +5,7 @@
 <IncludeCode>KeyCodesCNTs,UglyPickingCNTs</IncludeCode>
 <StorageStrategy>Default</StorageStrategy>
 <Super>%Library.TMFormClass</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="lvProdsOnPalletKeyUp">
 <FormalSpec>Args:%String</FormalSpec>
@@ -837,8 +838,15 @@
  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,..txtBronPalletID.Text)
+ Set Result=$$$cmGeneral.CompleteLocationViaPalletID(.BronLocation,BronPalletID)
 
  If Result'="" Do  Quit
  . Do pdaMsgBox^vhVisual(..Form.Caption,"Bronlocatie: "_Result,$$$MBICONINFORMATION)
@@ -880,8 +888,6 @@
  . Set ..Form.ModalResult=$$$mrOk
 
  Quit
-
-
 ]]></Implementation>
 </Method>