Index: UI/MB/UGLYPicking/dlgReceptieSel.cls.xml
===================================================================
diff -u -r38956 -r45045
--- UI/MB/UGLYPicking/dlgReceptieSel.cls.xml	(.../dlgReceptieSel.cls.xml)	(revision 38956)
+++ UI/MB/UGLYPicking/dlgReceptieSel.cls.xml	(.../dlgReceptieSel.cls.xml)	(revision 45045)
@@ -5,8 +5,25 @@
 <IncludeCode>UglyPickingCNTs,KeyCodesCNTs,MakovaDrawTextCnts</IncludeCode>
 <StorageStrategy>Default</StorageStrategy>
 <Super>%Library.TMFormClass</Super>
-<ClassDefinitionError>0</ClassDefinitionError>
 
+<Method name="txtPalletVastExit">
+<FormalSpec>Args:%String</FormalSpec>
+<Language>cache</Language>
+<ProcedureBlock>0</ProcedureBlock>
+<SoapBindingStyle>document</SoapBindingStyle>
+<SoapBodyUse>literal</SoapBodyUse>
+<Implementation><![CDATA[
+ ; Args format: $lb(Sender)
+ n Sender
+ s Sender=##class(%TMPersistent).GetObjOref($lg(Args,1))
+
+ Set Sender.Text=$$$cmGeneral.RemoveCharsFromPalletID(Sender.Text)
+
+ s Args=$lb(Sender)
+ q
+]]></Implementation>
+</Method>
+
 <Method name="rSpecialBufferHandling">
 <FormalSpec>RGID:%String,CheckOnly:%Boolean=0</FormalSpec>
 <Language>cache</Language>
@@ -263,6 +280,7 @@
  ;      ParentFont = False
  ;      TabOrder = 1
  ;      OnClick = txtPalletVastClick
+ ;      OnExit = txtPalletVastExit
  ;      OnKeyPress = txtPalletVastKeyPress
  ;    end
  ;    object rbPalletInTeScannen: CRadioButton
@@ -594,7 +612,7 @@
  d %this.gbPallet.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clRed,-11,"MS Sans Serif",$lb("fsBold")))
  d %this.rbPalletVast.SetMultiProperty($lb("Left","Top","Width","Height","Caption","Checked","ParentFont","TabOrder","TabStop","OnClick"),$lb(14,14,65,17,"Vast","True","False",0,"True",$lb(%this,"rbPalletClick")))
  d %this.rbPalletVast.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-13,"MS Sans Serif",$lb("fsBold")))
- d %this.txtPalletVast.SetMultiProperty($lb("Left","Top","Width","Height","Ctl3D","ParentCtl3D","ParentFont","TabOrder","OnClick","OnKeyPress"),$lb(14,36,73,22,"False","False","False",1,$lb(%this,"txtPalletVastClick"),$lb(%this,"txtPalletVastKeyPress")))
+ d %this.txtPalletVast.SetMultiProperty($lb("Left","Top","Width","Height","Ctl3D","ParentCtl3D","ParentFont","TabOrder","OnClick","OnExit","OnKeyPress"),$lb(14,36,73,22,"False","False","False",1,$lb(%this,"txtPalletVastClick"),$lb(%this,"txtPalletVastExit"),$lb(%this,"txtPalletVastKeyPress")))
  d %this.txtPalletVast.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clGreen,-13,"MS Sans Serif",$lb("fsBold")))
  d %this.rbPalletInTeScannen.SetMultiProperty($lb("Left","Top","Width","Height","Caption","ParentFont","TabOrder","TabStop","OnClick"),$lb(94,13,113,17,"In te scannen","False",2,"True",$lb(%this,"rbPalletClick")))
  d %this.rbPalletInTeScannen.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-13,"MS Sans Serif",$lb("fsBold")))
@@ -696,7 +714,6 @@
 <SoapBindingStyle>document</SoapBindingStyle>
 <SoapBodyUse>literal</SoapBodyUse>
 <Implementation><![CDATA[
- $$$WriteToLog("ENTER IN PALLET-INPUT. Huidige waarde: '" _ ..txtPalletVast.Text _ "'")
  ; Args format: $lb(Sender)
  n Sender
  s Sender=##class(%TMPersistent).GetObjOref($lg(Args,1))
Index: BL/MB/UGLYPicking/General.cls.xml
===================================================================
diff -u -r36555 -r45045
--- BL/MB/UGLYPicking/General.cls.xml	(.../General.cls.xml)	(revision 36555)
+++ BL/MB/UGLYPicking/General.cls.xml	(.../General.cls.xml)	(revision 45045)
@@ -578,6 +578,19 @@
 ]]></Implementation>
 </Method>
 
+<Method name="RemoveCharsFromPalletID">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>PalletID:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	If (##class(TECH.StringUtils).StartsWith(PalletID,"O1"))&&($L(PalletID)>8)
+	{
+		Quit $E(PalletID,1,3)_$E(PalletID,$L(PalletID)-4,$L(PalletID))
+	}
+	Quit PalletID
+]]></Implementation>
+</Method>
+
 <Method name="RemoveControleCharsFromPalletID">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>PalletID:%String</FormalSpec>