Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Tandembox.Aansturing/Test020LadeMetDwarsverdeling/ResetBatch/Productie_007_Dwarsverdelinglijst.txt
===================================================================
diff -u -r67995 -r70955
--- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Tandembox.Aansturing/Test020LadeMetDwarsverdeling/ResetBatch/Productie_007_Dwarsverdelinglijst.txt	(.../Productie_007_Dwarsverdelinglijst.txt)	(revision 67995)
+++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Tandembox.Aansturing/Test020LadeMetDwarsverdeling/ResetBatch/Productie_007_Dwarsverdelinglijst.txt	(.../Productie_007_Dwarsverdelinglijst.txt)	(revision 70955)
@@ -9,13 +9,19 @@
     ---------|----|----|--------|-------|---|--------|-------------------------
     Toe:Dos  | #  | Kl | Lengte | Var.  | ^ | Type   | Korttekst               
     ---------|----|----|--------|-------|---|--------|-------------------------
-    222:A3YD |  3 | MG |    942 |antaro | P | Reling |Z40L1077A  QT-PR V16 R906 |
+             |    |    |        |       |   |        |                  PICKING |
              |    |    |        |       |   |        |                          |
+             |  6 | MG |        |       |   |        |Z40D0002Z  QU-AUF 100 WGR |
              |    |    |        |       |   |        |                          |
+             |    |    |        |       |   |        |                 INKORTEN |
+             |    |    |        |       |   |        |                          |
+    222:A3YD |  3 | MG |    942 |antaro | I | Reling |Z40L1077A  QT-PR V16 R906 |
+             |    |    |        |       |   |        |                          |
+             |    |    |        |       |   |        |                          |
              |    |    |        |       |   |        |                  LEGENDE |
              |    |    |        |       |   |        |                          |
-             |    |    |        |       |   |        |   M = Montage            |
-             |    |    |        |       |   |        |   P = Picking onderdelen |
+             |    |    |        |       |   |        |              M = Montage |
+             |    |    |        |       |   |        |             I = Inpakken |
     ---------|----|----|--------|-------|---|--------|-------------------------
 
 
\ No newline at end of file
Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Tandembox.Aansturing/Test009/ResetBatch/Productie_009_Dwarsverdelinglijst.txt
===================================================================
diff -u -r67995 -r70955
--- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Tandembox.Aansturing/Test009/ResetBatch/Productie_009_Dwarsverdelinglijst.txt	(.../Productie_009_Dwarsverdelinglijst.txt)	(revision 67995)
+++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Tandembox.Aansturing/Test009/ResetBatch/Productie_009_Dwarsverdelinglijst.txt	(.../Productie_009_Dwarsverdelinglijst.txt)	(revision 70955)
@@ -9,13 +9,19 @@
     ---------|----|----|--------|-------|---|--------|-------------------------
     Toe:Dos  | #  | Kl | Lengte | Var.  | ^ | Type   | Korttekst               
     ---------|----|----|--------|-------|---|--------|-------------------------
-    222:A3YD |  3 | MG |    148 |antaro | P | Reling |Z40L1077A  QT-PR V16 R906 |
+             |    |    |        |       |   |        |                  PICKING |
              |    |    |        |       |   |        |                          |
+             |  6 | MG |        |       |   |        |Z40D0002Z  QU-AUF 100 WGR |
              |    |    |        |       |   |        |                          |
+             |    |    |        |       |   |        |                 INKORTEN |
+             |    |    |        |       |   |        |                          |
+    222:A3YD |  3 | MG |    148 |antaro | I | Reling |Z40L1077A  QT-PR V16 R906 |
+             |    |    |        |       |   |        |                          |
+             |    |    |        |       |   |        |                          |
              |    |    |        |       |   |        |                  LEGENDE |
              |    |    |        |       |   |        |                          |
-             |    |    |        |       |   |        |   M = Montage            |
-             |    |    |        |       |   |        |   P = Picking onderdelen |
+             |    |    |        |       |   |        |              M = Montage |
+             |    |    |        |       |   |        |             I = Inpakken |
     ---------|----|----|--------|-------|---|--------|-------------------------
 
 
\ No newline at end of file
Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Tandembox.Aansturing/Test009/StartBatch/Productie_009_Dwarsverdelinglijst.txt
===================================================================
diff -u -r67995 -r70955
--- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Tandembox.Aansturing/Test009/StartBatch/Productie_009_Dwarsverdelinglijst.txt	(.../Productie_009_Dwarsverdelinglijst.txt)	(revision 67995)
+++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Tandembox.Aansturing/Test009/StartBatch/Productie_009_Dwarsverdelinglijst.txt	(.../Productie_009_Dwarsverdelinglijst.txt)	(revision 70955)
@@ -9,13 +9,19 @@
     ---------|----|----|--------|-------|---|--------|-------------------------
     Toe:Dos  | #  | Kl | Lengte | Var.  | ^ | Type   | Korttekst               
     ---------|----|----|--------|-------|---|--------|-------------------------
