Index: APPS/PM/dto/Kenm/KenmerkMetadata.cls.xml
===================================================================
diff -u -r2064 -r2148
--- APPS/PM/dto/Kenm/KenmerkMetadata.cls.xml	(.../KenmerkMetadata.cls.xml)	(revision 2064)
+++ APPS/PM/dto/Kenm/KenmerkMetadata.cls.xml	(.../KenmerkMetadata.cls.xml)	(revision 2148)
@@ -5,50 +5,67 @@
 <Super>%RegisteredObject,%XML.Adaptor</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
-<Property name="Mogelijkheden">
+<Property name="ID">
 <Type>%String</Type>
-<Collection>list</Collection>
+<Required>1</Required>
 </Property>
 
-<Property name="Multipliciteit">
-<Type>APPS.PM.dto.Kenm.Multipliciteit</Type>
+<Property name="IsReadOnly">
+<Description>
+Bepaalde kenmerken mogen niet rechtstreeks door de gebruiker gewijzigd worden.
+Voor read-only kenmerken moet geen lijst van de gebruikte waarden opgezocht en doorgegeven worden aan de GUI.</Description>
+<Type>%Boolean</Type>
+<Required>1</Required>
 </Property>
 
-<Property name="Naam">
-<Type>%String</Type>
-</Property>
-
-<Property name="VeldBreedteInTekens">
+<Property name="IsWijzigbaar">
 <Description>
-De breedte van de kolom voor dit kenmer, uitgedrukt in antal tekens. </Description>
-<Type>%Integer</Type>
+Toestaan aan de client om de KenmerkMetaData te wijzigen</Description>
+<Type>%Boolean</Type>
+<Required>1</Required>
 </Property>
 
 <Property name="DataType">
 <Type>APPS.PM.enu.DataType</Type>
+<Required>1</Required>
 </Property>
 
 <Property name="DataTypeBeperking">
 <Type>APPS.PM.dto.Kenm.DataTypeBeperking</Type>
 </Property>
 
-<Property name="NieuweWaardeToegelaten">
-<Type>%Boolean</Type>
+<Property name="Mogelijkheden">
+<Type>%String</Type>
+<Collection>list</Collection>
 </Property>
 
-<Property name="IsReadOnly">
-<Description>
-Bepaalde kenmerken mogen niet rechtstreeks door de gebruiker gewijzigd worden.
-Voor read-only kenmerken moet geen lijst van de gebruikte waarden opgezocht en doorgegeven worden aan de GUI.</Description>
+<Property name="Multipliciteit">
+<Type>APPS.PM.dto.Kenm.Multipliciteit</Type>
+</Property>
+
+<Property name="Naam">
+<Type>%String</Type>
+<Required>1</Required>
+</Property>
+
+<Property name="NieuweWaardeToegelaten">
 <Type>%Boolean</Type>
+<Required>1</Required>
 </Property>
 
 <Property name="SuggereerWaarden">
 <Description>
 Indien die niet opstaat, moeten we ook geen lijst van de gebruikte waarden opzoeken en doorgeven aan de GUI.</Description>
 <Type>%Boolean</Type>
+<Required>1</Required>
 </Property>
 
+<Property name="VeldBreedteInTekens">
+<Description>
+De breedte van de kolom voor dit kenmerk, uitgedrukt in aantal tekens. </Description>
+<Type>%Integer</Type>
+</Property>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DataLocation>^APPS.PM.dto54D.KenmerkMetad5EED</DataLocation>
Index: vhUnitTest/APPS/PM/TestKenmerkenService.cls.xml
===================================================================
diff -u -r2140 -r2148
--- vhUnitTest/APPS/PM/TestKenmerkenService.cls.xml	(.../TestKenmerkenService.cls.xml)	(revision 2140)
+++ vhUnitTest/APPS/PM/TestKenmerkenService.cls.xml	(.../TestKenmerkenService.cls.xml)	(revision 2148)
@@ -20,6 +20,7 @@
 <Method name="OnBeforeAllTests">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
+	
  	set ..objTestData = ##class(vhUnitTest.DOM.PM.TestData).%New()
 	do ..objTestData.CreeerTestData()
 	
@@ -32,6 +33,7 @@
 <Method name="OnAfterAllTests">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
+	
 	do ..objTestData.VerwijderTestData()
 	do $$$AssertEquals($data(^KPR(1001,0)),0,"Producten verwijderd")
 	
