Index: Prod/Kenmerk/DataDefinitie.cls.xml
===================================================================
diff -u -r65542 -r65543
--- Prod/Kenmerk/DataDefinitie.cls.xml	(.../DataDefinitie.cls.xml)	(revision 65542)
+++ Prod/Kenmerk/DataDefinitie.cls.xml	(.../DataDefinitie.cls.xml)	(revision 65543)
@@ -197,36 +197,36 @@
 
 <Method name="OnAfterSaveRebuildDataIndex">
 <Private>1</Private>
-<ProcedureBlock>0</ProcedureBlock>
+<ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
- //DataIndex waarden verwijderen
- Do ##class(Prod.Kenmerk.DataIndex).DeleteWaarden(%this.Kenmerk.Groep.Code,%this.Kenmerk.Kenmerk,..UnID)   ; %this.ProductGetObjectId())
+	//DataIndex waarden verwijderen
+	Do ##class(Prod.Kenmerk.DataIndex).DeleteWaarden(..Kenmerk.Groep.Code, ..Kenmerk.Kenmerk, ..UnID)   ; %this.ProductGetObjectId())
 
- //DataIndex waarden opnieuw invullen (wordt apart gedaan om SaveStatus straks deftig te kunnen opvangen)
- New Waarde, Key, SaveOK,VTAKey,VTA   //VertaalTransAbstract
- New EventData,Event
- Set (VTAKey,Key)=""
- Set SaveOK=$$$OK
+	//DataIndex waarden opnieuw invullen (wordt apart gedaan om SaveStatus straks deftig te kunnen opvangen)
+	#dim SaveOK As %Status = $$$OK
 
- Set Waarde=%this.Waarden.GetNext(.Key)
- While Key '= "" {
-	 If Waarde = "" {
-		Do ##class(Prod.Kenmerk.DataDefinitie).DeleteKM(%this.Kenmerk.Groep.Code,..UnID,%this.Kenmerk.Kenmerk)
-	 } Else {
-		 Do ##class(Prod.Kenmerk.DataIndex).NewWaarde(%this.Kenmerk.Groep.Code,%this.Kenmerk.Kenmerk,..UnID,Waarde)
-	 
-		 Set VTA=%this.Kenmerk.VertaalTransforms.GetNext(.VTAKey)
-		 While ($$$ISOK(SaveOK)) && (VTA '= "") {
-			 If 'VTA.IsSubstitutie()  //Enkel aanmaken wanneer geen substitutie
-			 {
-				 Set SaveOK=VTA.FWDCreateLanguageObjsViaVTList(Waarde)   //Respectievelijke CreateLangObj's aanroepen
-			 }
-			 Set VTA=%this.Kenmerk.VertaalTransforms.GetNext(.VTAKey)
-		 }
-	 }	
-	 Set Waarde=%this.Waarden.GetNext(.Key)
- }
+	#dim VTA As Prod.Kenmerk.VertaalTransAbstract = ""
+	#dim VTAKey As %String = ""
+	#dim Key As %String = ""
+	#dim Waarde As %CacheString = ..Waarden.GetNext(.Key)
+	While Key '= "" {
+		If Waarde = "" {
+			Do ##class(Prod.Kenmerk.DataDefinitie).DeleteKM(..Kenmerk.Groep.Code, ..UnID, ..Kenmerk.Kenmerk)
+		} Else {
+			Do ##class(Prod.Kenmerk.DataIndex).NewWaarde(..Kenmerk.Groep.Code, ..Kenmerk.Kenmerk, ..UnID, Waarde)
+			
+			Set VTA = ..Kenmerk.VertaalTransforms.GetNext(.VTAKey)
+			While ($$$ISOK(SaveOK)) && (VTA '= "") {
+				If 'VTA.IsSubstitutie()  //Enkel aanmaken wanneer geen substitutie
+				{
+					Set SaveOK = VTA.FWDCreateLanguageObjsViaVTList(Waarde)   //Respectievelijke CreateLangObj's aanroepen
+				}
+				Set VTA = ..Kenmerk.VertaalTransforms.GetNext(.VTAKey)
+			}
+		}	
+		Set Waarde = ..Waarden.GetNext(.Key)
+	}
 
 	Quit SaveOK
 ]]></Implementation>
@@ -237,20 +237,17 @@
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
- Set SaveOK=$$$OK
- If $$$ISOK(SaveOK) && (..IsEventRaiser)
- {
-	// Het heeft geen zin om op de modified flag van "..Waarden" te gaan controleren, deze zal altijd false zijn.
-	// De Modified flag blijft bewaard in de onaftersave, maar de save van ..Waarden werd reeds volledig afgewerkt.
-	// 
-	// Het maakt ook niet uit of het een insert of update is. Dit is altijd een wijziging van de waarden van een kenmerk.
-	// Bij een insert is de wijziging van "Waarden leeg" naar "Waarden gevuld"
-	Set EventData = ##class(TECH.Events.KenmerkModifiedEventData).%New(..UnID,..Kenmerk.Groep.Code,..Kenmerk.Kenmerk,..Waarden.%ConstructClone(1))
-	Set Event = ##class(TECH.Events.KenmerkModifiedEvent).%New(EventData)
- 	Do ##class(TECH.Context).Instance().GeefPubSubAPI().GeefEventRaiser().RaiseEventSync(Event)
- }
- 
- Quit SaveOK
+	If (..IsEventRaiser) {
+		// Het heeft geen zin om op de modified flag van "..Waarden" te gaan controleren, deze zal altijd false zijn.
+		// De Modified flag blijft bewaard in de onaftersave, maar de save van ..Waarden werd reeds volledig afgewerkt.
+		// 
+		// Het maakt ook niet uit of het een insert of update is. Dit is altijd een wijziging van de waarden van een kenmerk.
+		// Bij een insert is de wijziging van "Waarden leeg" naar "Waarden gevuld"
+		Set EventData = ##class(TECH.Events.KenmerkModifiedEventData).%New(..UnID,..Kenmerk.Groep.Code,..Kenmerk.Kenmerk,..Waarden.%ConstructClone(1))
+		Set Event = ##class(TECH.Events.KenmerkModifiedEvent).%New(EventData)
+		Do ##class(TECH.Context).Instance().GeefPubSubAPI().GeefEventRaiser().RaiseEventSync(Event)
+	}
+	Quit $$$OK
 ]]></Implementation>
 </Method>