TECH.Mockable TECH.DateTime.DateTimeAPI 1 DOM.AKP.ToeleveringAPI 1 AXimpl.Admin.Common.ProductBepaler 1 DOM.AKP.Toelevering array 1 DOM.AKP.Toelevering array 1 DOM.AKP.Toelevering list 1 APPS.AKP.Receptie.impl.ReceptieService 1 AXimpl.Dynamics.InventoryOut.Converter.InventoryOutConverter 1 Prod.ProductRepository 1 DOM.AKP.AankoopAPI 1 DOM.PM.ProductTypeAPI 1 AXimpl.Dynamics.InventoryIn.Converter.ConversieBezwarenBepaler 1 BL.Legacy.FLOWTOE 1 %String 1 vhLib.Logger 1 AXimpl.Dynamics.InventoryIn.Converter.TeOntvangenProductLocker 1 AXimpl.Admin.Common.HerverpakteSoprService 1 ToeleveringAPI:DOM.AKP.ToeleveringAPI,ProductLookup:AXimpl.Admin.Common.ProductBepaler,ReceptieService:APPS.AKP.Receptie.impl.ReceptieService,InventoryOutConverter:AXimpl.Dynamics.InventoryOut.Converter.InventoryOutConverter,ProductRepository:Prod.ProductRepository,AankoopAPI:DOM.AKP.AankoopAPI,ProductTypeAPI:DOM.PM.ProductTypeAPI,ConversieBezwarenBepaler:AXimpl.Dynamics.InventoryIn.Converter.ConversieBezwarenBepaler,FLOWTOE:BL.Legacy.FLOWTOE,ProductLocker:AXimpl.Dynamics.InventoryIn.Converter.TeOntvangenProductLocker,HerverpakteSoprService:AXimpl.Admin.Common.HerverpakteSoprService 1 1 %Status 1 WMSJournalOutRequest:AXif.Dynamics.InventoryIn.MessageParts.AxdADUMsgWMSJournalOut,MessageId:%String AXif.Dynamics.Inventory.MessageParts Melding:%String,MessageId:%String 1 AXif.Dynamics.Inventory.MessageParts WMSJournalOutRequest:AXif.Dynamics.InventoryIn.MessageParts.AxdADUMsgWMSJournalOut 1 JournalEntry:AXif.Dynamics.InventoryIn.MessageParts.AxdEntityJournalTable,JournalEntryLine:AXif.Dynamics.InventoryIn.MessageParts.AxdEntityJournalTrans 1 DOM.AKP.Toelevering JournalEntry:AXif.Dynamics.InventoryIn.MessageParts.AxdEntityJournalTable,JournalEntryLine:AXif.Dynamics.InventoryIn.MessageParts.AxdEntityJournalTrans 1 DOM.AKP.Toelevering JournalEntryLine:AXif.Dynamics.InventoryIn.MessageParts.AxdEntityJournalTrans 1 %String Toelevering:DOM.AKP.Toelevering,JournalEntryLine:AXif.Dynamics.InventoryIn.MessageParts.AxdEntityJournalTrans 1 %Integer JournalId:%String,PakBonnummer:%String="" 1 9) ##class(TECH.Exceptions.InvalidInputException).Throw("Onvangstjournaal '"_JournalId_"' genereert meer dan 10 recepties." ) #dim ReceptieNummer as %String = +JournalId _ Volgnummer Do ..AangemaakteRecepties.Insert(..MaakReceptieVoorToelevering(ToeleveringIterator.Next(),ReceptieNummer,PakBonnummer)) Set Volgnummer = Volgnummer+1 } Do ..Logger.Info("ReceiveInventory IN", "Einde maken Recepties duurtijd " _ (Timer.Stop()/1000)) ]]> Toelevering:DOM.AKP.Toelevering,Receptienummer:%String,PakBonNr:%String="" 1 WMSJournalOutRequest:AXif.Dynamics.InventoryIn.MessageParts.AxdADUMsgWMSJournalOut,MessageId:%String 1 AXif.Dynamics.Inventory.MessageParts JournalEntry:AXif.Dynamics.InventoryIn.MessageParts.AxdEntityJournalTable,JournalEntryLine:AXif.Dynamics.InventoryIn.MessageParts.AxdEntityJournalTrans 1 %Boolean