Index: Prod/Kenmerk/DataDefinitie.cls.xml
===================================================================
diff -u -r1128 -r1216
--- Prod/Kenmerk/DataDefinitie.cls.xml	(.../DataDefinitie.cls.xml)	(revision 1128)
+++ Prod/Kenmerk/DataDefinitie.cls.xml	(.../DataDefinitie.cls.xml)	(revision 1216)
@@ -143,42 +143,71 @@
 
 <Method name="Set">
 <Description>
-Toevoegen van een kenmerk aan een product
-Indien het kenmerk reeds bestaat wordt het oude eerst verwijderd
-Indien Piece delimited dan Delimiter meegeven
-$LB wordt automatisch herkent
-Opmerking lege waarden worden niet opgeslagen
-Set sc=##class(Prod.Kenmerk.DataDefinitie).Set("OL",89973,"Diepte","45",";",17)
-Formule wordt enkel als property ingevuld, maar waarde wordt niet berekend want steunt meestal nog op waarden van andere kenmerken. </Description>
+Zie classmethod WijzigOfMaak() 
+Doorverwijzing :  aangepast door WimV op 20/05/2011 </Description>
 <ClassMethod>1</ClassMethod>
-<FormalSpec>GroepID,UnID,Kenmerk,Values,Delimiter,UserID,Formule:%String=""</FormalSpec>
-<ProcedureBlock>0</ProcedureBlock>
+<FormalSpec>GroepID:%String,UnID:%String,KenmerkNaam:%String,Waarden,Delimiter:%String,UserID:%String,Formule:%String=""</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	New oKenmerk,I,Status
-	/// Indien het kenmerk reeds bestaat wordt het oude eerst verwijderd
-	Set:(..%ExistsId(UnID_"||"_GroepID_"||"_Kenmerk)) Status=..%DeleteId(UnID_"||"_GroepID_"||"_Kenmerk)
-	;Set oMetaKenmerk=##class(Prod.Kenmerk.MetaDefinitie).%OpenId(GroepID_"||"_Kenmerk)
-	;Quit:'$isObject(oMetaKenmerk) 0
-	;Set oKenmerk.Kenmerk=oMetaKenmerk
-	Quit:('(##class(Prod.Kenmerk.MetaDefinitie).%ExistsId(GroepID_"||"_Kenmerk))) 0
-	Set oKenmerk=..%New()
-	Do oKenmerk.KenmerkSetObjectId(GroepID_"||"_Kenmerk)
-	Set oKenmerk.UnID=UnID
-	Set:$L(Formule) oKenmerk.Formule=Formule
-	;Do oKenmerk.ProductSetObjectId(PRNr)
 	
-	If $L($G(Delimiter)) Do  ; Piece delimited
-	. For I=1:1:$L(Values,Delimiter) Do:$L($P(Values,Delimiter,I)) oKenmerk.Waarden.Insert($P(Values,Delimiter,I))
-	Else  If $$IsList^vhLib(Values) Do  ; Listbuild
-	. For I=1:1:$LL(Values) Do:$L($LG(Values,I)) oKenmerk.Waarden.Insert($LI(Values,I))
-	Else  Do  ;Single value
-	. Do:$L(Values) oKenmerk.Waarden.Insert(Values)
-	Quit:oKenmerk.Waarden.Count()=0 0
+	Quit ..WijzigOfMaak(GroepID, UnID, KenmerkNaam ,Waarden, .Delimiter , .UserID ,.Formule)
+]]></Implementation>
+</Method>
+
+<Method name="WijzigOfMaak">
+<Description>
+Toevoegen van een kenmerk aan een product 
+Indien Waarden als Piece delimited, dan Delimiter meegeven 
+Waarden als $LB wordt automatisch herkent 
+Formule wordt enkel als property ingevuld, maar waarde wordt niet berekend want steunt meestal nog op waarden van andere kenmerken. 
+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>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>GroepID:%String,UnID:%String,KenmerkNaam:%String,Waarden,Delimiter:%String,UserID:%String,Formule:%String=""</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Quit:('(##class(Prod.Kenmerk.MetaDefinitie).%ExistsId(GroepID_"||"_KenmerkNaam))) 0
+
+	Set ObjectID=UnID_"||"_GroepID_"||"_KenmerkNaam
+	If ..%ExistsId(ObjectID) {
+		Do ##class(Prod.Kenmerk.DataIndex).DeleteWaarden(GroepID,KenmerkNaam,UnID)
+		Set oKenmerk=..%OpenId(ObjectID)
+		If $IsObject(oKenmerk.Waarden) {
+			Do oKenmerk.Waarden.Clear()
+		}
+		Else {
+			Set oKenmerk.Waarden=##class(%ListOfDataTypes).%New()
+		}
+	}
+	Else {
+		Set oKenmerk=..%New()
+		Do oKenmerk.KenmerkSetObjectId(GroepID_"||"_KenmerkNaam)
+		Set oKenmerk.UnID=UnID
+	}
+	
+	// Kenmerkwaarde(n) invullen ... 
+	If $L($G(Delimiter)) { 
+		// ... via piece-delimited 
+		For I=1:1:$L(Waarden,Delimiter) Do:$L($P(Waarden,Delimiter,I)) oKenmerk.Waarden.Insert($P(Waarden,Delimiter,I))
+	}
+	ElseIf $$IsList^vhLib(Waarden) {  
+		// ... via ListBuild 
+		For I=1:1:$LL(Waarden) Do:$L($LG(Waarden,I)) oKenmerk.Waarden.Insert($LI(Waarden,I))
+	}
+	ElseIf $L(Waarden) {  
+		// ... via single value 
+		Do oKenmerk.Waarden.Insert(Waarden)
+	}
+
+	Set oKenmerk.Formule=Formule
 	Set oKenmerk.WijzigTijdstip=$zdt($H,4)
 	Set:$G(UserID) oKenmerk.WijzigGebruiker=UserID
-	Set Status=oKenmerk.%Save()
-	Quit Status
+
+	Quit oKenmerk.%Save()
 ]]></Implementation>
 </Method>