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>