KPSBJ ;STOCKBEHEER (NACHTELIJKE STOCKSCAN);KPSBJ; Do naar KPSB2 [ 12/27/2003  11:34 AM ]
 G DAY
 ;
T1 ;TERUGBLIKPERIODE
 ;
SC S PCC=$$COMPR^PRODUKT(PR)
 Q
 ;
DAY Write @F11,@F1,"Stockbeheer voorbereiding - ",QN
 Lock ^KPSB:1 Else  Do TXT^vhINP("Stockbestand is gelockt") Quit
 Set R=$$ASK^vhINP("Opstarten voorbereiding in achtergrond : ",1,"","1[]=Stockbeheer","De voorbereiding duurt ongeveer 5 minuten.")
 Quit:R'="1"
 Lock
 Job NIGHT^KPSBJ
 Quit
     
NIGHT Set $ZT="^cA406"
 L +^KPSB:5 E  Q
 S Q="K" D ^cA604
 S WeekBest=1
11 S PAR(1)=52_D_$P($T(T1),U,2) S:$D(@("^"_Q_"PSB(0,1)")) PAR(1)=^(1)
 Lock @("^"_Q_"PSB")
12 K ^HULP($J),@("^"_Q_"PSB"),@("^"_Q_"PSB1")
 S $P(@("^"_Q_"PSB")@(0,3),D,2)=$H
13 F IWK=0:1:50 S $P(PAR(2),D,IWK+1)=$TR($$EXTDATE^vhDTyp($H+(IWK*7),"DW"),"/","")
14 S @("^"_Q_"PSB(0,1)")=PAR(1),^(2)=PAR(2)
17 S IGW=$TR($$EXTDATE^vhDTyp($$CALCDATE^vhDTyp($H,"W",-52),"DW4"),"/",".")_" "
19 K IWK,JX,MX,DX,WK
 ;
2 S PR=0
21 K WVKS,WVKK S PR=$N(@("^"_Q_"PR(PR)")) G 4:PR=-1
 S J=$O(@("^"_Q_"PR(PR,""J"")")) G 21:$E(J)'="J"
 ;If J="J6332",$P($H,",",2)>28800,$P($H,",",2)<61200 G 21
23 D ^KPSB2 G 21:$P(A(0),D,23)="S",21:$P(A(1),D,25)=1,21:$E($P(A(2),D,25))=6,21:$E($P(A(2),D,25))=7
 I +$P(A(0),D,6),+$H'<+$P(A(0),D,6) G 21 ; Controle uitverkoop
 ;
3 ;If $P($H,",",2)<(8*60*60)!($P($H,",",2)>(17*60*60)) Do
 Do
 .; Produktupdate alleen 's nachts
 .S $P(@("^"_Q_"PR(PR,1)"),D,21)=WVKS_"#"_WVKK ;Gewogen gemiddelde
 .S $P(@("^"_Q_"PR(PR,1)"),D,23)=sWVKS_"#"_sWVKK_"#"_Freq ;Stand. gemiddelde
 .S $P(@("^"_Q_"PR(PR,1)"),D,24)=Rot_"#"_GemFysSt_"#"_BestelH
31 S $P(B(0),D,2)=PR,$P(B(0),D,3)=$P(A(0),D,1),$P(B(0),D,4)=$P(A(2),D,25)
33 S LE=$P(A("J"),D,1),HG=$P(A("I"),D,1),GR=$P(A("I"),D,2),SG=$P(A("I"),D,3),PC=$P(A(0),D,1) D SC
35 I $L(LE),$L(HG),$L(GR),$L(SG),$L(PCC) D
 .S B=$G(^HULP($J,LE))_$TR(B(1),"\","")
 .I $L(B) F I=$L(B):-1:1 I $E(B,1,I-1)[$E(B,I) S $E(B,I)=""
 .S ^HULP($J,LE)=B
 .S ^HULP($J,LE,HG,GR,SG,PCC,0)=B(0),^(1)=B(1)
37 G 21
 ;
4 S LE=-1
41 S LE=$N(^HULP($J,LE)) G 6:LE=-1 S HG=-1,VNR=0,B=$G(^HULP($J,LE)),@("^"_Q_"PSB(LE)")=B
43 S HG=$N(^HULP($J,LE,HG)) G 41:HG=-1 S GR=-1
45 S GR=$N(^HULP($J,LE,HG,GR)) G 43:GR=-1 S SG=-1
47 S SG=$N(^HULP($J,LE,HG,GR,SG)) G 45:SG=-1 S PCC=-1
49 S PCC=$N(^HULP($J,LE,HG,GR,SG,PCC)) G 47:PCC=-1
 ;
5 K B S I6=0,B(I6)=^(PCC,I6),VNR=VNR+1,$P(B(I6),D,1)=VNR F I=1:1 S I6=$N(^(I6)) Q:I6=-1  S B(I6)=^(I6)
51 S I6=0,@("^"_Q_"PSB(LE,VNR,I6)")=B(I6) F I=1:1 S I6=$N(B(I6)) Q:I6=-1  S ^(I6)=B(I6)
53 S @("^"_Q_"PSB1($P(B(0),D,2))")=LE_D_VNR G 49
 ;
6 K ^HULP($J) S $P(@("^"_Q_"PSB")@(0,3),D,1)=DT
 ;
YZ S $P(@("^"_Q_"PSB")@(0,3),D,3)=$H
 Lock
 Q
 ;
Z X ^cZ Q
ZZ ; 13.03.91 -  8 u 52