Index: APPS/Halux/Planning/impl/ToeleveringInfo.cls.xml
===================================================================
diff -u -r1073 -r1133
--- APPS/Halux/Planning/impl/ToeleveringInfo.cls.xml	(.../ToeleveringInfo.cls.xml)	(revision 1073)
+++ APPS/Halux/Planning/impl/ToeleveringInfo.cls.xml	(.../ToeleveringInfo.cls.xml)	(revision 1133)
@@ -130,18 +130,8 @@
 		Set Toelevering = ToeleveringAPI.GeefToelevering(..%Id())
 		If ($IsObject(Toelevering))
 		{
-			Set VerzendWijze = ""
-			Set Order = Toelevering.GeefOrder()
-			If ($IsObject(Order))
-			{
-				Set VerzendWijze = Order.GeefVerzendWijze()
-				Set LeveringsTermijn = ##class(DOM.VKP.LeveringsTermijn).%New(,VerzendWijze)
-				Set LeverDag = LeveringsTermijn.GetVroegsteLeverDag($zdth(..Gepland,3))
-				Set DueOutNaPlanning = LeveringsTermijn.GetLaatsteProductieTijdstip(LeverDag)
-				Set LeverImpact = DueOutNaPlanning - $zdth(..DueOut,3)
-			}
+			Set LeverImpact = ##class(APPS.Halux.Planning.impl.ProductPlanningUtils).GeefLeverImpact(Toelevering,..Gepland)
 		}
-		
 	}
 	
 	If (LeverImpact > 0) { Set LeverImpact = "+"_LeverImpact }