Index: vhTest/Mock/DOM/VKP/Factuur.cls.xml
===================================================================
diff -u -r32241 -r34617
--- vhTest/Mock/DOM/VKP/Factuur.cls.xml	(.../Factuur.cls.xml)	(revision 32241)
+++ vhTest/Mock/DOM/VKP/Factuur.cls.xml	(.../Factuur.cls.xml)	(revision 34617)
@@ -47,6 +47,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefBoekhoudBoekingen">
+<ReturnType>DOM.VKP.Factuur.dto.BoekhoudBoekingList</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefBoekhoudBoekingen")
+]]></Implementation>
+</Method>
+
 <Method name="GeefBonIterator">
 <ReturnType>TECH.Iterator</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefBonIterator")
Index: DOM/VKP/Factuur.cls.xml
===================================================================
diff -u -r32241 -r34617
--- DOM/VKP/Factuur.cls.xml	(.../Factuur.cls.xml)	(revision 32241)
+++ DOM/VKP/Factuur.cls.xml	(.../Factuur.cls.xml)	(revision 34617)
@@ -217,6 +217,11 @@
 <ReturnType>DOM.common.enu.B2CPersonality</ReturnType>
 <Implementation><![CDATA[]]></Implementation>
 </Method>
+
+<Method name="GeefBoekhoudBoekingen">
+<Abstract>1</Abstract>
+<ReturnType>DOM.VKP.Factuur.dto.BoekhoudBoekingList</ReturnType>
+</Method>
 </Class>
 
 
Index: DOM/VKP/impl/DataM/DataMFactuur.cls.xml
===================================================================
diff -u -r32241 -r34617
--- DOM/VKP/impl/DataM/DataMFactuur.cls.xml	(.../DataMFactuur.cls.xml)	(revision 32241)
+++ DOM/VKP/impl/DataM/DataMFactuur.cls.xml	(.../DataMFactuur.cls.xml)	(revision 34617)
@@ -279,6 +279,38 @@
 	Quit PersonalityViaOorsprongBepaler.GeefPersonality(..GeefOorsprong()).GeefID()
 ]]></Implementation>
 </Method>
