Index: vhUnitTest/APPS/PM/TestKenmerkenService.cls.xml
===================================================================
diff -u -r2148 -r2156
--- vhUnitTest/APPS/PM/TestKenmerkenService.cls.xml	(.../TestKenmerkenService.cls.xml)	(revision 2148)
+++ vhUnitTest/APPS/PM/TestKenmerkenService.cls.xml	(.../TestKenmerkenService.cls.xml)	(revision 2156)
@@ -711,13 +711,10 @@
 ]]></Implementation>
 </Method>
 
-<Method name="TestBewaarNieuwKenmerkMetadata">
-<Description>
-Test het bewaren van één nieuwe metadata</Description>
+<Method name="MaakNieuweKenmerkMetadata">
+<FormalSpec>KenmerkGroep:%String,KenmerkMetadataNaam:%String</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
-	Set KenmerkGroep = "OL"
-	Set KenmerkMetadataNaam = "Unit Test MetaDefinitie"
-	
 	Set KenmerkenService = ##class(APPS.PM.KenmerkenService).%New()
 	
 	Set KenmerkMetadata = ##class(APPS.PM.dto.Kenm.KenmerkMetadata).%New()
@@ -729,7 +726,7 @@
 	Set DataTypeBeperking.MaxAantalTekens = 20
 
 	Set KenmerkMetadata.DataTypeBeperking = DataTypeBeperking
-	Set KenmerkMetadata.Mogelijkheden = ##class(%ListOfObjects).%New()
+	Set KenmerkMetadata.Mogelijkheden = ##class(%ListOfDataTypes).%New()
 	Do KenmerkMetadata.Mogelijkheden.Insert("Mogelijkheid EEN")
 	Do KenmerkMetadata.Mogelijkheden.Insert("Mogelijkheid TWEE")
 	Do KenmerkMetadata.Mogelijkheden.Insert("Mogelijkheid DRIE")
@@ -743,14 +740,233 @@
 	Set KenmerkMetadata.SuggereerWaarden = 1
 	Set KenmerkMetadata.VeldBreedteInTekens = 20
 	
-	
 	Set MetaGroep = ##class(Prod.Kenmerk.MetaGroep).%OpenId(KenmerkGroep)
 	Do KenmerkenService.BewaarKenmerkMetadata(KenmerkMetadata,MetaGroep)
-	
-	Set ID = KenmerkGroep_"||"_KenmerkMetadataNaam
 	Set MetaGroep = ""
