Index: BL/PPS/TBX/DocsV1.cls.xml
===================================================================
diff -u -r36632 -r37276
--- BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 36632)
+++ BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 37276)
@@ -1034,40 +1034,84 @@
 <FormalSpec>BatchID:%String,BatchList:%CacheString</FormalSpec>
 <Implementation><![CDATA[
 	; Sorteren
-	Set Label="M"
+	#dim Label As %String ="M"
 	#dim rs As TECH.ResultSet = ..ProductieSequentieRepository.GeefSequentieDataVolgensSequenceVoorBatch(..BatchID)
-	Set (Count,MatCnt)=0
+	#dim Count,MatCnt As %Integer = 0
+	#dim oQ As DS.PPS.TBX.Queue
+	
+	Set UitvoeringInfoLijst = ##class(APPS.Halux.PPS.dto.UitvoeringInfoLijst).%New()
+	
+	#dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.common.dto.MattenUitvoeringInfo
 	For  Quit:'rs.Next()  Do
-	. Set oQ=..ProductieSequentieRepository.GeefSequentieItem(rs.Data("ID"))
+	. set oQ=..ProductieSequentieRepository.GeefSequentieItem(rs.Data("ID"))
 	. Quit:oQ.Status="PB" ; sequencelijnen met status "PB" worden overgeslagen
 	. Quit:'..MatChk(oQ)
-	. Set Rec=..MatOne(..BldBasisFromQueue(oQ))
-	. Set:$L(Rec) ^HULP(..%J,Label,$I(Count))=Rec
+	. Set UitvoeringInfo = ..MatOneUitvoeringInfo(oQ)
+	. If $IsObject(UitvoeringInfo) Do UitvoeringInfoLijst.Insert(UitvoeringInfo)
 	. Set MatCnt=MatCnt+oQ.TotaalAantal
 
-	; Output
-	; Basis + 10:KleurMat, 11:LadeDiepte, 12:Lengte, 13:TussenLengte, 14:Opmerking
-	Quit:'$D(^HULP(..%J,Label)) 0
-	Set Hoofding = "TBX MAT\Lijn:"_..Batch.GeefLijn()_"  Batch:"_..BatchID
-	if (..Batch.GeefProductieGroep() = ##class(APPS.Halux.common.enu.ProductieGroep).Probox()) {
-		Set Hoofding = Hoofding _ " (PROBOX)"
-	} ElseIf (..Batch.GeefProductieGroep() = ##class(APPS.Halux.common.enu.ProductieGroep).Kast()) {
-		Set Hoofding = Hoofding _ " (VHOSS)"
-	}
-	Do INIT^vhLISTO("HATBXLEAN","MAT",.PLD)
-	Set PLD("HALUX")=""
-	Set PLD(5)=70
-	Set PLD(1)=$NA(^HULP(..%J,Label))
-	Set PLD(10)="Class("_..%ClassName(1)_").MatCB"
-	Set PLD(11)= Hoofding
-	Set (%MemTOENr,%MemDossier)=""
-	if $length(..Printer) set Optie("AUTOSEL")= ..Printer
-	Do PRINT^OUTPUT(.PLD,"P","S","BL",.Optie)
-	Kill %MemDossier,%MemTOENr
+	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)
 	Quit MatCnt
 ]]></Implementation>
 </Method>
 
