Index: DOM/BKH/OpenstaandeFactuur.cls.xml
===================================================================
diff -u -r34903 -r34916
--- DOM/BKH/OpenstaandeFactuur.cls.xml	(.../OpenstaandeFactuur.cls.xml)	(revision 34903)
+++ DOM/BKH/OpenstaandeFactuur.cls.xml	(.../OpenstaandeFactuur.cls.xml)	(revision 34916)
@@ -1,6 +1,9 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="DOM.BKH.OpenstaandeFactuur">
+<Abstract>1</Abstract>
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
 <Super>TECH.Interface</Super>
 
 <Method name="GeefFoutMelding">
Index: AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/OpenstaandeKlantFactuurIterator.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/OpenstaandeKlantFactuurIterator.cls.xml	(revision 0)
+++ AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/OpenstaandeKlantFactuurIterator.cls.xml	(revision 34916)
@@ -0,0 +1,68 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.VKP.OpenstaandeKlantFactuur.impl.OpenstaandeKlantFactuurIterator">
+<Super>TECH.RegisteredObject,TECH.Iterator</Super>
+
+<Property name="OpenstaandeKlantFactuurIterator">
+<Type>TECH.Iterator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="PartijAPI">
+<Type>DOM.PARTIJ.PartijAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Converter">
+<Type>AX.Uitgaand.VKP.OpenstaandeKlantFactuur.impl.DixfConverter</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LineNum">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>OpenstaandeKlantFactuurIterator:TECH.Iterator</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..OpenstaandeKlantFactuurIterator = OpenstaandeKlantFactuurIterator
+	Set ..PartijAPI = ##class(DOM.DomeinContext).Instance().GeefPartijAPI()
+	Set ..Converter = ##class(AX.Uitgaand.VKP.OpenstaandeKlantFactuur.impl.DixfConverter).%New()
+	Do ..Reset()
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="HasNext">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..OpenstaandeKlantFactuurIterator.HasNext()
+]]></Implementation>
+</Method>
+
+<Method name="Next">
+<ReturnType>AXdixf.UnpaidInvoice.UnpaidInvoice</ReturnType>
+<Implementation><![CDATA[
+	#dim NextOpenstaandeFactuur As DOM.BKH.impl.DataM.OpenstaandeVerkoopFactuur
+	Set NextOpenstaandeFactuur = ..OpenstaandeKlantFactuurIterator.Next()
+	
+	Set ..LineNum = ..LineNum + 1
+	Quit ..Converter.Convert(NextOpenstaandeFactuur.GeefPartijID(), NextOpenstaandeFactuur, ..LineNum)
+]]></Implementation>
+</Method>
+
+<Method name="Reset">
+<Implementation><![CDATA[
+	Set ..LineNum = 0
+	Do ..OpenstaandeKlantFactuurIterator.Reset()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/BKH/impl/DataM/OpenstaandeFactuur.cls.xml
===================================================================
diff -u -r34809 -r34916
--- DOM/BKH/impl/DataM/OpenstaandeFactuur.cls.xml	(.../OpenstaandeFactuur.cls.xml)	(revision 34809)
+++ DOM/BKH/impl/DataM/OpenstaandeFactuur.cls.xml	(.../OpenstaandeFactuur.cls.xml)	(revision 34916)
@@ -2,6 +2,7 @@
 <Export generator="Cache" version="24">
 <Class name="DOM.BKH.impl.DataM.OpenstaandeFactuur">
 <Abstract>1</Abstract>
+<Super>DOM.BKH.OpenstaandeFactuur</Super>
 
 <Parameter name="Global">
 <Type>%String</Type>
@@ -36,12 +37,17 @@
 </Method>
 
 <Method name="GeefFoutMelding">
-<Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit "Deze openstaande factuur bestaat niet"
 ]]></Implementation>
 </Method>
 
+<Method name="GeefPartijID">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..PartijID
+]]></Implementation>
+</Method>
+
 <Method name="GeefFactuurID">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit ..FactuurID
Index: AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfConverter.cls.xml
===================================================================
diff -u -r34869 -r34916
--- AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfConverter.cls.xml	(.../DixfConverter.cls.xml)	(revision 34869)
+++ AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfConverter.cls.xml	(.../DixfConverter.cls.xml)	(revision 34916)
@@ -13,6 +13,11 @@
 <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>
