Index: CHUI/VKP/OrderIngave/OrderSluiterv01.cls.xml
===================================================================
diff -u -r47602 -r47604
--- CHUI/VKP/OrderIngave/OrderSluiterv01.cls.xml	(.../OrderSluiterv01.cls.xml)	(revision 47602)
+++ CHUI/VKP/OrderIngave/OrderSluiterv01.cls.xml	(.../OrderSluiterv01.cls.xml)	(revision 47604)
@@ -4,6 +4,23 @@
 <IncludeCode>BL.Derde.KlantSpecifiek</IncludeCode>
 <Super>CHUI.VKP.OrderIngave.OrderSluiter</Super>
 
+<Property name="LegacyPartijAPI">
+<Type>DOM.PARTIJ.LegacyPartijAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>initvalue:%CacheString</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..LegacyPartijAPI = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="KanOrderSluiten">
 <FormalSpec>ORDNr:%String,KLNr:%String</FormalSpec>
 <ProcedureBlock>0</ProcedureBlock>
@@ -28,6 +45,9 @@
  New Bevestiger
  Do CheckType2Proforma^FLOWORD5(ORDNr) ; vraagstelling om nul orders en orders op naam van vertegenwoordigers om te vormen naar proforma , indien die nog geen monster of proforma waren ( cfr. catalogen )
  Set R=^KOD(KLNr,"F",ORDNr,1),KredLock=$P(R,"\",23),OrdTyp=$P(R,"\",25)
+ 	
+ Do ..KiesHaalbareLeverdatums(ORDNr, KLNr, R)
+ 	
  Quit:KredLock=1 ; vroegtijdig stoppen indien nog niet vrijgegeven door boekhouding
  Set OrdDat=$P(R,"\",2),Created=$P(R,"\",8),IntPers=$P(Created,"#"),ExtPers=$P(R,"\",9)
  Set FaxNrOrEmail=$P(R,"\",10),Closed=$P(R,"\",22),BevatMaatWerk=$$BevatMaatWerk^FLOW("O",ORDNr)
@@ -106,6 +126,21 @@
  Quit
 ]]></Implementation>
 </Method>
+
+<Method name="KiesHaalbareLeverdatums">
+<FormalSpec>ORDNr:%String,KLNr:%String,OrderNode1:%String</FormalSpec>
+<Implementation><![CDATA[
+ 	Set KlantID = ..LegacyPartijAPI.GeefKlantPartijID(KLNr)
+ 	Set IsKlantMetIntegratieVrijgaveInHandelErp = ( (KlantID = ##class(DOM.VKP.enu.Klant).HaefeleBelgie()) || (KlantID = ##class(DOM.VKP.enu.Klant).HaefeleNederland())) 
+ 	If IsKlantMetIntegratieVrijgaveInHandelErp {
+	 	Set Oorsprong = $P(OrderNode1,"\",53)
+	 	If (##class(BL.Flow.Offerte.enu.Oorsprong).UniShop() = Oorsprong) {
+ 			Set Input="AL"
+	 		Do AMODIFY^FLOWORD4(Input) 
+	 	}
+ 	}
+]]></Implementation>
+</Method>
 </Class>