Index: vhUnitTest/BL/PPS/TBX/TestDocs.cls.xml
===================================================================
diff -u -r40261 -r65095
--- vhUnitTest/BL/PPS/TBX/TestDocs.cls.xml	(.../TestDocs.cls.xml)	(revision 40261)
+++ vhUnitTest/BL/PPS/TBX/TestDocs.cls.xml	(.../TestDocs.cls.xml)	(revision 65095)
@@ -106,30 +106,32 @@
 	
 	#dim GlasSnijInfoLijst As %ListOfObjects = ..DocsGlasSnijLijst.VerwerkProduct(Product,2)
 	
-	Do $$$AssertEquals(GlasSnijInfoLijst.Count(),2,"Er zijn 2 info objecten -> zijkant inkorten in hoogte en lengte")
+	Do $$$AssertEquals(GlasSnijInfoLijst.Count(),2,"Verwacht 2 info objecten -> zijkant inkorten in hoogte en lengte")
 	
 	#dim GlasSnijInfo As BL.PPS.TBX.impl.GlasSnijInfo = GlasSnijInfoLijst.GetAt(1)
+	If $$$AssertTrue($IsObject(GlasSnijInfo)) {
+		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")
+	}
 	
-	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")
+	If $$$AssertTrue($IsObject(GlasSnijInfo)) {
+		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>