Index: Tools/MNCodeCreator.cls.xml
===================================================================
diff -u -r1407 -r1569
--- Tools/MNCodeCreator.cls.xml	(.../MNCodeCreator.cls.xml)	(revision 1407)
+++ Tools/MNCodeCreator.cls.xml	(.../MNCodeCreator.cls.xml)	(revision 1569)
@@ -79,7 +79,7 @@
 		do ..ExportToSVN(..DeployClass.Name)
 		do ..svnHelper.CompileImportedSourceCode()
 	
-		;do $classMethod(..DeployClass.Name,"ExecCode")
+		do $classMethod(..DeployClass.Name,"ExecCode")
 	} else {
 		write "voor code "_Code_" bestaat er al een klasse "_..ClassName ,!!
 	}
@@ -110,7 +110,7 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim RecordType As %String = $P(Record,"`",3)
-	quit:($$$Not(##class(TECH.StringUtils).Contains(RecordType,"D","K")))
+	quit:($$$Not(##class(TECH.StringUtils).Contains(RecordType,"D","K","X","F")))
  
  	#dim MethodName As %String = ..GetMethodName(Record)
 	
@@ -121,6 +121,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkK">
+<FormalSpec>MethodName:%String,Record:%String,Index:%Integer</FormalSpec>
+<Private>1</Private>
+</Method>
+
+<Method name="VerwerkF">
+<FormalSpec>MethodName:%String,Record:%String,Index:%Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	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_"()""")
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkD">
 <FormalSpec>MethodName:%String,Record:%String,Index:%Integer</FormalSpec>
 <Private>1</Private>
@@ -130,11 +144,12 @@
 ]]></Implementation>
 </Method>
 
-<Method name="VerwerkK">
+<Method name="VerwerkX">
 <FormalSpec>MethodName:%String,Record:%String,Index:%Integer</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	do ..CreateMethod(MethodName , $c(9)_"quit "_##class(TECH.StringUtils).Replace($piece(Record,"`",4),"""""",""""),"%String")	
+	do ..CreateMethod(MethodName , $c(9)_##class(TECH.StringUtils).Replace($piece(Record,"`",4),"""""",""""))	
+	do ..DeployMethod.Implementation.WriteLine($c(9)_"set $piece(^MN(""D"","""_..Code_""",""F"","_Index_"),""`"",3)=""D""")
 	do ..DeployMethod.Implementation.WriteLine($c(9)_"set $piece(^MN(""D"","""_..Code_""",""F"","_Index_"),""`"",4)=""##class("_..ClassName_")."_MethodName_"()""")
 ]]></Implementation>
 </Method>