Index: UI/MB/UGLYPicking/dlgReceptie.cls.xml
===================================================================
diff -u -r5109 -r5127
--- UI/MB/UGLYPicking/dlgReceptie.cls.xml	(.../dlgReceptie.cls.xml)	(revision 5109)
+++ UI/MB/UGLYPicking/dlgReceptie.cls.xml	(.../dlgReceptie.cls.xml)	(revision 5127)
@@ -582,13 +582,10 @@
 	   If $LI(tmpStatus)<0 {
 		    Do pdaMsgBox^vhVisual(..Form.Caption,$LI(tmpStatus,2),$$$MBICONERROR)
 	   }
-	   If (..LocatieScanNadien){
-		 New lbTLNrs
-	 	 Set lbTLNrs=..GetToeleveringViaLastSel(1)
-	 	 
+	   If (..LocatieScanNadien){	 	 
 		 New RForm
 	 	 Set RForm=##class(UI.MB.UGLYPicking.dlgReceptieScanNadien).%New($LB(%this.Form.Address,0)) 	 
-	 	 Do RForm.Init(..RGID,..VolgNr,lbTLNrs,..UserID,..txtLocatie.Text,..txtPalletID.Text)
+	 	 Do RForm.Init(..RGID,..VolgNr,..txtLocatie.Text,..txtPalletID.Text)
 		 Do RForm.Form.ShowModal()
 	  }
    } 
Index: UI/MB/UGLYPicking/dlgReceptieScanNadien.cls.xml
===================================================================
diff -u -r5114 -r5127
--- UI/MB/UGLYPicking/dlgReceptieScanNadien.cls.xml	(.../dlgReceptieScanNadien.cls.xml)	(revision 5114)
+++ UI/MB/UGLYPicking/dlgReceptieScanNadien.cls.xml	(.../dlgReceptieScanNadien.cls.xml)	(revision 5127)
@@ -2,6 +2,7 @@
 <Export generator="Cache" version="9">
 <Class name="UI.MB.UGLYPicking.dlgReceptieScanNadien">
 <ClassType>serial</ClassType>
+<IncludeCode>UglyPickingCNTs,KeyCodesCNTs</IncludeCode>
 <Super>%Library.TMFormClass</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
@@ -42,13 +43,6 @@
 <Type>%Integer</Type>
 </Property>
 
-<Property name="lbTLNrs">
-</Property>
-
-<Property name="UserID">
-<Type>%String</Type>
-</Property>
-
 <Property name="LocatieID">
 <Type>%String</Type>
 </Property>
@@ -79,12 +73,10 @@
 </Method>
 
 <Method name="Init">
-<FormalSpec>RGID:%String,VolgNr:%String,lbTLNrs,UserID:%String,LocatieID:%String,PalletID:%String</FormalSpec>
+<FormalSpec>RGID:%String,VolgNr:%String,LocatieID:%String,PalletID:%String</FormalSpec>
 <Implementation><![CDATA[
 	Set ..RGID = RGID
 	Set ..VolgNr = VolgNr
-	Set ..lbTLNrs = lbTLNrs	
-	Set ..UserID = UserID
 	Set ..LocatieID = LocatieID
 	Set ..PalletID = PalletID
 	
@@ -314,6 +306,7 @@
  n Sender
  s Sender=##class(%TMPersistent).GetObjOref($lg(Args,1))
  ;Beginning of user code
+ $$$UIMakovaBtnClickToLog
  Do ..AfhandelingLocatie(..txtLocatieID.Text)
  ;End of user code
  s Args=$lb(Sender)
@@ -328,10 +321,12 @@
 <SoapBindingStyle>document</SoapBindingStyle>
 <SoapBodyUse>literal</SoapBodyUse>
 <Implementation><![CDATA[
+ 
  ; Args format: $lb(Sender)
  n Sender
  s Sender=##class(%TMPersistent).GetObjOref($lg(Args,1))
  ;Beginning of user code
+ $$$UIMakovaBtnClickToLog
   Do ..AfhandelingLocatie(..#TransitLocatie)
  ;End of user code
  s Args=$lb(Sender)
@@ -346,6 +341,7 @@
 	Set Msg = ##class(EWMS.Locations).GeefFeedbackLocatie(LocatieID)
 	If (Msg = ""){
 		Do ##class(BL.MB.UGLYPicking.Receptie).VerplaatsBufferNaarLocatie(..RGID,..VolgNr,LocatieID)
+		$$$WriteToLog("Buffer ("_..RGID_","_..VolgNr_") is verplaatst naar locatie : "_LocatieID)
 		Do ..Form.Close()	
 	}Else{
    		Do pdaMsgBox^vhVisual(..Form.Caption,Msg,$$$MBICONEXCLAMATION,0)
Index: EWMS/Locations.cls.xml
===================================================================
diff -u -r5114 -r5127
--- EWMS/Locations.cls.xml	(.../Locations.cls.xml)	(revision 5114)
+++ EWMS/Locations.cls.xml	(.../Locations.cls.xml)	(revision 5127)
@@ -586,6 +586,8 @@
 </Query>
 
 <Method name="GeefFeedbackLocatie">
+<Description>
+Verwacht TransLoc formaat of dé Transit-Locatie "04020101"</Description>
 <ClassMethod>1</ClassMethod>
 <FormalSpec>LocatieID:%String</FormalSpec>
 <ReturnType>%String</ReturnType>