Index: BL/PPS/TBX/DocGlasSnijlijst.cls.xml
===================================================================
diff -u -r1188 -r1463
--- BL/PPS/TBX/DocGlasSnijlijst.cls.xml	(.../DocGlasSnijlijst.cls.xml)	(revision 1188)
+++ BL/PPS/TBX/DocGlasSnijlijst.cls.xml	(.../DocGlasSnijlijst.cls.xml)	(revision 1463)
@@ -50,15 +50,13 @@
 	    		{
 		    		Set GlasSnijInfo = GlasSnijInfoIterator.Next()
 		    		
-		    		Set Uitvoer = $Select(TandemBox.GeefLadeType()=##class(DOM.PM.enu.TBXLadeType).BinnenLade():"M",1:"P")
-		    		
 		    		Do Document.GeefKolom(1).Insert($Extract(QueueItem.TOENr,4,6)_":"_QueueItem.DOSNr)
 					Do Document.GeefKolom(2).Insert($Extract(GlasSnijInfo.Type,1,5))
 					Do Document.GeefKolom(3).Insert($J(GlasSnijInfo.AantalTeSnijden,2)_":"_$J(GlasSnijInfo.AantalNaSnijden,2))
 					Do Document.GeefKolom(4).Insert(GlasSnijInfo.Kleur)
 					Do Document.GeefKolom(5).Insert(GlasSnijInfo.RugHoogte)
-					Do Document.GeefKolom(6).Insert(GlasSnijInfo.Lengte)
-					Do Document.GeefKolom(7).Insert(Uitvoer)
+					Do Document.GeefKolom(6).Insert($Extract(GlasSnijInfo.InkortRichting,1,1)_" "_GlasSnijInfo.Lengte)
+					Do Document.GeefKolom(7).Insert(GlasSnijInfo.Uitvoer)
 					Do Document.GeefKolom(8).Insert(GlasSnijInfo.TeSnijdenProduct.GeefKorttekst())
 	    		}
     		}
