Index: vhUnitTest/AX/Uitgaand/VKP/OpenstaandeLeverancierFactuur/impl/DixfConverter/Test.cls.xml
===================================================================
diff -u -r35159 -r35162
--- vhUnitTest/AX/Uitgaand/VKP/OpenstaandeLeverancierFactuur/impl/DixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 35159)
+++ vhUnitTest/AX/Uitgaand/VKP/OpenstaandeLeverancierFactuur/impl/DixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 35162)
@@ -32,6 +32,7 @@
 		
 	Set ..Factuur = ##class(vhTest.Mock.DOM.VKP.Factuur).%New()
 	Do ..Factuur.IndienMethodCall("GeefVervalDatumKortingContant").DanReturn($$INTDATE^vhLib.DataTypes("01.01.2016"))
+	Do ..Factuur.IndienMethodCall("GeefFactuurDatum").DanReturn($$INTDATE^vhLib.DataTypes("01.01.2016"))
 	
 	Set ..OpenstaandeFactuur = ##class(vhTest.Mock.DOM.BKH.OpenstaandeFactuur).%New()
 	Do ..OpenstaandeFactuur.IndienMethodCall("GeefNogTeBetalenInEUR").DanReturn(0)
@@ -270,11 +271,9 @@
 
 <Method name="Test: CashDiscAmount">
 <Implementation><![CDATA[
-	Set OrderAPI = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
-	Do OrderAPI.IndienMethodCall("GeefFactuur",$$$ElkeWaarde).DanReturn(..Factuur)
 	Do ..OpenstaandeFactuur.IndienMethodCall("GeefKortingKontantInMuntKlant").DanReturn(42)
 	
-	Set Converter = ##class(AX.Uitgaand.VKP.OpenstaandeLeverancierFactuur.impl.DixfConverter).%New(,,OrderAPI)
+	Set Converter = ##class(AX.Uitgaand.VKP.OpenstaandeLeverancierFactuur.impl.DixfConverter).%New()
 	Set ..AxUnpaidInvoice = Converter.Convert(..LeverancierID, ..OpenstaandeFactuur)
 	
 	Do $$$AssertEquals(..AxUnpaidInvoice.CashDiscAmount,"-42","")
@@ -329,15 +328,12 @@
 
 <Method name="Test: DateCashDisc">
 <Implementation><![CDATA[
-	Set OrderAPI = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
-	Do OrderAPI.IndienMethodCall("GeefFactuur",$$$ElkeWaarde).DanReturn(..Factuur)
-	Do ..OpenstaandeFactuur.IndienMethodCall("GeefKortingKontantInMuntKlant").DanReturn(42)
-	Do ..Factuur.IndienMethodCall("GeefVervalDatumKortingContant").DanReturn($$INTDATE^vhLib.DataTypes("01.05.2016"))	
+	Do ..OpenstaandeFactuur.IndienMethodCall("GeefKortingKontantInMuntKlant").DanReturn(42)	
 	
-	Set Converter = ##class(AX.Uitgaand.VKP.OpenstaandeLeverancierFactuur.impl.DixfConverter).%New(,,OrderAPI)
+	Set Converter = ##class(AX.Uitgaand.VKP.OpenstaandeLeverancierFactuur.impl.DixfConverter).%New()
 	Set ..AxUnpaidInvoice = Converter.Convert(..LeverancierID, ..OpenstaandeFactuur)
 	
-	Do $$$AssertEquals(..AxUnpaidInvoice.DateCashDisc,"01/05/2016","")
+	Do $$$AssertEquals(..AxUnpaidInvoice.DateCashDisc,"11/01/2016","")
 ]]></Implementation>
 </Method>
 
Index: AX/Uitgaand/VKP/OpenstaandeLeverancierFactuur/impl/DixfConverter.cls.xml
===================================================================
diff -u -r35159 -r35162
--- AX/Uitgaand/VKP/OpenstaandeLeverancierFactuur/impl/DixfConverter.cls.xml	(.../DixfConverter.cls.xml)	(revision 35159)
+++ AX/Uitgaand/VKP/OpenstaandeLeverancierFactuur/impl/DixfConverter.cls.xml	(.../DixfConverter.cls.xml)	(revision 35162)
@@ -13,11 +13,6 @@
 <Private>1</Private>
 </Property>
 
-<Property name="OrderAPI">
-<Type>DOM.VKP.OrderAPI</Type>
-<Private>1</Private>
-</Property>
-
 <Property name="Formatter">
 <Type>AX.common.impl.Formatter</Type>
 <Private>1</Private>
@@ -34,15 +29,14 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>FirmaBepaler:AX.common.impl.FirmaBepaler,AankoopAPI:DOM.AKP.AankoopAPI,OrderAPI:DOM.VKP.OrderAPI</FormalSpec>
+<FormalSpec>FirmaBepaler:AX.common.impl.FirmaBepaler,AankoopAPI:DOM.AKP.AankoopAPI</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..FirmaBepaler = $$$Inject(FirmaBepaler, ##class(AX.common.impl.FirmaBepaler).%New())
 	Set ..AankoopAPI = $$$Inject(AankoopAPI,##class(DOM.DomeinContext).Instance().GeefAankoopAPI())
-	Set ..OrderAPI = $$$Inject(OrderAPI,##class(DOM.DomeinContext).Instance().GeefOrderAPI())	
 	
 	Set ..Formatter = ##class(AX.common.impl.Formatter).%New()
 	
@@ -55,7 +49,6 @@
 <ReturnType>AXdixf.UnpaidInvoice.UnpaidInvoice</ReturnType>
 <Implementation><![CDATA[
 	Set ..Leverancier = ..AankoopAPI.GeefLeverancier(LeverancierID)
-	Set ..Factuur = ..OrderAPI.GeefFactuur(OpenstaandeAankoopFactuur.GeefFactuurID())
 	
 	Set AxUnpaidInvoice = ##class(AXdixf.UnpaidInvoice.UnpaidInvoice).%New()
 	Set AxUnpaidInvoice.JournalNum = "GL01000002"
@@ -82,8 +75,8 @@
 	Set AxUnpaidInvoice.Invoice = OpenstaandeAankoopFactuur.GeefOmschrijving()
 	Set AxUnpaidInvoice.Due = ##class(TECH.Context).Instance().GeefFormatAPI().FormatDate(OpenstaandeAankoopFactuur.GeefVervalDatum(),"DD/MM/JJJJ")
 	Set AxUnpaidInvoice.CashDiscCode = ..Formatter.FormatCashDiscount(..Leverancier.GeefKortingKontant(),..Leverancier.GeefTermijnKortingKontant())
-	If (OpenstaandeAankoopFactuur.GeefKortingKontantInMuntKlant() '= 0) && ($Extract(OpenstaandeAankoopFactuur.GeefFactuurID(),1,2) '= "99"){		
-		Set AxUnpaidInvoice.DateCashDisc = ##class(TECH.Context).Instance().GeefFormatAPI().FormatDate(..Factuur.GeefVervalDatumKortingContant(),"DD/MM/JJJJ")
+	If (OpenstaandeAankoopFactuur.GeefKortingKontantInMuntKlant() '= 0) && ($Extract(OpenstaandeAankoopFactuur.GeefFactuurID(),1,2) '= "99"){
+		Set AxUnpaidInvoice.DateCashDisc =  ##class(TECH.Context).Instance().GeefFormatAPI().FormatDate(..BepaalVervaldagKorting(OpenstaandeAankoopFactuur.GeefFactuurDatum(),..Leverancier.GeefTermijnKortingKontant()),"DD/MM/JJJJ")
 		}
 	Set AxUnpaidInvoice.CashDiscAmount = -1 * OpenstaandeAankoopFactuur.GeefKortingKontantInMuntKlant()
 	Set AxUnpaidInvoice.DocumentNum = OpenstaandeAankoopFactuur.GeefFactuurID()
@@ -107,6 +100,18 @@
 	Quit "SWIFT"
 ]]></Implementation>
 </Method>
+
+<Method name="BepaalVervaldagKorting">
+<FormalSpec>Datum:%Date,TermijnKortingKontant:%String</FormalSpec>
+<ProcedureBlock>0</ProcedureBlock>
+<ReturnType>%Date</ReturnType>
+<Implementation><![CDATA[
+	do ##class(vhLib.OldSchool).InitVars()
+	new R set R = $$EXTDATE^vhLib.DataTypes(Datum,"DKP")_"\"_TermijnKortingKontant
+	do ^cA104
+	quit $$INTDATE^vhLib.DataTypes(R)
+]]></Implementation>
+</Method>
 </Class>