Index: FLOWORD.mac.rou
===================================================================
diff -u -r2015 -r2150
--- FLOWORD.mac.rou	(.../FLOWORD.mac.rou)	(revision 2015)
+++ FLOWORD.mac.rou	(.../FLOWORD.mac.rou)	(revision 2150)
@@ -54,6 +54,8 @@
  . . . Set:$L(PakketRef) $P(PRNr(Count,"Default"),D,37)=PakketRef
  . Do:$D(PRNr) AUTOORD^FLOWORD3
  . Set Offerte("F")=ORDNr
+ Do:($IsObject(##class(APPS.VKP.Maatwerk.ConfiguratorService).%New().GeefBesteldeProducten(##class(APPS.VKP.Maatwerk.enu.DocumentType).Order(), ORDNr))) VerwerkConfiguratorProducten
+ Do:($IsObject(##class(CHUI.Flow.ConfiguratorHelper).GeefAdminSessieParameters(##class(APPS.VKP.Maatwerk.enu.DocumentType).Order(), ORDNr))) StartExterneConfigurator
  Do RESET^vhScherm
  For  Do  If Input="-" Do:AD(13)'="FLOWORDADP" DETAIL(1) Do SORT(KLNr,ORDNr),ChkRembours^FLOWORD4(ORDNr),AkpVkpVerlies^FLOW2("O",ORDNr,.AkpVkpVerlies),qc2^vhRtn2("^KOD("_KLNr_",""F"","_ORDNr_")") Quit
  .Set ScrolOrd=1
@@ -408,8 +410,9 @@
  
 Configurator(WijzigProduct)
  Quit:(WijzigProduct)&&('$Data(Detail))
- New R,PRNr,BesteldeProducten,BesteldeProductenIterator,BesteldProduct,Parameters
+ New R,PRNr,BesteldeProducten,BesteldeProductenIterator,BesteldProduct,Parameters,IsGeannuleerd
  Set (PRNr,BesteldeProducten,Puntjes)=""
+ Set IsGeannuleerd = 0
  
  If (WijzigProduct)
  {
@@ -428,14 +431,16 @@
 	 Do DISPONLY^vhTXTPOP("Opslaan parameterobject niet gelukt~"_$$ParseStatus^vhLib(Status),"Fout!")
 	 Quit
  }
- 
+StartExterneConfigurator
+ Set:('$IsObject($Get(Parameters))) Parameters = ##class(CHUI.Flow.ConfiguratorHelper).GeefAdminSessieParameters(##class(APPS.VKP.Maatwerk.enu.DocumentType).Order(), ORDNr)
  Do ##class(CHUI.Flow.ConfiguratorHelper).StartConfiguratorMet(Parameters)
+VerwerkConfiguratorProducten
+ Set:('$IsObject($Get(Parameters))) Parameters = ##class(CHUI.Flow.ConfiguratorHelper).GeefAdminSessieParameters(##class(APPS.VKP.Maatwerk.enu.DocumentType).Order(), ORDNr)
  Set BesteldeProducten = ##class(CHUI.Flow.ConfiguratorHelper).GeefBesteldeProducten(##class(APPS.VKP.Maatwerk.enu.DocumentType).Order(), ORDNr)
  
- 
- If (WijzigProduct)
+ If (Parameters.%Extends("APPS.VKP.Maatwerk.impl.ProductWijzigenParameters"))
  {
-	 Do MDELETE
+	 Do DELLINE(ORDNr, Parameters.GeefLijnID())
  }
  
  Set BesteldeProductenIterator = ##class(TECH.ListIterator).%New(BesteldeProducten.Lijst)
@@ -448,7 +453,7 @@
  }
  
  Do BesteldeProducten.%DeleteId(BesteldeProducten.%Id())
- Do Parameters.%DeleteId(Parameters.%Id())
+ Do:('IsGeannuleerd) Parameters.%DeleteId(Parameters.%Id())
  
  Quit