@@ -708,5 +710,47 @@
 	Do $$$AssertEquals(Exception.GeefOmschrijving(),"Deze kenmerkgroep 'OEI' bevat geen masters of auto's.","Foutieve kenmerkgroep voor aanmaken van kenmerken sets is gedetecteerd.")
 ]]></Implementation>
 </Method>
+
+<Method name="TestBewaarNieuwKenmerkMetadata">
+<Description>
+Test het bewaren van één nieuwe metadata</Description>
+<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()
+	Set KenmerkMetadata.IsReadOnly = 0
+	Set KenmerkMetadata.IsWijzigbaar = 1
+	Set KenmerkMetadata.DataType = ##class(APPS.PM.enu.DataType).Tekst()
+	
+	Set DataTypeBeperking = ##class(APPS.PM.dto.Kenm.TekstBeperking).%New()
+	Set DataTypeBeperking.MaxAantalTekens = 20
+
+	Set KenmerkMetadata.DataTypeBeperking = DataTypeBeperking
+	Set KenmerkMetadata.Mogelijkheden = ##class(%ListOfObjects).%New()
+	Do KenmerkMetadata.Mogelijkheden.Insert("Mogelijkheid EEN")
+	Do KenmerkMetadata.Mogelijkheden.Insert("Mogelijkheid TWEE")
+	Do KenmerkMetadata.Mogelijkheden.Insert("Mogelijkheid DRIE")
+	
+	Set KenmerkMetadata.Multipliciteit = ##class(APPS.PM.dto.Kenm.Multipliciteit).%New()
+	Set KenmerkMetadata.Multipliciteit.Minimum = 0
+	Set KenmerkMetadata.Multipliciteit.Maximum = 1
+	
+	Set KenmerkMetadata.Naam = KenmerkMetadataNaam
+	Set KenmerkMetadata.NieuweWaardeToegelaten = 1
+	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 = ""
+	Set Status = ##class(Prod.Kenmerk.MetaDefinitie).%DeleteId(ID)
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: WS/PM/KenmerkenService.cls.xml
===================================================================
diff -u -r2140 -r2148
--- WS/PM/KenmerkenService.cls.xml	(.../KenmerkenService.cls.xml)	(revision 2140)
+++ WS/PM/KenmerkenService.cls.xml	(.../KenmerkenService.cls.xml)	(revision 2148)
@@ -70,6 +70,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BewaarKenmerkGroepMetadataLijst">
+<Description>
+De opgegeven KenmerkGroepMetadata bewaren, als een onbestaand KenmerkMetadata is, dan wordt een nieuwe gecreëerd. </Description>
+<FormalSpec>KenmerkGroepMetadataLijst:APPS.PM.dto.Kenm.KenmerkMetadataList</FormalSpec>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	$$$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)
+	}
+	$$$TECHErrorTrapOff
+	Quit Result
+]]></Implementation>
+</Method>
+
 <Method name="BewaarProductenKenmerken">
 <Description>
 De opgegeven ProductenKenmerken bewaren</Description>
