KP24 G 1 ;SEQUENTIEEL WIJZIGEN PROODUKTEN VOLGENS HG-GR-SG-MK-PR (klass. lev. keuze rubriek) ; Quit naar KP22
 ;
1 S P24="",X=@("^"_Q_"PR(0,0)")
2 S:USCH="K" SW2=$N(^(SW4*100+100))\100,SW=0 S:USCH="L" SW2=$N(^($N(^(SW4*100+100))+100))\100,SW=1
3 S U4=2,FP=401 W @F,@F1 S FP=470 W @F,@F5 S FP=455 W @F,@F4,$P("KLASSIFIKATIE\LEVERANCIER",D,SW+1)," ",@F5
5 S X=SW2*100,K=100
7 S X=$N(^(X)) G 9:X'?.N!(X>((SW2+1)*100)) S K=K+1,A(K)=^(X) G 7
9 S U1=100
11 S U1=$N(A(U1)) G 17:U1<0 S U2=A(U1),X=$P(U2,U,16)
13 S FP=$P(A(U1),U,5)*100+$P(A(U1),U,6)-3 W @F,@F5,": " S FP=$P(A(U1),U,2)*100+$P(A(U1),U,3)
15 W @F S U4=U4+1 W:U4<10 " " W U4,@F6,$P(A(U1),U,1),@F5 G 11
17 S FP=2103+F60 W @F,@F1,"NUMMER ELEMENT : ..",@F0 S FP=2120+F60 W @F R UNE I UNE="-" K UNE G YZ
19 G 17:UNE?.E1C.E!'$D(A(UNE+98)) S U2=A(UNE+98)
21 I $P(U2,U,12),$P(U2,U,15) S FP=2403+F60 W @F,@F2,@F4,"NIET WIJZIGBAAR [] = OK ",@F5,@F0 R K G 17
23 S N=$P(U2,U,16) I N#100<4 S FP=2403+F60 W @F,@F2,@F4,"NIET WIJZIGBAAR [] = OK ",@F5,@F0 R K G 17
 ;
YZ K A Q
 ;
 Q
Z X ^cZ Q
ZZ ; 21.04.88 - 12 u 32