Index: UI/MB/UGLYPicking/dlgReceptieSel.cls.xml
===================================================================
diff -u -r29775 -r30409
--- UI/MB/UGLYPicking/dlgReceptieSel.cls.xml	(.../dlgReceptieSel.cls.xml)	(revision 29775)
+++ UI/MB/UGLYPicking/dlgReceptieSel.cls.xml	(.../dlgReceptieSel.cls.xml)	(revision 30409)
@@ -696,6 +696,7 @@
 <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))
@@ -1122,7 +1123,7 @@
  s Sender=##class(%TMPersistent).GetObjOref($lg(Args,1))
  s Key=$lg(Args,2)
  ;Beginning of user code
-
+ $$$WriteToLog("txtPalletVastKeyPress Key='" _ Key _ "'") // PRA
  ;Controlechars mogen door windows zelf verwerkt worden
  Quit:(Key?1C)
 
Index: UI/MB/UGLYPicking/dlgReceptie.cls.xml
===================================================================
diff -u -r20031 -r30409
--- UI/MB/UGLYPicking/dlgReceptie.cls.xml	(.../dlgReceptie.cls.xml)	(revision 20031)
+++ UI/MB/UGLYPicking/dlgReceptie.cls.xml	(.../dlgReceptie.cls.xml)	(revision 30409)
@@ -1625,6 +1625,7 @@
  ;Beginning of user code
 
  If Key=$$$keyEnter Do
+ . $$$WriteToLog("txtPalletIDKeyDown. Huidige waarde: '" _ ..txtPalletID.Text _ "'")
  . Quit:'..dCOMPVALpnlInput()
  . Do ..EXEReceptie()
  Else  Do