Index: TECH/Percentage.cls.xml
===================================================================
diff -u
--- TECH/Percentage.cls.xml	(revision 0)
+++ TECH/Percentage.cls.xml	(revision 429)
@@ -0,0 +1,64 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.Percentage">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+
+<Method name="ExclusiefNaarInclusief">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Waarde:%Decimal,Percentage:%Decimal</FormalSpec>
+<ReturnType>%Decimal</ReturnType>
+<Implementation><![CDATA[    quit Waarde + ..WaardeVanExclusief(Waarde , Percentage)
+]]></Implementation>
+</Method>
+
+<Method name="InclusiefNaarExclusief">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Waarde:%Decimal,Percentage:%Decimal</FormalSpec>
+<ReturnType>%Decimal</ReturnType>
+<Implementation><![CDATA[    quit (Waarde*100)/(100+Percentage)
+]]></Implementation>
+</Method>
+
+<Method name="WaardeVanExclusief">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Waarde:%Decimal,Percentage:%Decimal</FormalSpec>
+<ReturnType>%Decimal</ReturnType>
+<Implementation><![CDATA[    quit Waarde*(Percentage/100)
+]]></Implementation>
+</Method>
+
+<Method name="WaardeVanInclusief">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Waarde:%Decimal,Percentage:%Decimal</FormalSpec>
+<ReturnType>%Decimal</ReturnType>
+<Implementation><![CDATA[    quit Waarde-..InclusiefNaarExclusief(Waarde,Percentage)
+]]></Implementation>
+</Method>
+
+<Method name="PercentageVanExclusief">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>WaardeExclusief:%Decimal,WaardeInclusief:%Decimal</FormalSpec>
+<ReturnType>%Decimal</ReturnType>
+<Implementation><![CDATA[
+   #dim result As %Decimal = 0
+   if +WaardeExclusief '= 0 set result = (WaardeInclusief-WaardeExclusief)/(WaardeExclusief/100)
+   quit result
+]]></Implementation>
+</Method>
+
+<Method name="PercentageVanInclusief">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>WaardeInclusief:%Decimal,WaardeExclusief:%Decimal</FormalSpec>
+<ReturnType>%Decimal</ReturnType>
+<Implementation><![CDATA[
+    #dim result As %Decimal = 0
+    if +WaardeExclusief '= 0 set result = (WaardeExclusief-WaardeInclusief)/(WaardeExclusief/100)*-1
+    quit result
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>