Index: svn/Repository/CodeRepository.cls.xml
===================================================================
diff -u
--- svn/Repository/CodeRepository.cls.xml	(revision 0)
+++ svn/Repository/CodeRepository.cls.xml	(revision 1570)
@@ -0,0 +1,263 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="svn.Repository.CodeRepository">
+<Super>svn.Repository</Super>
+
+<Method name="InternalName">
+<FormalSpec>ExternalName:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#define UCase(%s) $zconvert(%s,"U")
+	
+	set InternalName = ""
+	
+	set LocalWorkSpacePath = ..WorkspacePath(..Branch)
+		
+	set RootName = $extract(ExternalName,1,$length(LocalWorkSpacePath))
+	if $zconvert(LocalWorkSpacePath,"l")=$zconvert(RootName,"l") {
+		set InternalName = $extract(ExternalName,$length(RootName)+1,$length(ExternalName)) ; root directory uit filename weghalen
+		if $extract(InternalName)'="_" { 
+			set Extension = $piece(InternalName,".",$length(InternalName,"."))
+			if $zconvert(Extension,"L")?1(1"xml",1"rou") Set InternalName = $piece(InternalName,".",1,$length(InternalName,".")-1) ; extensie xml rou afstrippen
+			set Type = $piece(InternalName,".",$length(InternalName,"."))
+			set InternalName = $translate(InternalName,"/\","..") ; subdir veranderen door
+		}
+		set InternalName = $translate(InternalName,"\","/") ; alle \ vervangen naar /
+		
+	}
+	Quit ##class(svn.Helper).NormalizeInternalName(InternalName)
+]]></Implementation>
+</Method>
+
+<Method name="ExternalName">
+<FormalSpec>InternalName:%String,FullPath:%Boolean=1</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	set InternalType = ##class(TECH.SourceCodeUtils).Type(InternalName)
+	
+	set tLen=$length(InternalName,".")
+	
+	set tPath = $piece(InternalName,".",1,tLen-1)
+	set tPath = $translate(tPath,".","\")
+
+	set tType=$zconvert($piece(InternalName,".",tLen),"L")
+	
+	set tExternal = tPath_"."_tType
+	if InternalType = "routine" { set tExternal=tExternal_".rou" }
+	else { set tExternal=tExternal_".xml" }
+	
+	if FullPath {
+		set tExternal=..WorkspacePath(..Branch)_tExternal
+	}
+	
+	Quit tExternal
+]]></Implementation>
+</Method>
+
+<Method name="SVNExport">
+<FormalSpec>InternalName:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	set ExternalName = ..ExternalName(InternalName)
+	set SVNFile = ..GetSVNAddFilename(ExternalName)
+		
+	do ..Export(.ExternalName,InternalName)
+		
+	if '..AllreadyAdded(InternalName) {
+		set svnCommand = ##class(svn.Command).%New($listbuild(..WorkspacePath(..Branch)))
+		set svnCommand.SubCommand="add"
+		set svnCommand.File = SVNFile
+		do svnCommand.Execute()
+		
+		write "Added to SVN : "_InternalName_" --> "_ExternalName, !
+	}
+	
+	do ##class(svn.SourceCodeInfo).Update(InternalName,ExternalName)
+	
+	
+	
+	quit
+]]></Implementation>
+</Method>
+
+<Method name="DeleteCode">
+<FormalSpec>InternalName</FormalSpec>
+<Implementation><![CDATA[
+	quit:'$length(InternalName)
+	Set ..IsCodeVeranderd = 1
+	
+	if ##class(TECH.SourceCodeUtils).Type(InternalName) = "routine" {
+		do ##class(%RoutineMgr).Delete(InternalName)
+	} 	
+	elseif ##class(TECH.SourceCodeUtils).Type(InternalName) = "class" {
+		if ##class(TECH.SourceCodeUtils).Exists(InternalName) { 
+			do $system.OBJ.Delete(InternalName)
+			do ##class(%ExtentMgr.Util).DeleteExtent(##class(TECH.SourceCodeUtils).StripExtension(InternalName))   
+		}
+	} 
+	else {
+		do $system.OBJ.DeletePackage(InternalName)
+		do ..DeletePackage(InternalName) 
+	}
+	quit
+]]></Implementation>
+</Method>
+
+<Method name="HasToBeSynchronized">
+<FormalSpec>InternalName:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	set Result = ##super(InternalName)
+	
+	if Result set Result = InternalName'["/"
+	
+	quit Result
+]]></Implementation>
+</Method>
+
+<Method name="Import">
+<FormalSpec>ExternalName:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set InternalName = ..InternalName(ExternalName)
+	Set Extension=..GeefExtentie(InternalName)
+	
+	if ".mac.inc.bas.mvb.mvi." [ Extension { 
+		set Status = ..ImportRoutine(ExternalName,InternalName) 
+	} 
+	else { 
+		set Status = ..ImportNonRoutine(ExternalName) 
+	}
+	
+	quit Status
+]]></Implementation>
+</Method>
+
+<Method name="ImportRoutine">
+<FormalSpec>ExternalName:%String,InternalName:%String=""</FormalSpec>
+<Implementation><![CDATA[
+	if '##class(%Routine).Exists(InternalName) {
+		set Routine = ##class(%Routine).%New(InternalName)
+	}
+	else { 
+		set RoutineObj = ##class(%RoutineMgr).%OpenId(InternalName)
+		set Routine = RoutineObj.Code
+		
+	}
+	set File=##class(%FileCharacterStream).%New()
+	set File.Filename=ExternalName
+	do Routine.Clear()
+	while 'File.AtEnd {
+		do Routine.WriteLine(File.ReadLine())	
+	}
+	set Status = Routine.Save()
+	
+	quit Status
+]]></Implementation>
+</Method>
+
+<Method name="ImportNonRoutine">
+<FormalSpec>ExternalName:%String</FormalSpec>
+<Implementation><![CDATA[
+	set flags = $get($$$SVNGlobal("SourceControl",$$$PRODUCT,"LoadFlags"),"v")
+	set flags = flags_"-d"
+	if $g(%objlasterror)["#5368" set %objlasterror="" set Status=$system.OBJ.Load(ExternalName,flags)
+	set Status = $system.OBJ.Load(ExternalName,flags)
+	quit Status
+]]></Implementation>
+</Method>
+
+<Method name="Export">
+<FormalSpec>ExternalName:%String,InternalName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set Extension=..GeefExtentie(InternalName)
+	
+	if ".mac.inc.bas.mvb.mvi." [ Extension { 
+		set Status = ..ExportRoutine(.ExternalName,InternalName) 
+	} 
+	else { 
+		set Status = ..ExportNonRoutine(.ExternalName,InternalName) 
+	}
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="ExportNonRoutine">
+<FormalSpec><![CDATA[&ExternalName:%String,InternalName:%String]]></FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	#define StartsWith(%s,%ss)             (%s?1%ss.E)
+	
+	set ExternalName = $get(ExternalName)
+	if '$length(ExternalName) set ExternalName = ..ExternalName(InternalName)
+
+	set ExtDirectory = ##class(%File).GetDirectory(ExternalName)
+	do ##class(%File).CreateDirectoryChain(ExtDirectory)
+
+	set Flags= "/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)
+	} else {
+		set Status=$system.OBJ.Export(InternalName,ExternalName,Flags)	
+	}
+
+	set Stream = ##class(%GlobalCharacterStream).%New()
+	set File = ##class(%FileCharacterStream).%New()
+	set File.Filename = ExternalName
+
+	do Stream.CopyFrom(File)
+	do File.Clear()  
+	
+	do Stream.Rewind()
+	while 'Stream.AtEnd {
+		set Line = Stream.ReadLine()
+		continue:$$$StartsWith(Line,"<TimeChanged>")&&(Line["</TimeChanged>")
+		continue:$$$StartsWith(Line,"<TimeCreated>")&&(Line["</TimeCreated>")
+		continue:$$$StartsWith(Line,"<Checksum value=")
+		#if ($system.Version.GetMajor()=5)
+			if $$$StartsWith(Line,"<Export generator=") set Line="<Export generator=""Cache"" version=""9"">"
+		#endif
+		do File.WriteLine(Line)
+	}
+	
+	do File.SaveStream()
+		
+	quit Status
+]]></Implementation>
+</Method>
+
+<Method name="ExportRoutine">
+<FormalSpec><![CDATA[&ExternalName:%String,InternalName:%String,iFlags:%String=""]]></FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set 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 ExtDirectory = ##class(%File).GetDirectory(ExternalName)
+	do ##class(%File).CreateDirectoryChain(ExtDirectory)
+
+	set File=##class(%FileCharacterStream).%New()
+	set File.Filename=ExternalName
+	while 'strRoutine.AtEnd {
+		do File.WriteLine(strRoutine.ReadLine())
+	}
+	
+	set Status=File.SaveStream()
+	quit Status
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+</Storage>
+</Class>
+
+
+</Export>
Index: vhUnitTest/Manager.cls.xml
===================================================================
diff -u
--- vhUnitTest/Manager.cls.xml	(revision 0)
+++ vhUnitTest/Manager.cls.xml	(revision 1570)
@@ -0,0 +1,10 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.Manager">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>Tools.UnitTest.Manager</Super>
+</Class>
+
+
+</Export>
Index: svn/StudioHook.cls.xml
===================================================================
diff -u -r1553 -r1570
--- svn/StudioHook.cls.xml	(.../StudioHook.cls.xml)	(revision 1553)
+++ svn/StudioHook.cls.xml	(.../StudioHook.cls.xml)	(revision 1570)
@@ -74,21 +74,6 @@
 <XData name="Menu">
 <Data><![CDATA[
 <MenuBase>
-<Menu Name = "Subversion2" Type = "0">
-<MenuItem Name="Project Status"/>
-<MenuItem Name="Project Update (HEAD)"/>
-<MenuItem Name="Project Commit"/>
-<MenuItem Separator="1" Name="----------------------------------"/> 
-<MenuItem Name="TortoiseSVN Log" />
-<MenuItem Name="TortoiseSVN Status" />
-<MenuItem Name="TortoiseSVN Commit" />
-<MenuItem Separator="1" Name="----------------------------------"/> 
-<MenuItem Name="TortoiseSVN Browse repository" />
-<MenuItem Name="TortoiseSVN Merge (!)" />
-<MenuItem Separator="1" Name="----------------------------------"/>
-<MenuItem Name="Source Control Code Update" />
-<MenuItem Separator="1" Name="----------------------------------"/> 
-</Menu>
 <Menu Name = "Subversion" Type="0">
 <MenuItem Name="GetLatest" />
 <MenuItem Name="Reload File" />
@@ -97,6 +82,9 @@
 <MenuItem Separator="1" Name="----------------------------------"/> 
 <MenuItem Name="Settings"/>
 <MenuItem Name="Dump Settings" />
+<MenuItem Separator="1" Name="----------------------------------"/> 
+<MenuItem Name="Source Control Code Update" />
+<MenuItem Separator="1" Name="----------------------------------"/> 
 </Menu>
 </MenuBase>
 ]]></Data>
@@ -147,7 +135,7 @@
 <FormalSpec><![CDATA[Type:%Integer,Name:%String,InternalName:%String,SelectedText:%String,&Action:%String,&Target:%String,&Msg:%String,&Reload:%Boolean]]></FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	if ..Debug Write !,"Method 'UserAction' Type:"_Type_" Name:"_Name_" InternalName:"_InternalName_" SelectedText:"_SelectedText_" Action:"_Action_" Target:"_Target_" Msg:"_Msg_" Reload:"_Reload
+	if ..Debug write !,"Method 'UserAction' Type:"_Type_" Name:"_Name_" InternalName:"_InternalName_" SelectedText:"_SelectedText_" Action:"_Action_" Target:"_Target_" Msg:"_Msg_" Reload:"_Reload
 	#dim tCmd as svn.Command
 	set tIsPopupMenu=$zcvt($p(Name,",",1),"L")["integration"
 	set tMenu=$zcvt($p($p(Name,",",2)," ",1),"L")
@@ -252,7 +240,7 @@
 <FormalSpec><![CDATA[&InternalName:%String,&Action:%String,&Target:%String,&Msg:%String,&Reload:%Boolean,&tCmd:svn.Command,tMenu:%String]]></FormalSpec>
 <Implementation><![CDATA[
 	set Action=0
-	set tCmd=##class(svn.Command).%New($lb(Helper.LocalWorkspacePath(..svnHelper.Branch)))
+	set tCmd=##class(svn.Command).%New($lb(..svnHelper.LocalWorkspacePath(..svnHelper.Branch)))
 	set tCmd.File=..ProjectNameModified
 	set tCmd.InternalName=tCmd.File		
 	if (tMenu(2) [ "commit") do ..SubversionProjectCommit(.InternalName,.Action,.Target,.Msg,.Reload,.tCmd)
@@ -858,35 +846,16 @@
 	if ..Debug Write !,"Method 'OnAfterLoad' InternalName:"_InternalName
 	#dim tCmd as svn.Command
 	
-	if ..svnHelper.HasToBeSynchronized(InternalName) {
+	set Repository = ..svnHelper.GeefRepository(InternalName)
 	
-		set tCmd=##class(svn.Command).%New($lb(..svnHelper.LocalWorkspacePath(..svnHelper.Branch)))
-		set tCmd.SubCommand="status"
-		do tCmd.Options.SetAt("","-u")
-		do tCmd.Options.SetAt("","-v")
-		if ..svnHelper.PassCredentials do tCmd.GlobalOptions.SetAt(..Name,"--username"),tCmd.GlobalOptions.SetAt(..Password,"--password") 
-		set tCmd.File=..svnHelper.ExternalName(InternalName,$$$FULLPATH)
-		do tCmd.Execute()
-		set tIsDisconnected=..IsDisconnected
-		set tSC=..svnHelper.PostProcessing(tCmd)		// postprocessing may reset IsDisconnected!
-		set ..IsDisconnected=tIsDisconnected
-		if '..IsDisconnected {
-			// FMA no need for a SVN tutorial all the time...
-			//write !," *** Studio: HINT: you may need to 'svn update' your item now, check text above...",!
-		} else {
-			write !," *** Studio: your're disconnected from "_..#PRODUCT_", you can't update from repository"	
-		}
+	if $IsObject(Repository) {
+		do Repository.Status(InternalName)
+	}
 	
-		// Additional processing for projects
-	
-		// FMA Early quit to disable most project handling
-		if ##class(TECH.SourceCodeUtils).Type(InternalName)="project" {
-			set ..ProjectNameOriginal=$p(InternalName,".",1)
-			//set ..ProjectNameModified=$tr($p(InternalName,".",1)," ","_")
-			set ..ProjectNameModified = ..svnHelper.ExternalName(InternalName,$$$FULLPATH)
-			// FMA quick hack to trigger auto-update and never auto-commit below
-			set ..IsNewProject=0
-		}
+	if ##class(TECH.SourceCodeUtils).Type(InternalName)="project" {
+		set ..ProjectNameOriginal=$p(InternalName,".",1)
+		set ..ProjectNameModified = ..svnHelper.ExternalName(InternalName,$$$FULLPATH)
+		set ..IsNewProject=0
 	}
 	
 	Quit $$$OK
@@ -956,6 +925,9 @@
 <FormalSpec>InternalName:%String</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
+	
+	write "InternalName : "_InternalName ,!
+	
 	// item deleted
 	Set tFile = ..DeleteFromSVN(InternalName)
 	Do ..DeleteEmptyDirectory(tFile)
@@ -1067,7 +1039,7 @@
 <FormalSpec>InternalName:%String</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	set ExternalName=..svnHelper.ExternalName(InternalName)
+	set ExternalName=..svnHelper.GeefRepository(InternalName).ExternalName(InternalName)
 	quit ##class(svn.SourceCodeInfo).Create(InternalName,ExternalName)
 ]]></Implementation>
 </Method>