@@ -76,6 +74,7 @@
 		Do Document.VoegLijnToe("\\\\\\\","\")
 		Do Document.VoegLijnToe("\\\\\\\ M = Montage           ","\")
 		Do Document.VoegLijnToe("\\\\\\\ P = Picking onderdelen","\")
+		Do Document.VoegLijnToe("\\\\\\\ B = Extra bewerken    ","\")
 	
 		Do Document.Sorteer(##class(TECH.Comparator.StringComparator).%New(),7,SorteerVan,SorteerTot)
 	}
@@ -92,7 +91,8 @@
 <ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[
 	Set GlasSnijInfoLijst = ##class(%ListOfObjects).%New()
-
+	Set Uitvoer = $Select(TandemBox.GeefLadeType()=##class(DOM.PM.enu.TBXLadeType).BinnenLade():"M",1:"P")
+	
 	// Front glas snijden (Meer algemeen uitgedrukt : Front inschuifelement inkorten) 
     If (TandemBox.BevatInTeKortenFrontGlas())
 	{
@@ -115,6 +115,8 @@
 		
 		Set GlasSnijInfo = ##class(BL.PPS.TBX.impl.GlasSnijInfo).%New()
 		
+		Set GlasSnijInfo.Uitvoer = Uitvoer
+		Set GlasSnijInfo.InkortRichting = "Lengte"
 		Set GlasSnijInfo.Lengte = Lengte
 		Set GlasSnijInfo.AantalTeSnijden = AantalPickingen1
 		Set GlasSnijInfo.AantalNaSnijden = AantalSnijdingen1
@@ -145,17 +147,55 @@
 	
 		Set TeSnijdenProduct = ..ProductAPI.GeefProduct(Bouwsteen.KindProduct.ProductNr)
 		
-		Set GlasSnijInfo = ##class(BL.PPS.TBX.impl.GlasSnijInfo).%New()
+		Set IsInkortenInLengte = 0
+		If ($LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",Bouwsteen.KindProduct.ProductNr,"LadeDiepte"))'=TandemBox.GeefLadeDiepte())
+		{
+			Set IsInkortenInLengte = 1
+			
+			Set GlasSnijInfo = ##class(BL.PPS.TBX.impl.GlasSnijInfo).%New()
+			
+			Set GlasSnijInfo.Uitvoer = Uitvoer
+			Set GlasSnijInfo.InkortRichting = "Lengte"
+			Set GlasSnijInfo.Lengte = Lengte
+			Set GlasSnijInfo.AantalTeSnijden = AantalPickingen2
+			Set GlasSnijInfo.AantalNaSnijden = AantalSnijdingen2
+			Set GlasSnijInfo.TeSnijdenProduct = TeSnijdenProduct
+			Set GlasSnijInfo.Type = "Zijkant"
+			Set GlasSnijInfo.RugHoogte = $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",TeSnijdenProduct.GeefPRNr(),"RugHoogte"))
+			Set GlasSnijInfo.Kleur = $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",TeSnijdenProduct.GeefPRNr(),"Kleur"))
+			
+			Do GlasSnijInfoLijst.Insert(GlasSnijInfo)
+		}
 		
-		Set GlasSnijInfo.Lengte = Lengte
-		Set GlasSnijInfo.AantalTeSnijden = AantalPickingen2
-		Set GlasSnijInfo.AantalNaSnijden = AantalSnijdingen2
-		Set GlasSnijInfo.TeSnijdenProduct = TeSnijdenProduct
-		Set GlasSnijInfo.Type = "Zijkant"
-		Set GlasSnijInfo.RugHoogte = $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",TeSnijdenProduct.GeefPRNr(),"RugHoogte"))
-		Set GlasSnijInfo.Kleur = $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",TeSnijdenProduct.GeefPRNr(),"Kleur"))
-		
-		Do GlasSnijInfoLijst.Insert(GlasSnijInfo)
+		If ($LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",Bouwsteen.KindProduct.ProductNr,"RugHoogte")) '= "") && ($LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",Bouwsteen.KindProduct.ProductNr,"RugHoogte"))'=TandemBox.GeefZijwandHoogte())
+		{
+			Set GlasSnijInfo = ##class(BL.PPS.TBX.impl.GlasSnijInfo).%New()
+			
+			If (IsInkortenInLengte)
+			{
+				Set GlasSnijInfo.Uitvoer = "B"
+			}
+			Else
+			{
+				Set GlasSnijInfo.Uitvoer = Uitvoer
+			}
+			Set GlasSnijInfo.InkortRichting = "Hoogte"
+			
+			Set Lengte = 72.5
+			If (TandemBox.GeefZijwandHoogte()'= "C")
+			{
+				Set Lengte = "?"
+			}
+			Set GlasSnijInfo.Lengte = Lengte
+			Set GlasSnijInfo.AantalTeSnijden = AantalPickingen2
+			Set GlasSnijInfo.AantalNaSnijden = AantalSnijdingen2
+			Set GlasSnijInfo.TeSnijdenProduct = TeSnijdenProduct
+			Set GlasSnijInfo.Type = "Zijkant"
+			Set GlasSnijInfo.RugHoogte = $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",TeSnijdenProduct.GeefPRNr(),"RugHoogte"))
+			Set GlasSnijInfo.Kleur = $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",TeSnijdenProduct.GeefPRNr(),"Kleur"))
+			
+			Do GlasSnijInfoLijst.Insert(GlasSnijInfo)
+		}
 	}
 
     Quit GlasSnijInfoLijst
Index: BL/PPS/TBX/impl/GlasSnijInfo.cls.xml
===================================================================
diff -u -r1133 -r1463
--- BL/PPS/TBX/impl/GlasSnijInfo.cls.xml	(.../GlasSnijInfo.cls.xml)	(revision 1133)
+++ BL/PPS/TBX/impl/GlasSnijInfo.cls.xml	(.../GlasSnijInfo.cls.xml)	(revision 1463)
@@ -32,5 +32,15 @@
 <Property name="TeSnijdenProduct">
 <Type>DOM.PM.Product</Type>
 </Property>
+
+<Property name="InkortRichting">
+<Description>
+Hoogte of lengte</Description>
+<Type>%String</Type>
+</Property>
+
+<Property name="Uitvoer">
+<Type>%String</Type>
+</Property>
 </Class>
 </Export>
Index: vhUnitTest/BL/PPS/TBX/TestDocs.cls.xml
===================================================================
diff -u -r1447 -r1463
--- vhUnitTest/BL/PPS/TBX/TestDocs.cls.xml	(.../TestDocs.cls.xml)	(revision 1447)
+++ vhUnitTest/BL/PPS/TBX/TestDocs.cls.xml	(.../TestDocs.cls.xml)	(revision 1463)
@@ -64,6 +64,37 @@
 	Do $$$AssertEquals(GlasSnijInfo.RugHoogte,"","De rughoogte")
 	Do $$$AssertEquals(GlasSnijInfo.Lengte,440,"De Lengte")
 	Do $$$AssertEquals(GlasSnijInfo.TeSnijdenProduct.GeefPRNr(),385941,"Het in te korten product")
+	
+	
+	
+	Set Product = ProductAPI.GeefProduct(580416)
+	
+	Set GlasSnijInfoLijst = DocsGlasSnijLijst.VerwerkProduct(Product,2)
+	
+	Do $$$AssertEquals(GlasSnijInfoLijst.Count(),2,"Er zijn 2 info objecten -> zijkant inkorten in hoogte en lengte")
+	
+	Set GlasSnijInfo = GlasSnijInfoLijst.GetAt(1)
+	
+	Do $$$AssertEquals(GlasSnijInfo.Type,"Zijkant","Een in te korten zijkantglas")
+	Do $$$AssertEquals(GlasSnijInfo.AantalTeSnijden,2,"Aantal te snijden")
+	Do $$$AssertEquals(GlasSnijInfo.AantalNaSnijden,4,"Aantal te bekomen")
+	Do $$$AssertEquals(GlasSnijInfo.Kleur,"LE.ZW","De kleur")
+	Do $$$AssertEquals(GlasSnijInfo.RugHoogte,"D","De rughoogte")
+	Do $$$AssertEquals(GlasSnijInfo.Lengte,290,"De Lengte")
+	Do $$$AssertEquals(GlasSnijInfo.TeSnijdenProduct.GeefPRNr(),513015,"Het in te korten product")
+	Do $$$AssertEquals(GlasSnijInfo.InkortRichting,"Lengte","Inkorten in de lengte")
+	
+	Set GlasSnijInfo = GlasSnijInfoLijst.GetAt(2)
+	
+	Do $$$AssertEquals(GlasSnijInfo.Type,"Zijkant","Een in te korten zijkantglas")
+	Do $$$AssertEquals(GlasSnijInfo.AantalTeSnijden,2,"Aantal te snijden")
+	Do $$$AssertEquals(GlasSnijInfo.AantalNaSnijden,4,"Aantal te bekomen")
+	Do $$$AssertEquals(GlasSnijInfo.Kleur,"LE.ZW","De kleur")
+	Do $$$AssertEquals(GlasSnijInfo.RugHoogte,"D","De rughoogte")
+	Do $$$AssertEquals(GlasSnijInfo.Lengte,72.5,"De Lengte")
+	Do $$$AssertEquals(GlasSnijInfo.TeSnijdenProduct.GeefPRNr(),513015,"Het in te korten product")
+	Do $$$AssertEquals(GlasSnijInfo.InkortRichting,"Hoogte","Inkorten in de Hoogte")
+	Do $$$AssertEquals(GlasSnijInfo.Uitvoer,"B","Extra bewerking nodig")
 ]]></Implementation>
 </Method>
 
@@ -135,7 +166,8 @@
 	Set ^PRBS("BS",473598,"PRBXKG.001")="454302\2\H\\\\\\\4\RELING\\Boxkap glas, links, 500mm, Diamant gezuurd\\\\\Monteren Zijkant\MON\\"
 	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",473598,"DC","I")
 	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",473598,"LD",270)
-
+	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",473598,"RH","C")
+	
 	Set ^KPR(433490,0) = "TB9DLI.KYCF500x563 C TSBZ\Tandembox voorraadlade D\209370\\8\\226.67\C#C\\703100\D:500xB:563;bodem:BruinZwart\\\\\\\6\2.6153\\\\\\\\"
 	Set ^KPR(433490,1) = "10\3\\\\\1\\\\\\6479.3\\\\\\\\0#0\Tiroir-casserole rehaussé\0#0#0\999#0#0\\\"
 	Set ^KPR(433490,2) = "High fronted pull-out D\Höhe Frontauszug D\\\\\\14\0#0\\Z\E\\\2\\A;61376,41490\204.6\144\0.6\6.5\756\885\\9.334.901.4\\"
@@ -156,6 +188,7 @@
 	Set ^PRBS("BS",433490,"PRBXKG.001") = "385941\2\H\\\\\\\3\RELING\\Boxkap glas, links, 500mm, Brons\\\\\Onderdelen 2\LOS\\"
 	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",433490,"DC","I")
 	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",433490,"LD",500)
+	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",433490,"RH","C")
 	
  	Quit $$$OK
 ]]></Implementation>
Index: DOM/PM/TBXProduct/impl/TBXLadeImpl.cls.xml
===================================================================
diff -u -r1075 -r1463
--- DOM/PM/TBXProduct/impl/TBXLadeImpl.cls.xml	(.../TBXLadeImpl.cls.xml)	(revision 1075)
+++ DOM/PM/TBXProduct/impl/TBXLadeImpl.cls.xml	(.../TBXLadeImpl.cls.xml)	(revision 1463)
@@ -113,6 +113,7 @@
 	ElseIf ..HeeftKey("PRBXKG.001") {                         ; producten met een boxkapglas 
 		Set KPRNr=$P(^PRBS("BS",..GeefPRNr(),"PRBXKG.001"),"\")
 		Set BevatInTeKortenZijkantGlas = ( $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",KPRNr,"LadeDiepte"))'=..GeefLadeDiepte() )
+										|| (($LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",KPRNr,"RugHoogte")) '= "") && ( $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",KPRNr,"RugHoogte"))'=..GeefZijwandHoogte() ) )
 	}
 	Quit BevatInTeKortenZijkantGlas
 ]]></Implementation>
Index: BL/PPS/TBX/LijstDefinities/GlasSnijlijstDefinitie.cls.xml
===================================================================
diff -u -r1133 -r1463
--- BL/PPS/TBX/LijstDefinities/GlasSnijlijstDefinitie.cls.xml	(.../GlasSnijlijstDefinitie.cls.xml)	(revision 1133)
+++ BL/PPS/TBX/LijstDefinities/GlasSnijlijstDefinitie.cls.xml	(.../GlasSnijlijstDefinitie.cls.xml)	(revision 1463)
@@ -19,7 +19,7 @@
 	Set Kolom3 = ##class(TECH.Print.Kolommen.KolomDefinitie).%New("Aant",,##class(TECH.Print.Kolommen.TekstType).String(),##class(TECH.Print.Kolommen.TekstUitlijning).Rechts())
 	Set Kolom4 = ##class(TECH.Print.Kolommen.KolomDefinitie).%New("Kleur",,##class(TECH.Print.Kolommen.TekstType).String(),##class(TECH.Print.Kolommen.TekstUitlijning).Rechts())
 	Set Kolom5 = ##class(TECH.Print.Kolommen.KolomDefinitie).%New("RH",,##class(TECH.Print.Kolommen.TekstType).String(),##class(TECH.Print.Kolommen.TekstUitlijning).Rechts()) 
-	Set Kolom6 = ##class(TECH.Print.Kolommen.KolomDefinitie).%New("Lengte",,##class(TECH.Print.Kolommen.TekstType).String(),##class(TECH.Print.Kolommen.TekstUitlijning).Rechts())
+	Set Kolom6 = ##class(TECH.Print.Kolommen.KolomDefinitie).%New("Afm.  ",,##class(TECH.Print.Kolommen.TekstType).String(),##class(TECH.Print.Kolommen.TekstUitlijning).Links())
 	Set Kolom7 = ##class(TECH.Print.Kolommen.KolomDefinitie).%New("^",,##class(TECH.Print.Kolommen.TekstType).String(),##class(TECH.Print.Kolommen.TekstUitlijning).Rechts())
 	Set Kolom8 = ##class(TECH.Print.Kolommen.KolomDefinitie).%New("Product",24,##class(TECH.Print.Kolommen.TekstType).String(),##class(TECH.Print.Kolommen.TekstUitlijning).Rechts())