Index: DOM/PM/impl/DataM/DataMProductAPI.cls.xml
===================================================================
diff -u -r2230 -r2463
--- DOM/PM/impl/DataM/DataMProductAPI.cls.xml	(.../DataMProductAPI.cls.xml)	(revision 2230)
+++ DOM/PM/impl/DataM/DataMProductAPI.cls.xml	(.../DataMProductAPI.cls.xml)	(revision 2463)
@@ -52,6 +52,10 @@
 	{
 		Set Product = ##class(DOM.PM.TAOOProduct.impl.TAOOLadeImpl).%New(ProductNummer)
 	}
+	ElseIf (##class(TECH.StringUtils).StartsWith($LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",ProductNummer,"BasisType")),"RUG"))
+	{
+		Set Product = ##class(DOM.PM.TBXProduct.impl.TBXRugImpl).%New(ProductNummer)
+	}
 	ElseIf ($LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",ProductNummer,"BasisType")) [ "RL")  // Bij problemen eventueel beter : ... ? 1(1"RL",1"RLH",1"RLTUS",1"FRONTRL")   OPM: "RLALU" is geen reling maar een adapter-stukje 
 	{
 		Set Product = ##class(DOM.PM.TBXProduct.impl.TBXRelingImpl).%New(ProductNummer)
FishEye: Tag 994 refers to a dead (removed) revision in file `BL/PPS/TBX/DocsCommon.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: DOM/PM/TBXProduct/impl/TBXRugImpl.cls.xml
===================================================================
diff -u -r1075 -r2463
--- DOM/PM/TBXProduct/impl/TBXRugImpl.cls.xml	(.../TBXRugImpl.cls.xml)	(revision 1075)
+++ DOM/PM/TBXProduct/impl/TBXRugImpl.cls.xml	(.../TBXRugImpl.cls.xml)	(revision 2463)
@@ -8,9 +8,27 @@
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="GeefHoogte">
-<ReturnType>DOM.PM.enu.TBXLadehoogte</ReturnType>
+<ReturnType>DOM.PM.enu.TBXRugHoogte</ReturnType>
 <Implementation><![CDATA[	Quit $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",..GeefPRNr(),"RugHoogte"))
 ]]></Implementation>
 </Method>
+
+<Method name="GeefKleur">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",..GeefPRNr(),"Kleur"))
+]]></Implementation>
+</Method>
+
+<Method name="GeefBreedte">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",..GeefPRNr(),"BreedteIntern"))
+]]></Implementation>
+</Method>
+
+<Method name="GeefExacteBreedte">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit ..GeefBreedte() - 28
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: BL/PPS/TBX/DocsProPlus.cls.xml
===================================================================
diff -u -r2421 -r2463
--- BL/PPS/TBX/DocsProPlus.cls.xml	(.../DocsProPlus.cls.xml)	(revision 2421)
+++ BL/PPS/TBX/DocsProPlus.cls.xml	(.../DocsProPlus.cls.xml)	(revision 2463)
@@ -103,6 +103,8 @@
 s bl=##class(BL.PPS.TBX.Sequencer).Instantiate(1938) d bl.ProPlusDocs("E")</Description>
 <FormalSpec><![CDATA[Opties,&QtyFront,&QtyZaag,&QtySpoelbak,StartNr,EndNr]]></FormalSpec>
 <Implementation><![CDATA[
+	Set DocsCommon = ##class(BL.PPS.TBX.DocsCommon).%New(..Batch)
+	
 	Set ..VHOSSOrder=##class(BL.PPS.TBX.Sequencer).VHOSSOrder() ; Volgorde van de VHossen van laag naar hoog of omgekeerd.
 	Set:$G(Opties)="" Opties="EFSZDX"
 	Do:Opties["E" ..Etiket(StartNr,EndNr)
@@ -112,7 +114,8 @@
 	Set:Opties["X" QtySpoelbak=..Spoelbakken()
 	Do:Opties["P" ..Pers()
 	Do:Opties["A" ..PrintPickToLight()
-	Do:Opties["G" ..GlasSnijLijst()
+	Do:Opties["G" DocsCommon.GlasSnijLijst()
+	Do:Opties["S" DocsCommon.StaalRugOverzichtLijst()
 	
 	// Controleer voor errors op de frees indien etiketten voor tipons, sifons of spoelbakken zijn afgedrukt
 	If ((Opties["U") || (Opties["W"))
@@ -141,15 +144,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GlasSnijLijst">
-<ProcedureBlock>1</ProcedureBlock>
-<Implementation><![CDATA[
-	Set DocGlasSnijlijst = ##class(BL.PPS.TBX.DocGlasSnijlijst).%New(..Batch)
-	Set Document = DocGlasSnijlijst.GeefDocument()
-	Do Document.PrintDocument("HALUX", ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("PrintLijstenOpScherm"))
-]]></Implementation>
-</Method>
-
 <Method name="PrintPickToLight">
 <Implementation><![CDATA[
 	Set P2L = ##class(APPS.P2L.P2LRuggen).%New()
Index: vhDeploy/CSC/Deploy20111025x1011.cls.xml
===================================================================
diff -u
--- vhDeploy/CSC/Deploy20111025x1011.cls.xml	(revision 0)
+++ vhDeploy/CSC/Deploy20111025x1011.cls.xml	(revision 2463)
@@ -0,0 +1,22 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhDeploy.CSC.Deploy20111025x1011">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>svn.Deploy</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>StaalRugOverzichtLijst in orde brengen</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set ^RES("HATBXLEAN","PI","PRINT","D","S") = "21`StaalRug Overzichtlijst"
+	Set ^RES("HATBXLEAN","PI","PRINTPROPLUS","D","S") = "12`StaalRug Overzichtlijst"
+	Do ##class(BL.PPS.TBX.LijstDefinities.StaalRugOverzichtLijstDefinitie).MaakDocument()
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: DOM/PM/TBXProduct/TBXRug.cls.xml
===================================================================
diff -u -r1075 -r2463
--- DOM/PM/TBXProduct/TBXRug.cls.xml	(.../TBXRug.cls.xml)	(revision 1075)
+++ DOM/PM/TBXProduct/TBXRug.cls.xml	(.../TBXRug.cls.xml)	(revision 2463)
@@ -12,7 +12,7 @@
 </Method>
 
 <Method name="GeefHoogte">
-<ReturnType>DOM.PM.enu.TBXLadehoogte</ReturnType>
+<ReturnType>DOM.PM.enu.TBXRugHoogte</ReturnType>
 </Method>
 
 <Method name="GeefKleuren">
@@ -23,5 +23,20 @@
 <FormalSpec>Kleur1ste</FormalSpec>
 <ReturnType>%String</ReturnType>
 </Method>
+
+<Method name="GeefKleur">
+<Abstract>1</Abstract>
+<ReturnType>%String</ReturnType>
+</Method>
+
+<Method name="GeefBreedte">
+<Abstract>1</Abstract>
+<ReturnType>%Integer</ReturnType>
+</Method>
+
+<Method name="GeefExacteBreedte">
+<Abstract>1</Abstract>
+<ReturnType>%Integer</ReturnType>
+</Method>
 </Class>
 </Export>
Index: BL/PPS/TBX/DocStaalRugOverzichtLijst.cls.xml
===================================================================
diff -u
--- BL/PPS/TBX/DocStaalRugOverzichtLijst.cls.xml	(revision 0)
+++ BL/PPS/TBX/DocStaalRugOverzichtLijst.cls.xml	(revision 2463)
@@ -0,0 +1,69 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="BL.PPS.TBX.DocStaalRugOverzichtLijst">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Batch">
+<Type>APPS.Halux.common.Batch</Type>
+<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 Ruggen = ##class(%ArrayOfDataTypes).%New()
+	Set Document = ##class(TECH.Print.Kolommen.Document).%New("StaalRugOverzichtLijst","Overzicht TBX STALENRUG","Lijn:"_..Batch.GeefLijn()_" Batch: "_..Batch.GeefBatchID())
+	
+	; 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 Product = ProductAPI.GeefProduct(oQ.ProductGetObjectId())
+		If (('Product.%Extends("DOM.PM.TBXProduct.TBXLadeMetUitsparing")) && (Product.GeefRugMateriaal() = ##class(DOM.PM.enu.TBXRugMateriaal).Staal()) && Product.BevatRug())
+		{
+			Set Rug = Product.GeefRug()
+			Set RugPRNr = Rug.GeefPRNr()
+			If ('Ruggen.IsDefined(RugPRNr)) Do Ruggen.SetAt(0,RugPRNr)
+			Do Ruggen.SetAt(Ruggen.GetAt(RugPRNr)+1,RugPRNr)
+		}
+	}
+	
+	Set RugIterator = ##class(TECH.ListIterator).%New(Ruggen)
+	While (RugIterator.HasNext())
+	{
+		Set Aantal = RugIterator.Next()
+		Set Rug = ProductAPI.GeefProduct(RugIterator.Key())
+		Do Document.GeefKolom(1).Insert(Rug.GeefKleur())
+		Do Document.GeefKolom(2).Insert(Rug.GeefExacteBreedte())
+		Do Document.GeefKolom(3).Insert(Rug.GeefHoogte())
+		Do Document.GeefKolom(4).Insert(Aantal)
+		Do Document.GeefKolom(5).Insert(Rug.GeefKorttekst())
+	}
+	
+	// Sorteer op breedte - rughoogte - kleur
+	Do Document.Sorteer(##class(TECH.Comparator.IntegerComparator).%New(),2)
+	Do Document.Sorteer(##class(TECH.Comparator.StringComparator).%New(),3)
+	Do Document.Sorteer(##class(TECH.Comparator.StringComparator).%New(),1)
+	
+	Quit Document
+]]></Implementation>
+</Method>
+</Class>
+<Package name="BL.PPS.TBX" sqlname="BL"/>
+</Export>
Index: DOM/PM/TBXProduct/impl/TBXLadeImpl.cls.xml
===================================================================
diff -u -r2029 -r2463
--- DOM/PM/TBXProduct/impl/TBXLadeImpl.cls.xml	(.../TBXLadeImpl.cls.xml)	(revision 2029)
+++ DOM/PM/TBXProduct/impl/TBXLadeImpl.cls.xml	(.../TBXLadeImpl.cls.xml)	(revision 2463)
@@ -256,12 +256,22 @@
 <Method name="GeefRug">
 <ReturnType>DOM.PM.TBXProduct.TBXRug</ReturnType>
 <Implementation><![CDATA[
-	If ('$IsObject(..Rug) && ..BevatRug() &&(..GeefRugMateriaal()=##class(DOM.PM.enu.TBXRugMateriaal).Hout()))
+	If ('$IsObject(..Rug) && ..BevatRug())
 	{
-		Set Bouwsteen = ##class(DOM.PM.Bouwstenen.Bouwsteen).%OpenId(..GeefPRNr()_"||"_"PRRUGHS.001")
-		Set HalfFabrProduct = Bouwsteen.KindProduct
-		Set HalfFabrProductNr = HalfFabrProduct.ProductNr
-		Set ..Rug = ##class(DOM.PM.TBXProduct.impl.TBXRugImpl).%New(HalfFabrProductNr)
+		If (..GeefRugMateriaal()=##class(DOM.PM.enu.TBXRugMateriaal).Hout())
+		{
+			Set Bouwsteen = ##class(DOM.PM.Bouwstenen.Bouwsteen).%OpenId(..GeefPRNr()_"||"_"PRRUGHS.001")
+			Set HalfFabrProduct = Bouwsteen.KindProduct
+			Set HalfFabrProductNr = HalfFabrProduct.ProductNr
+			Set ..Rug = ##class(DOM.PM.TBXProduct.impl.TBXRugImpl).%New(HalfFabrProductNr)
+		}
+		ElseIf (..GeefRugMateriaal()=##class(DOM.PM.enu.TBXRugMateriaal).Staal())
+		{
+			Set Bouwsteen = ##class(DOM.PM.Bouwstenen.Bouwsteen).%OpenId(..GeefPRNr()_"||"_"PRSRUG.001")
+			Set HalfFabrProduct = Bouwsteen.KindProduct
+			Set HalfFabrProductNr = HalfFabrProduct.ProductNr
+			Set ..Rug = ##class(DOM.PM.TBXProduct.impl.TBXRugImpl).%New(HalfFabrProductNr)
+		}
 	}
 	Quit ..Rug
 ]]></Implementation>
Index: BL/PPS/TBX/DocsV1.cls.xml
===================================================================
diff -u -r2310 -r2463
--- BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 2310)
+++ BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 2463)
@@ -108,6 +108,9 @@
 	/	H
 	/
 	*/
+	
+	Set DocsCommon = ##class(BL.PPS.TBX.DocsCommon).%New(..Batch)
+	
 	Set Opties=$G(Opties,"ELZOFKMRT")
 	Set:Opties["Z" QtyTot=..ZaagLijst()
 	Do:Opties["O" ..OnderdelenLijst()
@@ -117,16 +120,16 @@
 	Do:Opties["L" ..LadeZijkantBakLijst()
 	Do:Opties["E" ..Etiketten(StartNr,EndNr)
 	Do:Opties["R" ..StaalRugLijst()
-	Do:Opties["S" ..StaalRugOverzicht()
+	Do:Opties["S" DocsCommon.StaalRugOverzichtLijst()
 	Do:Opties["K" ..KlantEtiketten(StartNr,EndNr)
 	Do:Opties["P" ..PalletEtiketten()
 	Do:Opties["T" ..EtikettenTipon(StartNr,EndNr)
 	Do:Opties["N" ..EtikettenSifon(StartNr,EndNr)
 	Do:Opties["Q" ..EtikettenSpoelbak(StartNr,EndNr)
 	Do:Opties["Y" ..ProboxOverdoosEtiketten()
 	Do:Opties["C" ..EtikettenCommissie()
-	Do:Opties["G" ..GlasSnijLijst()
-	Do:Opties["I" ..RelingInkortenLijst(),..DwarsverdelingLijst()
+	Do:Opties["G" DocsCommon.GlasSnijLijst()
+	Do:Opties["I" DocsCommon.RelingInkortLijst(),DocsCommon.DwarsverdelingLijst()
 	
 	
 	// Controleer voor errors op de frees indien etiketten voor tipons, sifons of spoelbakken zijn afgedrukt
@@ -149,24 +152,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GlasSnijLijst">
-<ProcedureBlock>1</ProcedureBlock>
-<Implementation><![CDATA[
-	Set DocGlasSnijlijst = ##class(BL.PPS.TBX.DocGlasSnijlijst).%New(..Batch)
-	Set Document = DocGlasSnijlijst.GeefDocument()
-	Do Document.PrintDocument("HALUX", ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("PrintLijstenOpScherm"))
-]]></Implementation>
-</Method>
-
-<Method name="DwarsverdelingLijst">
-<ProcedureBlock>1</ProcedureBlock>
-<Implementation><![CDATA[
-	Set DwarsverdelingLijst = ##class(BL.PPS.TBX.DocDwarsverdelingLijst).%New(..Batch)
-	Set Document = DwarsverdelingLijst.GeefDocument()
-	Do Document.PrintDocument("HALUX", ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("PrintLijstenOpScherm"))
-]]></Implementation>
-</Method>
-
 <Method name="ControleerErrorsFrees">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>BatchID:%Integer</FormalSpec>
@@ -487,80 +472,6 @@
 </Method>
 
 <UDLText name="T">
-<Content><![CDATA[/* ===== OVERZICHT STALEN RUG =====*/
-]]></Content>
-</UDLText>
-
-<Method name="StaalRugOverzicht">
-<FormalSpec>BatchID,BatchList</FormalSpec>
-<ProcedureBlock>0</ProcedureBlock>
-<Implementation><![CDATA[
-	Set Label1="OR1"
-	Set Label2="OR2"
-	Set Label3="OR3"
-	Kill ^HULP(..%J,Label1), ^HULP(..%J,Label2)
-	; Ophalen data
-	Set rs=##class(%ResultSet).%New("BL.PPS.TBX.Sequencer:GetSequence")
-	Set sc=rs.Execute(..BatchID)
-	For  Quit:'rs.Next()  Do
-	. Set oQ=##class(DS.PPS.TBX.Queue).%OpenId(rs.Data("ID"))
-	. Quit:oQ.Status="PB" ; sequencelijnen met status "PB" worden overgeslagen
-	. Set PRNr=oQ.ProductGetObjectId()
-	. Quit:..IsSpoel(PRNr)
-	. Set (Basis1,Basis2)=..BldBasisFromQueue(oQ)
-	. Do ..StaalRugOne(PRNr,.Detail1,.Detail2)
-	. If $L(Detail1) Do
-	. . Set HFPRNr=$P(Detail1,"\",6) ; HFPRNr
-	. . Set HFQty=$P(Detail1,"\",4) ; HFQty
-	. . Set $P(Detail1,"\",4)="" ; 1ste keer dubbeltelling vermijden
-	. . Set Detail1=$G(^HULP(..%J,Label1,HFPRNr),Detail1)
-	. . Set $P(Detail1,"\",4)=$P(Detail1,"\",4)+HFQty
-	. . Set ^HULP(..%J,Label1,HFPRNr)=Detail1
-	. If $L(Detail2) Do
-	. . Set HFPRNr=$P(Detail2,"\",6) ; HFPRNr
-	. . Set HFQty=$P(Detail2,"\",4) ; HFQty
-	. . Set $P(Detail2,"\",4)=""  ; 1ste keer dubbeltelling vermijden
-	. . Set Detail2=$G(^HULP(..%J,Label1,HFPRNr),Detail2)
-	. . Set $P(Detail2,"\",4)=$P(Detail2,"\",4)+HFQty
-	. . Set ^HULP(..%J,Label1,HFPRNr)=Detail2
-	; Sorteren
-	Set HFPRNr=""
-	For  Set HFPRNr=$O(^HULP(..%J,Label1,HFPRNr)) Quit:HFPRNr=""  Do
-	. Set Rec="",$P(Rec,"\",10)=^HULP(..%J,Label1,HFPRNr)
-	. Set SortKey=$J($P(Rec,"\",10),3)_$J($P(Rec,"\",11),2)_$TR($J($P(Rec,"\",12),7,1)," ",0) ; Sort = Kleur_RugHoogte_Breedte
-	. Set ^HULP(..%J,Label2,SortKey)=Rec
-	; Lineariseren
-	Set Key="",VolgNr=0
-	For  Set Key=$O(^HULP(..%J,Label2,Key)) Quit:Key=""  Do
-	. Set ^HULP(..%J,Label3,$I(VolgNr))=^HULP(..%J,Label2,Key)
-	; Output
-	; Basis + 10: RugKleur \ RugHoogte \ BreedteRug \ Aantal \ Opmerking \ HFPRNr \ KortTekst
-	Quit:'$D(^HULP(..%J,Label3))
-	Do INIT^vhLISTO("HATBXLEAN","STAALRUGOVERZICHT",.PLD)
-	Set PLD("HALUX")=""
-	Set PLD(1)=$NA(^HULP(..%J,Label3))
-	Set PLD(5)=77
-	Set PLD(10)="Class("_..%ClassName(1)_").StaalRugOverzichtCB"
-	Set PLD(11)="Overzicht TBX STALENRUG\Lijn:"_..Batch.GeefLijn()_"  Batch:"_..BatchID
-	Set (%MemTOENr,%MemDossier)=""
-	Set IsPrintOpScherm = ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("PrintLijstenOpScherm")
-	Do PRINT^OUTPUT(.PLD,$S(IsPrintOpScherm:"S",1:"P"),"S","BL")
-	Kill %MemDossier,%MemTOENr
-	Quit
-]]></Implementation>
-</Method>
-
-<Method name="StaalRugOverzichtCB">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>Ref</FormalSpec>
-<ProcedureBlock>0</ProcedureBlock>
-<Implementation><![CDATA[
-  Quit:$L(Ref)=1 ""
-  Quit "BL\;1"
-]]></Implementation>
-</Method>
-
-<UDLText name="T">
 <Content><![CDATA[/* Etiket Zaaglijst */
 ]]></Content>
 </UDLText>
@@ -1693,138 +1604,6 @@
 	Quit TBXLade.BevatBodem() && TBXLade.GeefBodem().HeeftInkeping()
 ]]></Implementation>
 </Method>
-
-<Method name="RelingInkortenLijst">
-<Implementation><![CDATA[
-	Set API = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
-	Set Document = ##class(TECH.Print.Kolommen.Document).%New("RelingInkortenLijst","In te korten relingen","Batch ID: "_..BatchID)
-	
-	Set DataLijnen = ##class(%ListOfDataTypes).%New()
-	Set rs=##class(%ResultSet).%New("BL.PPS.TBX.Sequencer:GetSequence")
-	Set sc=rs.Execute(..BatchID)
-	While rs.Next()
-	{
-		Quit:rs.Data("Status")="PB" ; sequencelijnen met status "PB" worden overgeslagen
-		Do DataLijnen.Insert(rs.Data("ID")_"\"_rs.Data("Status")_"\"_rs.Data("Product"))
-	}
-	
-	Do Document.VoegLijnToe("\\\\\\\","\")
-	Do Document.VoegLijnToe("\\\\\\\PICKING","\")
-	Do Document.VoegLijnToe("\\\\\\\","\")
-	
-	Set Aantallen = ##class(%ArrayOfDataTypes).%New()
-	Set Iterator = ##class(TECH.ListIterator).%New(DataLijnen)
-	While Iterator.HasNext() {
-		Set DataLijn = Iterator.Next()
-		Set PRNr = $Piece(DataLijn,"\",3)
-		Set TandemBox = API.GeefProduct(PRNr)
-		If (TandemBox.BevatInTeKortenReling())
-		{
-			Set RelingPRNr = TandemBox.GeefReling().GeefPRNr()
-			Set RelingBouwsteen = ##class(DOM.PM.Bouwstenen.Bouwsteen).%OpenId(PRNr_"||"_"PRRL.001")
-			Set Aantal = RelingBouwsteen.Aantal
-			
-			Do Aantallen.SetAt(Aantallen.GetAt(RelingPRNr)+Aantal,RelingPRNr)
-			
-			If (TandemBox.BevatTussenReling())
-			{
-				Set RelingPRNr = TandemBox.GeefTussenReling().GeefPRNr()
-				Do Aantallen.SetAt(Aantallen.GetAt(RelingPRNr)+Aantal,RelingPRNr)
-			}
-		}
-	}
-	
-	Set i = 1
-	Set Iterator = ##class(TECH.ListIterator).%New(Aantallen)
-	While (Iterator.HasNext())
-	{
-		Set Aantal = Iterator.Next()
-		Set PRNr = Iterator.Key()
-		Set Reling = API.GeefProduct(PRNr)
-		
-		Do ..VoegRelingToeAanDocument(i, Reling, Document, Aantal)
-		
-		Set i = i + 1
-	}
-		
-	
-	Do Document.VoegLijnToe("\\\\\\\","\")
-	Do Document.VoegLijnToe("\\\\\\\INKORTEN","\")
-	Do Document.VoegLijnToe("\\\\\\\","\")
-	// In te korten relingen opbouwen
-	Set i = 1
-	Set Iterator = ##class(TECH.ListIterator).%New(DataLijnen)
-	While Iterator.HasNext() {
-		Set DataLijn = Iterator.Next()
-		Set Status = $Piece(DataLijn,"\",2)
-		Set PRNr = $Piece(DataLijn,"\",3)
-		Set TandemBox = API.GeefProduct(PRNr)
-		If (TandemBox.BevatInTeKortenReling())
-		{
-			Set oQ = ##class(DS.PPS.TBX.Queue).%OpenId($Piece(DataLijn,"\",1))
-			Set ToeDos = $E(oQ.TOENr,4,6)_":"_$E(oQ.DOSNr,1,4)
-			Set Reling = TandemBox.GeefReling()
-			Set Lengte = ##class(DOM.PM.Maatwerk.TBX.HalffabrikaatUtils).GeefRelingLengteNaInkorten(PRNr,Reling.GeefPRNr())	
-			
-			Set RelingBouwsteen = ##class(DOM.PM.Bouwstenen.Bouwsteen).%OpenId(PRNr_"||PRRL.001")
-			Set Aantal = RelingBouwsteen.Aantal
-			Set RelingAantal = Aantal
-			Set Verpakking = Reling.GeefVerpakking()
-			If (Verpakking '= ##class(DOM.PM.enu.Verpakking).Industrie()) {
-				Set RelingAantal = Aantal * 2
-			}
-			Set Uitvoer = "P"
-			If (TandemBox.GeefLadeType() = ##class(DOM.PM.enu.TBXLadeType).BinnenLade()) { Set Uitvoer = "M" }
-			
-			Do ..VoegRelingToeAanDocument(i, Reling, Document, Aantal_":"_RelingAantal, ToeDos, Lengte, Uitvoer)
-			
-			If (TandemBox.BevatTussenReling())
-			{
-				Do ..VoegRelingToeAanDocument(i, TandemBox.GeefTussenReling(), Document, Aantal, ToeDos, Lengte, Uitvoer)
-			}
-			Set i = i + 1
-		}
-	}
-
-	Do Document.VoegLijnToe("\\\\\\\","\")
-	Do Document.VoegLijnToe("\\\\\\\LEGENDE","\")
-	Do Document.VoegLijnToe("\\\\\\\","\")
-	Do Document.VoegLijnToe("\\\\\\\ M = Montage           ","\")
-	Do Document.VoegLijnToe("\\\\\\\ P = Picking onderdelen","\")
-	
-	Set SorteerVan = 6+Aantallen.Count()
-	Set SorteerTot = SorteerVan + i - 1
-	Do Document.Sorteer(##class(TECH.Comparator.StringComparator).%New(),6,SorteerVan,SorteerTot)
-	
-	// Nummering correct instellen na sorteren
-	For i = 1:1:SorteerTot-SorteerVan { Do Document.GeefKolom(1).SetAt(i,SorteerVan+i) }
-
-	If (Aantallen.Count() > 0)
-	{
-		Do Document.PrintDocument("HALUX",##class(TECH.Config.ConfigMgr).Instance().GetBoolean("PrintLijstenOpScherm"))
-	}
-]]></Implementation>
-</Method>
-
-<Method name="VoegRelingToeAanDocument">
-<FormalSpec>Nr:%Integer,Reling:DOM.PM.TBXProduct.TBXReling,Document:TECH.Print.Kolommen.Document,Aantal:%Integer,ToeDos:%String="",Lengte:%Integer="",Uitvoer:%String=""</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	Set Verpakking = Reling.GeefVerpakking()
-	Set RelingKleur = Reling.GeefKleur()
-	If (Verpakking = ##class(DOM.PM.enu.Verpakking).Industrie()) {
-		Set Verpakking = ""
-	}
-	Do Document.GeefKolom(1).Insert(Nr)
-	Do Document.GeefKolom(2).Insert(ToeDos)
-	Do Document.GeefKolom(3).Insert(RelingKleur)
-	Do Document.GeefKolom(4).Insert(Lengte)
-	Do Document.GeefKolom(5).Insert(Verpakking)
-	Do Document.GeefKolom(6).Insert(Uitvoer)
-	Do Document.GeefKolom(7).Insert(Aantal)
-	Do Document.GeefKolom(8).Insert(Reling.GeefKorttekst())
-]]></Implementation>
-</Method>
 </Class>
 <Package name="BL.PPS.TBX" sqlname="BL"/>
 </Export>
Index: BL/PPS/TBX/LijstDefinities/StaalRugOverzichtLijstDefinitie.cls.xml
===================================================================
diff -u
--- BL/PPS/TBX/LijstDefinities/StaalRugOverzichtLijstDefinitie.cls.xml	(revision 0)
+++ BL/PPS/TBX/LijstDefinities/StaalRugOverzichtLijstDefinitie.cls.xml	(revision 2463)
@@ -0,0 +1,38 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="BL.PPS.TBX.LijstDefinities.StaalRugOverzichtLijstDefinitie">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="MaakDocument">
+<Description>
+d ##class(BL.PPS.TBX.LijstDefinities.StaalRugOverzichtLijstDefinitie).MaakDocument()</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	// maakt een document
+	Set DocumentType = ##class(TECH.Print.Kolommen.DocumentType).%New("StaalRugOverzichtLijst")
+	
+	// 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("Breedte",,##class(TECH.Print.Kolommen.TekstType).Numeriek(),##class(TECH.Print.Kolommen.TekstUitlijning).Rechts())
+	Set Kolom3 = ##class(TECH.Print.Kolommen.KolomDefinitie).%New("RHo",,##class(TECH.Print.Kolommen.TekstType).String(),##class(TECH.Print.Kolommen.TekstUitlijning).Rechts())
+	Set Kolom4 = ##class(TECH.Print.Kolommen.KolomDefinitie).%New("Aantal",,##class(TECH.Print.Kolommen.TekstType).Numeriek(),##class(TECH.Print.Kolommen.TekstUitlijning).Rechts())
+	Set Kolom5 = ##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)
+	Do DocumentType.VoegKolomDefinitieToe(Kolom5)
+	
+	// sla het documenttype op
+	Do DocumentType.SaveDocument()
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: BL/PPS/TBX/DocRelingInkortLijst.cls.xml
===================================================================
diff -u
--- BL/PPS/TBX/DocRelingInkortLijst.cls.xml	(revision 0)
+++ BL/PPS/TBX/DocRelingInkortLijst.cls.xml	(revision 2463)
@@ -0,0 +1,167 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="BL.PPS.TBX.DocRelingInkortLijst">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Batch">
+<Type>APPS.Halux.common.Batch</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductAPI">
+<Type>DOM.PM.ProductAPI</Type>
+<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
+	Set ..ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefDocument">
+<Implementation><![CDATA[
+	Set API = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
+	Set Document = ##class(TECH.Print.Kolommen.Document).%New("RelingInkortenLijst","In te korten relingen","Batch ID: "_..Batch.GeefBatchID())
+	
+	Set DataLijnen = ##class(%ListOfDataTypes).%New()
+	Set rs=##class(%ResultSet).%New("BL.PPS.TBX.Sequencer:GetSequence")
+	Set sc=rs.Execute(..Batch.GeefBatchID())
+	While rs.Next()
+	{
+		Quit:rs.Data("Status")="PB" ; sequencelijnen met status "PB" worden overgeslagen
+		Do DataLijnen.Insert(rs.Data("ID")_"\"_rs.Data("Status")_"\"_rs.Data("Product"))
+	}
+	
+	Do Document.VoegLijnToe("\\\\\\\","\")
+	Do Document.VoegLijnToe("\\\\\\\PICKING","\")
+	Do Document.VoegLijnToe("\\\\\\\","\")
+	
+	Set Aantallen = ##class(%ArrayOfDataTypes).%New()
+	Set Iterator = ##class(TECH.ListIterator).%New(DataLijnen)
+	While Iterator.HasNext() {
+		Set DataLijn = Iterator.Next()
+		Set PRNr = $Piece(DataLijn,"\",3)
+		Set TandemBox = API.GeefProduct(PRNr)
+		If (TandemBox.BevatInTeKortenReling())
+		{
+			Set RelingPRNr = TandemBox.GeefReling().GeefPRNr()
+			Set RelingBouwsteen = ##class(DOM.PM.Bouwstenen.Bouwsteen).%OpenId(PRNr_"||"_"PRRL.001")
+			Set Aantal = RelingBouwsteen.Aantal
+			
+			Do Aantallen.SetAt(Aantallen.GetAt(RelingPRNr)+Aantal,RelingPRNr)
+			
+			If (TandemBox.BevatTussenReling())
+			{
+				Set RelingPRNr = TandemBox.GeefTussenReling().GeefPRNr()
+				Do Aantallen.SetAt(Aantallen.GetAt(RelingPRNr)+Aantal,RelingPRNr)
+			}
+		}
+	}
+	
+	Set i = 1
+	Set Iterator = ##class(TECH.ListIterator).%New(Aantallen)
+	While (Iterator.HasNext())
+	{
+		Set Aantal = Iterator.Next()
+		Set PRNr = Iterator.Key()
+		Set Reling = API.GeefProduct(PRNr)
+		
+		Do ..VoegRelingToeAanDocument(i, Reling, Document, Aantal)
+		
+		Set i = i + 1
+	}
+		
+	
+	Do Document.VoegLijnToe("\\\\\\\","\")
+	Do Document.VoegLijnToe("\\\\\\\INKORTEN","\")
+	Do Document.VoegLijnToe("\\\\\\\","\")
+	// In te korten relingen opbouwen
+	Set i = 1
+	Set Iterator = ##class(TECH.ListIterator).%New(DataLijnen)
+	While Iterator.HasNext() {
+		Set DataLijn = Iterator.Next()
+		Set Status = $Piece(DataLijn,"\",2)
+		Set PRNr = $Piece(DataLijn,"\",3)
+		Set TandemBox = API.GeefProduct(PRNr)
+		If (TandemBox.BevatInTeKortenReling())
+		{
+			Set oQ = ##class(DS.PPS.TBX.Queue).%OpenId($Piece(DataLijn,"\",1))
+			Set ToeDos = $E(oQ.TOENr,4,6)_":"_$E(oQ.DOSNr,1,4)
+			Set Reling = TandemBox.GeefReling()
+			Set Lengte = ##class(DOM.PM.Maatwerk.TBX.HalffabrikaatUtils).GeefRelingLengteNaInkorten(PRNr,Reling.GeefPRNr())	
+			
+			Set RelingBouwsteen = ##class(DOM.PM.Bouwstenen.Bouwsteen).%OpenId(PRNr_"||PRRL.001")
+			Set Aantal = RelingBouwsteen.Aantal
+			Set RelingAantal = Aantal
+			Set Verpakking = Reling.GeefVerpakking()
+			If (Verpakking '= ##class(DOM.PM.enu.Verpakking).Industrie()) {
+				Set RelingAantal = Aantal * 2
+			}
+			Set Uitvoer = "P"
+			If (TandemBox.GeefLadeType() = ##class(DOM.PM.enu.TBXLadeType).BinnenLade()) { Set Uitvoer = "M" }
+			
+			Do ..VoegRelingToeAanDocument(i, Reling, Document, Aantal_":"_RelingAantal, ToeDos, Lengte, Uitvoer)
+			
+			If (TandemBox.BevatTussenReling())
+			{
+				Do ..VoegRelingToeAanDocument(i, TandemBox.GeefTussenReling(), Document, Aantal, ToeDos, Lengte, Uitvoer)
+			}
+			Set i = i + 1
+		}
+	}
+
+	If (Document.GeefKolom(1).Count() > 6)
+	{
+		Do Document.VoegLijnToe("\\\\\\\","\")
+		Do Document.VoegLijnToe("\\\\\\\LEGENDE","\")
+		Do Document.VoegLijnToe("\\\\\\\","\")
+		Do Document.VoegLijnToe("\\\\\\\ M = Montage           ","\")
+		Do Document.VoegLijnToe("\\\\\\\ P = Picking onderdelen","\")
+		
+		Set SorteerVan = 6+Aantallen.Count()
+		Set SorteerTot = SorteerVan + i - 1
+		Do Document.Sorteer(##class(TECH.Comparator.StringComparator).%New(),6,SorteerVan,SorteerTot)
+		
+		// Nummering correct instellen na sorteren
+		For i = 1:1:SorteerTot-SorteerVan { Do Document.GeefKolom(1).SetAt(i,SorteerVan+i) }
+	}
+	Else
+	{
+		Do Document.ClearContent()
+	}
+	
+	Quit Document
+]]></Implementation>
+</Method>
+
+<Method name="VoegRelingToeAanDocument">
+<FormalSpec>Nr:%Integer,Reling:DOM.PM.TBXProduct.TBXReling,Document:TECH.Print.Kolommen.Document,Aantal:%Integer,ToeDos:%String="",Lengte:%Integer="",Uitvoer:%String=""</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set Verpakking = Reling.GeefVerpakking()
+	Set RelingKleur = Reling.GeefKleur()
+	If (Verpakking = ##class(DOM.PM.enu.Verpakking).Industrie()) {
+		Set Verpakking = ""
+	}
+	Do Document.GeefKolom(1).Insert(Nr)
+	Do Document.GeefKolom(2).Insert(ToeDos)
+	Do Document.GeefKolom(3).Insert(RelingKleur)
+	Do Document.GeefKolom(4).Insert(Lengte)
+	Do Document.GeefKolom(5).Insert(Verpakking)
+	Do Document.GeefKolom(6).Insert(Uitvoer)
+	Do Document.GeefKolom(7).Insert(Aantal)
+	Do Document.GeefKolom(8).Insert(Reling.GeefKorttekst())
+]]></Implementation>
+</Method>
+</Class>
+<Package name="BL.PPS.TBX" sqlname="BL"/>
+</Export>