@@ -1079,7 +1051,7 @@
 	set Status = $$$OK
 	
 	if $IsObject(Object) {
-		set ExternalName=..svnHelper.ExternalName(InternalName)
+		set ExternalName=..svnHelper.GeefRepository(InternalName).ExternalName(InternalName)
 		Set Status = ##class(svn.SourceCodeInfo).Create(InternalName,ExternalName) 
 	}
 	
Index: svn/Setting.cls.xml
===================================================================
diff -u
--- svn/Setting.cls.xml	(revision 0)
+++ svn/Setting.cls.xml	(revision 1570)
@@ -0,0 +1,102 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="svn.Setting">
+<IncludeCode>svn</IncludeCode>
+<Super>%RegisteredObject</Super>
+
+<Method name="Debug">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	quit +$get($$$SVNGlobal("SourceControl","SVN","Debug"))
+]]></Implementation>
+</Method>
+
+<Method name="MagUnitTestUitvoeren">
+<ClassMethod>1</ClassMethod>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit '+$get($$$SVNGlobal("SourceControl","SVN","IgnoreUnitTests"))
+]]></Implementation>
+</Method>
+
+<Method name="ZetMagUnitTestUitvoeren">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>MagUitvoeren:%Boolean</FormalSpec>
+<Implementation><![CDATA[	set $$$SVNGlobal("SourceControl","SVN","IgnoreUnitTests")='MagUitvoeren
+]]></Implementation>
+</Method>
+
+<Method name="ZetMagTryoutcodeUitvoeren">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>MagUitvoeren:%Boolean</FormalSpec>
+<Implementation><![CDATA[	set $$$SVNGlobal("SourceControl","SVN","IgnoreTryoutCode")='MagUitvoeren
+]]></Implementation>
+</Method>
+
+<Method name="MagTryoutcodeUitvoeren">
+<ClassMethod>1</ClassMethod>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit '+$get($$$SVNGlobal("SourceControl","SVN","IgnoreTryoutCode"))
+]]></Implementation>
+</Method>
+
+<Method name="IsUnitTestBezigGet">
+<ClassMethod>1</ClassMethod>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit +$get($$$SVNGlobal("SourceControl","SVN","UnitTestInProcess"))
+]]></Implementation>
+</Method>
+
+<Method name="IsUnitTestBezigSet">
+<FormalSpec>IsBezig:%Boolean</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	set $$$SVNGlobal("SourceControl","SVN","UnitTestInProcess") = IsBezig
+	quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="ChangeSourceControl">
+<ClassMethod>1</ClassMethod>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit $get($$$SVNGlobal("SourceControl","SVN","ChangeSourceControl"))=1
+]]></Implementation>
+</Method>
+
+<Method name="ZetChangeSourceControl">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ChangeSourceControl:%Boolean</FormalSpec>
+<Implementation><![CDATA[	set $$$SVNGlobal("SourceControl","SVN","ChangeSourceControl")=ChangeSourceControl
+]]></Implementation>
+</Method>
+
+<Method name="WorkingOffline">
+<ClassMethod>1</ClassMethod>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit $get($$$SVNGlobal("SourceControl","SVN","WorkingOffline"))=1
+]]></Implementation>
+</Method>
+
+<Method name="PassCredentials">
+<ClassMethod>1</ClassMethod>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit +$get($$$SVNGlobal("SourceControl","SVN","PassCredentials"))
+]]></Implementation>
+</Method>
+
+<Method name="HeeftConflicten">
+<ClassMethod>1</ClassMethod>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit +$get($$$SVNGlobal("SourceControl",$$$PRODUCT,"HasConflicts"))
+]]></Implementation>
+</Method>
+
+<Method name="ZetHeeftConflicten">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Conflict:%Boolean</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	set $$$SVNGlobal("SourceControl",$$$PRODUCT,"HasConflicts") = Conflict
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/svn/Helper.cls.xml
===================================================================
diff -u
--- vhUnitTest/svn/Helper.cls.xml	(revision 0)
+++ vhUnitTest/svn/Helper.cls.xml	(revision 1570)
@@ -0,0 +1,8 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.svn.Helper">
+<Super>vhUnitTest.TestCase</Super>
+</Class>
+
+
+</Export>
Index: svn/Repository/CSPRepository.cls.xml
===================================================================
diff -u
--- svn/Repository/CSPRepository.cls.xml	(revision 0)
+++ svn/Repository/CSPRepository.cls.xml	(revision 1570)
@@ -0,0 +1,74 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="svn.Repository.CSPRepository">
+<Super>svn.Repository</Super>
+
+<Property name="Application">
+<Type>%String</Type>
+</Property>
+
+<Method name="DeleteCode">
+<FormalSpec>InternalName</FormalSpec>
+<Implementation><![CDATA[	do ##class(%RoutineMgr).Delete(InternalName)
+]]></Implementation>
+</Method>
+
+<Method name="HasToBeSynchronized">
+<FormalSpec>InternalName:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	set Result = ##super(InternalName)
+	
+	if Result set Result = ..GeefExtentie(InternalName)?1(1"csp",1"csr")
+	if Result set Result = ##class(TECH.StringUtils).StartsWith(InternalName,..Application)
+	
+	quit Result
+]]></Implementation>
+</Method>
+
+<Method name="ExternalName">
+<FormalSpec>InternalName:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	set InternalName = $extract(InternalName,2,$length(InternalName))
+	set Applicatie = $translate(..Application,"/","\")
+	set tExternal = $piece(..WorkspacePath(..Branch),Applicatie,1)_"\"_InternalName
+	set tExternal=$translate(tExternal,"/","\")
+	Quit tExternal
+]]></Implementation>
+</Method>
+
+<Method name="InternalName">
+<FormalSpec>ExternalName:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#define UCase(%s) $zconvert(%s,"U")
+	
+	set InternalName = ""
+	set LocalWorkSpacePath = ..WorkspacePath(..Branch)
+	set RootName = $extract(ExternalName,1,$length(LocalWorkSpacePath))
+	if $zconvert(LocalWorkSpacePath,"l")=$zconvert(RootName,"l") {
+		set Applicatie = $translate(..Application,"/","\")
+		set Applicatie = ##class(TECH.Files).AppendFile(Applicatie,$piece(RootName,Applicatie,2))
+		set InternalName = ##class(TECH.Files).AppendFile(Applicatie,$extract(ExternalName,$length(RootName)+1,$length(ExternalName)))
+		set InternalName = $translate(InternalName,"\","/")
+	}
+	quit InternalName
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DefaultData>CSPRepositoryDefaultData</DefaultData>
+<Data name="CSPRepositoryDefaultData">
+<Structure>listnode</Structure>
+<Subscript>"CSPRepository"</Subscript>
+<Value name="1">
+<Value>Application</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: vhUnitTest/svn/Repository/CodeRepository.cls.xml
===================================================================
diff -u
--- vhUnitTest/svn/Repository/CodeRepository.cls.xml	(revision 0)
+++ vhUnitTest/svn/Repository/CodeRepository.cls.xml	(revision 1570)
@@ -0,0 +1,78 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.svn.Repository.CodeRepository">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="TestInternalName">
+<Implementation><![CDATA[
+	set svnRepo = ##class(svn.Repository.CodeRepository).%New()
+	set svnRepo.Path = "e:\svn\"
+	set svnRepo.Branch = "trunk"
+	
+	do $$$AssertEquals(svnRepo.InternalName("e:\svn\trunk\test.cls.xml"),"test.cls")
+	do $$$AssertEquals(svnRepo.InternalName("e:\svn\trunk\svn\test.cls.xml"),"svn.test.cls")
+	do $$$AssertEquals(svnRepo.InternalName("e:\svn\trunk\svn\test.mac.rou"),"svn.test.mac")
+	do $$$AssertEquals(svnRepo.InternalName("e:\svn\trunk\svn\test.inc.xml"),"svn.test.inc")
+	do $$$AssertEquals(svnRepo.InternalName("e:\svn\trunk2010\svn\test.inc.xml"),"")
+]]></Implementation>
+</Method>
+
+<Method name="TestExternalName">
+<Implementation><![CDATA[
+	set svnRepo = ##class(svn.Repository.CodeRepository).%New()
+	set svnRepo.Path = "e:\svn\"
+	set svnRepo.Branch = "trunk"
+	
+	do $$$AssertEquals(svnRepo.ExternalName("test.cls"),"e:\svn\trunk\test.cls.xml")
+	do $$$AssertEquals(svnRepo.ExternalName("svn.test.cls"),"e:\svn\trunk\svn\test.cls.xml")
+	do $$$AssertEquals(svnRepo.ExternalName("svn.test.mac"),"e:\svn\trunk\svn\test.mac.rou")
+	do $$$AssertEquals(svnRepo.ExternalName("svn.test.inc"),"e:\svn\trunk\svn\test.inc.rou")
+	do $$$AssertEquals(svnRepo.ExternalName("svn.test"),"e:\svn\trunk\svn\test")
+]]></Implementation>
+</Method>
+
+<Method name="TestHasToBeSynchronized">
+<Implementation><![CDATA[
+	set svnRepo = ##class(svn.Repository.CodeRepository).%New()
+	set svnRepo.Path = "e:\svn\"
+	set svnRepo.Branch = "trunk"	
+
+	do ##class(svn.Setting).ZetChangeSourceControl($$$true)
+	
+	do $$$AssertFalse(svnRepo.HasToBeSynchronized("/vhisie/tbx/test.csp"))
+	do $$$AssertFalse(svnRepo.HasToBeSynchronized("/csp/dev1/test.csp"))
+	
+	do $$$AssertTrue(svnRepo.HasToBeSynchronized("svn.Repository.CodeRepository.cls"))
+		
+	do $$$AssertFalse(svnRepo.HasToBeSynchronized("%Library.String.cls"))
+	do $$$AssertFalse(svnRepo.HasToBeSynchronized("vhisie/test.csp"))
+	
+	do $$$AssertTrue(svnRepo.HasToBeSynchronized("TECH.StringUtils.cls"))
+	
+	do $$$AssertTrue(svnRepo.HasToBeSynchronized("TECH.StringUtils.mac"))
+	do $$$AssertTrue(svnRepo.HasToBeSynchronized("TECH.StringUtils.inc"))
+	do $$$AssertTrue(svnRepo.HasToBeSynchronized("Tools.UnitTest.inc"))
+	do $$$AssertFalse(svnRepo.HasToBeSynchronized("Tools.UnitTest.int"))
+	do $$$AssertTrue(svnRepo.HasToBeSynchronized("svn.Repository"))
+	
+	do ##class(svn.Setting).ZetMagTryoutcodeUitvoeren($$$true)
+	do $$$AssertTrue(svnRepo.HasToBeSynchronized("zTryout.JCL.Test.cls"))
+	do ##class(svn.Setting).ZetMagTryoutcodeUitvoeren($$$false)
+	do $$$AssertFalse(svnRepo.HasToBeSynchronized("zTryout.JCL.Test.cls"))
+	do ##class(svn.Setting).ZetMagTryoutcodeUitvoeren($$$true)
+	
+	do ##class(svn.Setting).ZetMagUnitTestUitvoeren($$$true)
+	do $$$AssertTrue(svnRepo.HasToBeSynchronized("vhUnitTest.svn.Repository.cls"))
+	do ##class(svn.Setting).ZetMagUnitTestUitvoeren($$$false)
+	do $$$AssertFalse(svnRepo.HasToBeSynchronized("vhUnitTest.svn.Repository.cls"))
+	do ##class(svn.Setting).ZetMagUnitTestUitvoeren($$$true)
+	
+	do ##class(svn.Setting).ZetChangeSourceControl($$$false)
+	do $$$AssertFalse(svnRepo.HasToBeSynchronized("vhUnitTest.svn.Repository.cls"))
+	do ##class(svn.Setting).ZetChangeSourceControl($$$true)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: svn/Helper.cls.xml
===================================================================
diff -u -r1567 -r1570
--- svn/Helper.cls.xml	(.../Helper.cls.xml)	(revision 1567)
+++ svn/Helper.cls.xml	(.../Helper.cls.xml)	(revision 1570)
@@ -17,12 +17,6 @@
 <Parameter name="TRUNCATE" value="1"/>
 </Property>
 
-<Parameter name="PRODUCT">
-<Description>
-Product name, e.g. VSS, ClearCase, CVS, etc..</Description>
-<Default>SVN</Default>
-</Parameter>
-
 <Property name="ToCompile">
 <Type>svn.CompileList</Type>
 </Property>
@@ -43,40 +37,6 @@
 <Parameter name="TRUNCATE" value="1"/>
 </Property>
 
-<Property name="LocalWorkspaceRoot">
-<Type>%String</Type>
-<Parameter name="TRUNCATE" value="1"/>
-</Property>
-
-<Property name="CommonWorkspaceRoot">
-<Type>%String</Type>
-<Parameter name="TRUNCATE" value="1"/>
-</Property>
-
-<Property name="UnitTestWorkspaceRoot">
-<Type>%String</Type>
-<Parameter name="TRUNCATE" value="1"/>
-</Property>
-
-<Property name="RepositoryRoot">
-<Type>%String</Type>
-<Parameter name="TRUNCATE" value="1"/>
-</Property>
-
-<Property name="Branch">
-<Description>
-this indicates the branch name, default is trunk</Description>
-<Type>%String</Type>
-<Calculated>1</Calculated>
-<Parameter name="TRUNCATE" value="1"/>
-</Property>
-
-<Property name="CommonBranch">
-<Type>%String</Type>
-<Calculated>1</Calculated>
-<Parameter name="TRUNCATE" value="1"/>
-</Property>
-
 <Property name="PassCredentials">
 <Type>%Boolean</Type>
 </Property>
@@ -92,7 +52,7 @@
 
 <Property name="Debug">
 <Type>%Boolean</Type>
-<Calculated>1</Calculated>
+<InitialExpression>1</InitialExpression>
 <Private>1</Private>
 </Property>
 
@@ -116,33 +76,32 @@
 <Private>1</Private>
 </Property>
 
-<Method name="DebugGet">
-<Private>1</Private>
-<Implementation><![CDATA[	quit +$g($$$SVNGlobal("SourceControl","SVN","Debug"))
-]]></Implementation>
-</Method>
-
-<Method name="MagUnitTestUitvoerenGet">
-<Private>1</Private>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit '+$G($$$SVNGlobal("SourceControl","SVN","IgnoreUnitTests"))
-]]></Implementation>
-</Method>
-
-<Method name="IsUnitTestBezigGet">
-<Private>1</Private>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit +$G($$$SVNGlobal("SourceControl","SVN","UnitTestInProcess"))
-]]></Implementation>
-</Method>
-
-<Method name="IsUnitTestBezigSet">
-<FormalSpec>IsBezig:%Boolean</FormalSpec>
-<Private>1</Private>
-<ReturnType>%Status</ReturnType>
+<Method name="ImportDirectory">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Path:%String,WorkSpacePath:%String</FormalSpec>
 <Implementation><![CDATA[
-	Set $$$SVNGlobal("SourceControl","SVN","UnitTestInProcess") = IsBezig
-	Quit $$$OK
+	set Path = ##class(%File).NormalizeDirectory(Path)
+	set WorkSpacePath = ##class(%File).NormalizeDirectory(WorkSpacePath)
+	
+	set svnHelper = ##class(svn.Helper).%New()
+	
+	set Files = ##class(TECH.Files).%New().GetFileList(Path,"*.*",1,1)
+	
+	set itFiles = ##class(TECH.ListIterator).%New(Files)
+	while itFiles.HasNext() {
+		set FileInfo = itFiles.Next()
+		set Extension = $piece(FileInfo.Name,".",$length(FileInfo.Name,"."))
+		if Extension?1(1"rou",1"xml") {
+			set Repo = ##class(svn.Repository.CodeRepository).%New()
+			set Repo.Path = Path
+		 	set InternalName = Repo.InternalName(FileInfo.Name)
+		 	if Extension?1"rou" { do Repo.ImportRoutine(FileInfo.Name,InternalName) }
+		 	if Extension?1"xml" { do Repo.ImportNonRoutine(FileInfo.Name) }
+		 	do ##class(svn.SourceCodeInfo).Update(InternalName,FileInfo.Name)
+		 	do svnHelper.ToCompile.List.Insert(InternalName)
+		}
+	}
+	do svnHelper.CompileImportedSourceCode()
 ]]></Implementation>
 </Method>
 
