Index: Prod/Kenmerk/DataDefinitie.cls.xml
===================================================================
diff -u -r31530 -r31539
--- Prod/Kenmerk/DataDefinitie.cls.xml	(.../DataDefinitie.cls.xml)	(revision 31530)
+++ Prod/Kenmerk/DataDefinitie.cls.xml	(.../DataDefinitie.cls.xml)	(revision 31539)
@@ -138,15 +138,13 @@
 <Implementation><![CDATA[
 	if $isObject(..Kenmerk) && ( $isObject( ..Kenmerk.Groep)) {
 		Set ..KenmerkGroep = ..Kenmerk.Groep.Code 
-		}
-	else {
+	} else {
 		Set ..KenmerkGroep = ""
 	}
 	
 	if $isObject(..Kenmerk) {
 		Set ..KenmerkNaam = ..Kenmerk.Kenmerk
-		}
-	else {
+	} else {
 		Set ..KenmerkNaam = ""
 	}
 	
@@ -174,7 +172,7 @@
  While Key '= "" {
 	 If Waarde = "" {
 		Do ##class(Prod.Kenmerk.DataDefinitie).DeleteKM(%this.Kenmerk.Groep.Code,..UnID,%this.Kenmerk.Kenmerk)
-	 }Else{
+	 } Else {
 		 Do ##class(Prod.Kenmerk.DataIndex).NewWaarde(%this.Kenmerk.Groep.Code,%this.Kenmerk.Kenmerk,..UnID,Waarde)
 	 
 		 Set VTA=%this.Kenmerk.VertaalTransforms.GetNext(.VTAKey)
@@ -266,8 +264,7 @@
 Zie classmethod WijzigOfMaak() 
 Doorverwijzing :  aangepast door WimV op 20/05/2011 </Description>
 <ClassMethod>1</ClassMethod>
-<FormalSpec>GroepID:%String,UnID:%String,KenmerkNaam:%String,Waarden,Delimiter:%String,UserID:%String,Formule:%String=""</FormalSpec>
-<ProcedureBlock>1</ProcedureBlock>
+<FormalSpec>GroepID:%String,UnID:%String,KenmerkNaam:%String,Waarden:%ListOfDataTypes,Delimiter:%String,UserID:%String,Formule:%String=""</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Quit:('(##class(Prod.Kenmerk.MetaDefinitie).%ExistsId(GroepID_"||"_KenmerkNaam))) 0
@@ -276,6 +273,36 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Maak">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>GroepID:%String,UnID:%String,KenmerkNaam:%String,Waarden:%ListOfDataTypes,Delimiter:%String="",UserID:%String="",Formule:%String="",RaiseEvent:%Boolean=1</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ..ValideerMetaDefinitie(GroepID, KenmerkNaam)
+	
+	#dim ObjectID As %String = ..BuildDataDefinitionID(GroepID, UnID, KenmerkNaam)	
+	If ..%ExistsId(ObjectID) {
+		Do ##class(TECH.Exceptions.InvalidInputException).Throw("DataDefinitie '" _ ObjectID _ "' bestaat reeds.")    
+	}
+	quit ..DoMaak(GroepID, UnID, KenmerkNaam, Waarden, Delimiter, UserID, Formule, RaiseEvent)
+]]></Implementation>
+</Method>
+
+<Method name="Wijzig">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>GroepID:%String,UnID:%String,KenmerkNaam:%String,Waarden:%ListOfDataTypes,Delimiter:%String="",UserID:%String="",Formule:%String="",RaiseEvent:%Boolean=1</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ..ValideerMetaDefinitie(GroepID, KenmerkNaam)
+	
+	#dim ObjectID As %String = ..BuildDataDefinitionID(GroepID, UnID, KenmerkNaam)
+	If $$$Not(..%ExistsId(ObjectID)) {
+		Do ##class(TECH.Exceptions.InvalidInputException).Throw("DataDefinitie '" _ ObjectID _ "' bestaat niet.")    
+	}
+	quit ..DoWijzig(ObjectID,GroepID, UnID, KenmerkNaam, Waarden, Delimiter, UserID, Formule, RaiseEvent)
+]]></Implementation>
+</Method>
+
 <Method name="WijzigOfMaak">
 <Description>
 Toevoegen van een kenmerk aan een product 
@@ -285,51 +312,89 @@
 Opmerking: lege waarden worden wel opgeslagen. Het is echter beter in dit geval om de method DeleteKM() op te roepen. 
 
 Oproepen via : 
