Index: DOM/PM/OL/Gamma/impl/PrijsSFS.cls.xml
===================================================================
diff -u -r734 -r1075
--- DOM/PM/OL/Gamma/impl/PrijsSFS.cls.xml	(.../PrijsSFS.cls.xml)	(revision 734)
+++ DOM/PM/OL/Gamma/impl/PrijsSFS.cls.xml	(.../PrijsSFS.cls.xml)	(revision 1075)
@@ -1,9 +1,8 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-01-27 17:01:00">
+<Export generator="Cache" version="9">
 <Class name="DOM.PM.OL.Gamma.impl.PrijsSFS">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>PrijsAbstract</Super>
-<TimeChanged>62060,61689.977413</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Parameter name="PrijsFactor">
@@ -20,19 +19,30 @@
 ]]></Implementation>
 </Method>
 
+<UDLText name="T">
+<Content><![CDATA[
+// afronding voor SFS - 0,01 en 0,02 wordt 0,00
+
+]]></Content>
+</UDLText>
+
+<UDLText name="T">
+<Content><![CDATA[
+//                    - 0,03 t.e.m. 0,09 wordt 0,10 
+
+]]></Content>
+</UDLText>
+
 <Method name="Afronden">
+<ClassMethod>1</ClassMethod>
 <FormalSpec>Getal</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	#define AantalDecimalen 2
 	
 	set Getal = $justify(Getal,0,$$$AantalDecimalen)
-	set lastnumber = $extract(Getal,$length(Getal))
-	if lastnumber < 3 {  set Getal = $extract(Getal,1,$length(Getal)-1)_"0" }
-	elseif lastnumber < 7 { set Getal = $extract(Getal,1,$length(Getal)-1)_"5" }
-	else  { set Getal = Getal + ".03" set Getal =  ..Afronden(Getal) }
-	
-	quit Getal
+	set Getal = $justify(Getal + .02,0,$$$AantalDecimalen-1)
+	quit $justify(Getal,0,$$$AantalDecimalen)
 ]]></Implementation>
 </Method>
 
@@ -53,6 +63,11 @@
 	quit Result
 ]]></Implementation>
 </Method>
+
+<Method name="BepaalBTWPercentage">
+<Private>1</Private>
+<Implementation><![CDATA[	set ..BTWPercentage = 0
+]]></Implementation>
+</Method>
 </Class>
-<Checksum value="3839101130"/>
 </Export>