Index: DOM/PM/enu/MetaDefinitieFormat.cls.xml
===================================================================
diff -u
--- DOM/PM/enu/MetaDefinitieFormat.cls.xml	(revision 0)
+++ DOM/PM/enu/MetaDefinitieFormat.cls.xml	(revision 2148)
@@ -0,0 +1,45 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.PM.enu.MetaDefinitieFormat">
+<ClassType>datatype</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%String</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="VALUELIST">
+<Default>,T,B,I,F</Default>
+</Parameter>
+
+<Parameter name="DISPLAYLIST">
+<Default>;Tekst,Boolean,Integer,Float</Default>
+</Parameter>
+
+<Method name="Tekst">
+<ClassMethod>1</ClassMethod>
+<CodeMode>expression</CodeMode>
+<Implementation><![CDATA["T"
+]]></Implementation>
+</Method>
+
+<Method name="Boolean">
+<ClassMethod>1</ClassMethod>
+<CodeMode>expression</CodeMode>
+<Implementation><![CDATA["B"
+]]></Implementation>
+</Method>
+
+<Method name="Integer">
+<ClassMethod>1</ClassMethod>
+<CodeMode>expression</CodeMode>
+<Implementation><![CDATA["I"
+]]></Implementation>
+</Method>
+
+<Method name="Float">
+<ClassMethod>1</ClassMethod>
+<CodeMode>expression</CodeMode>
+<Implementation><![CDATA["F"
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/PM/KenmerkenService.cls.xml
===================================================================
diff -u -r2140 -r2148
--- APPS/PM/KenmerkenService.cls.xml	(.../KenmerkenService.cls.xml)	(revision 2140)
+++ APPS/PM/KenmerkenService.cls.xml	(.../KenmerkenService.cls.xml)	(revision 2148)
@@ -50,7 +50,9 @@
 		{
 			Set AutoVariant = AutoVariantIterator.Next()
 			Set Product = ProductAPI.GeefProduct(AutoVariant)
-			Do AutoVariantenVanMaster.AutoVarianten.Insert(ProductService.Product2ProductIDs(Product))
+			Set DataService = ##class(APPS.common.DataService).%New()
+			Set ProductData = DataService.GeefProductData(Product.GeefPRNr())
+			Do AutoVariantenVanMaster.AutoVarianten.Insert(ProductData)
 		}
 		Do AutoVariantenVanMasters.Insert(AutoVariantenVanMaster)
 	}
@@ -253,7 +255,7 @@
 		If $IsObject(MetaGroep){
 			Set KenmerkGroepMetadata.MultipleKenmerkenSetsToegelaten = MetaGroep.MultipleKenmerkenSetsToegelaten()	
 			Set KenmerkGroepMetadata.Naam = MetaGroep.Omschrijving
-			
+			Set KenmerkGroepMetadata.ID = MetaGroep.%Id()
 			Set KenmerkGroepMetadata.Icoon = ##class(APPS.common.dto.Icoon).%New()
 			set KenmerkGroepMetadata.Icoon.RelatiefPad = MetaGroep.GeefRelatiefPadIcoon()		
 		}
@@ -268,12 +270,15 @@
 			Set KenmerkMetadata.Multipliciteit.Minimum = RS.Get("Verplicht")
 			Set KenmerkMetadata.Multipliciteit.Maximum = RS.Get("Multiple")
 			Set KenmerkMetadata.Naam = RS.Get("Kenmerk")
+			Set KenmerkMetadata.ID = RS.Get("ID")
 			Set KenmerkMetadata.NieuweWaardeToegelaten = RS.Get("NieuweWaardeToegelaten")
 			If (KenmerkMetadata.NieuweWaardeToegelaten = "") Set KenmerkMetadata.NieuweWaardeToegelaten  = "0"
 			Set KenmerkMetadata.SuggereerWaarden = RS.Get("SuggereerWaarden")
 			If (KenmerkMetadata.SuggereerWaarden = "") Set KenmerkMetadata.SuggereerWaarden  = "0"
 			Set KenmerkMetadata.IsReadOnly = RS.Get("IsReadOnly")
 			If (KenmerkMetadata.IsReadOnly = "") Set KenmerkMetadata.IsReadOnly  = "0"
+			Set KenmerkMetadata.IsWijzigbaar = RS.Get("IsWijzigbaar")
+			If (KenmerkMetadata.IsWijzigbaar = "") Set KenmerkMetadata.IsWijzigbaar  = "0"
 			
 			/// -------------------------------------------------------------------------
 			/// Als er geen nieuwe waarden zijn toegelaten dan de mogelijkheden invullen.
@@ -294,7 +299,7 @@
 			If (KenmerkMetadata.SuggereerWaarden)
 			{
 				/// WaardenSortering nagaan en als mogelijkheden invullen
-				Set WaardenSorteringLijst = $ListBuild("WaardenSortering","WaardenSortering2","WaardenSortering3")
+				Set WaardenSorteringLijst = $ListBuild("WaardenSortering","WaardenSortering2","WaardenSortering3","WaardenSortering4")
 				For i=1:1:$ListLength(WaardenSorteringLijst)
 				{
 					Set WaardenSortering = RS.Get($ListGet(WaardenSorteringLijst,i))
@@ -320,7 +325,9 @@
 				}
 			}			
 			
-			Set KenmerkMetadata.VeldBreedteInTekens = ..#VeldBreedteInTekens
+			Set KenmerkMetadata.VeldBreedteInTekens = RS.Get("VeldBreedteInTekens")
+			Set:(KenmerkMetadata.VeldBreedteInTekens="") KenmerkMetadata.VeldBreedteInTekens = ..#VeldBreedteInTekens
+			
 			If (RS.Get("Format") = "T"){
 				Set KenmerkMetadata.DataType = ##class(APPS.PM.enu.DataType).Tekst()
 				Set KenmerkMetadata.DataTypeBeperking = ##class(APPS.PM.dto.Kenm.TekstBeperking).%New()
@@ -348,6 +355,153 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BewaarKenmerkMetadata">
+<Description>
+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)){
+		Set MetaDefinitie = ##class(Prod.Kenmerk.MetaDefinitie).%OpenId(KenmerkMetadata.ID)
+	} 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)
+	
+	/// DataType beperkingen omzetten 
+	If ($IsObject(KenmerkMetadata.DataTypeBeperking)) {
+		Set DataTypeBeperking = KenmerkMetadata.DataTypeBeperking
+		If (DataTypeBeperking.%Extends("APPS.PM.dto.Kenm.GetalBeperking")) {
+			Set MetaDefinitie.MaxValue = DataTypeBeperking.Maximum
+			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)
+			
+		}ElseIf (DataTypeBeperking.%Extends("APPS.PM.dto.Kenm.TekstBeperking")) {
+			Set MetaDefinitie.Lengte = DataTypeBeperking.MaxAantalTekens
+		}Else{
+			Set Exception = ##class(TECH.Exceptions.BaseException).%New(##class(TECH.enu.ExceptionCode).Unimplemented(),DataTypeBeperking.%ClassName(1)_" kan niet worden omgezet.")
+			Do ##class(TECH.ExceptionHandler).Throw(Exception)
+		}
+	}
+	
+	/// Multipliciteit
+	If ($IsObject(KenmerkMetadata.Multipliciteit)){
+		Set MetaDefinitie.Multiple =  KenmerkMetadata.Multipliciteit.Maximum
+		Set MetaDefinitie.Verplicht =  KenmerkMetadata.Multipliciteit.Minimum
+	}
+	
+	/// Mogelijkheden
+	If ($IsObject(KenmerkMetadata.Mogelijkheden) && (KenmerkMetadata.Mogelijkheden.Count() > 0)) {
+		Set WaardenSorteringLB = ##class(TECH.ListUtils).ListToListbuild(KenmerkMetadata.Mogelijkheden)
+		Set MetaDefinitie.WaardenSortering = WaardenSorteringLB
+	}
+	
+	/// Wijzig gegevens
+	Set MetaDefinitie.WijzigGebruiker = ##class(TECH.Context.RuntimeContext).Instance().GeefGebruikerInitialen()
+	Set MetaDefinitie.WijzigTijdstip  = ##class(TECH.DateTime).CurrentTimeStamp()
+	
+	Set Status = MetaDefinitie.%Save()
+	If ($$$ISERR(Status)) { 
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.SaveFailedException).%New("Kon de KenmerkMetadata niet opslaan (Naam: '"_KenmerkMetadata.Naam_"', ID: '"_KenmerkMetadata.ID_"'",Status))
+	}
+	
+	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
+]]></Implementation>
+</Method>
+
+<Method name="BewaarKenmerkGroepMetadata">
+<Description>
+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)
+		Set MetaGroep.Code = KenmerkGroepMetadata.Code
+		Set MetaGroep.Omschrijving = KenmerkGroepMetadata.Naam
+		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 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
+]]></Implementation>
+</Method>
+
+<Method name="BewaarKenmerkGroepMetadataLijst">
+<Description>
+De opgegeven KenmerkGroepMetadata bewaren, als een onbestaand KenmerkMetadata is, dan wordt een nieuwe gecreëerd. </Description>
+<FormalSpec>KenmerkGroepMetadataLijst:APPS.PM.dto.Kenm.KenmerkMetadataList</FormalSpec>
+<Implementation><![CDATA[
+	Set OperatieScope = ##class(TECH.OperatieScope).StartMetTx()		
+	Set $ZTRAP = "Catch"			  
+	
+	/// KenmerkGroepMetadata opslaan
+		Set KenmerkGroepMetadataIt = ##class(TECH.ListIterator).%New(KenmerkGroepMetadataLijst)
+		While KenmerkGroepMetadataIt.HasNext() {
+			Do ..BewaarKenmerkGroepMetadata(KenmerkGroepMetadataIt.Next())
+		}
+	
+	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
+]]></Implementation>
+</Method>
+
 <Method name="BewaarProductenKenmerken">
 <Description>
 De opgegeven ProductenKenmerken bewaren</Description>