-   Set sc=##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("OL",89973,"Diepte","45",";",17) </Description>
+		Set sc=##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("OL",89973,"Diepte","45",";",17) </Description>
 <ClassMethod>1</ClassMethod>
-<FormalSpec>GroepID:%String,UnID:%String,KenmerkNaam:%String,Waarden,Delimiter:%String,UserID:%String,Formule:%String="",RaiseEvent:%Boolean=1</FormalSpec>
-<ProcedureBlock>1</ProcedureBlock>
+<FormalSpec>GroepID:TECH.String,UnID:TECH.String,KenmerkNaam:TECH.String,Waarden:%ListOfDataTypes,Delimiter:TECH.String="",UserID:TECH.String="",Formule:TECH.String="",RaiseEvent:%Boolean=1</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-    If ('(##class(Prod.Kenmerk.MetaDefinitie).%ExistsId(GroepID_"||"_KenmerkNaam))) {
-        Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("MetaDefinitie "_GroepID_"||"_KenmerkNaam_" bestaat niet"))
-    }
-    #dim MoetWaardenWijzigenOfInvullen As %Boolean = 0
-    #dim ObjectID As %String = UnID_"||"_GroepID_"||"_KenmerkNaam
-    #dim OudeWaarde As %String = ""
-    If ..%ExistsId(ObjectID) {
-        Set oKenmerk=..%OpenId(ObjectID)
-        Set OudeWaarde = oKenmerk.Waarden.GetAt(1)
-        If $IsObject(oKenmerk.Waarden) {    
-            If (..IsKenmerkWaardenGewijzigd(oKenmerk.Waarden,Waarden,$G(Delimiter))){
-                Do ##class(Prod.Kenmerk.DataIndex).DeleteWaarden(GroepID,KenmerkNaam,UnID)  
-                Do oKenmerk.Waarden.Clear()
-                Set MoetWaardenWijzigenOfInvullen = 1
-            }           
-        }Else{
-            Do ##class(Prod.Kenmerk.DataIndex).DeleteWaarden(GroepID,KenmerkNaam,UnID)
-            Set oKenmerk.Waarden=##class(%ListOfDataTypes).%New()
-            Set MoetWaardenWijzigenOfInvullen = 1
-        }
-    }Else{
-        Set oKenmerk=..%New()
-        Do oKenmerk.KenmerkSetObjectId(GroepID_"||"_KenmerkNaam)
-        Set oKenmerk.UnID=UnID
-        Set MoetWaardenWijzigenOfInvullen = 1
-    }
+   	Do ..ValideerMetaDefinitie(GroepID, KenmerkNaam)
     
-    If MoetWaardenWijzigenOfInvullen {
-        Do ..WijzigOfVulInWaarden(.oKenmerk,Waarden,$G(Delimiter))
-        Do ..WijzigMetagegevens(.oKenmerk,Formule,$G(UserID),RaiseEvent)
+    #dim Status As %Status
+    #dim ObjectID As TECH.String = ..BuildDataDefinitionID(GroepID, UnID, KenmerkNaam)
+    
+    If (..%ExistsId(ObjectID)) {
+	    Set Status = ..DoWijzig(ObjectID,GroepID, UnID, KenmerkNaam, Waarden, Delimiter, UserID, Formule, RaiseEvent)    
+    } Else {
+	    Set Status = ..DoMaak(GroepID, UnID, KenmerkNaam, Waarden, Delimiter, UserID, Formule, RaiseEvent)
     }
     
-	Quit oKenmerk.%Save()
+	Quit Status
 ]]></Implementation>
 </Method>
 
