Index: APPS/TRANSP/impl/LeveringsbonOpkuisService.cls.xml
===================================================================
diff -u
--- APPS/TRANSP/impl/LeveringsbonOpkuisService.cls.xml	(revision 0)
+++ APPS/TRANSP/impl/LeveringsbonOpkuisService.cls.xml	(revision 50415)
@@ -0,0 +1,61 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.TRANSP.impl.LeveringsbonOpkuisService">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="OrderApi">
+<Type>DOM.VKP.OrderAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Description>
+Do ##class(APPS.TRANSP.impl.LeveringsbonOpkuisService).%New().KuisOpLeveringsbonnenOuderDan()</Description>
+<FormalSpec>OrderApi:DOM.VKP.OrderAPI=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..OrderApi = $$$Inject(OrderApi, ##class(DOM.VKP.impl.DataM.DataMOrderAPI).%New())
+	Do ##class(vhLib.OldSchool).InitVars()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="KuisOpLeveringsbonnenOuderDan">
+<FormalSpec>LeeftijdInAantalDagen:%Integer=90</FormalSpec>
+<Implementation><![CDATA[
+	#dim Bon As DOM.VKP.Bon
+	#dim BonId As %String
+	#dim IsBonTypeF As %Boolean
+	#dim LeveringsDatum As %Date
+	#dim BonIterator As TECH.Iterator = ..OrderApi.GeefBonIterator()
+	
+	While BonIterator.HasNext() {
+		Set Bon = BonIterator.Next()
+		Set BonId = Bon.GeefID()
+		Set IsBonTypeF = ..OrderApi.BestaatBon(BonId)
+		Set LeveringsDatum = Bon.GeefLeveringsDatum()
+		
+		If (IsBonTypeF && (LeveringsDatum <= ($Horolog - LeeftijdInAantalDagen))) {
+			#dim KlantNummer As %Integer = $Piece(Bon.GeefKlantID(),"||",2)
+			Try {
+				Do DELBON^FLOWBON3(KlantNummer,BonId)
+				Do DELKUP^FLOWBON3(KlantNummer,BonId)
+				Kill ^KUL(KlantNummer,"F",BonId)
+				Kill ^KU1(BonId,"F")	
+			} Catch {
+				#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+			}
+		}
+		
+		Set IsBonTypeF = $$$False
+		Set LeveringsDatum = $Horolog
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>