TECH.Mockable %String KOM %String $#KOM#$ DOM.VKP.OrderAPI 1 APPS.VKP.OrderLevenCyclusService 1 TECH.DateTime.DateTimeAPI 1 AXimpl.Admin.Common.ProductBepaler 1 DOM.VKP.DocumentReferentiesRepository 1 AXimpl.Dynamics.SalesOrderIn.Converter.OrderlijnenSorteerder 1 CHUI.VKP.OrderIngave.OrderSluiter 1 AXimpl.Dynamics.SalesOrderIn.Converter.ToeleveringService 1 vhLib.Logger 1 APPS.VKP.OrderIngaveService 1 APPS.VKP.Offerte.OfferteRepository 1 AXdata.Dynamics.SalesLineStatus.SalesOrderLineStatusRepository 1 DOM.VKP.VerkoopAPI 1 AXimpl.Dynamics.SalesOrderIn.Converter.Mailer 1 AXimpl.Dynamics.SalesOrderIn.Converter.SalesOrderConverter.LeverAdresMaker 1 DOM.common.Locatie.impl.LandRepository 1 %String 1 %String 1 %String 1 %Boolean 1 Prod.ProductRepository 1 DOM.PM.impl.ProductTypeAPIimpl 1 APPS.PM.Maatwerk.impl.VhConfigHelper 1 APPS.PM.Maatwerk.impl.VhConfigRepository 1 DOM.PM.impl.DataM.DataMProductRepository 1 WSimpl.AX.CalculatedProduct.ProductService 1 APPS.PM.Maatwerk.impl.BerekeningServiceProduct 1 OrderAPI:DOM.VKP.OrderAPI,OrderLevenCyclusService:APPS.VKP.OrderLevenCyclusService,DateTimeAPI:TECH.DateTime.DateTimeAPI="",ProductBepaler:AXimpl.Admin.Common.ProductBepaler,DocumentReferentiesRepository:DOM.VKP.DocumentReferentiesRepository,OrderlijnenSorteerder:AXimpl.Dynamics.SalesOrderIn.Converter.OrderlijnenSorteerder,OrderSluiter:CHUI.VKP.OrderIngave.BevestigdAXOrderSluiterv01,ToeleveringService:AXimpl.Dynamics.SalesOrderIn.Converter.ToeleveringService,OrderIngaveService:APPS.VKP.OrderIngaveService,OfferteRepository:APPS.VKP.Offerte.OfferteRepository,SalesOrderLineStatusRepository:AXdata.Dynamics.SalesLineStatus.SalesOrderLineStatusRepository,VerkoopApi:DOM.VKP.VerkoopAPI,Mailer:AXimpl.Dynamics.SalesOrderIn.Converter.Mailer,LeverAdresMaker:AXimpl.Dynamics.SalesOrderIn.Converter.SalesOrderConverter.LeverAdresMaker,LandRepository:DOM.common.Locatie.impl.LandRepository,ProductRepository:Prod.ProductRepository="",ProductTypeAPI:DOM.PM.impl.ProductTypeAPIimpl="",DataMProductRepository:DOM.PM.impl.DataM.DataMProductRepository="",ProductService:WSimpl.AX.CalculatedProduct.ProductService="",BerekeningServiceProduct:APPS.PM.Maatwerk.impl.BerekeningServiceProduct="" 1 1 %Status 1 Message:AXif.Dynamics.SalesOrderIn.Envelope OrderHeader:AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderHeader 1 SalesId:%String,OrderLine:AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderLine,Actie:%String 1 OrderHeader:AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderHeader 1 verwijder orderlijnen met zelfde inventtransid. If (Order.GeefAantalLijnenViaAxInventTransId(OrderLine.InventTransId) > 1) { Do Order.VerwijderOrderLijnenViaAxInventTransId(OrderLine.InventTransId) Do ..BewaarOrder(Order) } Do ..UpdateOrderLijn(..GeefOfMaakOrderLijn(Order, OrderLine), OrderLine, Order) } Do ..BewaarOrder(Order) Do ..VerwijderOrderIndienGeenOrderLijnen(.Order) Do ..OrderlijnenSorteerder.SorteerGepersisteerdeOrderLijnen(Order) Do:..IsNieuwOrder(Order) ##class(DOM.VKP.event.OrderEventRaiser).RaiseOrderGemaaktEvent(..OrderID) Do ..SluitOrder(Order) Do ..Mailer.VerzendMeldingGeblokkeerdeOrderLijnen(Order,OrderHeader.ModifiedByAlias) Set Order = "" } Do ..UnLockOrder() } Else { Do ..Logger.Info("SalesOrderIn - Klant bestaat niet in Cache", "Klant: '"_OrderHeader.CustAccount_"', voor Order: '"_..OrderID_"', bestaat (nog) niet in Cache. Geen ingreep nodig. OV is via mail op de hoogte gebracht.") #dim User As %String = OrderHeader.ModifiedByAlias Do ..Mailer.VerzendKlantNietGevondenMelding(User, OrderHeader.CustAccount, ..OrderID) } ]]> 1 1 1 Order:DOM.VKP.Order 1 Order:DOM.VKP.Order 1 Order:DOM.VKP.Order 1 OrderLijn:DOM.VKP.ProductOrderlijn,OrderLine:AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderLine,Order:DOM.VKP.Order 1 OrderLine:AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderLine 1 %String OrderLine:AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderLine 1 %String OrderLine:AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderLine 1 %String OrderLine:AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderLine 1 %Boolean PackingSlipBody:%String 1 %String Order:DOM.VKP.Order,OrderLine:AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderLine 1 OrderLine:AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderLine 1 %Boolean KlantID:DOM.VKP.VanHoeckeKlantID,OrderHeader:AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderHeader 1 DOM.VKP.Order OrderHeader:AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderHeader 1 %Boolean 0) ]]> Order:DOM.VKP.Order,OrderLine:AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderLine 1 DOM.VKP.PrijsOrderlijn 0)) { Do PrijsOrderLijn.ZetProductID(ProductId, $$$True) } ElseIf (IsEenMaatwerkLijn && IsAdminProductNummerMeegegeven) { Do PrijsOrderLijn.ZetProductID(..GeefAttributeValue(OrderLine.Attribute,"AdminProductNummer"), $$$True) } Quit PrijsOrderLijn } If ..IsProductLijn(OrderLine) { Set PrijsOrderLijn = ..VoegToeProductLijn(Order, OrderLine) } Else { Set PrijsOrderLijn = ..VoegToeMaatwerkLijn(Order, OrderLine, ProductId) } Quit PrijsOrderLijn ]]> 1 %String 0) { Do ..VerwijderOrderLijn(Order, OrderLine) Do ..BewaarOrder(Order) Do ..LogLijn(Order.GeefID(), OrderLine, "Verwijder OrderLijn") If $$$Not(..ProductService.HeeftBezwaarVoorProductDelete(ReedsGekendeProductId)) { Set ProductData.PRNr = ReedsGekendeProductId Do ..NeemLockOpProduct(ReedsGekendeProductId) Do ..VerwijderProduct(ReedsGekendeProductId) Set IsProductIdHergebruikt = $$$True } } #dim MaatwerkProduct As DOM.PM.MaatwerkProduct = ..BerekeningServiceProduct.MaakProductVanKenmerken(..VhConfigHelper.GeefIngegevenKenmerken(), ..KlantID, 1, ProductData, VhConfig) If ((ReedsGekendeProductId > 0) && IsProductIdHergebruikt) { Do ..Logger.Warning("SalesOrderIn - ProductCreatie", "Product '"_ReedsGekendeProductId_"' opnieuw gemaakt in Cache! DossierNummer = '"_OrderLine.DossierCode_"'") Do ..UnlockProduct(ReedsGekendeProductId) } Quit MaatwerkProduct.GeefID() ]]> ProductId:%String 1 ProductId:%String 1 ProductId:%String 1 ProductId:%String 1 ProductId:%String 1 Order:DOM.VKP.Order,OrderHeader:AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderHeader 1 OrderHeader:AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderHeader 1 %String InkomendSalesId:%String,OrderSalesId:%String 1 OrderID:%Integer 1 OrderLine:AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderLine 1 %Boolean OrderLine:AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderLine 1 %Boolean Order:DOM.VKP.Order,OrderLine:AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderLine 1 DOM.VKP.impl.DataM.DataMProductOrderlijn Order:DOM.VKP.Order,OrderLine:AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderLine,ProductId:%String="" 1 DOM.VKP.impl.DataM.DataMProductOrderlijn OrderLine:AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderLine 1 %Date OrderHeader:AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderHeader 1 %String OrderHeader:AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderHeader 1 DOM.CRM.enu.LeveringVoorwaarde OrderHeader:AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderHeader 1 %Date OrderHeader:AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderHeader 1 %Date Order:DOM.VKP.Order,OrderHeader:AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderHeader 1 Attributes:%ListOfObjects,Key:%String 1 %String OrderLine:AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderLine 1 %Boolean OrderLine:AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderLine 1 %Boolean OrderLine:AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderLine 1 %Boolean Text:%String 1 %String DossierCode:%String,MaatwerkModel:%String 1 %Integer VhConfig:%String 1 APPS.PM.Maatwerk.dto.VhConfig JsonStream:%Stream,RootObjectClassname:%String 1 TECH.RegisteredObject