Index: BL/Kenm/ProdMulti.cls.xml
===================================================================
diff -u -r29059 -r40054
--- BL/Kenm/ProdMulti.cls.xml	(.../ProdMulti.cls.xml)	(revision 29059)
+++ BL/Kenm/ProdMulti.cls.xml	(.../ProdMulti.cls.xml)	(revision 40054)
@@ -154,10 +154,41 @@
 	Set lbMulti=""
 	Set UnID=""
 	For  Set UnID=$O(^Prod.Ken.DataIndexD(Groep,$$$KenmMultiPRNr,PRNr,UnID)) Quit:(UnID="")  Set lbMulti=lbMulti_$LB(UnID)
+	
+	If $LL(lbMulti) > 10 {
+		Set lbMulti = ..HersorteerMultiplesItems(lbMulti)
+	}
+	
 	Quit lbMulti
 ]]></Implementation>
 </Method>
 
+<Method name="HersorteerMultiplesItems">
+<Description>
+Quick fix : door de volgorde correct te zetten, zal de consistencyCheck niet meer onterecht melding maken van "Mulitples met gaten".</Description>
+<FormalSpec>lbMulti:%List</FormalSpec>
+<Private>1</Private>
+<ReturnType>%List</ReturnType>
+<Implementation><![CDATA[
+	// Positie van het Item "...Punt x" in de ListBuild 
+	#define PosItemPt1    1
+	#define PosItemPt11   2
+	#define PosItemPt10   AantalItemsInLB
+	#define PosItemPt2    $$$PosItemPt10 - 8
+	
+	#dim AantalItemsInLB As %Integer = $LL(lbMulti)
+	
+	If (AantalItemsInLB > 10) && (AantalItemsInLB < 20) {
+		Set lbMulti = $LI(lbMulti,$$$PosItemPt1,$$$PosItemPt1)_$LI(lbMulti,$$$PosItemPt2,$$$PosItemPt10)_$LI(lbMulti,$$$PosItemPt11,$$$PosItemPt2-1)
+	}
+	Else {
+		// Algemeen algorithme te implementeren, indien dit OOIT nodig zou zijn  :-P 
+		// Ni dus ;-) 
+	}
+	Quit lbMulti
+]]></Implementation>
+</Method>
+
 <Method name="GetNewSubID">
 <Description>
 Returns the subID for a new multiple of PRNr </Description>