Index: vhTest/Utils/AXimpl/PM/Maatwerk/TaxKenmerken.cls.xml
===================================================================
diff -u -r53409 -r53600
--- vhTest/Utils/AXimpl/PM/Maatwerk/TaxKenmerken.cls.xml	(.../TaxKenmerken.cls.xml)	(revision 53409)
+++ vhTest/Utils/AXimpl/PM/Maatwerk/TaxKenmerken.cls.xml	(.../TaxKenmerken.cls.xml)	(revision 53600)
@@ -48,6 +48,8 @@
 	Do ..SetAxdEntityAttributeEnInsertInLijst(Toepassing, "Toepassing", ##class(DOM.PM.enu.TAORToepassing).Lade(), TaxKenmerken)
 	Do ..SetAxdEntityAttributeEnInsertInLijst(IsBinnenlade, "IsBinnenlade", "true", TaxKenmerken)
 	
+	Do ..ReplaceAxdEntityAttribute("FrontBevestiging", "", TaxKenmerken)
+	
 	Do ..ZetDefaultNietMeeleverenKenmerken(TaxKenmerken)
 	
 	Quit TaxKenmerken
@@ -377,6 +379,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ReplaceOrAddAxdEntityAttribute">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>AxdEntityAttribute:AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute,AxdEntityAttributeName:%String,AxdEntityAttributeValueTxt:%String,TaxKenmerken:%ListOfObjects</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If ##class(TECH.ListUtils).ExistsPropertyWithValue(TaxKenmerken,"Name",AxdEntityAttributeName) {
+		Do ..ReplaceAxdEntityAttribute(AxdEntityAttributeName, AxdEntityAttributeValueTxt, TaxKenmerken)
+	}
+	Else {
+		Do ..SetAxdEntityAttributeEnInsertInLijst(AxdEntityAttribute, AxdEntityAttributeName, AxdEntityAttributeValueTxt, TaxKenmerken)
+	}
+]]></Implementation>
+</Method>
+
 <Method name="SetAxdEntityAttributeEnInsertInLijst">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>AxdEntityAttribute:AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute,AxdEntityAttributeName:%String,AxdEntityAttributeValueTxt:%String,TaxKenmerken:%ListOfObjects</FormalSpec>
@@ -387,6 +403,21 @@
 	Do TaxKenmerken.Insert(AxdEntityAttribute)
 ]]></Implementation>
 </Method>
+
+<Method name="ReplaceAxdEntityAttribute">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>AxdEntityAttributeName:%String,AxdEntityAttributeValueTxt:%String,TaxKenmerken:%ListOfObjects</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim AxdEntityAttribute As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(TECH.ObjectListUtils).FindPropertyWithValue(TaxKenmerken,"Name",AxdEntityAttributeName)
+	If $IsObject(AxdEntityAttribute) {
+		Set AxdEntityAttribute.ValueTxt = AxdEntityAttributeValueTxt
+	}
+	Else {
+		Do ##class(TECH.Exceptions.InvalidInputException).Throw("Geen AxdEntityAttribute met name = '"_AxdEntityAttributeName_"' gevonden in TaxKenmerken. De waarde kan dus niet vervangen worden.")
+	}
+]]></Implementation>
+</Method>
 </Class>