TECH.RegisteredObject AXimpl.InterneFirmaBepaler 1 DOM.VKP.VerkoopAPI 1 DOM.VKP.OrderAPI 1 AXimpl.Formatter 1 AXimpl.Utils 1 AXimpl.Dynamics.SalesInvoiceOut.Converter.GrootboekrekeningBepaler 1 TECH.MultiDim 1 1 %Decimal 1 FirmaBepaler:AXimpl.InterneFirmaBepaler,VerkoopAPI:DOM.VKP.VerkoopAPI,OrderAPI:DOM.VKP.OrderAPI,Utils:AXimpl.Utils 1 1 %Status 1 Command:AXimpl.Request AXif.Dynamics.SalesInvoiceOut.MessageParts FactuurId:%String 1 AXif.Dynamics.SalesInvoiceOut.MessageParts.AxdLedgerGeneralJournal Factuur:DOM.VKP.Factuur 1 AXif.Dynamics.SalesInvoiceOut.MessageParts.AxdEntityLedgerJournalTable Factuur:DOM.VKP.Factuur,BoekhoudkundigeRekening:%String,BoekingIndex:%Integer 1 AXif.Dynamics.SalesInvoiceOut.MessageParts.AxdEntityLedgerJournalTrans Factuur:DOM.VKP.Factuur 1 AXif.Dynamics.SalesInvoiceOut.MessageParts.AxdEntityLedgerJournalTrans Factuur:DOM.VKP.Factuur,ItemIndex:%Integer 1 AXif.Dynamics.SalesInvoiceOut.MessageParts.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 = ..Utils.ConvertKlantTaxItemGroup(..FirmaBepaler.GeefInitialen(),Factuur.GeefKlant()) 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(AXif.Dynamics.SalesInvoiceOut.MessageParts.AxdEntityLedgerJournalDimension).%New() set LedgerDimensionValues = ##class(AXif.Dynamics.SalesInvoiceOut.MessageParts.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