Index: vhPowerTools/DOM/VKP/Order/OrderExporteerder.cls.xml
===================================================================
diff -u -r48079 -r48103
--- vhPowerTools/DOM/VKP/Order/OrderExporteerder.cls.xml	(.../OrderExporteerder.cls.xml)	(revision 48079)
+++ vhPowerTools/DOM/VKP/Order/OrderExporteerder.cls.xml	(.../OrderExporteerder.cls.xml)	(revision 48103)
@@ -53,6 +53,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="HaluxOrders">
+<Type>%Numeric</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>initvalue:%CacheString</FormalSpec>
 <Private>1</Private>
@@ -137,7 +142,7 @@
 	Set ..AantalContracten = 0
 	Set ..AantalTerugnames = 0
 	Set ..AantalTransfers = 0
-
+	Set ..HaluxOrders = 0
 	
 	Do ##class(vhLib.OldSchool).InitVars()
     #dim OrderAPI as DOM.VKP.OrderAPI = ##class(DOM.DomeinContext).Instance().GeefOrderAPI()
@@ -153,6 +158,9 @@
 			Set:(Order.GeefOrderType() = "M") ..TotaalAantalMonster = ..TotaalAantalMonster +1
 			Do ..TelNietGeldig(Order)
 			if OrderFilter.IsGeldig(Order){
+				if Order.GeefKlantID() = ##class(DOM.VKP.enu.Klant).Halux() {
+					Set ..HaluxOrders = ..HaluxOrders + 1
+				}
 				if (Order.GeefOrderType() = "P"){
 					Set ..AantalProforma = ..AantalProforma +1
 					w !,"Proforma : " _ Order.GeefID()
@@ -171,6 +179,7 @@
     w !,"Contracten "_ ..AantalContracten
     w !,"Terugnames " _ ..AantalTerugnames
     w !,"Transfers " _ ..AantalTransfers
+    w !,"HaluxOrders " _ ..HaluxOrders
     w !
 ]]></Implementation>
 </Method>