KP22 G 1 ;SEQ. WIJZIGEN PRODUCTEN ; VOLGENS HG-GR-SG-MK-PR ;Do naar KP23,KP24,KP25,KP26,KP28 - Quit naar %A501 [ 11/17/93  1:49 PM ]
 ;
1 S X=$N(@("^"_Q_"BA(18,-1)")) F X=0:1:9 S:$D(^(X)) PBTW(X)=$P(^(X),D,1) S:$D(^(X+10)) PTXT(X)=$P(^(X+10),D,1)
3 S U=";",Y=0,K=$P($T(+1),U,2)_QN_" ",FP=203+$L(K) W @F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
5 S BLA="                                             ",PNT=".............................................",SW4=0,Y=@("^"_Q_"PR(0,0)") I $D(^(3)) S X3=^(3)
7 I ($N(^(SW4+1*100)))\100=(SW4+1) S SW4=SW4+1 G 7
80 L @("^"_Q_"PWSPC"):2 E  S FP=2403+F60 W @F,@F4,"BESTAND WIJZIGEN PRODUCTEN IN GEBRUIK   [] = OK ",@F5 R K G YZ
9 G 10:'$D(@("^"_Q_"PWSPC")) S FP=1603 W @F,"BESTAND WIJZIGEN PRODUCTEN HERSCHIKT",!?2,"OP : ",$P(@("^"_Q_"PWSPC(0)"),D,1),!?2,"OM :  ",$P(^(0),D,2)
90 S R="K\20\3\HERSCHIKKEN BESTAND WIJZIGEN PRODUCTEN\""[] = neen   J[] = ja""\1\\""-J""[K" D R0 G YZ:K="-",100:K=""
10 D ^KP28 G YZ:K=""
100 S FP=401 W @F,@F1 I SW4>1&'$D(SW2) S FP=269 W @F,@F5 S FP=255 W @F,"ER BESTAAN ",@F4,SW4," ",@F5,"SCHERMEN."
102 S FP=2303+F60 W @F,"WIJZIGEN : ",!?2 W:SW4=1 SW4 W:SW4>1 "x" W "[] = scherm 1" W:SW4>1 "-",SW4
104 W "   K[] = klassifikaties   L[] = leveranciers"
106 S FP=2314+F60 W @F,@F2,@F0 R K S USCH=K G 106:K?.E1C.E!$L(K)'=1,YZ:K="-",108:(K?.N&(K>0)&(K'>SW4))!("KL"[K),106
108 I SW4>1&$D(SW2) S FP=269 W @F,@F5 S FP=255 W @F,"ER BESTAAN ",@F4,SW4," ",@F5,"SCHERMEN."
110 K UNE D @("^KP"_$S(USCH?.N:23,1:24)) G 100:'$D(UNE)
11 S FP=255 W @F,@F1 S Q1="PR",Q2="PWSPC",Q3="PRODUKTKODE\produktkode",LSTX="P",K="" D 16^KPSELH G 108:K="-"
13 S PFNR=PRC,PLNR=PRCX K PRC,PRCX,Q1,Q2,Q3,LST,LSTX S K=@("^"_Q_"PWSPC(0)"),PFNR=$P(^($S(PFNR=0:$N(^(0)),1:PFNR)),D,3)
15 S PLNR=$S(PLNR="ZZZZZ":999999,1:$P(@("^"_Q_"PWSPC(PLNR)"),D,3))
35 S (PVNR,PFNR)=PFNR-1 D @("^KP"_$S(USCH?.N:25,1:26)) G 11
YZ Q
 ;
R0 S R7="K'[D&(K'?.E1C.E)" S:$P(R,D,8)'="" R7=R7_","_$P(R,D,8) S:$P(R,D,7)'="" R7=R7_","_$P($T(@$P(R,D,7))," ",2,99)
R0A S R2=$P(R,D,2),R3=$P(R,D,3),R4=$P(R,D,4),R5=$P(R,D,5),R6=$P(R,D,6)
R0B S R0=$L(R4)+R3+3 S FP=R2*100+R3+F60 W @F W:R3<4 @F1 W @F2,R4," : " I R5'="" W:R5["""" !,?2,@R5 D:R5'["""" @R5
R0C S FP=R2*100+R0+F60 W @F,@F2 W $E("........................................",1,R6),@F,@F0
R0D R K S:$P(R,D,7)="DCTR" RD=$P(K,".",1),RM=$P(K,".",2),RJ=$P(K,".",3) W @F2 I $L(K)'>R6,@R7 S @$P(R,D,1)=K G R0F
R0E G R0C
R0F S FP=$P(R,D,9)*100+($P(R,D,10)*1) I FP W @F,$E("                                        ",1,R6),@F,K
R0Z K R,R0,R2,R3,R4,R5,R6,R7,RD,RM,RJ Q
 ;
 Q
Z X ^cZ Q
ZZ ; 21.04.88 - 12 u 32