KPSB ;STOCKBEHEER ;KPSB ;do naar %A306 [ 11/20/2003  11:56 AM ]
 G 1
 ;
T1 ;06#(\07#)\08#S\09#H\10#O\11#T\12#N\15#?\UP#U\DN#D\PS#<\NS#>\HM#B\NL#E\19#B\20#E
T2 ;Product
T6 ;Fys stock :
T7 ;Weekverk  :
T8 ;Grootverp :
T9 ;Min bst h :
T10 ;Leverterm :
T11 ;Bufferw   :
T12 ;Scanning  :
T13 ;LevWk | Termijnst | Orderport |   Besteld | T | Suggestie  | LogSteuer
T16 ;   K = Kundestamm
T17 ;  [] = ok 
T18 ;Probleem : .
T19 ;P = problemen   U = urgentie   S = stockproducten
T20 ;[] = alle
T21 ;Een ogenblikje a.u.b. 
T22 ;Toelevering : .
T23 ;N = nieuwe   [] = bestaande
T24 ;Het stockbestand van deze leverancier is in gebruik
T25 ;Toelevering ; in gebruik
T26 ;Wenst u het programma te verlaten : .
T27 ;J = ja   N = neen   T = selektie toelevering   L = nieuwe leverancier
T28 ;()ASTHO?PNWVKL
T29 ;Palet     :
 ;
S1 S K=TR(HGS),FP=LN*100+80 W @F,@F93 S FP=LN*100+1 W @F,@F92 D S2 W @F93
S1Z Q
 ;
S2 W $C(13) S R=$P(K,D,1)_"\8" D:+R R3 W ?9,"| ",$P(K,D,2) W:+R ?20,"| ",$P(K,D,3)
S2Z Q
 ;
IK D IK^PROC1 S:R="ENTER" R="" S K=R
 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 K=$P($T(+1),U,2)_QN_" ",FP=103+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=101 W @F,@F4,K,@F5
11 S FP=201 W @F,@F4,$P($T(T2),U,2),$J("",72),@F5
12 S FP=330 W @F,$P($T(T6),U,2)
13 S FP=430 W @F,$P($T(T7),U,2) S FP=530 W @F,$P($T(T11),U,2) S FP=630 W @F,$P($T(T12),U,2) S FP=361 W @F,$P($T(T10),U,2)
14 S FP=461 W @F,$P($T(T8),U,2) S FP=561 W @F,$P($T(T9),U,2) S FP=661 W @F,$P($T(T29),U,2)
15 S FP=701 W @F,@F4,$P($T(T13),U,2),$J("",79-$L($P($T(T13),";",2))),@F5
16 S %WK=$$EXTDATE^vhDTyp(,"W"),R=$P($T(T1),U,2)
17 S PAR(1)=@("^"_Q_"PSB(0,1)"),PAR(2)=^(2),SCHTYP=""
 ;
2 L  S K="L" D ^KPSBY G YZ:K="-"
21 S FP=138 W @F,@F2,$J(LC_" "_LN_" :",34)
 S CorLevT=$P(^KLE(^KL1(LC),2),D,16)
23 L @("^"_Q_"PSB(LC)"):2 E  D M2 G 2
 ;
3 ;S FP=1401 W @F,@F1 S FP=2202 W @F,@F1,$P($T(T22),U,2),!?1,$P($T(T23),U,2) 
31 ;K IK D IK S K=R G 2:K="-",3:"N"'[K S LVHCYB="W" I K="N" S TR="",LVHCYB="O" G 35
 K IK S K="N",TR="",LVHCYB="O" G 35
33 S K="T" D ^KPSBY I K="-" K TR G 3
35 S FP=173 W @F,@F2 S R=TR D:+R R3 S FP=1501 W @F,@F1
37 I TR L (@("^"_Q_"PSB(LC)"),@("^"_Q_"TO(LC,TR)")):2 E  D M3 G 23
 ;
39 Set BeperkHGKKey=$$SELECT^KLASS(1,,,,"Klassificatie, .[] = alle")
 If BeperkHGKKey="-" Goto 33:TR Kill:$N(TR(""))=-1 TR Goto 2
 Set:BeperkHGKKey BeperkHG=$$GETSORT^KLASS($P(BeperkHGKKey,D))
 ;
4 S FP=1401 W @F,@F1 S FP=2202 W @F,@F1,$P($T(T18),U,2),!?1,$P($T(T19),U,2)
 W:LC=5005 $P($T(T16),U,2) Write !?1,$P($T(T20),U,2)
