TECH.RegisteredObject AXimpl.InterneFirmaBepaler 1 DOM.AKP.AankoopAPI 1 DOM.AKP.AankoopFactuur.impl.AankoopFactuurRepository 1 AXimpl.Formatter 1 FirmaBepaler:AXimpl.InterneFirmaBepaler,AankoopFactuurRepository:DOM.AKP.AankoopFactuur.impl.AankoopFactuurRepository,AankoopAPI:DOM.AKP.AankoopAPI 1 1 %Status 1 Command:AXimpl.Request,MessageId:%String="" AXif.Dynamics.SalesInvoiceOut.MessageParts FactuurId:%String 1 AXif.Dynamics.SalesInvoiceOut.MessageParts.AxdLedgerGeneralJournal Factuur:DOM.AKP.AankoopFactuur.data.AankoopFactuur AXif.Dynamics.SalesInvoiceOut.MessageParts.AxdEntityLedgerJournalTable Factuur:DOM.AKP.AankoopFactuur.data.AankoopFactuur,Boeking:DOM.AKP.AankoopFactuur.data.BoekhoudBoeking,BoekingIndex:%Integer 1 AXif.Dynamics.SalesInvoiceOut.MessageParts.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(AXimpl.AdminToAxUtils).ConvertLedgerCount(Boeking.BoekhoudRekeningId) set LedgerDimension = ##class(AXif.Dynamics.SalesInvoiceOut.MessageParts.AxdEntityLedgerJournalDimension).%New() set LedgerDimension.Account = BoekhoudRekeningId set LedgerDimension.DisplayValue = BoekhoudRekeningId set LedgerDimensionValues = ##class(AXif.Dynamics.SalesInvoiceOut.MessageParts.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 AXif.Dynamics.SalesInvoiceOut.MessageParts.AxdEntityLedgerJournalTrans Factuur:DOM.AKP.AankoopFactuur.data.AankoopFactuur,ItemIndex:%Integer 1 AXif.Dynamics.SalesInvoiceOut.MessageParts.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 ]]>