Index: BL/Flow/Proxy/pxLevering.cls.xml
===================================================================
diff -u -r73114 -r73297
--- BL/Flow/Proxy/pxLevering.cls.xml	(.../pxLevering.cls.xml)	(revision 73114)
+++ BL/Flow/Proxy/pxLevering.cls.xml	(.../pxLevering.cls.xml)	(revision 73297)
@@ -645,6 +645,7 @@
 	#dim lbDragerIDs As %List = $G(Lookup(ORDNr,PRNr))
 	
 	If $LL(lbDragerIDs) {
+		Set lbDragerIDs = ..VerwijderDubbelePalletCodes(lbDragerIDs)
 		Set DragerTypeBepaler = ##class(DOM.PM.impl.DragerTypeBepaler).%New()
 		#dim DragerType As DOM.PM.enu.DragerType = DragerTypeBepaler.BepaalDragerType($ListGet(lbDragerIDs))
 		
@@ -954,5 +955,17 @@
 	Quit OorsprongKetting
 ]]></Implementation>
 </Method>
+
+<Method name="VerwijderDubbelePalletCodes">
+<FormalSpec>lbDragerIDs:%ListOfDataTypes</FormalSpec>
+<Private>1</Private>
+<ReturnType>%List</ReturnType>
+<Implementation><![CDATA[
+	#dim PalletCodesLijst = ##class(TECH.ListUtils).ListbuildToList(lbDragerIDs)
+	#dim PalletCodeLijstZonderDubbels = ##class(TECH.ListUtils).RemoveDuplicateItems(PalletCodesLijst)
+	
+	Quit ##class(TECH.ListUtils).ListToListbuild(PalletCodeLijstZonderDubbels)
+]]></Implementation>
+</Method>
 </Class>
 </Export>