Index: Prod/Product/StockBeheer/StockScan.mac.rou
===================================================================
diff -u -r41122 -r54970
--- Prod/Product/StockBeheer/StockScan.mac.rou	(.../StockScan.mac.rou)	(revision 41122)
+++ Prod/Product/StockBeheer/StockScan.mac.rou	(.../StockScan.mac.rou)	(revision 54970)
@@ -1,13 +1,14 @@
  #Include Prod.Product 
 StockBeheerStockScan ;STOCKBEHEER (STOCKSCAN);KPSB1; Quit naar KPSB1 [ 07/03/2003  2:11 PM ]
  
- K B,A S A(0)=@("^"_Q_"PR(PR,0)"),A(2)=^(2),A(15)=$G(^(15)) I $G(WeekBest) D WEEKBEST
+ K B,A S A(0)=@("^"_Q_"PR(PR,0)"),A(2)=^(2),A(15)=$G(^(15)) I $G(WeekBest)&&($P($$GENTYP^HAD(PR,0,1),"\")'="") D WEEKBEST
  S A(1)=@("^"_Q_"PR(PR,1)") I $P(A(1),D,25)=1 S (PROB,WVKS,WVKK)=0 G Exit ; Non actief
- I $E($P(A(2),D,25))=7 S (PROB,WVKS,WVKK)=0 G Exit ; DO product
+ I $P($$GENTYP^HAD(PR,0,1),"\")'="" S (PROB,WVKS,WVKK)=0 G Exit ; Maatwerk product
  I +$P(A(0),D,6),+$H'<+$P(A(0),D,6) S (PROB,WVKS,WVKK)=0 G Exit ; Controle uitverkoop
  S A("I")=" \ \ " S:$E($N(^("I")),1)="I" A("I")=^($N(^("I")))
  S A("J")=" " S:$E($N(^("J")),1)="J" A("J")=^($N(^("J")))
- 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 PSC=$P(A(0),D,18) S:+PSC<6 PSC=6
+ S 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)
  S PI2="W"
@@ -154,4 +155,3 @@
  Lock -@("^"_Q_"SPW(PR)")
  Quit
  ;
-