Index: KFAFRCD.mac.rou
===================================================================
diff -u -r2782 -r3289
--- KFAFRCD.mac.rou	(.../KFAFRCD.mac.rou)	(revision 2782)
+++ KFAFRCD.mac.rou	(.../KFAFRCD.mac.rou)	(revision 3289)
@@ -65,10 +65,12 @@
  ..S $P(X,D,9)=$J($P(X,D,9)/$P(X,D,3)*UA,0,2),$P(X,D,10)=$P(X,D,9),$P(X,D,16)=$J($P(X,D,16)/$P(X,D,3)*UA,0,2)
  ..S $P(X,D,3)=UA,@("^"_Q_"TO(LC,TR,TUZ)")=X
  ..D SWNODE^FLOWTOE(LC,TR,TUZ)
+ ..Do ProductToeleveringLijnGewijzigd^FLOWTOE2(LC,TR,TUZ,##class(DOM.AKP.enu.ProductToeleveringLijnWijzigingType).Aantal())
  ..S $P(X,D,9)=$J($P(X,D,9)/$P(X,D,3)*UAS,0,2),$P(X,D,10)=$P(X,D,9),$P(X,D,16)=$J($P(X,D,16)/$P(X,D,3)*UAS,0,2)
  ..S $P(X,D,3)=UAS,$P(X,D,25)=$$EXTDATE^vhDTyp($$INTDATE^vhDTyp(ULTS,"DW")-7,"DW")
  ..S $P(X,D,27)=URS,$P(X,D,28)=@("^"_Q_"OD(KC,US,URS,0)"),@("^"_Q_"TO(LC,TR,TUZS)")=X
  ..D SWNODE^FLOWTOE(LC,TR,TUZS)
+ ..Do ProductToeleveringLijnGemaakt^FLOWTOE2(LC,TR,TUZS)
  .S X=@("^"_Q_UGL_"(KC,US,UR,1)"),UN=$J(UEP/AFE*UA,1,2)
  .S:KKN UEP=$P(U2,D,6),UN=$J(UEP*(100-PK1)/100*(100-PK2)/100*UA/AFE,1,2) S UBE=$J(UEP/AFE*UA,1,2),UK="" S:PK1 UK=$J(PK1,4,1) S:PK2 UK=UK_" "_$J(PK2,4,1)
  .S U2=$P(U2,D,1,2)_D_UA_D_$P(U2,D,4,8)_D_UN_D_UN_D_$P(U2,D,11,15)_D_UBE_D_$P(U2,D,17,99),^(UVN)=U2