Index: KFAFRCD.mac.rou
===================================================================
diff -u -r948 -r2782
--- KFAFRCD.mac.rou	(.../KFAFRCD.mac.rou)	(revision 948)
+++ KFAFRCD.mac.rou	(.../KFAFRCD.mac.rou)	(revision 2782)
@@ -46,6 +46,7 @@
  D KWNODE^FLOWORD(KC,UR,UVN)
  I 'UA D
  .I $D(LVHCYB),$D(@("^"_Q_UGL_"(0,US,4)")) S URLC=UR D @^(4)
+ .Do ProductOrderLijnAnnulatie^FLOWORD2(KC,UR,UVN)
  .K @("^"_Q_UGL_"(KC,US,UR,UVN)")
  .I $O(@("^"_Q_UGL_"(KC,US,UR,100)"))'="" Q
  .K @("^"_Q_UGL_"(KC,US,UR)")
@@ -70,8 +71,9 @@
  ..D SWNODE^FLOWTOE(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)
-37 .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
+ .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
  .D SWNODE^FLOWORD(KC,UR,UVN)
+ .Do ProductOrderLijnGewijzigd^FLOWORD2(KC,UR,UVN,##class(DOM.VKP.enu.ProductOrderLijnWijzigingType).Aantal())
  S UA=UAS,ULT=ULTS,UR=URS,UOD=UODS,UOR=UORS,UVN=@("^"_Q_UGL_"(KC,US,UR,0)"),UZ=UVN-100,X=@("^"_Q_"PR(PR,2)")
  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)