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