cPE210 G 1 ;RAADPLEGEN PRODUKTEN [ STOCK, BESTELLINGEN, VERKOPEN ] ;OVERLAY VAN %P20
 ;
T1 ;RAADPLEGEN
T2 ;"B[] = bestellingen   S[] = stock   V[] = verkopen   O[] = orders"
T3 ;[] = vervolg   -[] = einde
T4 ;S T O C K  : 
T5 ;BESTELLING : 
T6 ;ORDERS     : 
 ;
ER G:$ZE["<INTERRUPT>" ^II G ^cER
 ;
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
 ;
DL S K3=1
DL1 S K4=$P(@(K1_"DL"_K2),D,K3) G DL2:'$L(K4) S K=$S('$P(K4,U,2):KX,1:$P(A,D,$P(K4,U,2))),FP=LL*100+$P(K4,U,1) W @F,@$P(K4,U,3) S K3=K3+1 G DL1
DL2 K K3,K4 Q
 ;
1 F I=20:1:24,30:1:34,40:1:44,50:1:54 S X=$D(@("^"_Q_"PR(0,I)")) I X S J=I\10,K=I#10,@($S(J=2:"L",J=3:"S",J=4:"T",1:"O")_$S(K=0:"DL",K=1:"DL1",K=2:"TL",K=3:"WL",1:"WL1"))=^(I)
2 S:'$D(TTL) TWL="F FP=701 W @F,@F5,@F2" S X=$D(@("^"_Q_"PR(PR,0)"))
3 S FP=601,K1="T" W @F,@F1 S FP=455 W @F,@F2,$P($T(T4),U,2),+$P(^(0),D,14) S FP=555 W @F,@F2,$P($T(T5),U,2),+$P(^(0),D,17)
4 I $D(@("O"_"DL")),$D(^(2)) S FP=655 W @F,@F2,$P($T(T6),U,2),+$P(^(2),D,9)," ",+$P(^(2),D,10)
 E  S KEU=$P(@("^"_Q_"PR(PR,0)"),D,1)
10 S R="KEU\22\3\"_$P($T(T1),U,2)_D_$P($T(T2),U,2)_"\1\\""-OBVS""[K\\" D R0 G 10:K="",10:K="B"&'$D(TTL)!(K="S"&'$D(LTL))!(K="V"&'$D(STL))!(K="O"&'$D(OTL))
 ;
53 X @(K1_"WL") G Y:K="-" S LL=8 G 7:KEU="S" I "OV"[K,$L(K) S:KEU="V" (KX,K1)="S" S:KEU="O" (KX,K1)="O" G 8
 ;
6 G 10:'$D(TTL) S (KX,K1)="T",K2="" X TTL
63 S KX=$N(^(KX)) I KX=-1!($E(KX,1)'="T") G 10
65 S A=^(KX),LL=LL+1 D DL G 63
 ;
7 G 10:'$D(LTL) S (KX,K1)="L",K2="" X LTL
73 S KX=$N(^(KX)) I KX=-1!($E(KX,1)'="L") G 10
75 S A=^(KX),LL=LL+1 D DL G 73
 ;
8 G 10:'$D(@(K1_"TL")) X @(K1_"TL")
83 S KX=$N(^(KX)) G 10:KX=-1,10:K1="O"&($E(KX,1)]"R"),10:$E(KX,1)'=K1&(K1'="O")
84 G 85:LL'>19 S FP=2201 W @F,@F1 S R="K\22\3\"_$P($T(T3),U,2)_"\\1\\""-,""[K\" D R0 I K'="" X @(K1_"WL") G 3:K=",",10
840 X @(K1_"WL1")
841 S LL=8 G 84
85 S A=^(KX) I $P(A,D,1) S LL=LL+1,K2="" D DL
86 I '$P(A,D,7) G 83
87 S LL=LL+1,K2=1 D DL G 83
 ;
Y F FP=455,555,655 W @F,@F2
YZ K OTL,ODL,ODL1,OWL,OWL1,TTL,TDL,TWL,STL,SDL,SDL1,SWL,SWL1,LTL,LDL,LWL G 170^cPE21
 ;
Z X ^cZ Q
ZZ ; 24.04.86 - 19 u 50