Index: WS/PM/KenmerkenService.cls.xml
===================================================================
diff -u -r2160 -r2173
--- WS/PM/KenmerkenService.cls.xml	(.../KenmerkenService.cls.xml)	(revision 2160)
+++ WS/PM/KenmerkenService.cls.xml	(.../KenmerkenService.cls.xml)	(revision 2173)
@@ -86,10 +86,9 @@
 
 	Do ##class(TECH.ClassUtils).ValueIsValid(KenmerkGroepMetadataLijst,"APPS.PM.dto.Kenm.KenmerkMetadataList")
 	
-	Set Result = ##class(APPS.PM.KenmerkenService).%New().BewaarKenmerkGroepMetadataLijst(KenmerkGroepMetadataLijst)
+	Do ##class(APPS.PM.KenmerkenService).%New().BewaarKenmerkGroepMetadataLijst(KenmerkGroepMetadataLijst)
 	
 	$$$TECHErrorTrapOff
-	Quit Result
 ]]></Implementation>
 </Method>
 
@@ -98,7 +97,6 @@
 De opgegeven ProductenKenmerken bewaren</Description>
 <ClassMethod>1</ClassMethod>
 <FormalSpec>ProductenKenmerken:APPS.PM.dto.Kenm.ProductenKenmerken</FormalSpec>
-<ReturnType>%Status</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
 	$$$TECHErrorTrapOn
@@ -107,10 +105,9 @@
 	
 	Do ##class(TECH.ClassUtils).ValueIsValid(ProductenKenmerken,"APPS.PM.dto.Kenm.ProductenKenmerken")	
 	
-	Set Result = ##class(APPS.PM.KenmerkenService).%New().BewaarProductenKenmerken(ProductenKenmerken)
+	Do ##class(APPS.PM.KenmerkenService).%New().BewaarProductenKenmerken(ProductenKenmerken)
 	
 	$$$TECHErrorTrapOff
-	quit Result
 ]]></Implementation>
 </Method>
 
Index: APPS/PM/KenmerkenService.cls.xml
===================================================================
diff -u -r2160 -r2173
--- APPS/PM/KenmerkenService.cls.xml	(.../KenmerkenService.cls.xml)	(revision 2160)
+++ APPS/PM/KenmerkenService.cls.xml	(.../KenmerkenService.cls.xml)	(revision 2173)
@@ -446,8 +446,6 @@
 	
 	Set MetaDefinitie = ""
 	Set Groep = ""
-	
-	Quit $$$OK
 ]]></Implementation>
 </Method>
 
@@ -457,43 +455,41 @@
 <FormalSpec>KenmerkGroepMetadata:APPS.PM.dto.Kenm.KenmerkGroepMetadata</FormalSpec>
 <Implementation><![CDATA[
 	/// KenmerkGroepMetadata opslaan
-		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()			
+	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_")"))
 			}
-		} 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 = ##class(Prod.Kenmerk.MetaGroep).%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))
-		}
-		
+	} 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))
+	}
+	
 	/// KenmerkMetadata opslaan
-		Set KenmerkMetadataIt = ##class(TECH.ListIterator).%New(KenmerkGroepMetadata.Kenmerken)
-		While KenmerkMetadataIt.HasNext() {
-			Do ..BewaarKenmerkMetadata(KenmerkMetadataIt.Next(), MetaGroep)
-		}
-		
-		Set MetaGroep = ""
+	Set KenmerkMetadataIt = ##class(TECH.ListIterator).%New(KenmerkGroepMetadata.Kenmerken)
+	While KenmerkMetadataIt.HasNext() {
+		Do ..BewaarKenmerkMetadata(KenmerkMetadataIt.Next(), MetaGroep)
+	}
 	
-	Quit $$$OK
+	Set MetaGroep = ""
 ]]></Implementation>
 </Method>
 
@@ -506,49 +502,40 @@
 	Set $ZTRAP = "Catch"			  
 	
 	/// KenmerkGroepMetadata opslaan
-		Set KenmerkGroepMetadataIt = ##class(TECH.ListIterator).%New(KenmerkGroepMetadataLijst.KenmerkGroepen)
-		While KenmerkGroepMetadataIt.HasNext() {
-			Do ..BewaarKenmerkGroepMetadata(KenmerkGroepMetadataIt.Next())
-		}
+	Set KenmerkGroepMetadataIt = ##class(TECH.ListIterator).%New(KenmerkGroepMetadataLijst.KenmerkGroepen)
+	While KenmerkGroepMetadataIt.HasNext() {
+		Do ..BewaarKenmerkGroepMetadata(KenmerkGroepMetadataIt.Next())
+	}
 	
 	Do OperatieScope.Gelukt()
-	Quit $$$OK		
+	Quit	
 Catch Set $ZTRAP = ""	
 	Set Exception = ##class(TECH.ExceptionHandler).Catch()
 	Set ErrorMsg = "BewaarKenmerkGroepMetadataLijst heeft de wijzigingen niet kunnen opslaan : "_Exception.ToString()
-	Do OperatieScope.Gefaald(##class(TECH.Exceptions.BaseException).%New(Exception.GeefExceptionCode(),ErrorMsg))
-	Quit 0
+	Do OperatieScope.Gefaald()
+	Do ##class(TECH.ExceptionHandler).Rethrow(##class(TECH.Exceptions.BaseException).%New(Exception.GeefExceptionCode(),ErrorMsg))
 ]]></Implementation>
 </Method>
 
 <Method name="BewaarProductenKenmerken">
 <Description>
 De opgegeven ProductenKenmerken bewaren</Description>
 <FormalSpec>ProductenKenmerken:APPS.PM.dto.Kenm.ProductenKenmerken</FormalSpec>
-<ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	$$$TECHErrorTrapOn
-	$$$chkRequiredParameter(ProductenKenmerken)
-	$$$chkIsObject(ProductenKenmerken)
 	/// Scope ophalen
 	Set OperatieScope = ##class(TECH.OperatieScope).StartMetTx()
-		
 	Set $ZTRAP = "Catch"	
-		  
 	Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
 	Set Status = ProductAPI.ZetKenmerkWaardenInBulk(ProductenKenmerken)
-	
 	Do OperatieScope.Gelukt()
-	$$$TECHErrorTrapOff
-	Quit $$$OK	
+	Set $ZTRAP = ""
+	Quit
 	
 Catch Set $ZTRAP = ""	
 	Set Exception = ##class(TECH.ExceptionHandler).Catch()
 	Set ErrorMsg = "BewaarProductenKenmerken heeft de wijzigingen niet kunnen opslaan : "_Exception.ToString()
-	Do OperatieScope.Gefaald(##class(TECH.Exceptions.BaseException).%New(Exception.GeefExceptionCode(),ErrorMsg))
-	
-	$$$TECHErrorTrapOff
-	Quit 0
+	Do OperatieScope.Gefaald()
+	Do ##class(TECH.ExceptionHandler).Rethrow(##class(TECH.Exceptions.BaseException).%New(Exception.GeefExceptionCode(),ErrorMsg))
 ]]></Implementation>
 </Method>