#Include %Prod.Product 
KPSB2 ;STOCKBEHEER (STOCKSCAN);KPSB1; Quit naar KPSB1 [ 07/03/2003  2:11 PM ]
 G 1
 ;
S1 I I=1 S PTS=PTS-$P(B(4),D,I)
S1A E  S PTS=PTS+$P(B(3),D,I)-$S(WVKT>$P(B(4),D,I):WVKT,1:$P(B(4),D,I))
S1B S PPS=PTS-$P(B(3),D,I)
S1C S HBP=(PTS<(WVKS*PBW)) D @("S"_(2+HBP))
S1D I 'PSN S:$E(TEST,1)="T" TEST="" S:$L(TEST) TEST="K" S BSU=""
S1Z Q
 ;
S2 G S2Z:'$P(B(3),D,I) S HBP=(PPS<(WVKS*PBW)) I 'HBP S TEST="TU" G S2Z
S2A D S4
S2B I BSU<$P(B(3),D,I) S TEST="TL" G S2Z
S2C S BSU=""
S2Z Q
 ;
S3 S TEST="H" S:PTS<WVKS TEST="S" I $P(B(3),D,I+1) S TEST=TEST_"V" G S3B
S3A I $P(B(3),D,I-1) S TEST=TEST_"H"
S3B S TEST=TEST_"S" D S4
S3Z Q
 ;
S4 S BSU=(WVKS*PBW)-PPS ; Voorstel voor bestelling
 Set BestFreq=$S(ABC="C":5,ABC="B":2,1:1) ; BestelFrequentie afgeleid van de ABC klassificatie
 If BSU<(WVKS*BestFreq) Set BSU=WVKS*BestFreq ; Bestelvoorstel kleiner dan dat de bestelfrequentie toelaat
 S BSU=BSU/PGV+.9999\1*PGV ; Afronden op grootverpakking
 D S5
 If PalQty,WVKS*(PBW+1)>PalQty Set BSU=BSU/PalQty+.9999\1*PalQty ; Afronden op palletqty indien voldoende weekverkoop
 ;S BSU=(WVKS*PBW)-PPS S:BSU<(WVKS*PBW) BSU=WVKS*PBW S BSU=BSU/PGV+.9999\1*PGV D S5
S4Z Q
 ;
S5 I PBH>BSU S BSU=PBH/PGV+.9999\1*PGV ; Min. bestelhoeveelheid respecteren en afronden op de verpakking
S5Z Q
 ;
S6 S PTS=PTS+$P(B(3),D,I)-$P(B(4),D,I) I PTS<PSCL S TEST="L",BSU=PSCL-PTS/PGV+.9999\1*PGV D S5
S6Z Q
 ;
S7 S:I=1 TEST=B S $P(B(1),D,I)=TEST,$P(B(2),D,I)=BSU,$P(B(5),D,I)=PTS I $L(TEST) S PROB=1
S7Z Q
 ;
WEEKBEST 
 New I,K,PFS,PTS,PPS,PWVS,PWVR
 If '$D(%WK) S %WK=$$EXTDATE^vhDTyp(,"W")
 Set K=A(0),(PFS,PTS,PPS)=+$P(K,D,14),PTS=PTS+$P($P(K,D,17),"#",2)
 Set PFS=$$GETSTOCK^PRODUKT4(PR,"FS")
 Set K=A(2),PTS=PTS-$P($P(K,D,9),"#",2),PPS=PPS-$P($P(K,D,9),"#",2)
 Set PWVS=$P($G(^PRSTOCK("D",PR)),D,5),PWVR=$P($G(^PRSTOCK("D",PR)),D,6)
 If 'PFS,'PTS,'PPS,$N(@("^"_Q_"SPW(PR,999999)"))=-1 Quit
 Set:PWVS PWVS=$$CV2MAG^MRP(PR,PWVS) Set:PWVR PWVR=$$CV2MAG^MRP(PR,PWVR)
 If $P(A(15),D,11)="W" Set PFS=PFS+PWVS-PWVR
 Else  Set PFS=PFS+$S(PWVR<PWVS:PWVR,1:PWVS)-PWVR
 Lock +@("^"_Q_"SPW(PR)")
 Set K="",$P(K,D,12)=D,I=DJ_"."_$TR($J(%WK,2)," ",0)_" "
 If $D(@("^"_Q_"SPW(PR,I)")) S K=@("^"_Q_"SPW(PR,I)")
 Set $P(K,D,4)=PFS,$P(K,D,5)=PTS,$P(K,D,6)=PPS,@("^"_Q_"SPW(PR,I)")=K
 Lock -@("^"_Q_"SPW(PR)")
 Quit
 ;
