KSEL ;SELEKTIES ;KSEL; Go naar KSELA, KSELC, KSELE, KSELF, KSELK [ 10/26/2001  11:00 AM ]
 ;
T1 ;OPENEN;WIJZIGEN;RAADPLEGEN;VERWIJDEREN;KONTROLELIJST
T2 ;KLANTEN;LEVERANCIERS
T3 ;C;A;E;F;K
T4 ;KLANT\klant;LEVERANCIER\leverancier
 ;
 ;
KO S U=";",Q1="KL",X1=$P($T(T1),U,2),X2=$P($T(T2),U,2),X3=$P($T(T3),U,2) G 1
KW S U=";",Q1="KL",X1=$P($T(T1),U,3),X2=$P($T(T2),U,2),X3=$P($T(T3),U,3),WIJZ=1 G 1
KR S U=";",Q1="KL",X1=$P($T(T1),U,4),X2=$P($T(T2),U,2),X3=$P($T(T3),U,3),WIJZ=0 G 1
KV S U=";",Q1="KL",X1=$P($T(T1),U,5),X2=$P($T(T2),U,2),X3=$P($T(T3),U,4) G 1
KL S U=";",Q1="KL",X1=$P($T(T1),U,6),X2=$P($T(T2),U,2),X3=$P($T(T3),U,6) G 1
KP S U=";",Q1="KL",Q2="K1",Q3=$P($T(T4),U,2),X3=$P($T(T3),U,5) G 3
 ;
LO S U=";",Q1="LE",X1=$P($T(T1),U,2),X2=$P($T(T2),U,3),X3=$P($T(T3),U,2) G 1
LW S U=";",Q1="LE",X1=$P($T(T1),U,3),X2=$P($T(T2),U,3),X3=$P($T(T3),U,3),WIJZ=1 G 1
LR S U=";",Q1="LE",X1=$P($T(T1),U,4),X2=$P($T(T2),U,3),X3=$P($T(T3),U,3),WIJZ=0 G 1
LV S U=";",Q1="LE",X1=$P($T(T1),U,5),X2=$P($T(T2),U,3),X3=$P($T(T3),U,4) G 1
LL S U=";",Q1="LE",X1=$P($T(T1),U,6),X2=$P($T(T2),U,3),X3=$P($T(T3),U,6) G 1
LP S U=";",Q1="LE",Q2="L1",Q3=$P($T(T4),U,3),X3=$P($T(T3),U,5) G 3
 ;
1 S K=X1_" "_$P($T(+1),U,2)_X2_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
3 K X1 I "CAEF"[X3 K X2
5 G @("^KSEL"_X3)
 ;
YZ Q
 ;