KPSBA ;STOCKBEHEER (Aanpassen bufferweken - scanperiode) ;KPSB ; Quit naar KPSB [ 01/17/2003  10:12 AM ]
 G 1
 ;
T1 ;Stock/Niet-stock;S $P(^KPR(PR,1),D,20)=PSN,PRX="";PSN'=$P(A(1),D,20)
T2 ;Bufferweken;S $P(^KPR(PR,1),D,17)=PBW,PRX="";PBW'=$P(A(1),D,17)
T3 ;Limiet;S $P(^KPR(PR,0),D,24)=PSCL,PRX="";PSCL'=$P(A(0),D,24)
T4 ;Scanning;S $P(^KPR(PR,0),D,18)=PSC,PRX="";PSC'=$P(A(0),D,18)
T5 ;Max.log steuer;S $P(^KPR(PR,"J"_LC),D,22)=MaxLogSt,PRX="";MaxLogSt'=$P(A("J"),D,22)
T6 ;Palet;S $P(^KPR(PR,2),D,16)=PalQty,PRX="";PalQty'=$P(A(2),D,16)
T14 ;Produkt in gebruik
T15 ;  [] = ok 
T17 ;Dit produkt is niet van de leverancier in behandeling
 ;
1 I LC'=LCX D M3 S FP=2401 W @F,@F1 S K=COMM G YZZZ
 S SCHTYP="A",FP=1401 W @F,@F1 I 'TR L (@("^"_Q_"PSB(LC)"),@("^"_Q_"PR(PR)")):2 E  D M1 S K="S" G YZ
10 I TR L (@("^"_Q_"PSB(LC)"),@("^"_Q_"TO(LC,TR)"),@("^"_Q_"PR(PR)")):2 E  D M1 S K="S" G YZ
 ;
2 D EDIT^vhScherm("KPSBA") S K=COMM
 ;
3 F I=1:1 S U2=$P($T(@("T"_I)),U,2,99) Q:U2=""  I $L($P(U2,U,2)),@$P(U2,U,3) X $P(U2,U,2)
31 I PR'=PRX S KK=K D ^KPSB2,^KPSBW1 S K=KK,B(0)=@Q3,^(1)=B(1),PRX=PR
 ;
YZ I 'TR L @("^"_Q_"PSB(LC)")
YZZ I TR L (@("^"_Q_"PSB(LC)"),@("^"_Q_"TO(LC,TR)"))
YZZZ K KOM,RUB,U2 Q
 ;
M1 S K=$P($T(T14),U,2) G MY
M3 S K=$P($T(T17),U,2) G MY
MY S FP=2403 W @F,@F1,@F4,K,$P($T(T15),U,2),@F5,@F0 R K
MZ Q
 ;