Index: APPS/PM/KenmerkenService.cls.xml
===================================================================
diff -u -r1377 -r1507
--- APPS/PM/KenmerkenService.cls.xml	(.../KenmerkenService.cls.xml)	(revision 1377)
+++ APPS/PM/KenmerkenService.cls.xml	(.../KenmerkenService.cls.xml)	(revision 1507)
@@ -2,7 +2,10 @@
 <Export generator="Cache" version="9">
 <Class name="APPS.PM.KenmerkenService">
 <Description>
-JBL + 2011-02-28</Description>
+JBL + 2011-02-28 
+TO DO  : 2011-06-09 : JBL
+De controle bij BewaarKenmerk moet niet in de service controleren of een kenmerk gewijzigd is.
+Dit moet verplaatst worden naar het persistente Prod.DataDefinitie object.</Description>
 <IncludeCode>TECH.Error</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
@@ -275,84 +278,98 @@
 	/// Scope ophalen
 	Set OperatieScope = ##class(TECH.OperatieScope).StartMetTx()
 	
-	Set KenmerkenModifiedEventData = ##class(TECH.Events.KenmerkenModifiedEventData).%New()
+	Set $ZTRAP = "Catch"
+		  
+	Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
+	Set Status = ProductAPI.ZetKenmerkWaardenInBulk(ProductenKenmerken)
 	
