Index: CHUI/VKP/OrderIngave/OrderSluiterv01.cls.xml
===================================================================
diff -u -r45047 -r47577
--- CHUI/VKP/OrderIngave/OrderSluiterv01.cls.xml	(.../OrderSluiterv01.cls.xml)	(revision 45047)
+++ CHUI/VKP/OrderIngave/OrderSluiterv01.cls.xml	(.../OrderSluiterv01.cls.xml)	(revision 47577)
@@ -4,6 +4,18 @@
 <IncludeCode>BL.Derde.KlantSpecifiek</IncludeCode>
 <Super>TECH.RegisteredObject</Super>
 
+<Method name="KanOrderSluiten">
+<FormalSpec>OrderNr:%String,KLNr:%String</FormalSpec>
+<ProcedureBlock>0</ProcedureBlock>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+ 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
+]]></Implementation>
+</Method>
+
 <Method name="Sluit">
 <Description>
 LET OP: DEZE SUBROUTINE WORDT AANGEROEPEN BIJ HET SLUITEN VAN HET "MAAK/WIJZIG ORDER" SCHERM.
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.
Index: CHUI/VKP/OrderIngave/TijdelijkOrderSluiterv01.cls.xml
===================================================================
diff -u -r47575 -r47577
--- CHUI/VKP/OrderIngave/TijdelijkOrderSluiterv01.cls.xml	(.../TijdelijkOrderSluiterv01.cls.xml)	(revision 47575)
+++ CHUI/VKP/OrderIngave/TijdelijkOrderSluiterv01.cls.xml	(.../TijdelijkOrderSluiterv01.cls.xml)	(revision 47577)
@@ -60,6 +60,19 @@
 ]]></Implementation>
 </Method>
 
+<Method name="KanOrderSluiten">
+<Description>
+KLNr voor compatibiliteit met CHUI.VKP.OrderIngave.OrderSluiterv01</Description>
+<FormalSpec>OrderNr:%String,KLNr:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim Bezwaren as %ListOfDataTypes = ..GeefOrderSluitenBezwaren(OrderNr)
+	
+	Do:Bezwaren.Count() ..BezwarenWeergever.Toon("Niet actieve producten in order",Bezwaren)		
+	Quit $$$Not(Bezwaren.Count())
+]]></Implementation>
+</Method>
+
 <Method name="GeefOrderSluitenBezwaren">
 <FormalSpec>ORDNr:%String</FormalSpec>
 <Private>1</Private>