Index: Prod/Kenmerk/DataDefinitie.cls.xml
===================================================================
diff -u -r2588 -r8926
--- Prod/Kenmerk/DataDefinitie.cls.xml	(.../DataDefinitie.cls.xml)	(revision 2588)
+++ Prod/Kenmerk/DataDefinitie.cls.xml	(.../DataDefinitie.cls.xml)	(revision 8926)
@@ -148,27 +148,33 @@
 <ProcedureBlock>0</ProcedureBlock>
 <ReturnType>%Library.Status</ReturnType>
 <Implementation><![CDATA[
- //w "Pre : "_$zobjval(,5,0,3,5),!
  //DataIndex waarden verwijderen
  Do ##class(Prod.Kenmerk.DataIndex).DeleteWaarden(%this.Kenmerk.Groep.Code,%this.Kenmerk.Kenmerk,..UnID)   ; %this.ProductGetObjectId())
 
  //DataIndex waarden opnieuw invullen (wordt apart gedaan om SaveStatus straks deftig te kunnen opvangen)
- New Waarde, Key
- Set Key=""
- For  Set Waarde=%this.Waarden.GetNext(.Key) Quit:Key=""  Do
- . Do ##class(Prod.Kenmerk.DataIndex).NewWaarde(%this.Kenmerk.Groep.Code,%this.Kenmerk.Kenmerk,..UnID,Waarde)
- 
- //De verschillende waarden in de vertalingstabel aanmaken
- //Voorwaarden: Geen substitutie
- New SaveOK,VTAKey,VTA   //VertaalTransAbstract
+ New Waarde, Key, SaveOK,VTAKey,VTA   //VertaalTransAbstract
  Set (VTAKey,Key)=""
  Set SaveOK=$$$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)
+ }
  
- For  Set Waarde=%this.Waarden.GetNext(.Key) Quit:($$$ISERR(SaveOK))  Quit:Key=""  Do
- .For  Set VTA=%this.Kenmerk.VertaalTransforms.GetNext(.VTAKey) Quit:($$$ISERR(SaveOK))  Quit:(VTAKey="")  Do
- ..If 'VTA.IsSubstitutie() Do  //Enkel aanmaken wanneer geen substitutie
- ...Set SaveOK=VTA.FWDCreateLanguageObjsViaVTList(Waarde)   //Respectievelijke CreateLangObj's aanroepen
- 
  if SaveOK set SaveOK =  ##super(IsNew)
  
  If $$$ISOK(SaveOK) && (..IsEventRaiser)
@@ -183,7 +189,6 @@
  	Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(Event)
  }
  
- //w "After : "_$zobjval(,5,0,3,5),!
  Quit SaveOK
 ]]></Implementation>
 </Method>