Index: vhDeploy/Deploy20161020xUpdatePasDocMattenlijst.cls.xml
===================================================================
diff -u -r58532 -r59408
--- vhDeploy/Deploy20161020xUpdatePasDocMattenlijst.cls.xml	(.../Deploy20161020xUpdatePasDocMattenlijst.cls.xml)	(revision 58532)
+++ vhDeploy/Deploy20161020xUpdatePasDocMattenlijst.cls.xml	(.../Deploy20161020xUpdatePasDocMattenlijst.cls.xml)	(revision 59408)
@@ -19,10 +19,10 @@
 	kill ^RES("TECHDOCGEN","LK","GekoppeldeIK_MattenLijst")
 	
 	set ^RES("TECHDOCGEN","LD","GekoppeldeIK_MattenLijst")="GekoppeldeIK_MattenLijst`58225,34557```5;1;24`92`P``BU`1`1"
-	set ^RES("TECHDOCGEN","LD","GekoppeldeIK_MattenLijst","HO",1)="T`I`Toe:Dos  | #  | Mat                    | D    | B    |      ink D | ink B |"
+	set ^RES("TECHDOCGEN","LD","GekoppeldeIK_MattenLijst","HO",1)="T`I`Toelev   | #  | Mat                    | D    | B    |      ink D | ink B |"
 	set ^RES("TECHDOCGEN","LD","GekoppeldeIK_MattenLijst","L",1)="TECHDOCGEN`GekoppeldeIK_MattenLijst"
 	set ^RES("TECHDOCGEN","LK","GekoppeldeIK_MattenLijst")="GekoppeldeIK_MattenLijst`58225,34557"
-	set ^RES("TECHDOCGEN","LK","GekoppeldeIK_MattenLijst",1)="Toe:Dos `Toe:Dos `1`C`L`9``|```"
+	set ^RES("TECHDOCGEN","LK","GekoppeldeIK_MattenLijst",1)="Toelev  `Toelev  `1`C`L`9``|```"
     set ^RES("TECHDOCGEN","LK","GekoppeldeIK_MattenLijst",2)="# `# `2`C`R`3`` |```"
     set ^RES("TECHDOCGEN","LK","GekoppeldeIK_MattenLijst",3)="Mat      `Mat      `3`C`L`23`` |```"
     set ^RES("TECHDOCGEN","LK","GekoppeldeIK_MattenLijst",4)="D   `D   `4`C`R`5`` |```"
Index: BL/PPS/TBX/DocsV1.cls.xml
===================================================================
diff -u -r59011 -r59408
--- BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 59011)
+++ BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 59408)
@@ -238,7 +238,6 @@
 		do DocsCommon.ZetPrinter("S")
 		do ..ZetPrinter("S")
 	}
-	
 	Set Opties=$G(Opties,"ELZOFKMRT")
 	Set:Opties["Z" QtyTot=..ZaagLijst()
 	Do:Opties["O" ..OnderdelenLijst()
@@ -1170,12 +1169,43 @@
 	. Set UitvoeringInfo = ..MatOneUitvoeringInfo(oQ)
 	. If $IsObject(UitvoeringInfo) Do UitvoeringInfoLijst.Insert(UitvoeringInfo)
 	. Set MatCnt=MatCnt+oQ.TotaalAantal
+	
+	Set SamengesteldeLijst = ##class(APPS.Halux.PPS.dto.UitvoeringInfoLijst).%New()
+	#dim SamengesteldeLijstIterator AS TECH.ListIterator = ##class(TECH.ListIterator).%New(SamengesteldeLijst)
+		
+	#dim UitvoeringLijstIterator AS TECH.ListIterator = ##class(TECH.ListIterator).%New(UitvoeringInfoLijst)
+	while UitvoeringLijstIterator.HasNext() {		
+		#dim Mat = UitvoeringLijstIterator.Next()			
+		#dim OvereenkomstigeMatGevonden As %Boolean = $$$False
+		
+		while (SamengesteldeLijstIterator.HasNext() & $$$Not(OvereenkomstigeMatGevonden)){
+			
+			#dim Mat2 = SamengesteldeLijstIterator.Next()
+			
+			If ((Mat.ToeDos = Mat2.ToeDos) &&(Mat.Diepte = Mat2.Diepte) && (Mat.Breedte = Mat2.Breedte) && (Mat.MateriaalId = Mat2.MateriaalId) && (Mat.KleurId = Mat2.KleurId) && (Mat.BewerkingBreedte = Mat2.BewerkingBreedte)){
+				Set OvereenkomstigeMatGevonden = $$$True
+				Set Mat2.Aantal= Mat2.Aantal+Mat.Aantal
+				}
+		}
+		
+		if ($$$Not(OvereenkomstigeMatGevonden) & $$$Not(SamengesteldeLijst.Count()=0)){
+			Do SamengesteldeLijst.Insert(Mat)
+		}		
+		if (SamengesteldeLijst.Count()=0){
+			Do SamengesteldeLijst.Insert(Mat)
+		}
+		
+		Do SamengesteldeLijstIterator.Reset()
+	
+	}
 
+
 	set ActiviteitParameters = ##class(APPS.Halux.PPS.Activiteit.ActiviteitParameters).%New()
 	set ActiviteitParameters.Printer = ..Printer
-
+	
+	
 	set Afdrukker = ##class(APPS.Halux.PPS.Document.impl.GekoppeldeIK.Matten).%New()
-	do:UitvoeringInfoLijst.Count() Afdrukker.VerwerkUitvoeringInfoLijst(UitvoeringInfoLijst,ActiviteitParameters)
+	do:UitvoeringInfoLijst.Count() Afdrukker.VerwerkUitvoeringInfoLijst(SamengesteldeLijst,ActiviteitParameters)
 	Quit MatCnt
 ]]></Implementation>
 </Method>
