Index: vhPowerTools/DOM/VKP/Order/CSV/OrderRecordForCsv.cls.xml
===================================================================
diff -u
--- vhPowerTools/DOM/VKP/Order/CSV/OrderRecordForCsv.cls.xml	(revision 0)
+++ vhPowerTools/DOM/VKP/Order/CSV/OrderRecordForCsv.cls.xml	(revision 48886)
@@ -0,0 +1,42 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhPowerTools.DOM.VKP.Order.CSV.OrderRecordForCsv">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="OrderID">
+<Type>%String</Type>
+</Property>
+
+<Property name="KlantID">
+<Type>%String</Type>
+</Property>
+
+<Property name="OrderReferentie">
+<Type>%String</Type>
+</Property>
+
+<Property name="BevatOrderLijnTypes">
+<Type>%Decimal</Type>
+</Property>
+
+<Property name="TotaalPrijs">
+<Type>%Decimal</Type>
+</Property>
+
+<Property name="AantalLijnen">
+<Type>%Decimal</Type>
+</Property>
+
+<Property name="OrderType">
+<Type>%String</Type>
+</Property>
+
+<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>
+</Method>
+</Class>
+
+
+</Export>
Index: vhPowerTools/DOM/VKP/Order/CSV/OrderExporteerder.cls.xml
===================================================================
diff -u
--- vhPowerTools/DOM/VKP/Order/CSV/OrderExporteerder.cls.xml	(revision 0)
+++ vhPowerTools/DOM/VKP/Order/CSV/OrderExporteerder.cls.xml	(revision 48886)
@@ -0,0 +1,261 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhPowerTools.DOM.VKP.Order.CSV.OrderExporteerder">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="Logger">
+<Type>vhLib.Logger</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="AantalGeexporteerd">
+<Type>%Numeric</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="TotaalAantalOrders">
+<Type>%Numeric</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="AantalMonster">
+<Type>%Numeric</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="AantalProforma">
+<Type>%Numeric</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="TotaalAantalMonster">
+<Type>%Numeric</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="TotaalAantalProforma">
+<Type>%Numeric</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="AantalTransfers">
+<Type>%Numeric</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="AantalContracten">
+<Type>%Numeric</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="AantalTerugnames">
+<Type>%Numeric</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Generator">
+<Type>AXimpl.Generator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="HaluxOrders">
+<Type>%Numeric</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>initvalue:%CacheString</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..Generator = ##class(vhPowerTools.DOM.VKP.Order.CSV.Generator).%New()
+	Set ..Logger = ##class(vhLib.Logger).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="LijstTerugnames">
+<Implementation><![CDATA[
+	w !,!,"Start Lijst Terugnames"
+	Set Filter = ##class(vhPowerTools.DOM.VKP.Order.Filters.TerugnameOrderFilter).%New()
+	#dim Aantal as %Numeric = ..ToonLijst(Filter)
+	w !,!,"Aantal terugnames : " _ Aantal
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+// Do ##class(vhPowerTools.DOM.VKP.Order.CSV.OrderExporteerder).%New().ExporteerGeslotenOrders()
+
+]]></Content>
+</UDLText>
+
+<Method name="ExporteerGeslotenOrders">
+<Implementation><![CDATA[
+	w !,!,"Start Gesloten Orders"
+
+	Set Filter = ##class(vhPowerTools.DOM.VKP.Order.Filters.GeslotenOrderFilter).%New()
+	Do ..Exporteer(Filter,"SalesOrderMig/CreateGesloten")
+]]></Implementation>
+</Method>
+
+<Method name="ExporteerOpenOrdersVrijgegeven">
+<Implementation><![CDATA[
+	w !,!,"Start Open Vrijgegeven Orders "
+
+	Set Filter = ##class(vhPowerTools.DOM.VKP.Order.Filters.BKHVrijgegevenOpenOrderFilter).%New()
+	Do ..Exporteer(Filter,"SalesOrderMig/CreateOpenV")
+]]></Implementation>
+</Method>
+
+<Method name="ExporteerOpenOrdersNietVrijgegeven">
+<Implementation><![CDATA[
+	w !,!,"Start Open Niet Vrijgegeven Orders"
+
+	Set Filter = ##class(vhPowerTools.DOM.VKP.Order.Filters.NietBKHVrijgegevenOpenOrderFilter).%New()
+	Do ..Exporteer(Filter,"SalesOrderMig/CreateOpenNV")
+]]></Implementation>
+</Method>
+
+<Method name="ToonLijst">
+<FormalSpec>OrderFilter:vhPowerTools.DOM.VKP.Order.OrderFilter</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Numeric</ReturnType>
+<Implementation><![CDATA[
+	Do ##class(vhLib.OldSchool).InitVars()
+	#dim Aantal as %Numeric = 0
+    #dim OrderAPI as DOM.VKP.OrderAPI = ##class(DOM.DomeinContext).Instance().GeefOrderAPI()
+    #Dim OrderIDIterator as TECH.Iterator = OrderAPI.GeefOrderIDIterator()
+    While (OrderIDIterator.HasNext()){
+		#Dim OrderID as %String = OrderIDIterator.Next() 
+		if OrderAPI.BestaatOrder(OrderID) {
+			#dim Order as DOM.VKP.Order = OrderAPI.GeefOrder(OrderID)
+			if OrderFilter.IsGeldig(Order){
+				Set Aantal = Aantal + 1
+				w !,Order.GeefID()
+			}
+		}
+    }
+    Quit Aantal
+]]></Implementation>
+</Method>
+
+<Method name="Exporteer">
+<FormalSpec>OrderFilter:vhPowerTools.DOM.VKP.Order.OrderFilter,Command:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim FileWriter As TECH.File.FileWriter = ##class(TECH.Context).Instance().GeefFileAPI().GeefFileWriter()
+	Do FileWriter.Open("E:\Temp\GeslotenOrders.csv")
+	#dim Headers As %String =  ##class(TECH.StringUtils).BuildText("{0};{1};{2};{3};{4};{5};{6};", "KlantID", "OrderID", "OrderType", "OrderReferentie", "BevatOrderLijnTypes", "TotaalPrijs", "AantalLijnen")
+	Do FileWriter.WriteLine(Headers)
+
+	Set ..AantalGeexporteerd = 0
+	Set ..TotaalAantalOrders = 0
+	Set ..AantalMonster = 0
+	Set ..AantalProforma = 0
+	Set ..TotaalAantalMonster = 0
+	Set ..TotaalAantalProforma = 0
+	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()
+    #Dim OrderIDIterator as TECH.Iterator = OrderAPI.GeefOrderIDIterator()
+    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)
+			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()
+				}
+				If (Order.GeefOrderType() = "M"){
+					Set ..AantalMonster = ..AantalMonster +1
+					w !,"Monster : " _ Order.GeefID()
+				}
+				Do ..ExporteerOrder(Order, Command, FileWriter)
+				Do ##class(vhLib.Logger).%New("").Debug("Geexporteerd order",Order.GeefID())
+			}
+		}
+    }
+    
+   	Do FileWriter.Close()
+
+
+    w !,!,..AantalGeexporteerd _ " Orders geexporteerd op " _ ..TotaalAantalOrders 
+    w !,"Monsters " _ ..AantalMonster _ " van  " _ ..TotaalAantalMonster
+    w !,"Proforma " _ ..AantalProforma _ " van " _ ..TotaalAantalProforma
+    w !,"Contracten "_ ..AantalContracten
+    w !,"Terugnames " _ ..AantalTerugnames
+    w !,"Transfers " _ ..AantalTransfers
+    w !,"HaluxOrders " _ ..HaluxOrders
+    w !
+]]></Implementation>
+</Method>
+
+<Method name="ExporteerOrder">
+<FormalSpec>Order:DOM.VKP.Order,Command:%String,FileWriter:TECH.File.FileWriter</FormalSpec>
+<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>
+</Method>
+
+<Method name="ZetOrderOpBoekhoudkundigGeblokkeerdIndienOrderpickingOpKode">
+<FormalSpec>OrderID:%String</FormalSpec>
+<Implementation><![CDATA[
+	If $Data( ^ORDW("IO",OrderID) ) {
+		#dim EersteOrderLijnId As %String = $Order( ^ORDW("IO",OrderID,"0") )
+		If ($$$Not(""=EersteOrderLijnId)) {
+			#dim ConsNr As %String = $Get(^ORDW("IO",OrderID,EersteOrderLijnId))
+			If ("K" = $Piece(^ORDW("D",ConsNr), "\", 20)) {
+				Do ..Logger.Info("OrderPicking op status Kode", OrderID _ "\" _ ConsNr)
+				#dim KLNr As %String = $Piece( ^KO1(OrderID, "F"), "\", 1)
+				Set $Piece( ^KOD(KLNr, "F", OrderID, 1), "\", 22) = ""
+				Set $Piece( ^KOD(KLNr, "F", OrderID, 1), "\", 23) = "1"
+			}
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="TelNietGeldig">
+<FormalSpec>Order:DOM.VKP.Order</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ##class(vhLib.OldSchool).InitVars()
+	
+	;Geen Terugnames
+	Set:($$ISTERUGN^FLOWORD5(Order.GeefID())) ..AantalTerugnames = ..AantalTerugnames + 1
+	;Geen Transfers
+	Set:(Order.GeefOrderType() = ##class(DOM.VKP.enu.OrderType).Transfer()) ..AantalTransfers = ..AantalTransfers+1
+	;Geen Contracten
+	Set:(Order.GeefOrderType() = ##class(DOM.VKP.enu.OrderType).Contract()) ..AantalContracten = ..AantalContracten + 1
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhPowerTools/DOM/VKP/Order/CSV/Generator.cls.xml
===================================================================
diff -u
--- vhPowerTools/DOM/VKP/Order/CSV/Generator.cls.xml	(revision 0)
+++ vhPowerTools/DOM/VKP/Order/CSV/Generator.cls.xml	(revision 48886)
@@ -0,0 +1,53 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhPowerTools.DOM.VKP.Order.CSV.Generator">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="Generate">
+<FormalSpec>Request:AXimpl.Request,FileWriter:TECH.File.FileWriter</FormalSpec>
+<Implementation><![CDATA[
+	#dim Order As DOM.VKP.Order = ##class(DOM.DomeinContext).Instance().GeefOrderAPI().GeefOrder(Request.SubjectId)
+
+	#dim ProductAPI As DOM.PM.impl.ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
+
+	#dim OrderRecordForCsv As vhPowerTools.DOM.VKP.Order.CSV.OrderRecordForCsv = ##class(vhPowerTools.DOM.VKP.Order.CSV.OrderRecordForCsv).%New()
+
+	Set OrderRecordForCsv.KlantID = Order.GeefKlantID()
+	Set OrderRecordForCsv.OrderID = Request.SubjectId
+	Set OrderRecordForCsv.OrderReferentie = Order.GeefOrderReferentie()
+	Set OrderRecordForCsv.OrderType = Order.GeefOrderType()
+
+	#dim TotaalPrijs As %Decimal = 0
+	#dim AantalLijnen As %Decimal = 0
+	
+	#dim BevatOrderLijnTypes As %String = ""
+	
+	#dim OrderLijnIterator As TECH.ListIterator = Order.GeefOrderLijnIterator()
+	While OrderLijnIterator.HasNext() {
+		
+		#dim Orderlijn As DOM.VKP.impl.DataM.DataMOrderlijn = OrderLijnIterator.Next()
+		
+		If Orderlijn.%Extends("DOM.VKP.impl.DataM.DataMProductOrderlijn") {
+			#dim Productlijn As DOM.VKP.impl.DataM.DataMProductOrderlijn = Orderlijn
+			Set TotaalPrijs	= TotaalPrijs + Productlijn.GeefBedrag()
+			Set AantalLijnen = AantalLijnen + 1
+			
+			#dim Product As DOM.PM.Product = ProductAPI.GeefProduct(Productlijn.GeefProductID())
+
+			If '(BevatOrderLijnTypes [ Product.GeefProductGroep() _",") {
+				Set BevatOrderLijnTypes = BevatOrderLijnTypes _Product.GeefProductGroep() _","
+			}
+		}
+	}
+	
+	Set OrderRecordForCsv.TotaalPrijs = TotaalPrijs
+	Set OrderRecordForCsv.AantalLijnen = AantalLijnen
+	Set OrderRecordForCsv.BevatOrderLijnTypes = BevatOrderLijnTypes
+	
+	Do FileWriter.WriteLine(OrderRecordForCsv.GeefRecord())
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>