Index: DOM/BKH/impl/AX/VerkoopFactuur.cls.xml
===================================================================
diff -u -r35777 -r36626
--- DOM/BKH/impl/AX/VerkoopFactuur.cls.xml	(.../VerkoopFactuur.cls.xml)	(revision 35777)
+++ DOM/BKH/impl/AX/VerkoopFactuur.cls.xml	(.../VerkoopFactuur.cls.xml)	(revision 36626)
@@ -18,20 +18,38 @@
 <Private>1</Private>
 </Property>
 
+<Property name="FactuurId">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="Factuur">
 <Type>DOM.VKP.Factuur</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="DateTimeAPI">
+<Type>TECH.DateTime.DateTimeAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="VerkoopFactuurVoldaanRepository">
+<Type>DOM.BKH.impl.VerkoopFactuurVoldaanRepository</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>Periode:%String,FactuurID:%String</FormalSpec>
+<FormalSpec>Periode:%String,FactuurID:%String,VerkoopFactuurVoldaanRepository:DOM.BKH.impl.VerkoopFactuurVoldaanRepository,DateTimeAPI:TECH.DateTime.DateTimeAPI</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	#dim Status As %Status = $$$OK
+	set ..FactuurId = FactuurID
 	set ..Factuur = ##class(DOM.DomeinContext).Instance().GeefOrderAPI().GeefFactuur(FactuurID)
 	set ..Periode = Periode
+	set ..VerkoopFactuurVoldaanRepository = $$$Inject(VerkoopFactuurVoldaanRepository,##class(DOM.BKH.impl.VerkoopFactuurVoldaanRepository).%New())
+	set ..DateTimeAPI = $$$Inject(DateTimeAPI,##class(TECH.Context).Instance().GeefDateTimeAPI())
 	quit Status
 ]]></Implementation>
 </Method>