+]]></Implementation>
+</Method>
+
+<Method name="TestBewaarNieuwKenmerkMetadata">
+<Description>
+Test het bewaren van één nieuwe metadata</Description>
+<Implementation><![CDATA[
+	Set KenmerkGroep = "OL"
+	Set KenmerkMetadataNaam = "Unit Test MetaDefinitie"
+	
+	Do ..MaakNieuweKenmerkMetadata(KenmerkGroep, KenmerkMetadataNaam)
+	
+	/// Controle van aangemaakte metadata
+	
+	Set KenmerkenService = ##class(APPS.PM.KenmerkenService).%New()
+	
+	Set KenmerkGroepen = ##class(%ListOfDataTypes).%New()
+	Do KenmerkGroepen.Insert("OL")	
+	
+	Set KenmerkGroepMetadata = KenmerkenService.GeefMetadata(KenmerkGroepen).KenmerkGroepen
+	
+	
+	Do $$$AssertEquals(KenmerkGroepMetadata.Count(),1,"Correct aantal kenmerkengroepen (#1)")
+	Do $$$AssertEquals(KenmerkGroepMetadata.GetAt(1).Code,"OL","Correcte code kenmerkengroep (OL)")
+	Do $$$AssertEquals(KenmerkGroepMetadata.GetAt(1).Naam,"ORGALUX","Correcte naam kenmerkengroep (ORGALUX)")
+	
+	Set KenmerkMetadata = KenmerkGroepMetadata.GetAt(1).Kenmerken
+	
+	Set KenmerkMetadataIt = ##class(TECH.ListIterator).%New(KenmerkMetadata)
+	Set NieuwKenmerkMetadataOK = 0
+	While(KenmerkMetadataIt.HasNext()){
+		Set KenmerkMeta = KenmerkMetadataIt.Next()
+		If (KenmerkMeta.Naam = KenmerkMetadataNaam){
+			Set NieuwKenmerkMetadataOK = 1
+			Do $$$AssertEquals(KenmerkMeta.Mogelijkheden.Count(),3,"Aantal mogelijkheden voor "_KenmerkMetadataNaam_" is correct.")
+			Do $$$AssertTrue(KenmerkMeta.Mogelijkheden.Find("Mogelijkheid EEN") '= "","'Mogelijkheid EEN' is gevonden als mogelijkheid bij "_KenmerkMetadataNaam_"")
+			Do $$$AssertTrue('KenmerkMeta.IsReadOnly,KenmerkMetadataNaam_" is niet Read Only.")
+			Do $$$AssertTrue(KenmerkMeta.IsWijzigbaar,KenmerkMetadataNaam_" is niet Read Only.")
+			Do $$$AssertTrue(KenmerkMeta.NieuweWaardeToegelaten,KenmerkMetadataNaam_" mag nieuwe waarden hebben.")
+			Do $$$AssertTrue(KenmerkMeta.SuggereerWaarden,KenmerkMetadataNaam_" mag waarden suggereren.")
+			Set Type = ##class(APPS.PM.enu.DataType).Tekst()
+			Do $$$AssertEquals(KenmerkMeta.DataType,Type,KenmerkMetadataNaam_" DataType is correct.")
+			Do $$$AssertEquals(KenmerkMeta.DataTypeBeperking.MaxAantalTekens,20,KenmerkMetadataNaam_" : MaxAantalTekens voor DataTypeBeperking is correct.")
+			Do $$$AssertEquals(KenmerkMeta.Multipliciteit.Minimum,0,KenmerkMetadataNaam_" : Minimum voor Multipliciteit is correct.")
+			Do $$$AssertEquals(KenmerkMeta.Multipliciteit.Maximum,1,KenmerkMetadataNaam_" : Maximum voor Multipliciteit is correct.")
+		}
+	}
+	
+	Do $$$AssertTrue(NieuwKenmerkMetadataOK,"Nieuwe KenmerkMetdata is opgeslaan.")	
+	Set ID = KenmerkGroep_"||"_KenmerkMetadataNaam	
 	Set Status = ##class(Prod.Kenmerk.MetaDefinitie).%DeleteId(ID)
 ]]></Implementation>
 </Method>
+
+<Method name="TestBewaarKenmerkMetadata">
+<Description>
+Test het bewaren van één nieuwe metadata</Description>
+<Implementation><![CDATA[
+	/// Eerst een kenmerk aanmaken, dan zelfde kenmerken bewaren.
+	
+	Set KenmerkGroep = "OL"
+	Set KenmerkMetadataNaam = "Unit Test MetaDefinitie"
+	Set KenmerkMetadataNaamUpdate = "Unit Test MetaDefinitie Update"
+	
+	Do ..MaakNieuweKenmerkMetadata(KenmerkGroep, KenmerkMetadataNaam)
+	
+	Set KenmerkenService = ##class(APPS.PM.KenmerkenService).%New()
+	
+	Set KenmerkGroepen = ##class(%ListOfDataTypes).%New()
+	Do KenmerkGroepen.Insert("OL")		
+	Set KenmerkGroepMetadata = KenmerkenService.GeefMetadata(KenmerkGroepen)
+	
+	/// Wijzig metadefinitie
+	Set KenmerkMetadata = KenmerkGroepMetadata.KenmerkGroepen.GetAt(1).Kenmerken	
+	Set KenmerkMetadataIt = ##class(TECH.ListIterator).%New(KenmerkMetadata)
+	Set Teller = 0
+	While(KenmerkMetadataIt.HasNext()){
+		Set Teller = Teller + 1
+		Set KenmerkMeta = KenmerkMetadataIt.Next()
+		If (KenmerkMeta.Naam = KenmerkMetadataNaam){
+			Set KenmerkMeta.IsReadOnly = 1
+			Set KenmerkMeta.Multipliciteit.Maximum = 3
+			Set KenmerkMeta.Naam = KenmerkMetadataNaamUpdate
+			Do KenmerkGroepMetadata.KenmerkGroepen.GetAt(1).Kenmerken.SetAt(KenmerkMeta,Teller)
+		}
+	}
+	Do KenmerkenService.BewaarKenmerkGroepMetadataLijst(KenmerkGroepMetadata)
+	
+	Set KenmerkMetadata = ""
+	Set KenmerkMetadataIt = ""
+	
+	/// Controle
+	
+	
+	Set KenmerkGroepMetadata = KenmerkenService.GeefMetadata(KenmerkGroepen).KenmerkGroepen
+	Set KenmerkMetadata = KenmerkGroepMetadata.GetAt(1).Kenmerken	
+	Set KenmerkMetadataIt = ##class(TECH.ListIterator).%New(KenmerkMetadata)
+	Set NieuwKenmerkMetadataOK = 0
+	While(KenmerkMetadataIt.HasNext()){
+		Set KenmerkMeta = KenmerkMetadataIt.Next()
+		If (KenmerkMeta.Naam = KenmerkMetadataNaamUpdate){
+			Set NieuwKenmerkMetadataOK = 1
+			Do $$$AssertEquals(KenmerkMeta.Mogelijkheden.Count(),3,"Aantal mogelijkheden voor "_KenmerkMetadataNaam_" is correct.")
+			Do $$$AssertTrue(KenmerkMeta.Mogelijkheden.Find("Mogelijkheid EEN") '= "","'Mogelijkheid EEN' is gevonden als mogelijkheid bij "_KenmerkMetadataNaam_"")
+			Do $$$AssertTrue(KenmerkMeta.IsReadOnly,KenmerkMetadataNaam_" is Read Only.")
+			Do $$$AssertTrue(KenmerkMeta.IsWijzigbaar,KenmerkMetadataNaam_" is wijzigbaar.")
+			Do $$$AssertTrue(KenmerkMeta.NieuweWaardeToegelaten,KenmerkMetadataNaam_" mag nieuwe waarden hebben.")
+			Do $$$AssertTrue(KenmerkMeta.SuggereerWaarden,KenmerkMetadataNaam_" mag waarden suggereren.")
+			Set Type = ##class(APPS.PM.enu.DataType).Tekst()
+			Do $$$AssertEquals(KenmerkMeta.DataType,Type,KenmerkMetadataNaam_" DataType is correct.")
+			Do $$$AssertEquals(KenmerkMeta.DataTypeBeperking.MaxAantalTekens,20,KenmerkMetadataNaam_" : MaxAantalTekens voor DataTypeBeperking is correct.")
+			Do $$$AssertEquals(KenmerkMeta.Multipliciteit.Minimum,0,KenmerkMetadataNaam_" : Minimum voor Multipliciteit is correct.")
+			Do $$$AssertEquals(KenmerkMeta.Multipliciteit.Maximum,3,KenmerkMetadataNaam_" : Maximum voor Multipliciteit is correct.")
+		}
+	}
+	
+	Do $$$AssertTrue(NieuwKenmerkMetadataOK,"Wijzigingen in KenmerkMetdata zijn opgeslaan.")	
+	
+	Set ID = KenmerkGroep_"||"_KenmerkMetadataNaamUpdate	
+	Set Status = ##class(Prod.Kenmerk.MetaDefinitie).%DeleteId(ID)
+]]></Implementation>
+</Method>
+
+<Method name="MaakNieuweKenmerkGroepMetadata">
+<FormalSpec>Code:%String,Naam:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set KenmerkenService = ##class(APPS.PM.KenmerkenService).%New()
+	Set KenmerkGroepMetadata = ##class(APPS.PM.dto.Kenm.KenmerkGroepMetadata).%New()
+	Set KenmerkGroepMetadata.Code = Code
+	Set KenmerkGroepMetadata.Naam = Naam
+	Do KenmerkenService.BewaarKenmerkGroepMetadata(KenmerkGroepMetadata)
+]]></Implementation>
+</Method>
+
+<Method name="TestBewaarNieuwKenmerkGroepMeta">
+<Description>
+Test het bewaren van één nieuwe metadata</Description>
+<Implementation><![CDATA[
+	Set NieuwKenmerkGroepMetadataOK = 0
+	TSTART 
+	Set $ZTRAP = "Catch"
+	Set Code = "UNITTEST"
+	Set Naam = "Unit Test Groep"
+	
+	Do ..MaakNieuweKenmerkGroepMetadata(Code,Naam)
+	
+	Set KenmerkenService = ##class(APPS.PM.KenmerkenService).%New()	
+	Set KenmerkMetadata = ""
+	Set KenmerkMetadataIt = ""
+	
+	/// Controle	
+	Set KenmerkGroepen = ##class(%ListOfDataTypes).%New()
+	Do KenmerkGroepen.Insert(Code)		
+	
+	Set KenmerkGroepMetadata = KenmerkenService.GeefMetadata(KenmerkGroepen).KenmerkGroepen
+	Set KenmerkGroepMetadataIt = ##class(TECH.ListIterator).%New(KenmerkGroepMetadata)
+	
+	While(KenmerkGroepMetadataIt.HasNext()){
+		Set KenmerkGroepMeta = KenmerkGroepMetadataIt.Next()
+		If (KenmerkGroepMeta.Naam = Naam) {
+			Set NieuwKenmerkGroepMetadataOK = 1
+			Do $$$AssertEquals(KenmerkGroepMeta.Code,Code,"Code van KenmerkGroepMetadata is correct.")	
+		}
+	}
+Catch
+	Do $$$AssertTrue(NieuwKenmerkGroepMetadataOK,"Wijziging in KenmerkGroepMetdata is opgeslaan.")	
+	TROLLBACK
+]]></Implementation>
+</Method>
+
+<Method name="TestBewaarKenmerkGroepMetadata">
+<Description>
+Test het bewaren van één nieuwe metadata</Description>
+<Implementation><![CDATA[
+	Set NieuwKenmerkGroepMetadataOK = 0
+	TSTART 
+	Set $ZTRAP = "Catch"
+	
+	Set Code = "UNITTEST"
+	Set CodeUpdate = "UNITTEST_UPDATE"
+	Set Naam = "Unit Test Groep"
+	Set NaamUpdate = "Unit Test Groep Update"
+	
+	Do ..MaakNieuweKenmerkGroepMetadata(Code,Naam)
+	
+	Set KenmerkenService = ##class(APPS.PM.KenmerkenService).%New()	
+	Set KenmerkGroepen = ##class(%ListOfDataTypes).%New()
+	Do KenmerkGroepen.Insert(Code)		
+	
+	Set KenmerkGroepMetadata = KenmerkenService.GeefMetadata(KenmerkGroepen)
+	
+	Set KenmerkGroepMetadata.KenmerkGroepen.GetAt(1).Naam = NaamUpdate
+	Set KenmerkGroepMetadata.KenmerkGroepen.GetAt(1).Code = CodeUpdate
+	
+	Do KenmerkenService.BewaarKenmerkGroepMetadataLijst(KenmerkGroepMetadata)
+	
+	Set KenmerkMetadata = ""
+	Set KenmerkMetadataIt = ""
+	
+	/// Controle	
+	Set KenmerkGroepen = ##class(%ListOfDataTypes).%New()
+	Do KenmerkGroepen.Insert(Code)			
+	Set KenmerkGroepMetadata = KenmerkenService.GeefMetadata(KenmerkGroepen).KenmerkGroepen
+	Do $$$AssertEquals(KenmerkGroepMetadata.GetAt(1).Kenmerken.Count(),0,"Vorige MetaDefinitie bevat niets meer")	
+	Do $$$AssertEquals(KenmerkGroepMetadata.GetAt(1).Naam,"","Vorige MetaDefinitie bevat geen naam meer")	
+	
+	Set KenmerkGroepen = ##class(%ListOfDataTypes).%New()
+	Do KenmerkGroepen.Insert(CodeUpdate)			
+	Set KenmerkGroepMetadata = KenmerkenService.GeefMetadata(KenmerkGroepen).KenmerkGroepen
+	Set KenmerkGroepMetadataIt = ##class(TECH.ListIterator).%New(KenmerkGroepMetadata)
+	While(KenmerkGroepMetadataIt.HasNext()){
+		Set KenmerkGroepMeta = KenmerkGroepMetadataIt.Next()
+		If (KenmerkGroepMeta.Naam = NaamUpdate) {
+			Set NieuwKenmerkGroepMetadataOK = 1
+			Do $$$AssertEquals(KenmerkGroepMeta.Code,CodeUpdate,"Code van KenmerkGroepMetadata is correct.")	
+			Do $$$AssertEquals(KenmerkGroepMeta.Naam,NaamUpdate,"Naam van KenmerkGroepMetadata is correct.")	
+		}
+	}
+	
+Catch
+	Do $$$AssertTrue(NieuwKenmerkGroepMetadataOK,"Wijziging in KenmerkGroepMetdata is opgeslaan.")	
+	TROLLBACK
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: DOM/common/dto/ProductData.cls.xml
===================================================================
diff -u -r2153 -r2156
--- DOM/common/dto/ProductData.cls.xml	(.../ProductData.cls.xml)	(revision 2153)
+++ DOM/common/dto/ProductData.cls.xml	(.../ProductData.cls.xml)	(revision 2156)
@@ -17,13 +17,6 @@
 <Type>%String</Type>
 </Property>
 
-<Property name="Korttekst">
-<Description><![CDATA[
-[ Review CSC -> JBL ]
-Deze moet terug weg. Code is in dit geval de korttekst, waar omschrijving de langtekst is]]></Description>
-<Type>%String</Type>
-</Property>
-
 <Property name="Omschrijving">
 <Type>%String</Type>
 </Property>
Index: APPS/PM/dto/Kenm/KenmerkMetadata.cls.xml
===================================================================
diff -u -r2148 -r2156
--- APPS/PM/dto/Kenm/KenmerkMetadata.cls.xml	(.../KenmerkMetadata.cls.xml)	(revision 2148)
+++ APPS/PM/dto/Kenm/KenmerkMetadata.cls.xml	(.../KenmerkMetadata.cls.xml)	(revision 2156)
@@ -5,9 +5,12 @@
 <Super>%RegisteredObject,%XML.Adaptor</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
+<Parameter name="XMLIGNORENULL">
+<Default>1</Default>
+</Parameter>
+
 <Property name="ID">
 <Type>%String</Type>
-<Required>1</Required>
 </Property>
 
 <Property name="IsReadOnly">
Index: APPS/PM/impl/ConvertAPPStoDOMenu.cls.xml
===================================================================
diff -u -r2148 -r2156
--- APPS/PM/impl/ConvertAPPStoDOMenu.cls.xml	(.../ConvertAPPStoDOMenu.cls.xml)	(revision 2148)
+++ APPS/PM/impl/ConvertAPPStoDOMenu.cls.xml	(.../ConvertAPPStoDOMenu.cls.xml)	(revision 2156)
@@ -88,7 +88,7 @@
 	Set Type = ""	
 	If (DataType = ##class(APPS.PM.enu.DataType).Tekst()) {
 		Set Type = ##class(DOM.PM.enu.MetaDefinitieFormat).Tekst()
-	}ElseIf (DataType = ##class(APPS.PM.enu.DataType).Getal() && (AantalDecimalen = 0)){
+	}ElseIf (DataType = ##class(APPS.PM.enu.DataType).Getal() && ((AantalDecimalen = 0) || (AantalDecimalen = ""))){
 		Set Type = ##class(DOM.PM.enu.MetaDefinitieFormat).Integer()
 	}ElseIf (DataType = ##class(APPS.PM.enu.DataType).Getal() && (AantalDecimalen > 0)){
 		Set Type = ##class(DOM.PM.enu.MetaDefinitieFormat).Float()
Index: TECH/ClassUtils.cls.xml
===================================================================
diff -u -r2153 -r2156
--- TECH/ClassUtils.cls.xml	(.../ClassUtils.cls.xml)	(revision 2153)
+++ TECH/ClassUtils.cls.xml	(.../ClassUtils.cls.xml)	(revision 2156)
@@ -86,14 +86,10 @@
 </Method>
 
 <Method name="ValueIsValid">
-<Description><![CDATA[
-[ Review CSC -> JBL ]
-Heeft het zin om een boolean terug te geven als er excepties worden gethrowed bij result = false?
-Method zal enkel true teruggeven. Meer zinvol zou zijn om het ValidateValue() te noemen zonder resultaat (enkel excepties bij foutief).
-Zo kan iedereen er van uitgaan dat hij de return value niet moet controleren.]]></Description>
+<Description>
+Throwt foutmelding indien niet geldig. </Description>
 <ClassMethod>1</ClassMethod>
 <FormalSpec><![CDATA[&Value:%CacheString,ClassName:%String]]></FormalSpec>
-<ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	if $isObject(Value) {
 		set result = ( $zobjMethod(Value,"%ValidateObject") = 1 )
@@ -114,17 +110,15 @@
 		Set:(($G(%objlasterror)'="") && '(%objlasterror [ "ECODETRAP")) Message = Message_" "_$$ParseStatus^vhLib(%objlasterror)
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New(Message))	
 	}
-	quit result
+	quit
 ]]></Implementation>
 </Method>
 
 <Method name="PropertiesValid">
-<Description><![CDATA[
-[ Review CSC -> JBL ]
-Idem als hierboven.]]></Description>
+<Description>
+Throwt foutmelding indien niet geldig. </Description>
 <ClassMethod>1</ClassMethod>
 <FormalSpec><![CDATA[&Object:%CacheString]]></FormalSpec>
-<ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	#define CalculatedPropertiesNotIncluded 0
 	
@@ -154,6 +148,11 @@
 					Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Validatie van  '"_Property.%ClassName(1)_"' met  waarde '"_PropertyValue_"' is niet correct, type: "_Property.Type))		
 				}
 			}
+		}ElseIf($IsObject(PropertyValue)){
+			set result = ..ValueIsValid(PropertyValue,Property.Type)
+			If ('result){
+				Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Validatie van  '"_Property.%ClassName(1)_"' met  waarde '"_PropertyValue_"' is niet correct, type: "_Property.Type))		
+			}
 		}
 		elseif $length(PropertyValue) {
 			set result = $zobjMethod(Object,Property.Name_"IsValidDT",PropertyValue)
@@ -162,7 +161,7 @@
 			}
 		}
 	}
