Index: vhUnitTest/AXimpl/Formatter/FormatADUPriceContrMargineId/Test.cls.xml
===================================================================
diff -u -r46109 -r48043
--- vhUnitTest/AXimpl/Formatter/FormatADUPriceContrMargineId/Test.cls.xml	(.../Test.cls.xml)	(revision 46109)
+++ vhUnitTest/AXimpl/Formatter/FormatADUPriceContrMargineId/Test.cls.xml	(.../Test.cls.xml)	(revision 48043)
@@ -3,51 +3,34 @@
 <Class name="vhUnitTest.AXimpl.Formatter.FormatADUPriceContrMargineId.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="Test: In ADUPriceContrMargineId wordt het punt vervangen door een komma zonder afronding of afkapping ongeacht aantal decimalen">
+<Method name="Test: In ADUPriceContrMargineId wordt het punt vervangen door een komma met afkapping op of toevoeging tot 2 decimalen">
 <Implementation><![CDATA[
 	Set Formatter = ##class(AXimpl.Formatter).%New()
 	#dim ADUPriceContrMargineId As %String
 	
 	Set ADUPriceContrMargineId = Formatter.FormatADUPriceContrMargineId("-25.123456")
-	Do $$$AssertEquals(ADUPriceContrMargineId,"-25,123456")
+	Do $$$AssertEquals(ADUPriceContrMargineId,"-25,12")
 	
 	Set ADUPriceContrMargineId = Formatter.FormatADUPriceContrMargineId(".123456")
-	Do $$$AssertEquals(ADUPriceContrMargineId,",123456")
+	Do $$$AssertEquals(ADUPriceContrMargineId,"0,12")
 	
 	Set ADUPriceContrMargineId = Formatter.FormatADUPriceContrMargineId("25.0")
-	Do $$$AssertEquals(ADUPriceContrMargineId,"25,0")
+	Do $$$AssertEquals(ADUPriceContrMargineId,"25,00")
 	
 	Set ADUPriceContrMargineId = Formatter.FormatADUPriceContrMargineId("25.1")
-	Do $$$AssertEquals(ADUPriceContrMargineId,"25,1")
+	Do $$$AssertEquals(ADUPriceContrMargineId,"25,10")
 	
-	Set ADUPriceContrMargineId = Formatter.FormatADUPriceContrMargineId("25.12345")
-	Do $$$AssertEquals(ADUPriceContrMargineId,"25,12345")
-	
-	Set ADUPriceContrMargineId = Formatter.FormatADUPriceContrMargineId("25.123456789012345678901234567890123456789")
-	Do $$$AssertEquals(ADUPriceContrMargineId,"25,123456789012345678901234567890123456789")
-]]></Implementation>
-</Method>
-
-<Method name="Test: Aan ADUPriceContrMargineId wordt komma 00 toegevoegd indien het een geheel getal is">
-<Implementation><![CDATA[
-	Set Formatter = ##class(AXimpl.Formatter).%New()
-	#dim ADUPriceContrMargineId As %String
-	
 	Set ADUPriceContrMargineId = Formatter.FormatADUPriceContrMargineId("-25")
 	Do $$$AssertEquals(ADUPriceContrMargineId,"-25,00")
 	
 	Set ADUPriceContrMargineId = Formatter.FormatADUPriceContrMargineId("25")
 	Do $$$AssertEquals(ADUPriceContrMargineId,"25,00")
-]]></Implementation>
-</Method>
-
-<Method name="Test: Als ADUPriceContrMargineId een komma bevat wordt komma 00 niet toegevoegd">
-<Implementation><![CDATA[
-	Set Formatter = ##class(AXimpl.Formatter).%New()
-	#dim ADUPriceContrMargineId As %String
 	
-	Set ADUPriceContrMargineId = Formatter.FormatADUPriceContrMargineId("25,123456")
-	Do $$$AssertEquals(ADUPriceContrMargineId,"25,123456")
+	Set ADUPriceContrMargineId = Formatter.FormatADUPriceContrMargineId("25.12345")
+	Do $$$AssertEquals(ADUPriceContrMargineId,"25,12")
+	
+	Set ADUPriceContrMargineId = Formatter.FormatADUPriceContrMargineId("25.123456789012345678901234567890123456789")
+	Do $$$AssertEquals(ADUPriceContrMargineId,"25,12")
 ]]></Implementation>
 </Method>
 </Class>