Index: FLOWORD.mac.rou
===================================================================
diff -u -r42808 -r44227
--- FLOWORD.mac.rou	(.../FLOWORD.mac.rou)	(revision 42808)
+++ FLOWORD.mac.rou	(.../FLOWORD.mac.rou)	(revision 44227)
@@ -491,7 +491,10 @@
  Do:'Result ADD^vhScherm(1,24),REFRESH   // indien sluiten niet mag .. scherm hertekenen
  Quit Result
  ;
- ; Sluit order
+ ; Sluit order. 
+ ; LET OP: DEZE SUBROUTINE WORDT AANGEROEPEN BIJ HET SLUITEN VAN HET "MAAK/WIJZIG ORDER" SCHERM.
+ ; 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!
 CLOSE 
  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
@@ -518,7 +521,9 @@
  . Set $P(^KOD(KLNr,"F",ORDNr,1),D,10)=FaxNrOrEmail
  Else  Do:'$$CHKLACHT(ORDNr) KLACHT
  
- Do ##class(APPS.VKP.Order.impl.SpaceTowerSplitser).%New().SplitsSpaceTowerLijnen(ORDNr)
+ ; Eventueel moet de voorwaarde Closed omgezet worden naar een voorwaarde per lijn, namelijk: als er al KOM-link gemaakt of zelfs terug doorbroken is, dan mag er niet meer gesplitst worden.
+ ; Want dan werkt dit ook correct als men na eerste sluiting nog een lijn zou toevoegen.
+ Do:'Closed ##class(APPS.VKP.Order.impl.SpaceTowerSplitser).%New().SplitsSpaceTowerLijnen(ORDNr)
  Set R=^KOD(KLNr,"F",ORDNr,1)
  Do:'Closed
  .Set R=^KOD(KLNr,"F",ORDNr,1) Set:$P(R,D,45)="" $P(R,D,45)=$H,^KOD(KLNr,"F",ORDNr,1)=R ; Referentiedatum voor DOM levertermijn