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 " } Set itList = ##class(TECH.ListIterator).%New(..SynchronizeList) While itList.HasNext() { #dim SyncStatus As svn.SyncStatus = itList.Next() #dim InternalName As %String = SyncStatus.InternalName Do:SyncStatus.ImportNeeded ShowActionsAlsStream.WriteLine(NieuweLijn _ "Import " _ InternalName) Do:SyncStatus.DeleteNeeded ShowActionsAlsStream.WriteLine(NieuweLijn _ "Delete " _ InternalName) } Quit ShowActionsAlsStream ]]> 1 InternalName:%String 1 %ListOfObjects CSPApplicatie:%String %Boolean InternalName:%String 1 svn.SyncStatus %ListOfDataTypes TECH.ListOfDataTypesOnDisk TECH.ListOfDataTypesOnDisk