Index: BL/MB/UGLYPicking/Receptie.cls.xml
===================================================================
diff -u -r73243 -r73264
--- BL/MB/UGLYPicking/Receptie.cls.xml	(.../Receptie.cls.xml)	(revision 73243)
+++ BL/MB/UGLYPicking/Receptie.cls.xml	(.../Receptie.cls.xml)	(revision 73264)
@@ -2087,6 +2087,7 @@
 					If $$$Not(##class(TECH.StringUtils).Equals(DnaCode.ProductNummer, ##class(DOM.PM.Maatwerk.enu.GenerischProductID).LBXSSTV1(), ##class(DOM.PM.Maatwerk.enu.GenerischProductID).TBXSSTV1(), ##class(DOM.PM.Maatwerk.enu.GenerischProductID).TAORSSTV1())) {
 						Set PalletId = $Extract(DnaCode.PalletCode,1,8)
 						Set Status = ..AddToBuffer(RGID,VolgNr,DnaCode.ProductNummer,DnaCode.LadeCode,DnaCode.Locatie,PalletId,Initialen,,,,,DnaCode.Toelevering)
+						$$$WriteToLog("Buffer met Id '"_RGID_"' aangemaakt voor Toelevering '"_DnaCode.Toelevering_"'...")
 					}
 				}
 			}
Index: BL/MB/UGLYPicking/ReceptieProductie.cls.xml
===================================================================
diff -u -r63307 -r73264
--- BL/MB/UGLYPicking/ReceptieProductie.cls.xml	(.../ReceptieProductie.cls.xml)	(revision 63307)
+++ BL/MB/UGLYPicking/ReceptieProductie.cls.xml	(.../ReceptieProductie.cls.xml)	(revision 73264)
@@ -1168,6 +1168,7 @@
  ..  Set BufferLijn=^UPRCP("B",RGID,VolgNr,LijnNr)
  ..  Set ProductNr=$P(BufferLijn,SEP,1)
  ..  Set PalletID=$P(BufferLijn,SEP,3)
+ ..  If ($l(PalletID)=0) D WLIP^vhDBG(127,"^UPRCP(""B"","_RGID_","_VolgNr_","_LijnNr_")")
  ..  Set LocatieID=$P(BufferLijn,SEP,4)
  ..  Set BufferKey=##class(BL.MB.UGLYPicking.ReceptieProductie).BuildBufferKey(RGID,VolgNr,LijnNr)  ;Concatenatie vd 3 para's
  ..  Set QtyRequest=$P(BufferLijn,SEP,5)
@@ -1360,7 +1361,7 @@
  ;===================================================================================================
  ; INIT: vars, SEP, locken...
  ;===================================================================================================
- Do ..AddToLog("Bezig met voorbereiden van de gegevens...")
+ Do ..AddToLog("JobId: '" _ $J _ "'. Bezig met voorbereiden van de gegevens...")
 
  New arefPB,arefPT
  Set arefPB=..#aPB
@@ -1373,15 +1374,15 @@
  New SEP
  Set SEP=##class(BL.MB.UGLYPicking.Receptie).GetBufferSeperator()
 
- Do ..AddToEndOfLog("Ok.")
+ Do ..AddToEndOfLog("JobId: '" _ $J _ "'. Gegevens voorbereid.")
 
  ;===================================================================================================
  ; DOORSTUREN
  ;===================================================================================================
 
  ;Checken of er C-records niet zijn verstuurd, indien dit het geval is: afsluiten! Dan moet in het
  ;programma eerst deze verwerkt/verwijderd worden!
- #dim Melding As %String = "Enkele synchronisatie-berichten van een vorig doorsturen zijn niet verwerkt. Verwerk/verwijder deze eerst."
+ #dim Melding As %String = "JobId: '" _ $J _ "'. Enkele synchronisatie-berichten van een vorig doorsturen zijn niet verwerkt. Verwerk/verwijder deze eerst."
  If $D(^aRecProdRecsToSend($J)){
 	Do ..SendMailNaarITaRecProdNietLeeg("",Melding)
  }
@@ -1413,7 +1414,7 @@
  . For  Set BufKey=$O(@arefPB@(ProductNr,BufKey)) Quit:((BufKey="") || SendSingleInfoError)  Do
  ..  Set BKVolgNr=0
  ..  For  Set BKVolgNr=$O(@arefPB@(ProductNr,BufKey,BKVolgNr)) Quit:((BKVolgNr="") || SendSingleInfoError)  Do
