FishEye: Tag 34611 refers to a dead (removed) revision in file `vhUnitTest/AX/Uitgaand/BKH/VerkoopFactuur/impl/AifConverter/TestFactuurKortingContant.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: vhUnitTest/AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter/Test.cls.xml	(revision 0)
+++ vhUnitTest/AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter/Test.cls.xml	(revision 34611)
@@ -0,0 +1,142 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.AX.Uitgaand.VKP.VerkoopFactuur.impl.AifConverter.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Algemeen gedrag">
+<Implementation><![CDATA[
+	#dim VerkoopFactuur As DOM.BKH.VerkoopFactuur = ##class(vhTest.Utils.DOM.BKH.VerkoopFactuur).StandaardFactuur()
+	
+	set Converter = ##class(AX.Uitgaand.VKP.VerkoopFactuur.impl.AifConverter).%New()
+	#dim GeneralJournal As AXaif.LedgerGeneralJournal.AxdLedgerGeneralJournal = Converter.Convert(VerkoopFactuur)
+	
+	#dim JournalTable As AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTable = GeneralJournal.LedgerJournalTable.GetAt(1)
+	do ..AssertJournalTableBasisInfo(JournalTable)
+	do ..AssertKlantGerelateerdeGegevens(JournalTable.LedgerJournalTrans.GetAt(1))
+	do ..AssertGrootboekGerelateerdeGegevens(JournalTable.LedgerJournalTrans.GetAt(2))
+]]></Implementation>
+</Method>
+
+<Method name="Test: Journal name afhankelijk van de firma">
+<Implementation><![CDATA[
+	set FirmaBepaler = ##class(vhTest.Mock.AX.common.impl.FirmaBepaler).%New()
+	do FirmaBepaler.IndienMethodCall("GeefInitialen").DanReturn("HX")
+	do FirmaBepaler.IndienMethodCall("GeefNaam").DanReturn("Halux")
+	
+	#dim VerkoopFactuur As DOM.BKH.VerkoopFactuur = ##class(vhTest.Utils.DOM.BKH.VerkoopFactuur).StandaardFactuur()
+	
+	set Converter = ##class(AX.Uitgaand.VKP.VerkoopFactuur.impl.AifConverter).%New(FirmaBepaler)
+	#dim GeneralJournal As AXaif.LedgerGeneralJournal.AxdLedgerGeneralJournal = Converter.Convert(VerkoopFactuur)
+
+	#dim JournalTable As AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTable = GeneralJournal.LedgerJournalTable.GetAt(1)
+	do $$$AssertEquals(JournalTable.JournalName,"HX-VF")
+	do $$$AssertEquals(JournalTable.Name,"Halux verkoopfacturen interface")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Een factuur met één boekingslijn bevat twee transacties één voor de klant en een voor de grootberekening">
+<Implementation><![CDATA[
+	#dim VerkoopFactuur As DOM.BKH.VerkoopFactuur = ##class(vhTest.Utils.DOM.BKH.VerkoopFactuur).StandaardFactuur()
+	set Boekingen = ##class(DOM.BKH.FactuurBoekingList).%New()
+	do Boekingen.Insert(##class(vhTest.Fake.DOM.BKH.FactuurBoeking).%New(100,700000))
+	do VerkoopFactuur.IndienMethodCall("GeefBoekingen").DanReturn(Boekingen)
+	
+	set Converter = ##class(AX.Uitgaand.VKP.VerkoopFactuur.impl.AifConverter).%New()
+	#dim GeneralJournal As AXaif.LedgerGeneralJournal.AxdLedgerGeneralJournal = Converter.Convert(VerkoopFactuur)
+	#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(2).AccountType,"Ledger")	
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Test: Een creditnota geeft een omgekeerde werking">
+<Implementation><![CDATA[
+	#dim VerkoopFactuur As DOM.BKH.VerkoopFactuur = ##class(vhTest.Utils.DOM.BKH.VerkoopFactuur).StandaardCreditnota()
+	
+	set Converter = ##class(AX.Uitgaand.VKP.VerkoopFactuur.impl.AifConverter).%New()
+	#dim GeneralJournal As AXaif.LedgerGeneralJournal.AxdLedgerGeneralJournal = Converter.Convert(VerkoopFactuur)
+	#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")
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Test: Een factuur met twee boekingslijnen bevat drie transacties één voor de klant en twee voor de grootberekening">
+<Implementation><![CDATA[
+	set Boekingen = ##class(DOM.BKH.FactuurBoekingList).%New()
+	do Boekingen.Insert(##class(vhTest.Fake.DOM.BKH.FactuurBoeking).%New(50,700000))
+	do Boekingen.Insert(##class(vhTest.Fake.DOM.BKH.FactuurBoeking).%New(50,700100))
+	
+	#dim VerkoopFactuur As DOM.BKH.VerkoopFactuur = ##class(vhTest.Utils.DOM.BKH.VerkoopFactuur).StandaardFactuur()
+	do VerkoopFactuur.IndienMethodCall("GeefBoekingen").DanReturn(Boekingen)
+	
+	set Converter = ##class(AX.Uitgaand.VKP.VerkoopFactuur.impl.AifConverter).%New()
+	#dim GeneralJournal As AXaif.LedgerGeneralJournal.AxdLedgerGeneralJournal = Converter.Convert(VerkoopFactuur)
+	#dim JournalTable As AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTable = GeneralJournal.LedgerJournalTable.GetAt(1)
+	
+	if $$$AssertEquals(JournalTable.LedgerJournalTrans.Count(),3) {
+		do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(1).AccountType,"Cust")	
+		do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(2).AccountType,"Ledger")	
+		do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(3).AccountType,"Ledger")
+	}
+]]></Implementation>
+</Method>
+
+<Method name="AssertJournalTableBasisInfo">
+<FormalSpec>JournalTable:AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTable</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	do $$$AssertEquals(JournalTable.class,"entity")
+	do $$$AssertEquals(JournalTable.JournalName,"VH-VF")
+	do $$$AssertEquals(JournalTable.Name,"Van Hoecke verkoopfacturen interface")
+]]></Implementation>
+</Method>
+
+<Method name="AssertKlantGerelateerdeGegevens">
+<FormalSpec>Transactie:AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTrans</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	do $$$AssertEquals(Transactie.AccountType,"Cust")
+	do $$$AssertEquals(Transactie.AmountCurDebit,"121.00")
+	do $$$AssertEquals(Transactie.AmountCurCredit,"")
+	do $$$AssertEquals(Transactie.CurrencyCode,"EUR")
+	do $$$AssertEquals(Transactie.LedgerDimension.Account,"01234")
+	do $$$AssertEquals(Transactie.LedgerDimension.DisplayValue,"01234 - DE KLANTNAAM")
+	do $$$AssertEquals(Transactie.LineNum,"1.0000000000")
+	do $$$AssertEquals(Transactie.OffsetAccountType,"Ledger")
+	do $$$AssertEquals(Transactie.Txt,"DE KLANTNAAM")
+	do $$$AssertEquals(Transactie.TransDate,"2011-06-30")
+	do $$$AssertEquals(Transactie.DocumentNum,"F123.456")
+	do $$$AssertEquals(Transactie.Voucher,"F123456")
+]]></Implementation>
+</Method>
+
+<Method name="AssertGrootboekGerelateerdeGegevens">
+<FormalSpec>Transactie:AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTrans</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	do $$$AssertEquals(Transactie.AccountType,"Ledger")
+	do $$$AssertEquals(Transactie.AmountCurCredit,"100.00")
+	do $$$AssertEquals(Transactie.AmountCurDebit,"")
+	do $$$AssertEquals(Transactie.CurrencyCode,"EUR")
+	do $$$AssertEquals(Transactie.LedgerDimension.Account,"700000")
+	do $$$AssertEquals(Transactie.LedgerDimension.DisplayValue,"700000-")
+	do $$$AssertEquals(Transactie.LineNum,"2.0000000000")
+	do $$$AssertEquals(Transactie.OffsetAccountType,"Ledger")
+	do $$$AssertEquals(Transactie.Txt,"DE KLANTNAAM")
+	do $$$AssertEquals(Transactie.TransDate,"2011-06-30")
+	do $$$AssertEquals(Transactie.Voucher,"F123456")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter.cls.xml	(revision 0)
+++ AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter.cls.xml	(revision 34611)
@@ -0,0 +1,145 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.VKP.VerkoopFactuur.impl.AifConverter">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="FirmaBepaler">
+<Type>AX.common.impl.FirmaBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="VerkoopAPI">
+<Type>DOM.VKP.VerkoopAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Formatter">
+<Type>AX.common.impl.Formatter</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>FirmaBepaler:AX.common.impl.FirmaBepaler,VerkoopAPI:DOM.VKP.VerkoopAPI</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 ..Formatter = ##class(AX.common.impl.Formatter).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Convert">
+<FormalSpec>Factuur:DOM.BKH.VerkoopFactuur</FormalSpec>
+<ReturnType>AXaif.LedgerGeneralJournal.AxdLedgerGeneralJournal</ReturnType>
+<Implementation><![CDATA[
+	set LedgerGeneralJournal = ##class(AXaif.LedgerGeneralJournal.AxdLedgerGeneralJournal).%New()
+	do LedgerGeneralJournal.LedgerJournalTable.Insert(..GetJournalTable(Factuur))
+	quit LedgerGeneralJournal
+]]></Implementation>
+</Method>
+
+<Method name="GetJournalTable">
+<FormalSpec>Factuur:DOM.BKH.VerkoopFactuur</FormalSpec>
+<ReturnType>AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTable</ReturnType>
+<Implementation><![CDATA[
+	set Table = ##class(AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTable).%New()
+	set Table.class = "entity"
+	set Table.JournalName = ..FirmaBepaler.GeefInitialen()_"-VF"
+	set Table.Name = ..FirmaBepaler.GeefNaam()_" verkoopfacturen interface"
+	
+	do Table.LedgerJournalTrans.Insert(..GetCustTransaction(Factuur))
+	
+	#dim BoekingIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Factuur.GeefBoekingen())
+	while BoekingIterator.HasNext() {
+		#dim Boeking As DOM.BKH.FactuurBoeking = BoekingIterator.Next()
+		do Table.LedgerJournalTrans.Insert(..GetLedgerTransaction(Factuur,Boeking,BoekingIterator.Key()))
+	}
+	quit Table
+]]></Implementation>
+</Method>
+
+<Method name="GetLedgerTransaction">
+<FormalSpec>Factuur:DOM.BKH.VerkoopFactuur,Boeking:DOM.BKH.FactuurBoeking,BoekingIndex:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTrans</ReturnType>
+<Implementation><![CDATA[
+	#dim Transaction As AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTrans = ..MakeTransaction(Factuur,BoekingIndex+1)
+	set Transaction.AccountType = "Ledger"
+
+	set:(Factuur.GeefType()=##class(DOM.BKH.enu.FactuurType).Factuur()) Transaction.AmountCurCredit = ..Formatter.FormatNumber(Boeking.GeefBedrag(),2)
+	set:(Factuur.GeefType()=##class(DOM.BKH.enu.FactuurType).Creditnota()) Transaction.AmountCurDebit = ..Formatter.FormatNumber(Boeking.GeefBedrag(),2)
+
+	set Transaction.LedgerDimension.Account = Boeking.GeefBoekhoudRekeningNr()
+	set Transaction.LedgerDimension.DisplayValue = Boeking.GeefBoekhoudRekeningNr()_"-"
+	quit Transaction
+]]></Implementation>
+</Method>
+
+<Method name="GetCustTransaction">
+<FormalSpec>Factuur:DOM.BKH.VerkoopFactuur</FormalSpec>
+<Private>1</Private>
+<ReturnType>AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTrans</ReturnType>
+<Implementation><![CDATA[
+	#dim Transaction As AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTrans = ..MakeTransaction(Factuur,1)
+	set Transaction.AccountType = "Cust"
+	set Transaction.OffsetAccountType = "Ledger"
+	
+	set Transaction.CashDiscAmount = ..Formatter.FormatNumber(Factuur.GeefBedragKortingContant(),2)
+
+	set:(Factuur.GeefType()=##class(DOM.BKH.enu.FactuurType).Factuur()) Transaction.AmountCurDebit = ..Formatter.FormatNumber(Factuur.GeefTotaalInclusiefBTW(),2)
+	set:(Factuur.GeefType()=##class(DOM.BKH.enu.FactuurType).Creditnota()) Transaction.AmountCurCredit = ..Formatter.FormatNumber(Factuur.GeefTotaalInclusiefBTW(),2)
+		
+	set Transaction.LedgerDimension.Account = ..Formatter.FormatAccountNumber(Factuur.GeefKlantNr())
+	set Transaction.LedgerDimension.DisplayValue = ..Formatter.FormatAccountNumber(Factuur.GeefKlantNr())_" - "_Factuur.GeefKlantNaam()
+	quit Transaction
+]]></Implementation>
+</Method>
+
+<Method name="MakeTransaction">
+<FormalSpec>Factuur:DOM.BKH.VerkoopFactuur,ItemIndex:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTrans</ReturnType>
+<Implementation><![CDATA[
+	set Transaction = ##class(AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTrans).%New()
+	
+	set Transaction.LedgerDimension = ##class(AXaif.Shared.AxdTypeMultiTypeAccount).%New()
+	set Transaction.OffsetAccountType = "Ledger"
+	set Transaction.OffsetCompany = "prbe"
+	set Transaction.Company = "prbe"
+	set Transaction.class = "entity"
+	set Transaction.CurrencyCode = Factuur.GeefMunt()
+	
+	set:(Factuur.GeefBedragKortingContant()>0) Transaction.CashDiscCode = ..GetCashDiscCode(Factuur)
+	
+	set Transaction.LineNum = ..Formatter.FormatNumber(ItemIndex,10)
+	
+	set Transaction.TransDate = ..Formatter.FormatDate(Factuur.GeefDatum())
+	set Transaction.Due = ..Formatter.FormatDate(Factuur.GeefVervaldatum())
+	 
+	set Transaction.Txt = Factuur.GeefKlantNaam()
+	
+	set Transaction.DocumentNum = "F"_$extract(Factuur.GeefID(),1,3)_"."_$extract(Factuur.GeefID(),4,6)
+	set Transaction.Voucher = "F"_Factuur.GeefID()
+	
+	
+	quit Transaction
+]]></Implementation>
+</Method>
+
+<Method name="GetCashDiscCode">
+<FormalSpec>Factuur:DOM.BKH.VerkoopFactuur</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Klant As DOM.VKP.VanHoeckeKlant = ..VerkoopAPI.GeefKlant(Factuur.GeefKlantID())
+	quit ..Formatter.FormatCashDiscount(Klant.GeefKortingContantPercentage(),Klant.GeefKortingContantTermijn())
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/VKP/VerkoopFactuur/impl/AifGenerator.cls.xml
===================================================================
diff -u -r34009 -r34611
--- AX/Uitgaand/VKP/VerkoopFactuur/impl/AifGenerator.cls.xml	(.../BKH/VerkoopFactuur/impl/AifGenerator.cls.xml)	(revision 34009)
+++ AX/Uitgaand/VKP/VerkoopFactuur/impl/AifGenerator.cls.xml	(.../VKP/VerkoopFactuur/impl/AifGenerator.cls.xml)	(revision 34611)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="AX.Uitgaand.BKH.VerkoopFactuur.impl.AifGenerator">
+<Class name="AX.Uitgaand.VKP.VerkoopFactuur.impl.AifGenerator">
 <Super>TECH.RegisteredObject</Super>
 
 <Property name="FileAPI">
@@ -13,7 +13,7 @@
 </Property>
 
 <Property name="Converter">
-<Type>AX.Uitgaand.BKH.VerkoopFactuur.impl.AifConverter</Type>
+<Type>AX.Uitgaand.VKP.VerkoopFactuur.impl.AifConverter</Type>
 <Private>1</Private>
 </Property>
 
@@ -25,7 +25,7 @@
 <Implementation><![CDATA[
 	set ..FileAPI = ##class(TECH.Context).Instance().GeefFileAPI()
 	set ..BoekhoudingAPI = ##class(DOM.DomeinContext).Instance().GeefBoekhoudingAPI()
-	set ..Converter = ##class(AX.Uitgaand.BKH.VerkoopFactuur.impl.AifConverter).%New()
+	set ..Converter = ##class(AX.Uitgaand.VKP.VerkoopFactuur.impl.AifConverter).%New()
 
 	Quit $$$OK
 ]]></Implementation>
Index: vhUnitTest/AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter/TestFactuurKortingContant.cls.xml
===================================================================
diff -u -r34009 -r34611
--- vhUnitTest/AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter/TestFactuurKortingContant.cls.xml	(.../BKH/VerkoopFactuur/impl/AifConverter/TestFactuurKortingContant.cls.xml)	(revision 34009)
+++ vhUnitTest/AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter/TestFactuurKortingContant.cls.xml	(.../VKP/VerkoopFactuur/impl/AifConverter/TestFactuurKortingContant.cls.xml)	(revision 34611)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="vhUnitTest.AX.Uitgaand.BKH.VerkoopFactuur.impl.AifConverter.TestFactuurKortingContant">
+<Class name="vhUnitTest.AX.Uitgaand.VKP.VerkoopFactuur.impl.AifConverter.TestFactuurKortingContant">
 <Super>vhUnitTest.TestCase</Super>
 
 <Method name="Test: Een factuur met kortingcontant">
@@ -22,7 +22,7 @@
 	do KlantStub.IndienMethodCall("GeefKortingContantTermijn").DanReturn("8D")
 	do VerkoopApiStub.IndienMethodCall("GeefKlant","K||1234").DanReturn(KlantStub)
 	
-	set Converter = ##class(AX.Uitgaand.BKH.VerkoopFactuur.impl.AifConverter).%New(,VerkoopApiStub)
+	set Converter = ##class(AX.Uitgaand.VKP.VerkoopFactuur.impl.AifConverter).%New(,VerkoopApiStub)
 	
 	#dim GeneralJournal As AXaif.LedgerGeneralJournal.AxdLedgerGeneralJournal = Converter.Convert(VerkoopFactuur)
 	#dim JournalTable As AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTable = GeneralJournal.LedgerJournalTable.GetAt(1)
FishEye: Tag 34611 refers to a dead (removed) revision in file `vhUnitTest/AX/Uitgaand/BKH/VerkoopFactuur/impl/AifConverter/Test.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 34611 refers to a dead (removed) revision in file `AX/Uitgaand/BKH/VerkoopFactuur/impl/AifGenerator.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 34611 refers to a dead (removed) revision in file `AX/Uitgaand/BKH/VerkoopFactuur/impl/AifConverter.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?