TECH.RegisteredObject TECH.Console.Console 1 TECH.Mail.MailAPI 1 svn.SyncStatus array TECH.ArrayOfDataTypesOnDisk %String 1 %String 1 svn.Helper 1 Console:TECH.Console.Console,Username:%String="",Password:%String="",MailApi:TECH.Mail.MailAPI="" 1 1 %Status 1 Params:svn.dto.ShowSynchronizeActionsAsync IsVoorMail:%Boolean=0 %Library.GlobalCharacterStream Params:svn.dto.ShowSynchronizeActionsAsync Server:%String,MagAutoGetLatestServerSSADoen:%Boolean 1 %Boolean Server:%String 1 %Boolean Server:%String 1 %Boolean 1 IsVoorMail:%Boolean=0 1 %Library.GlobalCharacterStream " } #dim SynchronizeList As %ArrayOfObjects #dim ToonListMetCategories As %Boolean = (IsVoorMail) If ToonListMetCategories { Set SynchronizeList = ..GeefSynchronizeListMetCategories("§") } Else { Set SynchronizeList = ..SynchronizeList } #dim SectieTitel As %String = "" #dim IsEersteSectie As %Boolean = $$$True Set itList = ##class(TECH.ListIterator).%New(SynchronizeList) While itList.HasNext() { #dim SyncStatus As svn.SyncStatus = itList.Next() #dim InternalName As %String = SyncStatus.InternalName If ToonListMetCategories { #dim ElementKey As %String = itList.Key() #dim Categorie As %String = $P(ElementKey,"§",1) #dim IsSectieTitelGewijzigd = $$$Not(SectieTitel = Categorie) If IsSectieTitelGewijzigd { Set SectieTitel = Categorie Do:($$$Not(IsEersteSectie)) ShowActionsAlsStream.WriteLine(NieuweLijn) Do ShowActionsAlsStream.WriteLine(NieuweLijn _ "" _ SectieTitel _ "") Set IsEersteSectie = $$$False } } Do:SyncStatus.ImportNeeded ShowActionsAlsStream.WriteLine(NieuweLijn _ "Import " _ InternalName) Do:SyncStatus.DeleteNeeded ShowActionsAlsStream.WriteLine(NieuweLijn _ "Delete " _ InternalName) } Quit ShowActionsAlsStream ]]> SectionDelimiter:%String="§" 1 %ArrayOfObjects InternalName:%String 1 %String InternalName:%String 1 %String InternalName:%String 1 %String 1 InternalName:%String 1 %ListOfObjects CSPApplicatie:%String %Boolean InternalName:%String 1 svn.SyncStatus %ListOfDataTypes TECH.ListOfDataTypesOnDisk TECH.ListOfDataTypesOnDisk