@@ -502,7 +656,7 @@
 	Set GeneratieType = ##class(APPS.PM.enu.GeneratieType).Single()
 	Set Waarden = ..GeefKenmerkWaarden(UnID, "OL", "GeneratieType")
 	If (Waarden '= ""){
-		Set GeneratieType = Waarden
+		Set GeneratieType = $ListGet(Waarden,1)
 	}
 	Quit GeneratieType
 ]]></Implementation>
Index: APPS/PM/impl/ConvertAPPStoDOMenu.cls.xml
===================================================================
diff -u -r1073 -r2148
--- APPS/PM/impl/ConvertAPPStoDOMenu.cls.xml	(.../ConvertAPPStoDOMenu.cls.xml)	(revision 1073)
+++ APPS/PM/impl/ConvertAPPStoDOMenu.cls.xml	(.../ConvertAPPStoDOMenu.cls.xml)	(revision 2148)
@@ -3,6 +3,7 @@
 <Class name="APPS.PM.impl.ConvertAPPStoDOMenu">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="ConvertStockType">
 <ClassMethod>1</ClassMethod>
@@ -22,7 +23,6 @@
 		}
 		
 		Quit ConvertedStockType
-
 ]]></Implementation>
 </Method>
 
@@ -57,7 +57,6 @@
 			Set ConvertedSoort = ##class(DOM.PM.enu.SoortProductID).ProductBoom()
 		}
 		Quit ConvertedSoort