+<Method name="MatOneUitvoeringInfo">
+<FormalSpec>TBXQueue:DS.PPS.TBX.Queue</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.Halux.PPS.Activiteit.impl.common.dto.MattenUitvoeringInfo</ReturnType>
+<Implementation><![CDATA[
+	#dim PRNr As %String = TBXQueue.ProductGetObjectId()
+	#dim ASM As %String = $S($LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"NMASM")):"",1:$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"ASM"))) ; Antislipmat
+	quit:0[ASM ""
+
+	#dim Dim,IsSR,KLAS,KPRNr,LD,MatOpties,Opmerking,Rec,Type As %CacheString
+	
+	Set KPRNr=$P($G(^PRBS("BS",PRNr,"PRASM.001")),"\",1)
+	If KPRNr Do
+	. Set Dim=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",KPRNr,"BreedteIntern"))-85
+	. Set Opmerking=", "_$$$ProductGet(KPRNr,$$$KortTekst)
+	Else  Do ;Strook
+	. Set KPRNr=$P($G(^PRBS("BS",PRNr,"PRASMSTRK.001")),"\",1)
+	. If KPRNr Do
+	. . Set Dim=$P($G(^PRBS("BS",PRNr,"PRASMSTRK.001","D")),"\")
+	. . Set Opmerking=", "_$$$ProductGet(KPRNr,$$$KortTekst)
+	. Else  Do ; Rol
+	. . Set KPRNr=$P($G(^PRBS("BS",PRNr,"PRASMROL.001")),"\",1)
+	. . If KPRNr  Do
+	. . . Set Dim=$P($G(^PRBS("BS",PRNr,"PRASMROL.001","D")),"\")
+	. . . Set Opmerking=""
+	
+	Set LD=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"LD")) ; Ladediepte
+	
+	Set IsSR=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"IsSR")) ; Stalenrug
+	Set KLAS=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"KLAS")) ; Klasse (Spoelbak, Lade, ...)
+	
+	Set MatOpties = $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",KPRNr,"Opties")) ; Mat opties
+	Set Type=$S(MatOpties["AGO":"AGO",1:"")
+
+	Set:IsSR Opmerking=Opmerking_", "_"Staalrug"
+	
+	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.Aantal = TBXQueue.TotaalAantal
+	set MattenUitvoeringInfo.Diepte = LD
+	set MattenUitvoeringInfo.BewerkingBreedte = Dim
+	set MattenUitvoeringInfo.BewerkingDiepte = LD-27
+	set MattenUitvoeringInfo.MateriaalId = MatOpties
+	set MattenUitvoeringInfo.KleurId = ASM
+ 	quit MattenUitvoeringInfo
+]]></Implementation>
+</Method>
+
 <Method name="MatOne">
 <FormalSpec>Basis:%String</FormalSpec>
 <Implementation><![CDATA[
FishEye: Tag 37276 refers to a dead (removed) revision in file `vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Tandembox.Aansturing/Test002/StartBatch/Productie_017_prn.txt'.
FishEye: No comparison available.  Pass `N' to diff?
Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Tandembox.Aansturing/Test002/StartBatch/Productie_017_prn.txt
===================================================================
diff -u -r34360 -r37276
--- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Tandembox.Aansturing/Test002/StartBatch/Productie_017_prn.txt	(.../Productie_017_prn.txt)	(revision 34360)
+++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Tandembox.Aansturing/Test002/StartBatch/Productie_017_prn.txt	(.../Productie_017_GekoppeldeIK_MattenLijst.txt)	(revision 37276)
@@ -1,23 +1,17 @@
 
-    HALUX N.V.                             
-                                                                  Blz:   1
-    EUROPARK-NOORD 7                TBX MAT
-                                                                  15-11-14
-    B-9100 SINT-NIKLAAS      Lijn:1  Batch:15000 (PROBOX)
-                                                                     09:15
+    HALUX N.V.                                                  Blz:   1
+    EUROPARK-NOORD 7         TBX Mattenlijst (PROBOX) X         15-11-14
+    B-9100 SINT-NIKLAAS          Lijn:1 Batch:15000                09:15
 
-    ---------|----|-------|------|----------|-----|-----------------------
-    Toe:Dos  |Qty | Kleur |Diepte| Breedte  | Type| Opmerking             
-    ---------|----|-------|------|----------|-----|-----------------------
-    221:HMJ2 |  2 | Zwart |  473 |    360,0 | AGO | MAT.A50X.15ANTI-SLIP
-    ---------|----|-------|------|----------|-----|-----------------------
-    222:HMJ4 |  2 | Zwart |  473 |    360,0 | AGO | MAT.A50X.15ANTI-SLIP
-             |    |       |      |          |     |                       
-    222:HMJ3 |  2 | Zwart |  473 |    360,0 | AGO | MAT.A50X.15ANTI-SLIP
-             |    |       |      |          |     |                       
-    222:HMJ5 |  1 | Zwart |  423 |    515,0 | AGO | MAT.A45X.15ANTI-SLIP
-             |    |       |      |          |     |                       
-    222:OSA9 |  1 | Grijs |  323 |    984,0 | AGO | MAT.A35X.15ANTI-SLIP
-    ---------|----|-------|------|----------|-----|-----------------------
+    ---------|----|------------------------|------|------|------------|-------|
+    Toe:Dos  | #  | Mat                    | D    | B    |      ink D | ink B |
+    ---------|----|------------------------|------|------|------------|-------|
+    221:HMJ2 |  2 |Z AGO                   |  500 |      |        473 |   360 |
+             |    |                        |      |      |            |       |
+    222:HMJ4 |  2 |Z AGO                   |  500 |      |        473 |   360 |
+    222:HMJ3 |  2 |Z AGO                   |  500 |      |        473 |   360 |
+    222:HMJ5 |  1 |Z AGO                   |  450 |      |        423 |   515 |
+    222:OSA9 |  1 |G AGO                   |  350 |      |        323 |   984 |
+    ---------|----|------------------------|------|------|------------|-------|
 
 
\ No newline at end of file
Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Tandembox.Aansturing/Test004MultiVhoss/StartBatch/Productie_012_prn.txt
===================================================================
diff -u -r29059 -r37276
--- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Tandembox.Aansturing/Test004MultiVhoss/StartBatch/Productie_012_prn.txt	(.../Productie_012_prn.txt)	(revision 29059)
+++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Tandembox.Aansturing/Test004MultiVhoss/StartBatch/Productie_012_prn.txt	(.../Productie_012_GekoppeldeIK_MattenLijst.txt)	(revision 37276)
@@ -1,15 +1,12 @@
 
-    HALUX N.V.                             
-                                                                  Blz:   1
-    EUROPARK-NOORD 7                TBX MAT
-                                                                  15-11-14
-    B-9100 SINT-NIKLAAS      Lijn:1  Batch:15000 (VHOSS)
-                                                                     09:15
+    HALUX N.V.                                                  Blz:   1
+    EUROPARK-NOORD 7         TBX Mattenlijst (VHOSS) A          15-11-14
+    B-9100 SINT-NIKLAAS          Lijn:1 Batch:15000                09:15
 
-    ---------|----|-------|------|----------|-----|-----------------------
-    Toe:Dos  |Qty | Kleur |Diepte| Breedte  | Type| Opmerking             
-    ---------|----|-------|------|----------|-----|-----------------------
-    222:IZ3L |  2 | Zwart |  243 |    325,0 | AGO | MAT.A27X.15ANTI-SLIP
-    ---------|----|-------|------|----------|-----|-----------------------
+    ---------|----|------------------------|------|------|------------|-------|
+    Toe:Dos  | #  | Mat                    | D    | B    |      ink D | ink B |
+    ---------|----|------------------------|------|------|------------|-------|
+    222:IZ3L |  2 |Z AGO                   |  270 |      |        243 |   325 |
+    ---------|----|------------------------|------|------|------------|-------|
 
 
\ No newline at end of file
FishEye: Tag 37276 refers to a dead (removed) revision in file `vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Tandembox.Aansturing/Test004MultiVhoss/StartBatch/Productie_012_prn.txt'.
FishEye: No comparison available.  Pass `N' to diff?