TECH.RegisteredObject AX.common.impl.FirmaBepaler 1 DOM.VKP.VerkoopAPI 1 DOM.VKP.OrderAPI 1 AX.common.impl.Formatter 1 AXimpl.Utils 1 AXimpl.AifMessage.Converter.SalesInvoiceConverter.GrootboekrekeningBepaler 1 TECH.MultiDim 1 1 %Decimal 1 FirmaBepaler:AX.common.impl.FirmaBepaler,VerkoopAPI:DOM.VKP.VerkoopAPI,OrderAPI:DOM.VKP.OrderAPI 1 1 %Status 1 Command:AXimpl.AifMessage.Request AXaif.LedgerGeneralJournal.AxdLedgerGeneralJournal FactuurId:%String 1 AXaif.LedgerGeneralJournal.AxdLedgerGeneralJournal Factuur:DOM.VKP.Factuur 1 AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTable Factuur:DOM.VKP.Factuur,BoekhoudkundigeRekening:%String,BoekingIndex:%Integer 1 AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTrans Factuur:DOM.VKP.Factuur 1 AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTrans Factuur:DOM.VKP.Factuur,ItemIndex:%Integer 1 AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTrans 0) Transaction.DateCashDisc = Factuur.GeefVervalDatumKortingContant() set:(Factuur.GeefTotaalKortingKontant()>0) Transaction.CashDiscCode = ..GetCashDiscCode(Factuur) set Transaction.OffsetAccountType = "Ledger" set Transaction.OffsetCompany = ..FirmaBepaler.GeefInitialen() set Transaction.Company = ..FirmaBepaler.GeefInitialen() set Transaction.class = "entity" set Transaction.CurrencyCode = Factuur.GeefMuntCode() set Transaction.TaxGroup = ..Utils.ConvertKlantTaxGroup(..FirmaBepaler.GeefInitialen(),Factuur.GeefKlant()) set Transaction.TaxItemGroup = "G3" set Transaction.LineNum = ..Formatter.FormatNumber(ItemIndex,10) set Transaction.Txt = Factuur.GeefKlant().GeefNaam() set Transaction.DocumentNum = Factuur.GeefID() set Transaction.Invoice = Factuur.GeefID() set Transaction.Voucher = Factuur.GeefID() set Transaction.TransactionType = "GeneralJournal" set LedgerDimension = ##class(AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalDimension).%New() set LedgerDimensionValues = ##class(AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalDimensionAttributeValue).%New() set LedgerDimensionValues.Name = "Klant" set LedgerDimensionValues.Value = ..Formatter.FormatAccountNumber(Factuur.GeefKlantNr()) do LedgerDimension.Values.Insert(LedgerDimensionValues) do Transaction.LedgerDimension.Insert(LedgerDimension) quit Transaction ]]> Factuur:DOM.VKP.Factuur 1 %String Factuur:DOM.VKP.Factuur 1