-	quit result
+	quit
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/PM/KenmerkenService.cls.xml
===================================================================
diff -u -r2153 -r2156
--- APPS/PM/KenmerkenService.cls.xml	(.../KenmerkenService.cls.xml)	(revision 2153)
+++ APPS/PM/KenmerkenService.cls.xml	(.../KenmerkenService.cls.xml)	(revision 2156)
@@ -334,19 +334,21 @@
 			
 			If (RS.Get("Format") = "T"){
 				Set KenmerkMetadata.DataType = ##class(APPS.PM.enu.DataType).Tekst()
-				Set KenmerkMetadata.DataTypeBeperking = ##class(APPS.PM.dto.Kenm.TekstBeperking).%New()
 				If (RS.Get("Lengte") '= ""){
+					Set KenmerkMetadata.DataTypeBeperking = ##class(APPS.PM.dto.Kenm.TekstBeperking).%New()
 					Set KenmerkMetadata.DataTypeBeperking.MaxAantalTekens = RS.Get("Lengte")
 				}
 			}ElseIf (RS.Get("Format") = "B"){
 				Set KenmerkMetadata.DataType = ##class(APPS.PM.enu.DataType).Boolean()
 			}ElseIf((RS.Get("Format") = "I") || (RS.Get("Format") = "F")){
 				Set KenmerkMetadata.DataType = ##class(APPS.PM.enu.DataType).Getal()
-				Set KenmerkMetadata.DataTypeBeperking = ##class(APPS.PM.dto.Kenm.GetalBeperking).%New()
-				Set KenmerkMetadata.DataTypeBeperking.AantalDecimalen = RS.Get("Decimalen")
-				Set KenmerkMetadata.DataTypeBeperking.Eenheid = RS.Get("Eenheid")
-				Set KenmerkMetadata.DataTypeBeperking.Maximum = RS.Get("MaxValue")
-				Set KenmerkMetadata.DataTypeBeperking.Minimum = RS.Get("MinValue")
+				If ((RS.Get("Decimalen")'= "") || (RS.Get("Eenheid")'= "") || (RS.Get("MaxValue") '= "") || (RS.Get("MinValue") '= "")) {
+					Set KenmerkMetadata.DataTypeBeperking = ##class(APPS.PM.dto.Kenm.GetalBeperking).%New()
+					Set KenmerkMetadata.DataTypeBeperking.AantalDecimalen = RS.Get("Decimalen")
+					Set KenmerkMetadata.DataTypeBeperking.Eenheid = RS.Get("Eenheid")
+					Set KenmerkMetadata.DataTypeBeperking.Maximum = RS.Get("MaxValue")
+					Set KenmerkMetadata.DataTypeBeperking.Minimum = RS.Get("MinValue")
+				}
 			}
 			
 			Do KenmerkGroepMetadata.Kenmerken.Insert(KenmerkMetadata)			
