TECH.RegisteredObject AX.common.impl.FirmaBepaler 1 DOM.AKP.AankoopAPI 1 DOM.AKP.AankoopFactuur.impl.AankoopFactuurRepository 1 AX.common.impl.Formatter 1 FirmaBepaler:AX.common.impl.FirmaBepaler,AankoopFactuurRepository:DOM.AKP.AankoopFactuur.impl.AankoopFactuurRepository,AankoopAPI:DOM.AKP.AankoopAPI 1 1 %Status 1 Command:AXimpl.AifMessage.Request AXaif.Message.MessageParts FactuurId:%String 1 AXaif.LedgerGeneralJournal.AxdLedgerGeneralJournal Factuur:DOM.AKP.AankoopFactuur.data.AankoopFactuur AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTable Factuur:DOM.AKP.AankoopFactuur.data.AankoopFactuur,Boeking:DOM.AKP.AankoopFactuur.data.BoekhoudBoeking,BoekingIndex:%Integer 1 AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTrans 0 { #dim TotaalGoederenInclusiefPort As %Numeric = Factuur.Totaal set Transaction.CashDiscAmount = ..Formatter.FormatNumber( -1 * ( Factuur.KortingKontant / TotaalGoederenInclusiefPort * Boeking.Bedrag ) ,2) } #dim BoekhoudRekeningId As %String = ##class(AX.common.impl.ConvertAdminToAX).ConvertLedgerCount(Boeking.BoekhoudRekeningId) set LedgerDimension = ##class(AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalDimension).%New() set LedgerDimension.Account = BoekhoudRekeningId set LedgerDimension.DisplayValue = BoekhoudRekeningId set LedgerDimensionValues = ##class(AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalDimensionAttributeValue).%New() set LedgerDimensionValues.Name = "Leverancier" set LedgerDimensionValues.Value = ..Formatter.FormatAccountNumber(..AankoopAPI.GeefLeverancier(Factuur.LeverancierID).GeefCode()) do LedgerDimension.Values.Insert(LedgerDimensionValues) do Transaction.LedgerDimension.Insert(LedgerDimension) quit Transaction ]]> Factuur:DOM.AKP.AankoopFactuur.data.AankoopFactuur 1 AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTrans Factuur:DOM.AKP.AankoopFactuur.data.AankoopFactuur,ItemIndex:%Integer 1 AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTrans 0) Transaction.CashDiscCode = ..Formatter.FormatCashDiscount(Leverancier.GeefKortingKontant(),Leverancier.GeefTermijnKortingKontant()) set:(Factuur.KortingKontant>0) Transaction.DateCashDisc = ##class(TECH.PeriodUtils).Add(Factuur.Datum,Leverancier.GeefTermijnKortingKontant()) set Transaction.LineNum = ..Formatter.FormatNumber(ItemIndex,10) set Transaction.TransDate = Factuur.BoekingDatum set Transaction.DocumentDate = Factuur.Datum set Transaction.Due = Factuur.VervalDatum set Transaction.Txt = ..AankoopAPI.GeefLeverancier(Factuur.LeverancierID).GeefNaam() set Transaction.Invoice = Factuur.FactuurIdLeverancier set Transaction.Voucher = ##class(TECH.StringUtils).AlignRight(Factuur.GeefID(),0,9) set Transaction.Listcode = "IncludeNot" quit Transaction ]]>