Index: KF21C.mac.rou =================================================================== diff -u -r31275 -r35677 --- KF21C.mac.rou (.../KF21C.mac.rou) (revision 31275) +++ KF21C.mac.rou (.../KF21C.mac.rou) (revision 35677) @@ -48,7 +48,7 @@ 50 S FP=FP+100 W @F W:FC="F" "TE BETALEN" W:FC="C" "UW TEGOED " W " - KORT. KONT. : ",TTB-KKB," ",VM ; 51 S KKBX=KKB I $L(VM) D S2 S KKBX=$J(NET-MST,0,UDEC) -53 D KC^KF21B($S($G(BonKLNr):BonKLNr,1:KC),KC),^SFAKTBH S BF=$$FADEF^vhRtn1() D ^cT160 D BuildIndices S @%Q1=1 +53 D KC^KF21B($S($G(BonKLNr):BonKLNr,1:KC),KC),^SFAKTBH S BF=$$FADEF^vhRtn1() S @%Q1=1 ; D ^cT160 D BuildIndices S @%Q1=1 ; YZ K NET,MST,BTW,EGA,TTB,KKB,KKBX,BR,VVD,KCF,KB,KK,KN,KX,LXT,U2,UG,UGK,UKILS,UR,VM,UPAR,UDEC,UCAECE,BonKLNr Q ; @@ -58,3 +58,4 @@ S @("^"_Q_"VE.Index(""KL"",FNR)")=KC Q +