@@ -364,29 +366,42 @@
 Bewaar opgegeven KenmerkMetadata, indien nog niet bestaand is wordt deze aangemaakt.</Description>
 <FormalSpec>KenmerkMetadata:APPS.PM.dto.Kenm.KenmerkMetadata,MetaGroep:Prod.Kenmerk.MetaGroep</FormalSpec>
 <Implementation><![CDATA[
-	Set OperatieScope = ##class(TECH.OperatieScope).StartMetTx()		
-	Set $ZTRAP = "Catch"			  
-	
+	  	
 	Set MetaDefinitie = ""
-	If (##class(Prod.Kenmerk.MetaDefinitie).%ExistsId(KenmerkMetadata.ID)){
+	If ($length(KenmerkMetadata.ID) && ##class(Prod.Kenmerk.MetaDefinitie).%ExistsId(KenmerkMetadata.ID)){
 		Set MetaDefinitie = ##class(Prod.Kenmerk.MetaDefinitie).%OpenId(KenmerkMetadata.ID)
+		
+		/// Als de naam wijzigt, dan moet het origineel kenmer worden verwijderd, en nieuwe ID worden ingesteld
+		If (MetaDefinitie.Kenmerk '= KenmerkMetadata.Naam) {
+			/// Origineel kenmerk verwijderen
+			Set MetaDefinitie = ""
+			Set Status = ##class(Prod.Kenmerk.MetaDefinitie).%DeleteId(KenmerkMetadata.ID)
+			If ($$$ISERR(Status)) { 
+				Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.BaseException).%New(##class(TECH.enu.ExceptionCode).CreateObject(),"Kon MetaDefinitie niet opkuisen. (ID: "_KenmerkMetadata.ID_")"))
+			}
+			Set MetaDefinitie = ##class(Prod.Kenmerk.MetaDefinitie).%New()			
+		}
 	} Else {
 		Set MetaDefinitie = ##class(Prod.Kenmerk.MetaDefinitie).%New()
-	}
+	}	
 	
+	
+	
 	If '$IsObject(MetaDefinitie){
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.BaseException).%New(##class(TECH.enu.ExceptionCode).CreateObject(),"Kon MetaDefinitie niet openen op aanmaken. (ID: "_KenmerkMetadata.ID_")"))
 	}
 	
 	Set MetaDefinitie.Groep = MetaGroep
 	
+	
 	Set MetaDefinitie.IsWijzigbaar = KenmerkMetadata.IsWijzigbaar
 	Set MetaDefinitie.IsReadOnly = KenmerkMetadata.IsReadOnly
 	Set MetaDefinitie.SuggereerWaarden = KenmerkMetadata.SuggereerWaarden
 	Set MetaDefinitie.NieuweWaardeToegelaten = KenmerkMetadata.NieuweWaardeToegelaten
 	Set MetaDefinitie.VeldBreedteInTekens = KenmerkMetadata.VeldBreedteInTekens
 	Set MetaDefinitie.Kenmerk = KenmerkMetadata.Naam
 	
+	
 	/// DataType instellen
 	Set MetaDefinitie.Format = ##class(APPS.PM.impl.ConvertAPPStoDOMenu).ConvertDataType(KenmerkMetadata.DataType)
 	
@@ -398,9 +413,8 @@
 			Set MetaDefinitie.MinValue = DataTypeBeperking.Minimum
 			Set MetaDefinitie.Decimalen = DataTypeBeperking.AantalDecimalen
 			Set MetaDefinitie.Eenheid = DataTypeBeperking.Eenheid
-			
 			/// Zonodig format opnieuw instellen indien float (decimalen is ingesteld)
-			Set MetaDefintie.Format = ##class(APPS.PM.impl.ConvertAPPStoDOMenu).ConvertDataType(KenmerkMetadata.DataType,DataTypeBeperking.AantalDecimalen)
+			Set MetaDefinitie.Format = ##class(APPS.PM.impl.ConvertAPPStoDOMenu).ConvertDataType(KenmerkMetadata.DataType,DataTypeBeperking.AantalDecimalen)
 			
 		}ElseIf (DataTypeBeperking.%Extends("APPS.PM.dto.Kenm.TekstBeperking")) {
 			Set MetaDefinitie.Lengte = DataTypeBeperking.MaxAantalTekens
@@ -434,14 +448,7 @@
 	Set MetaDefinitie = ""
 	Set Groep = ""
 	
-	Do OperatieScope.Gelukt()
-	Quit $$$OK	
-	
-Catch Set $ZTRAP = ""	
-	Set Exception = ##class(TECH.ExceptionHandler).Catch()
-	Set ErrorMsg = "BewaarKenmerkMetadata heeft de wijzigingen niet kunnen opslaan : "_Exception.GeefOmschrijving()
-	Do OperatieScope.Gefaald(##class(TECH.Exceptions.BaseException).%New(Exception.GeefExceptionCode(),ErrorMsg))
-	Quit 0
+	Quit $$$OK
 ]]></Implementation>
 </Method>
 
