Index: zTryout/JWI/KALOpkuis/BLOrdRsp.cls.xml
===================================================================
diff -u -r37922 -r37925
--- zTryout/JWI/KALOpkuis/BLOrdRsp.cls.xml	(.../BLOrdRsp.cls.xml)	(revision 37922)
+++ zTryout/JWI/KALOpkuis/BLOrdRsp.cls.xml	(.../BLOrdRsp.cls.xml)	(revision 37925)
@@ -49,6 +49,27 @@
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="KuisToeleveringOp">
+<FormalSpec>Param:%String="cmd"</FormalSpec>
+<Implementation><![CDATA[
+	#Dim Toelevering as %String = "0"
+	#dim Bericht as %String = ""
+	#Dim cmd as %String = ""
+
+	set Toelevering = $Order(^BLOrdRsp(Toelevering))
+	while $$$Not(Toelevering="") {
+		if $$$Not( $Data( ^KTO(5005,Toelevering) ) ){
+			if Param = "cmd" {
+				w !,"Toelevering " _ Toelevering _ "te verwijderen"
+			} else {
+				w !,"kill ^BLOrdRsp(Toelevering)"
+			}
+		}		
+		set Toelevering = $Order(^BLOrdRsp(Toelevering))
+	}
+]]></Implementation>
+</Method>
 </Class>