Index: vhTest/Utils/DOM/VKP/Factuur.cls.xml
===================================================================
diff -u -r34625 -r34714
--- vhTest/Utils/DOM/VKP/Factuur.cls.xml	(.../Factuur.cls.xml)	(revision 34625)
+++ vhTest/Utils/DOM/VKP/Factuur.cls.xml	(.../Factuur.cls.xml)	(revision 34714)
@@ -34,6 +34,7 @@
 <Implementation><![CDATA[
 	#dim VerkoopFactuur As vhTest.Mock.DOM.VKP.Factuur = ..StandaardFactuur()
 	do VerkoopFactuur.IndienMethodCall("GeefFactuurCode").DanReturn("C")
+	do VerkoopFactuur.IndienMethodCall("GeefID").DanReturn(654321)
 	quit VerkoopFactuur
 ]]></Implementation>
 </Method>
Index: vhUnitTest/AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter/Test.cls.xml
===================================================================
diff -u -r34713 -r34714
--- vhUnitTest/AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 34713)
+++ vhUnitTest/AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 34714)
@@ -60,21 +60,34 @@
 
 <Method name="Test: Een creditnota geeft een omgekeerde werking">
 <Implementation><![CDATA[
-	#dim VerkoopFactuur As DOM.VKP.Factuur = ##class(vhTest.Utils.DOM.VKP.Factuur).StandaardCreditnota()
+	#dim Creditnota As DOM.VKP.Factuur = ##class(vhTest.Utils.DOM.VKP.Factuur).StandaardCreditnota()
+	#dim Factuur As DOM.VKP.Factuur = ##class(vhTest.Utils.DOM.VKP.Factuur).StandaardFactuur()
 	
 	#dim OrderApiStub As vhTest.Mock.DOM.VKP.OrderAPI = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
-	do OrderApiStub.IndienMethodCall("GeefFactuur",VerkoopFactuur.GeefID()).DanReturn(VerkoopFactuur)
+	do OrderApiStub.IndienMethodCall("GeefFactuur",Creditnota.GeefID()).DanReturn(Creditnota)
+	do OrderApiStub.IndienMethodCall("GeefFactuur",Factuur.GeefID()).DanReturn(Factuur)
 	
 	set Converter = ##class(AX.Uitgaand.VKP.VerkoopFactuur.impl.AifConverter).%New(,,OrderApiStub)
-	#dim GeneralJournal As AXaif.LedgerGeneralJournal.AxdLedgerGeneralJournal = Converter.Convert(VerkoopFactuur.GeefID())
-	#dim JournalTable As AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTable = GeneralJournal.LedgerJournalTable.GetAt(1)
 	
-	if $$$AssertEquals(JournalTable.LedgerJournalTrans.Count(),2) {
-		do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(1).AccountType,"Cust")	
-		do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(1).AmountCurCredit,"121.00")
-		do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(2).AccountType,"Ledger")	
-		do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(2).AmountCurDebit,"100.00")
+	#dim GeneralJournalCreditnota As AXaif.LedgerGeneralJournal.AxdLedgerGeneralJournal = Converter.Convert(Creditnota.GeefID())
+	#dim JournalTableCreditnota As AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTable = GeneralJournalCreditnota.LedgerJournalTable.GetAt(1)
+	
+	if $$$AssertEquals(JournalTableCreditnota.LedgerJournalTrans.Count(),2) {
+		do $$$AssertEquals(JournalTableCreditnota.LedgerJournalTrans.GetAt(1).AccountType,"Cust")	
+		do $$$AssertEquals(JournalTableCreditnota.LedgerJournalTrans.GetAt(1).AmountCurCredit,"121.00")
+		do $$$AssertEquals(JournalTableCreditnota.LedgerJournalTrans.GetAt(2).AccountType,"Ledger")	
+		do $$$AssertEquals(JournalTableCreditnota.LedgerJournalTrans.GetAt(2).AmountCurDebit,"100.00")
 	}
+
+	#dim GeneralJournalFactuur As AXaif.LedgerGeneralJournal.AxdLedgerGeneralJournal = Converter.Convert(Factuur.GeefID())
+	#dim JournalTableFactuur As AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTable = GeneralJournalFactuur.LedgerJournalTable.GetAt(1)
+	
+	if $$$AssertEquals(JournalTableFactuur.LedgerJournalTrans.Count(),2) {
+		do $$$AssertEquals(JournalTableFactuur.LedgerJournalTrans.GetAt(1).AccountType,"Cust")	
+		do $$$AssertEquals(JournalTableFactuur.LedgerJournalTrans.GetAt(1).AmountCurDebit,"121.00")
+		do $$$AssertEquals(JournalTableFactuur.LedgerJournalTrans.GetAt(2).AccountType,"Ledger")	
+		do $$$AssertEquals(JournalTableFactuur.LedgerJournalTrans.GetAt(2).AmountCurCredit,"100.00")
+	}
 ]]></Implementation>
 </Method>