Index: BL/Prod/GAData/TBXLadeXML.cls.xml
===================================================================
diff -u -r427 -r429
--- BL/Prod/GAData/TBXLadeXML.cls.xml	(.../TBXLadeXML.cls.xml)	(revision 427)
+++ BL/Prod/GAData/TBXLadeXML.cls.xml	(.../TBXLadeXML.cls.xml)	(revision 429)
@@ -59,10 +59,12 @@
 
 <Property name="TotPrijsVK">
 <Type>%Float</Type>
+<Private>1</Private>
 </Property>
 
 <Property name="TotPrijsAK">
 <Type>%Float</Type>
+<Private>1</Private>
 </Property>
 
 <Property name="WSLijnLaatsteVolgnummer">
@@ -207,6 +209,8 @@
 	 
 	Set ..MuntAK="EUR"
 	Set ..Munt=$$GetUserMunt^cspBasis.Library(..sDomVERW,)
+	Set ..TotPrijsVK=0
+	Set ..TotPrijsAK=0
 	If ..sDomVERW="SFS" Do
 	. ; Aankoopprijzen in EUR berekend en getoond 
 	. ; Verkoopprijzen in CHF berekend en getoond
@@ -248,12 +252,15 @@
 <Method name="BerekenTotaalPrijzenVanWebOrder">
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set ..TotPrijsVK=0
-	Set ..TotPrijsAK=0
+	Set TotPrijsVK=0
+	Set TotPrijsAK=0
 	Set i=""
 	For  Set WSLn=..WebOrder.Lijnen.GetNext(.i) Quit:(i="")  Do
-	. Set ..TotPrijsVK=..TotPrijsVK+(WSLn.KostPrijs*WSLn.Qty)
-	. Set ..TotPrijsAK=..TotPrijsAK+(WSLn.AKPrijs*WSLn.Qty)
+	. Set TotPrijsVK=TotPrijsVK+(WSLn.KostPrijs*WSLn.Qty)
+	. Set TotPrijsAK=TotPrijsAK+(WSLn.AKPrijs*WSLn.Qty)
+
+	Set ..TotPrijsVK=..TotPrijsVK+TotPrijsVK
+	Set ..TotPrijsAK=..TotPrijsAK+TotPrijsAK
 ]]></Implementation>
 </Method>