@@ -450,35 +457,44 @@
 De opgegeven KenmerkGroepMetadata bewaren, als een onbestaand KenmerkMetadata is, dan wordt een nieuwe gecreëerd. </Description>
 <FormalSpec>KenmerkGroepMetadata:APPS.PM.dto.Kenm.KenmerkGroepMetadata</FormalSpec>
 <Implementation><![CDATA[
-	Set OperatieScope = ##class(TECH.OperatieScope).StartMetTx()		
-	Set $ZTRAP = "Catch"			  
-	
 	/// KenmerkGroepMetadata opslaan
-		Set MetaGroep = ##class(Prod.Kenmerk.MetaGroep).%OpenId(KenmerkGroepMetadata.ID)
+		If ($length(KenmerkGroepMetadata.ID) && ##class(Prod.Kenmerk.MetaGroep).%ExistsId(KenmerkGroepMetadata.ID)){
+			Set MetaGroep = ##class(Prod.Kenmerk.MetaGroep).%OpenId(KenmerkGroepMetadata.ID)
+			
+			/// Als de naam wijzigt, dan moet het origineel metadefinitie worden verwijderd, en nieuwe ID worden ingesteld
+			If (MetaGroep.Code '= KenmerkGroepMetadata.Code) {
+				/// Origineel kenmerk verwijderen
+				Set MetaDefinitie = ""
+				Set Status = ##class(Prod.Kenmerk.MetaGroep).%DeleteId(KenmerkGroepMetadata.ID)
+				If ($$$ISERR(Status)) { 
+					Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.BaseException).%New(##class(TECH.enu.ExceptionCode).CreateObject(),"Kon MetaGroep niet opkuisen. (ID: "_KenmerkGroepMetadata.ID_")"))
+				}
+				Set MetaGroep = ##class(Prod.Kenmerk.MetaGroep).%New()			
+			}
+		} Else {
+			Set MetaGroep = ##class(Prod.Kenmerk.MetaGroep).%New()
+		}	
 		Set MetaGroep.Code = KenmerkGroepMetadata.Code
 		Set MetaGroep.Omschrijving = KenmerkGroepMetadata.Naam
+		If ('$IsObject(MetaGroep.Icoon)){
+			Set MetaGroep.Icoon = ##class(TECH.Icoon).%New()	
+		}
 		Set MetaGroep.Icoon.RelatiefPad = KenmerkGroepMetadata.Icoon.RelatiefPad
 		
 		Set Status = MetaGroep.%Save()		
 		If ($$$ISERR(Status)) { 
 			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.SaveFailedException).%New("Kon de KenmerkGroepMetadata niet opslaan (Naam: '"_KenmerkGroepMetadata.Naam_"', ID: '"_KenmerkGroepMetadata.ID_"'",Status))
 		}
 		
