Index: CHUI/VKP/OrderIngave/BevestigdAXOrderSluiterv01.cls.xml
===================================================================
diff -u -r47609 -r47736
--- CHUI/VKP/OrderIngave/BevestigdAXOrderSluiterv01.cls.xml	(.../BevestigdAXOrderSluiterv01.cls.xml)	(revision 47609)
+++ CHUI/VKP/OrderIngave/BevestigdAXOrderSluiterv01.cls.xml	(.../BevestigdAXOrderSluiterv01.cls.xml)	(revision 47736)
@@ -1,6 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="CHUI.VKP.OrderIngave.BevestigdAXOrderSluiterv01">
+<IncludeCode>BL.Derde.KlantSpecifiek</IncludeCode>
 <Super>CHUI.VKP.OrderIngave.OrderSluiter</Super>
 
 <Property name="Generator">
@@ -23,13 +24,23 @@
 <Private>1</Private>
 </Property>
 
-<Property name="BouwsteenIteratorFactory">
-<Type>AXimpl.Dynamics.InventoryOut.Converter.BouwsteenIteratorFactory</Type>
+<Property name="LegacyPartijAPI">
+<Type>DOM.PARTIJ.LegacyPartijAPI</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="SpaceTowerSplitser">
+<Type>APPS.VKP.Order.impl.SpaceTowerSplitser</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Logger">
+<Type>vhLib.Logger</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>Generator:AXimpl.Generator,OrderAPI:DOM.VKP.OrderAPI,ProductAPI:DOM.PM.ProductAPI,BezwarenWeergever:CHUI.common.BezwarenWeergever,BouwsteenIteratorFactory:AXimpl.Dynamics.InventoryOut.Converter.BouwsteenIteratorFactory</FormalSpec>
+<FormalSpec>Generator:AXimpl.Generator,OrderAPI:DOM.VKP.OrderAPI,ProductAPI:DOM.PM.ProductAPI</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -38,23 +49,68 @@
 	Set ..Generator = $$$Inject(Generator,##class(AXimpl.Generator).%New())
 	Set ..OrderAPI = $$$Inject(OrderAPI,##class(DOM.DomeinContext).Instance().GeefOrderAPI())
 	Set ..ProductAPI = $$$Inject(ProductAPI, ##class(DOM.DomeinContext).Instance().GeefProductAPI())
-	Set ..BezwarenWeergever = $$$Inject(BezwarenWeergever,##class(CHUI.common.impl.BezwarenWeergever).%New())
+	Set ..LegacyPartijAPI = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI()
+	Set ..SpaceTowerSplitser = ##class(APPS.VKP.Order.impl.SpaceTowerSplitser).%New()
+	
+	Set ..Logger = ##class(vhLib.Logger).%New()
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="Sluit">
 <FormalSpec>ORDNr:%String,KLNr:%String,KlantObject:%CacheString</FormalSpec>
+<ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
 	#dim Bezwaren as %ListOfDataTypes = ..GeefOrderSluitenBezwaren(ORDNr)
 	if Bezwaren.Count() {
-		Do ..BezwarenWeergever.Toon("Niet actieve producten in order",Bezwaren)		
+		Do ..Logger.Debug("Sluiten Order", "Er zijn bezwaren voor het sluiten van OrderID " _ORDNr _" : " _$$ObjListToText^vhLib(Bezwaren))
 	} else {
 		Do ##class(vhLib.OldSchool).InitVars()
-		Do BSControl^FLOWORD7(ORDNr)
+		
 		#dim Order as DOM.VKP.Order = ..OrderAPI.GeefOrder(ORDNr)
-		Do Order.ZetStatus(##class(DOM.VKP.enu.OrderStatus).Gesloten())
-		Do ..OrderAPI.Bewaar(Order)
+		Set KLNr = ..LegacyPartijAPI.GeefKlantNummerVoorPartijID(Order.GeefKlantID())
+
+		New zb,R,OrdDat,Closed,TLNr,OLNr,Data,IntPers,ExtPers,FaxNrOrEmail,DevNr,KredLock,Created,LEVNr,DueOutOk,ORDNrs,TempORDNr,OrdBev,FaxType,Exit,BevatMaatWerk,KlantID,OrderBevestiger
+		New Bevestiger
+		
+		Set Closed = 0
+		Do:'Closed ..SpaceTowerSplitser.SplitsSpaceTowerLijnen(ORDNr)
+		Set R=^KOD(KLNr,"F",ORDNr,1)
+		Do:'Closed
+		.Set R=^KOD(KLNr,"F",ORDNr,1) Set:$P(R,"\",45)="" $P(R,"\",45)=$H,^KOD(KLNr,"F",ORDNr,1)=R ; Referentiedatum voor DOM levertermijn
+		.Do:'$$ISTERUGN^FLOWORD5(ORDNr) BSControl^FLOWORD7(ORDNr)
+
+		Do BLDTOE^FLOWORD7(KLNr, ORDNr)
+
+		Set OLNr=100
+		For  Set OLNr=$O(^KOD(KLNr,"F",ORDNr,OLNr)) Quit:OLNr=""  Do
+		.Set R=^KOD(KLNr,"F",ORDNr,OLNr)
+		.Set:$P(R,"\",27) TLNr($P(R,"\",27))=""
+		Set TLNr=""
+		For  Set TLNr=$O(TLNr(TLNr)) Quit:TLNr=""  Do TSPLIT^FLOWTOE(TLNr)
+
+		; invullen productie gegevens voor in de halux toeleveringen
+		If $$ISHALUX^FLOW("O",ORDNr) && $$CheckProductieOrder^FLOWHALUX(ORDNr) 
+		.If Closed Do  Quit:DueOutOk
+		..Set OLNr=100,DueOutOk=1
+		..For  Set OLNr=$O(^KOD(KLNr,"F",ORDNr,OLNr)) Quit:OLNr=""  Do
+		...Set R=^KOD(KLNr,"F",ORDNr,OLNr)
+		...Set:$P(R,"\",27) TLNr($P(R,"\",27))=""
+		..Set TLNr=""
+		..For  Set TLNr=$O(TLNr(TLNr)) Quit:TLNr=""  Do  Quit:'DueOutOk
+		...Set LEVNr=$P(^KTO1(TLNr),"\")
+		...Set R=^KTO(LEVNr,TLNr,1),DueOutOk=$P(R,"\",19)
+		.Do ProductieOrder^FLOWHALUX(ORDNr,1)
+
+		Do:'Closed
+		.Set blVerzendWijze = Order.GeefVerzendWijze() 
+		.Set blLeveringsTermijn=##class(APPS.VKP.LeveringsTermijn).%New(,blVerzendWijze)
+		.Do SetDueOutProductieORD^FLOWHALUX(ORDNr,1)
+		.Do:KLNr'=$$$KlantKeller CheckTBXDagPlus^FLOWORD2(ORDNr)
+
+		// Event raisen dat het order gesloten is
+		;Do ##class(DOM.VKP.event.OrderEventRaiser).RaiseOrderGeslotenEvent(ORDNr)
 	}
 ]]></Implementation>
 </Method>