do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.OV.impl.TestFlowObjectInhoudService") 1 vhUnitTest.TestCase 1 incl propere opkuis van de indexen! // - After AllTests : idem #dim KlantNr As %String #dim BONNr As %String #dim OrderID As %String = "" For { Set OrderID=$O(^KO1(OrderID)) Quit:(OrderID="") Set KlantNr=$P(^KO1(OrderID,"F"),"\",1) Set BONNr=$P(^KO1(OrderID,"F"),"\",2) If (BONNr="") && ('$D(^KOD(KlantNr,"F",OrderID))) { Kill ^KO1(OrderID) } } ]]>