Index: UI/MB/UGLYPicking/dlgReceptieSel.cls.xml
===================================================================
diff -u -r30418 -r38956
--- UI/MB/UGLYPicking/dlgReceptieSel.cls.xml	(.../dlgReceptieSel.cls.xml)	(revision 30418)
+++ UI/MB/UGLYPicking/dlgReceptieSel.cls.xml	(.../dlgReceptieSel.cls.xml)	(revision 38956)
@@ -931,9 +931,8 @@
 <Implementation><![CDATA[
  If (..rbPalletVast.Checked="True") && (..txtPalletVast.Text="") Do  Quit 0
  . Do pdaMsgBox^vhVisual(..Form.Caption,"Er is geen vaste pallet opgegeven.",$$$MBICONINFORMATION)
-
  If (..rbPalletVast.Checked="True") && ($$$Not(..IsPalletVastGeldigeID())) Do  Quit 0
- . Do pdaMsgBox^vhVisual(..Form.Caption,"Vaste pallet is niet geldig. "_$$$CRLF_"Pallet moet beginnen met ""TBX"", ""TBP"" of ""SFS"".",$$$MBICONINFORMATION)
+ . Do pdaMsgBox^vhVisual(..Form.Caption,"Vaste pallet is niet geldig. "_$$$CRLF_"Pallet moet beginnen met ""TBX"", ""TBP"", ""SFS"" of ""O1(L=10)"".",$$$MBICONINFORMATION)
  . Do ..txtPalletVast.SetFocus()
  . Do ..txtPalletVast.SelectAll()
 
@@ -1173,7 +1172,9 @@
  Set IsNewBuffer = (..cbbBuffer.Items.GetObjects(..cbbBuffer.ItemIndex)'=..#ciDetail)
  Set ReceptieGroepID = ..GetSelectedRGID()
  If (IsNewBuffer) && (ReceptieGroepID="TB") Do
- . Set IsGeldigeID = ($L(..txtPalletVast.Text) > 3) && ($$$UCase($E(..txtPalletVast.Text,1,3))?1(1"TBX",1"TBP",1"SFS"))
+ . If ($$$UCase(..txtPalletVast.Text)?1"O1"8N) Do
+ . . Set ..txtPalletVast.Text=$E(..txtPalletVast.Text,1,2)_$E(..txtPalletVast.Text,5,10)
+ . Set IsGeldigeID = ($L(..txtPalletVast.Text) > 3) && ($$$UCase($E(..txtPalletVast.Text,1,3))?1(1"TBX",1"TBP",1"SFS",1"O10"))
 
  Quit IsGeldigeID
 ]]></Implementation>