Index: BL/PPS/TBX/DocsV1.cls.xml
===================================================================
diff -u -r72998 -r73243
--- BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 72998)
+++ BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 73243)
@@ -1924,7 +1924,7 @@
 
 <Method name="FormatteerPalletID">
 <FormalSpec>PalletID:%String</FormalSpec>
-<Implementation><![CDATA[	quit $extract(PalletID,1,4)_" "_$extract(PalletID,5,8) ; formatering "AAAA AAAA"
+<Implementation><![CDATA[	quit $extract(PalletID,1,4)_" "_$extract(PalletID,5,9) ; formatering "AAAA AAAA"
 ]]></Implementation>
 </Method>
 
Index: BL/MB/UGLYPicking/Receptie.cls.xml
===================================================================
diff -u -r63643 -r73243
--- BL/MB/UGLYPicking/Receptie.cls.xml	(.../Receptie.cls.xml)	(revision 63643)
+++ BL/MB/UGLYPicking/Receptie.cls.xml	(.../Receptie.cls.xml)	(revision 73243)
@@ -2078,13 +2078,15 @@
 		Set DnaCode = DnaCodeIterator.Next()
 		If DnaCode.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).Gescand() {
 			If ##class(TECH.StringUtils).StartsWith(DnaCode.DnaCode,"K") {
-				Set Status = ..AddToBuffer(RGID,VolgNr,DnaCode.ProductNummer,DnaCode.LadeCode,DnaCode.Locatie,..GetPalletFromDossier(##class(TECH.StringUtils).VerwijderKarakterUitString(DnaCode.LadeCode,".")),Initialen,,,,,DnaCode.Toelevering)
+				Set PalletId = $Extract(..GetPalletFromDossier(##class(TECH.StringUtils).VerwijderKarakterUitString(DnaCode.LadeCode,".")), 1, 8)
+				Set Status = ..AddToBuffer(RGID,VolgNr,DnaCode.ProductNummer,DnaCode.LadeCode,DnaCode.Locatie,PalletId,Initialen,,,,,DnaCode.Toelevering)
 			} else {
 				If ##class(APPS.VisiDot.impl.Tech).IsFrameID(DnaCode.PalletCode) {
 					Set Status = ..AddToBuffer(RGID,VolgNr,DnaCode.ProductNummer,DnaCode.LadeCode,DnaCode.Locatie,##class(APPS.VisiDot.impl.Tech).GeefVHossIdVanFrameId(DnaCode.PalletCode),Initialen,,,,,DnaCode.Toelevering)
 				} Else {
 					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 Status = ..AddToBuffer(RGID,VolgNr,DnaCode.ProductNummer,DnaCode.LadeCode,DnaCode.Locatie,DnaCode.PalletCode,Initialen,,,,,DnaCode.Toelevering)
+						Set PalletId = $Extract(DnaCode.PalletCode,1,8)
+						Set Status = ..AddToBuffer(RGID,VolgNr,DnaCode.ProductNummer,DnaCode.LadeCode,DnaCode.Locatie,PalletId,Initialen,,,,,DnaCode.Toelevering)
 					}
 				}
 			}