Do ##class(APPS.LEV.LeverancierService).InitSubscription() in %ZSTART Do ##class(APPS.LEV.LeverancierService).MaakLeverancierBestand() aanroepen Eventueel via ^cAB1 => DMA => instellen bij wijzigen/maken/verwijderen via admin dat de event worden getriggerd ]]> TECH.Error 1 %RegisteredObject 0 Lijst van DOM.LEV.dto.LeverancierId [ Collection = list ] %ListOfObjects Maak een xml bestand met alle leveranciers in. Do ##class(APPS.LEV.LeverancierService).MaakLeverancierBestand() 1 Maak een xml bestand met de gewijzigde leveranciers LeverancierNr:%Integer,Bestandsnaam="" %Status 1 Bestandsnaam:%String,dtoLeverancierBestand:APPS.LEV.dto.LeverancierBestand 1 1 Bestandsnaam:%String,dtoLeverancierBestand:APPS.LEV.dto.LeverancierBestand 1 Converteer een Leverancier in een dto LeverancierId object Leverancier:DOM.LEV.Leverancier Do ##class(APPS.LEV.LeverancierService).InitSubscription() 1 Maakt de task aan voor de scheduler van caché, dit moet slechts éénmalig worden uitgevoerd Do ##class(APPS.LEV.LeverancierService).InitTask() 1 %Status 1 Event:TECH.PubSub.Event 1 LeverancierNr:%Integer 1 LeverancierNr:%Integer 1 LeverancierNr:%Integer %Library.CacheStorage ^APPS.LEV.LeverancierServiceD LeverancierServiceDefaultData ^APPS.LEV.LeverancierServiceD ^APPS.LEV.LeverancierServiceI ^APPS.LEV.LeverancierServiceS listnode %%CLASSNAME