@@ -229,35 +188,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="ImportDirectory">
-<Description>
-!!!! Path and WorkSpacePath are case sensitive</Description>
-<ClassMethod>1</ClassMethod>
-<FormalSpec>Path:%String,WorkSpacePath:%String</FormalSpec>
-<Implementation><![CDATA[
-	set Path = ##class(%File).NormalizeDirectory(Path)
-	set WorkSpacePath = ##class(%File).NormalizeDirectory(WorkSpacePath)
-	set svnHelper = ..%New()
-	
-	set Files = ##class(TECH.Files).%New().GetFileList(Path,"*.*",1,1)
-	
-	set itFiles = ##class(TECH.ListIterator).%New(Files)
-	while itFiles.HasNext() {
-		set FileInfo = itFiles.Next()
-		set Extension = $piece(FileInfo.Name,".",$length(FileInfo.Name,"."))
-		if Extension?1(1"rou",1"xml",1"csp") { 
-		 	set InternalName = svnHelper.InternalName(FileInfo.Name,WorkSpacePath)
-		 	if Extension?1"rou" { do svnHelper.ImportRoutine(FileInfo.Name,InternalName) }
-		 	if Extension?1"csp" { do svnHelper.ImportCSPFile(FileInfo.Name,InternalName) }
-		 	if Extension?1"xml" { do svnHelper.ImportNonRoutine(FileInfo.Name) }
-		 	do ##class(svn.SourceCodeInfo).Update(InternalName,FileInfo.Name)
-		 	do svnHelper.ToCompile.List.Insert(InternalName)
-		}
-	}
-	do svnHelper.CompileImportedSourceCode()
-]]></Implementation>
-</Method>
-
 <Method name="GetSVNAddFilename">
 <FormalSpec>iPath:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
@@ -286,172 +216,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="SVNExport">
-<FormalSpec>InternalName</FormalSpec>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	if ..HasToBeSynchronized(InternalName) {
-	
-		if ..IsCommonCode(InternalName) {
-			set WorkspacePath = ..CommonWorkspacePath(..CommonBranch)
-		}
-		else {
-			set WorkspacePath = ..GetLocalWorkspacePathWithBranch()
-		}
-		
-		set ExternalName = ..ExternalName(InternalName)
-		set SVNFile = ..GetSVNAddFilename(ExternalName)
-		
-		do ..Export(.ExternalName,InternalName)
-		
-		if '..AllreadyAdded(InternalName) {
-			set svnCommand = ##class(svn.Command).%New($listbuild(WorkspacePath))
-			set svnCommand.SubCommand="add"
-			set svnCommand.File = SVNFile
-			do svnCommand.Execute()
-		
-			write "Added to SVN : "_InternalName_" --> "_ExternalName, !
-		}
-	
-		do ##class(svn.SourceCodeInfo).Update(InternalName,ExternalName)
-	}
-	else {
-		
-		write "Skipping : "_InternalName		
-	}
-	
-	quit
-]]></Implementation>
-</Method>
-
-<Method name="SVNImport">
-<FormalSpec>Filename:%String</FormalSpec>
-<Implementation><![CDATA[
-	// Geen directories verwerken
-	If ('##class(%File).DirectoryExists(Filename))
-	{
-		set InternalName = ..InternalName(Filename)
-		
-		set TECHCSPApplicatie = ##class(TECH.CSP.CSPApplicatie).Instance()
-	
-		if ..HasToBeSynchronized(InternalName) {
-			
-			Set ..IsCodeVeranderd = 1
-			
-			set CurrentIO = $IO
-		
-			set ImportFailed = 0
-			set ImportUitvoeren = 0
-			set CodeVerwerken = 1		
-		
-			if ( CodeVerwerken = 1 ) && ( $extract(InternalName)="/" ) {
-			  set CodeVerwerken = ..ProcessCSPCode(InternalName)
-			}
-
-			if CodeVerwerken {
-				set BestandBestaat = ##class(%File).Exists(Filename)
-				if ('BestandBestaat)  {
-					if '(##class(TECH.SourceCodeUtils).Type(InternalName)="project") {
-					 	do ..DeleteCode(InternalName)
-					}
-				}
-				set ImportUitvoeren = BestandBestaat
-				
-			 }
-	
-			if ImportUitvoeren {
-					w "Importing "_InternalName,!
-					do ..Import(Filename) 
-					do ##class(svn.SourceCodeInfo).Update(InternalName,Filename)
-			}
-			if ( 'ImportFailed ) && ( ImportUitvoeren ) {
-				do ..ToCompile.List.Insert(InternalName)	
-				set ..ExecCompile = 1 
-			}
-		}
-		else {
-			w "Skipping : "_Filename,!
-		}
-	}
-]]></Implementation>
-</Method>
-
-<Method name="SVNDelete">
-<FormalSpec>InternalName:%String,isDirectory:%Boolean=0,flagDeleteCode:%Boolean=1</FormalSpec>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	set tFile = InternalName
-	if 'isDirectory Set tFile = ..ExternalName(InternalName,$$$FULLPATH)
-	
-	if ##class(svn.SourceCodeInfo).%ExistsId(InternalName) do ##class(svn.SourceCodeInfo).%DeleteId(InternalName)
-	
-	set tCmd=##class(svn.Command).%New($lb(..LocalWorkspacePath(..Branch)))
-	set tCmd.File=tFile
-	set tCmd.SubCommand="delete"
-	do tCmd.Options.SetAt("","--force")
-	do tCmd.Execute()
-	
-	if 'isDirectory do ..DeleteEmptyDirectory(tFile)
-	
-	if flagDeleteCode do ..DeleteCode(InternalName)
-
-	/*if $$$CMDAUTODELETECOMMIT {
-		set tCmd=$$$NULLOREF
-		set tCmd=##class(svn.Command).%New($lb(..LocalWorkspacePath(..Branch)))
-		set tCmd.File=tFile
-		set tCmd.SubCommand="commit"
-		do tCmd.Options.SetAt("deleted by user","-m")
-		do tCmd.Execute()
-		if 'isDirectory do ..PostProcessing(tCmd,File)
-	} else {}
-	*/
-	write " *** Studio: please commit to propagate deletion to repository. ***",!
-	
-	Quit tFile
-]]></Implementation>
-</Method>
-
-<Method name="DeleteEmptyDirectory">
-<FormalSpec>tFile:%String</FormalSpec>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	//Bovenliggende map verwijderen
-	Set ParentDir = ##class(%File).GetDirectory(tFile)
-	
-	Set rset = ##class(%ResultSet).%New()
-	Set rset.ClassName = "%File"
-	Set rset.QueryName = "FileSet"
-
-	Do rset.Execute(ParentDir,"*.*","",1)
-	
-	Set Root = ..LocalWorkspacePath(..Branch)
-	Set Teller = 0
-	 
-	while (..CanDeleteDirectory(rset) && (ParentDir '= Root) && (Teller < 50)) 
-	 {		
-		#if ($system.Version.GetMajor()=5)
-			Do ##class(TECH.File).RemoveDirectoryTree(ParentDir)
-		#else
-		    Do ##class(%File).RemoveDirectoryTree(ParentDir)
-		#endif
-		
-		#define DIRECTORY 	1
-		
-		Do ..SVNDelete(ParentDir,$$$DIRECTORY)
-
-		#if ($system.Version.GetMajor()=5)
-		  set ParentDir = ##class(TECH.File).ParentDirectoryName(ParentDir)		
-		#else
-		  set ParentDir = ##class(%File).ParentDirectoryName(ParentDir)
-		#endif
-		Do rset.Execute(ParentDir,"*.*","",1)
-		Set Teller = Teller + 1
-	 }	
-	
-	 Quit $$$OK
-]]></Implementation>
-</Method>
-
 <Method name="CanDeleteDirectory">
 <FormalSpec>rset:%ResultSet</FormalSpec>
 <Private>1</Private>
@@ -466,72 +230,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="DeleteCode">
-<FormalSpec>InternalName</FormalSpec>
-<Implementation><![CDATA[
-	quit:'$length(InternalName)
-	Set ..IsCodeVeranderd = 1
-	
-	if $extract(InternalName)="_" 	{
-		set CSPFilename = ##class(TECH.CSP.CSPApplicatie).GetPhysicalFilename(InternalName)
-		do ##class(%File).Delete(CSPFilename)
-	}
-	elseif ##class(TECH.SourceCodeUtils).Type(InternalName) = "routine" {
-		do ##class(%RoutineMgr).Delete(InternalName)
-	} 	
-	elseif ##class(TECH.SourceCodeUtils).Type(InternalName) = "class" {
-		if ##class(TECH.SourceCodeUtils).Exists(InternalName) { 
-			do $system.OBJ.Delete(InternalName)
-			do ##class(%ExtentMgr.Util).DeleteExtent(##class(TECH.SourceCodeUtils).StripExtension(InternalName))   
-		}
-	} 
-	else {
-		do $system.OBJ.DeletePackage(InternalName)
-		// voor alle zekerheid een eigen delete package geschreven omdat die van intersystems niet echt betrouwbaar is
-		do ..DeletePackage(InternalName) 
-	}
-	quit
-]]></Implementation>
-</Method>
-
-<Method name="DeletePackage">
-<FormalSpec>InternalName</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	if $extract(InternalName,$length(InternalName))'="." set InternalName=InternalName_"."
-	set rs = ##class(%ResultSet).%New("%Dictionary.ClassDefinition:Extent")
-	do rs.Execute()
-	while rs.Next() {
-		set Name = rs.GetData(1)
-		if $extract(Name,1,$length(InternalName))=InternalName {
-			do $system.OBJ.Delete(Name)
-			do ##class(%ExtentMgr.Util).DeleteExtent(##class(TECH.SourceCodeUtils).StripExtension(Name))   
-		}
-	}
-	quit
-]]></Implementation>
-</Method>
-
-<Method name="ProcessCSPCode">
-<FormalSpec>InternalName</FormalSpec>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
-	set Result = 1
-	set CSPApplicatie = ..TECHCSPApplicatie.GetApplicatieNaam(InternalName)
-	
-	if '..TECHCSPApplicatie.IsApplicatieBeschikbaar(CSPApplicatie) {
-		do ..Failed.Insert(InternalName _ " : CSP Applicatie "_CSPApplicatie_" niet beschikbaar")
-		set Result = 0
-	} 
-	elseif ..TECHCSPApplicatie.GetNameSpace(CSPApplicatie) '= $zutil(5) {
-		do ..Failed.Insert(InternalName _ " : CSP Pagina niet geldig voor huidige namespace")
-		set Result = 0
-	}
-	
-	quit Result
-]]></Implementation>
-</Method>
-
 <Method name="CompileImportedSourceCode">
 <FormalSpec>flagRecompile:%Boolean=0</FormalSpec>
 <Implementation><![CDATA[
@@ -595,48 +293,8 @@
 ]]></Implementation>
 </Method>
 
-<Method name="LocalFileExists">
-<FormalSpec>InternalName</FormalSpec>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	quit ##class(%File).Exists(..ExternalName(InternalName,$$$FULLPATH))
-]]></Implementation>
-</Method>
-
-<Method name="LocalWorkspacePath">
-<Description>
-accessor method for LocalWorspacePath property</Description>
-<FormalSpec>pBranch:%String=""</FormalSpec>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	set tPath= ..NormalizePath(..LocalWorkspaceRoot)
-	if pBranch'="" set tPath=tPath_$translate(pBranch,$$$URLDelimiter,$$$FolderDelimiter)_$$$FolderDelimiter
-	quit tPath
-]]></Implementation>
-</Method>
-
-<Method name="CommonWorkspacePath">
-<FormalSpec>pBranch:%String=""</FormalSpec>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	set tPath= ..NormalizePath(..CommonWorkspaceRoot)
-	if pBranch'="" set tPath=tPath_$translate(pBranch,$$$URLDelimiter,$$$FolderDelimiter)_$$$FolderDelimiter
-	quit tPath
-]]></Implementation>
-</Method>
-
-<Method name="UnitTestWorkspacePath">
-<FormalSpec>pBranch:%String=""</FormalSpec>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	set tPath= ..NormalizePath(..UnitTestWorkspaceRoot)
-	if pBranch'="" set tPath=tPath_$translate(pBranch,$$$URLDelimiter,$$$FolderDelimiter)_$$$FolderDelimiter
-	quit tPath
-]]></Implementation>
-</Method>
-
 <Method name="NormalizePath">
-<Description>
-JBL + set path to a good format</Description>
+<ClassMethod>1</ClassMethod>
 <FormalSpec>Path:%String=""</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
