TECH.RegisteredObject %Integer 1 AXimpl.Generator 1 AXimpl.Admin.DOM.PM.ProductIterator 1 AXimpl.Dynamics.InventoryOut.MaatwerkIterator.DataBouwer 1 AXimpl.Dynamics.InventoryOut.MaatwerkIterator 1 AXimpl.Dynamics.InventoryOut.PRNrAxConfigIdVoorraadHistoriekRepository 1 AXimpl.Dynamics.InventoryOut.MaatwerkStockVerschilAfhandelaar 1 DOM.PM.ProductTypeAPI 1 Generator:AXimpl.Generator,ProductIterator:AXimpl.Admin.DOM.PM.ProductIterator,BundelGrootte:%Integer=90,MaatwerkIterator:AXimpl.Dynamics.InventoryOut.MaatwerkIterator,PRNrAxConfigIdRepository:AXimpl.Dynamics.InventoryOut.PRNrAxConfigIdVoorraadHistoriekRepository,MaatwerkStockVerschilAfhandelaar:AXimpl.Dynamics.InventoryOut.MaatwerkStockVerschilAfhandelaar,DataBouwer:AXimpl.Dynamics.InventoryOut.MaatwerkIterator.DataBouwer,ProductTypeApi:DOM.PM.ProductTypeAPI 1 1 %Status 1 NietEnkelRapportage:%Boolean=0 0,##class(TECH.Math).Floor(QtyVHPerProductNr/AantalAxConfigIdsPerProductNr),QtyVHPerProductNr-(##class(TECH.Math).Floor(QtyVHPerProductNr/AantalAxConfigIdsPerProductNr)*(AantalAxConfigIdsPerProductNr-1))) Do Message.Insert(SyncObject) } If (((BundelTeller = ..BundelGrootte) || ($$$Not(..MaatwerkIterator.HasNext()))) && NietEnkelRapportage) { Do ..Generator.Generate(##class(AXimpl.Request).%New(Command,$ListToString(SubjectLijst),Message)) Set SubjectLijst = "" Set Message = ##class(%ListOfDataTypes).%New() Set BundelTeller = 0 } } Do ..MaatwerkStockVerschilAfhandelaar.MailVoorraadbeheer() Quit ]]>