Index: vhPowerTools/DOM/VKP/Order/CSV/OrderRecordForCsv.cls.xml
===================================================================
diff -u -r48886 -r48931
--- vhPowerTools/DOM/VKP/Order/CSV/OrderRecordForCsv.cls.xml	(.../OrderRecordForCsv.cls.xml)	(revision 48886)
+++ vhPowerTools/DOM/VKP/Order/CSV/OrderRecordForCsv.cls.xml	(.../OrderRecordForCsv.cls.xml)	(revision 48931)
@@ -33,7 +33,7 @@
 
 <Method name="GeefRecord">
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit ##class(TECH.StringUtils).BuildText("{0};{1};{2};{3};{4};{5};{6};", ..KlantID, ..OrderID, ..OrderType, ..OrderReferentie, ..BevatOrderLijnTypes, ..TotaalPrijs, ..AantalLijnen)
+<Implementation><![CDATA[	Quit ##class(TECH.StringUtils).BuildText("{0};{1};{2};{3};{4};{5};{6};", ..KlantID, ..OrderID, ..OrderType, """" _..OrderReferentie _"""", ..BevatOrderLijnTypes, $Replace(..TotaalPrijs,".",","), ..AantalLijnen)
 ]]></Implementation>
 </Method>
 </Class>
Index: vhPowerTools/DOM/VKP/Order/CSV/Generator.cls.xml
===================================================================
diff -u -r48886 -r48931
--- vhPowerTools/DOM/VKP/Order/CSV/Generator.cls.xml	(.../Generator.cls.xml)	(revision 48886)
+++ vhPowerTools/DOM/VKP/Order/CSV/Generator.cls.xml	(.../Generator.cls.xml)	(revision 48931)
@@ -27,7 +27,7 @@
 		
 		#dim Orderlijn As DOM.VKP.impl.DataM.DataMOrderlijn = OrderLijnIterator.Next()
 		
-		If Orderlijn.%Extends("DOM.VKP.impl.DataM.DataMProductOrderlijn") {
+		If ..IsGeldigeLijn(Orderlijn) {
 			#dim Productlijn As DOM.VKP.impl.DataM.DataMProductOrderlijn = Orderlijn
 			Set TotaalPrijs	= TotaalPrijs + Productlijn.GeefBedrag()
 			Set AantalLijnen = AantalLijnen + 1
@@ -47,6 +47,21 @@
 	Do FileWriter.WriteLine(OrderRecordForCsv.GeefRecord())
 ]]></Implementation>
 </Method>
+
+<Method name="IsGeldigeLijn">
+<FormalSpec>Orderlijn:DOM.VKP.impl.DataM.DataMProductOrderlijn</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim IsGeldig As %Boolean = Orderlijn.%Extends("DOM.VKP.impl.DataM.DataMProductOrderlijn") 
+	If (IsGeldig) {
+		#dim ProductAPI As DOM.PM.impl.ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
+		#dim Product As DOM.PM.Product = ProductAPI.GeefProduct(Orderlijn.GeefProductID())
+		Set IsGeldig = IsGeldig && ("BLUM,OL,HAL," [ Product.GeefProductGroep())
+	}
+	Quit IsGeldig
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhPowerTools/DOM/VKP/Order/CSV/OrderExporteerder.cls.xml
===================================================================
diff -u -r48886 -r48931
--- vhPowerTools/DOM/VKP/Order/CSV/OrderExporteerder.cls.xml	(.../OrderExporteerder.cls.xml)	(revision 48886)
+++ vhPowerTools/DOM/VKP/Order/CSV/OrderExporteerder.cls.xml	(.../OrderExporteerder.cls.xml)	(revision 48931)
@@ -168,15 +168,11 @@
     While (OrderIDIterator.HasNext()){
 		#Dim OrderID as %String = OrderIDIterator.Next() 
 		
-		Do ##class(Tools.Wlip).%New(26).String("OrderID " _OrderID)
-		
 		if OrderAPI.BestaatOrder(OrderID) {
 			Set ..TotaalAantalOrders = ..TotaalAantalOrders + 1
 			;Do ..ZetOrderOpBoekhoudkundigGeblokkeerdIndienOrderpickingOpKode( OrderID )
 			#dim Order as DOM.VKP.Order = OrderAPI.GeefOrder(OrderID)
 			
-			Do ##class(Tools.Wlip).%New(26).String("GeefOrder " _OrderID)
-			
 			Set:(Order.GeefOrderType() = "P") ..TotaalAantalProforma = ..TotaalAantalProforma +1
 			Set:(Order.GeefOrderType() = "M") ..TotaalAantalMonster = ..TotaalAantalMonster +1
 			Do ..TelNietGeldig(Order)
@@ -217,7 +213,6 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	Set ..AantalGeexporteerd = ..AantalGeexporteerd + 1
-	Do ##class(Tools.Wlip).%New(26).String(Order.GeefID())
 	set Request = ##class(AXimpl.Request).%New(Command,Order.GeefID(),"")
 	Do ..Generator.Generate(Request, FileWriter)
 ]]></Implementation>