@@ -23,15 +28,21 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Factuur">
+<Type>DOM.VKP.impl.DataM.DataMFactuur</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>FirmaBepaler:AX.common.impl.FirmaBepaler,VerkoopAPI:DOM.VKP.VerkoopAPI</FormalSpec>
+<FormalSpec>FirmaBepaler:AX.common.impl.FirmaBepaler,VerkoopAPI:DOM.VKP.VerkoopAPI,OrderAPI:DOM.VKP.OrderAPI</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 ..VerkoopAPI = $$$Inject(VerkoopAPI,##class(DOM.DomeinContext).Instance().GeefVerkoopAPI())
+	Set ..OrderAPI = $$$Inject(OrderAPI,##class(DOM.DomeinContext).Instance().GeefOrderAPI())	
 	
 	Set ..Formatter = ##class(AX.common.impl.Formatter).%New()
 	
@@ -40,10 +51,11 @@
 </Method>
 
 <Method name="Convert">
-<FormalSpec>Partij:DOM.PARTIJ.Partij,Factuur:DOM.VKP.Factuur,LineNum:%String=0</FormalSpec>
+<FormalSpec>KlantID:%String,OpenstaandeVerkoopFactuur:DOM.BKH.impl.DataM.OpenstaandeVerkoopFactuur,LineNum:%String=0</FormalSpec>
 <ReturnType>AXdixf.UnpaidInvoice.UnpaidInvoice</ReturnType>
 <Implementation><![CDATA[
-	Set ..Klant = ..VerkoopAPI.GeefKlant(Partij.GeefID())
+	Set ..Klant = ..VerkoopAPI.GeefKlant(KlantID)
+	Set ..Factuur = ..OrderAPI.GeefFactuur(OpenstaandeVerkoopFactuur.GeefFactuurID())
 	
 	Set AxUnpaidInvoice = ##class(AXdixf.UnpaidInvoice.UnpaidInvoice).%New()
 	Set AxUnpaidInvoice.JournalNum = "GL01000001"
@@ -53,22 +65,29 @@
 	Set AxUnpaidInvoice.TransDate = "30/06/2016"
 	Set AxUnpaidInvoice.Company = ..FirmaBepaler.GeefInitialen()
 	Set AxUnpaidInvoice.AccountType = "2"
-	Set AxUnpaidInvoice.LedgerDimension = ##class(AX.common.impl.ConvertAdminToAX).ConvertCustomerID(Partij.GeefID())
+	Set AxUnpaidInvoice.LedgerDimension = ##class(AX.common.impl.ConvertAdminToAX).ConvertCustomerID(KlantID)
 	Set AxUnpaidInvoice.Txt = "Open leverancier 30/06/2016"
 	Set AxUnpaidInvoice.OffsetCompany = ..FirmaBepaler.GeefInitialen()
 	Set AxUnpaidInvoice.OffsetAccountType = "0"
 	Set AxUnpaidInvoice.OffsetLedgerDimension = "499020"
-	Set AxUnpaidInvoice.AmountCurDebit = "0"
-	Set AxUnpaidInvoice.AmountCurCredit = Factuur.GeefTotaalTeBetalen()
+	If OpenstaandeVerkoopFactuur.GeefCode() = "F" {
+		Set AxUnpaidInvoice.AmountCurDebit = "0"
+		Set AxUnpaidInvoice.AmountCurCredit = OpenstaandeVerkoopFactuur.GeefNogTeBetalenInEUR()
+	} Else {
+		Set AxUnpaidInvoice.AmountCurDebit = OpenstaandeVerkoopFactuur.GeefNogTeBetalenInEUR()
+		Set AxUnpaidInvoice.AmountCurCredit = "0"
+	}
 	Set AxUnpaidInvoice.CurrencyCode = "EUR"
 	Set AxUnpaidInvoice.ExchRate = "1"
-	Set AxUnpaidInvoice.Invoice = Factuur.GeefID()
-	Set AxUnpaidInvoice.Due = Factuur.GeefVervalDatum()
+	Set AxUnpaidInvoice.Invoice = OpenstaandeVerkoopFactuur.GeefFactuurID()
+	Set AxUnpaidInvoice.Due = OpenstaandeVerkoopFactuur.GeefVervalDatum()
 	Set AxUnpaidInvoice.CashDiscCode = ..Formatter.FormatCashDiscount(..Klant.GeefKortingContantPercentage(),..Klant.GeefKortingContantTermijn())
-	Set AxUnpaidInvoice.DateCashDisc = Factuur.GeefVervalDatumKortingContant()
-	Set AxUnpaidInvoice.CashDiscAmount = -1 * Factuur.GeefTotaalKortingKontant()
-	Set AxUnpaidInvoice.DocumentNum = Factuur.GeefID()
-	Set AxUnpaidInvoice.DocumentDate = Factuur.GeefFactuurDatum()
+	If (OpenstaandeVerkoopFactuur.GeefKortingKontantInMuntKlant() '= 0) && ($Extract(OpenstaandeVerkoopFactuur.GeefFactuurID(),1,2) '= "99"){		
+		Set AxUnpaidInvoice.DateCashDisc = ..Factuur.GeefVervalDatumKortingContant()
+		}
+	Set AxUnpaidInvoice.CashDiscAmount = -1 * OpenstaandeVerkoopFactuur.GeefKortingKontantInMuntKlant()
+	Set AxUnpaidInvoice.DocumentNum = OpenstaandeVerkoopFactuur.GeefFactuurID()
+	Set AxUnpaidInvoice.DocumentDate = OpenstaandeVerkoopFactuur.GeefFactuurDatum()
 	Set AxUnpaidInvoice.PaymMode = ..Formatter.ConvertPaymMode(..Klant.GeefBetalingwijze())
 	
 	Quit AxUnpaidInvoice
Index: vhUnitTest/AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfConverter/Test.cls.xml
===================================================================
diff -u -r34869 -r34916
--- vhUnitTest/AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 34869)
+++ vhUnitTest/AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 34916)
@@ -13,16 +13,28 @@
 <Private>1</Private>
 </Property>
 
+<Property name="OpenstaandeFactuur">
+<Type>vhTest.Mock.DOM.BKH.impl.DataM.OpenstaandeFactuur</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="AxUnpaidInvoice">
 <Type>AXdixf.UnpaidInvoice.UnpaidInvoice</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="KlantID">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
 	Do ##super(aTestName)
 	
+	Set ..KlantID = "K||1234"
+	
 	Set ..Partij = ##class(vhTest.Mock.DOM.PARTIJ.Partij).%New()
 	Do ..Partij.IndienMethodCall("GeefID").DanReturn("K||1234")
 	
@@ -33,35 +45,43 @@
 	Do ..Factuur.IndienMethodCall("GeefTotaalKortingKontant").DanReturn(0)
 	Do ..Factuur.IndienMethodCall("GeefFactuurDatum").DanReturn("01/01/2016")
 	Do ..Factuur.IndienMethodCall("GeefVervalDatumKortingContant").DanReturn("01/01/2016")
+	
+	Set ..OpenstaandeFactuur = ##class(vhTest.Mock.DOM.BKH.OpenstaandeFactuur).%New()
+	Do ..OpenstaandeFactuur.IndienMethodCall("GeefNogTeBetalenInEUR").DanReturn(0)
+	Do ..OpenstaandeFactuur.IndienMethodCall("GeefFactuurID").DanReturn("1000")
+	Do ..OpenstaandeFactuur.IndienMethodCall("GeefVervalDatum").DanReturn("01/08/2016")
+	Do ..OpenstaandeFactuur.IndienMethodCall("GeefKortingKontantInMuntKlant").DanReturn(0)
+	Do ..OpenstaandeFactuur.IndienMethodCall("GeefFactuurDatum").DanReturn("01/01/2016")
+	Do ..OpenstaandeFactuur.IndienMethodCall("GeefCode").DanReturn("F")
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Left padding LedgerDimension">
 <Implementation><![CDATA[
 	Set Converter = ##class(AX.Uitgaand.VKP.OpenstaandeKlantFactuur.impl.DixfConverter).%New()
-	Set ..AxUnpaidInvoice = Converter.Convert(..Partij, ..Factuur)
+	Set ..AxUnpaidInvoice = Converter.Convert(..KlantID, ..OpenstaandeFactuur)
 	
 	Do $$$AssertEquals(..AxUnpaidInvoice.LedgerDimension,"01234","")
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Factuurnummer">
 <Implementation><![CDATA[
-	Do ..Factuur.IndienMethodCall("GeefID").DanReturn("10001")
+	Do ..OpenstaandeFactuur.IndienMethodCall("GeefFactuurID").DanReturn("10001")
 	
 	Set Converter = ##class(AX.Uitgaand.VKP.OpenstaandeKlantFactuur.impl.DixfConverter).%New()
-	Set ..AxUnpaidInvoice = Converter.Convert(..Partij, ..Factuur)
+	Set ..AxUnpaidInvoice = Converter.Convert(..KlantID, ..OpenstaandeFactuur)
 	
 	Do $$$AssertEquals(..AxUnpaidInvoice.Invoice,"10001","")
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Factuurnummer in DocumentNum">
 <Implementation><![CDATA[
-	Do ..Factuur.IndienMethodCall("GeefID").DanReturn("10001")
+	Do ..OpenstaandeFactuur.IndienMethodCall("GeefFactuurID").DanReturn("10001")
 	
 	Set Converter = ##class(AX.Uitgaand.VKP.OpenstaandeKlantFactuur.impl.DixfConverter).%New()
-	Set ..AxUnpaidInvoice = Converter.Convert(..Partij, ..Factuur)
+	Set ..AxUnpaidInvoice = Converter.Convert(..KlantID, ..OpenstaandeFactuur)
 	
 	Do $$$AssertEquals(..AxUnpaidInvoice.DocumentNum,"10001","")
 ]]></Implementation>
@@ -70,7 +90,7 @@
 <Method name="Test: hardcoded JournalNum">
 <Implementation><![CDATA[
 	Set Converter = ##class(AX.Uitgaand.VKP.OpenstaandeKlantFactuur.impl.DixfConverter).%New()
-	Set ..AxUnpaidInvoice = Converter.Convert(..Partij, ..Factuur)
+	Set ..AxUnpaidInvoice = Converter.Convert(..KlantID, ..OpenstaandeFactuur)
 	
 	Do $$$AssertEquals(..AxUnpaidInvoice.JournalNum,"GL01000001","")
 ]]></Implementation>
@@ -79,7 +99,7 @@
 <Method name="Test: hardcoded JournalName">
 <Implementation><![CDATA[
 	Set Converter = ##class(AX.Uitgaand.VKP.OpenstaandeKlantFactuur.impl.DixfConverter).%New()
-	Set ..AxUnpaidInvoice = Converter.Convert(..Partij, ..Factuur)
+	Set ..AxUnpaidInvoice = Converter.Convert(..KlantID, ..OpenstaandeFactuur)
 	
 	Do $$$AssertEquals(..AxUnpaidInvoice.JournalName,"OP","")
 ]]></Implementation>
@@ -88,7 +108,7 @@
 <Method name="Test: hardcoded TransDate">
 <Implementation><![CDATA[
 	Set Converter = ##class(AX.Uitgaand.VKP.OpenstaandeKlantFactuur.impl.DixfConverter).%New()
-	Set ..AxUnpaidInvoice = Converter.Convert(..Partij, ..Factuur)
+	Set ..AxUnpaidInvoice = Converter.Convert(..KlantID, ..OpenstaandeFactuur)
 	
 	Do $$$AssertEquals(..AxUnpaidInvoice.TransDate,"30/06/2016","")
 ]]></Implementation>
@@ -97,7 +117,7 @@
 <Method name="Test: hardcoded AccountType">
 <Implementation><![CDATA[
 	Set Converter = ##class(AX.Uitgaand.VKP.OpenstaandeKlantFactuur.impl.DixfConverter).%New()
-	Set ..AxUnpaidInvoice = Converter.Convert(..Partij, ..Factuur)
+	Set ..AxUnpaidInvoice = Converter.Convert(..KlantID, ..OpenstaandeFactuur)
 	
 	Do $$$AssertEquals(..AxUnpaidInvoice.AccountType,"2","")
 ]]></Implementation>
@@ -106,7 +126,7 @@
 <Method name="Test: hardcoded Txt">
 <Implementation><![CDATA[
 	Set Converter = ##class(AX.Uitgaand.VKP.OpenstaandeKlantFactuur.impl.DixfConverter).%New()
-	Set ..AxUnpaidInvoice = Converter.Convert(..Partij, ..Factuur)
+	Set ..AxUnpaidInvoice = Converter.Convert(..KlantID, ..OpenstaandeFactuur)
 	
 	Do $$$AssertEquals(..AxUnpaidInvoice.Txt,"Open leverancier 30/06/2016","")
 ]]></Implementation>
@@ -115,7 +135,7 @@
 <Method name="Test: hardcoded OffsetAccountType">
 <Implementation><![CDATA[
 	Set Converter = ##class(AX.Uitgaand.VKP.OpenstaandeKlantFactuur.impl.DixfConverter).%New()
-	Set ..AxUnpaidInvoice = Converter.Convert(..Partij, ..Factuur)
+	Set ..AxUnpaidInvoice = Converter.Convert(..KlantID, ..OpenstaandeFactuur)
 	
 	Do $$$AssertEquals(..AxUnpaidInvoice.OffsetAccountType,"0","")
 ]]></Implementation>
@@ -124,7 +144,7 @@
 <Method name="Test: hardcoded OffsetLedgerDimension">
 <Implementation><![CDATA[
 	Set Converter = ##class(AX.Uitgaand.VKP.OpenstaandeKlantFactuur.impl.DixfConverter).%New()
-	Set ..AxUnpaidInvoice = Converter.Convert(..Partij, ..Factuur)
+	Set ..AxUnpaidInvoice = Converter.Convert(..KlantID, ..OpenstaandeFactuur)
 	
 	Do $$$AssertEquals(..AxUnpaidInvoice.OffsetLedgerDimension,"499020","")
 ]]></Implementation>
@@ -133,7 +153,7 @@
 <Method name="Test: hardcoded CurrencyCode">
 <Implementation><![CDATA[
 	Set Converter = ##class(AX.Uitgaand.VKP.OpenstaandeKlantFactuur.impl.DixfConverter).%New()
-	Set ..AxUnpaidInvoice = Converter.Convert(..Partij, ..Factuur)
+	Set ..AxUnpaidInvoice = Converter.Convert(..KlantID, ..OpenstaandeFactuur)
 	
 	Do $$$AssertEquals(..AxUnpaidInvoice.CurrencyCode,"EUR","")
 ]]></Implementation>
@@ -142,7 +162,7 @@
 <Method name="Test: hardcoded ExchRate">
 <Implementation><![CDATA[
 	Set Converter = ##class(AX.Uitgaand.VKP.OpenstaandeKlantFactuur.impl.DixfConverter).%New()
-	Set ..AxUnpaidInvoice = Converter.Convert(..Partij, ..Factuur)
+	Set ..AxUnpaidInvoice = Converter.Convert(..KlantID, ..OpenstaandeFactuur)
 	
 	Do $$$AssertEquals(..AxUnpaidInvoice.ExchRate,"1","")
 ]]></Implementation>
@@ -154,7 +174,7 @@
 	Do FirmaBepaler.IndienMethodCall("GeefInitialen").DanReturn("test")	
 	
 	Set Converter = ##class(AX.Uitgaand.VKP.OpenstaandeKlantFactuur.impl.DixfConverter).%New(FirmaBepaler)
-	Set ..AxUnpaidInvoice = Converter.Convert(..Partij, ..Factuur)
+	Set ..AxUnpaidInvoice = Converter.Convert(..KlantID, ..OpenstaandeFactuur)
 	
 	Do $$$AssertEquals(..AxUnpaidInvoice.Company,"test","")
 ]]></Implementation>
@@ -166,18 +186,18 @@
 	Do FirmaBepaler.IndienMethodCall("GeefInitialen").DanReturn("test")	
 	
 	Set Converter = ##class(AX.Uitgaand.VKP.OpenstaandeKlantFactuur.impl.DixfConverter).%New(FirmaBepaler)
-	Set ..AxUnpaidInvoice = Converter.Convert(..Partij, ..Factuur)
+	Set ..AxUnpaidInvoice = Converter.Convert(..KlantID, ..OpenstaandeFactuur)
 	
 	Do $$$AssertEquals(..AxUnpaidInvoice.Company,"test","")
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Bedrag Credit">
 <Implementation><![CDATA[
-	Do ..Factuur.IndienMethodCall("GeefTotaalTeBetalen").DanReturn(1234)
+	Do ..OpenstaandeFactuur.IndienMethodCall("GeefNogTeBetalenInEUR").DanReturn(1234)
 	
 	Set Converter = ##class(AX.Uitgaand.VKP.OpenstaandeKlantFactuur.impl.DixfConverter).%New()
-	Set ..AxUnpaidInvoice = Converter.Convert(..Partij, ..Factuur)
+	Set ..AxUnpaidInvoice = Converter.Convert(..KlantID, ..OpenstaandeFactuur)
 	
 	Do $$$AssertEquals(..AxUnpaidInvoice.AmountCurCredit,"1234","")
 ]]></Implementation>
@@ -186,18 +206,18 @@
 <Method name="Test: Bedrag Debet">
 <Implementation><![CDATA[
 	Set Converter = ##class(AX.Uitgaand.VKP.OpenstaandeKlantFactuur.impl.DixfConverter).%New()
-	Set ..AxUnpaidInvoice = Converter.Convert(..Partij, ..Factuur)
+	Set ..AxUnpaidInvoice = Converter.Convert(..KlantID, ..OpenstaandeFactuur)
 	
 	Do $$$AssertEquals(..AxUnpaidInvoice.AmountCurDebit,"0","")
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Vervaldatum">
 <Implementation><![CDATA[
-	Do ..Factuur.IndienMethodCall("GeefVervalDatum").DanReturn("01/09/2016")
+	Do ..OpenstaandeFactuur.IndienMethodCall("GeefVervalDatum").DanReturn("01/09/2016")
 	
 	Set Converter = ##class(AX.Uitgaand.VKP.OpenstaandeKlantFactuur.impl.DixfConverter).%New()
-	Set ..AxUnpaidInvoice = Converter.Convert(..Partij, ..Factuur)
+	Set ..AxUnpaidInvoice = Converter.Convert(..KlantID, ..OpenstaandeFactuur)
 	
 	Do $$$AssertEquals(..AxUnpaidInvoice.Due,"01/09/2016","")
 ]]></Implementation>
@@ -206,7 +226,7 @@
 <Method name="Test: Voucher">
 <Implementation><![CDATA[
 	Set Converter = ##class(AX.Uitgaand.VKP.OpenstaandeKlantFactuur.impl.DixfConverter).%New()
-	Set ..AxUnpaidInvoice = Converter.Convert(..Partij, ..Factuur, 12)
+	Set ..AxUnpaidInvoice = Converter.Convert(..KlantID, ..OpenstaandeFactuur, 12)
 	
 	Do $$$AssertEquals(..AxUnpaidInvoice.Voucher,"OP160012","")
 ]]></Implementation>
@@ -215,29 +235,31 @@
 <Method name="Test: LineNum">
 <Implementation><![CDATA[
 	Set Converter = ##class(AX.Uitgaand.VKP.OpenstaandeKlantFactuur.impl.DixfConverter).%New()
-	Set ..AxUnpaidInvoice = Converter.Convert(..Partij, ..Factuur, 9876)
+	Set ..AxUnpaidInvoice = Converter.Convert(..KlantID, ..OpenstaandeFactuur, 9876)
 	
 	Do $$$AssertEquals(..AxUnpaidInvoice.LineNum,"9876","")
 ]]></Implementation>
 </Method>
 
 <Method name="Test: CashDiscAmount">
 <Implementation><![CDATA[
-	Do ..Factuur.IndienMethodCall("GeefTotaalKortingKontant").DanReturn(42)
+	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.OpenstaandeKlantFactuur.impl.DixfConverter).%New()
-	Set ..AxUnpaidInvoice = Converter.Convert(..Partij, ..Factuur, 9876)
+	Set Converter = ##class(AX.Uitgaand.VKP.OpenstaandeKlantFactuur.impl.DixfConverter).%New(,,OrderAPI)
+	Set ..AxUnpaidInvoice = Converter.Convert(..KlantID, ..OpenstaandeFactuur)
 	
 	Do $$$AssertEquals(..AxUnpaidInvoice.CashDiscAmount,"-42","")
 ]]></Implementation>
 </Method>
 
 <Method name="Test: DocumentDate">
 <Implementation><![CDATA[
-	Do ..Factuur.IndienMethodCall("GeefFactuurDatum").DanReturn("01/05/2016")
+	Do ..OpenstaandeFactuur.IndienMethodCall("GeefFactuurDatum").DanReturn("01/05/2016")
 	
 	Set Converter = ##class(AX.Uitgaand.VKP.OpenstaandeKlantFactuur.impl.DixfConverter).%New()
-	Set ..AxUnpaidInvoice = Converter.Convert(..Partij, ..Factuur, 9876)
+	Set ..AxUnpaidInvoice = Converter.Convert(..KlantID, ..OpenstaandeFactuur)
 	
 	Do $$$AssertEquals(..AxUnpaidInvoice.DocumentDate,"01/05/2016","")
 ]]></Implementation>
@@ -251,7 +273,7 @@
 	Do VerkoopAPI.IndienMethodCall("GeefKlant",$$$ElkeWaarde).DanReturn(Klant)
 	
 	Set Converter = ##class(AX.Uitgaand.VKP.OpenstaandeKlantFactuur.impl.DixfConverter).%New(,VerkoopAPI)
-	Set ..AxUnpaidInvoice = Converter.Convert(..Partij, ..Factuur)
+	Set ..AxUnpaidInvoice = Converter.Convert(..KlantID, ..OpenstaandeFactuur)
 	
 	Do $$$AssertEquals(..AxUnpaidInvoice.PaymMode,"SEPA-DD","")
 ]]></Implementation>
@@ -265,7 +287,7 @@
 	Do VerkoopAPI.IndienMethodCall("GeefKlant",$$$ElkeWaarde).DanReturn(Klant)
 	
 	Set Converter = ##class(AX.Uitgaand.VKP.OpenstaandeKlantFactuur.impl.DixfConverter).%New(,VerkoopAPI)
-	Set ..AxUnpaidInvoice = Converter.Convert(..Partij, ..Factuur)
+	Set ..AxUnpaidInvoice = Converter.Convert(..KlantID, ..OpenstaandeFactuur)
 	
 	Do $$$AssertEquals(..AxUnpaidInvoice.PaymMode,"OVER","")
 ]]></Implementation>
@@ -280,22 +302,38 @@
 	Do VerkoopAPI.IndienMethodCall("GeefKlant",$$$ElkeWaarde).DanReturn(Klant)
 	
 	Set Converter = ##class(AX.Uitgaand.VKP.OpenstaandeKlantFactuur.impl.DixfConverter).%New(,VerkoopAPI)
-	Set ..AxUnpaidInvoice = Converter.Convert(..Partij, ..Factuur)
+	Set ..AxUnpaidInvoice = Converter.Convert(..KlantID, ..OpenstaandeFactuur)
 	
 	Do $$$AssertEquals(..AxUnpaidInvoice.CashDiscCode,"20EOM4%","")
 ]]></Implementation>
 </Method>
 
 <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("01/05/2016")	
 	
