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 %String 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 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 JournalId:%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)) Set Volgnummer = Volgnummer+1 } ]]> Toelevering:DOM.AKP.Toelevering,Receptienummer:%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