KPSEL ;SELEKTIES ;KPSEL; Go naar KPSELA, KPSELC, KPSELE, KPSELF, KPSELK [ 10/26/2001  11:13 AM ]
 ;
T1 ;OPENEN;WIJZIGEN;RAADPLEGEN;VERWIJDEREN;KONTROLELIJST
T2 ;PRODUKTEN
T3 ;C;A;E;F;K
T4 ;PRODUKTKODE\produktkode
 ;
 ;
PO S U=";",Q1="PR",X1=$P($T(T1),U,2),X2=$P($T(T2),U,2),X3=$P($T(T3),U,2) G 1
PW S U=";",Q1="PR",X1=$P($T(T1),U,3),X2=$P($T(T2),U,2),X3=$P($T(T3),U,3),WIJZ=1 G 1
PR S U=";",Q1="PR",X1=$P($T(T1),U,4),X2=$P($T(T2),U,2),X3=$P($T(T3),U,3),WIJZ=0 G 1
PV S U=";",Q1="PR",X1=$P($T(T1),U,5),X2=$P($T(T2),U,2),X3=$P($T(T3),U,4) G 1
PL S U=";",Q1="PR",X1=$P($T(T1),U,6),X2=$P($T(T2),U,2),X3=$P($T(T3),U,6) G 1
PP S U=";",Q1="PR",Q2="PR1",Q3=$P($T(T4),U,2),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 @("^KPSEL"_X3)
 ;
YZ Q
 ;