@@ -1218,11 +1248,12 @@
 	
 	Set $E(Opmerking,1,2)=""
 	
+
 	set MattenUitvoeringInfo = ##class(APPS.Halux.PPS.Activiteit.impl.common.dto.MattenUitvoeringInfo).%New() 
 	set MattenUitvoeringInfo.BatchID = ..BatchID
 	set MattenUitvoeringInfo.ProductID = TBXQueue.ProductGetObjectId()
 	set MattenUitvoeringInfo.ToeleveringID = TBXQueue.TOENr
-	set MattenUitvoeringInfo.ToeDos = $extract(TBXQueue.TOENr,4,6)_":"_TBXQueue.DOSNr
+	set MattenUitvoeringInfo.ToeDos = $extract(TBXQueue.TOENr,3,6)
 	set MattenUitvoeringInfo.Aantal = TBXQueue.TotaalAantal
 	
 	set MattenUitvoeringInfo.Breedte = ..ProductAPI.GeefProductKenmerkDataDefinitie("MAT_SEL_Mat", KPRNr, "Breedte")
@@ -1232,7 +1263,6 @@
 	set MattenUitvoeringInfo.BewerkingDiepte = LD-27
 	set MattenUitvoeringInfo.MateriaalId = ..TBXMatToEnuMatConverter.GeefMateriaal($LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",KPRNr,"Kleur")))
 	set MattenUitvoeringInfo.KleurId = ..TBXMatToEnuMatConverter.GeefKleur($LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",KPRNr,"Kleur")))
- 	
  	quit MattenUitvoeringInfo
 ]]></Implementation>
 </Method>
Index: APPS/Halux/PPS/DocumentDefinitie/GekoppeldeIK/MattenLijst.cls.xml
===================================================================
diff -u -r58532 -r59408
--- APPS/Halux/PPS/DocumentDefinitie/GekoppeldeIK/MattenLijst.cls.xml	(.../MattenLijst.cls.xml)	(revision 58532)
+++ APPS/Halux/PPS/DocumentDefinitie/GekoppeldeIK/MattenLijst.cls.xml	(.../MattenLijst.cls.xml)	(revision 59408)
@@ -15,7 +15,7 @@
 <Method name="DefinieerKolomDefinities">
 <Private>1</Private>
 <Implementation><![CDATA[
-	do ..KolomDefinities.Insert(##class(APPS.common.Print.Kolommen.KolomDefinitie).%New("Toe:Dos"   , 9, ..TekstTypeString,..TekstUitlijningLinks))
+	do ..KolomDefinities.Insert(##class(APPS.common.Print.Kolommen.KolomDefinitie).%New("Toelev"   , 9, ..TekstTypeString,..TekstUitlijningLinks))
 	do ..KolomDefinities.Insert(##class(APPS.common.Print.Kolommen.KolomDefinitie).%New("# "        ,  , ..TekstTypeString,..TekstUitlijningRechts))
 	do ..KolomDefinities.Insert(##class(APPS.common.Print.Kolommen.KolomDefinitie).%New("Mat"       ,23, ..TekstTypeString,..TekstUitlijningLinks))
 	do ..KolomDefinities.Insert(##class(APPS.common.Print.Kolommen.KolomDefinitie).%New("D"         , 5, ..TekstTypeString,..TekstUitlijningRechts))