Index: zTryout/KCA/VerwijderOudeToeleveringen.cls.xml
===================================================================
diff -u
--- zTryout/KCA/VerwijderOudeToeleveringen.cls.xml	(revision 0)
+++ zTryout/KCA/VerwijderOudeToeleveringen.cls.xml	(revision 36771)
@@ -0,0 +1,48 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.KCA.VerwijderOudeToeleveringen">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="DoIt">
+<Implementation><![CDATA[
+
+	#Dim Toelevering As %String = "0"
+	Set Toelevering=$O(^BLOrdRsp(Toelevering))
+	While Toelevering'=""{
+		
+		#Dim TotaalAantalLijnen As %Integer = 0
+		#Dim TotaalAantalVervallenLijnen As %Integer = 0
+		
+		#Dim ToeleveringLijn As %String = ""
+		Set ToeleveringLijn=$O(^BLOrdRsp(Toelevering,ToeleveringLijn))
+		While ToeleveringLijn'=""{
+			Set TotaalAantalLijnen = TotaalAantalLijnen + 1
+			if ..IsLijnVervallen(^BLOrdRsp(Toelevering,ToeleveringLijn)) {
+				Set TotaalAantalVervallenLijnen = TotaalAantalVervallenLijnen + 1	
+			}
+			Set ToeleveringLijn=$O(^BLOrdRsp(Toelevering,ToeleveringLijn))
+		}
+		
+		if TotaalAantalLijnen = TotaalAantalVervallenLijnen {
+			Kill ^BLOrdRsp(Toelevering)		
+		}
+		
+		Set Toelevering=$O(^BLOrdRsp(Toelevering))
+	}
+]]></Implementation>
+</Method>
+
+<Method name="IsLijnVervallen">
+<FormalSpec>Lijn:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#Dim DateTimeAPI As TECH.DateTime.impl.DateTimeAPI = ##class(TECH.DateTime.impl.DateTimeAPI).%New()
+	#dim DatumOudFormaat As %String = $Extract(Lijn,46,51)
+	#dim LijnType As %String = $Extract(Lijn,2,3)
+	Quit (LijnType = "22") && (DatumOudFormaat '= "      ") && (DateTimeAPI.TextToDate("20" _DatumOudFormaat) + 4 < DateTimeAPI.CurrentDate())
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>