Index: CHUI/VKP/OrderIngave/OrderSluiterv01.cls.xml
===================================================================
diff -u -r44532 -r45047
--- CHUI/VKP/OrderIngave/OrderSluiterv01.cls.xml	(.../OrderSluiterv01.cls.xml)	(revision 44532)
+++ CHUI/VKP/OrderIngave/OrderSluiterv01.cls.xml	(.../OrderSluiterv01.cls.xml)	(revision 45047)
@@ -10,8 +10,10 @@
 DE VARIABELE Closed=True BETEKENT DAT HET ORDER VROEGER AL EENS "GESLOTEN" IS GEWEEST, IN DE BETEKENIS VAN "BEVESTIGD, GECOMMIT, ...".
 DUS ZAKEN DIE SLECHTS 1x MOGEN GEBEUREN WANNEER OV HET ORDER SLUIT/VRIJGEEFT/COMMIT, MOETEN MET EEN Do:'Closed VOORWAARDE!</Description>
 <FormalSpec>ORDNr:%String,KLNr:%String,KlantObject:%CacheString</FormalSpec>
+<ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
- #dim BevatMaatWerk,Closed,Created,DueOutOk,ExtPers,FaxNrOrEmail,GelinkteOrders,IntPers,KredLock,LEVNr,OLNr,OrdBev,OrdDat,OrdTyp,R,TLNr
+ 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
  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)
  Quit:KredLock=1 ; vroegtijdig stoppen indien nog niet vrijgegeven door boekhouding
@@ -75,10 +77,12 @@
  
  //Instellen van consumentencommissie na sluiten order
  //Do StelInConsumentCommissie^KFO(ORDNr,1,KlantObject) (vorige code)
+ new ConsumentCommissieDialoog
  Set ConsumentCommissieDialoog = ##class(CHUI.Flow.Order.ConsumentenCommissieDialoog).%New(ORDNr)
  Do ConsumentCommissieDialoog.StelInConsumentCommissie(ORDNr,1,KlantObject)
  
   // Ook een event raisen voor alle gelinkte orders die zijn aangemaakt
+ New GelinkteOrders,GelinkteOrdersIterator
  Set GelinkteOrders = $Piece(^KOD(KLNr,"F",ORDNr,1),"\",41)
  Set GelinkteOrdersIterator = ##class(TECH.PiecesIterator).%New(GelinkteOrders,";")
  While (GelinkteOrdersIterator.HasNext())