1 K B,A S A(0)=@("^"_Q_"PR(PR,0)"),A(2)=^(2),A(15)=$G(^(15)) I $G(WeekBest) D WEEKBEST
 S A(1)=@("^"_Q_"PR(PR,1)") I $P(A(1),D,25)=1 S (PROB,WVKS,WVKK)=0 G YZ ; Non actief
 I $E($P(A(2),D,25))=7 S (PROB,WVKS,WVKK)=0 G YZ ; DO product
 I +$P(A(0),D,6),+$H'<+$P(A(0),D,6) S (PROB,WVKS,WVKK)=0 G YZ ; Controle uitverkoop
11 S A("I")=" \ \ " S:$E($N(^("I")),1)="I" A("I")=^($N(^("I")))
13 S A("J")=" " S:$E($N(^("J")),1)="J" A("J")=^($N(^("J")))
15 S PSC=$P(A(0),D,18),PSCL=$P(A(0),D,24),PBW=$P(A(1),D,17),BWK=$P(PAR(2),D,1),EWK=$P(PAR(2),D,PSC+1)
 S CifPPL=$P(A("J"),D,23),PalQty=$P(A(2),D,16),MaxLogSt=$P(A("J"),D,22)
 S ABC=$P($P(A(0),D,8),"#",2)
17 S PI2="W"
 I $D(WVKS),WVKS="" S WVKS=$P($P(A(1),D,21),"#",1),WVKK=$P($P(A(1),D,21),"#",2) ; Ophalen weekverkoop ipv te berekenen
19 S B="" F I=1:1:7 S:'$D(B(I)) B(I)="" S $P(B(I),D,PSC+1)=D
 ;
2 S PI2=$N(@("^"_Q_"PR(PR,PI2)")) G 2b:$E(PI2,1)'="W" S K=^(PI2) I $E(PI2,9)="T" S AANT=$P(K,D,5),LEVW=$P(K,D,6),STKO=$P(K,D,7)
21 E  G 2:$E(PI2,9)'="R" S AANT=$P(K,D,1),LEVW=$P(K,D,2),STKO=$P(K,D,3)
 S:LEVW?5N LEVW=$$EXTDATE^vhDTyp(LEVW,"DW") ; Omrekenen naar de woensdag
 G 2:$$INTDATE^vhDTyp(LEVW,"DW")>$$INTDATE^vhDTyp($E(EWK,1,2)_"/"_$E(EWK,3,4),"DW")
 I $E(PI2,9)="R" G 2:'$$STOCKUPD(PI2)
23 S LEVW=$E(LEVW,1,2)_$E(LEVW,4,5) I PAR(2)'[LEVW S LEVW=BWK S:$E(PI2,9)="T" B="B"
25 G 27:$E(PI2,9)="R" S $P(B(3),D,$L($P(PAR(2),LEVW,1),D)+1)=$P(B(3),D,$L($P(PAR(2),LEVW,1),D)+1)+AANT
26 I STKO,'$L($P(B(6),D,$L($P(PAR(2),LEVW,1),D)+1)) S $P(B(6),D,$L($P(PAR(2),LEVW,1),D)+1)=1
27 G 2:$E(PI2,9)'="R" S $P(B(4),D,$L($P(PAR(2),LEVW,1),D))=$P(B(4),D,$L($P(PAR(2),LEVW,1),D))+AANT
28 I STKO,'$L($P(B(7),D,$L($P(PAR(2),LEVW,1),D))) S $P(B(7),D,$L($P(PAR(2),LEVW,1),D))=1
29 G 2
 ;