-    222:A3YD |  3 | MG |    148 |antaro | P | Reling |Z40L1077A  QT-PR V16 R906 |
+             |    |    |        |       |   |        |                  PICKING |
              |    |    |        |       |   |        |                          |
+             |  6 | MG |        |       |   |        |Z40D0002Z  QU-AUF 100 WGR |
              |    |    |        |       |   |        |                          |
+             |    |    |        |       |   |        |                 INKORTEN |
+             |    |    |        |       |   |        |                          |
+    222:A3YD |  3 | MG |    148 |antaro | I | Reling |Z40L1077A  QT-PR V16 R906 |
+             |    |    |        |       |   |        |                          |
+             |    |    |        |       |   |        |                          |
              |    |    |        |       |   |        |                  LEGENDE |
              |    |    |        |       |   |        |                          |
-             |    |    |        |       |   |        |   M = Montage            |
-             |    |    |        |       |   |        |   P = Picking onderdelen |
+             |    |    |        |       |   |        |              M = Montage |
+             |    |    |        |       |   |        |             I = Inpakken |
     ---------|----|----|--------|-------|---|--------|-------------------------
 
 
\ No newline at end of file
Index: BL/PPS/TBX/DocDwarsverdelingLijst.cls.xml
===================================================================
diff -u -r29059 -r70955
--- BL/PPS/TBX/DocDwarsverdelingLijst.cls.xml	(.../DocDwarsverdelingLijst.cls.xml)	(revision 29059)
+++ BL/PPS/TBX/DocDwarsverdelingLijst.cls.xml	(.../DocDwarsverdelingLijst.cls.xml)	(revision 70955)
@@ -3,7 +3,7 @@
 <Class name="BL.PPS.TBX.DocDwarsverdelingLijst">
 <ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject</Super>
+<Super>TECH.RegisteredObject</Super>
 
 <Property name="Batch">
 <Type>APPS.Halux.common.Batch</Type>
