Index: BL/MB/UGLYPicking/General.cls.xml
===================================================================
diff -u -r58426 -r73264
--- BL/MB/UGLYPicking/General.cls.xml	(.../General.cls.xml)	(revision 58426)
+++ BL/MB/UGLYPicking/General.cls.xml	(.../General.cls.xml)	(revision 73264)
@@ -46,6 +46,7 @@
 <ProcedureBlock>0</ProcedureBlock>
 <ReturnType>%Library.String</ReturnType>
 <Implementation><![CDATA[
+ Do ##class(vhLib.Logger).%New("UglyPicking").Debug("Verplaats pallet","JobId: '"_$J_"'. CompleteLocationViaEmptyLoc met LocId '"_LocID_"'")
  Quit:(($LL(Location)'=4) && ($LL(Location)'=5)) "Interne fout: lengte van listbuild Location is foutief ("_$LL(Location)_")."
 
  If ##class(BL.MB.UGLYPicking.General).LocMIsInTransit($LI(Location)) Quit $$elHandleTransit()
@@ -123,7 +124,7 @@
 <ReturnType>%Library.String</ReturnType>
 <Implementation><![CDATA[
  Set IsNewPallet=0
-
+ Do ##class(vhLib.Logger).%New("UglyPicking").Debug("Verplaats pallet","JobId: '"_$J_"'. CompleteLocationViaPalletID van PalletId '"_PalletID_"'")
  Quit:(($LL(Location)'=4) && ($LL(Location)'=5)) "Interne fout: lengte van listbuild Location is foutief."
 
  New FoundLocation