-	Set Converter = ##class(AX.Uitgaand.VKP.OpenstaandeKlantFactuur.impl.DixfConverter).%New()
-	Set ..AxUnpaidInvoice = Converter.Convert(..Partij, ..Factuur)
+	Set Converter = ##class(AX.Uitgaand.VKP.OpenstaandeKlantFactuur.impl.DixfConverter).%New(,,OrderAPI)
+	Set ..AxUnpaidInvoice = Converter.Convert(..KlantID, ..OpenstaandeFactuur)
 	
 	Do $$$AssertEquals(..AxUnpaidInvoice.DateCashDisc,"01/05/2016","")
 ]]></Implementation>
 </Method>
+
+<Method name="Test: AmountCurDebit indien creditnota">
+<Implementation><![CDATA[
+	Do ..OpenstaandeFactuur.IndienMethodCall("GeefCode").DanReturn("C")
+	Do ..OpenstaandeFactuur.IndienMethodCall("GeefNogTeBetalenInEUR").DanReturn(564)
+	
+	Set Converter = ##class(AX.Uitgaand.VKP.OpenstaandeKlantFactuur.impl.DixfConverter).%New()
+	Set ..AxUnpaidInvoice = Converter.Convert(..KlantID, ..OpenstaandeFactuur)
+	
+	Do $$$AssertEquals(..AxUnpaidInvoice.AmountCurDebit,"564","")
+	Do $$$AssertEquals(..AxUnpaidInvoice.AmountCurCredit,"0","")
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfGenerator.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfGenerator.cls.xml	(revision 0)
+++ AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfGenerator.cls.xml	(revision 34916)
@@ -0,0 +1,96 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.VKP.OpenstaandeKlantFactuur.impl.DixfGenerator">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="BestandGenerator">
+<Type>APPS.common.Rapport.impl.BestandGenerator</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="GenerateAll">
+<Implementation><![CDATA[
+	Set OpenstaandeVerkoopFactuurRepository = ##class(DOM.BKH.impl.OpenstaandeVerkoopFactuurRepository).%New()
+	#dim OpenstaandeKlantFactuurIterator As TECH.Iterator = OpenstaandeVerkoopFactuurRepository.ZoekAlle()
+	do ..Generate(OpenstaandeKlantFactuurIterator)
+]]></Implementation>
+</Method>
+
+<Method name="Generate">
+<FormalSpec>OpenstaandeKlantFactuurIterator:TECH.Iterator</FormalSpec>
+<Implementation><![CDATA[
+	Set AxOpenstaandeVerkoopFactuurIterator = ##class(AX.Uitgaand.VKP.OpenstaandeKlantFactuur.impl.OpenstaandeKlantFactuurIterator).%New(OpenstaandeKlantFactuurIterator)
+		
+	Set Headers = ##class(TECH.KeyValue.List).%New() 
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "JournalNum")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "JournalName")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "TaxWithholdGroup")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "ReleaseDate")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "Voucher")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "LineNum")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "TransDate")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "Transfer")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "Company")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "AccountType")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "LedgerDimension")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "Txt")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "TaxGroup")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "TaxItemGroup")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "TaxCode")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "TaxDirectionControl")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "OffsetCompany")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "OffsetAccountType")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "OffsetLedgerDimension")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "OffsetTxt")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "AmountCurDebit")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "AmountCurCredit")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "CurrencyCode")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "ExchRate")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "ExchRateSecond")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "Qty")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "ReverseEntry")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "ReverseDate")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "PostingProfile")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "SettleVoucher")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "Payment")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "Invoice")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "Due")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "PaymId")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "VATNumJournal")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "CashDiscCode")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "CashDiscBaseDate")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "DateCashDisc")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "CashDiscAmount")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "DocumentNum")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "DocumentDate")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "ApproverPersonnelNumber")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "Approved")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "Listcode")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "PaymMode")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "PaymSpec")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "Prepayment")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "RemainAmount")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "BankTransType")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "PaymReference")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "BankDepositVoucher")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "BankDepositNum")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "AssetTransType")
+	Do Headers.InsertKeyValue("AXdixf.UnpaidInvoice.UnpaidInvoice", "AssetBookId")
+
+		
+	#dim AXLeverancierData As APPS.common.Rapport.dto.BestandRapportDataObjectIteratorBased	
+	Set AXLeverancierData = ##class(APPS.common.Rapport.dto.BestandRapportDataObjectIteratorBased).%New()
+	Set AXLeverancierData.ScheidingsTeken = ";"	
+	Set AXLeverancierData.Iterator = AxOpenstaandeVerkoopFactuurIterator
+	Set AXLeverancierData.DataVelden = Headers
+	Set AXLeverancierData.BestandVolledigeNaam = ##class(TECH.Files).AppendFile(##class(TECH.Config.ConfigMgr).Instance().GeefString("AX_DIXF"),"lev13.csv")
+	
+	#dim BestandGenerator As APPS.common.Rapport.impl.BestandGenerator
+	Set BestandGenerator = ##class(APPS.common.Rapport.impl.BestandGenerator).%New()
+	Do BestandGenerator.MaakBestand(AXLeverancierData)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/DOM/BKH/OpenstaandeFactuur.cls.xml
===================================================================
diff -u
--- vhTest/Mock/DOM/BKH/OpenstaandeFactuur.cls.xml	(revision 0)
+++ vhTest/Mock/DOM/BKH/OpenstaandeFactuur.cls.xml	(revision 34916)
@@ -0,0 +1,179 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.DOM.BKH.OpenstaandeFactuur">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.BKH.OpenstaandeFactuur,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="GeefAantalHerinneringen">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefAantalHerinneringen")
+]]></Implementation>
+</Method>
+
+<Method name="GeefCode">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefCode")
+]]></Implementation>
+</Method>
+
+<Method name="GeefFactuurDatum">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefFactuurDatum")
+]]></Implementation>
+</Method>
+
+<Method name="GeefFactuurID">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefFactuurID")
+]]></Implementation>
+</Method>
+
+<Method name="GeefFoutMelding">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefFoutMelding")
+]]></Implementation>
+</Method>
+
+<Method name="GeefKortingKontantInMuntKlant">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefKortingKontantInMuntKlant")
+]]></Implementation>
+</Method>
+
+<Method name="GeefMunt">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefMunt")
+]]></Implementation>
+</Method>
+
+<Method name="GeefNogTeBetalenInEUR">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefNogTeBetalenInEUR")
+]]></Implementation>
+</Method>
+
+<Method name="GeefNogTeBetalenInMuntKlant">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefNogTeBetalenInMuntKlant")
+]]></Implementation>
+</Method>
+
+<Method name="GeefOmschrijving">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefOmschrijving")
+]]></Implementation>
+</Method>
+
+<Method name="GeefPartijID">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefPartijID")
+]]></Implementation>
+</Method>
+
+<Method name="GeefTotaalBedragInMuntKlant">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefTotaalBedragInMuntKlant")
+]]></Implementation>
+</Method>
+
+<Method name="GeefVersieNummer">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefVersieNummer")
+]]></Implementation>
+</Method>
+
+<Method name="GeefVervalDatum">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefVervalDatum")
+]]></Implementation>
+</Method>
+
+<Method name="Save">
+<Implementation><![CDATA[	do ..VerwerkMethodCall("Save")
+]]></Implementation>
+</Method>
+
+<Method name="ZetAantalHerinneringen">
+<FormalSpec>Value:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("ZetAantalHerinneringen",Value)
+]]></Implementation>
+</Method>
+
+<Method name="ZetCode">
+<FormalSpec>Value:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("ZetCode",Value)
+]]></Implementation>
+</Method>
+
+<Method name="ZetFactuurDatum">
+<FormalSpec>Value:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("ZetFactuurDatum",Value)
+]]></Implementation>
+</Method>
+
+<Method name="ZetKortingKontantInMuntKlant">
+<FormalSpec>Value:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("ZetKortingKontantInMuntKlant",Value)
+]]></Implementation>
+</Method>
+
+<Method name="ZetMunt">
+<FormalSpec>Value:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("ZetMunt",Value)
+]]></Implementation>
+</Method>
+
+<Method name="ZetNogTeBetalenInEUR">
+<FormalSpec>Value:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("ZetNogTeBetalenInEUR",Value)
+]]></Implementation>
+</Method>
+
+<Method name="ZetNogTeBetalenInMuntKlant">
+<FormalSpec>Value:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("ZetNogTeBetalenInMuntKlant",Value)
+]]></Implementation>
+</Method>
+
+<Method name="ZetOmschrijving">
+<FormalSpec>Value:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("ZetOmschrijving",Value)
+]]></Implementation>
+</Method>
+
+<Method name="ZetTotaalBedragInMuntKlant">
+<FormalSpec>Value:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("ZetTotaalBedragInMuntKlant",Value)
+]]></Implementation>
+</Method>
+
+<Method name="ZetVersieNummer">
+<FormalSpec>Value:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("ZetVersieNummer",Value)
+]]></Implementation>
+</Method>
+
+<Method name="ZetVervalDatum">
+<FormalSpec>Value:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("ZetVervalDatum",Value)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
FishEye: Tag 34803 refers to a dead (removed) revision in file `vhTest/Mock/DOM/BKH/impl/DataM/OpenstaandeFactuur.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: vhTest/Fake/DOM/BKH/impl/OpenstaandeVerkoopFactuurRepository.cls.xml
===================================================================
diff -u -r34879 -r34916
--- vhTest/Fake/DOM/BKH/impl/OpenstaandeVerkoopFactuurRepository.cls.xml	(.../OpenstaandeVerkoopFactuurRepository.cls.xml)	(revision 34879)
+++ vhTest/Fake/DOM/BKH/impl/OpenstaandeVerkoopFactuurRepository.cls.xml	(.../OpenstaandeVerkoopFactuurRepository.cls.xml)	(revision 34916)
@@ -20,6 +20,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZoekAlle">
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
 <Method name="BestaatViaLeverancierIDEnFactuurID">
 <FormalSpec>KlantID:%String,FactuurID:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
@@ -34,11 +40,10 @@
 
 <Method name="GeefViaID">
 <FormalSpec>OpenstaandeVerkoopFactuurId:%String</FormalSpec>
-<Implementation><![CDATA[
-]]></Implementation>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 
-<Method name="ZoekAlle">
+<Method name="DUPEZoekAlle">
 <ReturnType>TECH.Iterator</ReturnType>
 <Implementation><![CDATA[	Quit ""
 ]]></Implementation>