Index: KFSOA.mac.rou
===================================================================
diff -u -r734 -r2782
--- KFSOA.mac.rou	(.../KFSOA.mac.rou)	(revision 734)
+++ KFSOA.mac.rou	(.../KFSOA.mac.rou)	(revision 2782)
@@ -60,14 +60,16 @@
  .Set ^KOD(KLNr,"F",FORDNr,1)=sFL(1)
  If $D(Orgalux(0)),$D(Orgalux(1)) Do
  .Set TORDNr=$$GETNUM^FLOW("KOD","KO1")
+ .Set (^KO1(TORDNr,"F"),^KOB(TORDNr,"F"))=KLNr_D,^KO2("F",KLNr,TORDNr)=""
  .For I=0:1:4 Set ^KOD(KLNr,"F",TORDNr,I)=^KOD(KLNr,"F",FORDNr,I)
  .Set OLNr=100
  .For  Set OLNr=$O(Orgalux(1,OLNr)) Quit:OLNr=""  Do
  ..Set R=^KOD(KLNr,"F",FORDNr,OLNr),^KOD(KLNr,"F",TORDNr,OLNr)=R,TOENr=$P(R,D,27),TLNr=$P(R,D,28)
  ..Do KWNODE^FLOWORD(KLNr,FORDNr,OLNr),SWNODE^FLOWORD(KLNr,TORDNr,OLNr)
+ ..Do ProductOrderLijnAnnulatie^FLOWORD2(KLNr,FORDNr,OLNr)
+ ..Do ProductOrderLijnGemaakt^FLOWORD2(KLNr,TORDNr,OLNr)
  ..Kill ^KOD(KLNr,"F",FORDNr,OLNr)
  ..Set:TOENr LEVNr=$P(^KTO1(TOENr),D),R=^KTO(LEVNr,TOENr,TLNr),$P(R,D,27)=TORDNr,^KTO(LEVNr,TOENr,TLNr)=R
- .Set (^KO1(TORDNr,"F"),^KOB(TORDNr,"F"))=KLNr_D,^KO2("F",KLNr,TORDNr)=""
  .Do SORT^FLOWORD(KLNr,TORDNr)
  .Set:$L(ComTegKom) OLNr=^KOD(KLNr,"F",TORDNr,0),^KOD(KLNr,"F",TORDNr,0)=OLNr+1,^KOD(KLNr,"F",TORDNr,OLNr)=ComTegKom
  .For ORDNr=FORDNr,TORDNr Do