KPR20 G R20 ;BIJWERKEN STOCK, HISTORIEK EN STATISTIEK ; [ 12/13/2002  10:33 AM ]
 ;
R20 F RA=1:1:10 S @("R"_RA)=$P(R,D,RA)
 S R7=1 ; De oude historieken mogen niet meer opgebouwd worden (CW 24.06.05)
R20A S RW=$S($L(R9)!$L(R10):R9_$J(R10,5,1),1:""),RA="^"_Q_"PR(PR,"""_RW_"0"")",RT=0,R0=@RA,RC=RW_"L",RF=0,RP=$S($L(RW):9,1:1),R12=-1
R20AA S R12=$F(R0,"""",R12+1) I R12 S R0=$E(R0,1,R12-1)_""""_$E(R0,R12,999) G R20AA
R20B S RX(RT)="S "_RA_"="""_$P(R0,D,1,6)_D_R5_D_$P(R0,D,8,13)_D_($P(R0,D,14)+R2)_D_$P(R0,D,15,18)_D_R3_D_$P(R0,D,20,99)_"""",RT=RT+1
R20C G R20F:R7 S RA=$E(R1,3,9)_R2_"#"_(R4*R2*R3)_"#"_R8_"#"_D,R=1 I $D(^(RW_"H")) S R=^(RW_"H"),R(RT)=^(RW_"H"_$E("0000",1,4-$L(R))_R) G R20E:$L(R(RT)_RA)<230 S R=R+1
R20D S RX(RT)="S ^(RW_""H"")="""_R_"""",R(RT)="",RT=RT+1,R(RT)=""
R20E S RX(RT)="S ^(RW_""H"_$E("0000",1,4-$L(R))_R_""")="""_R(RT)_RA_"""",R(RT)="",RT=RT+1,RF=0
R20F S RC=$N(^(RC)) G R20G:$E(RC,RP)'="L" S:$P(^(RC),D,3)<0 RF=RF+$P(^(RC),D,3),RX(RT)="K ^("""_RC_""")",RT=RT+1 G R20F
R20G S RA=RW_"L"_$E(R1,3,8),R=""
R20H I $D(^(RA_R)) S R=R+1 G R20H
R20I S RX(RT)="S ^("""_RA_R_""")="""_R2_D_R5_D_(R2+RF)_D_R3_D_"""",RT=RT+1
R20J S RA=RW_"S"_$E(R1,1,6),RB="\\\\\\\\\" I $D(^(RA)) S RB=^(RA)
R20K S RX(RT)="S ^("""_RA_""")="""_$P(RB,D,1,4)_D_(R2+$P(RB,D,5))_D_(R4*R2*R3+$P(RB,D,6))_D_$P(RB,D,7,99)_""""
R20L S @%Q1=0 F R=0:1:RT X RX(R)
 Lock +^PRSTOCK("D",PR)
 S R=$G(^PRSTOCK("D",PR)),$P(R,D)=$P(R,D)+R2,^PRSTOCK("D",PR)=R
 D:R2 ##class(DOM.MAG.event.EventRaiser).%New().RaiseStockGewijzigdEvent(PR)
 Lock -^PRSTOCK("D",PR)
R20Z K R,R0,R1,R2,R3,R4,R5,R6,R7,R8,R9,R10,R12,RA,RB,RC,RF,RP,RW,RX,RT Q  ;V3 08.07.85
 ;