Index: Tools/MNCodeCreator.cls.xml
===================================================================
diff -u
--- Tools/MNCodeCreator.cls.xml	(revision 0)
+++ Tools/MNCodeCreator.cls.xml	(revision 716)
@@ -0,0 +1,222 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="Tools.MNCodeCreator">
+<Super>%RegisteredObject</Super>
+
+<Property name="Class">
+<Type>%Dictionary.ClassDefinition</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="DeployClass">
+<Type>%Dictionary.ClassDefinition</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="DeployMethod">
+<Type>%Dictionary.MethodDefinition</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="MethodNames">
+<Type>%String</Type>
+<Collection>array</Collection>
+<Private>1</Private>
+</Property>
+
+<Property name="svnHelper">
+<Type>svn.Helper</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Code">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ClassName">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..svnHelper = ##class(svn.Helper).%New()
+	quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Convert">
+<FormalSpec>Code:%String</FormalSpec>
+<Implementation><![CDATA[
+	set ..Code = Code
+	set ..ClassName = "CHUI.MN."_Code
+	
+	if ..CreationNeeded(Code) {
+		do ..MethodNames.Clear()
+		set ..Class = ..OpenOrCreate(..ClassName)
+		
+		set ..DeployClass = ..OpenOrCreate("vhDeploy."_..ClassName)
+		set ..DeployClass.Super = "svn.Deploy"
+		set ..DeployClass.ProcedureBlock = 1
+	
+		do ..Class.Methods.Clear()
+		do ..DeployClass.Methods.Clear()
+		do ..CreateDeployMethod()
+	
+		#dim Index As %String = ""
+		for { set Index = $order(^MN("D",Code,"F",Index)) quit:Index=""
+			do ..Verwerk(^(Index) , Index)
+		}
+	
+		do ..DeployClass.%Save()
+
+		do ..ExportToSVN(..Class.Name)
+		do ..ExportToSVN(..DeployClass.Name)
+		do ..svnHelper.CompileImportedSourceCode()
+	
+		do $classMethod(..DeployClass.Name,"ExecCode")
+	} else {
+		write "voor code "_Code_" bestaat er al een klasse "_..ClassName ,!!
+	}
+]]></Implementation>
+</Method>
+
+<Method name="CreationNeeded">
+<FormalSpec>Code:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim CreationNeeded As %Boolean = '##class(%Dictionary.ClassDefinition).%ExistsId(Code)
+
+	if CreationNeeded {
+		#dim Index As %String = ""
+		#dim Found As %Boolean = 0
+		for { set Index = $order(^MN("D",Code,"F",Index)) quit:Index=""  quit:Found
+			set Found = $piece(^(Index),"`",3)="D"
+		}
+		set CreationNeeded = Found
+	}
+	
+	quit CreationNeeded
+]]></Implementation>
+</Method>
+
+<Method name="Verwerk">
+<FormalSpec>Record:%String,Index:%Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	quit:$P(Record,"`",3)'="D"
+	
+	#dim MethodName As %String = ..GetMethodName(Record)
+	
+	do ..CreateMethod(MethodName , $c(9)_"do "_##class(TECH.StringUtils).Replace($piece(Record,"`",4),"""""",""""))	
+	do ..DeployMethod.Implementation.WriteLine($c(9)_"set $piece(^MN(""D"","""_..Code_""",""F"","_Index_"),""`"",4)=""##class("_..ClassName_")."_MethodName_"()""")
+	
+	do ..CreateMethod(MethodName_"Zichtbaar" , ..GetDisplayImplementation(Record),"%Boolean")
+	do ..DeployMethod.Implementation.WriteLine($c(9)_"set $piece(^MN(""D"","""_..Code_""",""F"","_Index_"),""`"",5)=""##class("_..ClassName_")."_MethodName_"Zichtbaar()""")
+]]></Implementation>
+</Method>
+
+<Method name="GetMethodName">
+<FormalSpec>Record:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim MethodName As %String = ##class(TECH.StringUtils).UpperCamelCase($P(Record,"`",1))
+	#dim Suffix As %String = ""
+	
+	if ..MethodNames.IsDefined(MethodName_Suffix) {
+		set Suffix = $increment(Suffix)
+	}
+	
+	set MethodName = MethodName _ Suffix
+	do ..MethodNames.SetAt(MethodName,MethodName)
+	
+	quit MethodName
+]]></Implementation>
+</Method>
+
+<Method name="GetDisplayImplementation">
+<FormalSpec>Record:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Lines As %String = $char(9)_"#dim result As %Boolean = 0"_$char(13,10)
+	
+	set Lines = Lines_$char(9)_"if "_##class(TECH.StringUtils).Replace($piece(Record,"`",5),"""""","""")_" set result = 1"_$char(13,10)
+	set Lines = Lines_$char(9)_"quit result"
+
+	quit Lines
+]]></Implementation>
+</Method>
+
+<Method name="CreateDeployMethod">
+<Implementation><![CDATA[
+	set DeployMethod = ##class(%Dictionary.MethodDefinition).%New()
+	set DeployMethod.Name = "ExecCode"
+	set DeployMethod.ClassMethod = 1
+	set DeployMethod.ReturnType = ""
+	set DeployMethod.parent = ..DeployClass
+	do DeployMethod.Implementation.WriteLine("")
+	do DeployMethod.%Save()
+	set ..DeployMethod = DeployMethod
+]]></Implementation>
+</Method>
+
+<Method name="CreateMethod">
+<FormalSpec>MethodName:%String,Implementation:%String,ReturnType:%String=""</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	set Method = ##class(%Dictionary.MethodDefinition).%New()
+	set Method.Name = MethodName
+	set Method.ClassMethod = 1
+	set Method.ReturnType = ReturnType
+	set Method.parent = ..Class
+	do Method.Implementation.WriteLine(Implementation)
+	do Method.%Save()
+	quit
+]]></Implementation>
+</Method>
+
+<Method name="OpenOrCreate">
+<FormalSpec>ClassName:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	if '##class(%Dictionary.ClassDefinition).%ExistsId() {
+		do ..CreateClass(ClassName)	
+	}
+	quit ##class(%Dictionary.ClassDefinition).%OpenId(ClassName)
+]]></Implementation>
+</Method>
+
+<Method name="CreateClass">
+<FormalSpec>ClassName:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Dictionary.ClassDefinition</ReturnType>
+<Implementation><![CDATA[
+	set MockClass = ##class(%Dictionary.ClassDefinition).%New()
+	set MockClass.Name = ClassName
+	set MockClass.Super = "%RegisteredObject"
+	set MockClass.ProcedureBlock = 0
+	do MockClass.%Save()
+	
+	quit MockClass
+]]></Implementation>
+</Method>
+
+<Method name="ExportToSVN">
+<FormalSpec>SourceCode:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim InternalName As %String = SourceCode
+	if $piece(SourceCode,".",$length(SourceCode,"."))'="mac" Set InternalName = SourceCode_".cls"
+	Do ..svnHelper.SVNExport(InternalName)
+	Do ..svnHelper.ToCompile.List.Insert(InternalName)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: Tools/CacheJavaExport.cls.xml
===================================================================
diff -u -r230 -r716
--- Tools/CacheJavaExport.cls.xml	(.../CacheJavaExport.cls.xml)	(revision 230)
+++ Tools/CacheJavaExport.cls.xml	(.../CacheJavaExport.cls.xml)	(revision 716)
@@ -7,8 +7,8 @@
 <Description>
 Do ##class(Tools.CacheJavaExport).Exporteer("APPS.PM.Specials.SpecialsEditorService")</Description>
 <ClassMethod>1</ClassMethod>
