Index: svn/Helper.cls.xml
===================================================================
diff -u -r1602 -r1607
--- svn/Helper.cls.xml	(.../Helper.cls.xml)	(revision 1602)
+++ svn/Helper.cls.xml	(.../Helper.cls.xml)	(revision 1607)
@@ -235,6 +235,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="NormalizeInternalName">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>InternalName:%String</FormalSpec>
+<Implementation><![CDATA[
+	
+	#dim Extension As %String = $piece(InternalName,".",$length(InternalName,"."))
+	#dim InternalType As %String = ##class(TECH.SourceCodeUtils).Type(InternalName)
+	if ( InternalType ="class" ) || ( InternalType="routine" ) {
+		set $piece(InternalName,".",$length(InternalName,"."))=$zconvert(Extension,"L")	
+	}
+	quit InternalName
+]]></Implementation>
+</Method>
+
 <Method name="CanDeleteDirectory">
 <FormalSpec>rset:%ResultSet</FormalSpec>
 <Private>1</Private>
@@ -252,14 +266,18 @@
 <Method name="CompileImportedSourceCode">
 <FormalSpec>flagRecompile:%Boolean=0</FormalSpec>
 <Implementation><![CDATA[
+	#dim mdSources As %String = ""
+	#dim mdErrors As %String = ""
+	
 	kill mdSources
 	
+	#dim i As %Integer 
 	for i=1:1:..ToCompile.List.Count() {
-		set SourceCode = ..ToCompile.List.GetAt(i)
+		#dim SourceCode As %String = ..ToCompile.List.GetAt(i)
 		if $length(SourceCode) set mdSources(SourceCode)=""
 	}
 	
-	set Flags = "cbk"
+	#dim Flags As %String = "cbk"
 	
 	do ..Failed.Clear()
 	do ..ToCompile.List.Clear()
@@ -271,8 +289,8 @@
 	
 	if (..ToCompile.List.Count() > 0) {
 		if flagRecompile {
-			set idxSource=""
-			set ListToCompile = ##class(TECH.ListUtils).CopyListOfDataTypes(..ToCompile.List)
+			#dim idxSource As %String =""
+			#dim ListToCompile As %ListOfDataTypes = ##class(TECH.ListUtils).CopyListOfDataTypes(..ToCompile.List)
 			set itListToCompile = ##class(TECH.ListIterator).%New(ListToCompile)
 			while itListToCompile.HasNext() {
 				set SourceCode = itListToCompile.Next()
@@ -304,6 +322,7 @@
 	kill mdErrors
 	set mdErrors=""
 	do $system.OBJ.CompileList(.mdSources,CompileFlags,.mdErrors)
+ 	
  	set idxError = ""
 	for { set idxError = $order(mdErrors(idxError)) quit:idxError=""
 		set Error = mdErrors(idxError)
@@ -322,91 +341,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="RoutineList">
-<ReturnType>%ListOfDataTypes</ReturnType>
-<Implementation><![CDATA[
-	set listRoutines = ##class(%ListOfDataTypes).%New()
-	
-	#define NOSYSTEMFILES 0
-	set rsSourceCode = ##class(%ResultSet).%New("%RoutineMgr:StudioOpenDialog")
-	do rsSourceCode.Execute("*.mac,*.inc",,,$$$NOSYSTEMFILES)
-	while rsSourceCode.Next() {
-		set InternalName = rsSourceCode.Get("Name")
-		if InternalName["." {
-			set InternalName = ..NormalizeInternalName(InternalName)
-			do listRoutines.Insert(InternalName)
-		}
-	}
-	do rsSourceCode.Close()
-	quit listRoutines
-]]></Implementation>
-</Method>
-
-<Method name="ProjectList">
-<ReturnType>%ListOfDataTypes</ReturnType>
-<Implementation><![CDATA[
-	set listProjects = ##class(%ListOfDataTypes).%New()
-	set idxProject = ""
-	for { set idxProject = $order(^oddPROJECT(idxProject)) quit:idxProject=""
-		set InternalName = idxProject_".prj"
-		do listProjects.Insert(InternalName)
-	}
-	quit listProjects
-]]></Implementation>
-</Method>
-
-<Method name="ClassList">
-<ReturnType>%ListOfDataTypes</ReturnType>
-<Implementation><![CDATA[
-	set listClasses = ##class(%ListOfDataTypes).%New()
-	
-	set rsClasses = ##class(%ResultSet).%New("%Dictionary.ClassDefinitionQuery:Summary")
-	do rsClasses.Execute()
-	while rsClasses.Next() {
-		set InternalName = rsClasses.Get("Name")
-		if ( 'rsClasses.Get("System")) && ( $extract(InternalName)'="%" ) {
-				do listClasses.Insert(InternalName_".cls")
-		}
-	}
-	do rsClasses.Close()
-
-	quit listClasses
-]]></Implementation>
-</Method>
-
-<Method name="NormalizeInternalName">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>InternalName</FormalSpec>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	set Extension = $piece(InternalName,".",$length(InternalName,"."))
-	set InternalType = ##class(TECH.SourceCodeUtils).Type(InternalName)
-	
-	if ( InternalType ="class" ) || ( InternalType="routine" ) {
-		set $piece(InternalName,".",$length(InternalName,"."))=$zconvert(Extension,"L")	
-	}
-	
-	quit InternalName
-]]></Implementation>
-</Method>
-
-<Method name="HasToBeSynchronized">
-<Description>
-check if a SourceFile needs to be synchronized if so add it to the module persistent data</Description>
-<FormalSpec>InternalName</FormalSpec>
-</Method>
-
-<Method name="MakeDir">
-<Description>
-helper function to create intermediate directory when needed</Description>
-<FormalSpec>pFilename:%String</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	if ##class(%File).CreateDirectoryChain(pFilename)=0 { write " Studio Error: could not create directory chain: "_pFilename,! }
-	quit
-]]></Implementation>
-</Method>
-
 <Method name="ShowFailed">
 <FormalSpec>Actie:%String=""</FormalSpec>
 <Implementation><![CDATA[
@@ -438,15 +372,6 @@
 </Method>
 
 <Method name="%OnNew">
-<Description><![CDATA[
-This callback method is invoked by the <METHOD>%New</METHOD> method to 
-provide notification that a new instance of an object is being created.
-
-<P>If this method returns an error then the object will not be created.
-<p>It is passed the arguments provided in the %New call.
-When customizing this method, override the arguments with whatever variables and types you expect to receive from %New().
-For example, if you're going to call %New, passing 2 arguments, %OnNew's signature could be:
-<p>Method %OnNew(dob as %Date = "", name as %Name = "") as %Status]]></Description>
 <FormalSpec>Username:%String="",Password:%String=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
@@ -600,8 +525,8 @@
 <Method name="DisplayMessage">
 <FormalSpec>Message:%String</FormalSpec>
 <Implementation><![CDATA[
-	#dim Streepkes As %String ="" 
-	set $piece(Streepkes,"-",$length(Message)+4)="-"
+	#dim Streepkes As %String ="+" 
+	set $piece(Streepkes,"-",$length(Message)+3)="+"
 	
 	write !,Streepkes,!,"| "_Message_" |",!,Streepkes,!
 	
@@ -613,7 +538,7 @@
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	set HeeftConflicten = ##class(svn.Setting).HeeftConflicten()
+	#dim HeeftConflicten As %Boolean = ##class(svn.Setting).HeeftConflicten()
 	if HeeftConflicten {
 		do ..Failed.Insert("!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!")
 		do ..Failed.Insert(" Momenteel zijn er conflicten of compile problemen gelieve deze eerst op te lossen....  ")
@@ -627,7 +552,7 @@
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	set WerktOffline = ##class(svn.Setting).WorkingOffline()
+	#dim WerktOffline As %Boolean = ##class(svn.Setting).WorkingOffline()
 	
 	if WerktOffline {
 		do ..Failed.Insert("!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!")
@@ -643,16 +568,16 @@
 <FormalSpec>InternalName:%String</FormalSpec>
 <ReturnType>svn.Repository</ReturnType>
 <Implementation><![CDATA[
-	set RepoToUse = ""
+	#dim RepoToUse As svn.Repository = ""
 	
 	set rsRepo = ##class(%ResultSet).%New("svn.Repository:Extent")
 	do rsRepo.Execute()
 	while ( rsRepo.Next() ) && ( '$IsObject(RepoToUse) ) {
-		set Repo = ..OpenRepository(rsRepo.Get("ID"))
+		#dim Repo As svn.Repository = ..OpenRepository(rsRepo.Get("ID"))
 		if Repo.HasToBeSynchronized(InternalName) set RepoToUse = Repo
 	}
 	
-	if RepoToUse = "" write !,"Skipping : "_InternalName
+	if RepoToUse = ""
 	quit RepoToUse
 ]]></Implementation>
 </Method>
@@ -661,12 +586,19 @@
 <FormalSpec>RepoID:%String</FormalSpec>
 <ReturnType>svn.Repository</ReturnType>
 <Implementation><![CDATA[
-	set Repo = ##class(svn.Repository).OpenId(RepoID)
+	#dim Repo As svn.Repository = ##class(svn.Repository).OpenId(RepoID)
 	set Repo.Password = ..Password 
 	set Repo.Username = ..Username
 	quit Repo
 ]]></Implementation>
 </Method>
+
+<Method name="HasToBeSynchronized">
+<FormalSpec>InternalName:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit $IsObject(..GeefRepository(InternalName))
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: svn/Synchronizer.cls.xml
===================================================================
diff -u
--- svn/Synchronizer.cls.xml	(revision 0)
+++ svn/Synchronizer.cls.xml	(revision 1607)
@@ -0,0 +1,239 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="svn.Synchronizer">
+<Super>%RegisteredObject</Super>
+
+<Property name="SynchronizeList">
+<Type>svn.SyncStatus</Type>
+<Collection>array</Collection>
+</Property>
+
+<Property name="SynchHasBeenValidated">
+<Type>%String</Type>
+<Collection>array</Collection>
+<Parameter name="TRUNCATE" value="1"/>
+</Property>
+
+<Property name="Username">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Password">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="svnHelper">
+<Type>svn.Helper</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Username:%String="",Password:%String=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	set ..Username = Username
+	set ..Password = Password
+	
+	set ..svnHelper = ##class(svn.Helper).%New(Username,Password)
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="SynchronizeAll">
+<Implementation><![CDATA[
+	do ..BuildSynchronizeList()
+	do ..VerwerkSynchronizeList()
+	do ..svnHelper.CompileImportedSourceCode()
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkSynchronizeList">
+<Private>1</Private>
+<Implementation><![CDATA[
+	set itList = ##class(TECH.ListIterator).%New(..SynchronizeList)
+	while itList.HasNext() {
+		#dim SyncStatus As svn.SyncStatus = itList.Next()
+		#dim InternalName As %String = SyncStatus.InternalName
+		#dim Repo As svn.Repository = ..svnHelper.GeefRepository(InternalName)
+		do Repo.SVNImport(Repo.ExternalName(InternalName))
+		do ..svnHelper.ToCompile.List.Insert(InternalName)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="AddToSynchronizeList">
+<FormalSpec>InternalName:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Quit:..SynchHasBeenValidated.IsDefined(InternalName) // quit when allready has been checked
+	
+	do ..SynchHasBeenValidated.SetAt("",InternalName)
+	
+	Quit:'..svnHelper.HasToBeSynchronized(InternalName)
+	
+	#dim Repo As svn.Repository = ..svnHelper.GeefRepository(InternalName)
+	
+	#dim ExternalName As %String = Repo.ExternalName(InternalName)
+	
+	#dim SyncStatus As svn.SyncStatus = ..InitSyncStatus(InternalName)
+	Set SyncStatus.ImportNeeded = Repo.ImportNeeded(InternalName)
+	set SyncStatus.ExportNeeded = Repo.ExportNeeded(InternalName)
+	set SyncStatus.DeleteNeeded = Repo.DeleteNeeded(InternalName)
+	
+	set SyncStatus.SyncNeeded = ( SyncStatus.ImportNeeded || SyncStatus.ExportNeeded || SyncStatus.DeleteNeeded)
+	
+	if ( 'SyncStatus.SyncNeeded ) { 
+		do ..SynchronizeList.RemoveAt(InternalName)
+	}
+
+	quit
+]]></Implementation>
+</Method>
+
+<Method name="BuildSynchronizeList">
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	do ..SynchronizeList.Clear()
+	do ..SynchHasBeenValidated.Clear()
+	
+	#dim InternalName As %String = ""
+	
+	set rsFilesInDB = ##class(%ResultSet).%New("svn.SourceCodeInfo:Extent")
+	do rsFilesInDB.Execute()
+	while rsFilesInDB.Next() {
+		do ..AddToSynchronizeList(rsFilesInDB.Get("ID"))
+	}
+	
+	
+	set rsRepos = ##class(%ResultSet).%New("svn.Repository:Extent")
+	do rsRepos.Execute()
+	while rsRepos.Next() {
+		#dim Repo As svn.Repository = ..svnHelper.OpenRepository(rsRepos.Get("ID"))
+		set itExternalNames = ##class(TECH.ListIterator).%New(Repo.FileList())
+		while itExternalNames.HasNext() {
+			#dim ExternalName As %String = itExternalNames.Next()
+			do ..AddToSynchronizeList(Repo.InternalName(ExternalName))
+		}
+	}
+	
+	#dim listRoutines As %ListOfDataTypes = ..RoutineList()
+	set itRoutines = ##class(TECH.ListIterator).%New(listRoutines)
+	while itRoutines.HasNext() {
+		#dim Routine As %String = itRoutines.Next()
+		do ..AddToSynchronizeList(Routine)	
+	}
+	
+	#dim listClasses As %ListOfDataType = ..ClassList()
+	set itClasses = ##class(TECH.ListIterator).%New(listClasses)
+	while itClasses.HasNext() {
+		set InternalName = itClasses.Next()
+		do ..AddToSynchronizeList(InternalName)	
+	}
+	
+	#dim listCSPApplicaties As %ListOfDataTypes = ##class(TECH.CSP.CSPApplicatie).Instance().CSPApplicaties($zutil(5))
+	set itCSPApplicaties = ##class(TECH.ListIterator).%New(listCSPApplicaties)
+	while itCSPApplicaties.HasNext() {
+		#dim CSPApplicatie As %String = itCSPApplicaties.Next()
+		if ..ExistsRepositoryForCPSApplication(CSPApplicatie) {
+			#dim listCSPFiles As %ListOfDataTypes = ##class(TECH.CSP.CSPApplicatie).Instance().CSPFiles(CSPApplicatie)
+			set itCSPFiles = ##class(TECH.ListIterator).%New(listCSPFiles)
+			while itCSPFiles.HasNext() {
+				set InternalName = itCSPFiles.Next()
+				do ..AddToSynchronizeList(InternalName)	
+			}
+		}
+	}
+
+	quit ..SynchronizeList
+]]></Implementation>
+</Method>
+
+<Method name="ExistsRepositoryForCPSApplication">
+<FormalSpec>CSPApplicatie:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim Exists As %Boolean = 0
+	
+	#dim rsRepo As %ResultSet = $$ExecDynQuery^vhQUERLIB("SELECT ID FROM svn_Repository.CSPRepository WHERE Application = ?",$listbuild(CSPApplicatie))
+	set Exists = rsRepo.Next()
+	quit Exists
+]]></Implementation>
+</Method>
+
+<Method name="InitSyncStatus">
+<FormalSpec>InternalName</FormalSpec>
+<Private>1</Private>
+<ReturnType>svn.SyncStatus</ReturnType>
+<Implementation><![CDATA[
+	if ..SynchronizeList.IsDefined(InternalName) {
+		#dim SyncStatus As svn.SyncStatus = ..SynchronizeList.GetAt(InternalName)
+	} 
+	else { 
+		set SyncStatus = ##class(svn.SyncStatus).%New()
+		set SyncStatus.InternalName = InternalName
+		do ..SynchronizeList.SetAt(SyncStatus,InternalName)	
+	}	
+	quit SyncStatus
+]]></Implementation>
+</Method>
+
+<Method name="RoutineList">
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	set listRoutines = ##class(%ListOfDataTypes).%New()
+	
+	#define NOSYSTEMFILES 0
+	set rsSourceCode = ##class(%ResultSet).%New("%RoutineMgr:StudioOpenDialog")
+	do rsSourceCode.Execute("*.mac,*.inc",,,$$$NOSYSTEMFILES)
+	while rsSourceCode.Next() {
+		#dim InternalName As %String = rsSourceCode.Get("Name")
+		if InternalName["." {
+			set InternalName = ..svnHelper.NormalizeInternalName(InternalName)
+			do listRoutines.Insert(InternalName)
+		}
+	}
+	do rsSourceCode.Close()
+	quit listRoutines
+]]></Implementation>
+</Method>
+
+<Method name="ProjectList">
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	set listProjects = ##class(%ListOfDataTypes).%New()
+	#dim idxProject As %String = ""
+	for { set idxProject = $order(^oddPROJECT(idxProject)) quit:idxProject=""
+		#dim InternalName As %String = idxProject_".prj"
+		do listProjects.Insert(InternalName)
+	}
+	quit listProjects
+]]></Implementation>
+</Method>
+
+<Method name="ClassList">
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	set listClasses = ##class(%ListOfDataTypes).%New()
+	
+	set rsClasses = ##class(%ResultSet).%New("%Dictionary.ClassDefinitionQuery:Summary")
+	do rsClasses.Execute()
+	while rsClasses.Next() {
+		#dim InternalName As %String = rsClasses.Get("Name")
+		if ( 'rsClasses.Get("System")) && ( $extract(InternalName)'="%" ) {
+				do listClasses.Insert(InternalName_".cls")
+		}
+	}
+	do rsClasses.Close()
+
+	quit listClasses
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: svn/StudioHook.cls.xml
===================================================================
diff -u -r1600 -r1607
--- svn/StudioHook.cls.xml	(.../StudioHook.cls.xml)	(revision 1600)
+++ svn/StudioHook.cls.xml	(.../StudioHook.cls.xml)	(revision 1607)
@@ -77,6 +77,7 @@
 <Menu Name = "Subversion" Type="0">
 <MenuItem Name="GetLatest" />
 <MenuItem Name="Reload File" />
+<MenuItem Name="Synchronize All" />
 <MenuItem Name="Synchronize Changes" />
 <MenuItem Separator="1" Name="----------------------------------"/> 
 <MenuItem Name="Settings"/>
@@ -195,7 +196,10 @@
 	    do ..SubversionStatus(.InternalName,.Action,.Target,.Msg,.Reload)
 	} elseif tMenu="synchronize" {
 		if tMenu(2)[ "changes" do ..SubversionSynchronizeChanges(.InternalName,.Action,.Target,.Msg,.Reload)
-		if tMenu(2)[ "all" do ..SubversionSynchronizeAll(.InternalName,.Action,.Target,.Msg,.Reload)
+		if tMenu(2)[ "all" {
+			Set Action = 1
+			set Target = "Alle bestanden synchronizeren met het file-systeem ?"
+		}
 	} elseif tMenu="reload" {
 		if $length(InternalName) {
 			#dim Repo As svn.Repository = ..svnHelper.GeefRepository(InternalName)
@@ -356,9 +360,9 @@
 <Implementation><![CDATA[
 	set Action=0
 	set ..Cmd=0
-	write "Synchronisatie van de wijzigingen wordt uitgevoerd ",!
+	do ..svnHelper.DisplayMessage("Synchronisatie van de wijzigingen wordt uitgevoerd ")
 	do ##class(svn.Helper).%New(..Name,..Password).SVNSynchronizeChanges()
-	write "Synchronisatie afgelopen",!
+	do ..svnHelper.DisplayMessage("Synchronisatie afgelopen")
 ]]></Implementation>
 </Method>
 
@@ -367,9 +371,9 @@
 <Implementation><![CDATA[
 	set Action=0
 	set ..Cmd=0
-	write "Synchronisatie wordt uitgevoerd ",!
-	do ##class(svn.Helper).%New(..Name,..Password).AutoSync()
-	write "Synchronisatie afgelopen",!
+	do ..svnHelper.DisplayMessage("Synchronisatie van alle bestanden wordt uitgevoerd")
+	do ##class(svn.Synchronizer).%New(..Name,..Password).SynchronizeAll()
+	do ..svnHelper.DisplayMessage("Synchronisatie afgelopen")
 ]]></Implementation>
 </Method>
 
@@ -678,6 +682,12 @@
 			if Answer=1 {
 				Do ..SubversionUpdateSourceControlCode()	
 			}
+		} elseif tMenu="synchronize" {
+			if tMenu(2)["all" {
+				if Answer=1 {
+					Do ..SubversionSynchronizeAll()	
+				}
+			}
 		} elseif tMenu="reload" {
 			if Answer=1 {
 				Do ..SubversionSynchronizeFile(InternalName)	
Index: svn/Repository.cls.xml
===================================================================
diff -u -r1606 -r1607
--- svn/Repository.cls.xml	(.../Repository.cls.xml)	(revision 1606)
+++ svn/Repository.cls.xml	(.../Repository.cls.xml)	(revision 1607)
@@ -37,6 +37,18 @@
 <Transient>1</Transient>
 </Property>
 
+<Property name="SynchHasBeenValidated">
+<Type>%String</Type>
+<Collection>array</Collection>
+<Transient>1</Transient>
+</Property>
+
+<Property name="SynchronizeList">
+<Type>%String</Type>
+<Collection>list</Collection>
+<Transient>1</Transient>
+</Property>
+
 <Method name="CheckOut">
 <FormalSpec>Revision:%String=""</FormalSpec>
 <Implementation><![CDATA[
@@ -306,16 +318,16 @@
 	// Geen directories verwerken
 	If ('##class(%File).DirectoryExists(Filename))
 	{
-		set InternalName = ..InternalName(Filename)
+		#dim InternalName As %String = ..InternalName(Filename)
 	
 		if ..HasToBeSynchronized(InternalName) {
 			set ..IsCodeVeranderd = 1
-			set CurrentIO = $IO
-			set ImportFailed = 0
-			set ImportUitvoeren = 0
-			set CodeVerwerken = 1		
+			#dim CurrentIO As %String = $IO
+			#dim ImportFailed As %Boolean = 0
+			#dim ImportUitvoeren As %Boolean = 0
+			#dim CodeVerwerken As %Boolean = 1		
 			if CodeVerwerken {
-				set BestandBestaat = ##class(%File).Exists(Filename)
+				#dim BestandBestaat As %Boolean = ##class(%File).Exists(Filename)
 				if ('BestandBestaat)  {
 					if '(##class(TECH.SourceCodeUtils).Type(InternalName)="project") {
 					 	do ..DeleteCode(InternalName)
@@ -325,7 +337,7 @@
 			 }
 			if ImportUitvoeren {
 					w "Importing "_InternalName,!
-					set stImport = ..Import(Filename) 
+					#dim stImport As %Status = ..Import(Filename) 
 					if stImport { 
 						do ..ToCompile.Insert(InternalName)	
 						do ##class(svn.SourceCodeInfo).Update(InternalName,Filename)
@@ -421,11 +433,11 @@
 <FormalSpec>InternalName:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	set TempFile = ##class(TECH.File).GetTempDir()_"/Cache_"_$Job_"/"
+	#dim TempFile As %String = ##class(TECH.File).GetTempDir()_"/Cache_"_$Job_"/"
 	Set TempFile=##class(%Library.File).NormalizeDirectory(TempFile)
 	set TempFile = TempFile _ ..ExternalName(InternalName,$$$NOPATH)
 	
-	set Directory = ##class(%File).GetDirectory(TempFile)
+	#dim Directory As %String = ##class(%File).GetDirectory(TempFile)
 	If '##class(%File).DirectoryExists(Directory) {
 		do ##class(%File).CreateDirectoryChain(Directory)
 	}
@@ -439,8 +451,10 @@
 <Method name="Hash">
 <FormalSpec><![CDATA[InternalName:%String,&ExternalName:%String="",&oStatus]]></FormalSpec>
 <Implementation><![CDATA[
-	set flagIsTempFile = 0
+	#dim flagIsTempFile As %Boolean = 0
+	
 	set oStatus = $$$OK
+	
 	if '$length(ExternalName) {
 	  set flagIsTempFile = 1
 	  set ExternalName=..ExportToTemporaryFile(InternalName)
@@ -450,18 +464,8 @@
 	set Stream.Filename=ExternalName
 	do Stream.Rewind()
 	
-	#if ($system.Version.GetMajor()=5)
-		set Hash=""
-		set ctr32KBlocks=0
-		while 'Stream.AtEnd {
-			set ctr32KBlocks=$increment(ctr32KBlocks)
-			set Hash = Hash_$system.Encryption.MD5Encode(Stream.Read())	
-		}
-		if ctr32KBlocks>1 set Hash=$system.Encryption.MD5Encode(Hash)	
-	#else 
-		Set Hash=$system.Encryption.SHA1HashStream(Stream)
-	#endif
-
+	#dim Hash As %String =$system.Encryption.SHA1HashStream(Stream)
+	
 	if flagIsTempFile {
 		do ##class(%File).Delete(ExternalName)	
 	}
@@ -519,6 +523,127 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ExternalNameIsValid">
+<FormalSpec>ExternalName</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	set ExternalName = $zcvt(ExternalName,"L")
+	set ExternalName = $translate(ExternalName,"/","\")
+	#dim LocalWorkspace As %String = $zcvt(..WorkspacePath(..Branch),"L")
+	set LocalWorkspace = $translate(LocalWorkspace,"/","\")
+	
+	#dim IsValid As %Boolean = ##class(TECH.StringUtils).StartsWith(ExternalName,LocalWorkspace)
+	if IsValid { set IsValid = ExternalName'["\.svn" }
+
+	quit IsValid
+]]></Implementation>
+</Method>
+
+<Method name="ImportNeeded">
+<FormalSpec>InternalName</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim ImportNeeded As %Boolean = 1
+	#dim ExternalName As %String = ..ExternalName(InternalName)
+	
+	quit:'##class(%File).Exists(ExternalName) 0  // als bestand niet meer bestaat op disk
+	
+	if '##class(TECH.SourceCodeUtils).Exists(InternalName) {
+		if '##class(svn.SourceCodeInfo).%ExistsId(InternalName) {
+			set ImportNeeded = 1
+		}
+	}
+	else {
+		#dim InternalHash As %String = ##class(svn.SourceCodeInfo).Open(InternalName).InternalHash
+		if '$length(InternalHash) set InternalHash = ..Hash(InternalName)
+		#dim ExternalHash As %String = ..Hash(,ExternalName)
+		set ImportNeeded = '(ExternalHash = InternalHash)
+	}
+	quit ImportNeeded
+]]></Implementation>
+</Method>
+
+<Method name="ExportNeeded">
+<FormalSpec>InternalName</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	quit:'##class(TECH.SourceCodeUtils).Exists(InternalName) 0
+
+	#dim ExternalName As %String = ..ExternalName(InternalName)
+
+	#dim CachedDateModified As %Boolean = 0
+	if ##class(svn.SourceCodeInfo).%ExistsId(InternalName) {
+		set CachedDateModified = ##class(svn.SourceCodeInfo).%OpenId(InternalName).DateModified
+		}
+	
+	#dim FileDateModified As %Date = ##class(%File).GetFileDateModified(ExternalName)
+	
+	#dim ExportNeeded As %Boolean = ( CachedDateModified ]] FileDateModified )
+	
+	if ExportNeeded { set ExportNeeded = '(..Exact1UurVerschil(FileDateModified,CachedDateModified)) }
+	
+	if ExportNeeded {
+		#dim InternalHash As %String = ""
+		if ##class(svn.SourceCodeInfo).%ExistsId(InternalName) {
+			set InternalHash = ##class(svn.SourceCodeInfo).%OpenId(InternalName).InternalHash
+		}
+		#dim ExternalHash As %String = ..Hash(,ExternalName)
+		set ExportNeeded = '(ExternalHash = InternalHash)
+	}
+		
+	quit ExportNeeded
+]]></Implementation>
+</Method>
+
+<Method name="DeleteNeeded">
+<Description>
+Delete is nodig wanneer code nog bestaat in database maar niet meer op het filesysteem en
+als er in de database een import/export historiek bestaat.</Description>
+<FormalSpec>InternalName</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim ExternalName As %String = ..ExternalName(InternalName)
+	#dim DeleteNeeded As %Boolean = 0
+	if ##class(TECH.SourceCodeUtils).Exists(InternalName) {   
+		if '##class(%File).Exists(ExternalName) { 
+			set DeleteNeeded = ##class(svn.SourceCodeInfo).%ExistsId(InternalName)
+		}
+	}
+	quit DeleteNeeded
+]]></Implementation>
+</Method>
+
+<Method name="Exact1UurVerschil">
+<FormalSpec>Horolog1:%String,Horolog2:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim Exact1UurVerschil As %Boolean = 0
+	#dim Time1 As %String = $piece(Horolog1,",",2)
+	#dim Time2 As %String = $piece(Horolog2,",",2)
+	if $zabs(Time1-Time2)=3600 && ( $piece(Horolog1,",")=$piece(Horolog2,",") ) set Exact1UurVerschil=1
+	Quit Exact1UurVerschil
+]]></Implementation>
+</Method>
+
+<Method name="FileList">
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	set List = ##class(%ListOfDataTypes).%New()
+	
+	set rsFilesOnDisk = ##class(%ResultSet).%New("TECH.Files:GetFiles")
+	do rsFilesOnDisk.Execute(..WorkspacePath(..Branch),"*.*")
+	while rsFilesOnDisk.Next() {
+		#dim ExternalName As %String = rsFilesOnDisk.Get("Name")
+		if ..ExternalNameIsValid(ExternalName) {
+			do List.Insert(ExternalName)
+		} 
+	}
+	
+	quit List
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DataLocation>^SYS("SourceControl","SVN","Repositories")</DataLocation>
Index: svn/SourceCodeInfo.cls.xml
===================================================================
diff -u -r1571 -r1607
--- svn/SourceCodeInfo.cls.xml	(.../SourceCodeInfo.cls.xml)	(revision 1571)
+++ svn/SourceCodeInfo.cls.xml	(.../SourceCodeInfo.cls.xml)	(revision 1607)
@@ -71,7 +71,7 @@
 
 <Method name="Update">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>InternalName,ExternalName</FormalSpec>
+<FormalSpec>InternalName:%String,ExternalName:%String</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	set Updated = $$$OK
Index: svn/Repository/CodeRepository.cls.xml
===================================================================
diff -u -r1582 -r1607
--- svn/Repository/CodeRepository.cls.xml	(.../CodeRepository.cls.xml)	(revision 1582)
+++ svn/Repository/CodeRepository.cls.xml	(.../CodeRepository.cls.xml)	(revision 1607)
@@ -60,8 +60,8 @@
 <FormalSpec>InternalName:%String</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	set ExternalName = ..ExternalName(InternalName)
-	set SVNFile = ..GetSVNAddFilename(ExternalName)
+	#dim ExternalName As %String = ..ExternalName(InternalName)
+	#dim SVNFile As %String = ..GetSVNAddFilename(ExternalName)
 		
 	do ..Export(.ExternalName,InternalName)
 		
@@ -172,8 +172,9 @@
 <FormalSpec>ExternalName:%String,InternalName:%String</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set Extension=..GeefExtentie(InternalName)
+	#dim Status As %Status = $$$OK
 	
+	#dim Extension As %String =..GeefExtentie(InternalName)
 	if ".mac.inc.bas.mvb.mvi." [ Extension { 
 		set Status = ..ExportRoutine(.ExternalName,InternalName) 
 	} 
@@ -193,13 +194,13 @@
 	set ExternalName = $get(ExternalName)
 	if '$length(ExternalName) set ExternalName = ..ExternalName(InternalName)
 
-	set ExtDirectory = ##class(%File).GetDirectory(ExternalName)
+	#dim ExtDirectory As %String = ##class(%File).GetDirectory(ExternalName)
 	do ##class(%File).CreateDirectoryChain(ExtDirectory)
 
-	set Flags= "/diffexport/display=none"
+	#dim Flags As %String = "/diffexport/display=none"
 	if (##class(TECH.SourceCodeUtils).Type(InternalName)="class") {
-		set PackageName = $piece(InternalName,".",1,$length(InternalName,".")-2)_".pkg"
-		set Status=$system.OBJ.Export(PackageName_","_InternalName,ExternalName,Flags)
+		#dim PackageName As %String = $piece(InternalName,".",1,$length(InternalName,".")-2)_".pkg"
+		#dim Status As %Status = $system.OBJ.Export(PackageName_","_InternalName,ExternalName,Flags)
 	} else {
 		set Status=$system.OBJ.Export(InternalName,ExternalName,Flags)	
 	}
@@ -213,7 +214,7 @@
 	
 	do Stream.Rewind()
 	while 'Stream.AtEnd {
-		set Line = Stream.ReadLine()
+		#dim Line As %String = Stream.ReadLine()
 		continue:$$$StartsWith(Line,"<TimeChanged>")&&(Line["</TimeChanged>")
 		continue:$$$StartsWith(Line,"<TimeCreated>")&&(Line["</TimeCreated>")
 		continue:$$$StartsWith(Line,"<Checksum value=")
@@ -233,24 +234,27 @@
 <FormalSpec><![CDATA[&ExternalName:%String,InternalName:%String,iFlags:%String=""]]></FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set Status=$$$OK
+	#dim Status As %Status = $$$OK
 	If '##class(%RoutineMgr).Exists(InternalName) set Status=$system.Status.Error(5018,InternalName)
 	
 	set ExternalName = $get(ExternalName)
 	if '$length(ExternalName) set ExternalName = ..ExternalName(InternalName)
 	
-	set RoutineObj=##class(%RoutineMgr).%OpenId(InternalName)
-	set strRoutine=RoutineObj.Code
+	set RoutineObj = ##class(%RoutineMgr).%OpenId(InternalName)
+	#dim strRoutine As %Stream = RoutineObj.Code
 	
-	set ExtDirectory = ##class(%File).GetDirectory(ExternalName)
+	#dim ExtDirectory As %String = ##class(%File).GetDirectory(ExternalName)
 	do ##class(%File).CreateDirectoryChain(ExtDirectory)
 
 	set File=##class(%FileCharacterStream).%New()
-	set File.Filename=ExternalName
+	set File.Filename = ExternalName
+	#dim Line As %String = ""
 	while 'strRoutine.AtEnd {
-		do File.WriteLine(strRoutine.ReadLine())
+		set Line = strRoutine.ReadLine()
+		continue:(strRoutine.AtEnd)
+		do File.WriteLine(Line)
+		
 	}
-	
 	set Status=File.SaveStream()
 	quit Status
 ]]></Implementation>