Index: BL/MB/UGLYPicking/Receptie.cls.xml
===================================================================
diff -u -r62469 -r62703
--- BL/MB/UGLYPicking/Receptie.cls.xml	(.../Receptie.cls.xml)	(revision 62469)
+++ BL/MB/UGLYPicking/Receptie.cls.xml	(.../Receptie.cls.xml)	(revision 62703)
@@ -2080,7 +2080,11 @@
 			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,,,,,)
 			} else {
-				Set Status = ..AddToBuffer(RGID,VolgNr,DnaCode.ProductNummer,DnaCode.LadeCode,DnaCode.Locatie,DnaCode.PalletCode,Initialen,,,,,)
+				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,,,,,)
+				} Else {
+					Set Status = ..AddToBuffer(RGID,VolgNr,DnaCode.ProductNummer,DnaCode.LadeCode,DnaCode.Locatie,DnaCode.PalletCode,Initialen,,,,,)
+				}
 			}
 			Set DnaCode.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBuffer()
 			Do ##class(DOM.Halux.AAP.DnaCodeRepository).%New().Bewaar(DnaCode)