+<Method name="DoWijzig">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ObjectID:TECH.String,GroepID:TECH.String,UnID:TECH.String,KenmerkNaam:TECH.String,Waarden:%ListOfDataTypes,Delimiter:TECH.String="",UserID:TECH.String="",Formule:TECH.String="",RaiseEvent:%Boolean=1</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	#dim Kenmerk As Prod.Kenmerk.DataDefinitie =..%OpenId(ObjectID)
+	#dim OudeWaarde As TECH.String = Kenmerk.Waarden.GetAt(1)
+	#dim MoetWaardenWijzigenOfInvullen As %Boolean = 0	
+	
+	If $IsObject(Kenmerk.Waarden) {    
+		If (..IsKenmerkWaardenGewijzigd(Kenmerk.Waarden,Waarden, Delimiter)) {
+			Do ##class(Prod.Kenmerk.DataIndex).DeleteWaarden(GroepID, KenmerkNaam, UnID)  
+			Do Kenmerk.Waarden.Clear()
+			Set MoetWaardenWijzigenOfInvullen = 1
+		}           
+	} Else {
+		Do ##class(Prod.Kenmerk.DataIndex).DeleteWaarden(GroepID, KenmerkNaam, UnID)
+		Set Kenmerk.Waarden=##class(%ListOfDataTypes).%New()
+		Set MoetWaardenWijzigenOfInvullen = 1
+	}
+
+	If MoetWaardenWijzigenOfInvullen {
+		Do ..WijzigOfVulInWaarden(.Kenmerk, Waarden, Delimiter)
+		Do ..WijzigMetagegevens(.Kenmerk, Formule, UserID, RaiseEvent)
+	}
+
+	Quit Kenmerk.%Save()
+]]></Implementation>
+</Method>
+
+<Method name="DoMaak">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>GroepID:TECH.String,UnID:TECH.String,KenmerkNaam:TECH.String,Waarden:%ListOfDataTypes,Delimiter:TECH.String="",UserID:TECH.String="",Formule:TECH.String="",RaiseEvent:%Boolean=1</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	#dim Kenmerk As Prod.Kenmerk.DataDefinitie = ..%New()
+
+	Set Kenmerk.UnID = UnID
+
+	Do Kenmerk.KenmerkSetObjectId(GroepID _ "||" _ KenmerkNaam)
+	Do ..WijzigOfVulInWaarden(.Kenmerk, Waarden, Delimiter)
+	Do ..WijzigMetagegevens(.Kenmerk, Formule, UserID, RaiseEvent)
+	
+	Quit Kenmerk.%Save()
+]]></Implementation>
+</Method>
+
+<Method name="ValideerMetaDefinitie">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>GroepID:TECH.String,KenmerkNaam:TECH.String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If $$$Not(##class(Prod.Kenmerk.MetaDefinitie).BestaatMetaDefinitie(GroepID, KenmerkNaam)) {
+		Do ##class(TECH.Exceptions.InvalidInputException).Throw("MetaDefinitie " _ GroepID _ "||" _ KenmerkNaam _ " bestaat niet.")
+	}
+]]></Implementation>
+</Method>
+
 <Method name="WijzigOfVulInWaarden">
 <ClassMethod>1</ClassMethod>
-<FormalSpec><![CDATA[&KenmerkDataDefinitie:Prod.Kenmerk.DataDefinitie,Waarden:%CacheString,Delimiter:%String]]></FormalSpec>
+<FormalSpec><![CDATA[&KenmerkDataDefinitie:Prod.Kenmerk.DataDefinitie,Waarden:%ListOfDataTypes,Delimiter:%String]]></FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	If $L($G(Delimiter)) { 				// ... via piece-delimited 
@@ -363,7 +428,7 @@
 
 <Method name="IsKenmerkWaardenGewijzigd">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>OrigineleWaarden:%ListOfDataTypes,NieuweWaarden,Delimiter:%String</FormalSpec>
+<FormalSpec>OrigineleWaarden:%ListOfDataTypes,NieuweWaarden:%ListOfDataTypes,Delimiter:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
     #dim IsKenmerkWaardenGewijzigd As %Boolean = 0
@@ -407,8 +472,8 @@
 
 <Method name="BuildDataDefinitionID">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>GroepID,UnID,Kenmerk</FormalSpec>
-<ProcedureBlock>1</ProcedureBlock>
+<FormalSpec>GroepID:TECH.String,UnID:TECH.String,Kenmerk:TECH.String</FormalSpec>
+<ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[	Quit UnID_"||"_GroepID_"||"_Kenmerk
 ]]></Implementation>
 </Method>
@@ -419,7 +484,6 @@
 Returns $LB(), want Waarden is een "List of %String"</Description>
 <ClassMethod>1</ClassMethod>
 <FormalSpec>GroepID,UnID,Kenmerk</FormalSpec>
-<ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%List</ReturnType>
 <Implementation><![CDATA[	Quit $LG($G(^Prod.Ken.DataDefinitieD(UnID,GroepID_"||"_Kenmerk)),1)
 ]]></Implementation>
@@ -428,7 +492,6 @@
 <Method name="GetFormule">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>GroepID,UnID,Kenmerk</FormalSpec>
-<ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	Set oKenmerk=..%OpenId(UnID_"||"_GroepID_"||"_Kenmerk)
@@ -442,7 +505,6 @@
 Indien het kenmerk bestaat, wordt het verwijderd. </Description>
 <ClassMethod>1</ClassMethod>
 <FormalSpec>GroepID,UnID,Kenmerk</FormalSpec>