-		Set MetaGroep = ""
-		
 	/// KenmerkMetadata opslaan
 		Set KenmerkMetadataIt = ##class(TECH.ListIterator).%New(KenmerkGroepMetadata.Kenmerken)
 		While KenmerkMetadataIt.HasNext() {
-			Do ..BewaarKenmerkMetadata(KenmerkMetadataIt.Next())
+			Do ..BewaarKenmerkMetadata(KenmerkMetadataIt.Next(), MetaGroep)
 		}
+		
+		Set MetaGroep = ""
 	
-	Do OperatieScope.Gelukt()
-	Quit $$$OK		
-Catch Set $ZTRAP = ""	
-	Set Exception = ##class(TECH.ExceptionHandler).Catch()
-	Set ErrorMsg = "BewaarKenmerkGroepMetadata heeft de wijzigingen niet kunnen opslaan : "_Exception.GeefOmschrijving()
-	Do OperatieScope.Gefaald(##class(TECH.Exceptions.BaseException).%New(Exception.GeefExceptionCode(),ErrorMsg))
-	Quit 0
+	Quit $$$OK
 ]]></Implementation>
 </Method>
 
@@ -491,7 +507,7 @@
 	Set $ZTRAP = "Catch"			  
 	
 	/// KenmerkGroepMetadata opslaan
