Index: vhUnitTest/TECH/Decimal/Algemeen/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Decimal/Algemeen/Test.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Decimal/Algemeen/Test.cls.xml	(revision 1340)
@@ -0,0 +1,69 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Decimal.Algemeen.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="Value">
+<Type>%String</Type>
+<Default>99.9999</Default>
+</Parameter>
+
+<Property name="DecimalDefaultScale">
+<Type>TECH.Decimal</Type>
+</Property>
+
+<Property name="DecimalScale0">
+<Type>TECH.Decimal</Type>
+<Parameter name="SCALE" value="0"/>
+</Property>
+
+<Property name="DecimalScale1">
+<Type>TECH.Decimal</Type>
+<Parameter name="SCALE" value="1"/>
+</Property>
+
+<Property name="DecimalScale2">
+<Type>TECH.Decimal</Type>
+<Parameter name="SCALE" value="2"/>
+</Property>
+
+<Property name="DecimalScale3">
+<Type>TECH.Decimal</Type>
+<Parameter name="SCALE" value="3"/>
+</Property>
+
+<Method name="Test: Auto normalisatie">
+<Implementation><![CDATA[
+	
+	do ..Assert( 10      ,  10    ,  10  ,  10    ,  10     ,  10     )
+	do ..Assert( 10.0000 ,  10    ,  10  ,  10    ,  10     ,  10     )
+	do ..Assert( 10.1111 ,  10.11 ,  10  ,  10.1  ,  10.11  ,  10.111 )
+	
+	do ..Assert( 99.999  , 100    , 100  , 100    , 100     ,  99.999 )
+	do ..Assert( 99.9999 , 100    , 100  , 100    , 100     , 100     )
+	
+	do ..Assert( 0.5      ,  0.5  ,   1  ,   0.5  ,   0.5   ,   0.5   )
+]]></Implementation>
+</Method>
+
+<Method name="Assert">
+<FormalSpec>Value:%Decimal,Default:%Decimal,Scale0:%Decimal,Scale1:%Decimal,Scale2:%Decimal,Scale3:%Decimal</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	set ..DecimalDefaultScale = Value
+	set ..DecimalScale0 = Value
+	set ..DecimalScale1 = Value
+	set ..DecimalScale2 = Value
+	set ..DecimalScale3 = Value
+	
+	do $$$AssertEquals(..DecimalDefaultScale,Default)
+	do $$$AssertEquals(..DecimalScale0,Scale0)
+	do $$$AssertEquals(..DecimalScale1,Scale1)
+	do $$$AssertEquals(..DecimalScale2,Scale2)
+	do $$$AssertEquals(..DecimalScale3,Scale3)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: TECH/Decimal.cls.xml
===================================================================
diff -u
--- TECH/Decimal.cls.xml	(revision 0)
+++ TECH/Decimal.cls.xml	(revision 1340)
@@ -0,0 +1,29 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.Decimal">
+<Super>%Library.Decimal</Super>
+
+<Parameter name="SCALE">
+<Type>INTEGER</Type>
+<Default>2</Default>
+</Parameter>
+
+<Method name="Set">
+<CodeMode>objectgenerator</CodeMode>
+<FormalSpec>Value:%CacheString</FormalSpec>
+<NoContext>1</NoContext>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	If (%compiledclass.ClassType = "datatype") {
+		Set %code = 0
+		Quit $$$OK
+	}
+	Do %code.WriteLine(" Set i%" _ %property _ " = $this." _ %property _ "Normalize(Value)")
+	Do %code.WriteLine(" Quit $$$OK")
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>