- ...   Do:(BKVolgNr=1) ..AddToLog(""),..AddToLog("---=[ Product "_ProductNr_", Buffer "_BufKey_" ]=---")
+ ...   Do:(BKVolgNr=1) ..AddToLog(""),..AddToLog("JobId: '" _ $J _ "'. ---=[ Product "_ProductNr_", Buffer "_BufKey_" ]=---")
  ...   Set SendSingleInfoStatus=..SendSingleInfo(ProductNr,BufKey,BKVolgNr)
  ...   If $LI(SendSingleInfoStatus)>0 Do
  ....    Set DoorstuurCnt=DoorstuurCnt+1
@@ -1431,12 +1432,12 @@
  ; EXIT
  ;===================================================================================================
  Do ..AddToLog("")
- Do ..AddToLog("Bezig met afsluiten...")
+ Do ..AddToLog("JobId: '" _ $J _ "'. Bezig met afsluiten...")
  ;Unlock shit
  Do ..UPRCPUnLock(.aLockToelevs)
  ;Lock op ^UPRCP("R") vrijgeven
  Do ##class(BL.MB.UGLYPicking.ReceptieProductie).UnLockReservaties()
- Do ..AddToEndOfLog("Ok.")
+ Do ..AddToEndOfLog("JobId: '" _ $J _ "'. Buffer afgesloten.")
 
  Quit:(SendSingleInfoError) $LB(-1,$LI(SendSingleInfoStatus,2))
  Quit:($LI(SendCRecsStatus)<0) $LB(-2,$LI(SendCRecsStatus,2))
@@ -1461,28 +1462,28 @@
 
 	 ;--- PALLET AANMAKEN/WIJZIGEN ----------------------------------------------------------------------
 	 ; INVENTORY GEGs
-	 Do ..AddToLog($C(9)_"Opvragen inventory status...")
+	 Do ..AddToLog($C(9)_"JobId: '"_$J_"'. Opvragen inventory status...")
 	 New tmpStatus,PalletID,IsNewSectie,IsNewPallet,SectieToUse
 	 Set PalletID=$P(PBLine,SEP,4)
 	 Set tmpStatus=##class(EWMS.Inventory).GetMyInventoryStatus(PalletID,ProductNr,.IsNewSectie,.IsNewPallet,,.SectieToUse)
 	 If $LI(tmpStatus)<0 Do  Quit tmpStatus
-	 . Do ..AddToEndOfLog("ERROR (PalletID: "_PalletID_", ProductNr: "_ProductNr_").")
+	 . Do ..AddToEndOfLog("ERROR (JobId: '"_$J_"'. PalletID: "_PalletID_", ProductNr: "_ProductNr_").")
 	 Else  Do
 	 . If IsNewPallet Do
-	 ..  Do ..AddToEndOfLog("Ok: nieuwe pallet '"_PalletID_"'.")
+	 ..  Do ..AddToEndOfLog("JobId: '"_$J_"'. Ok: nieuwe pallet '"_PalletID_"'.")
 	 . Else  Do
 	 ..  If IsNewSectie Do
-	 ...   Do ..AddToEndOfLog("Ok: nieuwe sectie '"_SectieToUse_"' op pallet '"_PalletID_"'.")
+	 ...   Do ..AddToEndOfLog("JobId: '"_$J_"'. Ok: nieuwe sectie '"_SectieToUse_"' op pallet '"_PalletID_"'.")
 	 ..  Else  Do
-	 ...   Do ..AddToEndOfLog("Ok.")
+	 ...   Do ..AddToEndOfLog("JobId: '"_$J_"'. Ok: Geen nieuwe pallet/sectie.")
 	 ; LOCATION GEGs
 	 New Locatie
 	 Set Locatie=$P(PBLine,SEP,11)
-	 Do ..AddToLog($C(9)_"Locatie '"_Locatie_"' controleren voor pallet '"_PalletID_"'...")
+	 Do ..AddToLog($C(9)_"JobId: '"_$J_"'. Locatie '"_Locatie_"' controleren voor pallet '"_PalletID_"'...")
 	 New lbLocation
 	 Set lbLocation=##class(BL.MB.UGLYPicking.General).GetLocationFromScan(Locatie)