41 D IK S K=R
42 I K="",'BeperkHGKKey G 5
 G 41:"-SPUK"'[K,41:K="K"&(LC'=5005) G 39:K="-"
 I K="K" S KS=$$SELECT^BLKLANT() G 4:'KS S KC=$P(^BLBeri("K",KS),D,3)
43 S VNR=-1,TEL=0,FP=2401 W @F,@F4,$P($T(T21),U,2),@F5 K ^HULP($J)
44 S VNR=$N(@("^"_Q_"PSB(LC,VNR)")) G 5:VNR=-1 K B S B(0)=^(VNR,0) F I=1:1 Q:'$D(^(I))  S B(I)=^(I)
 S PR=$P(B(0),D,2)
 I "USK"[K G 44:'$D(^KPR(PR))
 If BeperkHGKKey,$$GETSORT^KLASS($$KKEY^KLASS(PR),1)'=BeperkHG Goto 44
45 I "USK"[K G 44:K="U"&'$P(^KPR(PR,1),D,20) I K="S" S TP=$P(^KPR(PR,1),D,20) G 48
 I K="K" D  G 48
 .S TP=$P(^KPR(PR,1),D,20)
 .Q:'TP
 .I 'KC S TP='$D(^PRPUTZ("D",PR))
 .E  S TP=$G(^PRPUTZ("N",PR,KC,0))=KS
46 S TP=0,I=$P(PAR(1),D,1) I K="U" S I=$P(^KPR(PR,"J"_LC),D,7)+1
47 F I=1:1:I I $L($P(B(1),D,I))&(K'="U"!(K="U"&("SKLB"[$E($P(B(1),D,I),1)))) S TP=1 Q
48 G 44:'TP S TEL=TEL+1,^HULP($J,0,$P(B(0),D,2))=TEL,^HULP($J,TEL,0)=B(0) F I=1:1 Q:'$D(B(I))  S ^(I)=B(I)
49 G 44
 ;
5 I K="",'BeperkHGKKey S Q0="^"_Q_"PSB1(PR)",Q1="^"_Q_"PSB(LC,VNR)",Q2="^"_Q_"PSB(LC,VNR,0)",Q3="^"_Q_"PSB(LC,HGS,0)",Q4="^"_Q_"PSB(LC,HGS+1)"
51 E  S Q0="^HULP($J,0,PR)",Q1="^HULP($J,VNR)",Q2="^HULP($J,VNR,0)",Q3="^HULP($J,HGS,0)",Q4="^HULP($J,HGS+1)"
53 S R=TR K B,TR,VNR S TR=R,R=LC K LC S (LC,LCX)=R,(HGS,PRX,SW13,BWST)=0,COMM="S",(VSB,SCHTYP)="" D ^KPSBS1
 ;
6 G 65:K="",7:K="-" S:K="HELP" K="?" I SCHTYP="S","BE<>DU"[K D ^KPSBS G 6
61 I "STHOK"[K S COMM=K
 I K="I" Do INFO
 I K="W" Do WEEK(PR) ;S K=COMM
63 I $P($T(T28),U,2)[K D @("^KPSB"_$P("W\W\A\S\Z\Z\Z\Y\P\Z\T\T\Z\S1",D,$F($P($T(T28),U,2),K)-1)) G 6
65 S K=COMM G 6
 ;
7 S FP=1401 W @F,@F1 S FP=2202 W @F,@F1,$P($T(T26),U,2),!?1,$P($T(T27),U,2) 
71 D IK S K=R I K'="J",K'="T",K'="L" G 71:K'="N" S SCHTYP="",K=COMM G 6
 ;
8 I 'TR G 85:K="L",YZ:K'="T" K TR G 3
81 I $N(@("^"_Q_"TO(LC,TR,100)"))=-1 K @("^"_Q_"TO(LC,TR)"),@("^"_Q_"TO1(TR)"),@("^"_Q_"TOB(TR)"),^BLBeri("Z",TR) S LVHCYB="V"
83 E  D
 .D TSPLIT^FLOWTOE(TR)
 .I SW13 S @("^"_Q_"TOB(TR)")=LC_D S:LC=5005 ^BLBeri("Z",TR)=LC_D
 I $D(LVHCYB),LVHCYB'="V",'$D(@("^"_Q_"TO1(TR)")) S LVHCYB="V"
 I $D(LVHCYB),LVHCYB="O",$D(@("^"_Q_"TO(0,2)")) S TRLC=TR D @^(2) G 85
 I $D(LVHCYB),LVHCYB="W",$D(@("^"_Q_"TO(0,3)")) S TRLC=TR D @^(3) G 85
 I $D(LVHCYB),LVHCYB="V",$D(@("^"_Q_"TO(0,4)")) S TRLC=TR D @^(4) G 85
85 I K="T" K TR S SCHTYP="" G 3
 I K="L" K ^HULP($J),TR S SCHTYP="" G 1
 ;
YZ K ^HULP($J)
YZZ Q
 ;
INFO New Rec,Txt,RecN,RecG
 Quit:'PR 
 Quit:'$D(^KPR(PR))
 Set Rec=$P($G(^KPR(PR,1)),D,24)
 Set RecN=$P($G(^KPR(PR,1)),D,21)
 Set RecG=$P($G(^KPR(PR,1)),D,23)
 Set Txt(1)="Rotatie        : "_$P(Rec,"#",1)
 Set Txt(2)="Gem. fys stock : "_$P(Rec,"#",2)
 Set Txt(3)="Econ. bestelh. : "_$P(Rec,"#",3)
 Set Txt(4)="&S"
 Set Txt(5)="Gemiddelde weekverkoop   Gewogen   Normaal"
 Set Txt(6)="                 Stock   "_$J($P(RecN,"#",1),7)_"   "_$J($P(RecG,"#",1),7)
 Set Txt(7)="                   KOM   "_$J($P(RecN,"#",2),7)_"   "_$J($P(RecG,"#",2),7)
 Set Txt(8)="                Totaal   "_$J($P(RecN,"#")+$P(RecN,"#",2),7)_"   "_$J($P(RecG,"#")+$P(RecG,"#",2),7)
 
 Set Rec=$$WILD^vhTXTPOP("","Info","Txt")
 Quit
 ;
WEEK(PRNr) 
 New Tab,Label,DatW,DatWE
 Set Tab=0
 Quit:'PRNr
 Set DatW=$TR($$EXTDATE^vhDTyp($$CALCDATE^vhDTyp($H,"W",-50),"DW4"),"/",".")_" "
 Set DatWE=$TR($$EXTDATE^vhDTyp($H,"DW4"),"/",".")_" "
 Set Label=""
 For  Set DatW=$O(^KSPW(PRNr,DatW)) Quit:DatW=""!(DatW]DatWE)  Do
 .Set Tab=Tab+1
 .Set Tab(Tab)=$P(^KSPW(PRNr,DatW),D,1)
 .Set Label(Tab)=$E(DatW,6,7)
 .Set:$E(DatW,6)=Label $E(Label(Tab))=" " 
 .Set Label=$E(DatW,6)
 Set Label("TITEL")="T``&CWeekverkoop : "_$P(^KPR(PRNr,0),D)
 Set Label("HOOFD",1)="T`B`&CGemiddelde weekverkoop : "_($P($P(^KPR(PRNr,1),D,21),"#")+$P($P(^KPR(PRNr,1),D,21),"#",2))
 Do GRAF^GRAFIEK(.Tab,.Label,"I","CRT")
 Quit
 
R0 S R7=1 S:$P(R,D,8)'="" R7=R7_"&("_$P(R,D,8)_")" S:$P(R,D,7)'="" R7=R7_"&("_$P($T(@$P(R,D,7)),U,2,99)_")"
R0A S R2=$P(R,D,2),R3=$P(R,D,3),R4=$P(R,D,4),R5=$P(R,D,5),R6=$P(R,D,6),R8="",$P(R8,".",R6)="."
R0B S R0=$L(R4)+R3+3 S FP=R2*100+R3+F60 W @F W:R3<4 @F1 W @F2,R4," : " I R5'="" W:R5["""" !?2,@F2,@R5 D:R5'["""" @R5
R0C S FP=R2*100+R0+F60 W @F,@F2,R8,@F,@F0 R K W @F2 I $L(K)'>R6,K'["""",K'[D,K'?.E1C.E,@R7 S @$P(R,D,1)=K
R0D E  G R0C
R0E S FP=$P(R,D,9)*100+$P(R,D,10) I FP W @F,$J("",R6),@F,K
R0Z K R,R0,R2,R3,R4,R5,R6,R7,R8 Q  ;V7 06.10.87
 ;
M2 S K=$P($T(T24),U,2) G MY
M3 S K=$P($T(T25),U,2)_TR_$P($T(T25),U,3) G MY
MY S FP=2403 W @F,@F1,@F4,K,$P($T(T17),U,2),@F5,@F0 R K
MZ Q