-<ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set sc=$$$OK
@@ -462,7 +524,6 @@
    w ##class(Prod.Kenmerk.DataDefinitie).GetFullURL("OL",107785,"InfoSleutel","N","LB","WWW")</Description>
 <ClassMethod>1</ClassMethod>
 <FormalSpec>GroepID:%String,UnID:%String,Kenmerk:%String,Taal:%String,TextType:%String,ToepasType:APPS.common.enu.Toepassing</FormalSpec>
-<ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	Quit:(GroepID="")||(UnID="")||(Kenmerk="") ""
@@ -477,14 +538,12 @@
 </Method>
 
 <Method name="Exists">
-<Description>
-GroepID is optioneel</Description>
 <ClassMethod>1</ClassMethod>
-<FormalSpec>UnID,GroepID</FormalSpec>
+<FormalSpec>UnID:%String,GroepID:%String=""</FormalSpec>
 <ProcedureBlock>0</ProcedureBlock>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	Set ID=$O(^Prod.Ken.DataDefinitieD(UnID,$G(GroepID)))
+	Set ID=$O(^Prod.Ken.DataDefinitieD(UnID,GroepID))
 	Quit:ID="" 0
 	Quit:$G(GroepID)="" 1
 	Quit $G(GroepID)=$P(ID,"||")
@@ -497,7 +556,6 @@
 Zie method  DeleteViaUnID()</Description>
 <ClassMethod>1</ClassMethod>
 <FormalSpec>PRNr:%String,GroepIDs:%String</FormalSpec>
-<ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	Set UnID=$G(PRNr)
@@ -512,7 +570,6 @@
 Zie method  DeleteViaUnID()</Description>
 <ClassMethod>1</ClassMethod>
 <FormalSpec>PRNr:%Library.String,lbGroepIDs:%Library.List</FormalSpec>
-<ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Library.Status</ReturnType>
 <Implementation><![CDATA[
 	Set UnID=$G(PRNr)
@@ -527,7 +584,6 @@
 lbGroepIDs mag ook als piece-delimited-list gegeven worden (";" als delim) ]]></Description>
 <ClassMethod>1</ClassMethod>
 <FormalSpec>UnID:%Library.String,lbGroepIDs:%Library.List,RaiseEvent:%Boolean=1</FormalSpec>
-<ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Library.Status</ReturnType>
 <Implementation><![CDATA[
 	#define CodeAllGroups   "*"
@@ -594,7 +650,6 @@
 Zie method  CopyViaUnID()</Description>
 <ClassMethod>1</ClassMethod>
 <FormalSpec>FromPRNr:%Library.String,ToPRNr:%Library.String,lbGroepIDs:%Library.List,blnOverwrite:%Boolean=0,UserID:%String,lbExcludeGroepIDs:%List</FormalSpec>
-<ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Library.Status</ReturnType>
 <Implementation><![CDATA[
 	Set FromUnID=FromPRNr   ; Uit te breiden if multiple
@@ -612,7 +667,6 @@
 - lbExcludeGroepIDs   is optioneel; alleen gebruikt in lbGroepIDs leeg is (maw alle groepen), dan kunnen bepaalde groepen niet gekopieerd worden. <BR> ]]></Description>
 <ClassMethod>1</ClassMethod>
 <FormalSpec>FromUnID:%String,ToUnID:%String,lbGroepIDs:%List,blnOverwrite:%Boolean=0,UserID:%String="",lbExcludeGroepIDs:%List</FormalSpec>
-<ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	#define msgUnIDisEmpty            "CopyViaUnID: FromUnID en ToUnID mogen niet leeg zijn"
@@ -713,7 +767,6 @@
 Method om de cache v DataDefs vanuit Excel (TBX Product Kenmerken.xls) te resetten. </Description>
 <ClassMethod>1</ClassMethod>
 <FormalSpec>GroepID:%String</FormalSpec>
-<ProcedureBlock>1</ProcedureBlock>
 <Implementation><![CDATA[
  Kill %arProductAdded(GroepID)
  Quit
@@ -727,7 +780,6 @@
 De cache %arProductAdded wordt ingevuld via method ExcelDataDefsAddOneVBA()</Description>
 <ClassMethod>1</ClassMethod>
 <FormalSpec>GroepID:%String,blnForceDelete:%Integer=0</FormalSpec>
-<ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	Quit:(GroepID="") ""
@@ -792,7 +844,6 @@
 Method om de DataDefs vanuit Excel (TBX Product Kenmerken.xls) in te vullen. </Description>
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Params:%String</FormalSpec>
-<ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
  Set GroepID=$P(Params,"\",1)