-	 If lbLocation="" Do  Quit $LB(-1,"De ingescande locatie '"_Locatie_"' is niet geldig!")  ;errornr -1 onbelangrijk...
-	 . Do ..AddToEndOfLog("ERROR.")
+	 If lbLocation="" Do  Quit $LB(-1,"JobId: '"_$J_"'. De ingescande locatie '"_Locatie_"' is niet geldig!")  ;errornr -1 onbelangrijk...
+	 . Do ..AddToEndOfLog("JobId: '"_$J_"'. ERROR. De ingescande locatie '"_Locatie_"' is niet geldig!")
 	 New Result
 	 If IsNewPallet Do
 	 . Set Result=##class(BL.MB.UGLYPicking.General).CompleteLocationViaEmptyLoc(.lbLocation,PalletID)
@@ -1495,22 +1496,22 @@
 	 . Set Result=##class(BL.MB.UGLYPicking.General).CompleteLocationViaPalletID(.lbLocation,PalletID,.IsNewPallet,1)
 	 . Do:(IsNewPallet) ..AddToEndOfLog("verwijderen (consolidatie): ")
 	 If Result="" Do
-	 . Do ..AddToEndOfLog("Ok.")
+	 . Do ..AddToEndOfLog("JobId: '"_$J_"'. Ok: CompleteLocation geslaagd.")
 	 Else  Do  Quit $LB(-1,Result)
-	 . Do ..AddToEndOfLog("ERROR.")
+	 . Do ..AddToEndOfLog("JobId: '"_$J_"'. ERROR: CompleteLocation niet geslaagd.")
  
 	 ; COMMIT ADD STOCK (HistoryRemark=TLNr)
 	 New TLNr,D
 	 Set TLNr=$P(PBLine,SEP,7)
 	 Set D="\"
 	 Set Result=""
 	 If $P($G(^KPR(ProductNr,2)),D,15)'=6 Do    ;GEEN WERKVLOER(=6) PRODUCT? -> STOCKEREN
-	 . Do ..AddToLog($C(9)_"Aanpassen van de stock...")
+	 . Do ..AddToLog($C(9)_"JobId: '"_$J_"'. Aanpassen van de stock...")
 	 . Set Result=##class(BL.MB.UGLYPicking.Opslag).CommitAddStock(PalletID,lbLocation,SectieToUse,ProductNr,QtyFromToelev,TLNr)
 	 . If Result="" Do
-	 ..  Do ..AddToEndOfLog("Ok.")
+	 ..  Do ..AddToEndOfLog("JobId: '"_$J_"'. Ok: stock aangepast")
 	 . Else  Do