2b	Set B(8)=""
	If $$$ProductGet(PR,$$$ScanType)="L" For I=1:1:$L(PAR(2),D) Do
	. Set RefWeek=$$INTDATE^vhDTyp($P(PAR(2),D,I),"DW")
	. Set Aantal=$LG(##class(BL.Blum.LogSteuer).%AantallenScan(PR,RefWeek,1,0))
	. Set $P(B(8),D,I+1)=Aantal
 
3 S PSN=$P(A(1),D,20) G 4:$D(WVKS) ; Indien gewogen gemiddelde is ingevuld niet herberekenen
 S OldsWVK=$P(A(2),D,21),OldsWVK=OldsWVK+$P(OldsWVK,"#",2)\5
 S (WVKS,GAWK,WVKK,sWVKS,sWVKK,AWK,Freq,FysSt,JaarVKP)=0,IGWX=$N(@("^"_Q_"SPW(PR,IGW)")),IGWX=IGW
31 S IGWX=$N(^(IGWX)) G 33:IGWX=-1 S K=^(IGWX)
 S FysSt=FysSt+$P(K,D,4),JaarVKP=JaarVKP+$P(K,D,1)
 ; Gem. weekverkoop zonder wegingsfaktor
 S sWVKS=sWVKS+$P(K,D,7),sWVKK=sWVKK+$P(K,D,9),AWK=AWK+1
 ; Gewogen weekverkoop met een wegingsfaktor die 1 verhoogt per 5 weken
 S Fak=AWK-1\5+1,WVKS=WVKS+($P(K,D,7)*Fak),WVKK=WVKK+($P(K,D,9)*Fak)
 ; De deler wordt verhoogd met de wegingsfaktor behalve voor de kerstperiode en het grootverlof
 S:"52;53;29;30;31"'[$E(IGWX,6,7) GAWK=GAWK+Fak
 
 S:$P(K,D,7)+$P(K,D,9)>OldsWVK Freq=Freq+1
 G 31
33 
 S:'GAWK GAWK=1 S WVKS=$J(WVKS/GAWK,0,0),WVKK=$J(WVKK/GAWK,0,0) ; Gewogen (=recentere weken wegen zwaarder) gemiddelde weekverkoop (stock en kom)
 S:'AWK AWK=1 S sWVKS=$J(sWVKS/$S(AWK<$P(PAR(1),D,1):AWK,1:$P(PAR(1),D,1)),0,0),sWVKK=$J(sWVKK/$S(AWK<$P(PAR(1),D,1):AWK,1:$P(PAR(1),D,1)),0,0) ; Gemiddelde weekverkoop
 Set GemFysSt=+$J($S(AWK:FysSt/AWK,1:0),0,0) ; Gemiddelde fysische stock
 Set Rot=+$J($S(JaarVKP>0&GemFysSt:JaarVKP/GemFysSt,1:999),0,0) ; Stockrotatie
 Set BestelH=0 ;$S(JaarVKP>0&CifPPL:+$J(JaarVKP*3000*200/(CifPPL*7)**(1/2),0,0),1:"")
 ;
4 S WVKT=WVKS+WVKK I 'PSN S SWVKS=WVKS,SWVKK=WVKK,(WVKS,WVKK,WVKT)=0
41 S PTS=$P(A(0),D,14),PBH=$P(A("J"),D,6),PGV=$P(A("J"),D,16) S:'PGV PGV=1 S PROB=0
 Set PWVS=$P($G(^PRSTOCK("D",PR)),D,5),PWVR=$P($G(^PRSTOCK("D",PR)),D,6)
 Set:PWVS PWVS=$$CV2MAG^MRP(PR,PWVS) Set:PWVR PWVR=$$CV2MAG^MRP(PR,PWVR)
 If $P(A(15),D,11)="W" Set PTS=PTS+PWVS-PWVR
 Else  Set PTS=PTS+$S(PWVR<PWVS:PWVR,1:PWVS)-PWVR
43 F I=1:1:PSC+1 S (TEST,BSU)="" D @$S('PSCL:"S1",1:"S6"),S7
45 I 'PSN S WVKS=SWVKS,WVKK=SWVKK
47 S B(2)=$P(B(2),D,2,99)
48 S $P(B(3),D,2)=$P(B(3),D,2)+B(3),B(3)=$P(B(3),D,2,99)
49 S:$L($P(B(6),D,1)) $P(B(6),D,2)=$P(B(6),D,1) S B(6)=$P(B(6),D,2,99)
 ;
YZ K WVKT,SWVKS,SWVKK,PWVS,PWVR Q
 ;
STOCKUPD(Ref) 
 New R,StockUpd,KLNr,ORDNr,OLNr
 Set StockUpd=0,ORDNr=$E(Ref,18,23),OLNr=$TR($E(Ref,24,26)," ","")+100
 If ORDNr,OLNr Do
 .Set R=^KO1(ORDNr,"F"),KLNr=$P(R,D)
 .Quit:'KLNr
 .Set R=$G(^KOD(KLNr,"F",ORDNr,OLNr))
 .Quit:R=""
 .Set StockUpd=$P(R,D,14)'["S" Set:StockUpd StockUpd=$P(R,D,14)'["Z"
 Quit StockUpd
 ;