Index: vhTest/Mock/DOM/Halux/AAP/DnaCodeRepository.cls.xml
===================================================================
diff -u -r73618 -r74733
--- vhTest/Mock/DOM/Halux/AAP/DnaCodeRepository.cls.xml	(.../DnaCodeRepository.cls.xml)	(revision 73618)
+++ vhTest/Mock/DOM/Halux/AAP/DnaCodeRepository.cls.xml	(.../DnaCodeRepository.cls.xml)	(revision 74733)
@@ -42,6 +42,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsIngekortePalletCodeVanABPallet">
+<FormalSpec>PalletCode:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("IsIngekortePalletCodeVanABPallet",PalletCode)
+]]></Implementation>
+</Method>
+
 <Method name="Maak">
 <ReturnType>TECH.Persistent</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("Maak")
Index: BL/MB/UGLYPicking/ReceptieProductie.cls.xml
===================================================================
diff -u -r73264 -r74733
--- BL/MB/UGLYPicking/ReceptieProductie.cls.xml	(.../ReceptieProductie.cls.xml)	(revision 73264)
+++ BL/MB/UGLYPicking/ReceptieProductie.cls.xml	(.../ReceptieProductie.cls.xml)	(revision 74733)
@@ -1493,6 +1493,10 @@
 	 . ;(dit gebeurt door de laatste parameter op 1 in te stellen). Wanneer dit is gebeurd, dan zal
 	 . ;het toch een 'nieuwe' pallet worden, in tegenstelling tot wat de variabele eerst bevatte (anders
 	 . ;waren we nooit in deze 'else' lus beland)
+	 . Set DnaCodeRepository = ##class(DOM.Halux.AAP.DnaCodeRepository).%New()
+	 . If DnaCodeRepository.IsIngekortePalletCodeVanABPallet(PalletID) Do
+	 . . Set lbLocation = ##class(BL.MB.UGLYPicking.General).GetLocationViaLocID(PalletID)
+	 . Kill DnaCodeRepository
 	 . Set Result=##class(BL.MB.UGLYPicking.General).CompleteLocationViaPalletID(.lbLocation,PalletID,.IsNewPallet,1)
 	 . Do:(IsNewPallet) ..AddToEndOfLog("verwijderen (consolidatie): ")
 	 If Result="" Do
Index: DOM/Halux/AAP/DnaCodeRepository.cls.xml
===================================================================
diff -u -r73618 -r74733
--- DOM/Halux/AAP/DnaCodeRepository.cls.xml	(.../DnaCodeRepository.cls.xml)	(revision 73618)
+++ DOM/Halux/AAP/DnaCodeRepository.cls.xml	(.../DnaCodeRepository.cls.xml)	(revision 74733)
@@ -240,6 +240,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsIngekortePalletCodeVanABPallet">
+<FormalSpec>PalletCode:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#Dim PalletCodeIterator As TECH.Iterator = ..ZoekViaPalletCodeEnRecent(PalletCode)
+	Quit:$$$Not(PalletCodeIterator.HasNext()) $$$False
+	
+	#Dim VolledigePalletCode = PalletCodeIterator.Next()
+	Quit ..IsABPalletCode(VolledigePalletCode)
+]]></Implementation>
+</Method>
+
 <Method name="IsABPalletCode">
 <FormalSpec>PalletCode:%String</FormalSpec>
 <Private>1</Private>
Index: vhTest/Fake/DOM/Halux/AAP/DnaCodeRepository.cls.xml
===================================================================
diff -u -r73618 -r74733
--- vhTest/Fake/DOM/Halux/AAP/DnaCodeRepository.cls.xml	(.../DnaCodeRepository.cls.xml)	(revision 73618)
+++ vhTest/Fake/DOM/Halux/AAP/DnaCodeRepository.cls.xml	(.../DnaCodeRepository.cls.xml)	(revision 74733)
@@ -19,6 +19,13 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="IsIngekortePalletCodeVanABPallet">
+<FormalSpec>PalletCode:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
 <Method name="ZoekViaToeleveringEnSequentienummer">
 <FormalSpec>BatchId:%String,Sequentienummer:%String</FormalSpec>
 <ReturnType>TECH.Iterator</ReturnType>