Index: FLOWORD.mac.rou
===================================================================
diff -u -r44560 -r47577
--- FLOWORD.mac.rou	(.../FLOWORD.mac.rou)	(revision 44560)
+++ FLOWORD.mac.rou	(.../FLOWORD.mac.rou)	(revision 47577)
@@ -487,9 +487,8 @@
  
  
 CANCLOSE()
- New Result Set Result = $$ChkBeloofdeDatum^FLOWORD4(ORDNr,KLNr)  // checken op juistheid beloofde datum, false indien wijzigingen gebeurd zijn of datum onjuist
- Do:'Result ADD^vhScherm(1,24),REFRESH   // indien sluiten niet mag .. scherm hertekenen
- Quit Result
+ Quit ##class(CHUI.VKP.OrderIngave.OrderSluiterFactory).%New().GeefOrderSluiter(ORDNr).KanOrderSluiten(ORDNr,KLNr)
+ 
  ;
  ; Sluit order. 
  ; LET OP: DEZE SUBROUTINE WORDT AANGEROEPEN BIJ HET SLUITEN VAN HET "MAAK/WIJZIG ORDER" SCHERM.