-		Set KenmerkGroepMetadataIt = ##class(TECH.ListIterator).%New(KenmerkGroepMetadataLijst)
+		Set KenmerkGroepMetadataIt = ##class(TECH.ListIterator).%New(KenmerkGroepMetadataLijst.KenmerkGroepen)
 		While KenmerkGroepMetadataIt.HasNext() {
 			Do ..BewaarKenmerkGroepMetadata(KenmerkGroepMetadataIt.Next())
 		}
@@ -500,7 +516,7 @@
 	Quit $$$OK		
 Catch Set $ZTRAP = ""	
 	Set Exception = ##class(TECH.ExceptionHandler).Catch()
-	Set ErrorMsg = "BewaarKenmerkGroepMetadata heeft de wijzigingen niet kunnen opslaan : "_Exception.GeefOmschrijving()
+	Set ErrorMsg = "BewaarKenmerkGroepMetadataLijst heeft de wijzigingen niet kunnen opslaan : "_Exception.ToString()
 	Do OperatieScope.Gefaald(##class(TECH.Exceptions.BaseException).%New(Exception.GeefExceptionCode(),ErrorMsg))
 	Quit 0
 ]]></Implementation>
@@ -529,7 +545,7 @@
 	
 Catch Set $ZTRAP = ""	
 	Set Exception = ##class(TECH.ExceptionHandler).Catch()
-	Set ErrorMsg = "BewaarProductenKenmerken heeft de wijzigingen niet kunnen opslaan : "_Exception.GeefOmschrijving()
+	Set ErrorMsg = "BewaarProductenKenmerken heeft de wijzigingen niet kunnen opslaan : "_Exception.ToString()
 	Do OperatieScope.Gefaald(##class(TECH.Exceptions.BaseException).%New(Exception.GeefExceptionCode(),ErrorMsg))
 	
 	$$$TECHErrorTrapOff
Index: WS/PM/ProductService.cls.xml
===================================================================
diff -u -r2153 -r2156
--- WS/PM/ProductService.cls.xml	(.../ProductService.cls.xml)	(revision 2153)
+++ WS/PM/ProductService.cls.xml	(.../ProductService.cls.xml)	(revision 2156)
@@ -26,13 +26,10 @@
 	$$$chkRequiredParameter(Criteria)
 	$$$chkIsObject(Criteria)
 	
-	Set Result = ""
-	// [ Review CSC -> JBL ]
-	// If test is zinloos vermits deze altijd true zal teruggeven. Gewoon de call doen is voldoen.
-	// Zie ook commentaar in class utils klasse zelf bij de method
-	If (##class(TECH.ClassUtils).ValueIsValid(Criteria,"APPS.PM.dto.ZoekCriteria")){
-		Set Result = ##class(APPS.PM.ProductService).%New().ZoekProducten(Criteria)
-	}
+	Do ##class(TECH.ClassUtils).ValueIsValid(Criteria,"APPS.PM.dto.ZoekCriteria")
+
+	Set Result = ##class(APPS.PM.ProductService).%New().ZoekProducten(Criteria)
+
 	$$$TECHErrorTrapOff
 	Quit Result
 ]]></Implementation>
