KKOV8 G 1 ;REGISTRATIE KONKURENTIEOVERZICHT (MODULE VERWIJDEREN VOLLEDIG OVERZICHT);KKOV4:Quit naar KKOV4
 ;
1 S U2=@("^"_Q_"K1(KC)"),U2=@("^"_Q_"KL(U2,0)")
3 S FP=2203+F60 W @F,@F1,"VERWIJDEREN OVERZICHT VAN KLANT """,$P(U2,D,1)," ",$P(U2,D,2),""""
5 S FP=2303 W @F,@F1,"V = verwijderen   - = hernemen : ."
7 K IK D IK^PROC1 S K=R G 7:"-V"'[K,YZ:K="-"
9 K @("^"_Q_UGL_"(KC)")
13 S K=","
 ;
YZ Q
 ;
 Q
Z X ^cZ Q
ZZ ; 16.09.91 - 16 u 04