Index: vhUnitTest/AXimpl/Dynamics/SalesInvoiceOut/Converter/SalesInvoiceConverter/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/AXimpl/Dynamics/SalesInvoiceOut/Converter/SalesInvoiceConverter/Test.cls.xml	(revision 0)
+++ vhUnitTest/AXimpl/Dynamics/SalesInvoiceOut/Converter/SalesInvoiceConverter/Test.cls.xml	(revision 42252)
@@ -0,0 +1,128 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.AXimpl.Dynamics.SalesInvoiceOut.Converter.SalesInvoiceConverter.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="Table">
+<Type>AXif.Dynamics.SalesInvoiceOut.MessageParts.AxdEntityLedgerJournalTable</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	Set ..Table = ##class(AXif.Dynamics.SalesInvoiceOut.MessageParts.AxdEntityLedgerJournalTable).%New()
+]]></Implementation>
+</Method>
+
+<Method name="Test: normaal geval">
+<Implementation><![CDATA[
+	Do ..VoegLedgerJournalTransToe("Cust",0,100)
+	Do ..VoegLedgerJournalTransToe("Ledger",100,0)
+	
+	Set SalesInvoiceConverter = ##class(AXimpl.Dynamics.SalesInvoiceOut.Converter.SalesInvoiceConverter).%New()
+	Do SalesInvoiceConverter.CorrigeerAfrondingsVerschil(..Table)
+	
+	Do $$$AssertEquals(..Table.LedgerJournalTrans.GetAt(2).AmountCurDebit,100)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Verschil 1 cent, 1 LedgerTransaction">
+<Implementation><![CDATA[
+	Do ..VoegLedgerJournalTransToe("Cust",0,100)
+	Do ..VoegLedgerJournalTransToe("Ledger",99.99,0)
+	
+	Set SalesInvoiceConverter = ##class(AXimpl.Dynamics.SalesInvoiceOut.Converter.SalesInvoiceConverter).%New()
+	Do SalesInvoiceConverter.CorrigeerAfrondingsVerschil(..Table)
+	
+	Do $$$AssertEquals(..Table.LedgerJournalTrans.GetAt(2).AmountCurDebit,100)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Verschil 1 cent, 2 LedgerTransactions">
+<Implementation><![CDATA[
+	Do ..VoegLedgerJournalTransToe("Cust",0,100)
+	Do ..VoegLedgerJournalTransToe("Ledger",50,0)
+	Do ..VoegLedgerJournalTransToe("Ledger",49.99,0)
+	
+	Set SalesInvoiceConverter = ##class(AXimpl.Dynamics.SalesInvoiceOut.Converter.SalesInvoiceConverter).%New()
+	Do SalesInvoiceConverter.CorrigeerAfrondingsVerschil(..Table)
+	
+	Do $$$AssertEquals(..Table.LedgerJournalTrans.GetAt(2).AmountCurDebit,50)
+	Do $$$AssertEquals(..Table.LedgerJournalTrans.GetAt(3).AmountCurDebit,50)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Groter verschil, 2 LedgerTransactions, ook negatief bedrag">
+<Implementation><![CDATA[
+	Do ..VoegLedgerJournalTransToe("Cust",0,87)
+	Do ..VoegLedgerJournalTransToe("Ledger",50,0)
+	Do ..VoegLedgerJournalTransToe("Ledger",49.99,0)
+	Do ..VoegLedgerJournalTransToe("Ledger",-13,0)
+	
+	Set SalesInvoiceConverter = ##class(AXimpl.Dynamics.SalesInvoiceOut.Converter.SalesInvoiceConverter).%New()
+	Do SalesInvoiceConverter.CorrigeerAfrondingsVerschil(..Table)
+	
+	Do $$$AssertEquals(..Table.LedgerJournalTrans.GetAt(2).AmountCurDebit,50)
+	Do $$$AssertEquals(..Table.LedgerJournalTrans.GetAt(3).AmountCurDebit,49.99)
+	Do $$$AssertEquals(..Table.LedgerJournalTrans.GetAt(4).AmountCurDebit,-12.99)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Groter verschil, 2 LedgerTransactions, ook negatief bedrag, combinatie van debet en credit">
+<Implementation><![CDATA[
+	Do ..VoegLedgerJournalTransToe("Cust",0,87)
+	Do ..VoegLedgerJournalTransToe("Ledger",50,0)
+	Do ..VoegLedgerJournalTransToe("Ledger",49.99,0)
+	Do ..VoegLedgerJournalTransToe("Ledger",0,-13)
+	
+	Set SalesInvoiceConverter = ##class(AXimpl.Dynamics.SalesInvoiceOut.Converter.SalesInvoiceConverter).%New()
+	Do SalesInvoiceConverter.CorrigeerAfrondingsVerschil(..Table)
+	
+	Do $$$AssertEquals(..Table.LedgerJournalTrans.GetAt(2).AmountCurDebit,50)
+	Do $$$AssertEquals(..Table.LedgerJournalTrans.GetAt(3).AmountCurDebit,49.99)
+	Do $$$AssertEquals(..Table.LedgerJournalTrans.GetAt(4).AmountCurCredit,-12.99)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Berekening van de TaxItemGroup wordt uitgevoerd door derden">
+<Implementation><![CDATA[
+	set FirmaBepalerStub = ##class(vhTest.Fake.AXimpl.InterneFirmaBepaler).%New()
+	#dim FirmaInitialen As %String = FirmaBepalerStub.GeefInitialen()
+	
+	set VerkoopApiFake = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).%New()
+
+	set OrderApiStub = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
+	#dim Factuur As DOM.VKP.Factuur = ##class(vhTest.Utils.DOM.VKP.Factuur).StandaardFactuur()
+	#dim Klant As DOM.VKP.VanHoeckeKlant = Factuur.GeefKlant()
+	do OrderApiStub.IndienMethodCall("GeefFactuur",$$$ElkeWaarde).DanReturn(Factuur)
+	
+	set UtilsMock = ##class(vhTest.Mock.AXimpl.Utils).%New()
+	do UtilsMock.IndienMethodCall("ConvertKlantTaxGroup",FirmaInitialen,Klant).DanReturn($$$DummyString)
+	do UtilsMock.VerwachtMethodCall("ConvertKlantTaxItemGroup",FirmaInitialen,Klant).DanReturn("ABC")
+		
+	set SalesInvoiceConverter = ##class(AXimpl.Dynamics.SalesInvoiceOut.Converter.SalesInvoiceConverter).%New(FirmaBepalerStub,VerkoopApiFake,OrderApiStub,UtilsMock)
+	set Request = ##class(AXimpl.Request).%New("SalesInvoice",123456)
+	#dim Journal As AXif.Dynamics.SalesInvoiceOut.MessageParts.AxdLedgerGeneralJournal = SalesInvoiceConverter.Convert(Request).LedgerGeneralJournal
+	
+	do $$$AssertEquals(Journal.LedgerJournalTable.GetAt(1).LedgerJournalTrans.GetAt(1).TaxItemGroup,"ABC")
+	
+	do UtilsMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="VoegLedgerJournalTransToe">
+<FormalSpec>AccountType:%String,AmountCurDebit:%Decimal,AmountCurCredit:%Decimal</FormalSpec>
+<Implementation><![CDATA[
+	Set LedgerJournalTrans = ##class(AXif.Dynamics.SalesInvoiceOut.MessageParts.AxdEntityLedgerJournalTrans).%New()
+	Set LedgerJournalTrans.AccountType = AccountType
+	Set LedgerJournalTrans.AmountCurDebit = AmountCurDebit
+	Set LedgerJournalTrans.AmountCurCredit = AmountCurCredit
+	Do ..Table.LedgerJournalTrans.Insert(LedgerJournalTrans)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
FishEye: Tag 42252 refers to a dead (removed) revision in file `vhUnitTest/AXimpl/AifMessage/Converter/SalesInvoiceConverter/Test.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?