-
 ]]></Implementation>
 </Method>
 
@@ -78,7 +77,25 @@
 			Set ConvertedType = ##class(DOM.PM.enu.CommercieelActiefType).BeperktActief()
 		}
 		Quit ConvertedType
+]]></Implementation>
+</Method>
 
+<Method name="ConvertDataType">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>DataType:APPS.PM.enu.DataType,AantalDecimalen:%Integer=0</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	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)){
+		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()
+	}ElseIf (DataType = ##class(APPS.PM.enu.DataType).Boolean()){
+		Set Type = ##class(DOM.PM.enu.MetaDefinitieFormat).Boolean()
+	}	
+	Quit Type
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/PM/dto/Kenm/KenmerkGroepMetadata.cls.xml
===================================================================
diff -u -r2002 -r2148
--- APPS/PM/dto/Kenm/KenmerkGroepMetadata.cls.xml	(.../KenmerkGroepMetadata.cls.xml)	(revision 2002)
+++ APPS/PM/dto/Kenm/KenmerkGroepMetadata.cls.xml	(.../KenmerkGroepMetadata.cls.xml)	(revision 2148)
@@ -7,8 +7,14 @@
 <Super>%RegisteredObject,%XML.Adaptor</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
+<Property name="ID">
+<Type>%String</Type>
+<Required>1</Required>
+</Property>
+
 <Property name="GeneratieTypeIsRelevant">
 <Type>%Boolean</Type>
+<Required>1</Required>
 </Property>
 
 <Property name="Icoon">
@@ -28,10 +34,12 @@
 
 <Property name="Code">
 <Type>%String</Type>
+<Required>1</Required>
 </Property>
 
 <Property name="Naam">
 <Type>%String</Type>
+<Required>1</Required>
 </Property>
 </Class>
 </Export>
Index: Prod/Kenmerk/MetaDefinitie.cls.xml
===================================================================
diff -u -r2064 -r2148
--- Prod/Kenmerk/MetaDefinitie.cls.xml	(.../MetaDefinitie.cls.xml)	(revision 2064)
+++ Prod/Kenmerk/MetaDefinitie.cls.xml	(.../MetaDefinitie.cls.xml)	(revision 2148)
@@ -195,6 +195,19 @@
 <InitialExpression>0</InitialExpression>
 </Property>
 
+<Property name="IsWijzigbaar">
+<Description>
+Toestaan aan de client om de MetaDefintie te wijzigen</Description>
+<Type>%Boolean</Type>
+<InitialExpression>0</InitialExpression>
+</Property>
+
+<Property name="VeldBreedteInTekens">
+<Description>
+De breedte van de kolom voor dit kenmerk, uitgedrukt in aantal tekens. </Description>
+<Type>%Integer</Type>
+</Property>
+
 <Method name="WaardenSorteringGet">
 <ProcedureBlock>0</ProcedureBlock>
 <ReturnType>%List</ReturnType>
