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 Lijst van DOM.AKP.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:%String="" %Status 1 Bestandsnaam:%String,dtoLeverancierBestand:APPS.LEV.dto.LeverancierBestand 1 0) && ('Geschreven) { Set AantalPogingen = AantalPogingen - 1 Try { Do ..SchrijfLeverancierBestand(Bestandsnaam,dtoLeverancierBestand) Hang 1 Set Geschreven = 1 } Catch(Exceptie) { Set Exception = ##class(TECH.ExceptionHandler).Catch() If ('Exception.%Extends("TECH.Exceptions.LockedException")) { Do ##class(TECH.ExceptionHandler).Rethrow(Exception) } } } ]]> 1 Bestandsnaam:%String,dtoLeverancierBestand:APPS.LEV.dto.LeverancierBestand Do ##class(APPS.LEV.LeverancierService).InitSubscription() 1 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 %%CLASSNAME