Index: svn/InterfaceControleur.cls.xml
===================================================================
diff -u -r1633 -r1634
--- svn/InterfaceControleur.cls.xml	(.../InterfaceControleur.cls.xml)	(revision 1633)
+++ svn/InterfaceControleur.cls.xml	(.../InterfaceControleur.cls.xml)	(revision 1634)
@@ -22,10 +22,45 @@
 
 	do ..Errors.Clear()
 	
+	;do ..ControleerInterface(Classname)
+	do ..ControleerMethods(Classname)
+
+	do ..ToonErrors()
+]]></Implementation>
+</Method>
+
+<Method name="ControleerMethods">
+<FormalSpec>Classname:%String</FormalSpec>
+<Implementation><![CDATA[
 	set Class = ##class(%Dictionary.ClassDefinition).%OpenId(Classname)
 	set itMethods = ##class(TECH.ListIterator).%New(Class.Methods)
 	while itMethods.HasNext() {
 		#dim Method As %Dictionary.MethodDefinition = itMethods.Next()
+		set itFormalSpecs = ##class(TECH.PiecesIterator).%New(Method.FormalSpec,",")
+		while itFormalSpecs.HasNext() {
+			#dim FormalSpec = itFormalSpecs.Next()
+			#dim ParameterName As %String = $piece(FormalSpec,":",1)
+			#dim ParameterType As %String = $piece(FormalSpec,":",2)
+			if '$length(ParameterType) {
+				do ..Errors.Insert("Warning : method "_Method.Name_" Parameter "_ParameterName_" ( type missing ) ")
+			}
+			elseif $extract(ParameterType)'="%" && ( ParameterType'["." ) {
+				do ..Errors.Insert("Warning : method "_Method.Name_" Parameter "_ParameterName_" ( package name incomplete ) ")
+			}
+				
+		}
+		
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ControleerInterface">
+<FormalSpec>Classname:%String</FormalSpec>
+<Implementation><![CDATA[
+	set Class = ##class(%Dictionary.ClassDefinition).%OpenId(Classname)
+	set itMethods = ##class(TECH.ListIterator).%New(Class.Methods)
+	while itMethods.HasNext() {
+		#dim Method As %Dictionary.MethodDefinition = itMethods.Next()
 		continue:##class(TECH.StringUtils).StartsWith(Method.Name,"%")
 		if Method.Abstract {
 			do ..Methods.SetAt(0,Method.Name)		
@@ -62,8 +97,6 @@
 			do ..Errors.Insert(MethodName _ " niet geimplementeerd")
 		}
 	}
-	
-	do ..ToonErrors()
 ]]></Implementation>
 </Method>
 
Index: svn/Repository.cls.xml
===================================================================
diff -u -r1622 -r1634
--- svn/Repository.cls.xml	(.../Repository.cls.xml)	(revision 1622)
+++ svn/Repository.cls.xml	(.../Repository.cls.xml)	(revision 1634)
@@ -233,7 +233,7 @@
 <FormalSpec>InternalName:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	set Result = $extract(InternalName,1)'="%"
+	#dim Result As %Boolean = $extract(InternalName,1)'="%"
 	
 	if ( Result ) && ( '##class(svn.Setting).MagUnitTestUitvoeren() ) {
 		set Result = '##class(TECH.StringUtils).StartsWith(InternalName,"vhUnitTest")
@@ -259,10 +259,10 @@
 </Method>
 
 <Method name="IsSourceControlCode">
-<FormalSpec>InternalName</FormalSpec>
+<FormalSpec>InternalName:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	 set result = 0
+	 #dim result As %Boolean = 0
 	 
 	 if ##class(TECH.StringUtils).MatchesPattern(InternalName,"svn*") { set result = 1 }
 	 elseif ##class(TECH.StringUtils).MatchesPattern(InternalName,"/csp/svn*") { set result = 1 }
@@ -287,11 +287,11 @@
 </Method>
 
 <Method name="DeleteCode">
-<FormalSpec>InternalName</FormalSpec>
+<FormalSpec>InternalName:%String</FormalSpec>
 </Method>
 
 <Method name="DeletePackage">
-<FormalSpec>InternalName</FormalSpec>
+<FormalSpec>InternalName:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	if $extract(InternalName,$length(InternalName))'="." set InternalName=InternalName_"."
@@ -453,7 +453,7 @@
 </Method>
 
 <Method name="Hash">
-<FormalSpec><![CDATA[InternalName:%String,&ExternalName:%String="",&oStatus]]></FormalSpec>
+<FormalSpec><![CDATA[InternalName:%String,&ExternalName:%String="",&oStatus:%Status]]></FormalSpec>
 <Implementation><![CDATA[
 	#dim flagIsTempFile As %Boolean = 0
 	
@@ -528,7 +528,7 @@
 </Method>
 
 <Method name="ExternalNameIsValid">
-<FormalSpec>ExternalName</FormalSpec>
+<FormalSpec>ExternalName:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	set ExternalName = $zcvt(ExternalName,"L")
@@ -544,7 +544,7 @@
 </Method>
 
 <Method name="ImportNeeded">
-<FormalSpec>InternalName</FormalSpec>
+<FormalSpec>InternalName:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	#dim ImportNeeded As %Boolean = 1
@@ -568,7 +568,7 @@
 </Method>
 
 <Method name="ExportNeeded">
-<FormalSpec>InternalName</FormalSpec>
+<FormalSpec>InternalName:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	quit:'##class(TECH.SourceCodeUtils).Exists(InternalName) 0
@@ -603,7 +603,7 @@
 <Description>
 Delete is nodig wanneer code nog bestaat in database maar niet meer op het filesysteem en
 als er in de database een import/export historiek bestaat.</Description>
-<FormalSpec>InternalName</FormalSpec>
+<FormalSpec>InternalName:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	#dim ExternalName As %String = ..ExternalName(InternalName)