-	 ..  Do ..AddToEndOfLog("ERROR.")
+	 ..  Do ..AddToEndOfLog("JobId: '"_$J_"'. ERROR. Stock kon niet aangepast worden.")
 	 Quit:(Result'="") $LB(-1,Result)
  
 	 ;--- T01 MESSAGE OPBOUWEN --------------------------------------------------------------------------
@@ -1525,7 +1526,7 @@
 	 ;Set RCPKey=##class(BL.MB.UGLYPicking.ReceptieProductie).GetNewRCPKey(TLNr,TLUNr)
 	 Set ^aRecProdRecsToSend($J,TLNr,TLUNr,$$$akeySplitsNr)=$G(^aRecProdRecsToSend($J,TLNr,TLUNr,$$$akeySplitsNr),0)+1
 	 Set RCPKey=^aRecProdRecsToSend($J,TLNr,TLUNr,$$$akeySplitsNr)
-	 Do ..AddToLog($C(9)_"Buffertype '"_bfrRGID_"', VolgNr "_bfrVolgNr_", LijnNr "_bfrLijnNr_" is gekoppeld aan TLNr: "_TLNr_", TLUNr: "_TLUNr_", SplitsNr: "_RCPKey_".")
+	 Do ..AddToLog($C(9)_"JobId: '"_$J_"'. Buffertype '"_bfrRGID_"', VolgNr "_bfrVolgNr_", LijnNr "_bfrLijnNr_" is gekoppeld aan TLNr: "_TLNr_", TLUNr: "_TLUNr_", SplitsNr: "_RCPKey_".")
 
 	 New C
 	 Set C="T01"
@@ -1546,7 +1547,7 @@
 
 	 ;Records worden toegevoegd op einde van deze routine 
 
-	 Do ..AddToLog($C(9)_"Compleet...")
+	 Do ..AddToLog($C(9)_"JobId: '"_$J_"'. CRecord Compleet...")
 	 New Compleet
 	 If PTLine="" Do
 	 . ;overeenkomstige toeleveringslijn is verwijderd, slecht 1 vd opsplitsingen mag compleet geven...
@@ -1556,18 +1557,18 @@
 	 Do ..AddToEndOfLog($S(Compleet:"Ja",1:"Nee")_".")
 
 	 ;--- EIGEN ONDERHOUD (BUFFER/UPRCP("R")/...) -------------------------------------------------------
-	 Do ..AddToLog($C(9)_"Aanpassen buffer inhoud...")
+	 Do ..AddToLog($C(9)_"JobId: '"_$J_"'. Aanpassen buffer inhoud...")
 	 New ZeroPBLine,BufferLineIsDeleted
 	 Set ZeroPBLine=@arefPB@(ProductNr,BufKey,0)
 	 Do ##class(BL.MB.UGLYPicking.Receptie).DecBufferQtyDone(bfrRGID,bfrVolgNr,bfrLijnNr,QtyFromToelev,.BufferLineIsDeleted)
 	 If BufferLineIsDeleted Do
 	 . If ##class(BL.MB.UGLYPicking.Receptie).IsBufferEmpty(bfrRGID,bfrVolgNr) Do
 	 ..  Do ##class(BL.MB.UGLYPicking.Receptie).RemoveBuffer(bfrRGID,bfrVolgNr)
-	 ..  Do ..AddToEndOfLog("buffer verwijderd.")
+	 ..  Do ..AddToEndOfLog("JobId: '"_$J_"'. Buffer verwijderd.")
 	 . Else  Do
-	 ..  Do ..AddToEndOfLog("bufferlijn verwijderd.")
+	 ..  Do ..AddToEndOfLog("JobId: '"_$J_"'. Bufferlijn verwijderd.")
 	 Else  Do
-	 . Do ..AddToEndOfLog("Ok.")
+	 . Do ..AddToEndOfLog("JobId: '"_$J_"'. Ok. Buffer nog niet verwijderd.")
 
 	 ;Toevoegen van C-records die zoëven werden opgebouwd
 	 m ^aRecProdRecsToSend($J,TLNr,TLUNr,$$$akeyCRec,RCPKey)=C
@@ -1583,7 +1584,7 @@
 <ReturnType>%List</ReturnType>
 <Implementation><![CDATA[
 	 Do ..AddToLog("")
-	 Do ..AddToLog("Bezig met verwerken van synchronisatie-bericht(en)...")
+	 Do ..AddToLog("JobId: '"_$J_"'. Bezig met verwerken van synchronisatie-bericht(en)...")
 	 ; --- ^aRecProdRecsToSend doorlopen en compleet enkel '1' maken indien: ---
 	 ;  * ^aRecProdRecsToSend($J,TLNr,TLUNr,$$$akeyCRec,RCPKey,"COMPLEET") gelijk aan één is (dwz, de lijn is compleet gekoppeld of een backorder is afgezet)
 	 ;  * het moet gaan om de laatste regel, maw SplitsNr (of RCPKey) moet de laatste zijn
@@ -1607,7 +1608,7 @@
 	 ..  For  Set RCPKey=$O(^aRecProdRecsToSend($J,TLNr,TLUNr,$$$akeyCRec,RCPKey)) Quit:(RCPKey="")  Do
 	 ...   Set ^aRecProdRecsToSend($J,TLNr,TLUNr,$$$akeyCRec,RCPKey,"COMPLEET")=0  ;de rest is 'not complete' natuurlijk
 
-	 $$$WriteToLog("Voorbereiding C-recs voltooid...")
+	 $$$WriteToLog("JobId: '"_$J_"'. Voorbereiding C-recs voltooid...")
 
 	 ; --- C-Recs verwerken (zou in vorige lus kunnen komen) ---
 	 New C,ProcessErrorStr
@@ -1619,15 +1620,15 @@
 	 ..  For  Set RCPKey=$O(^aRecProdRecsToSend($J,TLNr,TLUNr,$$$akeyCRec,RCPKey)) Quit:((RCPKey="") || (ProcessErrorStr'=""))  Do
 	 ...   Kill C
 	 ...   m C=^aRecProdRecsToSend($J,TLNr,TLUNr,$$$akeyCRec,RCPKey)
-	 ...   $$$WriteToLog("Processing C-rec TLNr: "_TLNr_", TLUNr: "_TLUNr_", RCPKey:"_RCPKey_", Type: "_$G(C,"unknown"))
+	 ...   $$$WriteToLog("JobId: '"_$J_"'. Processing C-rec TLNr: "_TLNr_", TLUNr: "_TLUNr_", RCPKey:"_RCPKey_", Type: "_$G(C,"unknown"))
 	 ...   Set ProcessErrorStr=##class(BL.MB.UGLYPicking.General).ProcessCRec(.C)
 
 	 If ProcessErrorStr="" Do  
 	 . Kill ^aRecProdRecsToSend($J)
-	 . Do ..AddToEndOfLog("Ok.")
+	 . Do ..AddToEndOfLog("JobId: '"_$J_"'. Ok: CRec verwerkt")
 	 Else  Do  Quit $LB(-1,ProcessErrorStr)
 	 . $$$WriteToLogEx("Process error: "_ProcessErrorStr,$$$clRed)
-	 . Do ..AddToEndOfLog("ERROR.")
+	 . Do ..AddToEndOfLog("JobId: '"_$J_"'. ERROR: Fout bij het verwerken van CRec.")
 
 	 Quit $LB(1,"C-records succesvol verwerkt.")
 ]]></Implementation>
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
Index: APPS/MAG/Inventaris/impl/InventarisService.cls.xml
===================================================================
diff -u -r73263 -r73264
--- APPS/MAG/Inventaris/impl/InventarisService.cls.xml	(.../InventarisService.cls.xml)	(revision 73263)
+++ APPS/MAG/Inventaris/impl/InventarisService.cls.xml	(.../InventarisService.cls.xml)	(revision 73264)
@@ -914,8 +914,9 @@
 <FormalSpec>OriginelePalletID:%String,NieuwePalletID:%String</FormalSpec>
 <Implementation><![CDATA[
 	If (($Length(NieuwePalletID) '= 8) || ($Length(NieuwePalletID) '= 9)) {
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Nieuwe pallet ID moet 8 tekens lang zijn. Opgegeven PalletID:"_NieuwePalletID))
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Nieuwe pallet ID moet 8 of 9 tekens lang zijn. Opgegeven PalletID:"_NieuwePalletID))
 	}
+	Set NieuwePalletID = $Extract(NieuwePalletID, 1, 8)
 	If (..IsPalletGeregistreerdOpEenLocatie(NieuwePalletID)) {
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Nieuwe pallet '"_NieuwePalletID_"' bestaat al."))
 	}
@@ -982,12 +983,12 @@
 <FormalSpec>DragerID:%String</FormalSpec>
 <ReturnType>DOM.MAG.MagazijnLocatie</ReturnType>
 <Implementation><![CDATA[
-	If ($Length(DragerID) > 8) {
+	If ($Length(DragerID) > 9) {
 		Set ExceptionDragerIDIsTeLang = ##class(TECH.Exceptions.InvalidUserInputException).%New("Een drager mag maximum 8 tekens bevatten.")
 		Do ExceptionDragerIDIsTeLang.VoegToeExtraInfo("DragerID : "_DragerID)
 		Do ##class(TECH.ExceptionHandler).Throw(ExceptionDragerIDIsTeLang)
 	}
-	
+	Set DragerID = $Extract(DragerID, 1, 8)
 	#Dim Locatie As DOM.MAG.MagazijnLocatie = ##class(DOM.DomeinContext).Instance().GeefMagazijnAPI().GeefMagazijnLocatie("")
 	#Dim SQL As %String = "SELECT L.loc_m As M,L.loc_g As G,L.loc_x As X,L.loc_y As Y FROM EWMS.Locations L WHERE Loc_id = ? "
 	#Dim ResultSet As %ResultSet = $$ExecDynQuery^vhLib.Query(SQL,$listbuild(DragerID))
Index: BL/MB/UGLYPicking/Events/AutoReceptie.cls.xml
===================================================================
diff -u -r63302 -r73264
--- BL/MB/UGLYPicking/Events/AutoReceptie.cls.xml	(.../AutoReceptie.cls.xml)	(revision 63302)
+++ BL/MB/UGLYPicking/Events/AutoReceptie.cls.xml	(.../AutoReceptie.cls.xml)	(revision 73264)
@@ -24,6 +24,7 @@
 	
 	If ($LI(ResultSendCoupledInfo) = 1)
 	{
+		Do ##class(vhLib.Logger).%New("UglyPicking").Debug("KoppelEnStuurDoor","Buffer met Id '"_Event.Data.bfrRGID_"' en VolgNr '"_Event.Data.bfrVolgNr_"' volledig verwerkt.")
 		Set ^UPRCP("V",Event.Data.bfrRGID,Event.Data.bfrVolgNr) = 1
 		Do ..VerwijderProductGroep(Event)		
 	}Else{