Index: vhUnitTest/DOM/BKH/Grootboek/impl/SaldiIterator/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/BKH/Grootboek/impl/SaldiIterator/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/BKH/Grootboek/impl/SaldiIterator/Test.cls.xml	(revision 34927)
@@ -0,0 +1,41 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.BKH.Grootboek.impl.SaldiIterator.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test">
+<Implementation><![CDATA[
+	set RekeningIterator = ##class(TECH.PiecesIterator).%New("1000\2000\3000","\")
+	
+	set SaldiBerekenaar = ##class(vhTest.Mock.DOM.BKH.Grootboek.impl.SaldiBerekenaar).%New()
+	do SaldiBerekenaar.IndienMethodCall("Bereken",2015,1000).DanReturn(1000000)
+	do SaldiBerekenaar.IndienMethodCall("Bereken",2015,2000).DanReturn(0)
+	do SaldiBerekenaar.IndienMethodCall("Bereken",2015,3000).DanReturn(-300)
+		
+	set SaldiIterator = ##class(DOM.BKH.Grootboek.impl.SaldiIterator).%New("2015",RekeningIterator,SaldiBerekenaar)
+	
+	do $$$AssertTrue(SaldiIterator.HasNext())
+	
+	do ..AssertSaldi(SaldiIterator.Next(),2015,1000,1000000)
+	
+	do $$$AssertTrue(SaldiIterator.HasNext())
+	
+	do ..AssertSaldi(SaldiIterator.Next(),2015,3000,-300)
+	
+	do $$$AssertFalse(SaldiIterator.HasNext())
+]]></Implementation>
+</Method>
+
+<Method name="AssertSaldi">
+<FormalSpec>Saldi:DOM.BKH.Grootboek.dto.Saldi,Boekjaar:%String,RekeningId:%String,Bedrag:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	do $$$AssertEquals(Saldi.Boekjaar,Boekjaar)
+	do $$$AssertEquals(Saldi.GrootboekRekeningId,RekeningId)
+	do $$$AssertEquals(Saldi.Bedrag,Bedrag)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/BKH/Grootboek/impl/SaldiIterator.cls.xml
===================================================================
diff -u
--- DOM/BKH/Grootboek/impl/SaldiIterator.cls.xml	(revision 0)
+++ DOM/BKH/Grootboek/impl/SaldiIterator.cls.xml	(revision 34927)
@@ -0,0 +1,72 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.BKH.Grootboek.impl.SaldiIterator">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="SaldiBerekenaar">
+<Type>DOM.BKH.Grootboek.impl.SaldiBerekenaar</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Iterator">
+<Type>TECH.Iterator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Boekjaar">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Saldi">
+<Type>DOM.BKH.Grootboek.dto.Saldi</Type>
+<InitialExpression>##class(DOM.BKH.Grootboek.dto.Saldi).%New()</InitialExpression>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Boekjaar:%String,Iterator:TECH.Iterator,SaldiBerekenaar:DOM.BKH.Grootboek.impl.SaldiBerekenaar</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..Boekjaar = Boekjaar
+	set ..Iterator = $$$Inject(Iterator,##class(TECH.GlobalIndexIterator).%New($name(^KAR),1))
+	set ..SaldiBerekenaar = $$$Inject(SaldiBerekenaar,##class(DOM.BKH.Grootboek.impl.SaldiBerekenaar).%New())
+	
+	do ..GetNext()
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="HasNext">
+<Implementation><![CDATA[	quit $$$Not(..Saldi.Bedrag = 0 )
+]]></Implementation>
+</Method>
+
+<Method name="Next">
+<Implementation><![CDATA[
+	#dim Saldi = ..Saldi
+	set ..Saldi = ##class(DOM.BKH.Grootboek.dto.Saldi).%New()
+	do ..GetNext()
+	quit Saldi
+]]></Implementation>
+</Method>
+
+<Method name="GetNext">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Gevonden As %Boolean  = 0
+	while (..Iterator.HasNext() ) && ('Gevonden) {
+		#dim Grootboekrekening As %String = $$$Trim(..Iterator.Next())
+		#dim Saldi As %Decimal = ..SaldiBerekenaar.Bereken(..Boekjaar,Grootboekrekening)
+		set Gevonden = $$$Not(Saldi = 0)
+	}
+	set:Gevonden ..Saldi = ##class(DOM.BKH.Grootboek.dto.Saldi).%New(..Boekjaar,Grootboekrekening,Saldi)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/BKH/Grootboek/dto/Saldi.cls.xml
===================================================================
diff -u
--- DOM/BKH/Grootboek/dto/Saldi.cls.xml	(revision 0)
+++ DOM/BKH/Grootboek/dto/Saldi.cls.xml	(revision 34927)
@@ -0,0 +1,34 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.BKH.Grootboek.dto.Saldi">
+<Super>TECH.DataTransferObject</Super>
+
+<Property name="Boekjaar">
+<Type>%String</Type>
+</Property>
+
+<Property name="GrootboekRekeningId">
+<Type>%String</Type>
+</Property>
+
+<Property name="Bedrag">
+<Type>%Decimal</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Boekjaar:%String="",GrootboekRekeningId:%String="",Bedrag:%Decimal=0</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..Boekjaar = Boekjaar
+	set ..GrootboekRekeningId = GrootboekRekeningId
+	set ..Bedrag = Bedrag
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>