Index: vhPowerTools/DOM/VKP/Order/OrderVerwijderaar.cls.xml
===================================================================
diff -u -r45049 -r46563
--- vhPowerTools/DOM/VKP/Order/OrderVerwijderaar.cls.xml	(.../OrderVerwijderaar.cls.xml)	(revision 45049)
+++ vhPowerTools/DOM/VKP/Order/OrderVerwijderaar.cls.xml	(.../OrderVerwijderaar.cls.xml)	(revision 46563)
@@ -6,7 +6,8 @@
 <Method name="VerwijderAlleOrders">
 <Implementation><![CDATA[
 	Do ##class(vhLib.OldSchool).InitVars()
-	#Dim OrderIterator as TECH.Iterator = ##class(DOM.DomeinContext).Instance().GeefOrderAPI().GeefOrderIterator()
+	#dim OrderAPI as DOM.VKP.OrderAPI = ##class(DOM.DomeinContext).Instance().GeefOrderAPI()
+	#Dim OrderIDIterator as TECH.Iterator = OrderAPI.GeefOrderIDIterator()
 	
 	;!!!!! Only in DEV environments !!!!!!
 	Quit:$$$Not(##class(TECH.Config.ConfigMgr).Instance().GetOmgeving() = "DEV")
@@ -16,36 +17,39 @@
 	Read Keuze
 	
 	if Keuze = "J" {	
-		While (OrderIterator.HasNext())
+		While (OrderIDIterator.HasNext())
 		{
-			#dim Order as DOM.VKP.Order = OrderIterator.Next()
-			try{
-				
-				
-				#dim ProductLijnIterator as TECH.Iterator = Order.GeefTypeOrderLijnIterator(##class(DOM.VKP.enu.OrderLijnType).Product())
-				While (ProductLijnIterator.HasNext())
-				{
-					#dim ProductLijn as DOM.VKP.ProductOrderlijn = ProductLijnIterator.Next()
+			#Dim OrderID as %String = OrderIDIterator.Next()	
+			if OrderAPI.BestaatOrder(OrderID) {
+				w !,"Verwijderen Order :" _ OrderID
+				try{
+					#dim Order as DOM.VKP.Order = OrderAPI.GeefOrder(OrderID)
 					
-					#dim ToeleveringId as %String = ProductLijn.GeefToeleveringID()
-					If ToeleveringId {
-						;w !,"       KOMLink met Toelevering "_ ToeleveringId _ " verbreken"
-						do ##class(BL.Legacy.FLOWTOE).VerbreekKOMLinkVanToelevering(ToeleveringId)
+					#dim ProductLijnIterator as TECH.Iterator = Order.GeefTypeOrderLijnIterator(##class(DOM.VKP.enu.OrderLijnType).Product())
+					While (ProductLijnIterator.HasNext())
+					{
+						#dim ProductLijn as DOM.VKP.ProductOrderlijn = ProductLijnIterator.Next()
+						
+						#dim ToeleveringId as %String = ProductLijn.GeefToeleveringID()
+						If ToeleveringId {
+							;w !,"       KOMLink met Toelevering "_ ToeleveringId _ " verbreken"
+							do ##class(BL.Legacy.FLOWTOE).VerbreekKOMLinkVanToelevering(ToeleveringId)
+						}
+						
+						#dim ConsolidatieID as  %String = $Get(^ORDW("IO",ProductLijn.GeefOrder().GeefID(),ProductLijn.GeefID()))
+						if $L(ConsolidatieID) {
+							;w !,"       Lijn " _ ProductLijn.GeefID()_ " doorgestuurd voor picking met consolidatie id " _ ConsolidatieID _ " : teruggetrokken"
+							Do DELOBJ^EWORDST(ConsolidatieID)
+						}
 					}
-					
-					#dim ConsolidatieID as  %String = $Get(^ORDW("IO",ProductLijn.GeefOrder().GeefID(),ProductLijn.GeefID()))
-					if $L(ConsolidatieID) {
-						;w !,"       Lijn " _ ProductLijn.GeefID()_ " doorgestuurd voor picking met consolidatie id " _ ConsolidatieID _ " : teruggetrokken"
-						Do DELOBJ^EWORDST(ConsolidatieID)
-					}
-				}
-				Do DELOBJ^FLOWORD(Order.GeefID())
-				w !,"Order verwijderd :" _ Order.GeefID()
-			} catch {
-				w !,!,"Order verwijderen niet gelukt : " _ Order.GeefID(),!
-				Write ##class(TECH.ExceptionHandler).Catch().ToString()
+					Do DELOBJ^FLOWORD(Order.GeefID())
+				} catch {
+					w !,!,"Order verwijderen niet gelukt : " _ OrderID,!
+					Write ##class(TECH.ExceptionHandler).Catch().ToString()
+				}			
+			} else {
+				w !, "Probleem met in ^KO1 met OrderId " _ OrderID
 			}
-			
 		}
 	} else {
 		w !,!,"Oef. dat was nipt.",!