Index: vhUnitTest/DOM/OV/TestBon.cls.xml
===================================================================
diff -u -r734 -r915
--- vhUnitTest/DOM/OV/TestBon.cls.xml	(.../TestBon.cls.xml)	(revision 734)
+++ vhUnitTest/DOM/OV/TestBon.cls.xml	(.../TestBon.cls.xml)	(revision 915)
@@ -1,11 +1,11 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-01-27 17:01:12">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-04 08:01:32">
 <Class name="vhUnitTest.DOM.OV.TestBon">
 <Description>
 do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","DOM.OV.TestBon")</Description>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.TestCase</Super>
-<TimeChanged>62109,44706.555528</TimeChanged>
+<TimeChanged>62154,28962.399797</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="TestBon">
@@ -18,29 +18,29 @@
 	Set Bon = OrderAPI.GeefBon(BonNr)
 	Do $$$AssertTrue(Bon.%Extends("DOM.OV.Bon"),"Het object is een bon")
 	
-	Set BonLijnIterator = Bon.GeefBonLijnIterator()
-	Do $$$AssertTrue(BonLijnIterator.%Extends("TECH.Iterator"),"De iterator is correct teruggegeven")
-	Do $$$AssertTrue(BonLijnIterator.HasNext(),"De bon bevat een volgende lijn")
-	Do $$$AssertTrue(BonLijnIterator.Next().%Extends("DOM.OV.impl.DataM.DataMOrderlijn"),"De lijn is een product order lijn")
-	Do $$$AssertTrue(BonLijnIterator.HasNext(),"De bon bevat een volgende lijn")
-	Do $$$AssertTrue(BonLijnIterator.Next().%Extends("DOM.OV.impl.DataM.DataMProductOrderlijn"),"De lijn is een product order lijn")
-	Do $$$AssertTrue(BonLijnIterator.HasNext(),"De bon bevat een volgende lijn")
-	Do $$$AssertTrue(BonLijnIterator.Next().%Extends("DOM.OV.impl.DataM.DataMProductOrderlijn"),"De lijn is een product order lijn")
-	Do $$$AssertTrue(BonLijnIterator.HasNext(),"De bon bevat een volgende lijn")
-	Do $$$AssertTrue(BonLijnIterator.Next().%Extends("DOM.OV.impl.DataM.DataMProductOrderlijn"),"De lijn is een product order lijn")
-	Do $$$AssertTrue(BonLijnIterator.HasNext(),"De bon bevat een volgende lijn")
-	Do $$$AssertTrue(BonLijnIterator.Next().%Extends("DOM.OV.impl.DataM.DataMProductOrderlijn"),"De lijn is een product order lijn")
-	Do $$$AssertTrue(BonLijnIterator.HasNext(),"De bon bevat een volgende lijn")
-	Do $$$AssertTrue(BonLijnIterator.Next().%Extends("DOM.OV.impl.DataM.DataMProductOrderlijn"),"De lijn is een product order lijn")
-	Do $$$AssertTrue(BonLijnIterator.HasNext(),"De bon bevat een volgende lijn")
-	Do $$$AssertTrue(BonLijnIterator.Next().%Extends("DOM.OV.impl.DataM.DataMProductOrderlijn"),"De lijn is een product order lijn")
-	Do $$$AssertFalse(BonLijnIterator.HasNext(),"De bon bevat geen volgende lijn")
+	Set BonlijnIterator = Bon.GeefBonlijnIterator()
+	Do $$$AssertTrue(BonlijnIterator.%Extends("TECH.Iterator"),"De iterator is correct teruggegeven")
+	Do $$$AssertTrue(BonlijnIterator.HasNext(),"De bon bevat een volgende lijn")
+	Do $$$AssertTrue(BonlijnIterator.Next().%Extends("DOM.OV.impl.DataM.DataMOrderlijn"),"De lijn is een product order lijn")
+	Do $$$AssertTrue(BonlijnIterator.HasNext(),"De bon bevat een volgende lijn")
+	Do $$$AssertTrue(BonlijnIterator.Next().%Extends("DOM.OV.impl.DataM.DataMProductOrderlijn"),"De lijn is een product order lijn")
+	Do $$$AssertTrue(BonlijnIterator.HasNext(),"De bon bevat een volgende lijn")
+	Do $$$AssertTrue(BonlijnIterator.Next().%Extends("DOM.OV.impl.DataM.DataMProductOrderlijn"),"De lijn is een product order lijn")
+	Do $$$AssertTrue(BonlijnIterator.HasNext(),"De bon bevat een volgende lijn")
+	Do $$$AssertTrue(BonlijnIterator.Next().%Extends("DOM.OV.impl.DataM.DataMProductOrderlijn"),"De lijn is een product order lijn")
+	Do $$$AssertTrue(BonlijnIterator.HasNext(),"De bon bevat een volgende lijn")
+	Do $$$AssertTrue(BonlijnIterator.Next().%Extends("DOM.OV.impl.DataM.DataMProductOrderlijn"),"De lijn is een product order lijn")
+	Do $$$AssertTrue(BonlijnIterator.HasNext(),"De bon bevat een volgende lijn")
+	Do $$$AssertTrue(BonlijnIterator.Next().%Extends("DOM.OV.impl.DataM.DataMProductOrderlijn"),"De lijn is een product order lijn")
+	Do $$$AssertTrue(BonlijnIterator.HasNext(),"De bon bevat een volgende lijn")
+	Do $$$AssertTrue(BonlijnIterator.Next().%Extends("DOM.OV.impl.DataM.DataMProductOrderlijn"),"De lijn is een product order lijn")
+	Do $$$AssertFalse(BonlijnIterator.HasNext(),"De bon bevat geen volgende lijn")
 	
-	Set TypedBonIterator = Bon.GeefTypeBonLijnIterator(##class(DOM.OV.enu.BonlijnType).Tekst())
+	Set TypedBonIterator = Bon.GeefTypeBonlijnIterator(##class(DOM.OV.enu.BonlijnType).Tekst())
 	Do $$$AssertTrue(TypedBonIterator.%Extends("TECH.Iterator"),"De iterator is correct teruggegeven")
 	Do $$$AssertFalse(TypedBonIterator.HasNext(),"De bon bevat geen tekstlijnen")
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="3485194033"/>
+<Checksum value="2654868308"/>
 </Export>