Index: Prod/Product/StockBeheer/CHUI/StockScan.mac.rou
===================================================================
diff -u -r29059 -r54970
--- Prod/Product/StockBeheer/CHUI/StockScan.mac.rou	(.../StockScan.mac.rou)	(revision 29059)
+++ Prod/Product/StockBeheer/CHUI/StockScan.mac.rou	(.../StockScan.mac.rou)	(revision 54970)
@@ -33,7 +33,7 @@
 VolgendProduct
  K WVKS,WVKK S PR=$N(@("^"_Q_"PR(PR)")) G BewaarGegevens:PR=-1
  S J=$O(@("^"_Q_"PR(PR,""J"")")) G VolgendProduct:$E(J)'="J"
- D ^Prod.Product.StockBeheer.StockScan G VolgendProduct:$P(A(0),D,23)="S",VolgendProduct:$P(A(1),D,25)=1,VolgendProduct:$E($P(A(2),D,25))=6,VolgendProduct:$E($P(A(2),D,25))=7
+ D ^Prod.Product.StockBeheer.StockScan G VolgendProduct:$P(A(0),D,23)="S",VolgendProduct:$P(A(1),D,25)=1,VolgendProduct:$E($P(A(2),D,25))=6,VolgendProduct:$P($$GENTYP^HAD(PR,0,1),"\")'="" ;$E($P(A(2),D,25))=7
  I +$P(A(0),D,6),+$H'<+$P(A(0),D,6) G VolgendProduct ; Controle uitverkoop
  
  ; opslaan van gemiddelden in KPR
@@ -42,7 +42,7 @@
  S $P(@("^"_Q_"PR(PR,1)"),D,24)=Rot_"#"_GemFysSt_"#"_BestelH
  
  ; Indien mirror product dan alleen het product met de laagste fysische stock
- Set MirrorPRNr=$$GetMirror^PRODUKT(PR)
+ Set MirrorPRNr="" ;$$GetMirror^PRODUKT(PR)
  If MirrorPRNr Do  Goto VolgendProduct:GetNextPRNr
  . New FysStock,MirrorFysStock
  . Set FysStock=$$GETSTOCK^PRODUKT4(PR,"F"),MirrorFysStock=$$GETSTOCK^PRODUKT4(MirrorPRNr,"F")
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
  ;
-