Index: BL/PPS/TBX/DocsV1.cls.xml
===================================================================
diff -u -r2823 -r2847
--- BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 2823)
+++ BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 2847)
@@ -123,12 +123,6 @@
 <Method name="PrintDocs">
 <FormalSpec><![CDATA[Opties,&QtyFront,&QtyMat,StartNr,EndNr]]></FormalSpec>
 <Implementation><![CDATA[
-	/*  VRIJE LETTERS, GELIEVE TE UPDATEN BIJ GEBRUIK
-	/
-	/	H
-	/
-	*/
-	
 	Set DocsCommon = ##class(BL.PPS.TBX.DocsCommon).%New(..Batch)
 	
 	Set Opties=$G(Opties,"ELZOFKMRT")
@@ -150,6 +144,7 @@
 	Do:Opties["C" ..EtikettenCommissie()
 	Do:Opties["G" DocsCommon.GlasSnijLijst()
 	Do:Opties["I" DocsCommon.RelingInkortLijst(),DocsCommon.DwarsverdelingLijst()
+	Do:Opties["H" DocsCommon.RugwandhouderLijst()
 	
 	
 	// Controleer voor errors op de frees indien etiketten voor tipons, sifons of spoelbakken zijn afgedrukt
Index: BL/PPS/TBX/LijstDefinities/RugwandhouderLijstDefinitie.cls.xml
===================================================================
diff -u
--- BL/PPS/TBX/LijstDefinities/RugwandhouderLijstDefinitie.cls.xml	(revision 0)
+++ BL/PPS/TBX/LijstDefinities/RugwandhouderLijstDefinitie.cls.xml	(revision 2847)
@@ -0,0 +1,36 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="BL.PPS.TBX.LijstDefinities.RugwandhouderLijstDefinitie">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="MaakDocument">
+<Description>
+d ##class(BL.PPS.TBX.LijstDefinities.RugwandhouderLijstDefinitie).MaakDocument()</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	// maakt een document
+	Set DocumentType = ##class(TECH.Print.Kolommen.DocumentType).%New("Rugwandhouderlijst")
+	
+	// maak kolommen aan
+	Set Kolom1 = ##class(TECH.Print.Kolommen.KolomDefinitie).%New("Kleur",,##class(TECH.Print.Kolommen.TekstType).String(),##class(TECH.Print.Kolommen.TekstUitlijning).Links())
+	Set Kolom2 = ##class(TECH.Print.Kolommen.KolomDefinitie).%New("Hoogte",,##class(TECH.Print.Kolommen.TekstType).String(),##class(TECH.Print.Kolommen.TekstUitlijning).Rechts())
+	Set Kolom3 = ##class(TECH.Print.Kolommen.KolomDefinitie).%New("Aantal",,##class(TECH.Print.Kolommen.TekstType).String(),##class(TECH.Print.Kolommen.TekstUitlijning).Rechts())
+	Set Kolom4 = ##class(TECH.Print.Kolommen.KolomDefinitie).%New("Korttekst",25,##class(TECH.Print.Kolommen.TekstType).String(),##class(TECH.Print.Kolommen.TekstUitlijning).Rechts())
+	
+	// verwijdert eventuele oude definities
+	Do DocumentType.ClearDocument()
+	
+	// voeg de kolommen toe aan het documenttype
+	Do DocumentType.VoegKolomDefinitieToe(Kolom1)
+	Do DocumentType.VoegKolomDefinitieToe(Kolom2)
+	Do DocumentType.VoegKolomDefinitieToe(Kolom3)
+	Do DocumentType.VoegKolomDefinitieToe(Kolom4)
+	
+	// sla het documenttype op
+	Do DocumentType.SaveDocument()
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: BL/PPS/TBX/DocsProPlus.cls.xml
===================================================================
diff -u -r2589 -r2847
--- BL/PPS/TBX/DocsProPlus.cls.xml	(.../DocsProPlus.cls.xml)	(revision 2589)
+++ BL/PPS/TBX/DocsProPlus.cls.xml	(.../DocsProPlus.cls.xml)	(revision 2847)
@@ -116,6 +116,7 @@
 	Do:Opties["A" ..PrintPickToLight()
 	Do:Opties["G" DocsCommon.GlasSnijLijst()
 	Do:Opties["S" DocsCommon.StaalRugOverzichtLijst()
+	Do:Opties["H" DocsCommon.RugwandhouderLijst()
 	
 	// Controleer voor errors op de frees indien etiketten voor tipons, sifons of spoelbakken zijn afgedrukt
 	If ((Opties["U") || (Opties["W"))
Index: BL/PPS/TBX/DocRugwandhouderLijst.cls.xml
===================================================================
diff -u
--- BL/PPS/TBX/DocRugwandhouderLijst.cls.xml	(revision 0)
+++ BL/PPS/TBX/DocRugwandhouderLijst.cls.xml	(revision 2847)
@@ -0,0 +1,94 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="BL.PPS.TBX.DocRugwandhouderLijst">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Batch">
+<Type>APPS.Halux.common.Batch</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Houders">
+<Type>%Integer</Type>
+<Collection>array</Collection>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Batch:APPS.Halux.common.Batch</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Batch = Batch
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefDocument">
+<Implementation><![CDATA[
+	Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
+	Set Document = ##class(TECH.Print.Kolommen.Document).%New("Rugwandhouderlijst","Overzicht rugwandhouderlijst","Lijn:"_..Batch.GeefLijn()_" Batch: "_..Batch.GeefBatchID())
+	Set Houders = ##class(%ArrayOfDataTypes).%New()
+	
+	; Ophalen data
+	Set ResultSet = ##class(%ResultSet).%New("BL.PPS.TBX.Sequencer:GetSequence")
+	Do ResultSet.Execute(..Batch.GeefBatchID())
+	While (ResultSet.Next())
+	{
+		Set oQ=##class(DS.PPS.TBX.Queue).%OpenId(ResultSet.Data("ID"))
+		Continue:oQ.Status="PB" ; sequencelijnen met status "PB" worden overgeslagen
+		Set PRNr = oQ.ProductGetObjectId()
+		
+		If ($Data(^PRBS("BS",PRNr,"PRRUGLI.001")))
+		{
+			Set HouderPRNr = $Piece(^PRBS("BS",PRNr,"PRRUGLI.001"),"\",1)
+			Set HouderAantal = $Piece(^PRBS("BS",PRNr,"PRRUGLI.001"),"\",2)
+			Do ..IncrementHouderAantal(HouderPRNr,HouderAantal)
+		}
+		
+		If ($Data(^PRBS("BS",PRNr,"PRRUGRE.001")))
+		{
+			Set HouderPRNr = $Piece(^PRBS("BS",PRNr,"PRRUGRE.001"),"\",1)
+			Set HouderAantal = $Piece(^PRBS("BS",PRNr,"PRRUGRE.001"),"\",2)
+			Do ..IncrementHouderAantal(HouderPRNr,HouderAantal)
+		}
+		
+	}
+	
+	Set HouderIterator = ##class(TECH.ListIterator).%New(..Houders)
+	While (HouderIterator.HasNext())
+	{
+		Set HouderAantal = HouderIterator.Next()
+		Set HouderPRNr = HouderIterator.Key()
+		Set HouderProduct = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(HouderPRNr)
+		Do Document.GeefKolom(1).Insert($LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",HouderPRNr,"Kleur"),1))
+		Do Document.GeefKolom(2).Insert($LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",HouderPRNr,"RugHoogte"),1))
+		Do Document.GeefKolom(3).Insert(HouderAantal)
+		Do Document.GeefKolom(4).Insert(HouderProduct.GeefKorttekst())
+	}
+	
+	// Sorteer op breedte - rughoogte - kleur
+	Do Document.Sorteer(##class(TECH.Comparator.StringComparator).%New(),2)
+	Do Document.Sorteer(##class(TECH.Comparator.StringComparator).%New(),1)
+	
+	Quit Document
+]]></Implementation>
+</Method>
+
+<Method name="IncrementHouderAantal">
+<FormalSpec>HouderPRNr,Aantal</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If ('..Houders.IsDefined(HouderPRNr))
+	{
+		Do ..Houders.SetAt(0,HouderPRNr)
+	}
+	Do ..Houders.SetAt(..Houders.GetAt(HouderPRNr)+Aantal,HouderPRNr)
+]]></Implementation>
+</Method>
+</Class>
+<Package name="BL.PPS.TBX" sqlname="BL"/>
+</Export>
Index: BL/PPS/TBX/DocsCommon.cls.xml
===================================================================
diff -u -r2463 -r2847
--- BL/PPS/TBX/DocsCommon.cls.xml	(.../DocsCommon.cls.xml)	(revision 2463)
+++ BL/PPS/TBX/DocsCommon.cls.xml	(.../DocsCommon.cls.xml)	(revision 2847)
@@ -52,6 +52,14 @@
 	Do Document.PrintDocument("HALUX", ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("PrintLijstenOpScherm"))
 ]]></Implementation>
 </Method>
+
+<Method name="RugwandhouderLijst">
+<Implementation><![CDATA[
+	Set RugwandhouderLijst = ##class(BL.PPS.TBX.DocRugwandhouderLijst).%New(..Batch)
+	Set Document = RugwandhouderLijst.GeefDocument()
+	Do Document.PrintDocument("HALUX", ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("PrintLijstenOpScherm"))
+]]></Implementation>
+</Method>
 </Class>
 <Package name="BL.PPS.TBX" sqlname="BL"/>
 </Export>