-<FormalSpec>KlasseNaam:%String</FormalSpec>
-<Implementation><![CDATA[	Do ##class(Tools.impl.JavaExport.Exporter).%New().Exporteer(KlasseNaam)
+<FormalSpec>KlasseNaam:%String,BasisPad:%String=""</FormalSpec>
+<Implementation><![CDATA[	Do ##class(Tools.impl.JavaExport.Exporter).%New().Exporteer(KlasseNaam , BasisPad)
 ]]></Implementation>
 </Method>
 </Class>
Index: Tools/UMLExporter.cls.xml
===================================================================
diff -u
--- Tools/UMLExporter.cls.xml	(revision 0)
+++ Tools/UMLExporter.cls.xml	(revision 716)
@@ -0,0 +1,41 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="Tools.UMLExporter">
+<Super>%RegisteredObject</Super>
+
+<Method name="ExportSources">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Sources:%ListOfDataTypes,FileName:%String</FormalSpec>
+<Implementation><![CDATA[	do $system.OBJ.Export(##class(TECH.ListUtils).ListToPieces(Sources,","),FileName)
+]]></Implementation>
+</Method>
+
+<Method name="ExportInterfaces">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	set rsInterfaces = ##class(%ResultSet).%New("%Dictionary.ClassDefinitionQuery:SubclassOf")
+	do rsInterfaces.Execute("TECH.Interface")
+	while rsInterfaces.Next() {
+		#dim Interface As %String = rsInterfaces.GetData(1)
+		continue:'..IsInterface(Interface)
+
+		Set KlasseExporter = ##class(Tools.impl.JavaExport.ServiceExporter).%New(##class(%Dictionary.CompiledClass).%OpenId(Interface),"e:\uml\")
+		Do KlasseExporter.Exporteer()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="IsInterface">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Interface:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	set Class = ##class(%ClassDefinition).%OpenId(Interface)
+	quit ( Class.Abstract )  && ( Class.Super [ "TECH.Interface" )
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: Tools/impl/JavaExport/Exporter.cls.xml
===================================================================
diff -u -r581 -r716
--- Tools/impl/JavaExport/Exporter.cls.xml	(.../Exporter.cls.xml)	(revision 581)
+++ Tools/impl/JavaExport/Exporter.cls.xml	(.../Exporter.cls.xml)	(revision 716)
@@ -26,9 +26,9 @@
 </Property>
 
 <Method name="Exporteer">
-<FormalSpec>KlasseNaam:%String</FormalSpec>
+<FormalSpec>KlasseNaam:%String,BasisPad:%String=""</FormalSpec>
 <Implementation><![CDATA[
-	#dim BasisPad As %String = ..GeefBasisPad()
+	if '$length(BasisPad) set BasisPad = ..GeefBasisPad()
 	#dim ServiceNaam As %String = $Piece(KlasseNaam,".",$Length(KlasseNaam,"."))
 	
 	w !,"Exporteren van service "_ServiceNaam,!