Index: zTryout/WV/PM/Test.cls.xml
===================================================================
diff -u -r34431 -r45988
--- zTryout/WV/PM/Test.cls.xml	(.../Test.cls.xml)	(revision 34431)
+++ zTryout/WV/PM/Test.cls.xml	(.../Test.cls.xml)	(revision 45988)
@@ -101,6 +101,102 @@
 	Kill ^PRBS("IP",KindProductID,MoederProductID)
 ]]></Implementation>
 </Method>
+
+<Method name="OpkuisORDWxKOD">
+<Description>
+Oproepen via 
+  d ##class(zTryout.WV.PM.Test).OpkuisORDWxKOD() </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>KlantNr:%String=7587</FormalSpec>
+<Implementation><![CDATA[
+	#dim OperatieScope As TECH.OperatieScope = ##class(TECH.OperatieScope).StartMetTx()		
+	Try {			  	
+		#dim OLUNr As %String = ""
+		#dim CONSNr As %String = ""
+		#dim ORDNr As %String = ""
+		For {
+			Set CONSNr = $O(^ORDW("D",CONSNr)) Quit:(CONSNr="")
+			Continue:($P(^ORDW("D",CONSNr),"\",1) '= KlantNr)
+			
+			For { 
+				Set ORDNr=$O(^ORDW("D",CONSNr,"D",ORDNr)) Quit:(ORDNr="")
+				
+				#dim KODHeeftOrderlijnen As %Boolean = ($O(^KOD(KlantNr,"F",ORDNr,99)) > 99)
+				#dim ORDWHoofdingStatus As %Boolean = $P(^ORDW("D",CONSNr),"\",20)
+				
+				#dim HeeftFixNodig As %Boolean = (ORDWHoofdingStatus '= "B") && ($$$Not(KODHeeftOrderlijnen))   ; Set HeeftFixNodig = HeeftFixNodig || (##class(TECH.StringUtils).Equals(ORDNr, 100185,100193,100200,100210,100213,100219,100297,100298,100300,100302,100303,100308,100309))
+				
+				If (HeeftFixNodig) {
+					Write !,"CONSNr : "_CONSNr_"  - ORDNr : "_ORDNr_"  | KOD Ln : "_KODHeeftOrderlijnen_"  | ORDW St : '"_ORDWHoofdingStatus_"'"
+					Write "  --> Fix data"
+					
+					For { Set OLUNr=$O(^ORDW("D",CONSNr,"D",ORDNr,OLUNr)) Quit:OLUNr=""
+						#dim ORDWLijnStatus As %Boolean = $P(^ORDW("D",CONSNr,"D",ORDNr,OLUNr),"\",2)
+						Write !,"ORDWLijnStatus '"_ ORDWLijnStatus _"' -> B "
+						Set $P(^ORDW("D",CONSNr,"D",ORDNr,OLUNr),"\",2) = "B"
+					}
+
+					Set $P(^ORDW("D",CONSNr),"\",20) = "B"
+					Kill ^ORDW("IW",CONSNr)
+					Write !,"ORDW Status en index aangepast voor CONS '"_CONSNr_"'"
+
+					Do ..VerwijderOrder(ORDNr)
+					Write !,"Order ^KOD("_ORDNr_") is verwijderd."
+				}
+			}
+		}
+		Do OperatieScope.Gelukt()
+	}
+	Catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Do OperatieScope.Gefaald(Exception)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderOrder">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>OrderNr:%Integer</FormalSpec>
+<Implementation><![CDATA[
+	if ##class(DOM.VKP.impl.DataM.DataMOrder).%ExistsId(OrderNr){
+		do ..RaiseOrderVerwijderdEvents(OrderNr)
+	}
+	
+	if $data(^KO1(OrderNr,"F")) {		
+		#dim KlantNr As %String = $piece(^KO1(OrderNr,"F"),"\")
+		#dim LijnNr As %String = 99
+		for { set LijnNr = $order(^KOD(KlantNr,"F",OrderNr,LijnNr)) quit:LijnNr="" 
+			 #dim LijnRec As %String = ^(LijnNr)
+			 #dim LijnID As %String = $piece(LijnRec,"\",15)
+			 #dim ProductID As %String = $piece(LijnRec,"\",2)
+			 continue:LijnID=""
+			 continue:ProductID=""
+			 Kill ^ORD("IU",OrderNr,LijnID)
+			 Kill ^ORD("IP",ProductID,OrderNr,LijnID)
+		}
+		Kill ^KO1(OrderNr,"F")
+		Kill ^KO2("F",KlantNr,OrderNr)
+		Kill ^KOD(KlantNr,"F",OrderNr)
+	}
+	
+	do ##class(DOM.VKP.impl.DataM.DataMOrder).%DeleteId(OrderNr)
+]]></Implementation>
+</Method>
+
+<Method name="RaiseOrderVerwijderdEvents">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>OrderNr:%String</FormalSpec>
+<Implementation><![CDATA[
+	if $data(^KO1(OrderNr)) {
+		#dim KlantNr As %String = $piece(^KO1(OrderNr,"F"),"\",1)	
+		#dim OrderLijnNr As %String = 99
+		for { set OrderLijnNr = $order(^KOD(KlantNr,"F",OrderNr,OrderLijnNr)) quit:OrderLijnNr=""
+			do ProductOrderLijnAnnulatie^FLOWORD2(KlantNr,OrderNr,OrderLijnNr)
+		}
+		do ##class(DOM.VKP.event.OrderEventRaiser).RaiseOrderVerwijderdEvent(OrderNr)
+	}
+]]></Implementation>
+</Method>
 </Class>