cPE22 G 1 ;SEQ. WIJZIGEN PRODUKTEN ; VOLGENS HG-GR-SG-MK-PR ;Do naar %P23,%P24,%P28 - Quit naar %A501 [ 11/08/2003  3:35 PM ]
 ;
T1 ;BESTAND WIJZIGEN PRODUKTEN HERSCHIKT
T2 ;OP : 
T3 ;OM :  
T4 ;HERSCHIKKEN BESTAND WIJZIGEN PRODUKTEN
T5 ;"[] = neen   J[] = ja"
T6 ;ER BESTAAN 
T7 ;SCHERMEN.
T8 ;WIJZIGEN : 
T9 ;[] = scherm 1
T10 ;   K[] = klassifikatie   L[] = leveranciers
T11 ;VANAF PRODUKT
T12 ;TOT   PRODUKT
T13 ;".[] = vanaf het begin   [] = specifiek produkt"
T14 ;VANAF HET BEGIN
T15 ;PRODUKTKODE
T16 ;TOT PRODUKT
T17 ;".[] = tot het einde   [] = specifiek produkt"
T18 ;TOT HET EINDE
T19 ;VOLGNUMMER OF 
T20 ;[] = vervolg
T21 ;WEKLE PRODUKTEN
T22 ;S[] = stock   N[] = niet-stock   [] = alle produkten
 ;
ER G:$ZE["<INTERRUPT>" ^II G ^cER
 ;
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 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
8 L @("^"_Q_"PWSPC"):2 E  X ^cTXT(0,"N",119) R K G YZ
9 G 10:'$D(@("^"_Q_"PWSPC")) S FP=1603 W @F,$P($T(T1),U,2),!?2,$P($T(T2),U,2),$P(@("^"_Q_"PWSPC(0)"),D,1),!?2,$P($T(T3),U,2),$P(^(0),D,2)
90 S R="K\20\3\"_$P($T(T4),U,2)_D_$P($T(T5),U,2)_"\1\\""-J""[K" D R0 G YZ:K="-"
10 I $L(K) D ^cPE28 G YZ:K=""
 S R="STNSPR\20\3\"_$P($T(T21),U,2)_"\"""_$P($T(T22),U,2)_"""\1\\""-SN""[K" D R0 G YZ:K="-"
100 I SW4>1 S FP=269 W @F,@F5 S FP=255 W @F,$P($T(T6),U,2),@F4,SW4," ",@F5,$P($T(T7),U,2)
101 S FP=401 W @F,@F1 K SW2,UNE
102 S FP=2203+F60 W @F,$P($T(T8),U,2),!?2 W:SW4=1 SW4 W:SW4>1 "x" W $P($T(T9),U,2) W:SW4>1 "-",SW4
104 W $P($T(T10),U,2)
106 S FP=2214+F60 W @F,@F2,@F0 R K S USCH=K G 106:K?.E1C.E!$L(K)'=1,YZ:K="-",11:(K?.N&(K>0)&(K'>SW4))!("KL"[K),106
11 S FP=401 W @F,@F1 S FP=603 W @F,@F1,$P($T(T11),U,2)," : ",!!?2,$P($T(T12),U,2)," : "
110 S R="K\22\3\"_$P($T(T11),U,2)_D_$P($T(T13),U,2)_"\1\\"".-""[K\\" D R0 G 101:K="-" I K="." S FP=619 W @F,@F2,$P($T(T14),U,2) S PFNR="" G 17
13 S R="PCC\2000\"_$P($T(T15),U,2)_"\PR\PWSPC" D R7 G 101:K="-" S FP=619
15 S PFNR=$P(@("^"_Q_"PWSPC(PCC)"),D,3) W @F,@F2,$P(^(PCC),D,2)
17 S R="K\22\3\"_$P($T(T16),U,2)_D_$P($T(T17),U,2)_"\1\\"".-""[K\\" D R0 G 110:K="-" I K="." S FP=819 W @F,@F2,$P($T(T18),U,2) S PLNR=999999 G 35
19 S R="PCC\2000\"_$P($T(T15),U,2)_"\PR\PWSPC" D R7 G 11:K="-" S FP=819
23 S PLNR=$P(@("^"_Q_"PWSPC(PCC)"),D,3) W @F,@F2,$P(^(PCC),D,2)
35 S (PVNR,PFNR)=PFNR-1 D @("^cPE"_$S(USCH?.N:23,1:24)) G 11
YZ Q
 ;
R7 S R4=$P(R,D,2)+1+F60,R0=0,RA=$P(R,D,3),R8="^"_Q_$P(R,D,4),R9="^"_Q_$P(R,D,5),FP=R4 W @F,@F1
R7A S FP=2403+F60 W @F,@F1 W:$D(RT) $P($T(T19),U,2) W RA W:R0 $P($T(T20),U,2) W " : ",@F0
R7B R K G R7A:K?.E1C.E S:$L(K) R0=0 S FP=R4,R10=0 W @F,@F1 G R7Z:K="-",R7D:K=""&('R0) I K="" K RT S R1=R4 G R7H
R7C G R7D:'$D(RT(K)) S R3=RT(K) G R7M
R7D K RT S R6="" F R7=1:1:99 I $E(K,R7)'?1P S R6=R6_$E(K,R7)
R7E S R5=$E(R6,1,28) S:R6="" R5=" " S R1=R4,(R2,R3)=R5 G R7M:$D(@(R9_"(R2_"" "")")) S:R5?.N R5=R5_" " S (R2,R3)=$N(@(R9_"(R5)")) G R7K:R2=-1 S R2=$N(^(R2))
R7F I $E(R2,1,$L(R6))'=R6&'R0&($E(R3,1,$L(R6))=R6) S R7=$D(@(R8_"(R3)")) G R7M
R7G S R2=R5
R7H S R2=$N(@(R9_"(R2)")) G R7K:($E(R2,1,$L(R6))]R6)&'R0&(R1=R4) G R7L:R2=-1 I $E(R2,1,$L(R6))'=R6 S R0=0 G R7A
R7I S FP=R1,R10=R10+1,RT(R10)=R2 W @F,$C(13),?2,R10,". ",?6,$P(^(R2),D,2),?37,$E($P(@(R8_"($P(@(R9_""(R2)""),D,1),0)"),D,2),1,30)
R7J S R1=R1+100 G R7H:R1<(2300+F60) S R0=1 G R7A
R7K X ^cTXT(0,"N",8) R K
R7L S (R2,R0)=0 G R7A
R7M S:$E(R3,$L(R3))'=" " R3=R3_" " S (@$P(R,D,1),K)=R3
R7Z K R0,R1,R2,R3,R4,R5,R6,R7,R8,R9,R10,RA,RT 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 W @F2 I $L(K)'>R6,@R7 S @$P(R,D,1)=K
R0E E  G R0C
R0F S FP=$P(R,D,9)*100+($P(R,D,10)*1) I FP W @F,$J("",R6),@F,K
R0Z K R,R0,R2,R3,R4,R5,R6,R7 Q  ;V4 03.10.84
 ;
Z X ^cZ Q
ZZ ; 07.06.85 - 11 u 03