-	Set ProductKenmerkenIt = ##class(TECH.ListIterator).%New(ProductenKenmerken.Kenmerken)
-	While (ProductKenmerkenIt.HasNext())
-	{
-		Set ProductKenmerken = ProductKenmerkenIt.Next()	
-		Set ProductIDs = ProductKenmerken.IDs
-		
-		Set UnID = ProductIDs.PRNr
-		/// Als er een MultipleNr is opgegeven, de UnID correct invullen
-		If (ProductIDs.MultipleNr '= "")
-		{
-			Set UnID = ##class(BL.Kenm.ProdMulti).GetFullID(ProductIDs.PRNr,ProductIDs.MultipleNr)
-		}
-		
-		Set ErrorMsg = ""
-		Set ProductKenmerkIt = ##class(TECH.ListIterator).%New(ProductKenmerken.Kenmerken)
-		While (ProductKenmerkIt.HasNext() && (ErrorMsg = ""))
-		{
-			Set ProductKenmerk = ProductKenmerkIt.Next()
-			
-			Set Identifier = ##class(Prod.Kenmerk.DataDefinitie).BuildDataDefinitionID(ProductKenmerk.Groep,UnID,ProductKenmerk.KenmerkNaam)
-			If '##class(Prod.Kenmerk.DataDefinitie).%ExistsId(Identifier)
-			{
-				Set ErrorMsg = "Kenmerk "_Identifier_" voor UnID "_UnID_" is niet gevonden."
-			}Else{
-				Set Kenmerk = ##class(Prod.Kenmerk.DataDefinitie).OpenId(Identifier)			  
-		
-				If ($IsObject(Kenmerk))
-				{
-					// Controleer of de nieuwe waarden verschillen
-					Set IsGewijzigd = (ProductKenmerk.Waarden.Count() '= Kenmerk.Waarden.Count())
-					Set i = 0
-					
-					While ('IsGewijzigd) && (i < Kenmerk.Waarden.Count())
-					{
-						Set i = i + 1
-						Set IsGewijzigd = (ProductKenmerk.Waarden.GetAt(i) '= Kenmerk.Waarden.GetAt(i))
-					}
-					
-					If (IsGewijzigd)
-					{
-						Do Kenmerk.Waarden.Clear()
-						Do ##class(TECH.ListUtils).CopyList(ProductKenmerk.Waarden,Kenmerk.Waarden)
-						Set Kenmerk.IsEventRaiser = 0
-						Set Status = Kenmerk.Save()
-						If $$$ISERR(Status)
-						{
-							Set ErrorMsg = "Kenmerk "_ProductKenmerk.Groep_"||"_ProductKenmerk.KenmerkNaam_" voor UnID "_UnID_" kon niet worden gesaved.("_$$ParseStatus^vhLib(Status)_")"
-						}
-						Else
-						{
-							Set WaardenLijst = ##class(%ListOfDataTypes).%New()
-							Do ##class(TECH.ListUtils).CopyList(Kenmerk.Waarden,WaardenLijst)
-							Do KenmerkenModifiedEventData.Wijzigingen.Insert(##class(TECH.Events.KenmerkModifiedEventData).%New(UnID,ProductKenmerk.Groep,ProductKenmerk.KenmerkNaam,WaardenLijst))
-						}
-					}
-				}Else
-				{
-					Set ErrorMsg = "Kenmerk "_ProductKenmerk.Groep_"||"_ProductKenmerk.KenmerkNaam_" voor UnID "_UnID_" is niet gevonden."
-				}
-			}
-		}
-	}	
-	If (ErrorMsg = ""){
-		Do OperatieScope.Gelukt()
-		
-		If (KenmerkenModifiedEventData.Wijzigingen.Count() > 0)
-		{
-			Set KenmerkenModifiedEvent = ##class(TECH.Events.KenmerkenModifiedEvent).%New(KenmerkenModifiedEventData)
-			Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(KenmerkenModifiedEvent)
-		}
-		
-	}Else{
-		Do OperatieScope.Gefaald(ErrorMsg)
+	Do OperatieScope.Gelukt()
+	Quit $$$OK	
+	
+Catch Set $ZTRAP = ""
+	Set Exception = ##class(TECH.ExceptionHandler).Catch()
+	Set ErrorMsg = "BewaarProductenKenmerken heeft de wijzigingen niet kunnen opslaan "_Exception.GeefOmschrijving()
+	Do OperatieScope.Gefaald(##class(TECH.Exceptions.BaseException).%New(Exception.GeefExceptionCode(),ErrorMsg))
+	Quit $ECODE
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderKenmerkenSets">
+<Description>
+Verwijder voor één KenmerkGroep de opgegeven UnIDs</Description>
+<FormalSpec>KenmerkGroep:%String,UnIDs:%ListOfDataTypes</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	$$$chkRequiredParameter(KenmerkGroep)
+	$$$chkRequiredParameter(UnIDs)
+	$$$chkIsObject(UnIDs)
+	
+	/// Scope ophalen
+	Set OperatieScope = ##class(TECH.OperatieScope).StartMetTx()
+	
+	Set $ZTRAP = "Catch"
+		  
+	Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()	
+	Set GewijzigdePRNrs = ##class(%ListOfDataTypes).%New()
+	
+	Set UnIDIt = ##class(TECH.ListIterator).%New(UnIDs)
+	While (UnIDIt.HasNext()){
+		Set UnID = UnIDIt.Next()
+		Set PRNr = ##class(BL.Kenm.ProdMulti).GetCommonID(UnID)
+		Set ProductKenmerkenSets = ProductAPI.GeefProductKenmerkenSets(PRNr,KenmerkGroep)
+		Set NieuweGewijzigdePRNrs = ProductKenmerkenSets.VerwijderKenmerkenSet(UnID)
+		Set GewijzigdePRNrs = ##class(TECH.ListUtils).CopyList(NieuweGewijzigdePRNrs,GewijzigdePRNrs)
 	}
-	Quit $$$OK
+	Do OperatieScope.Gelukt()
+	Quit GewijzigdePRNrs	
+	
+Catch Set $ZTRAP = ""
+	Set UnIDsOutput = $$LCVT^vhLib(##class(TECH.ListUtils).ListToListbuild(UnIDs))
+	Set Exception = ##class(TECH.ExceptionHandler).Catch()
+	Set ErrorMsg = "VerwijderKenmerkenSets heeft de KenmerkenSets niet kunnen verwijderen. "_Exception.GeefOmschrijving()
+	Do OperatieScope.Gefaald(##class(TECH.Exceptions.BaseException).%New(Exception.GeefExceptionCode(),ErrorMsg))
+	Set $ECODE = ""
+	Do GewijzigdePRNrs.Clear() /// Omdat operatie gefaald is, en rollback plaats vond, de GewijzigdePRNrs leeg maken.
+	Quit GewijzigdePRNrs
 ]]></Implementation>
 </Method>
+
+<Method name="MaakNieuweKenmerkenSets">
+<Description>
+Maak nieuwe kenmerkenset voor de opgegeven UnIDs</Description>
+<FormalSpec>KenmerkGroep:%String,UnIDs:%ListOfDataTypes</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	$$$chkRequiredParameter(KenmerkGroep)
+	$$$chkRequiredParameter(UnIDs)
+	$$$chkIsObject(UnIDs)
+	
+	/// Scope ophalen
+	Set OperatieScope = ##class(TECH.OperatieScope).StartMetTx()
+	
+	Set $ZTRAP = "Catch"
+		  
+	Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()	
+	Set GewijzigdePRNrs = ##class(%ListOfDataTypes).%New()
+	
+	Set UnIDIt = ##class(TECH.ListIterator).%New(UnIDs)
+	While (UnIDIt.HasNext()){
+		Set UnID = UnIDIt.Next()
+		Set PRNr = ##class(BL.Kenm.ProdMulti).GetCommonID(UnID)
+		Set ProductKenmerkenSets = ProductAPI.GeefProductKenmerkenSets(PRNr,KenmerkGroep)
+		Set NieuweGewijzigdePRNrs = ProductKenmerkenSets.MaakNieuweKenmerkenSet(UnID)
+		Set GewijzigdePRNrs = ##class(TECH.ListUtils).CopyList(NieuweGewijzigdePRNrs,GewijzigdePRNrs)
+	}
+	Do OperatieScope.Gelukt()
+	Quit GewijzigdePRNrs	
+	
+Catch Set $ZTRAP = ""
+	Set Exception = ##class(TECH.ExceptionHandler).Catch()
+	Set ErrorMsg = "MaakNieuweKenmerkenSet heeft de KenmerkenSets niet kunnen aanmaken: "_Exception.GeefOmschrijving()
+	Do OperatieScope.Gefaald(##class(TECH.Exceptions.BaseException).%New(Exception.GeefExceptionCode(),ErrorMsg))
+	Do GewijzigdePRNrs.Clear() /// Omdat operatie gefaald is, en rollback plaats vond, de GewijzigdePRNrs leeg maken.
+	Quit GewijzigdePRNrs
+]]></Implementation>
+</Method>
 </Class>
 </Export>