+
+<Method name="GeefBoekhoudBoekingen">
+<ReturnType>DOM.VKP.Factuur.dto.BoekhoudBoekingList</ReturnType>
+<Implementation><![CDATA[
+	set BoekingPerRekening = ##class(%ArrayOfDataTypes).%New()
+	
+	#dim Iterator As TECH.Iterator = ..GeefBonLijnIterator()
+	while Iterator.HasNext() {
+		#dim Lijn As DOM.VKP.PrijsOrderlijnMetBoekhoudInfo = Iterator.Next()
+		continue:($$$Not(##class(TECH.StringUtils).Equals(Lijn.GeefType(),##class(DOM.VKP.enu.BonLijnType).Product(),##class(DOM.VKP.enu.BonLijnType).Manueel())))
+		#dim Rekening As %String = $$$Trim(Lijn.GeefBoekhoudkundigeRekening())
+		#dim Bedrag As %String = Lijn.GeefTotaalNettoExclBTW()
+		
+		#dim Totaal As %String = BoekingPerRekening.GetAt(Rekening)
+		do BoekingPerRekening.SetAt(Bedrag+Totaal,Rekening)
+	}
+	
+	#dim Port As %Decimal = +$piece($piece(^KFA("F",..FactuurNummer,0,0),"\",17),"#",2)
+	do:Port'=0 BoekingPerRekening.SetAt(Port,746000)
+	
+	set List = ##class(DOM.VKP.Factuur.dto.BoekhoudBoekingList).%New()
+	set BoekingPerRekeningIterator = ##class(TECH.ListIterator).%New(BoekingPerRekening)
+	while BoekingPerRekeningIterator.HasNext() {
+		set BoekhoudBoeking = ##class(DOM.VKP.Factuur.dto.BoekhoudBoeking).%New()
+		set BoekhoudBoeking.Bedrag = BoekingPerRekeningIterator.Next()
+		set BoekhoudBoeking.BoekhoudRekeningId = BoekingPerRekeningIterator.Key()
+		do List.Insert(BoekhoudBoeking)
+	}
+	
+	quit List
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: DOM/VKP/Factuur/dto/BoekhoudBoekingList.cls.xml
===================================================================
diff -u
--- DOM/VKP/Factuur/dto/BoekhoudBoekingList.cls.xml	(revision 0)
+++ DOM/VKP/Factuur/dto/BoekhoudBoekingList.cls.xml	(revision 34617)
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.VKP.Factuur.dto.BoekhoudBoekingList">
+<Super>%ListOfObjects</Super>
+
+<Parameter name="ELEMENTTYPE">
+<Description>
+The type (class name) of the elements stored in the collection.</Description>
+<Default>DOM.VKP.BoekhoudBoeking</Default>
+</Parameter>
+
+<Storage name="Custom">
+<Type>%Library.CompleteCustomStorage</Type>
+</Storage>
+</Class>
+
+
+</Export>
Index: vhTest/Utils/DOM/VKP/Factuur.cls.xml
===================================================================
diff -u
--- vhTest/Utils/DOM/VKP/Factuur.cls.xml	(revision 0)
+++ vhTest/Utils/DOM/VKP/Factuur.cls.xml	(revision 34617)
@@ -0,0 +1,8 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Utils.DOM.VKP.Factuur">
+<Super>TECH.RegisteredObject</Super>
+</Class>
+
+
+</Export>
Index: DOM/VKP/impl/DataM/DataMFactProfAbstract.cls.xml
===================================================================
diff -u -r29059 -r34617
--- DOM/VKP/impl/DataM/DataMFactProfAbstract.cls.xml	(.../DataMFactProfAbstract.cls.xml)	(revision 29059)
+++ DOM/VKP/impl/DataM/DataMFactProfAbstract.cls.xml	(.../DataMFactProfAbstract.cls.xml)	(revision 34617)
@@ -5,7 +5,7 @@
 TO DO : BTW uitsplitising </Description>
 <ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject</Super>
+<Super>TECH.RegisteredObject</Super>
 
 <Property name="NodeAlg">
 <Type>%String</Type>
Index: vhUnitTest/DOM/VKP/impl/DataM/DataMFactuur/GeefBoekhoudBoekingen/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/VKP/impl/DataM/DataMFactuur/GeefBoekhoudBoekingen/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/VKP/impl/DataM/DataMFactuur/GeefBoekhoudBoekingen/Test.cls.xml	(revision 34617)
@@ -0,0 +1,53 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.VKP.impl.DataM.DataMFactuur.GeefBoekhoudBoekingen.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Steekproef01">
+<Implementation><![CDATA[
+	set Factuur = ##class(DOM.VKP.impl.DataM.DataMFactuur).%New(564447)
+	#dim Boekingen As DOM.VKP.Factuur.dto.BoekhoudBoekingList = Factuur.GeefBoekhoudBoekingen()
+	
+	if $$$AssertEquals(Boekingen.Count(),1) {
+		do $$$AssertEquals(Boekingen.GetAt(1).Bedrag,"5700.76")	
+		do $$$AssertEquals(Boekingen.GetAt(1).BoekhoudRekeningId,"743000")	
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Test: Steekproef02">
+<Implementation><![CDATA[
+	set Factuur = ##class(DOM.VKP.impl.DataM.DataMFactuur).%New(564519)
+	#dim Boekingen As DOM.VKP.Factuur.dto.BoekhoudBoekingList = Factuur.GeefBoekhoudBoekingen()
+	
+	if $$$AssertEquals(Boekingen.Count(),2) {
+		do $$$AssertEquals(Boekingen.GetAt(1).Bedrag,"15771.11")	
+		do $$$AssertEquals(Boekingen.GetAt(1).BoekhoudRekeningId,"703000")	
+		
+		do $$$AssertEquals(Boekingen.GetAt(2).Bedrag,"337.27")	
+		do $$$AssertEquals(Boekingen.GetAt(2).BoekhoudRekeningId,"703100")	
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Test: Steekproef03">
+<Implementation><![CDATA[
+	set Factuur = ##class(DOM.VKP.impl.DataM.DataMFactuur).%New(548103)
+	#dim Boekingen As DOM.VKP.Factuur.dto.BoekhoudBoekingList = Factuur.GeefBoekhoudBoekingen()
+	
+	if $$$AssertEquals(Boekingen.Count(),3) {
+		do $$$AssertEquals(Boekingen.GetAt(1).Bedrag,"20.92")	
+		do $$$AssertEquals(Boekingen.GetAt(1).BoekhoudRekeningId,"703000")	
+		
+		do $$$AssertEquals(Boekingen.GetAt(2).Bedrag,"162.16")	
+		do $$$AssertEquals(Boekingen.GetAt(2).BoekhoudRekeningId,"703100")	
+		
+		do $$$AssertEquals(Boekingen.GetAt(3).Bedrag,"10.91")	
+		do $$$AssertEquals(Boekingen.GetAt(3).BoekhoudRekeningId,"746000")	
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/VKP/Factuur/dto/BoekhoudBoeking.cls.xml
===================================================================
diff -u
--- DOM/VKP/Factuur/dto/BoekhoudBoeking.cls.xml	(revision 0)
+++ DOM/VKP/Factuur/dto/BoekhoudBoeking.cls.xml	(revision 34617)
@@ -0,0 +1,17 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.VKP.Factuur.dto.BoekhoudBoeking">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="Bedrag">
+<Type>%Decimal</Type>
+<Parameter name="SCALE" value="2"/>
+</Property>
+
+<Property name="BoekhoudRekeningId">
+<Type>%String</Type>
+</Property>
+</Class>
+
+
+</Export>