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