Index: svn/Synchronizer.cls.xml =================================================================== diff -u -r1845 -r1846 --- svn/Synchronizer.cls.xml (.../Synchronizer.cls.xml) (revision 1845) +++ svn/Synchronizer.cls.xml (.../Synchronizer.cls.xml) (revision 1846) @@ -58,11 +58,12 @@ 1 -Username:%String +Params:svn.dto.ShowSynchronizeActionsAsync +IsVoorMail:%Boolean=0 %Library.GlobalCharacterStream -Username:%String +Params:svn.dto.ShowSynchronizeActionsAsync + +Server:%String,MagAutoGetLatestServerSSADoen:%Boolean +1 +%Boolean + + + + +Server:%String +1 +%Boolean + + + + +Server:%String +1 +%Boolean + + + 1 -ActionsStream:%Library.GlobalCharacterStream +ActionsStream:%Library.GlobalCharacterStream,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 ActionsStream.WriteLine("
Import "_InternalName) - Do:SyncStatus.DeleteNeeded ActionsStream.WriteLine("
Delete "_InternalName) + Do:SyncStatus.ImportNeeded ActionsStream.WriteLine(NieuweLijn _ "Import "_InternalName) + Do:SyncStatus.DeleteNeeded ActionsStream.WriteLine(NieuweLijn _ "Delete "_InternalName) } Quit ActionsStream Index: svn/Helper.cls.xml =================================================================== diff -u -r1839 -r1846 --- svn/Helper.cls.xml (.../Helper.cls.xml) (revision 1839) +++ svn/Helper.cls.xml (.../Helper.cls.xml) (revision 1846) @@ -644,9 +644,23 @@ #dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch() Do ..LogMessage("Het loggen van GetLatest op SvnLogging is mislukt omwille van deze reden: "_Exception.GeefOmschrijving()) } + + Do ..MailShowSynchronizeActionsAsync() ]]>
+ +1 + + + 1 + + +TECH.DataTransferObject + + +svn.dto.ShowSynchronizeActionsAsync + + + +%Boolean + + + +%Boolean + + + +%String + + + +%String + + + + +