Index: UI/MB/UGLYPicking/dlgReceptieSel.cls.xml
===================================================================
diff -u -r8308 -r29775
--- UI/MB/UGLYPicking/dlgReceptieSel.cls.xml	(.../dlgReceptieSel.cls.xml)	(revision 8308)
+++ UI/MB/UGLYPicking/dlgReceptieSel.cls.xml	(.../dlgReceptieSel.cls.xml)	(revision 29775)
@@ -859,6 +859,10 @@
  . Set ..rdScanNadien.Checked="True"
  . Set ..rbLocatieInTeScannen.Checked="False"
 
+ If (..rbPalletVast.Checked="True") && (..rbLocatieVast.Checked="True") && ($L(..txtLocatieVast.Text)) Do
+ . Do ..txtPalletVast.SetFocus()
+ . Do ..txtPalletVast.SelectAll()
+ 
  ;End of user code
  s Args=$lb(Sender)
  q
@@ -927,6 +931,11 @@
  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 ..txtPalletVast.SetFocus()
+ . Do ..txtPalletVast.SelectAll()
+
  New Invalid
  Set Invalid=0
  If (..rbLocatieVast.Checked="True") Do  Quit:(Invalid) 0
@@ -1151,6 +1160,24 @@
 <Type>%TMRadioButton</Type>
 </Property>
 
+<Method name="IsPalletVastGeldigeID">
+<Language>cache</Language>
+<ProcedureBlock>0</ProcedureBlock>
+<ReturnType>%Library.Boolean</ReturnType>
+<SoapBindingStyle>document</SoapBindingStyle>
+<SoapBodyUse>literal</SoapBodyUse>
+<Implementation><![CDATA[
+ New IsGeldigeID,IsNewBuffer,ReceptieGroepID
+ Set IsGeldigeID = 1
+ Set IsNewBuffer = (..cbbBuffer.Items.GetObjects(..cbbBuffer.ItemIndex)'=..#ciDetail)
+ Set ReceptieGroepID = ..GetSelectedRGID()
+ If (IsNewBuffer) && (ReceptieGroepID="TB") Do
+ . Set IsGeldigeID = ($L(..txtPalletVast.Text) > 3) && ($E(..txtPalletVast.Text,1,3)?1(1"TBX",1"TBP",1"SFS"))
+
+ Quit IsGeldigeID
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <Data name="TMFormClassState">