Index: FLOWORD2.mac.rou
===================================================================
diff -u -r52868 -r55794
--- FLOWORD2.mac.rou	(.../FLOWORD2.mac.rou)	(revision 52868)
+++ FLOWORD2.mac.rou	(.../FLOWORD2.mac.rou)	(revision 55794)
@@ -549,7 +549,12 @@
  Set PostCode=$P(^KOD(KLNr,"F",ORDNr,3),D,6) ; Leveringsadres
  Set:PostCode="" PostCode=$P(^KKL(^KK1(KLNr),0),D,6)
  Set blVerzendWijze=##class(APPS.VKP.VerzendWijze).%New(KLNr,VerzendWijze,LandCode,PostCode,ORDNr)
- Set blLeveringsTermijn=##class(APPS.VKP.LeveringsTermijn).%New(RefDate,blVerzendWijze)
+
+ // Set blLeveringsTermijn=##class(APPS.VKP.LeveringsTermijn).%New(RefDate,blVerzendWijze)
+ Set LeveringsTermijnFactory = ##class(APPS.VKP.impl.LeveringsTermijnFactory).%New()
+ #dim PartijID As %String = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID(KLNr)
+ #dim blLeveringsTermijn As APPS.VKP.LeveringsTermijn = LeveringsTermijnFactory.MaakLeveringsTermijn(RefDate, blVerzendWijze, PartijID, ##class(DOM.common.enu.Personality).VanHoecke())
+
  Quit
  
 GetRefDate(KLNr,ORDNr)