Index: UI/MB/UGLYPicking/dlgReceptie.cls.xml
===================================================================
diff -u -r6562 -r20031
--- UI/MB/UGLYPicking/dlgReceptie.cls.xml	(.../dlgReceptie.cls.xml)	(revision 6562)
+++ UI/MB/UGLYPicking/dlgReceptie.cls.xml	(.../dlgReceptie.cls.xml)	(revision 20031)
@@ -671,17 +671,21 @@
  Set ..txtPalletID.Text=$ZCVT(..txtPalletID.Text,"U")
 
  ;--- Data ---------------------------------------------------------------------
- New tmpStatus,ProdIsInKOM
+ New tmpStatus,ProdIsInKOM, GebruikTotaalAantalIndienUseThisTLNr
  If ..ProductNr=-1 Do
  . Set tmpStatus=$LB(-1,"Er is geen product opgegeven.")
  Else  Do
- . Set tmpStatus=$$$cmReceptie.AddToBuffer(..RGID,..VolgNr,..ProductNr,..txtDossier.Text,..txtLocatie.Text,..txtPalletID.Text,..UserID,.ProdIsInKOM)
+ . Set GebruikTotaalAantalIndienUseThisTLNr = 0
+ . Set tmpStatus=$$$cmReceptie.AddToBuffer(..RGID,..VolgNr,..ProductNr,..txtDossier.Text,..txtLocatie.Text,..txtPalletID.Text,..UserID,.ProdIsInKOM,..FilterToelevNr,,,GebruikTotaalAantalIndienUseThisTLNr)
 
  $$$WriteToLog("ADD/INC: "_$LI(tmpStatus,2))
 
  If $LI(tmpStatus)<0 Do  Quit 0
  . Do pdaMsgBox^vhVisual(..Form.Caption,$LI(tmpStatus,2),$$$MBICONERROR)
  . Do ..dCOMPWRITElvProducts()
+ . If $LI(tmpStatus) = -7 Do
+ . . Do ..txtDossier.SetFocus()
+ . . Do ..txtDossier.SelectAll()
  Else  If $LI(tmpStatus)>2 Do   ;Besteld aantal volledig ingescand->toon bericht
  . Do pdaMsgBox^vhVisual(..Form.Caption,$LI(tmpStatus,2),$$$MBICONINFORMATION)