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")