Index: BL/PPS/TBX/DocsV1/ProboxBarcodeEtiketGenerator.cls.xml
===================================================================
diff -u -r68289 -r68296
--- BL/PPS/TBX/DocsV1/ProboxBarcodeEtiketGenerator.cls.xml	(.../ProboxBarcodeEtiketGenerator.cls.xml)	(revision 68289)
+++ BL/PPS/TBX/DocsV1/ProboxBarcodeEtiketGenerator.cls.xml	(.../ProboxBarcodeEtiketGenerator.cls.xml)	(revision 68296)
@@ -40,10 +40,16 @@
 	#dim DnaCode As DOM.Halux.AAP.DnaCode
  	#dim GesorteerdeDnaCodeIterator As TECH.ListIterator = ..GeefGesorteerdeDnaCodeIterator(DnaCodeIterator)
  	#dim HuidigeLijnRefEnLadeCodePrefix As %String = ""
+ 	#dim AantalLadesOpEtiket As %Integer = 0
+ 	#dim IsBarcodeLinks As %Boolean = $$$False
  	Set ProboxBarcodeLabelLijst = ##class(%ListOfDataTypes).%New()
 	While GesorteerdeDnaCodeIterator.HasNext() {
+		Set AantalLadesOpEtiket = AantalLadesOpEtiket + 1
+		Set IsBarcodeLinks = $$$Not(IsBarcodeLinks)
 		Set DnaCode = DnaCodeIterator.Next()
 		If $$$Not($ListBuild(DnaCode.LijnReferentie, ..GeefLadeCodePrefix(DnaCode)) = HuidigeLijnRefEnLadeCodePrefix) {
+			Do ProboxBarcodeLabelLijst.Insert(..GenereerProboxBarcodeEtiket(DnaCode, AantalLadesOpEtiket, IsBarcodeLinks, LabelDevice))
+			Set AantalLadesOpEtiket = 0
 		}
 	}
  	
@@ -52,17 +58,16 @@
 </Method>
 
 <Method name="GenereerProboxBarcodeEtiket">
-<FormalSpec>DnaCodeGroepIterator:TECH.ListIterator,IsBarcodeLinks:%Boolean,LabelDevice:%String</FormalSpec>
+<FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode,AantalLadesOpEtiket:%Integer,IsBarcodeLinks:%Boolean,LabelDevice:%String</FormalSpec>
+<Private>1</Private>
 <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.LijnReferentie = LijnReferentie
+	Set ProboxBarcodeLabel.LijnReferentie = DnaCode.LijnReferentie
 	
- 	Set ProboxBarcodeLabel.AantalLades = ..TelAantalDnaCodesInIterator(DnaCodeGroepIterator)
+ 	Set ProboxBarcodeLabel.AantalLades = AantalLadesOpEtiket
  	Set ProboxBarcodeLabel.IsBarcodeLinks = IsBarcodeLinks
  	
 	Quit ProboxBarcodeLabel