cPE0 ; RAADPLEGEN - WIJZIGEN - VERWIJDEREN PRODUKTEN ;OVERLAY VAN %P01 [ 11/08/2003  3:21 PM ]
 ;
T1 ;NAAM OF NUMMER VAN 
T2 ;   [] = vervolg
T3 ;VOLGNUMMER OF 
T4 ;\[] = vervolg
T5 ;" " = ZONDER
T6 ;ZONDER
T7 ;VOLGNUMMER VAN DE PRODUKTKODE
T8 ;\LEVERANCIER
 ;
R1 S R4=$P(R,D,2)+1,R0=0,RA=$P(R,D,3),R8="^"_Q_$P(R,D,4),R9="^"_Q_$P(R,D,5),FP=R4 W @F,@F1
R1A S FP=2403+F60 W @F,@F1,$P($T(T1),U,2),RA W:R0 $P($T(T2),U,2) W " : ",@F0
R1B R K G R1A:K?.E1C.E!(K?20N.N) S:$L(K) R0=0 S FP=R4 W @F,@F1 G R1Z:K="-" I K="" S R1=R4 G R1H:R0,R1D
R1C G R1D:K'?.N,R1K:'$D(@(R9_"(K)")) S R3=^(K) I $D(@(R8_"(R3)")) G R1M
R1D S R6="" F R7=1:1:$L(K) I $E(K,R7)'?1P S R6=R6_$E(K,R7)
R1E S R5=$E(R6,1,24) S:R6="" R5=" " S R1=R4,R2=R5,(R2,R3)=$N(@(R8_"(R2)")) G R1K:R2=-1 S R2=$N(^(R2))
R1F I $E(R2,1,$L(R6))'=R6&'R0&($E(R3,1,$L(R6))=R6) S R7=$D(^(R3)) G R1M
R1G S R2=R5
R1H S R2=$N(@(R8_"(R2)")) G R1K:($E(R2,1,$L(R6))]R6)&'R0&(R1=R4) G R1L:R2=-1 I $E(R2,1,$L(R6))'=R6 S R0=0 G R1A
R1I S FP=R1 W @F,$C(13),$J(+^(R2,0),6),?7,$E($P(^(0),D,2),1,26),?34,$E($P(^(0),D,5),1,26),?61,$E($P(^(0),D,7),1,18)
R1J S R1=R1+100 G R1H:R1<(2300+F60) S R0=1 G R1A
R1K X ^cTXT(0,"N",8) R K
R1L S (R2,R0)=0 G R1A
R1M S (@$P(R,D,1),K)=R3
R1Z K R0,R1,R2,R3,R4,R5,R6,R7,R8,R9,RA Q  ;V2.3 13.02.85
 ;