@@ -490,12 +503,14 @@
 <SqlQuery>SELECT ID,Groep,Decimalen,DisableWhen,Eenheid,Format,
  Intern,Kenmerk,LangtekstTransform,LangtekstVolgNr,
  Lengte,MaxValue,MinValue,Multiple,MultipleDisplay,
- Omschrijving,Verplicht,VolgNr,WaardenSortering,ToelatenEC,SubGroep,SortType,NieuweWaardeToegelaten,IsReadOnly,SuggereerWaarden,WaardenSortering2,WaardenSortering3
+ Omschrijving,Verplicht,VolgNr,WaardenSortering,ToelatenEC,SubGroep,
+ SortType,NieuweWaardeToegelaten,IsReadOnly,SuggereerWaarden,WaardenSortering2,WaardenSortering3,WaardenSortering4,
+ IsWijzigbaar,VeldBreedteInTekens
 FROM Prod_Kenmerk.MetaDefinitie
 WHERE (Groep=:paGroep)
 ORDER BY VolgNr</SqlQuery>
 <Parameter name="CONTAINID" value="1"/>
-<Parameter name="ROWSPEC" value="ID,Groep,Decimalen,DisableWhen,Eenheid,Format,Intern,Kenmerk,LangtekstTransform,LangtekstVolgNr,Lengte,MaxValue,MinValue,Multiple,MultipleDisplay,Omschrijving,Verplicht,VolgNr,WaardenSortering,ToelatenEC,SubGroep,SortType,NieuweWaardeToegelaten,IsReadOnly,SuggereerWaarden,WaardenSortering2,WaardenSortering3"/>
+<Parameter name="ROWSPEC" value="ID,Groep,Decimalen,DisableWhen,Eenheid,Format,Intern,Kenmerk,LangtekstTransform,LangtekstVolgNr,Lengte,MaxValue,MinValue,Multiple,MultipleDisplay,Omschrijving,Verplicht,VolgNr,WaardenSortering,ToelatenEC,SubGroep,SortType,NieuweWaardeToegelaten,IsReadOnly,SuggereerWaarden,WaardenSortering2,WaardenSortering3,WaardenSortering4,IsWijzigbaar,VeldBreedteInTekens"/>
 </Query>
 
 <Query name="LijstPerGroep">
@@ -608,6 +623,15 @@
 <Value name="29">
 <Value>IsReadOnly</Value>
 </Value>
+<Value name="30">
+<Value>Wijzigbaar</Value>
+</Value>
+<Value name="31">
+<Value>IsWijzigbaar</Value>
+</Value>
+<Value name="32">
+<Value>VeldBreedteInTekens</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: vhUnitTest/DOM/PM/TestData.cls.xml
===================================================================
diff -u -r1619 -r2148
--- vhUnitTest/DOM/PM/TestData.cls.xml	(.../TestData.cls.xml)	(revision 1619)
+++ vhUnitTest/DOM/PM/TestData.cls.xml	(.../TestData.cls.xml)	(revision 2148)
@@ -136,6 +136,7 @@
 		If $$$ISERR(sc) write $$ParseStatus^vhLib(sc),!  ; throw error ofzo
 	}
 	For SubID = 1 : 1 : 5 Kill ^Prod.Ken.DataDefinitieD(PRNr_"."_SubID)
+	Set ..BLProdMulti = ""
 	Quit
 ]]></Implementation>
 </Method>
@@ -743,6 +744,8 @@
 		Do $$$ProdKenmSetAt("900","LadeBreedteMin")
 		Do $$$ProdKenmSetAt("900","LadeBreedteMax")
 	}
+	
+	Set ..BLProdMulti = ""
 
 	Quit
 ]]></Implementation>
Index: APPS/PM/dto/Kenm/KenmerkMetadataList.cls.xml
===================================================================
diff -u -r1519 -r2148
--- APPS/PM/dto/Kenm/KenmerkMetadataList.cls.xml	(.../KenmerkMetadataList.cls.xml)	(revision 1519)
+++ APPS/PM/dto/Kenm/KenmerkMetadataList.cls.xml	(.../KenmerkMetadataList.cls.xml)	(revision 2148)
@@ -11,6 +11,7 @@
 <Property name="KenmerkGroepen">
 <Type>APPS.PM.dto.Kenm.KenmerkGroepMetadata</Type>
 <Collection>list</Collection>
+<Required>1</Required>
 </Property>
 </Class>
 </Export>