@@ -69,8 +87,8 @@
 <ReturnType>%Double</ReturnType>
 <Implementation><![CDATA[
 	#dim Bedrag As %Decimal = 0
-	if $data(@("^"_..#PartijGlobal_"(..GeefPartijIndex(),..Factuur)")) {
-		set Bedrag = $piece(@("^"_..#PartijGlobal_"(..GeefPartijIndex(),..Factuur)"),"\",10)
+	if $data(@("^"_..#PartijGlobal_"(..GeefPartijIndex(),..FactuurId)")) {
+		set Bedrag = $piece(@("^"_..#PartijGlobal_"(..GeefPartijIndex(),..FactuurId)"),"\",10)
 	}
 	quit +Bedrag
 ]]></Implementation>
@@ -107,12 +125,12 @@
 <ReturnType>%Date</ReturnType>
 <Implementation><![CDATA[
 	#dim DatumVoldaan As %Date = ""
-	if ..IsVoldaan() { 
-		set implDatumVoldaan = ##class(DOM.BKH.impl.VerkoopFactuurVoldaan).%OpenId(..Factuur)
-		if $IsObject(implDatumVoldaan) { 
+	if ..IsVoldaan() {
+		if ..VerkoopFactuurVoldaanRepository.BestaatViaID(..FactuurId) {
+			#dim implDatumVoldaan As DOM.BKH.impl.VerkoopFactuurVoldaan = ..VerkoopFactuurVoldaanRepository.GeefViaID(..FactuurId)
 			set DatumVoldaan = implDatumVoldaan.Datum		
 		} else { 
-			set DatumVoldaan = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate()
+			set DatumVoldaan = ..DateTimeAPI.CurrentDate()
 		}
 	}
 	quit DatumVoldaan
Index: vhUnitTest/DOM/BKH/impl/AX/VerkoopFactuur/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/BKH/impl/AX/VerkoopFactuur/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/BKH/impl/AX/VerkoopFactuur/Test.cls.xml	(revision 36626)
@@ -0,0 +1,112 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.BKH.impl.AX.VerkoopFactuur.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="Klant">
+<Type>DOM.VKP.VanHoeckeKlant</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestCase:%String</FormalSpec>
+<Implementation><![CDATA[
+	do ##super(aTestCase)
+	set ..Klant = ##class(vhTest.Data.DOM.VKP.VanHoeckeKlant).MaakBelgischeOnderneming()
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterOneTest">
+<FormalSpec>aTestCase:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().VerwijderKlant(..Klant.GeefID())
+	do ##super(aTestCase)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Openstaande bedrag indien geen data in KKL --&gt; 0">
+<Implementation><![CDATA[
+	do ..InitOrderAPIStub(123456)
+		
+	set VerkoopFactuur = ##class(DOM.BKH.impl.AX.VerkoopFactuur).%New(2016.07,123456)
+	do $$$AssertEquals(VerkoopFactuur.GeefOpenstaandBedrag(),"0")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Openstaande bedrag indien data in KKL --&gt; openstaand bedrag wordt correct opgehaald">
+<Implementation><![CDATA[
+	do ..InitOrderAPIStub(123456)
+	
+	set $piece(^KKL(..Klant.GeefKlantIndexKKL(),123456),"\",10) = 123.45
+
+	set VerkoopFactuur = ##class(DOM.BKH.impl.AX.VerkoopFactuur).%New(2016.07,123456)
+	
+	do $$$AssertEquals(VerkoopFactuur.GeefOpenstaandBedrag(),123.45)
+]]></Implementation>
+</Method>
+
+<Method name="Test: GeefDatumVoldaan - Indien voldaan datum geregisteerd nemen we de datum van die registratie">
+<Implementation><![CDATA[
+	do ..InitOrderAPIStub(123456)
+
+	set VerkoopFactuurVoldaan = ##class(DOM.BKH.impl.VerkoopFactuurVoldaan).%New()
+	set VerkoopFactuurVoldaan.Datum = $$INTDATE^vhLib.DataTypes("01.08.2016")
+
+	set VerkoopFactuurVoldaanRepoMock = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()	
+	do VerkoopFactuurVoldaanRepoMock.VerwachtMethodCall("BestaatViaID",123456).DanReturn($$$True)
+	do VerkoopFactuurVoldaanRepoMock.VerwachtMethodCall("GeefViaID",123456).DanReturn(VerkoopFactuurVoldaan)
+		
+	set VerkoopFactuur = ##class(DOM.BKH.impl.AX.VerkoopFactuur).%New(2016.07,123456,VerkoopFactuurVoldaanRepoMock)
+	
+	do $$$AssertEqualsDate(VerkoopFactuur.GeefDatumVoldaan(),"01.08.2016")
+	
+	do VerkoopFactuurVoldaanRepoMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: GeefDatumVoldaan - Indien voldaan niet geregistreerd nemen we de huidige datum">
+<Implementation><![CDATA[
+	do ..InitOrderAPIStub(123456)
+
+	set VerkoopFactuurVoldaanRepoStub = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()	
+	do VerkoopFactuurVoldaanRepoStub.IndienMethodCall("BestaatViaID",123456).DanReturn($$$False)
+	
+	set DateTimeApiMock = ##class(vhTest.Mock.TECH.DateTime.DateTimeAPI).%New()
+	do DateTimeApiMock.VerwachtMethodCall("CurrentDate").DanReturn($$INTDATE^vhLib.DataTypes("01.09.2016"))
+			
+	set VerkoopFactuur = ##class(DOM.BKH.impl.AX.VerkoopFactuur).%New(2016.07,123456,VerkoopFactuurVoldaanRepoStub,DateTimeApiMock)
+	
+	do $$$AssertEqualsDate(VerkoopFactuur.GeefDatumVoldaan(),"01.09.2016")
+	
+	do DateTimeApiMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: GeefDatumVoldaan - Indien niet voldaan wordt er geen datum teruggeven">
+<Implementation><![CDATA[
+	do ..InitOrderAPIStub(123456)
+	
+	set $piece(^KKL(..Klant.GeefKlantIndexKKL(),123456),"\",10) = 123.45
+	
+	set VerkoopFactuur = ##class(DOM.BKH.impl.AX.VerkoopFactuur).%New(2016.07,123456)
+	
+	do $$$AssertEquals(VerkoopFactuur.GeefDatumVoldaan(),"")
+]]></Implementation>
+</Method>
+
+<Method name="InitOrderAPIStub">
+<FormalSpec>FactuurId:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	set FactuurStub = ##class(vhTest.Mock.DOM.VKP.Factuur).%New()
+	do FactuurStub.IndienMethodCall("GeefKlantID").DanReturn(..Klant.GeefID())
+	do FactuurStub.IndienMethodCall("GeefID").DanReturn(123456)
+	
+	#dim OrderAPIStub As vhTest.Mock.DOM.VKP.OrderAPI = ##class(vhTest.Mock.DOM.VKP.OrderAPI).MockInstance()
+	do OrderAPIStub.IndienMethodCall("GeefFactuur",123456).DanReturn(FactuurStub)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/BKH/impl/VerkoopFactuurVoldaanRepository.cls.xml
===================================================================
diff -u
--- DOM/BKH/impl/VerkoopFactuurVoldaanRepository.cls.xml	(revision 0)
+++ DOM/BKH/impl/VerkoopFactuurVoldaanRepository.cls.xml	(revision 36626)
@@ -0,0 +1,13 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.BKH.impl.VerkoopFactuurVoldaanRepository">
+<Super>TECH.Persistentie.impl.Repository</Super>
+
+<Parameter name="DataClassName">
+<Type>%String</Type>
+<Default>DOM.BKH.impl.VerkoopFactuurVoldaan</Default>
+</Parameter>
+</Class>
+
+
+</Export>