KPSBS ;STOCKBEHEER (Produktselectie) ;KPSB ; Quit naar KPSB [ 12/27/2003  11:59 AM ]
 G 1
 ;
T1 ;Identnummer | Korttekst                 | B |
 ;
S1 S K=@Q3,FP=LN*100+80 W @F,@F93 S FP=LN*100+1 W @F,@F92 D S2 W @F93
S1Z Q
 ;
S2 S ZR=$ZR,PSN=$P(@("^"_Q_"PR($P(K,D,2),1)"),D,20),K=@ZR
S2A S KP=^(1) W $C(13),?1,$P(K,D,4),?13,"|",$J($P("*\",D,PSN+1),1),$P(K,D,3),?41,"|",$J($P($P(K,D,1),U,2),2)," |"
S2B F I=2:1:12 W $J($S(I<$L(KP,D):$S('$L($P(KP,D,I)):"-",1:$E($P(KP,D,I))),1:""),3)
S2Z Q
 ;
S3 S SKIPT=1 I K="B",HGS<11 G S3Z:HGS=1 D S5 S (LN,SLN)=15,(HGS,SVNR)=1 D S1 G S3Z
S3A I K="B" S HGS=1
S3B I K="E",HGS>(LVNR-10) G S3Z:HGS=LVNR D S5 S HGS=LVNR,(LN,SLN)=24,SVNR=HGS-9 S:SVNR<0 SVNR=1,(LN,SLN)=LVNR+14 D S1 G S3Z
S3C I K="E" S HGS=LVNR
S3D I K="<" G S3Z:HGS<11 S HGS=HGS-10
S3E I K=">" G S3Z:HGS>(LVNR-10) S HGS=HGS+10
S3F S I=$D(@Q1),SKIPT=0 S:HGS<1 HGS=1 S:HGS>LVNR HGS=LVNR I HGS<11 S SLN=14+HGS,SVNR=1 G S3Z
S3G I $D(^(HGS+10)) S SLN=15,SVNR=HGS G S3Z
S3H S SLN=15+(9-(LVNR-HGS)),SVNR=HGS-(9-(LVNR-HGS))
S3Z Q
 ;
S4 S VNR=SVNR
S4A S K=@Q2 G S4Z:LN>23 S LN=LN+1 I VNR=HGS D S1 G S4C
S4B S FP=LN*100 W @F D S2
S4C S VNR=$N(@Q1) G S4A:VNR'=-1
S4Z Q
 ;
S5 S K=@Q3,FP=LN*100+80 W @F D S2
S5Z Q
 ;
R3 S R1=$P(R,D,2),R2=$P(R,D,4),R0=$J($P(R,D),0,R2),R3=" ",R4="" S:R2 R4=","_$P(R0,".",2),R1=R1-1-R2 S:R0<0 R3="-",R0=-R0
R3A S R0=+$P(R0,".",1) F R5=3,7 S R6=$L(R0) Q:R6'>R5  S R0=$E(R0,1,R6-R5)_"."_$E(R0,R6-R5+1,R6)
R3B W ?$P(R,D,3),$J(R0,R1),R4,R3
R3Z K R0,R1,R2,R3,R4,R5,R6 Q  ;V3 05.07.88
 ;
1 S LC=LCX I SCHTYP="S" G 23:K="D",27:K="U",21:"BE<>"'[K D S3 G 21:SKIPT,14
11 S FP=1401,SCHTYP="S" W @F,@F1,@F4,$P($T(T1),U,2)
12 F I=2:1:12 W $J($E($P(PAR(2),D,I),3,4),3)
13 W " ",@F5
14 S LN=14,FP=1501 W @F,@F1
15 I HGS D S4 S LN=SLN G 21
16 S (SVNR,VNR)=1 I '$D(@Q2) S K="P" G YZ
17 S K=@Q2 G 2:LN>23 S LN=LN+1 I VNR=1 S HGS=1 D S1 G 19
18 S FP=LN*100 W @F D S2
19 S VNR=$N(@Q1) G 17:VNR'=-1
 ;
2 S LN=15,HGS=1
21 S IK(2)=2 D IK^KPSBY S SLN=LN I SCHTYP="S",K="L" S SCHTYP="" G YZ
 I K="I" D 3,INFO^KPSB G 2^KPSBW
 I K="W" D 3,WEEK^KPSB(PR) G 2^KPSBW
22 G 27:K="U",3:K="",3:"P"[K&$D(PR),1:"BE<>"[K,YZ:"?P"[K,YZ:"KHTOW"[K&$D(PR),YZ:"()"[K&$D(SSelect) I K="-" S FP=1501 W @F,@F1 G YZ
23 G 21:K'="D",21:'$D(@Q4) S K=^(HGS,0),FP=LN*100+1 W @F D S2 S HGS=HGS+1 I LN<24 S LN=LN+1 D S1 G 21
25 S FP=1501 W @F,@FDL S SVNR=SVNR+1 D S1 G 21
27 G 21:HGS=1 S K=@Q3,FP=LN*100+1 W @F D S2 I LN>15 S LN=LN-1,HGS=HGS-1 D S1 G 21
29 S FP=1501 W @F,@FIN S SVNR=SVNR-1 D S2 S HGS=HGS-1 D S1 G 21
 ;
3 K B S B=@Q3,VSB=+B,PR=$P(B,D,2),(WVKS,WVKK)="" S:Q1'["HULP" VSB=0
31 S SLN=LN K ^HULP($J+100)
 D
 .N K
 .D ^KPSB2
 I K="I"!(K="W") D ^KPSBW1 Q
33 D ^KPSBW
 ;
YZ Q
 ;
Z X ^cZ Q
ZZ ; 19.04.91 -  9 u 27