S0 S (SX,VVE)=0 S:'SW8&(K'="-") K="" G S0B:K'="-"
S0A S SX=1,FP=2403+F60 W @F,@F1 W:'SW9&($D(N)) $P($T(T3),U,2) W T," ",$P($P($T(T4),U,2),D,VVE+1)," : ",@F0 R K G S0A:K?.E1C.E,S0B:"-"[K,S0B:'SW9&('$D(N(K))),S0A:'$D(N(K)) S K1=N(K) G S0H
S0B S:$L(K) VVE=0 S FP=L*100+KN+F60-1 S:SW9 FP=FP-KN+3 W @F,@F1 G S0Z:K="-" I K=""&VVE S L1=L,VN=1 K N S:$L(Q1) @Q1 G S0D1
S0B1 S:$L(Q1) @Q1
S0C S I=K S:K="" I=-1,K1=I S:K'="" K1=I,K1=K1_" " G S0H:$D(^(K1)) S K1=$N(^(K1)),L1=L,VN=1 K N G S0G:K1=-1 S K2=$N(^(K1)) G S0H:K2=-1
S0D G S0H:$E(K2,1,$L(I))'=I&'VVE&($E(K1,1,$L(I))=I) S K1=I S:K'="" K1=I_" " G S0E
S0D1 S:$L(Q1) @Q1
S0E S K1=$N(^(K1)) G S0G:K1=-1 I $E(K1,1,$L(I))'=I&(I'=-1) S VVE=0 G S0A:'SW8 S SW8=0 G S0Z
S0F G S0A:'SX&('SW9) S FP=L1*100+KN+F60-1 S:SW9 FP=FP-KN+3 W @F,@F2,VN,". " W:K1="  " $P($T(T5),U,2) W:'$L(Q2) K1 W:$L(Q2) @Q2 S N(VN)=K1
S0F1 S L1=L1+1,VN=VN+1 G S0D1:L1<23 S VVE=1 G S0A
S0G S K1=0,VVE=0 G S0A:'SW8 S SW8=0 G S0Z
S0H I 'JP S FP=L-2*100+KN+F60 W:'SW8 @F,@F1,K1 W:K1="  "&$L(T) @F,$P($T(T6),U,2) W:SW8&(K1'="  ") @F,LV
S0Z K N Q
 ;
S1 S T=$P(MK,D,2),M=$P(MK,D,3) D S7,S0,S8 Q
S2 S T=$P(HG,D,2),M=$P(HG,D,3) D S7,S0,S8 Q
S3 S T=$P(GR,D,2),M=$P(GR,D,3) D S7,S0,S8 Q
S4 S T=$P(SG,D,2),M=$P(SG,D,3) D S7,S0,S8 Q
S5 S T=$P(LP,D,2),M=$P(LP,D,3) D S7,S0,S8 Q
S6 S SW9=1,T=$P($T(T7),U,2),Q2="$P(@(""^""_Q_""PR(^(K1),0)""),D,1),$J("""",33-$L($P(^(0),D,1))),$P(^(0),D,2)",Q1="X=$D("_Q1_")" G S0
 ;
S7 S FP=L-2*100+KN+F60 W @F,@F1 S FP=L-4*100+KN+M+2+F60 W @F,@F5,@F2 S FP=L-4*100+KN-1+F60 W @F,@F4,T,$J("",M-$L(T)+1),@F5
S7Z S JP=0,(Q1,Q2)="" Q
 ;
S8 S:K'="-" KN=KN+M+5,B(A)=M,A=A+1 S:K="-"&(A>0) A=A-1,KN=KN-B(A)-5
S8Z Q
 ;
ER G:$ZE["<INTERRUPT>" ^II G ^cER
 ;
70 I K=$E($P(MK,D,2),1) S IB="PM",V1="S1",V2="S2",V3="S3",V4="S4"
80 I K="K" S IB="PH",V1="S2",V2="S3",V3="S4",V4="S1"
90 G 10^cPE01:'$D(@("^"_Q_IB)) S X=$D(@("^"_Q_IB_"(0)")) I K="-"&($N(^(" "))=-1) D S8 G 10^cPE01
95 D @V1 G 10^cPE01:K="-" S I1=K1 G 110
100 S X=$D(@("^"_Q_IB_"(I1)"))
110 S X=$D(^(I1,0)) I K="-"&($N(^(" "))=-1) D S8 G 90
115 D @V2 G 90:K="-" S I2=K1 G 130
120 S X=$D(@("^"_Q_IB_"(I1,I2)"))
130 S X=$D(^(I2,0)) I K="-"&($N(^(" "))=-1) D S8 G 100
135 D @V3 G 100:K="-" S I3=K1 G 150
140 K N S SW9=0,X=$D(@("^"_Q_IB_"(I1,I2,I3)")) S:K="-" A=A-1,KN=KN-B(A)-5
150 S X=$D(^(I3,0)) I K="-"&($N(^(" "))=-1) D S8 G 120
155 D @V4 G 120:K="-" S I4=K1
160 S JP=1,Q1="@(""^""_Q_IB_""(I1,I2,I3,I4,0)"")" D S6 G 140:K="-" S (PR,I1)=$P(@("^"_Q_"PR1(K1)"),D,1) G YZ
 ;
170 G 10^cPE01:'$D(@("^"_Q_"PL")) S KN=3,FP=L-4*100+1 W @F,@F1 S R="K\"_(L-2*100)_$P($T(T8),U,2)_"\LE\L1" D R1 G 10^cPE01:K="-" S SW8=1,LV=$P(@("^"_Q_"LE(K,0)"),D,2),K=$P(K," ",2)
175 S X=$D(@("^"_Q_"PL(0)")),T=$P(LE,D,2),M=$P(LE,D,3) I '$D(^(K_" ")) X ^cTXT(0,"N",31) R K G 170
176 D S7,S0,S8 S I1=K1,SW8=0
180 S X=$D(@("^"_Q_"PL(I1)"))
190 S X=$D(^(I1,0)) D S1 G 170:K="-" S I2=K1 G 210
200 K N S SW9=0,X=$D(@("^"_Q_"PL(I1,I2)")) S:K="-" A=A-1,KN=KN-B(A)-5
210 S X=$D(^(I2,0)) D S5 G 180:K="-" S I3=K1
220 S JP=1,Q1="@(""^""_Q_""PL(I1,I2,I3,0)"")" D S6 G 200:K="-" S (I1,PR)=$P(@("^"_Q_"PR1(K1)"),D,1)
 ;
YZ K A,B,I,I2,I3,I4,IB,JP,K,K1,K2,KN,LV,L1,M,Q1,Q2,R,SX,T,V1,V2,V3,V4,VN,VVE Q
 ;