Index: vhPowerTools/DOM/VKP/Order/OrderExporteerder.cls.xml
===================================================================
diff -u
--- vhPowerTools/DOM/VKP/Order/OrderExporteerder.cls.xml	(revision 0)
+++ vhPowerTools/DOM/VKP/Order/OrderExporteerder.cls.xml	(revision 48078)
@@ -0,0 +1,206 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhPowerTools.DOM.VKP.Order.OrderExporteerder">
+<Super>TECH.RegisteredObject</Super>
+
+<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>
+
+<Method name="%OnNew">
+<FormalSpec>initvalue:%CacheString</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..Generator = ##class(AXimpl.Generator).%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>
+
+<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[
+	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
+
+	
+	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() 
+		if OrderAPI.BestaatOrder(OrderID) {
+			Set ..TotaalAantalOrders = ..TotaalAantalOrders + 1
+			#dim Order as DOM.VKP.Order = OrderAPI.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.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)
+			}
+		}
+    }
+    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 !
+]]></Implementation>
+</Method>
+
+<Method name="ExporteerOrder">
+<FormalSpec>Order:DOM.VKP.Order,Command:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ..AantalGeexporteerd = ..AantalGeexporteerd + 1
+	Do ##class(Tools.Wlip).%New(207).String("Processing "_ Order.GeefOrderType() _ " Order " _ Order.GeefID())
+	set Request = ##class(AXimpl.Request).%New(Command,Order.GeefID(),"")
+	Do ..Generator.Generate(Request)
+]]></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: vhDeploy/D20171207xConfigItemsMigratieActieveOrdersFase2A.cls.xml
===================================================================
diff -u
--- vhDeploy/D20171207xConfigItemsMigratieActieveOrdersFase2A.cls.xml	(revision 0)
+++ vhDeploy/D20171207xConfigItemsMigratieActieveOrdersFase2A.cls.xml	(revision 48078)
@@ -0,0 +1,34 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.D20171207xConfigItemsMigratieActieveOrdersFase2A">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Specifiefe Migratie AX.Config items om exportfiles in adere folders te laten schijven</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	
+	Set ^AX.Config("Out","Action","SalesOrderMig/CreateGesloten")="http://tempuri.org/ADUMsgSalesOrderInQueryService/create"
+	Set ^AX.Config("Out","Converter","SalesOrderMig/CreateGesloten")="AXimpl.Dynamics.SalesOrderOut.Converter.SalesOrderConverter"
+	Set ^AX.Config("Out","Envelope","SalesOrderMig/CreateGesloten")="AXif.Dynamics.SalesOrderOut.Envelope"
+	Set ^AX.Config("Out","SubPath","SalesOrderMig/CreateGesloten")="SalesOrderMigratie/CreateGesloten"
+
+	Set ^AX.Config("Out","Action","SalesOrderMig/CreateOpenV")="http://tempuri.org/ADUMsgSalesOrderInQueryService/create"
+	Set ^AX.Config("Out","Converter","SalesOrderMig/CreateOpenV")="AXimpl.Dynamics.SalesOrderOut.Converter.SalesOrderConverter"
+	Set ^AX.Config("Out","Envelope","SalesOrderMig/CreateOpenV")="AXif.Dynamics.SalesOrderOut.Envelope"
+	Set ^AX.Config("Out","SubPath","SalesOrderMig/CreateOpenV")="SalesOrderMigratie/CreateOpenV"
+
+	Set ^AX.Config("Out","Action","SalesOrderMig/CreateOpenNV")="http://tempuri.org/ADUMsgSalesOrderInQueryService/create"
+	Set ^AX.Config("Out","Converter","SalesOrderMig/CreateOpenNV")="AXimpl.Dynamics.SalesOrderOut.Converter.SalesOrderConverter"
+	Set ^AX.Config("Out","Envelope","SalesOrderMig/CreateOpenNV")="AXif.Dynamics.SalesOrderOut.Envelope"
+	Set ^AX.Config("Out","SubPath","SalesOrderMig/CreateOpenNV")="SalesOrderMigratie/CreateOpenNV"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhPowerTools/DOM/VKP/Order/Filters/GeslotenOrderFilter.cls.xml
===================================================================
diff -u
--- vhPowerTools/DOM/VKP/Order/Filters/GeslotenOrderFilter.cls.xml	(revision 0)
+++ vhPowerTools/DOM/VKP/Order/Filters/GeslotenOrderFilter.cls.xml	(revision 48078)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhPowerTools.DOM.VKP.Order.Filters.GeslotenOrderFilter">
+<Super>vhPowerTools.DOM.VKP.Order.OrderFilter</Super>
+
+<Method name="IsGeldig">
+<FormalSpec>Order:DOM.VKP.Order</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim Result as %Boolean = ..StandaardNietGeldig(Order)
+	
+	;Geen open Orders
+	Set:(Order.GeefStatus() = ##class(DOM.VKP.enu.OrderStatus).Open()) Result = $$$False
+	Quit Result
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhPowerTools/DOM/VKP/Order/Filters/TerugnameOrderFilter.cls.xml
===================================================================
diff -u
--- vhPowerTools/DOM/VKP/Order/Filters/TerugnameOrderFilter.cls.xml	(revision 0)
+++ vhPowerTools/DOM/VKP/Order/Filters/TerugnameOrderFilter.cls.xml	(revision 48078)
@@ -0,0 +1,15 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhPowerTools.DOM.VKP.Order.Filters.TerugnameOrderFilter">
+<Super>vhPowerTools.DOM.VKP.Order.OrderFilter</Super>
+
+<Method name="IsGeldig">
+<FormalSpec>Order:DOM.VKP.Order</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit $$ISTERUGN^FLOWORD5(Order.GeefID())
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhPowerTools/DOM/VKP/Order/OrderFilter.cls.xml
===================================================================
diff -u
--- vhPowerTools/DOM/VKP/Order/OrderFilter.cls.xml	(revision 0)
+++ vhPowerTools/DOM/VKP/Order/OrderFilter.cls.xml	(revision 48078)
@@ -0,0 +1,34 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhPowerTools.DOM.VKP.Order.OrderFilter">
+<Abstract>1</Abstract>
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="IsGeldig">
+<Abstract>1</Abstract>
+<FormalSpec>Order:DOM.VKP.Order</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+</Method>
+
+<Method name="StandaardNietGeldig">
+<FormalSpec>Order:DOM.VKP.Order</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Do ##class(vhLib.OldSchool).InitVars()
+
+	#dim Result as %Boolean = $$$True
+
+	;Geen Terugnames
+	Set:($$ISTERUGN^FLOWORD5(Order.GeefID())) Result = $$$False
+	;Geen Transfers
+	Set:(Order.GeefOrderType() = ##class(DOM.VKP.enu.OrderType).Transfer()) Result = $$$False
+	;Geen Contracten
+	Set:(Order.GeefOrderType() = ##class(DOM.VKP.enu.OrderType).Contract()) Result = $$$False
+
+	Quit Result
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhPowerTools/DOM/VKP/Order/Filters/NietBKHVrijgegevenOpenOrderFilter.cls.xml
===================================================================
diff -u
--- vhPowerTools/DOM/VKP/Order/Filters/NietBKHVrijgegevenOpenOrderFilter.cls.xml	(revision 0)
+++ vhPowerTools/DOM/VKP/Order/Filters/NietBKHVrijgegevenOpenOrderFilter.cls.xml	(revision 48078)
@@ -0,0 +1,26 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhPowerTools.DOM.VKP.Order.Filters.NietBKHVrijgegevenOpenOrderFilter">
+<Super>vhPowerTools.DOM.VKP.Order.OrderFilter</Super>
+
+<Method name="IsGeldig">
+<FormalSpec>Order:DOM.VKP.Order</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim Result as %Boolean = ..StandaardNietGeldig(Order)
+
+	;Alleen open orders	
+	Set:$$$Not(Order.GeefStatus() = ##class(DOM.VKP.enu.OrderStatus).Open()) Result = $$$False
+	
+	;boekhoudkundig vrijgegeven
+	Set:(Order.GeefVoorlopigGeslotenStatus() =  ##class(DOM.VKP.enu.OrderVoorlopigGeslotenStatus).Vrijgegeven()) Result = $$$False
+	
+	W:((Order.GeefStatus() = ##class(DOM.VKP.enu.OrderStatus).Open()) && (Order.GeefVoorlopigGeslotenStatus()="")) !,"Open Order "_Order.GeefID() _ " heeft geen boekhoudkundigvrijgegeven status"
+	W:Result !,"open order niet vrijgegeven : "_Order.GeefID()
+	Quit Result
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhPowerTools/DOM/VKP/Order/Filters/BKHVrijgegevenOpenOrderFilter.cls.xml
===================================================================
diff -u
--- vhPowerTools/DOM/VKP/Order/Filters/BKHVrijgegevenOpenOrderFilter.cls.xml	(revision 0)
+++ vhPowerTools/DOM/VKP/Order/Filters/BKHVrijgegevenOpenOrderFilter.cls.xml	(revision 48078)
@@ -0,0 +1,27 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhPowerTools.DOM.VKP.Order.Filters.BKHVrijgegevenOpenOrderFilter">
+<Super>vhPowerTools.DOM.VKP.Order.OrderFilter</Super>
+
+<Method name="IsGeldig">
+<FormalSpec>Order:DOM.VKP.Order</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim Result as %Boolean = ..StandaardNietGeldig(Order)
+
+	;Alleen open orders	
+	Set:$$$Not(Order.GeefStatus() = ##class(DOM.VKP.enu.OrderStatus).Open()) Result = $$$False
+	
+	;boekhoudkundig vrijgegeven
+	Set:(Order.GeefVoorlopigGeslotenStatus() =  ##class(DOM.VKP.enu.OrderVoorlopigGeslotenStatus).NogNietVrijgegeven()) Result = $$$False
+
+	W:Result !,"open order vrijgegeven : "_Order.GeefID()
+	W:((Order.GeefStatus() = ##class(DOM.VKP.enu.OrderStatus).Open()) && (Order.GeefVoorlopigGeslotenStatus()="")) !,"Open Order "_Order.GeefID() _ " heeft geen boekhoudkundigvrijgegeven status"
+	
+	Quit Result
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>