Index: MRPSTOCK.mac.rou
===================================================================
diff -u -r734 -r1452
--- MRPSTOCK.mac.rou	(.../MRPSTOCK.mac.rou)	(revision 734)
+++ MRPSTOCK.mac.rou	(.../MRPSTOCK.mac.rou)	(revision 1452)
@@ -1,4 +1,5 @@
 MRPSTOCK ; Stock en reservatie van de werkvloer [ 11/08/2003   8:40 PM ]
+#include %Prod.Product
  Quit
  
 STAT Set %J=$$%J^vhRtn1()
@@ -42,39 +43,46 @@
  ; Opbouw sorteerglobal
  Set PRNr=""
  For  Set PRNr=$O(^PRSTOCK("D",PRNr)) Quit:PRNr=""  Do    
- .Quit:$P(^PRSTOCK("D",PRNr),D,5)=""
- .Quit:'$D(^KPR(PRNr))
- .Quit:$P(^KPR(PRNr,0),D,1)["*KP*"  ; Geen kindproducten
- .Set ^HULP(%J,$$SORTKEY^PRODUKT(PRNr))=PRNr
+ . Quit:$P(^PRSTOCK("D",PRNr),D,5)=""
+ . Quit:'$D(^KPR(PRNr))
+ . Quit:$P(^KPR(PRNr,0),D,1)["*KP*"  ; Geen kindproducten
+ . Set BasisType=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",PRNr,"BasisType"))
+ . If BasisType="" Do
+ . . Set BasisType=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("KAD",PRNr,"BasisType"))
+ . . Set:BasisType'="" BasisType=BasisType="KAD:"_BasisType
+ . Set ^HULP(%J,$S(BasisType="":"*",1:BasisType),$$SORTKEY^PRODUKT(PRNr))=PRNr
  ; Export van sorteerglobal
  Set Dev=0
- Set Dev=$$OPEN^vhDEV(,"WVStock.txt","W")
+ Set Dev=$$OPEN^vhDEV(,"WVStock.txt","W","T")
  Use Dev
  Write $TR("Plaats;PRNr;Korttekst;WV Stock;HBPunt;HBQty;CiffPPL;BeginMnd",";",$C(9)),!
- Set Key=""
- For  Set Key=$O(^HULP(%J,Key)) Quit:Key=""  Do
- .Set PRNr=^HULP(%J,Key)
- .Set Rec0=^KPR(PRNr,0)
- .Set KeyI=$O(^KPR(PRNr,"J"))
- .Set CiffPPL=$P(^KPR(PRNr,KeyI),D,23)
- .Set Rec15=$G(^KPR(PRNr,15))
- .Set RecST=^PRSTOCK("D",PRNr)
- .Set BeginFS=$P(RecST,D,5)
- .If BeginM Do
- .. Set VolgNr="",Found=0
- .. For  Set VolgNr=$O(^PRHIST(PRNr,VolgNr),-1) Quit:VolgNr=""  Do  Quit:Found
- ...Quit:$P(^PRHIST(PRNr,VolgNr),D,5)'="W"
- ...If +$P(^PRHIST(PRNr,VolgNr),D,1)<BeginM Do
- ....Set Found=1
- ...Else  Do
- .... ;Tijdelijke routine totdat de PRHIST OK is
- .... Set MemFS=($S($P(^PRHIST(PRNr,VolgNr),D,4)="H":+1,1:-1)*$P(^PRHIST(PRNr,VolgNr),D,2)) ; tijdelijk
- .... Set BeginFS=BeginFS+MemFS
- .... ;Set BeginFS=$P(^PRHIST(PRNr,VolgNr),D,3)
- .Write $P(Rec15,D,12),$C(9),PRNr,$C(9),$P(Rec0,D,1),$C(9),$TR(+$J($P(RecST,D,5),0,2),".",","),$C(9),$$QTYDISP(PRNr,$P(Rec15,D,4)),$C(9),$$QTYDISP(PRNr,$P(Rec15,D,5))
- .Write $C(9),$TR(+$J(CiffPPL,0,4),".",","),$C(9),$TR(+$J(BeginFS,0,4),".",",")
- .Write !
- Close:0'[Dev Dev
+ Set (BasisType,Key)=""
+ For  Set BasisType=$O(^HULP(%J,BasisType)) Quit:BasisType=""  Do
+ . For  Set Key=$O(^HULP(%J,BasisType,Key)) Quit:Key=""  Do
+ . . Set PRNr=^HULP(%J,BasisType,Key)
+ . . Set Rec0=^KPR(PRNr,0)
+ . . Set KeyI=$O(^KPR(PRNr,"J"))
+ . . Set CiffPPL=$P(^KPR(PRNr,KeyI),D,23)
+ . . Set Rec15=$G(^KPR(PRNr,15))
+ . . Set RecST=^PRSTOCK("D",PRNr)
+ . . Set BeginFS=$P(RecST,D,5)
+ . . If BeginM Do
+ . . Set VolgNr="",Found=0
+ . . . For  Set VolgNr=$O(^PRHIST(PRNr,VolgNr),-1) Quit:VolgNr=""  Do  Quit:Found
+ . . . . Quit:$P(^PRHIST(PRNr,VolgNr),D,5)'="W"
+ . . . . If +$P(^PRHIST(PRNr,VolgNr),D,1)<BeginM Do
+ . . . . . Set Found=1
+ . . . . Else  Do
+ . . . . . ;Tijdelijke routine totdat de PRHIST OK is
+ . . . . . Set MemFS=($S($P(^PRHIST(PRNr,VolgNr),D,4)="H":+1,1:-1)*$P(^PRHIST(PRNr,VolgNr),D,2)) ; tijdelijk
+ . . . . . Set BeginFS=BeginFS+MemFS
+ . . . . . ;Set BeginFS=$P(^PRHIST(PRNr,VolgNr),D,3)
+ . . Set LEVNr=$$$PRGet($$$LeveranciersNr)
+ . . Set LEVNm=$P(^KLE(^KL1(LEVNr),0),D,2)
+ . . Write BasisType,$C(9),PRNr,$C(9),$P(Rec0,D,1),$C(9),$TR(+$J($P(RecST,D,5),0,2),".",","),$C(9),$$QTYDISP(PRNr,$P(Rec15,D,4)),$C(9),$$QTYDISP(PRNr,$P(Rec15,D,5))
+ . . Write $C(9),$TR(+$J(CiffPPL,0,4),".",","),$C(9),$TR(+$J(BeginFS,0,4),".",","),*9,LEVNr,*9,LEVNm
+ . . Write !
+ Do CLOSE^vhDEV(Dev)
  Quit
  
  
@@ -224,18 +232,20 @@
  . Set Cnt=Cnt+1
  . If Cnt#100=0 Set FP=2322 Write @F,@F2,Cnt
  . Do SCANONE(CRef,PRNr,"RL")
- Do CLOSE^MRPRES(CRef)
+ zw CRef
+ ;Do CLOSE^MRPRES(CRef)
  Quit
  
-SCANONE(CRef,PRNr,Opties) ; Controle van 1 product
+SCANONE(CRef,PRNr,Opties,TotWeek) ; Controle van 1 product
  ; Optie bevat "R" Controle op reservatie
  ; Optie bevat "L" Controle op limiet
  Set Rec15=$G(^KPR(PRNr,15))
  Set HerbQty=$$QTYVPK^MRP(PRNr,$P(Rec15,D,5))
  Set PRStock=$G(^PRSTOCK("D",PRNr))
  Set Stock=$P(PRStock,D,5)
  ;Set Res=$P(PRStock,D,6)
- Set Res=$P($$VerkoopKinderen^PRODUKT4(PRNr),D,2) ; gewijzigd PV 16/10/2008 alleen halffabrikaten, geen kindproducten (bv Orgalux)
+ ;
+ Set Res=$P($$VerkoopKinderen^PRODUKT4(PRNr,.TotWeek),D,2) ; gewijzigd PV 16/10/2008 alleen halffabrikaten, geen kindproducten (bv Orgalux)
  Set BestQty=0
  If Opties["R" Do  ; controle reservatie
  . New VPQty,BestQty2
@@ -254,8 +264,9 @@
  . Quit:'$L(HerbPunt)
  . Set BestQty=$S(HerbPunt>Stock:$S(BestQty>HerbQty:BestQty,1:HerbQty),1:BestQty) ; Indien herbestelpunt bereikt dan kijken wat groter is verschil reservatie of herbestelqty
  ; Indien onvoldoende praktische voorraad dan juist het nodige 
- Set:$$GETSTOCK^PRODUKT4(PRNr,"P")<BestQty BestQty=Res-Stock
- Quit:'BestQty
+ If $$GETSTOCK^PRODUKT4(PRNr,"P")<BestQty Set BestQty=Res-Stock
+ Set BestQty=$J(BestQty+.499,0,0) ; geheel getal !
+ Quit:BestQty'>0
  Set @CRef@("TO",PRNr)=BestQty
  Quit