Index: KTWTN.mac.rou
===================================================================
diff -u -r948 -r3289
--- KTWTN.mac.rou	(.../KTWTN.mac.rou)	(revision 948)
+++ KTWTN.mac.rou	(.../KTWTN.mac.rou)	(revision 3289)
@@ -15,8 +15,10 @@
 7 S @%Q1=0,TZ=""
 8 S X=@("^"_Q_UGL_"(LC,TR,1)") I $L($P(X,D,10)) D KILL^KTO4(LC,TR,$P(X,D,10)),SET^KTO4(LC,TRN,$P(X,D,10))
 9 S UOD=$TR($$EXTDATE^vhDTyp($$INTDATE^vhDTyp($P(X,D,2)),"DS"),D,"")
-11 S TZ=$N(@("^"_Q_UGL_"(LC,TR,TZ)")) G 23:TZ=-1 S UU2=^(TZ),PR=$P(UU2,D,2),@("^"_Q_UGL_"(LC,TRN,TZ)")=UU2 G 11:TZ<100!('PR)
+11 S TZ=$N(@("^"_Q_UGL_"(LC,TR,TZ)")) G 23:TZ=-1 S UU2=^(TZ),PR=$P(UU2,D,2),@("^"_Q_UGL_"(LC,TRN,TZ)")=UU2 S:TZ=1 @("^"_Q_UG1_"(TRN)")=LC_D G 11:TZ<100!('PR)
 13 D KWNODE^FLOWTOE(LC,TR,TZ),SWNODE^FLOWTOE(LC,TRN,TZ)
+ Do ProductToeleveringLijnAnnulatie^FLOWTOE2(LC,TR,TZ)
+ Do ProductToeleveringLijnGemaakt^FLOWTOE2(LC,TRN,TZ)
  S UR=$P(UU2,D,27),UZ=$P($P(UU2,D,28),";") G 11:'UR
 15 S KC=$P(@("^"_Q_"O1(UR,""F"")"),D,1)
 17 L (@("^"_Q_UGL_"(LC,TR)"),@("^"_Q_UGL_"(LC,TRN)"),@("^"_Q_"OD(KC,""F"",UR)")):2 E  S FP=2403+F60 W @F,@F4,"KOMORDER IN GEBRUIK ! [] = ok ",@F5,@F2,@F0 R K G 17