Index: BL/PPS/TBX/DocsV1/ProboxBarcodeEtiketGenerator.cls.xml
===================================================================
diff -u -r68273 -r68286
--- BL/PPS/TBX/DocsV1/ProboxBarcodeEtiketGenerator.cls.xml	(.../ProboxBarcodeEtiketGenerator.cls.xml)	(revision 68273)
+++ BL/PPS/TBX/DocsV1/ProboxBarcodeEtiketGenerator.cls.xml	(.../ProboxBarcodeEtiketGenerator.cls.xml)	(revision 68286)
@@ -36,27 +36,14 @@
 		Set Exception = ##class(TECH.Exceptions.InvalidInputException).%New("Geen Dna codes meegegeven.")
 		Do ##class(TECH.ExceptionHandler).Throw(Exception)
 	}
-	w !, "Start"
-	Set Groepeerder = ##class(zTryout.JLM.Groepeerder).%New()	// NIET VERGETEN TE VERANDEREN ZODAT GEEN zTryout
-	#dim DnaCode As DOM.Halux.AAP.DnaCode
 	
-	While DnaCodeIterator.HasNext()
-	{
+	#dim DnaCode As DOM.Halux.AAP.DnaCode
+ 	#dim GesorteerdeDnaCodeIterator As TECH.ListIterator = ..GeefGesorteerdeDnaCodeIterator(DnaCodeIterator)
+ 	#dim HuidigeLijnRefEnLadeCodePrefix As %String = ""
+ 	Set ProboxBarcodeLabelLijst = ##class(%ListOfDataTypes).%New()
+	While GesorteerdeDnaCodeIterator.HasNext() {
 		Set DnaCode = DnaCodeIterator.Next()
-		
-		Do Groepeerder.Groepeer(DnaCode, $ListBuild(DnaCode.LadeCode))
-	}
-	
-	Set ProboxBarcodeLabelLijst = ##class(%ListOfDataTypes).%New()
- 	#dim UniekeGroepParametersIterator As TECH.ListIterator = Groepeerder.GeefParametersIterator()
- 	#dim DnaCodeGroepIterator As TECH.ListIterator
- 	While UniekeGroepParametersIterator.HasNext()
-	{
-		Set DnaCodeGroepIterator = Groepeerder.GeefGroepIterator(UniekeGroepParametersIterator.Next())
-		If (DnaCodeGroepIterator.HasNext())
-		{
-			w !, "Nieuwe Groep"
-			Do ProboxBarcodeLabelLijst.Insert(..GenereerProboxBarcodeEtiket(DnaCodeGroepIterator, $$$True, LabelDevice))
+		If $$$Not($ListBuild(DnaCode.LijnReferentie, ..GeefLadeCodePrefix(DnaCode)) = HuidigeLijnRefEnLadeCodePrefix) {
 		}
 	}
  	
@@ -82,6 +69,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefGesorteerdeDnaCodeIterator">
+<FormalSpec>DnaCodeIterator:TECH.ListIterator</FormalSpec>
+<ReturnType>TECH.ListIterator</ReturnType>
+<Implementation><![CDATA[
+	#dim DnaCode As DOM.Halux.AAP.DnaCode
+ 	Set DnaCodeLijst = ##class(%ListOfDataTypes).%New()
+ 	
+ 	While DnaCodeIterator.HasNext() {
+	 	Set DnaCode = DnaCodeIterator.Next()
+	 	Set DnaCode.LijnReferentie = ..GeefLijnReferentie(DnaCode)
+	 	Do DnaCodeLijst.Insert(DnaCode)
+ 	}
+ 	
+ 	Set SorteerComparator = ##class(BL.PPS.TBX.DocsV1.ProboxBarcodeEtiketGenerator.Comparator.DnaCodeComparator).%New()
+ 	Quit ##class(TECH.ListIterator).%New(##class(TECH.Algo.Sort.MergeSort).Sort(DnaCodeLijst, SorteerComparator))
+]]></Implementation>
+</Method>
+
 <Method name="TelAantalDnaCodesInIterator">
 <FormalSpec>DnaCodeGroepIterator:TECH.ListIterator</FormalSpec>
 <Private>1</Private>
@@ -91,20 +96,28 @@
 	
 	#dim Aantal As %Integer = 0
 	#dim DnaCode As DOM.Halux.AAP.DnaCode
-	While DnaCodeGroepIterator.HasNext()
-	{
+	While DnaCodeGroepIterator.HasNext() {
 		Set DnaCode = DnaCodeGroepIterator.Next()
 		Set Aantal = Aantal + 1
 	}
 	Quit Aantal
 ]]></Implementation>
 </Method>
 
-<Method name="GeefOrderLijnRef">
-<FormalSpec>ProductNummer:%String,DnaCode:DOM.Halux.AAP.DnaCode</FormalSpec>
+<Method name="GeefLadeCodePrefix">
+<FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode</FormalSpec>
+<Private>1</Private>
 <ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $Extract(DnaCode.LadeCode, 1)
+]]></Implementation>
+</Method>
+
+<Method name="GeefLijnReferentie">
+<FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim Product As DOM.PM.Product = ..ProductApi.GeefProduct(ProductNummer)
+	#dim Product As DOM.PM.Product = ..ProductApi.GeefProduct(DnaCode.ProductNummer)
 	#dim ToeleveringId As %String = DnaCode.Toelevering
  	#dim LijnReferentie = ..ToeleveringService.GeefLijnReferentie(ToeleveringId, Product.GeefID())