Index: AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter/GrootboekrekeningBepaler.cls.xml =================================================================== diff -u -r36470 -r42108 --- AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter/GrootboekrekeningBepaler.cls.xml (.../GrootboekrekeningBepaler.cls.xml) (revision 36470) +++ AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter/GrootboekrekeningBepaler.cls.xml (.../GrootboekrekeningBepaler.cls.xml) (revision 42108) @@ -23,7 +23,7 @@ KlantId:%String,AdminRekeningId:%String KlantId:%String,AdminRekeningId:%String - + TECH.RegisteredObject Index: AX/Uitgaand/VKP/OpenstaandeLeverancierFactuur/impl/DixfConverter.cls.xml =================================================================== diff -u -r36470 -r42108 --- AX/Uitgaand/VKP/OpenstaandeLeverancierFactuur/impl/DixfConverter.cls.xml (.../DixfConverter.cls.xml) (revision 36470) +++ AX/Uitgaand/VKP/OpenstaandeLeverancierFactuur/impl/DixfConverter.cls.xml (.../DixfConverter.cls.xml) (revision 42108) @@ -58,7 +58,7 @@ Set AxUnpaidInvoice.TransDate = ##class(TECH.Context).Instance().GeefFormatAPI().FormatDate(OpenstaandeAankoopFactuur.GeefFactuurDatum(),"DD/MM/JJJJ") Set AxUnpaidInvoice.Company = ..FirmaBepaler.GeefInitialen() Set AxUnpaidInvoice.AccountType = "2" - Set AxUnpaidInvoice.LedgerDimension = ##class(AX.common.impl.ConvertAdminToAX).ConvertCustomerID(LeverancierID) + Set AxUnpaidInvoice.LedgerDimension = ##class(AXimpl.AdminToAxUtils).ConvertCustomerID(LeverancierID) Set AxUnpaidInvoice.Txt = "Open leverancier 30/06/2016" Set AxUnpaidInvoice.OffsetCompany = ..FirmaBepaler.GeefInitialen() Set AxUnpaidInvoice.OffsetAccountType = "0" Index: vhUnitTest/AX/common/impl/ConvertAdminToAX/Test.cls.xml =================================================================== diff -u -r34766 -r42108 --- vhUnitTest/AX/common/impl/ConvertAdminToAX/Test.cls.xml (.../Test.cls.xml) (revision 34766) +++ vhUnitTest/AX/common/impl/ConvertAdminToAX/Test.cls.xml (.../Test.cls.xml) (revision 42108) @@ -8,7 +8,7 @@ #dim KlantID As %String = "K||1234" #dim ConvertedKlantID As %String = "" - Set Converter = ##class(AX.common.impl.ConvertAdminToAX).%New() + Set Converter = ##class(AXimpl.AdminToAxUtils).%New() Set ConvertedKlantID = Converter.ConvertCustomerID(KlantID) Do $$$AssertEquals(ConvertedKlantID,"01234","") @@ -20,7 +20,7 @@ #dim KlantID As %String = "" #dim ConvertedKlantID As %String = "" - Set Converter = ##class(AX.common.impl.ConvertAdminToAX).%New() + Set Converter = ##class(AXimpl.AdminToAxUtils).%New() Set ConvertedKlantID = Converter.ConvertCustomerID(KlantID) Do $$$AssertEquals(ConvertedKlantID,"00000","") Index: AXimpl/AifMessage/Converter/PurchaseInvoiceConverter.cls.xml =================================================================== diff -u -r35611 -r42108 --- AXimpl/AifMessage/Converter/PurchaseInvoiceConverter.cls.xml (.../PurchaseInvoiceConverter.cls.xml) (revision 35611) +++ AXimpl/AifMessage/Converter/PurchaseInvoiceConverter.cls.xml (.../PurchaseInvoiceConverter.cls.xml) (revision 42108) @@ -96,7 +96,7 @@ set Transaction.CashDiscAmount = ..Formatter.FormatNumber( -1 * ( Factuur.KortingKontant / TotaalGoederenInclusiefPort * Boeking.Bedrag ) ,2) } - #dim BoekhoudRekeningId As %String = ##class(AX.common.impl.ConvertAdminToAX).ConvertLedgerCount(Boeking.BoekhoudRekeningId) + #dim BoekhoudRekeningId As %String = ##class(AXimpl.AdminToAxUtils).ConvertLedgerCount(Boeking.BoekhoudRekeningId) set LedgerDimension = ##class(AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalDimension).%New() set LedgerDimension.Account = BoekhoudRekeningId Index: AX/Uitgaand/BKH/GrootboekRekeningSaldi/impl/DixfConverter.cls.xml =================================================================== diff -u -r36470 -r42108 --- AX/Uitgaand/BKH/GrootboekRekeningSaldi/impl/DixfConverter.cls.xml (.../DixfConverter.cls.xml) (revision 36470) +++ AX/Uitgaand/BKH/GrootboekRekeningSaldi/impl/DixfConverter.cls.xml (.../DixfConverter.cls.xml) (revision 42108) @@ -39,7 +39,7 @@ Set AxUnpaidInvoice.TransDate = "30/06/2016" Set AxUnpaidInvoice.Company = ..FirmaBepaler.GeefInitialen() Set AxUnpaidInvoice.AccountType = "0" - Set AxUnpaidInvoice.LedgerDimension = ##class(AX.common.impl.ConvertAdminToAX).ConvertLedgerCount(Saldi.GrootboekRekeningId) + Set AxUnpaidInvoice.LedgerDimension = ##class(AXimpl.AdminToAxUtils).ConvertLedgerCount(Saldi.GrootboekRekeningId) Set AxUnpaidInvoice.Txt = "Open grootboekrekening 30/06/2016" Set AxUnpaidInvoice.OffsetCompany = ..FirmaBepaler.GeefInitialen() Set AxUnpaidInvoice.OffsetAccountType = "0" Index: AXimpl/BizTalkMessage/Converter/CustomerConverter.cls.xml =================================================================== diff -u -r40883 -r42108 --- AXimpl/BizTalkMessage/Converter/CustomerConverter.cls.xml (.../CustomerConverter.cls.xml) (revision 40883) +++ AXimpl/BizTalkMessage/Converter/CustomerConverter.cls.xml (.../CustomerConverter.cls.xml) (revision 42108) @@ -70,7 +70,7 @@ 1 @@ -184,7 +184,7 @@ #dim AXTransactieOnbekend As AX.Uitgaand.BKH.OpenstaandeVerkoopFactuur.data.TransactionsLocal Set AXTransactieOnbekend = ##class(AX.Uitgaand.BKH.OpenstaandeVerkoopFactuur.data.TransactionsLocal).%New() - Set AXTransactieOnbekend.CUSTACCOUNT = ##class(AX.common.impl.ConvertAdminToAX).ConvertCustomerID(..KlantID) + Set AXTransactieOnbekend.CUSTACCOUNT = ##class(AXimpl.AdminToAxUtils).ConvertCustomerID(..KlantID) Set AXTransactieOnbekend.VOUCHER = "100010" Set AXTransactieOnbekend.AMOUNTCUR = 1 Index: AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfConverter.cls.xml =================================================================== diff -u -r36470 -r42108 --- AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfConverter.cls.xml (.../DixfConverter.cls.xml) (revision 36470) +++ AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfConverter.cls.xml (.../DixfConverter.cls.xml) (revision 42108) @@ -64,7 +64,7 @@ Set AxUnpaidInvoice.TransDate = ##class(TECH.Context).Instance().GeefFormatAPI().FormatDate(OpenstaandeVerkoopFactuur.GeefFactuurDatum(),"DD/MM/JJJJ") Set AxUnpaidInvoice.Company = ..FirmaBepaler.GeefInitialen() Set AxUnpaidInvoice.AccountType = "1" - Set AxUnpaidInvoice.LedgerDimension = ##class(AX.common.impl.ConvertAdminToAX).ConvertCustomerID(KlantID) + Set AxUnpaidInvoice.LedgerDimension = ##class(AXimpl.AdminToAxUtils).ConvertCustomerID(KlantID) Set AxUnpaidInvoice.Txt = "Open klant 30/06/2016" Set AxUnpaidInvoice.OffsetCompany = ..FirmaBepaler.GeefInitialen() Set AxUnpaidInvoice.OffsetAccountType = "0"