Index: cspBasis/GAProdTBox.cls.xml
===================================================================
diff -u -r561 -r588
--- cspBasis/GAProdTBox.cls.xml	(.../GAProdTBox.cls.xml)	(revision 561)
+++ cspBasis/GAProdTBox.cls.xml	(.../GAProdTBox.cls.xml)	(revision 588)
@@ -372,7 +372,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefPercentageTenHonderd">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Percentage:TECH.Percentage</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Float</ReturnType>
+<Implementation><![CDATA[	Quit (Percentage * 100)
+]]></Implementation>
+</Method>
+
 <Method name="GeefKortingPercentageTBX">
+<Description>
+Geeft steeds Korting terug als getal tussen 0 en 100 !!!</Description>
 <ClassMethod>1</ClassMethod>
 <FormalSpec>DomeinVerwerker:APPS.TBXWeb.enu.TBXHandel,KlantNummer:%String,DesignCodeModus:%String,Aantal:%Integer</FormalSpec>
 <ProcedureBlock>0</ProcedureBlock>
@@ -385,7 +396,7 @@
 	Else {
 		Set Familie="Lade"
 		Set Variant=##class(APPS.TBXWeb.Utils).GeefLadeVariant(DesignCodeModus)
-		Set KortingPercentage=$$GeefKortingPercentageViaSoap(DomeinVerwerker,KlantNummer,Familie,Variant,Aantal)
+		Set KortingPercentage=..GeefPercentageTenHonderd($$GeefKortingPercentageViaSoap(DomeinVerwerker,KlantNummer,Familie,Variant,Aantal))
 		  ;d WLIP^vhDBG(97,"GeefKortingPercentage : "_KortingPercentage_"  voor Klant "_KlantNummer_"  DCM:"_DesignCodeModus_"  Variant:"_Variant)
 	}
 	Quit KortingPercentage