Index: AXimpl/Dynamics/InventoryOut/EventHandler/ReceptieAfmelden.cls.xml =================================================================== diff -u -r58092 -r58093 --- AXimpl/Dynamics/InventoryOut/EventHandler/ReceptieAfmelden.cls.xml (.../ReceptieAfmelden.cls.xml) (revision 58092) +++ AXimpl/Dynamics/InventoryOut/EventHandler/ReceptieAfmelden.cls.xml (.../ReceptieAfmelden.cls.xml) (revision 58093) @@ -33,6 +33,8 @@ #dim Aantal As %Integer = ProductToelevLijnEvent.Data.GeefAantal() #dim AxInventTransId As %String = ProductToelevLijnEvent.Data.GeefAxInventTransId() #dim ProductId As %String = ProductToelevLijnEvent.Data.GeefProductID() + #dim OrderId As %String + #dim OrderLijnId As %String Set ReceptieAfmeldenInputDto = ##class(AXimpl.Dynamics.InventoryOut.Converter.dto.ReceptieAfmeldenInput).%New() Set ReceptieAfmeldenInputDto.Aantal = Aantal @@ -46,8 +48,8 @@ Set Request = ##class(AXimpl.Request).%New("Inventory/ReceptieAfmelden",ProductToelevLijnEvent.Data.GeefToeleveringID()_"_"_ProductToelevLijnEvent.Data.GeefToeleveringLijnCode(), ReceptieAfmeldenInputDto) If ((ProductToelevLijnEvent.%IsA("DOM.AKP.event.Cache05GeproduceerdEvent")) && (SpaceTowerAfhandelaar.IsLadeVanSpaceTowerProduct(ProductId))) { - #dim OrderId As %String = ProductToelevLijnEvent.Data.GeefOrderId() // STAAT ENKEL OP Cache05GeproduceerdEvent - #dim OrderLijnId As %String = ProductToelevLijnEvent.Data.GeefOrderLijnId() // STAAT ENKEL OP Cache05GeproduceerdEvent + Set OrderId = ProductToelevLijnEvent.Data.GeefOrderId() // STAAT ENKEL OP Cache05GeproduceerdEvent + Set OrderLijnId = ProductToelevLijnEvent.Data.GeefOrderLijnId() // STAAT ENKEL OP Cache05GeproduceerdEvent Do SpaceTowerAfhandelaar.VerwerkSpaceTowerKindProduct(ProductId, AxInventTransId, OrderId, OrderLijnId, Aantal) @@ -58,6 +60,16 @@ } Else { Set MagRequestGenereren = $$$False } + } ElseIf (ProductToelevLijnEvent.%IsA("DOM.AKP.event.Cache05GeproduceerdEvent")) { + #dim MoederProductService As AXimpl.Dynamics.InventoryOut.EventHandler.ReceptieAfmelden.MoederProductService = ##class(AXimpl.Dynamics.InventoryOut.EventHandler.ReceptieAfmelden.MoederProductService).%New() + Set OrderId = ProductToelevLijnEvent.Data.GeefOrderId() // STAAT ENKEL OP Cache05GeproduceerdEvent + Set OrderLijnId = ProductToelevLijnEvent.Data.GeefOrderLijnId() // STAAT ENKEL OP Cache05GeproduceerdEvent + + If ($$$Not(ProductId = MoederProductService.GeefProductIdVanProductOpOrderLijn(OrderId, OrderLijnId))) { + If (MoederProductService.IsEenMoederProductMetStockOverKinderen(OrderId, OrderLijnId)) { + Set MagRequestGenereren = $$$False + } + } } } Else { Set Request = ##class(AXimpl.Request).%New("Inventory/Update",ProductToelevLijnEvent.Data.GeefProductID())