Index: APPS/common/DataService.cls.xml
===================================================================
diff -u -r2147 -r2156
--- APPS/common/DataService.cls.xml	(.../DataService.cls.xml)	(revision 2147)
+++ APPS/common/DataService.cls.xml	(.../DataService.cls.xml)	(revision 2156)
@@ -88,7 +88,6 @@
 	Set ProductData.Code = Product.GeefKorttekst()
 	Set ProductData.IdentNr = Product.GeefIdentNr()
 	Set ProductData.Omschrijving = Product.GeefLangtekst("N")
-	Set ProductData.Korttekst = Product.GeefKorttekst()
 	Set ProductData.Classificatie = ..GeefClassificatieData(ProductAPI.GeefProductClassificatie(ProductID).GeefClassificatie().GeefID())
 	Set ProductData.ClassificatieID = ProductData.Classificatie.ID
 	
Index: WS/PM/KenmerkenService.cls.xml
===================================================================
diff -u -r2153 -r2156
--- WS/PM/KenmerkenService.cls.xml	(.../KenmerkenService.cls.xml)	(revision 2153)
+++ WS/PM/KenmerkenService.cls.xml	(.../KenmerkenService.cls.xml)	(revision 2156)
@@ -11,6 +11,10 @@
 <Default>APPS.PM.KenmerkenService</Default>
 </Parameter>
 
+<Parameter name="XMLIGNORENULL">
+<Default>0</Default>
+</Parameter>
+
 <Parameter name="VeldBreedteInTekens">
 <Description>
 2011-03-02 : JBL : Deze ingestelde VeldBreedteInTekens is een tijdelijke oplossing. Later moet dit als data worden opgeslaan.</Description>
@@ -79,10 +83,11 @@
 	$$$TECHErrorTrapOn
 	$$$chkRequiredParameter(KenmerkGroepMetadataLijst)
 	$$$chkIsObject(KenmerkGroepMetadataLijst)
-	Set Result = ""
-	If (##class(TECH.ClassUtils).ValueIsValid(KenmerGroepMetadata,"APPS.PM.dto.Kenm.KenmerkMetadataList")){
-		Set Result = ##class(APPS.PM.KenmerkenService).%New().BewaarKenmerkGroepMetadataLijst(KenmerkGroepMetadataLijst)
-	}
+
+	Do ##class(TECH.ClassUtils).ValueIsValid(KenmerkGroepMetadataLijst,"APPS.PM.dto.Kenm.KenmerkMetadataList")
+	
+	Set Result = ##class(APPS.PM.KenmerkenService).%New().BewaarKenmerkGroepMetadataLijst(KenmerkGroepMetadataLijst)
+	
 	$$$TECHErrorTrapOff
 	Quit Result
 ]]></Implementation>
@@ -100,13 +105,10 @@
 	$$$chkRequiredParameter(ProductenKenmerken)
 	$$$chkIsObject(ProductenKenmerken)
 	
-	Set Result = ""
-	// [ Review CSC -> JBL ]
-	// If test is zinloos vermits deze altijd true zal teruggeven. Gewoon de call doen is voldoen.
-	// Zie ook commentaar in class utils klasse zelf bij de method
-	If (##class(TECH.ClassUtils).ValueIsValid(ProductenKenmerken,"APPS.PM.dto.Kenm.ProductenKenmerken")){
-		Set Result = ##class(APPS.PM.KenmerkenService).%New().BewaarProductenKenmerken(ProductenKenmerken)
-	}
+	Do ##class(TECH.ClassUtils).ValueIsValid(ProductenKenmerken,"APPS.PM.dto.Kenm.ProductenKenmerken")	
+	
+	Set Result = ##class(APPS.PM.KenmerkenService).%New().BewaarProductenKenmerken(ProductenKenmerken)
+	
 	$$$TECHErrorTrapOff
 	quit Result
 ]]></Implementation>
Index: APPS/PM/dto/Kenm/KenmerkGroepMetadata.cls.xml
===================================================================
diff -u -r2148 -r2156
--- APPS/PM/dto/Kenm/KenmerkGroepMetadata.cls.xml	(.../KenmerkGroepMetadata.cls.xml)	(revision 2148)
+++ APPS/PM/dto/Kenm/KenmerkGroepMetadata.cls.xml	(.../KenmerkGroepMetadata.cls.xml)	(revision 2156)
@@ -7,14 +7,16 @@
 <Super>%RegisteredObject,%XML.Adaptor</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
+<Parameter name="XMLIGNORENULL">
+<Default>1</Default>
+</Parameter>
+
 <Property name="ID">
 <Type>%String</Type>
-<Required>1</Required>
 </Property>
 
 <Property name="GeneratieTypeIsRelevant">
 <Type>%Boolean</Type>
-<Required>1</Required>
 </Property>
 
 <Property name="Icoon">