@@ -645,96 +303,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="ExternalName">
-<Description>
-Convert the internal name, e.g. TEST.MAC to an external name that is used to export
-the routine/class/csp item. This is often a filename to write the file out to.</Description>
-<FormalSpec>InternalName:%String,FullPath:%Boolean=1</FormalSpec>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	set InternalType = ##class(TECH.SourceCodeUtils).Type(InternalName)
-	
-	set flagIsCSP = 0
-
-	set tLen=$length(InternalName,".")
-	
-	if $extract($zconvert(InternalName,"L"),1)="/" { // csp pages 
-		set flagIsCSP = 1
-		set InternalName = $translate(InternalName,"/","\")
-		set InternalName = "_"_$extract(InternalName,2,$length(InternalName))
-		set tPath = $piece(InternalName,".",1,tLen-1)
-		set $piece(tPath,"\",2)=""
-		set tPath=##class(TECH.StringUtils).Replace(tPath,"\\","\")
-	    
-	}
-	else { 
-		;set InternalName=$translate(InternalName," ","_") 
-		set tPath = $piece(InternalName,".",1,tLen-1)
-		set tPath = $translate(tPath,".","\")
-	}
-	
-	set tType=$zconvert($piece(InternalName,".",tLen),"L")
-	
-	set tExternal = tPath_"."_tType
-	if 'flagIsCSP {
-		if InternalType = "routine" set tExternal=tExternal_".rou"
-		else  set tExternal=tExternal_".xml"
-	}
-	
-	if FullPath {
-		if ..IsCommonCode(InternalName) {
-			set tExternal=..CommonWorkspacePath(..CommonBranch)_tExternal
-		}
-		else {	set tExternal=..LocalWorkspacePath(..Branch)_tExternal
-		}
-	}
-	
-	Quit tExternal
-]]></Implementation>
-</Method>
-
-<Method name="InternalName">
-<Description><![CDATA[
-Convert the external name, e.g. c:\<SVN-Root>\package\classname.cls.xml to an internal name that is used to import
-the routine/class/csp item. ]]></Description>
-<FormalSpec>ExternalName:%String,LocalWorkSpacePath:%String=""</FormalSpec>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	#define UCase(%s) $zconvert(%s,"U")
-	
-	set InternalName = ""
-	
-	if '$length(LocalWorkSpacePath) set LocalWorkSpacePath = ..LocalWorkspacePath(..Branch)
-		
-	if ##class(TECH.StringUtils).StartsWith($$$UCase(ExternalName),$$$UCase(..CommonWorkspacePath(..CommonBranch))) {
-		set LocalWorkSpacePath = ..CommonWorkspacePath(..CommonBranch)
-	}
-	
-	set RootName = $extract(ExternalName,1,$length(LocalWorkSpacePath))
-	if $zconvert(LocalWorkSpacePath,"l")=$zconvert(RootName,"l") {
-		set InternalName = $extract(ExternalName,$length(RootName)+1,$length(ExternalName)) ; root directory uit filename weghalen
-		if $extract(InternalName)'="_" {  // niet voor _ bestanden ( = csp ) files
-			set Extension = $piece(InternalName,".",$length(InternalName,"."))
-			if $zconvert(Extension,"L")?1(1"xml",1"rou") Set InternalName = $piece(InternalName,".",1,$length(InternalName,".")-1) ; extensie xml rou afstrippen
-			set Type = $piece(InternalName,".",$length(InternalName,"."))
-			set InternalName = $translate(InternalName,"/\","..") ; subdir veranderen door
-		} else {
-			set $piece(InternalName,"\",2)=$zconvert($zu(5),"L")_"\"_$piece(InternalName,"\",2)
-		}
-		set InternalName = $translate(InternalName,"\","/") ; alle \ vervangen naar /
-		if $extract(InternalName)="_" {	set $extract(InternalName)="/" } // voor csp pages enkel eerste _ wijzigen..
-		
-	}
-	Quit ..NormalizeInternalName(InternalName)
-]]></Implementation>
-</Method>
-
-<Method name="GetLocalWorkspacePathWithBranch">
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit ..LocalWorkspacePath(..Branch)
-]]></Implementation>
-</Method>
-
 <Method name="RoutineList">
 <ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[
@@ -787,59 +355,8 @@
 ]]></Implementation>
 </Method>
 
-<Method name="BuildSynchronizeList">
-<ReturnType>%ListOfObjects</ReturnType>
-<Implementation><![CDATA[
-	do ..SynchronizeList.Clear()
-	do ..SynchHasBeenValidated.Clear()
-	
-	set rsFilesInDB = ##class(%ResultSet).%New("svn.SourceCodeInfo:Extent")
-	do rsFilesInDB.Execute()
-	while rsFilesInDB.Next() {
-		do ..AddToSynchronizeList(rsFilesInDB.Get("ID"))
-	}
-	
-	set rsFilesOnDisk = ##class(%ResultSet).%New("TECH.Files:GetFiles")
-	do rsFilesOnDisk.Execute(..GetLocalWorkspacePathWithBranch(),"*.*")
-	while rsFilesOnDisk.Next() {
-		set ExternalName = rsFilesOnDisk.Get("Name")
-		if ..ExternalNameIsValid(ExternalName) {
-			set InternalName = ..InternalName(ExternalName)
-			do ..AddToSynchronizeList(InternalName)
-		}
-	}
-
-	set listRoutines = ..RoutineList()
-	set itRoutines = ##class(TECH.ListIterator).%New(listRoutines)
-	while itRoutines.HasNext() {
-		set Routine = itRoutines.Next()
-		do ..AddToSynchronizeList(Routine)	
-	}
-	
-	set listClasses = ..ClassList()
-	set itClasses = ##class(TECH.ListIterator).%New(listClasses)
-	while itClasses.HasNext() {
-		set InternalName = itClasses.Next()
-		do ..AddToSynchronizeList(InternalName)	
-	}
-	
-	set listCSPApplicaties = ##class(TECH.CSP.CSPApplicatie).Instance().CSPApplicaties($zutil(5))
-	set itCSPApplicaties = ##class(TECH.ListIterator).%New(listCSPApplicaties)
-	while itCSPApplicaties.HasNext() {
-		set CSPApplicatie = itCSPApplicaties.Next()
-		set listCSPFiles = ##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="NormalizeInternalName">
+<ClassMethod>1</ClassMethod>
 <FormalSpec>InternalName</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
@@ -854,314 +371,12 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Exact1UurVerschil">
-<FormalSpec>Horolog1,Horolog2</FormalSpec>
-<Private>1</Private>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
-	set Exact1UurVerschil = 0
-	set Time1 = $piece(Horolog1,",",2)
-	set Time2 = $piece(Horolog2,",",2)
-	if $zabs(Time1-Time2)=3600 set Exact1UurVerschil=1
-	Quit Exact1UurVerschil
-]]></Implementation>
-</Method>
-
-<Method name="ExportNeeded">
-<FormalSpec>InternalName</FormalSpec>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
-	quit:'##class(TECH.SourceCodeUtils).Exists(InternalName) 0
-
-	set ExternalName = ..ExternalName(InternalName)
-
-	set CachedDateModified = 0
-	if ##class(svn.SourceCodeInfo).%ExistsId(InternalName) {
-		set CachedDateModified = ##class(svn.SourceCodeInfo).%OpenId(InternalName).DateModified
-		}
-	set FileDateModified = ##class(%File).GetFileDateModified(ExternalName)
-	
-	set ExportNeeded = ( CachedDateModified ]] FileDateModified )
-	if ExportNeeded { set ExportNeeded = '(..Exact1UurVerschil(FileDateModified,CachedDateModified)) }
-	
-	if ExportNeeded {
-		set InternalHash = ""
-		if ##class(svn.SourceCodeInfo).%ExistsId(InternalName) {
-			set InternalHash = ##class(svn.SourceCodeInfo).%OpenId(InternalName).InternalHash
-		}
-		set ExternalHash = ..Hash(,ExternalName)
-		set ExportNeeded = '(ExternalHash = InternalHash)
-	}
-		
-	quit ExportNeeded
-]]></Implementation>
-</Method>
-
-<Method name="ImportNeeded">
-<FormalSpec>InternalName</FormalSpec>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
-	set ImportNeeded = 1
-	set ExternalName = ..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 {
-		set InternalHash = ##class(svn.SourceCodeInfo).Open(InternalName).InternalHash
-		if '$length(InternalHash) set InternalHash = ..Hash(InternalName)
-		set ExternalHash = ..Hash(,ExternalName)
-		set ImportNeeded = '(ExternalHash = InternalHash)
-	}
-	quit ImportNeeded
-]]></Implementation>
-</Method>
-
-<Method name="ExternalNameIsValid">
-<FormalSpec>ExternalName</FormalSpec>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
-	set ExternalName = $zcvt(ExternalName,"L")
-	set ExternalName = $translate(ExternalName,"/","\")
-	set LocalWorkspace = $zcvt(..GetLocalWorkspacePathWithBranch(),"L")
-	set LocalWorkspace = $translate(LocalWorkspace,"/","\")
-	
-	set IsValid = ##class(TECH.StringUtils).StartsWith(ExternalName,LocalWorkspace)
-	if IsValid { set IsValid = ExternalName'["\.svn" }
-
-	quit IsValid
-]]></Implementation>
-</Method>
-
-<Method name="IsCommonCode">
-<FormalSpec>InternalName</FormalSpec>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
-	
-	quit 0
-	
-	set Extension = $zconvert($piece(InternalName,".",$length(InternalName,".")),"L")
-
-	set resIsCommon = ##class(TECH.StringUtils).StartsWith(InternalName,"TECH.")
-	if resIsCommon { 
-		set resIsCommon = '##class(TECH.StringUtils).StartsWith(InternalName,"TECH.Events") 
-	}
-	else { 
-		set resIsCommon = ##class(TECH.StringUtils).StartsWith(InternalName,"Tools") 
-	}	
-	if 'resIsCommon { set resIsCommon = ##class(TECH.StringUtils).StartsWith(InternalName,"vhLib.Log") }
-	if 'resIsCommon { 
-		if ##class(TECH.StringUtils).StartsWith(InternalName,"vhLib.") && (Extension="mac") {
-			set resIsCommon = 1
-		}
-	}
-    if 'resIsCommon { set resIsCommon = ##class(TECH.StringUtils).StartsWith(InternalName,"vhLib.Deploy") }
-	if 'resIsCommon { set resIsCommon = InternalName = "WS.WebService.cls" }
-	if 'resIsCommon { set resIsCommon = InternalName = "WS.WebService.inc" }
-	if 'resIsCommon { set resIsCommon = InternalName = "vhLib.Macro.inc" }
-	
-	quit resIsCommon
-]]></Implementation>
-</Method>
-
-<Method name="DeleteNeeded">
+<Method name="HasToBeSynchronized">
 <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>
+check if a SourceFile needs to be synchronized if so add it to the module persistent data</Description>
 <FormalSpec>InternalName</FormalSpec>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
