Index: zTryout/KCA/VerwijderOudeToeleveringen.cls.xml =================================================================== diff -u -r50074 -r50286 --- zTryout/KCA/VerwijderOudeToeleveringen.cls.xml (.../VerwijderOudeToeleveringen.cls.xml) (revision 50074) +++ zTryout/KCA/VerwijderOudeToeleveringen.cls.xml (.../VerwijderOudeToeleveringen.cls.xml) (revision 50286) @@ -26,7 +26,7 @@ if TotaalAantalLijnen = TotaalAantalVervallenLijnen { Kill ^BLOrdRsp(Toelevering) } - Do ##class(Tools.Wlip).%New(26).String("hello") + Set Toelevering=$O(^BLOrdRsp(Toelevering)) } ]]> @@ -39,7 +39,6 @@ #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) - Do ##class(Tools.Wlip).%New(26).String("hello") Quit (LijnType = "22") && (DatumOudFormaat '= " ") && (DateTimeAPI.TextToDate("20" _DatumOudFormaat) + 4 < DateTimeAPI.CurrentDate()) ]]>