@@ -31,10 +31,14 @@
 <ReturnType>APPS.common.Print.Kolommen.Document</ReturnType>
 <Implementation><![CDATA[
 	Set Document = ##class(APPS.common.Print.Kolommen.Document).%New("Dwarsverdelinglijst","TBX dwarsverdelingen","Lijn:"_..Batch.GeefLijn()_" Batch: "_..Batch.%Id())
-	
+	#dim MoetErEenDocumentWordenGemaakt As %Boolean = $$$False
 	Set ResultSet = ##class(%ResultSet).%New("BL.PPS.TBX.Sequencer:GetSequence")
 	Do ResultSet.Execute(..Batch.%Id())
-
+	
+	Do Document.VoegLijnToe("\\\\\\\PICKING","\")
+	Do Document.VoegLijnToe("\\\\\\\","\")
+	
+	//Dwarsverdelinghouders verwerken
 	While (ResultSet.Next())
 	{
 		Set QueueItem = ##class(DS.PPS.TBX.Queue).%OpenId(ResultSet.Data("ID"))
@@ -43,20 +47,34 @@
 			Set PRNr=QueueItem.ProductGetObjectId()
     		Set TandemBox = ..ProductAPI.GeefProduct(PRNr)
     		
-    		Set Bouwsteen = ##class(DOM.PM.Bouwstenen.Bouwsteen).%OpenId(TandemBox.GeefPRNr()_"||PRDWV.001")
-    		If ($IsObject(Bouwsteen))
+    		Set BouwsteenDwarsverdelingHouder = ##class(DOM.PM.Bouwstenen.Bouwsteen).%OpenId(TandemBox.GeefPRNr()_"||PRDWVH.001")
+    		If ($IsObject(BouwsteenDwarsverdelingHouder))
     		{
-	    		Do ..VerwerkDwarsverdeling(Document, QueueItem, TandemBox, Bouwsteen)
+	    		Set MoetErEenDocumentWordenGemaakt = $$$True
+	    		Do ..VerwerkDwarsverdelingHouder(Document, QueueItem, TandemBox, BouwsteenDwarsverdelingHouder)
     		}
-    		Else
-    		{	// Spoelbak
-	    		Set BouwsteenLinks = ##class(DOM.PM.Bouwstenen.Bouwsteen).%OpenId(TandemBox.GeefPRNr()_"||PRDWVSPLI.001")
-	    		Set BouwsteenRechts = ##class(DOM.PM.Bouwstenen.Bouwsteen).%OpenId(TandemBox.GeefPRNr()_"||PRDWVSPRE.001")
-	    		If ($IsObject(BouwsteenLinks) && $IsObject(BouwsteenRechts))
-	    		{
-		    		Do ..VerwerkDwarsverdeling(Document, QueueItem, TandemBox, BouwsteenLinks)
-		    		Do ..VerwerkDwarsverdeling(Document, QueueItem, TandemBox, BouwsteenRechts)
-	    		}
+		}
+	}
+	
+	Do Document.VoegLijnToe("\\\\\\\","\")
+	Do Document.VoegLijnToe("\\\\\\\INKORTEN","\")
+	Do Document.VoegLijnToe("\\\\\\\","\")
+	
+	//Dwarsverdelingen verwerken
+	Do ResultSet.Execute(..Batch.%Id())
+	While (ResultSet.Next())
+	{
+		Set QueueItem = ##class(DS.PPS.TBX.Queue).%OpenId(ResultSet.Data("ID"))
+		If ((QueueItem.Status '= "PB") && (QueueItem.DeelAantal = 1))
+		{
+			Set PRNr=QueueItem.ProductGetObjectId()
+    		Set TandemBox = ..ProductAPI.GeefProduct(PRNr)
+    		
+    		Set BouwsteenDwarsverdeling = ##class(DOM.PM.Bouwstenen.Bouwsteen).%OpenId(TandemBox.GeefPRNr()_"||PRDWV.001")
+    		If ($IsObject(BouwsteenDwarsverdeling))
+    		{
+	    		Set MoetErEenDocumentWordenGemaakt = 1
+	    		Do ..VerwerkDwarsverdeling(Document, QueueItem, TandemBox, BouwsteenDwarsverdeling)
     		}
 		}
 	}
@@ -70,29 +88,27 @@
 		Do Document.VoegLijnToe("\\\\\\\","\")
 		Do Document.VoegLijnToe("\\\\\\\LEGENDE","\")
 		Do Document.VoegLijnToe("\\\\\\\","\")
-		Do Document.VoegLijnToe("\\\\\\\ M = Montage           ","\")
-		Do Document.VoegLijnToe("\\\\\\\ P = Picking onderdelen","\")
+		Do Document.VoegLijnToe("\\\\\\\ M = Montage","\")
+		Do Document.VoegLijnToe("\\\\\\\ I = Inpakken","\")
 	
 		Do Document.Sorteer(##class(TECH.Comparator.StringComparator).%New(),6,SorteerVan,SorteerTot)
 	}
 	
+	//Indien geen data op het blad -> Leeg document teruggeven
+	If $$$Not(MoetErEenDocumentWordenGemaakt) {
+		Set Document = ##class(APPS.common.Print.Kolommen.Document).%New("Dwarsverdelinglijst","TBX dwarsverdelingen","Lijn:"_..Batch.GeefLijn()_" Batch: "_..Batch.%Id())
+	}
+	
 	Quit Document
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkDwarsverdeling">
 <FormalSpec>Document:APPS.common.Print.Kolommen.Document,QueueItem:DS.PPS.TBX.Queue,TandemBox:DOM.PM.TBXProduct.TBXLade,DwarsverdelingBouwsteen:DOM.PM.Bouwstenen.BouwsteenHalfFabr1Dim</FormalSpec>
 <Implementation><![CDATA[
-	Set Uitvoer = "P"
-	// FMA tijdelijke aanpassing in afwachting van definitieve beslissing bij Halux: 
-	// alles gaat naar de onderdelenpicking dus volgende lijn uitgecommentarieerd
-	//If (TandemBox.GeefLadeType()=##class(DOM.PM.enu.TBXLadeType).BinnenLade()) Set Uitvoer = "M"
+	Set Uitvoer = "I"
+	If (TandemBox.GeefLadeType()=##class(DOM.PM.enu.TBXLadeType).BinnenLade()) Set Uitvoer = "M"
 	
-	// FMA Volgende check is fout want:
-	//   - Er zijn 4 soorten houders
-	//   - Een niet-glazen boxside wordt over een reling geplaatst dus de check BevatReling gaat dan true zijn
-	//   - Voor intivo printen we boxside maar het moet eigenlijk positioneringsprofiel zijn
-	// Definitieve oplossing wordt besproken met Halux, hangt samen met welke flow men wil gebruiken.
 	If (TandemBox.BevatReling())
 	{
 		Set Bevestiging = "Reling"	
@@ -113,6 +129,22 @@
 	Do Document.GeefKolom(8).Insert(ProductAPI.GeefProduct(DwarsverdelingBouwsteen.KindProductGetObjectId()).GeefKorttekst())
 ]]></Implementation>
 </Method>
+
+<Method name="VerwerkDwarsverdelingHouder">
+<FormalSpec>Document:APPS.common.Print.Kolommen.Document,QueueItem:DS.PPS.TBX.Queue,TandemBox:DOM.PM.TBXProduct.TBXLade,DwarsverdelingHouderBouwsteen:DOM.PM.Bouwstenen.BouwsteenHalfFabr1Dim</FormalSpec>
+<Implementation><![CDATA[
+	Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
+
+	Do Document.GeefKolom(1).Insert("")
+	Do Document.GeefKolom(2).Insert(DwarsverdelingHouderBouwsteen.Aantal * QueueItem.TotaalAantal)
+	Do Document.GeefKolom(3).Insert($LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",DwarsverdelingHouderBouwsteen.KindProduct.%Id(),"Kleur")))
+	Do Document.GeefKolom(4).Insert("")
+	Do Document.GeefKolom(5).Insert("")	
+	Do Document.GeefKolom(6).Insert("")
+	Do Document.GeefKolom(7).Insert("")
+	Do Document.GeefKolom(8).Insert(ProductAPI.GeefProduct(DwarsverdelingHouderBouwsteen.KindProductGetObjectId()).GeefKorttekst())
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/BL/PPS/TBX/TestDocs.cls.xml
===================================================================
diff -u -r65095 -r70955
--- vhUnitTest/BL/PPS/TBX/TestDocs.cls.xml	(.../TestDocs.cls.xml)	(revision 65095)
+++ vhUnitTest/BL/PPS/TBX/TestDocs.cls.xml	(.../TestDocs.cls.xml)	(revision 70955)
@@ -152,7 +152,7 @@
 	Do $$$AssertEquals("MG",Document.GeefKolom(3).GetAt(1),"Kleur MG")
 	Do $$$AssertEquals(121,Document.GeefKolom(4).GetAt(1),"121 lang")
 	Do $$$AssertEquals("plus",Document.GeefKolom(5).GetAt(1),"Variant plus")
-	Do $$$AssertEquals("P",Document.GeefKolom(6).GetAt(1),"Uitvoer picking")
+	Do $$$AssertEquals("I",Document.GeefKolom(6).GetAt(1),"Uitvoer picking")
 	Do $$$AssertEquals("Reling",Document.GeefKolom(7).GetAt(1),"Bevestigingstype reling")
 ]]></Implementation>
 </Method>
Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Tandembox.Aansturing/Test020LadeMetDwarsverdeling/StartBatch/Productie_007_Dwarsverdelinglijst.txt
===================================================================
diff -u -r67995 -r70955
--- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Tandembox.Aansturing/Test020LadeMetDwarsverdeling/StartBatch/Productie_007_Dwarsverdelinglijst.txt	(.../Productie_007_Dwarsverdelinglijst.txt)	(revision 67995)
+++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Tandembox.Aansturing/Test020LadeMetDwarsverdeling/StartBatch/Productie_007_Dwarsverdelinglijst.txt	(.../Productie_007_Dwarsverdelinglijst.txt)	(revision 70955)
@@ -9,13 +9,19 @@
     ---------|----|----|--------|-------|---|--------|-------------------------
     Toe:Dos  | #  | Kl | Lengte | Var.  | ^ | Type   | Korttekst               
     ---------|----|----|--------|-------|---|--------|-------------------------
-    222:A3YD |  3 | MG |    942 |antaro | P | Reling |Z40L1077A  QT-PR V16 R906 |
+             |    |    |        |       |   |        |                  PICKING |
              |    |    |        |       |   |        |                          |
+             |  6 | MG |        |       |   |        |Z40D0002Z  QU-AUF 100 WGR |
              |    |    |        |       |   |        |                          |
+             |    |    |        |       |   |        |                 INKORTEN |
+             |    |    |        |       |   |        |                          |
+    222:A3YD |  3 | MG |    942 |antaro | I | Reling |Z40L1077A  QT-PR V16 R906 |
+             |    |    |        |       |   |        |                          |
+             |    |    |        |       |   |        |                          |
              |    |    |        |       |   |        |                  LEGENDE |
              |    |    |        |       |   |        |                          |
-             |    |    |        |       |   |        |   M = Montage            |
-             |    |    |        |       |   |        |   P = Picking onderdelen |
+             |    |    |        |       |   |        |              M = Montage |
+             |    |    |        |       |   |        |             I = Inpakken |
     ---------|----|----|--------|-------|---|--------|-------------------------
 
 
\ No newline at end of file