-	set ExternalName = ..ExternalName(InternalName)
-	set DeleteNeeded = 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="AddToSynchronizeList">
-<FormalSpec>InternalName:%String</FormalSpec>
-<Implementation><![CDATA[
-	Quit:..SynchHasBeenValidated.IsDefined(InternalName) // quit when allready has been checked
-	
-	do ..SynchHasBeenValidated.SetAt("",InternalName)
-	Quit:'..HasToBeSynchronized(InternalName) // quit when no Synchro is needed
-	
-	set ExternalName = ..ExternalName(InternalName)
-	
-	set SyncStatus = ..InitSyncStatus(InternalName)
-	Set SyncStatus.ImportNeeded = ..ImportNeeded(InternalName)
-	set SyncStatus.ExportNeeded = ..ExportNeeded(InternalName)
-	set SyncStatus.DeleteNeeded = ..DeleteNeeded(InternalName)
-	
-	set SyncStatus.SyncNeeded = ( SyncStatus.ImportNeeded || SyncStatus.ExportNeeded || SyncStatus.DeleteNeeded)
-	
-	if ( 'SyncStatus.SyncNeeded ) { 
-		do ..SynchronizeList.RemoveAt(InternalName)
-	}
-
-	quit
-]]></Implementation>
-</Method>
-
-<Method name="InitSyncStatus">
-<FormalSpec>InternalName</FormalSpec>
-<Private>1</Private>
-<ReturnType>svn.SyncStatus</ReturnType>
-<Implementation><![CDATA[
-	if ..SynchronizeList.IsDefined(InternalName) {
-		set SyncStatus = ..SynchronizeList.GetAt(InternalName)
-	} 
-	else { 
-		set SyncStatus = ##class(svn.SyncStatus).%New()
-		set SyncStatus.InternalName = InternalName
-		do ..SynchronizeList.SetAt(SyncStatus,InternalName)	
-	}	
-	quit SyncStatus
-]]></Implementation>
-</Method>
-
-<UDLText name="T">
-<Content><![CDATA[
-// check if a SourceFile needs to be synchronized if so add it to the module persistent data
-
-]]></Content>
-</UDLText>
-
-<Method name="HasToBeSynchronized">
-<FormalSpec>InternalName</FormalSpec>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
-	#dim Result As %Boolean = 1
-	
-	
-	if $extract(InternalName,1)="/" {   ; csp related pages moeten niet maar gesynchroniseerd worden.
-		Set Result = $get($$$SVNGlobal("SourceControl",..#PRODUCT,"ChangeSourceControl"))	
-	}
-	
-	if $extract(InternalName,1)="%" {   ; % classes mogen genegeerd worden
-		Set Result = 0	
-	}
-	
-	if $get($$$SVNGlobal("SourceControl",..#PRODUCT,"IgnoreUnitTests")) {
-		set Result = '##class(TECH.StringUtils).StartsWith(InternalName,"vhUnitTest")
-	}
-		
-	if $get($$$SVNGlobal("SourceControl",..#PRODUCT,"IgnoreTryoutCode")) {
-		set Result = '##class(TECH.StringUtils).StartsWith(InternalName,"zTryout")
-	}
-	
-	if ( Result ) { if InternalName["..svn" set Result = 0 }
-		
-	if ( Result ) { set Result = '##class(TECH.SourceCodeUtils).IsSystemCode(InternalName) }
-	
-	if ( Result ) {
-		if ##class(TECH.SourceCodeUtils).Type(InternalName) ="routine"  {
-			#dim macRoutine As %String = $piece(InternalName,".",1,$length(InternalName,".")-1)
-			#dim LastPiece As %String = $piece(macRoutine,".",$length(macRoutine,"."))
-			set Result = ( LastPiece'?1(1(1"T"1N,1"G"1N))) 
-		}
-	}
-	
-	if ( Result ) {
-		if ##class(TECH.SourceCodeUtils).Type(InternalName) ="routine"  {
-			set Result = '##class(TECH.StringUtils).StartsWith(InternalName,"CacheSql") 	
-		}
-	}
-		
-	if ( Result ) {
-		if ##class(TECH.SourceCodeUtils).IsGeneratedCode(InternalName) { 
-			set Result = 0
-		}
-	}
-
-	
-	if ( Result ) {
-		#dim Extension As %String = $piece(InternalName,".",$length(InternalName,".")) 	
-		set Result = ( $zconvert(Extension,"L")'="int" )
-	}
-	
-	if ( Result ) && ( ..IsSourceControlCode(InternalName) )  {
-		set Result = ..ChangeSourceControl()
-	}
-	quit Result
-]]></Implementation>
-</Method>
-
-<Method name="MatchesWildCard">
-<FormalSpec>Input:%String,WildCard:%String</FormalSpec>
-<ProcedureBlock>0</ProcedureBlock>
-<Implementation><![CDATA[
-	new Pattern, PatternOK , Code
-	set Input = $zconvert(Input,"U"),WildCard=$zconvert(WildCard,"U")
-	set Pattern = ..WildCardToPattern(WildCard)
-	set Code = "set PatternOK = Input?"_Pattern	xecute Code
-	quit PatternOK
-]]></Implementation>
-</Method>
-
-<Method name="IsSourceControlCode">
-<FormalSpec>InternalName</FormalSpec>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
-	 set result = 0
-	 
-	 if ..MatchesWildCard(InternalName,"svn*") { set result = 1 }
-	 elseif ..MatchesWildCard(InternalName,"/csp/svn*") { set result = 1 }
-	 elseif ..MatchesWildCard(InternalName,"csp.svn*") { set result = 1 }
-	 elseif InternalName["svnSynchro" { set result = 1 }
-	 
-	 quit result
-]]></Implementation>
-</Method>
-
-<Method name="WildCardToPattern">
-<FormalSpec>WildCard:%String,StartWith:%String</FormalSpec>
-<Implementation><![CDATA[
-	 Set NeedToEnd=0,Pattern="",EscapeChar=0
-
-	 If $E(WildCard)="§" Quit $E(WildCard,2,999) ; Zelf patternmatch ingegeven ipv van wildcard
-
-	 For Pos=1:1:$L(WildCard) Do
-	 . Set CurChar=$E(WildCard,Pos)
-	 . If (CurChar="\") && 'EscapeChar Do  Quit
-	 ..  Set EscapeChar=1
-	 . Else  If (CurChar="*") && 'EscapeChar Do
-	 ..  If NeedToEnd Do
-	 ...   Set Pattern=Pattern_""""
-	 ...   Set NeedToEnd=0
-	 ..  Set Pattern=Pattern_".E"
-	 . Else  If (CurChar="?") && 'EscapeChar Do
-	 ..  If NeedToEnd Do
-	 ...   Set Pattern=Pattern_""""
-	 ...   Set NeedToEnd=0
-	 ..  Set Pattern=Pattern_"1E"
-	 . Else  Do
-	 ..  If 'NeedToEnd Do
-	 ...   Set NeedToEnd=1
-	 ...  Set Pattern=Pattern_"1"""_CurChar
-	 ..  Else  Do
-	 ...  Set Pattern=Pattern_CurChar
-	 ..  Set EscapeChar=0
-
-	 If NeedToEnd Do
-	 . Set Pattern=Pattern_""""
-
-	 If $G(StartWith) Do
-	 . Set PatternLen=$L(Pattern)
-	 . Set:($E(Pattern,PatternLen-1,PatternLen)'=".E") Pattern=Pattern_".E"
-
-	 Quit Pattern
-]]></Implementation>
-</Method>
-
 <Method name="MakeDir">
 <Description>
 helper function to create intermediate directory when needed</Description>
@@ -1173,138 +388,13 @@
 ]]></Implementation>
 </Method>
 
-<Method name="LocalWorkspaceRootGet">
-<Description>
-accessor method for LocalWorspaceRoot property</Description>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	if $d($$$SVNGlobal("SourceControl",..#PRODUCT,"LocalWorkspaceRoot")) {
-		set tOut=$$$SVNGlobal("SourceControl",..#PRODUCT,"LocalWorkspaceRoot")
-		if $e(tOut,$l(tOut))'=$$$FolderDelimiter set tOut=tOut_$$$FolderDelimiter
-	} else {
-		set tOut=..Temp_$$$FolderDelimiter
-	}
-	quit tOut
-]]></Implementation>
-</Method>
-
-<Method name="CommonWorkspaceRootGet">
-<Description>
-accessor method for LocalWorspaceRoot property</Description>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	if $d($$$SVNGlobal("SourceControl",..#PRODUCT,"CommonWorkspaceRoot")) {
-		set tOut=$$$SVNGlobal("SourceControl",..#PRODUCT,"CommonWorkspaceRoot")
-		if $e(tOut,$l(tOut))'=$$$FolderDelimiter set tOut=tOut_$$$FolderDelimiter
-	} else {
-		set tOut=..Temp_$$$FolderDelimiter
-	}
-	quit tOut
-]]></Implementation>
-</Method>
-
-<Method name="UnitTestWorkspaceRootGet">
-<Description>
-accessor method for LocalWorspaceRoot property</Description>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	if $d($$$SVNGlobal("SourceControl",..#PRODUCT,"UnitTestWorkspaceRoot")) {
-		set tOut=$$$SVNGlobal("SourceControl",..#PRODUCT,"UnitTestWorkspaceRoot")
-		if $e(tOut,$l(tOut))'=$$$FolderDelimiter set tOut=tOut_$$$FolderDelimiter
-	} else {
-		set tOut=..Temp_$$$FolderDelimiter
-	}
-	quit tOut
-]]></Implementation>
-</Method>
-
-<Method name="RepositoryRootGet">
-<Description>
-accessor method for RepositoryRoot property
-this method automatically adds NAMESPACE to the repository root</Description>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	if $d($$$SVNGlobal("SourceControl",..#PRODUCT,"RepositoryRoot")) {
-		set tOut=$$$SVNGlobal("SourceControl",..#PRODUCT,"RepositoryRoot")
-		if $e(tOut,$length(tOut))'=$$$URLDelimiter set tOut=tOut_$$$URLDelimiter
-	} else {
-		w " *** Studio: error - can't find repository root",!!
-		set tOut=""
-	}
-	quit tOut
-]]></Implementation>
-</Method>
-
-<Method name="PassCredentialsGet">
-<Description>
-DK 2.10</Description>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	quit +$g($$$SVNGlobal("SourceControl",$$$PRODUCT,"PassCredentials"))
-]]></Implementation>
-</Method>
-
-<Method name="RepositoryPath">
-<FormalSpec>pBranch:%String=""</FormalSpec>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	// DK 2.11 ; DK 2.13
-	set tPath=""
-	set:pBranch'="" tPath=tPath_$$$URLDelimiter_pBranch
-	quit ..RepositoryRoot_$zcvt(tPath,"O","URL")
-]]></Implementation>
-</Method>
-
-<Method name="InitSourceControl">
-<Implementation><![CDATA[
-	set $$$SVNGlobal("SourceControl","SVN","AutoCheckout") = 0
-	set $$$SVNGlobal("SourceControl","SVN","AutoDeleteCommit") = 0
-	set $$$SVNGlobal("SourceControl","SVN","AutoCheckout")= 0
-	
-	set $$$SVNGlobal("SourceControl","SVN","AutoDeleteCommit")= 0
-	
-	set $$$SVNGlobal("SourceControl","SVN","Branch")= "trunk"
-	set $$$SVNGlobal("SourceControl","SVN","ChangeSourceControl")= 0
-	set $$$SVNGlobal("SourceControl","SVN","CommandLog")= 0
-	set $$$SVNGlobal("SourceControl","SVN","CompileFlags")= "ckfvrby"
-	set $$$SVNGlobal("SourceControl","SVN","Debug")	= 	0
-	
-	set $$$SVNGlobal("SourceControl","SVN","LocalSourceControlWorkspace")= "C:\SVN\CACHE\AdminASourceControl\trunk"
-	set $$$SVNGlobal("SourceControl","SVN","LocalWorkspaceRoot")= "C:\SVN\CACHE\AdminA"
-	
-	set $$$SVNGlobal("SourceControl","SVN","MergeToolExe")=	""
-	set $$$SVNGlobal("SourceControl","SVN","PassCredentials")= 1
-	set $$$SVNGlobal("SourceControl","SVN","RepositoryRoot") = "http://cache03.vanhoecke.be:81/svn/CACHE/AdminA"
-	
-	set $$$SVNGlobal("SourceControl","SVN","SvnCommand")= "c:\progra~1\visual~1\bin\svn.exe"
-	set $$$SVNGlobal("SourceControl","SVN","TestMachineURL")=""
-	
-	set $$$SVNGlobal("SourceControl","SVN","CacheFileBridgeActive")=1
-	
-	Set $$$SVNGlobal("SourceControl","SVN","MailWhenFailed") = "ict_development@vanhoecke.be"
-	
-	quit
-]]></Implementation>
-</Method>
-
-<Method name="ChangeSourceControl">
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	quit $get($$$SVNGlobal("SourceControl","SVN","ChangeSourceControl"))=1
-]]></Implementation>
-</Method>
-
-<Method name="WorkingOffline">
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	quit $get($$$SVNGlobal("SourceControl","SVN","WorkingOffline"))=1
-]]></Implementation>
-</Method>
-
 <Method name="ShowFailed">
 <FormalSpec>Actie:%String=""</FormalSpec>
 <Implementation><![CDATA[
 	#dim FailedCharacterStream As %GlobalCharacterStream = ..GeefFailedCharacterStream(Actie)
 	while 'FailedCharacterStream.AtEnd
 	{
-		w FailedCharacterStream.ReadLine(),!
+		write FailedCharacterStream.ReadLine(),!
 	}
 ]]></Implementation>
 </Method>
@@ -1351,448 +441,37 @@
 ]]></Implementation>
 </Method>
 
-<Method name="BranchGet">
-<ReturnType>%String</ReturnType>
+<Method name="SVNExport">
+<FormalSpec>InternalName</FormalSpec>
 <Implementation><![CDATA[
-	set Branch = $get($$$SVNGlobal("SourceControl","SVN","Branch"))
-	if '$length(Branch) set Branch = "trunk"
-	quit Branch
-]]></Implementation>
-</Method>
-
-<Method name="CommonBranchGet">
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	set Branch = $get($$$SVNGlobal("SourceControl","SVN","CommonBranch"))
-	if '$length(Branch) set Branch = "trunk"
-	quit Branch
-]]></Implementation>
-</Method>
-
-<Method name="Export">
-<FormalSpec>ExternalName,InternalName</FormalSpec>
-<Implementation><![CDATA[
-	Set Extension=$ZCVT($P(InternalName,".",$L(InternalName,".")),"l")
+	set Repository = ..GeefRepository(InternalName)
 	
-	if $extract(InternalName,1,1)="/" {
-		set Status = ..ExportCSPFile(.ExternalName,InternalName)
-	} 
-	else {
-		if ".int.mac.inc.bas.mvb.mvi." [ Extension { 
-			set Status = ..ExportRoutine(.ExternalName,InternalName) 
-		} 
-		else { 
-			set Status = ..ExportNonRoutine(.ExternalName,InternalName) 
-		}
+	if $isObject(Repository) {
+		do Repository.SVNExport(InternalName)
 	}
-	Quit $$$OK
-]]></Implementation>
-</Method>
-
-<Method name="ExportCSPFile">
-<FormalSpec><![CDATA[&ExternalName:%String,InternalName:%String]]></FormalSpec>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	set ExternalName = $get(ExternalName)
-	if '$length(ExternalName) set ExternalName = ..ExternalName(InternalName)
-	
-	set CSPFilename = ##class(TECH.CSP.CSPApplicatie).GetPhysicalFilename(InternalName)
-	if $length(CSPFilename) {
-		set ExtDirectory = ##class(%File).GetDirectory(ExternalName)
-		do ##class(%File).CreateDirectoryChain(ExtDirectory)
-		do ##class(%File).CopyFile(CSPFilename,ExternalName)
-	} else {
-		write "Geen applicatie gedefinieerd voor CSPFile : "_CSPFilename,!
-	}
-	
-	quit $$$OK
-]]></Implementation>
-</Method>
-
-<Method name="ExportNonRoutine">
-<FormalSpec><![CDATA[&ExternalName:%String,InternalName:%String]]></FormalSpec>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	#define StartsWith(%s,%ss)             (%s?1%ss.E)
-	
-	set ExternalName = $get(ExternalName)
-	if '$length(ExternalName) set ExternalName = ..ExternalName(InternalName)
-
-	set ExtDirectory = ##class(%File).GetDirectory(ExternalName)
-	do ##class(%File).CreateDirectoryChain(ExtDirectory)
-
-	set Flags= "/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)
-	} else {
-		set Status=$system.OBJ.Export(InternalName,ExternalName,Flags)	
-	}
-
-	set Stream = ##class(%GlobalCharacterStream).%New()
-	set File = ##class(%FileCharacterStream).%New()
-	set File.Filename = ExternalName
-
-	do Stream.CopyFrom(File)
-	do File.Clear()  
-	
-	do Stream.Rewind()
-	while 'Stream.AtEnd {
-		set Line = Stream.ReadLine()
-		continue:$$$StartsWith(Line,"<TimeChanged>")&&(Line["</TimeChanged>")
-		continue:$$$StartsWith(Line,"<TimeCreated>")&&(Line["</TimeCreated>")
-		continue:$$$StartsWith(Line,"<Checksum value=")
-		#if ($system.Version.GetMajor()=5)
-		if $$$StartsWith(Line,"<Export generator=") set Line="<Export generator=""Cache"" version=""9"">"
-		#endif
-		do File.WriteLine(Line)
-	}
-	
-	do File.SaveStream()
-		
-	quit Status
-]]></Implementation>
-</Method>
-
-<Method name="ExportRoutine">
-<FormalSpec><![CDATA[&ExternalName:%String,InternalName:%String,iFlags:%String=""]]></FormalSpec>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	Set 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 ExtDirectory = ##class(%File).GetDirectory(ExternalName)
-	do ##class(%File).CreateDirectoryChain(ExtDirectory)
-
-	set File=##class(%FileCharacterStream).%New()
-	set File.Filename=ExternalName
-	while 'strRoutine.AtEnd {
-		do File.WriteLine(strRoutine.ReadLine())
-	}
-	
-	set Status=File.SaveStream()
-	quit Status
-]]></Implementation>
-</Method>
-
-<Method name="Import">
-<FormalSpec>ExternalName:%String</FormalSpec>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	Set InternalName = ..InternalName(ExternalName)
-	Set Extension=$ZCVT($P(InternalName,".",$L(InternalName,".")),"l")
-	
-	if $extract(InternalName)="/" {
-		set Status = ..ImportCSPFile(ExternalName,InternalName)
-	}
 	else {
-		if ".int.mac.inc.bas.mvb.mvi." [ Extension { 
-			set Status = ..ImportRoutine(ExternalName,InternalName) 
-		} 
-		else { 
-			set Status = ..ImportNonRoutine(ExternalName) 
-		}
+		write "Skipping : "_InternalName		
 	}
 	
-	quit Status
-]]></Implementation>
-</Method>
-
-<Method name="ImportCSPFile">
-<FormalSpec>ExternalName:%String,InternalName:%String=""</FormalSpec>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	if '$length(InternalName) set InternalName = ..InternalName(ExternalName)
-	
-	set CSPFilename = ##class(TECH.CSP.CSPApplicatie).GetPhysicalFilename(InternalName)
-	if $length(CSPFilename) {
-		set CSPDirectory = ##class(%File).GetDirectory(CSPFilename)
-		do ##class(%File).CreateDirectoryChain(CSPDirectory)
-		do ##class(%File).CopyFile(ExternalName,CSPFilename)
-	} else {
-		write "Geen applicatie gedefinieerd voor CSPFile : "_CSPFilename,!
-	}
-	quit $$$OK
-]]></Implementation>
-</Method>
-
-<Method name="ImportRoutine">
-<FormalSpec>ExternalName:%String,InternalName:%String=""</FormalSpec>
-<Implementation><![CDATA[
-	if '##class(%Routine).Exists(InternalName) {
-		set Routine = ##class(%Routine).%New(InternalName)
-	}
-	else { 
-		set RoutineObj = ##class(%RoutineMgr).%OpenId(InternalName)
-		set Routine = RoutineObj.Code
-		
-	}
-	set File=##class(%FileCharacterStream).%New()
-	set File.Filename=ExternalName
-	do Routine.Clear()
-	while 'File.AtEnd {
-		do Routine.WriteLine(File.ReadLine())	
-	}
-	set Status = Routine.Save()
-	
-	quit Status
-]]></Implementation>
-</Method>
-
-<Method name="ImportNonRoutine">
-<FormalSpec>ExternalName:%String</FormalSpec>
-<Implementation><![CDATA[
-	set flags = $get($$$SVNGlobal("SourceControl",$$$PRODUCT,"LoadFlags"),"v")
-	set flags = flags_"-d"
-	if $g(%objlasterror)["#5368" set %objlasterror="" set Status=$system.OBJ.Load(ExternalName,flags)
-	set Status = $system.OBJ.Load(ExternalName,flags)
-	quit Status
-]]></Implementation>
-</Method>
-
-<Method name="Hash">
-<FormalSpec><![CDATA[InternalName:%String,&ExternalName:%String="",&oStatus]]></FormalSpec>
-<Implementation><![CDATA[
-	set flagIsTempFile = 0
-	set oStatus = $$$OK
-	if '$length(ExternalName) {
-	  set flagIsTempFile = 1
-	  set ExternalName=..ExportToTemporaryFile(InternalName)
-	}
-	
-	set Stream=##class(%FileBinaryStream).%New()
-	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
-
-	if flagIsTempFile {
-		do ##class(%File).Delete(ExternalName)	
-	}
-		
-	quit Hash
-]]></Implementation>
-</Method>
-
-<Method name="UpdateAllHashes">
-<Implementation><![CDATA[
-	do ##class(svn.SourceCodeInfo).%KillExtent()
-	
-	set listRoutines = ..RoutineList()
-	set itRoutines = ##class(TECH.ListIterator).%New(listRoutines)
-	while itRoutines.HasNext() {
-		set InternalName = itRoutines.Next()
-		set ExternalName = ..ExternalName(InternalName,1)
-    	if ##class(TECH.SourceCodeUtils).Exists(InternalName) {
-    		do ##class(svn.SourceCodeInfo).Update(InternalName,ExternalName)
-    	}
-	}
-		
-	set listClasses = ..ClassList()
-	set itClasses = ##class(TECH.ListIterator).%New(listClasses)
-	while itClasses.HasNext() {
-		set InternalName = itClasses.Next()
-    	set ExternalName = ..ExternalName(InternalName,1)
-    	if ##class(TECH.SourceCodeUtils).Exists(InternalName) {
-    		do ##class(svn.SourceCodeInfo).Update(InternalName,ExternalName)
-    	}
-    }
-	
-	set listProjects = ..ProjectList()
-	set itProjects = ##class(TECH.ListIterator).%New(listProjects)
-	while itProjects.HasNext() {
-		set InternalName = itProjects.Next()
-    	set ExternalName = ..ExternalName(InternalName,1)
-    	if ##class(TECH.SourceCodeUtils).Exists(InternalName) {
-    		do ##class(svn.SourceCodeInfo).Update(InternalName,ExternalName)
-    	}
-    }
-	
-	set listCSPApplicaties = ##class(TECH.CSP.CSPApplicatie).Instance().CSPApplicaties($zutil(5))
-	set itCSPApplicaties = ##class(TECH.ListIterator).%New(listCSPApplicaties)
-	while itCSPApplicaties.HasNext() {
-		set CSPApplicatie = itCSPApplicaties.Next()
-		set listCSPFiles = ##class(TECH.CSP.CSPApplicatie).Instance().CSPFiles(CSPApplicatie)
-		set itCSPFiles = ##class(TECH.ListIterator).%New(listCSPFiles)
-		while itCSPFiles.HasNext() {
-			set InternalName = itCSPFiles.Next()
-			if ..HasToBeSynchronized(InternalName) {
-				set ExternalName = ..ExternalName(InternalName,1)
-	        	if ##class(TECH.SourceCodeUtils).Exists(InternalName) {
-	        		do ##class(svn.SourceCodeInfo).Update(InternalName,ExternalName)
-	        	}
-			}
-		}
-	}
-
 	quit
 ]]></Implementation>
 </Method>
 
-<Method name="ExportToTemporaryFile">
-<FormalSpec>InternalName:%String</FormalSpec>
-<ReturnType>%String</ReturnType>
+<Method name="SVNDelete">
+<FormalSpec>InternalName</FormalSpec>
 <Implementation><![CDATA[
-	set TempFile = ##class(TECH.File).GetTempDir()_"/Cache_"_$Job_"/"
-	Set TempFile=##class(%Library.File).NormalizeDirectory(TempFile)
-	set TempFile = TempFile _ ..ExternalName(InternalName,$$$NOPATH)
+	set Repository = ..GeefRepository(InternalName)
 	
-	set Directory = ##class(%File).GetDirectory(TempFile)
-	If '##class(%File).DirectoryExists(Directory) {
-		do ##class(%File).CreateDirectoryChain(Directory)
+	if $isObject(Repository) {
+		do Repository.SVNDelete(InternalName)
 	}
-	
-	do ..Export(TempFile,InternalName)
-	
-	Quit TempFile
-]]></Implementation>
-</Method>
-
-<Method name="ExportSourcesToPath">
-<FormalSpec>Path:%String</FormalSpec>
-<Implementation><![CDATA[
-
-	set Path = ##class(%File).NormalizeDirectory(Path)
-	
-	set listRoutines = ..RoutineList()
-	set itRoutines = ##class(TECH.ListIterator).%New(listRoutines)
-	while itRoutines.HasNext() {
-		set InternalName = itRoutines.Next()
-		set ExternalName = Path_..ExternalName(InternalName,0)
-    	do ..ExportRoutine(ExternalName,InternalName)	
+	else {
+		write "Skipping : "_InternalName		
 	}
-		
-	set listClasses = ..ClassList()
-	set itClasses = ##class(TECH.ListIterator).%New(listClasses)
-	while itClasses.HasNext() {
-		set InternalName = itClasses.Next()
-		set ExternalName = Path_..ExternalName(InternalName,0)
-		do ..ExportNonRoutine(ExternalName,InternalName)	
-		}
-	
-	set listCSPApplicaties = ##class(TECH.CSP.CSPApplicatie).Instance().CSPApplicaties($zutil(5))
-	set itCSPApplicaties = ##class(TECH.ListIterator).%New(listCSPApplicaties)
-	while itCSPApplicaties.HasNext() {
-		set CSPApplicatie = itCSPApplicaties.Next()
-		set listCSPFiles = ##class(TECH.CSP.CSPApplicatie).Instance().CSPFiles(CSPApplicatie)
-		set itCSPFiles = ##class(TECH.ListIterator).%New(listCSPFiles)
-		while itCSPFiles.HasNext() {
-			set InternalName = itCSPFiles.Next()
-			if ..HasToBeSynchronized(InternalName) {
-				set ExternalName = Path_..ExternalName(InternalName,0)
-				do ..ExportCSPFile(ExternalName,InternalName)
-			}
-		}
-	}
-
 	quit
 ]]></Implementation>
 </Method>
 
-<Method name="RemoveNotSynchedCodeFromSVN">
-<Implementation><![CDATA[
-	#define IsPackage 	0
-	#define DeleteCode 	0	
-	set itClasses = ##class(TECH.ListIterator).%New(..ClassList())
-	while itClasses.HasNext() {
-		set Class = itClasses.Next()
-		if '..HasToBeSynchronized(Class) {
-			do ..SVNDelete(Class,$$$IsPackage,$$$DeleteCode)	
-		}		
-	}
-]]></Implementation>
-</Method>
-
-<UDLText name="T">
-<Content><![CDATA[
-// do ##class(svn.Helper).%New().CreateSVNFilebridgeProject(
-
-]]></Content>
-</UDLText>
-
-<Method name="CreateSVNFilebridgeProject">
-<FormalSpec>Revisions...:%String</FormalSpec>
-<ReturnType>%ListOfDataTypes</ReturnType>
-<Implementation><![CDATA[
-	set arrFiles = ##class(%ArrayOfDataTypes).%New()
-	
-	set WorkspacePath = ..LocalWorkspacePath()
-	
-	for Counter = 1 : 1 : Revisions {
-		set Revision = Revisions(Counter)
-		set svnCommand = ##class(svn.Command).%New($listbuild(WorkspacePath))
-		set svnCommand.SubCommand="log"
-		set svnCommand.Revision = Revision
-		set svnCommand.File = ..GetLocalWorkspacePathWithBranch()
-	
-		do svnCommand.GlobalOptions.SetAt("","-v")
-		do svnCommand.GlobalOptions.SetAt("Admin","--username")
-		do svnCommand.GlobalOptions.SetAt("fixed","--password")
-		
-		do svnCommand.Execute()
-	
-		set itResults = ##class(TECH.ListIterator).%New(svnCommand.Results)
-		while itResults.HasNext() {
-			set ResultInfo = itResults.Next()
-			if $length(ResultInfo.ExternalName) {
-				set InternalName = ..InternalName(ResultInfo.ExternalName)
-				If ($Length(InternalName) > 0)
-				{
-				 	if ResultInfo.Action = "D" { 
-				 		if ##class(TECH.SourceCodeUtils).Type(InternalName) = "other" {
-				 			do ..RemovePackageFromArray(arrFiles,InternalName)
-				 		}
-				 		do arrFiles.RemoveAt(InternalName)
-				 	}
-				 	else { do arrFiles.SetAt(InternalName,InternalName) }
-				}
-				Else
-				{
-					w "Geen interne klasse gevonden voor "_ResultInfo.ExternalName,!
-				}
-			}
-		}
-	}
-	
-	Kill ^oddPROJECT(..#svn2FilebridgeProjectname)
-	
-	set Project = ##class(%Studio.Project).%New()
-	set Project.Name = ..#svn2FilebridgeProjectname
-	
-	set itFiles = ##class(TECH.ListIterator).%New(arrFiles)
-	while itFiles.HasNext() {
-	 	set InternalName = itFiles.Next()
-        set Extension = $zconvert($piece(InternalName,".",$length(InternalName,".")),"l")
-        if ##class(TECH.SourceCodeUtils).Type(InternalName) = "class" { 
-        	set InternalName = $piece(InternalName,".",1,$length(InternalName,".")-1)
-        	
-        }
-        if Extension="inc" set Extension="mac"
-		set scAddItem = Project.AddItem(InternalName,Extension)
-	}
-
-	write Project.%Save()
-	
-	quit
-]]></Implementation>
-</Method>
-
 <Method name="RemovePackageFromArray">
 <FormalSpec>arrInternalNames:%ArrayOfDataTypes,Package:%String</FormalSpec>
 <Implementation><![CDATA[
@@ -1805,99 +484,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="AllreadyAdded">
-<FormalSpec>InternalName:%String</FormalSpec>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
-	
-	set AllreadyAdded = 0
-	
-	set svnCommand = ##class(svn.Command).%New($listbuild(..GetLocalWorkspacePathWithBranch()))
-	set svnCommand.SubCommand="status"
-	set svnCommand.File = ..ExternalName(InternalName)
-	
-	do svnCommand.Options.SetAt("","-u")
-	do svnCommand.Options.SetAt("","-v")
-	
-	do svnCommand.GlobalOptions.SetAt("Admin","--username")
-	do svnCommand.GlobalOptions.SetAt("fixed","--password")
-	
-	do svnCommand.Execute()
-
-	while ('svnCommand.Result.AtEnd) && ('AllreadyAdded) {
-		set Line = svnCommand.Result.ReadLine()
-		if ($zconvert(Line,"U")[$zconvert(svnCommand.File,"U")) {
-			if $extract(Line)'="?" { 
-				set AllreadyAdded=1 
-			}
-		}
-	}
-
-	quit AllreadyAdded
-]]></Implementation>
-</Method>
-
-<Method name="AutoSync">
-<Implementation><![CDATA[
-	do ..AutoImport()
-	do ..CompileImportedSourceCode()
-]]></Implementation>
-</Method>
-
-<Method name="AutoImport">
-<Implementation><![CDATA[
-	set itList = ##class(TECH.ListIterator).%New(..BuildSynchronizeList())
-	while itList.HasNext() {		
-		set Info = itList.Next()
-		do ..SVNImport(..ExternalName(Info.InternalName))
-	}
-]]></Implementation>
-</Method>
-
-<Method name="ShortSync">
-<Implementation><![CDATA[
-	set svnCommand = ##class(svn.Command).%New($listbuild(..GetLocalWorkspacePathWithBranch()))
-	set svnCommand.SubCommand="status"
-	set svnCommand.File = ..GetLocalWorkspacePathWithBranch()
-	
-	do svnCommand.Execute()
-
-	set listExternalNames = ##class(%ListOfDataTypes).%New()
-	
-	set itResults = ##class(TECH.ListIterator).%New(svnCommand.Results)
-	while itResults.HasNext() {
-		#dim svnInfo As svn.CommandResult = itResults.Next()
-		#dim ExternalName As %String = svnInfo.ExternalName
-		if $length(svnInfo.Action) && $length(ExternalName) {
-			if $length(svnInfo.Action)="D" {
-				do ..SVNDelete(..InternalName(ExternalName),##class(TECH.File).DirectoryExists(ExternalName))		
-			} elseif svnInfo.Action'="X" {
-				if ##class(TECH.File).DirectoryExists(ExternalName) {
-					set itFiles = ##class(TECH.ListIterator).%New(##class(TECH.Files).%New().GetFileList(ExternalName,"*.*"))
-					while itFiles.HasNext() {
-						set ExternalName = itFiles.Next().Name
-						do listExternalNames.Insert(ExternalName)
-					}
-				} else {
-					do listExternalNames.Insert(ExternalName)
-				}
-			}
-		}
-	}
-	
-	if listExternalNames.Size > 0 {
-		write !
-		set itExternalNames = ##class(TECH.ListIterator).%New(listExternalNames)
-		while itExternalNames.HasNext() {
-			set ExternalName = itExternalNames.Next()
-			write ExternalName,!
-			do ..SVNImport(ExternalName)
-		}
-	do ..CompileImportedSourceCode()
-	}
-]]></Implementation>
-</Method>
-
 <Method name="SubversionGetLatest">
 <Implementation><![CDATA[
 	Do ..VoerUitGetLatest()
@@ -1908,55 +494,24 @@
 <Method name="VoerUitGetLatest">
 <Private>1</Private>
 <Implementation><![CDATA[
-	do ..ToCompile.%Reload()
 	set ..IsGetLatestGefaald = 0
-	Set ..IsCodeVeranderd = 0
+	set ..IsCodeVeranderd = 0
 
-	if $get($$$SVNGlobal("SourceControl",$$$PRODUCT,"HasConflicts"))=1 {
-		w !,"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!",!
-		w " Momenteel zijn er conflicten of compile problemen gelieve deze eerst op te lossen....  ",!
-		w " Indien deze opgelost zijn gelieve "_ $ZR _ " te verwijderen ",!
-		w "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!",!
-	}		
-	else {	
-		if ..WorkingOffline() { 
-			w "Currently not online",!
-		}
-		else {			
-			set Message = "Getting Latest .. "_$zdatetime($ztimestamp,3)
-			set Streepkes="",$piece(Streepkes,"-",$length(Message))="-"
-			w !,Streepkes,!
-			w Message,!
-			w !,"Getting code",!
-			
-			set tCmd=##class(svn.Command).%New($lb(..LocalWorkspacePath(..Branch)))
-			set tCmd.SubCommand="update"
-			Set tCmd.Revision= ""
-			set tCmd.Reload = 1
-			set tCmd.File=..LocalWorkspacePath(..Branch)
-			//if ..PassCredentials do tCmd.GlobalOptions.SetAt(Username,"--username"),tCmd.GlobalOptions.SetAt(Password,"--password")
-			do tCmd.Execute()
-			Do ..PostProcessing(tCmd)		// postprocessing may reset IsDisconnected!, dus IsDisconnected niet updaten.
-			
-
-		    set UnitTestWorkspacePath =  ..UnitTestWorkspacePath() 
-		    if $length(UnitTestWorkspacePath) && ( (UnitTestWorkspacePath)'="\" ) {
-    			w !,"Getting unittest info",!
-				set tCmd=##class(svn.Command).%New($lb(UnitTestWorkspacePath))
-				set tCmd.SubCommand="update"
-				Set tCmd.Revision= ""
-				set tCmd.Reload = 1
-				set tCmd.File=..UnitTestWorkspacePath()
-				//if ..PassCredentials do tCmd.GlobalOptions.SetAt(Username,"--username"),tCmd.GlobalOptions.SetAt(Password,"--password")
-				do tCmd.Execute()
-				set ..ExecCompile=0   ; Compiling niet meer nodig 
-				Do ..PostProcessing(tCmd)	// postprocessing may reset IsDisconnected!
-		    }
-				
-			if ..Failed.Count() = 0 {
-				set Message = "Getting Latest done"
-			} else {
-				Do ..ShowFailed("GetLatest")
+	if ( '..Conflicten() )  && ( '..WerktOffline() ) {
+		set rsRepos = ##class(%ResultSet).%New("svn.Repository:Extent")
+		do rsRepos.Execute()
+		while rsRepos.Next() {
+			set Repo = ##class(svn.Repository).OpenId(rsRepos.Get("ID"))
+			do Repo.CheckOut()
+			do ##class(TECH.ListUtils).CopyListOfDataTypes(Repo.Failed,..Failed)
+			do ##class(TECH.ListUtils).CopyListOfDataTypes(Repo.ToCompile,..ToCompile.List)
+ 		}
+	}
+		
+	if ..Failed.Count() = 0 { 
+		set Message = "Getting Latest done"
+		} else {
+			Do ..ShowFailed("GetLatest")
 				set ..IsGetLatestGefaald = 1
 				set Message ="Getting Latest **FAILED**"
 			}
@@ -1965,106 +520,71 @@
 			w !,Message,!
 			w Streepkes,!			
 				
-			if '..IsGetLatestGefaald {
-				if ..ToCompile.List.Count() {
-					w !!,"Hercompilatie voorgaande fouten",!
-					do ..CompileImportedSourceCode(1)
-					Do ..ShowFailed("Hercompilatie bij GetLatest")
-					set ..IsGetLatestGefaald = (..Failed.Count()>0)
-					do ..Failed.Clear()
-				}
+	if '..IsGetLatestGefaald {
+		if ..ToCompile.List.Count() {
+			w !!,"Hercompilatie voorgaande fouten",!
+			do ..CompileImportedSourceCode(1)
+			Do ..ShowFailed("Hercompilatie bij GetLatest")
+			set ..IsGetLatestGefaald = (..Failed.Count()>0)
+			do ..Failed.Clear()
 			}
+	}
 	
-			if '..IsGetLatestGefaald {
-				w !,"Starting deploy classes",!
-				do ##class(svn.Deploy).Run()
-				w "Deploy classes finished",!
-			}
-		}
+	if '..IsGetLatestGefaald {
+		w !,"Starting deploy classes",!
+		do ##class(svn.Deploy).Run()
+		w "Deploy classes finished",!
 	}
 ]]></Implementation>
 </Method>
 
-<Method name="PostProcessing">
-<Description>
-performs results display and post processing (if desired)</Description>
-<FormalSpec>pCmd:svn.Command</FormalSpec>
+<Method name="Conflicten">
+<Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	set tCmdDelim=$s($$$ISWINDOWS:"&",$$$ISUNIX:"&&",1:"?")
-	set tSC=$$$OK
+	set HeeftConflicten = ##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....  ")
+		do ..Failed.Insert("!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!")
+	}
+	quit HeeftConflicten
+]]></Implementation>
+</Method>
+
+<Method name="WerktOffline">
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	set WerktOffline = ##class(svn.Setting).WorkingOffline()
 	
-	// display output
-	set tResult=pCmd.Result
-	do tResult.Rewind()
-	while tResult.AtEnd=0 {
-		Set line = tResult.ReadLine()
-		w line,!
-		if ($Extract($ZCVT(line,"U"),1,$length("Restored"))=$ZCVT("Restored","U"))
-		{   Set File = $PIECE(line,"'",2)
-			w "Restore file : "_File,!
-			Do ..SVNImport(File)
-			w " *** Studio HINT: please make sure you add this file into your copy of project!",!
-		}
+	if WerktOffline {
+		do ..Failed.Insert("!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!")
+		do ..Failed.Insert("Momenteel ben je offline aan het werken ")
+		do ..Failed.Insert("!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!")
 	}
-		
-	if pCmd.Results.Count()>0 {
-		If ..Debug w "SubCommand: "_pCmd.SubCommand_" & Reload = "_+pCmd.Reload,!
-		if pCmd.SubCommand="checkout" {
-			// checkout returns full external name - with path
-			set i="" set tCmdResult=pCmd.Results.GetNext(.i)
-			If ..Debug w "tCmdResult:"_tCmdResult_" -> "_tCmdResult.Action_"---> "_pCmd.Results.GetNext(.i),!
-			while tCmdResult'=$$$NULLOREF {
-				if tCmdResult.Action="A" { 
-					Do ..SVNImport(tCmdResult.ExternalName)
-					w " *** Studio HINT: please make sure you add this file into your copy of project!",!
-				} elseif tCmdResult.Action="D" {
-					set tIName=..InternalName(tCmdResult.ExternalName)
-					if ..HasToBeSynchronized(tIName) do ..DeleteCode(tIName)
-				} else {
-					// other actions here?				
-				}
-				set tCmdResult=pCmd.Results.GetNext(.i)	
-			}
-			// +DK 1.21
-		} elseif (pCmd.SubCommand="update")&(pCmd.Reload) {
-			// update returns only external name without path
-			If ..Debug	w "Updating.. "_pCmd.SubCommand,!
-			set i="" set tCmdResult=pCmd.Results.GetNext(.i)
-			while tCmdResult'=$$$NULLOREF {
-				// +DK 1.21, DK 2.11 (G option)
-				
-				if (tCmdResult.Action="A")||(tCmdResult.Action="U")||(tCmdResult.Action="G") { 
-					set tFile=tCmdResult.ExternalName
-					if $length(tFile) Do ..SVNImport(tFile)
-				} elseif (tCmdResult.Action="D") {
-					set tIName=..InternalName(tCmdResult.ExternalName)
-					if ..HasToBeSynchronized(tIName) do ..DeleteCode(tIName)
-				} elseif (tCmdResult.Action="S")||(tCmdResult.Action="C") {
-					set $$$SVNGlobal("SourceControl",$$$PRODUCT,"HasConflicts")=1
-					set tIName=..InternalName(tCmdResult.ExternalName)
-					do ..Failed.Insert(tIName_" (Conflict)")
-				}
-				set tCmdResult=pCmd.Results.GetNext(.i)	
-			}
-		} else {
-		  
-			// other commands?	
-		} 
-		// -DK 1.21
-	}
 	
-	// Compile wat nodig is (sourcecode die via importcode is ingeladen
+	quit WerktOffline
+]]></Implementation>
+</Method>
+
+<Method name="GeefRepository">
+<FormalSpec>InternalName:%String</FormalSpec>
+<ReturnType>svn.Repository</ReturnType>
+<Implementation><![CDATA[
+	set RepoToUse = ""
 	
-	if (..ExecCompile && ( ..Failed.Count() = 0 )) {
-		Do ..CompileImportedSourceCode()
+	set rsRepo = ##class(%ResultSet).%New("svn.Repository:Extent")
+	do rsRepo.Execute()
+	while ( rsRepo.Next() ) && ( '$IsObject(RepoToUse) ) {
+		set Repo = ##class(svn.Repository).OpenId(rsRepo.Get("ID"))
+		if Repo.HasToBeSynchronized(InternalName) set RepoToUse = Repo
 	}
 	
-	#dim IsDisconnected As %Boolean =pCmd.IsDisconnected
-	// clean-up
-	if 'pCmd.Log set tSC=pCmd.%DeleteId(pCmd.%Id())
+	if RepoToUse = "" W !!,"!!! Geen repository gevonden voor "_InternalName_" !!!!",!!
 	
-	quit IsDisconnected
+	
+	quit RepoToUse
 ]]></Implementation>
 </Method>
 </Class>
Index: svn/Repository/FileRepository.cls.xml
===================================================================
diff -u
--- svn/Repository/FileRepository.cls.xml	(revision 0)
+++ svn/Repository/FileRepository.cls.xml	(revision 1570)
@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="svn.Repository.FileRepository">
+<Super>svn.Repository</Super>
+
+<Method name="HasToBeSynchronized">
+<FormalSpec>InternalName:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit 0
+]]></Implementation>
+</Method>
+
+<Method name="DeleteCode">
+<FormalSpec>InternalName:%String</FormalSpec>
+<Implementation><![CDATA[	quit
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/svn/Repository/CSPRepository.cls.xml
===================================================================
diff -u
--- vhUnitTest/svn/Repository/CSPRepository.cls.xml	(revision 0)
+++ vhUnitTest/svn/Repository/CSPRepository.cls.xml	(revision 1570)
@@ -0,0 +1,58 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.svn.Repository.CSPRepository">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="TestInternalName">
+<Implementation><![CDATA[
+	set svnRepo = ##class(svn.Repository.CSPRepository).%New()
+	set svnRepo.Path = "c:\cache\csp\dev1\"
+	set svnRepo.Application = "/csp/dev1"
+	
+	do $$$AssertEquals(svnRepo.InternalName("c:\cache\csp\dev1\test.csp"),"/csp/dev1/test.csp")
+	do $$$AssertEquals(svnRepo.InternalName("c:\cache\csp\dev1\svn\test.csp"),"/csp/dev1/svn/test.csp")
+	do $$$AssertEquals(svnRepo.InternalName("c:\cache\csp\dev1\svn\test.html"),"/csp/dev1/svn/test.html")
+	do $$$AssertEquals(svnRepo.InternalName("c:\cache\csp\dev1\svn\test.csr"),"/csp/dev1/svn/test.csr")
+	do $$$AssertEquals(svnRepo.InternalName("c:\cache\csp\dev2\svn\test.csr"),"","foute filename")
+	
+	set svnRepo.Path = "c:\cache\csp\vhisie\tbx\"
+	set svnRepo.Application = "/vhisie"
+	
+	do $$$AssertEquals(svnRepo.InternalName("c:\cache\csp\vhisie\tbx\test.csp"),"/vhisie/tbx/test.csp")
+	do $$$AssertEquals(svnRepo.InternalName("c:\cache\csp\vhisie\tbx\svn\test.csp"),"/vhisie/tbx/svn/test.csp")
+	do $$$AssertEquals(svnRepo.InternalName("c:\cache\csp\vhisie\tbx\svn\test.html"),"/vhisie/tbx/svn/test.html")
+	do $$$AssertEquals(svnRepo.InternalName("c:\cache\csp\vhisie\tbx\svn\test.csr"),"/vhisie/tbx/svn/test.csr")
+	do $$$AssertEquals(svnRepo.InternalName("c:\cache\csp\vhisie1\tbx\svn\test.csr"),"","foute filename")
+]]></Implementation>
+</Method>
+
+<Method name="TestExternalName">
+<Implementation><![CDATA[
+	set svnRepo = ##class(svn.Repository.CSPRepository).%New()
+	set svnRepo.Path = "c:\cache\csp\vhisie\tbx\"
+	set svnRepo.Application = "/vhisie"
+	
+	do $$$AssertEquals(svnRepo.ExternalName("/vhisie/tbx/test.csp"),"c:\cache\csp\vhisie\tbx\test.csp")
+	do $$$AssertEquals(svnRepo.ExternalName("/vhisie/tbx/svn/test.csp"),"c:\cache\csp\vhisie\tbx\svn\test.csp")
+	do $$$AssertEquals(svnRepo.ExternalName("/vhisie/tbx/svn/test.html"),"c:\cache\csp\vhisie\tbx\svn\test.html")
+	do $$$AssertEquals(svnRepo.ExternalName("/vhisie/tbx/svn/test.csr"),"c:\cache\csp\vhisie\tbx\svn\test.csr")
+]]></Implementation>
+</Method>
+
+<Method name="TestHasToBeSynchronized">
+<Implementation><![CDATA[
+	set svnRepo = ##class(svn.Repository.CSPRepository).%New()
+	set svnRepo.Path = "c:\cache\csp\vhisie\tbx\"
+	set svnRepo.Application = "/vhisie"
+	
+	do $$$AssertTrue(svnRepo.HasToBeSynchronized("/vhisie/tbx/test.csp"))
+	do $$$AssertTrue(svnRepo.HasToBeSynchronized("/vhisie/tbx/test.csr"))
+	do $$$AssertFalse(svnRepo.HasToBeSynchronized("/vhisie/tbx/test.html"))
+	do $$$AssertFalse(svnRepo.HasToBeSynchronized("/csp/dev1/test.csp"))
+	do $$$AssertFalse(svnRepo.HasToBeSynchronized("vhisie/test.csp"))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: svn/SourceCodeInfo.cls.xml
===================================================================
diff -u -r1517 -r1570
--- svn/SourceCodeInfo.cls.xml	(.../SourceCodeInfo.cls.xml)	(revision 1517)
+++ svn/SourceCodeInfo.cls.xml	(.../SourceCodeInfo.cls.xml)	(revision 1570)
@@ -96,11 +96,12 @@
 <Implementation><![CDATA[
 	 set $piece(InternalName,".",$length(InternalName,"."))=$zconvert($piece(InternalName,".",$length(InternalName,".")),"L")
 	 
+	 
 	 set Helper = ##class(svn.Helper).%New()
 	 set File = ..Open(InternalName)
 	 set File.DateModified = ##class(%File).GetFileDateModified(ExternalName)
-	 set File.InternalHash = Helper.Hash(InternalName)
-	 set File.ExternalHash = Helper.Hash(,ExternalName)
+	 set File.InternalHash = Helper.GeefRepository(InternalName).Hash(InternalName)
+	 set File.ExternalHash = Helper.GeefRepository(InternalName).Hash(,ExternalName)
 	 set Updated = File.%Save()
 	 
 	 quit Updated
Index: vhUnitTest/Report.cls.xml
===================================================================
diff -u
--- vhUnitTest/Report.cls.xml	(revision 0)
+++ vhUnitTest/Report.cls.xml	(revision 1570)
@@ -0,0 +1,12 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.Report">
+<Abstract>1</Abstract>
+<ClassType/>
+<ProcedureBlock>0</ProcedureBlock>
+<Super>Tools.UnitTest.Report</Super>
+<System>3</System>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TestCase.cls.xml
===================================================================
diff -u
--- vhUnitTest/TestCase.cls.xml	(revision 0)
+++ vhUnitTest/TestCase.cls.xml	(revision 1570)
@@ -0,0 +1,10 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TestCase">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>Tools.UnitTest.TestCase</Super>
+</Class>
+
+
+</Export>
Index: svn/Repository.cls.xml
===================================================================
diff -u
--- svn/Repository.cls.xml	(revision 0)
+++ svn/Repository.cls.xml	(revision 1570)
@@ -0,0 +1,352 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="svn.Repository">
+<ClassType>persistent</ClassType>
+<IncludeCode>svn</IncludeCode>
+<Super>TECH.Persistent</Super>
+
+<Property name="Path">
+<Type>%String</Type>
+</Property>
+
+<Property name="Branch">
+<Type>%String</Type>
+</Property>
+
+<Property name="IsCodeVeranderd">
+<Type>%Boolean</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Failed">
+<Type>%String</Type>
+<Collection>list</Collection>
+</Property>
+
+<Property name="ToCompile">
+<Type>%String</Type>
+<Collection>list</Collection>
+</Property>
+
+<Method name="CheckOut">
+<FormalSpec>Revision:%String=""</FormalSpec>
+<Implementation><![CDATA[
+	set tCmd=##class(svn.Command).%New($lb(..WorkspacePath(..Branch)))
+	set tCmd.SubCommand="update"
+	Set tCmd.Revision= Revision
+	set tCmd.Reload = 1
+	set tCmd.File=..WorkspacePath(..Branch)
+	do tCmd.Execute()
+	Do ..VerwerkResultaat(tCmd)
+]]></Implementation>
+</Method>
+
+<Method name="Status">
+<FormalSpec>InternalName:%String</FormalSpec>
+<Implementation><![CDATA[
+	set tCmd=##class(svn.Command).%New($lb(..WorkspacePath(..Branch)))
+	set tCmd.SubCommand="status"
+	set tCmd.File=..ExternalName(InternalName,$$$FULLPATH)
+	do tCmd.Execute()
+	Do ..VerwerkResultaat(tCmd)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkResultaat">
+<FormalSpec>svnCommand:svn.Command</FormalSpec>
+<Implementation><![CDATA[
+	set tCmdDelim="&"
+	set tSC=$$$OK
+	
+	set tResult=svnCommand.Result
+	do tResult.Rewind()
+	while tResult.AtEnd=0 {
+		Set line = tResult.ReadLine()
+		w line,!
+		if ($Extract($ZCVT(line,"U"),1,$length("Restored"))=$ZCVT("Restored","U"))
+		{   Set File = $PIECE(line,"'",2)
+			w "Restore file : "_File,!
+			Do ..SVNImport(File)
+			w " *** Studio HINT: please make sure you add this file into your copy of project!",!
+		}
+	}
+		
+	if svnCommand.Results.Count()>0 {
+		if ##class(svn.Setting).Debug() w "SubCommand: "_svnCommand.SubCommand_" & Reload = "_+svnCommand.Reload,!
+		if svnCommand.SubCommand="checkout" {
+			// checkout returns full external name - with path
+			set i="" set tCmdResult=svnCommand.Results.GetNext(.i)
+			If ##class(svn.Setting).Debug() w "tCmdResult:"_tCmdResult_" -> "_tCmdResult.Action_"---> "_svnCommand.Results.GetNext(.i),!
+			while tCmdResult'=$$$NULLOREF {
+				if tCmdResult.Action="A" { 
+					Do ..SVNImport(tCmdResult.ExternalName)
+					w " *** Studio HINT: please make sure you add this file into your copy of project!",!
+				} elseif tCmdResult.Action="D" {
+					set tIName=..InternalName(tCmdResult.ExternalName)
+					if ..HasToBeSynchronized(tIName) do ..DeleteCode(tIName)
+				} else {
+				}
+				set tCmdResult=svnCommand.Results.GetNext(.i)	
+			}
+		} elseif (svnCommand.SubCommand="update")&(svnCommand.Reload) {
+			// update returns only external name without path
+			If ##class(svn.Setting).Debug()	w "Updating.. "_svnCommand.SubCommand,!
+			set i="" set tCmdResult=svnCommand.Results.GetNext(.i)
+			while tCmdResult'=$$$NULLOREF {
+				if (tCmdResult.Action="A")||(tCmdResult.Action="U")||(tCmdResult.Action="G") { 
+					set tFile=tCmdResult.ExternalName
+					if $length(tFile) Do ..SVNImport(tFile)
+				} elseif (tCmdResult.Action="D") {
+					set tIName=..InternalName(tCmdResult.ExternalName)
+					if ..HasToBeSynchronized(tIName) do ..DeleteCode(tIName)
+				} elseif (tCmdResult.Action="S")||(tCmdResult.Action="C") {
+					set $$$SVNGlobal("SourceControl","SVN","HasConflicts")=1
+					set tIName=..InternalName(tCmdResult.ExternalName)
+					do ..Failed.Insert(tIName_" (Conflict)")
+				}
+				set tCmdResult=svnCommand.Results.GetNext(.i)	
+			}
+		} else {
+		  
+		} 
+	}
+]]></Implementation>
+</Method>
+
+<Method name="WorkspacePath">
+<FormalSpec>pBranch:%String=""</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	set tPath= ##class(svn.Helper).NormalizePath(..Path)
+	if pBranch'="" set tPath=tPath_$translate(pBranch,$$$URLDelimiter,$$$FolderDelimiter)_$$$FolderDelimiter
+	quit tPath
+]]></Implementation>
+</Method>
+
+<Method name="HasToBeSynchronized">
+<FormalSpec>InternalName:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	set Result = $extract(InternalName,1)'="%"
+	
+	if ( Result ) && ( '##class(svn.Setting).MagUnitTestUitvoeren() ) {
+		set Result = '##class(TECH.StringUtils).StartsWith(InternalName,"vhUnitTest")
+	}
+	if ( Result ) && ( '##class(svn.Setting).MagTryoutcodeUitvoeren() ) {
+		set Result = '##class(TECH.StringUtils).StartsWith(InternalName,"zTryout")
+	}
+	
+	if ( Result ) set Result = '##class(TECH.SourceCodeUtils).IsSystemCode(InternalName)
+	
+	if ( Result ) set Result = '##class(TECH.SourceCodeUtils).IsGeneratedRoutine(InternalName)	
+	
+	if ( Result ) set Result = '##class(TECH.SourceCodeUtils).IsGeneratedSQLCode(InternalName) 
+	
+	if ( Result ) set Result = '##class(TECH.SourceCodeUtils).IsGeneratedCode(InternalName)
+	
+	if ( Result ) set Result = ..GeefExtentie(InternalName)'="int"
+	
+	if ( Result ) && ( ..IsSourceControlCode(InternalName) )  {	set Result = ##class(svn.Setting).ChangeSourceControl() }
+	
+	quit Result
+]]></Implementation>
+</Method>
+
+<Method name="IsSourceControlCode">
+<FormalSpec>InternalName</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	 set result = 0
+	 
+	 if ##class(TECH.StringUtils).MatchesPattern(InternalName,"svn*") { set result = 1 }
+	 elseif ##class(TECH.StringUtils).MatchesPattern(InternalName,"/csp/svn*") { set result = 1 }
+	 elseif ##class(TECH.StringUtils).MatchesPattern(InternalName,"csp.svn*") { set result = 1 }
+	 elseif ##class(TECH.StringUtils).MatchesPattern(InternalName,"vhUnitTest.svn*") { set result = 1 }
+	 elseif InternalName["svnSynchro" { set result = 1 }
+	 
+	 quit result
+]]></Implementation>
+</Method>
+
+<Method name="InternalName">
+<Abstract>1</Abstract>
+<FormalSpec>ExternalName:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+</Method>
+
+<Method name="ExternalName">
+<Abstract>1</Abstract>
+<FormalSpec>InternalName:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+</Method>
+
+<Method name="DeleteCode">
+<FormalSpec>InternalName</FormalSpec>
+</Method>
+
+<Method name="DeletePackage">
+<FormalSpec>InternalName</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	if $extract(InternalName,$length(InternalName))'="." set InternalName=InternalName_"."
+	set rs = ##class(%ResultSet).%New("%Dictionary.ClassDefinition:Extent")
+	do rs.Execute()
+	while rs.Next() {
+		set Name = rs.GetData(1)
+		if $extract(Name,1,$length(InternalName))=InternalName {
+			do $system.OBJ.Delete(Name)
+			do ##class(%ExtentMgr.Util).DeleteExtent(##class(TECH.SourceCodeUtils).StripExtension(Name))   
+		}
+	}
+	quit
+]]></Implementation>
+</Method>
+
+<Method name="SVNImport">
+<FormalSpec>Filename:%String</FormalSpec>
+<Implementation><![CDATA[
+	// Geen directories verwerken
+	If ('##class(%File).DirectoryExists(Filename))
+	{
+		set InternalName = ..InternalName(Filename)
+	
+		if ..HasToBeSynchronized(InternalName) {
+			set ..IsCodeVeranderd = 1
+			set CurrentIO = $IO
+			set ImportFailed = 0
+			set ImportUitvoeren = 0
+			set CodeVerwerken = 1		
+			if CodeVerwerken {
+				set BestandBestaat = ##class(%File).Exists(Filename)
+				if ('BestandBestaat)  {
+					if '(##class(TECH.SourceCodeUtils).Type(InternalName)="project") {
+					 	do ..DeleteCode(InternalName)
+					}
+				}
+				set ImportUitvoeren = BestandBestaat
+			 }
+			if ImportUitvoeren {
+					w "Importing "_InternalName,!
+					do ..Import(Filename) 
+					do ##class(svn.SourceCodeInfo).Update(InternalName,Filename)
+			}
+			if ( 'ImportFailed ) && ( ImportUitvoeren ) {
+				do ..ToCompile.Insert(InternalName)	
+			}
+		}
+		else {
+			w "Skipping : "_Filename,!
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Import">
+<FormalSpec>ExternalName:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+</Method>
+
+<Method name="GetSVNAddFilename">
+<FormalSpec>iPath:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	set tPath = iPath
+	set tParentPath = ##class(%File).GetDirectory(tPath)
+	set tParentPath = $extract(tParentPath,1,$length(tParentPath)-1)
+	set Teller = 0
+	
+	while(('##class(%File).Exists(tParentPath)) && (Teller < 99)){
+		set tPath = tParentPath
+		#if ($system.Version.GetMajor()=5)
+		  set tParentPath = ##class(TECH.File).ParentDirectoryName(tParentPath)		
+		#else
+		  set tParentPath = ##class(%File).ParentDirectoryName(tParentPath)
+		#endif
+		
+		set tParentPath = $extract(tParentPath,1,$length(tParentPath)-1)
+		set Teller = Teller + 1
+	}
+	
+	if Teller = 0 set tPath = iPath 
+
+	
+	quit tPath
+]]></Implementation>
+</Method>
+
+<Method name="AllreadyAdded">
+<FormalSpec>InternalName:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	
+	set AllreadyAdded = 0
+	
+	set svnCommand = ##class(svn.Command).%New($listbuild(..WorkspacePath(..Branch)))
+	set svnCommand.SubCommand="status"
+	set svnCommand.File = ..ExternalName(InternalName)
+	
+	do svnCommand.Options.SetAt("","-u")
+	do svnCommand.Options.SetAt("","-v")
+	
+	do svnCommand.GlobalOptions.SetAt("Admin","--username")
+	do svnCommand.GlobalOptions.SetAt("fixed","--password")
+	
+	do svnCommand.Execute()
+
+	while ('svnCommand.Result.AtEnd) && ('AllreadyAdded) {
+		set Line = svnCommand.Result.ReadLine()
+		if ($zconvert(Line,"U")[$zconvert(svnCommand.File,"U")) {
+			if $extract(Line)'="?" { 
+				set AllreadyAdded=1 
+			}
+		}
+	}
+
+	quit AllreadyAdded
+]]></Implementation>
+</Method>
+
+<Method name="GeefExtentie">
+<FormalSpec>InternalName:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit $piece(InternalName,".",$length(InternalName,"."))
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^svn.RepositoryD</DataLocation>
+<DefaultData>RepositoryDefaultData</DefaultData>
+<IdLocation>^svn.RepositoryD</IdLocation>
+<IndexLocation>^svn.RepositoryI</IndexLocation>
+<StreamLocation>^svn.RepositoryS</StreamLocation>
+<Data name="RepositoryDefaultData">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>Path</Value>
+</Value>
+<Value name="3">
+<Value>Branch</Value>
+</Value>
+<Value name="4">
+<Value>ChangeSourceControl</Value>
+</Value>
+<Value name="5">
+<Value>IsCodeVeranderd</Value>
+</Value>
+<Value name="6">
+<Value>Failed</Value>
+</Value>
+<Value name="7">
+<Value>ToCompile</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>