KPR10 G R10 ;BIJWERKEN STOCK, HISTORIEK EN STATISTIEK ; [ 03/07/2003  1:22 PM ]
 ;
R10 F RA=1:1:12 S @("R"_RA)=$P(R,D,RA)
 S R7=1 ; De oude historieken mogen niet meer opgebouwd worden (CW 24.06.05)
R10A S R2X=R2,RG=0,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",RD="",RP=$S($L(RW):9,1:1),R12=-1
R10AA S R12=$F(R0,"""",R12+1) I R12 S R0=$E(R0,1,R12-1)_""""_$E(R0,R12,999) G R10AA
R10B S RX(RT)="S "_RA_"="""_$P(R0,D,1,13)_D_($P(R0,D,14)-R2)_D_$P(R0,D,15)_D_R11_D_$P(R0,D,17,99)_"""",RT=RT+1 G R10F:R7
R10C S RA=$E(R1,3,9)_R2_"#"_(R4*R5)_"#"_R8_"#"_D,R=1 I $D(^(RW_"H")) S R=^(RW_"H"),R(RT)=^(RW_"H"_$E("0000",1,4-$L(R))_R) G R10E:$L(R(RT)_RA)<230 S R=R+1
R10D S RX(RT)="S ^(RW_""H"")="""_R_"""",R(RT)="",RT=RT+1,R(RT)=""
R10E S RX(RT)="S ^(RW_""H"_$E("0000",1,4-$L(R))_R_""")="""_R(RT)_RA_"""",R(RT)="",RT=RT+1
R10F S RC=$N(^(RC)) G R10G:$E(RC,RP)="L" S RC=RW_"L"_$E(R1,3,8),RX(RT)="S ^("""_RC_""")="""_0_D_$P(R0,D,7)_D_(-R2)_D_$P(R0,D,19)_D_"""",RT=RT+1,RG=-$P(R0,D,19)*R2 G R10L
R10G S RE=$N(^(RC)),RF=$P(^(RC),D,3) G R10K:RF'>0 I R2>RF S R2=R2-RF,R=RF,RF=0 G R10I
R10H S RF=RF-R2,R=R2,R2=0
R10I S RX(RT)="S ^("""_RC_""")="""_$P(^(RC),D,1,2)_D_RF_D_$P(^(RC),D,4,9)_"""",RT=RT+1
R10J S:'RF&$L(RD) RX(RT)="K ^("""_RD_""")",RT=RT+1 S RG=RG-($P(^(RC),D,4)*R) G R10L:'R2,R10F:$E(RE,RP)="L",R10H
R10K G R10H:$E(RE,RP)'="L" S RD=RC G R10F
R10L S RA=RW_"S"_$E(R1,1,6),RB="\\\\\\\\\",RX(RT)="S ^("""_RA_""")=""" I $D(^(RA)) S RB=^(RA)
R10M I R6 S RX(RT)=RX(RT)_$P(RB,D,1,6)_D_(R2X+$P(RB,D,7))_D_(R4*R5+$P(RB,D,8))_D_(R5+RG*R4+$P(RB,D,9))_D_$P(RB,D,10,99)_""""
R10N E  S RX(RT)=RX(RT)_(R2X+$P(RB,D,1))_D_(R4*R5+$P(RB,D,2))_D_(R5+RG*R4+$P(RB,D,3))_D_$P(RB,D,4,99)_""""
R10O 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)-R2X,^PRSTOCK("D",PR)=R
 D:R2X ##class(DOM.MAG.event.EventRaiser).%New().RaiseStockGewijzigdEvent(PR)
 Lock -^PRSTOCK("D",PR)
 Do UitVerkoop^PRODUKT5(PR)
R10Z K R,R0,R1,R2,R3,R4,R5,R6,R7,R8,R9,R10,R11,R12,RA,RB,RC,RD,RE,RF,RG,RP,RT,RW,R2X,RX Q  ;V3 08.07.85
 ;
 ; Bijwerken werkvloervorraad
WV F RA=1:1:13 S @("R"_RA)=$P(R,D,RA)
 S R7=1 ; De oude historieken mogen niet meer opgebouwd worden (CW 24.06.05)
 S R13=$S(R13:"",1:"~") ; R13=1 geen ~ toevoegen
 S RG=0,RW=$S($L(R9)!$L(R10):R9_$J(R10,5,1),1:""),RA="^"_Q_"PR(PR,"""_RW_"0"")",RT=0,R0=@RA,RD="",RP=$S($L(RW):9,1:1),R12=-1
WVA S R12=$F(R0,"""",R12+1) I R12 S R0=$E(R0,1,R12-1)_""""_$E(R0,R12,999) G WVA
 S RX(RT)="S "_RA_"="""_R0_"""" G WVC:R7 S RT=RT+1
 S RA=$E(R1,3,9)_R2_"#"_(R4*R5)_"#"_R13_R8_"#"_D,R=1 I $D(^(RW_"H")) S R=^(RW_"H"),R(RT)=^(RW_"H"_$E("0000",1,4-$L(R))_R) G WVB:$L(R(RT)_RA)<230 S R=R+1
 S RX(RT)="S ^(RW_""H"")="""_R_"""",R(RT)="",RT=RT+1,R(RT)=""
WVB S RX(RT)="S ^(RW_""H"_$E("0000",1,4-$L(R))_R_""")="""_R(RT)_RA_"""",R(RT)=""
WVC S @%Q1=0 F R=0:1:RT X RX(R)
 Lock +^PRSTOCK("D",PR)
 New WaardeVoor, WaardeNa
 S R=$G(^PRSTOCK("D",PR)),WaardeVoor=$P(R,D,5),$P(R,D,5)=$P(R,D,5)+$S($E(R1,9)#2:R2,1:-R2),^PRSTOCK("D",PR)=R,WaardeNa=$P(R,D,5)
 D:'(WaardeVoor=WaardeNa) ##class(DOM.MAG.event.EventRaiser).%New().RaiseStockGewijzigdEvent(PR)
 Lock -^PRSTOCK("D",PR)
 K R,R0,R1,R2,R3,R4,R5,R6,R7,R8,R9,R10,R11,R12,R13,RA,RB,RD,RE,RF,RG,RP,RT,RW,RX,WaardeVoor,WaardeNa
 Q
 
Werkvloer(PRNr,Delta)
 Lock +^PRSTOCK("D",PRNr)
 S Rec=$G(^PRSTOCK("D",PRNr)),$P(Rec,"\",5)=$P(Rec,"\",5)+Delta,^PRSTOCK("D",PRNr)=Rec
 D:Delta ##class(DOM.MAG.event.EventRaiser).%New().RaiseStockGewijzigdEvent(PRNr)
 Lock -^PRSTOCK("D",PRNr)
 Quit