Index: BL/PPS/TBX/DocsV1/ProboxBarcodeEtiketGenerator.cls.xml
===================================================================
diff -u -r68235 -r68273
--- BL/PPS/TBX/DocsV1/ProboxBarcodeEtiketGenerator.cls.xml	(.../ProboxBarcodeEtiketGenerator.cls.xml)	(revision 68235)
+++ BL/PPS/TBX/DocsV1/ProboxBarcodeEtiketGenerator.cls.xml	(.../ProboxBarcodeEtiketGenerator.cls.xml)	(revision 68273)
@@ -8,62 +8,109 @@
 <Private>1</Private>
 </Property>
 
-<Property name="LijnReferentieBepaler">
-<Type>BL.PPS.TBX.DocsV1.HtmlInhoudProboxEtiketBepaler.LijnReferentieBepaler</Type>
+<Property name="ToeleveringService">
+<Type>DOM.AKP.impl.ToeleveringService</Type>
 <Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>ProductApi:DOM.PM.impl.ProductAPI="",LijnReferentieBepaler:BL.PPS.TBX.DocsV1.HtmlInhoudProboxEtiketBepaler.LijnReferentieBepaler=""</FormalSpec>
+<FormalSpec>ProductApi:DOM.PM.impl.ProductAPI="",ToeleveringService:DOM.AKP.impl.ToeleveringService=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..ProductApi = $$$Inject(ProductApi,##class(DOM.PM.impl.ProductAPI).%New())
-	Set ..LijnReferentieBepaler = $$$Inject(LijnReferentieBepaler, ##class(BL.PPS.TBX.DocsV1.HtmlInhoudProboxEtiketBepaler.LijnReferentieBepaler).%New())
+	Set ..ToeleveringService = $$$Inject(ToeleveringService, ##class(DOM.AKP.impl.ToeleveringService).%New())
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
-<Method name="GenereerProboxBarcodeEtiket">
+<Method name="GenereerProboxBarcodeEtiketIterator">
 <FormalSpec>DnaCodeIterator:TECH.Iterator,LabelDevice:%String</FormalSpec>
-<ReturnType>BL.Etiket.ProboxInhoud</ReturnType>
+<ReturnType>TECH.ListIterator</ReturnType>
 <Implementation><![CDATA[
 	If ($$$Not(DnaCodeIterator.HasNext())) 
 	{
 		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()
+	{
+		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))
+		}
+	}
+ 	
+	Quit ##class(TECH.ListIterator).%New(ProboxBarcodeLabelLijst)
+]]></Implementation>
+</Method>
+
+<Method name="GenereerProboxBarcodeEtiket">
+<FormalSpec>DnaCodeGroepIterator:TECH.ListIterator,IsBarcodeLinks:%Boolean,LabelDevice:%String</FormalSpec>
+<ReturnType>BL.Etiket.ProboxInhoud</ReturnType>
+<Implementation><![CDATA[
+	#dim DnaCode As DOM.Halux.AAP.DnaCode = DnaCodeGroepIterator.Next()
+	
 	Set ProboxBarcodeLabel = ##class(BL.Etiket.ProboxBarcode).%New()
 	Set ProboxBarcodeLabel.Device = LabelDevice
- 	Set ProboxBarcodeLabel.Aantal = 1
- 	Set ProboxBarcodeLabel.AantalLades = ..TelAantalLadesVoorLijnReferentie(DnaCodeIterator)
- 	Set ProboxBarcodeLabel.IsBarcodeLinks = $$$True
+	Set ProboxBarcodeLabel.Aantal = 1
+	//Set ProboxBarcodeLabel.LijnReferentie = LijnReferentie
+
+ 	Set ProboxBarcodeLabel.AantalLades = ..TelAantalDnaCodesInIterator(DnaCodeGroepIterator)
+ 	Set ProboxBarcodeLabel.IsBarcodeLinks = IsBarcodeLinks
  	
 	Quit ProboxBarcodeLabel
 ]]></Implementation>
 </Method>
 
+<Method name="TelAantalDnaCodesInIterator">
+<FormalSpec>DnaCodeGroepIterator:TECH.ListIterator</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	Do DnaCodeGroepIterator.Reset()
+	
+	#dim Aantal As %Integer = 0
+	#dim DnaCode As DOM.Halux.AAP.DnaCode
+	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>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim Product As DOM.PM.Product = ..ProductApi.GeefProduct(ProductNummer)
 	#dim ToeleveringId As %String = DnaCode.Toelevering
- 	#dim LijnReferentie = ..LijnReferentieBepaler.ZoekLijnReferentie(ToeleveringId, Product.GeefID())
+ 	#dim LijnReferentie = ..ToeleveringService.GeefLijnReferentie(ToeleveringId, Product.GeefID())
  	
  	Quit LijnReferentie
 ]]></Implementation>
 </Method>
-
-<Method name="TelAantalLadesVoorLijnReferentie">
-<FormalSpec>DnaCodeIterator:TECH.Iterator</FormalSpec>
-<ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[	Quit 1
-]]></Implementation>
-</Method>
 </Class>