Index: MRPRES.mac.rou
===================================================================
diff -u -r67549 -r69296
--- MRPRES.mac.rou	(.../MRPRES.mac.rou)	(revision 67549)
+++ MRPRES.mac.rou	(.../MRPRES.mac.rou)	(revision 69296)
@@ -29,13 +29,14 @@
  Quit:$P($G(^HADPR("F",FabKey,"K")),D,3)="A"  ; Reeds productie klaar
  
  Set (HFCode)=""
-  For  Set HFCode=$O(^HADPR("F",FabKey,"AR",HFCode)) Quit:HFCode=""  Do  
+ For  Set HFCode=$O(^HADPR("F",FabKey,"AR",HFCode)) Quit:HFCode=""  Do  
  . Set ARRec=^HADPR("F",FabKey,"AR",HFCode)
  . Set HFRec=$G(^PRBS("BS",PRNr,HFCode)) ; als de bouwstenen gewijzigd werden nadat het product geactiveerd was.
  . Quit:$P(HFRec,D,3)'="H"  ; Geen halffabrikaat
  . Set HFRecD=$G(^PRBS("BS",PRNr,HFCode,"D"))
  . Set HFPRNr=$P(HFRec,D,1)
- . Quit:('$P(^KPR(HFPRNr,2),D,15))&&($$GETSTOCK^PRODUKT4(HFPRNr,"F",,0,1)<1)  ; Werkvloer product zonder voorraad in magazijn 
+ . Quit:('$P(^KPR(HFPRNr,2),D,15))&&($$GETSTOCK^PRODUKT4(HFPRNr,"F",,0,1)<1)  ; Werkvloer product zonder voorraad in magazijn
+ . Quit:($$$ProductGet(HFPRNr,$$$WerkvloerSubMag)?1"KANBAN".E) ; Kanban niet opnemen in transferorder
  . If $L($P($G(^KPR(HFPRNr,15)),D,5)) Do  ; Er is een herbestelpunt ingevuld daarom overlaten aan de SCAN^MRPSTOCK
  . . Set @CRef@("SCANONE",HFPRNr,FabKey)=$P(ARRec,D,2)_"\"_$P(HFRecD,D,2) ; deze moeten absoluut opgenomen worden in de SCANONE^MRPSTOCK omdat deze klaargezet is (ook al is deze meerdere dagen verder)
  . Else  If ($P(ARRec,D,6)="W")||($P(ARRec,D,6)="P")||($P(ARRec,D,6)="F") Do ; Te kort op werkvloer wordt bepaald door ACTIVERING
@@ -148,6 +149,7 @@
  . Do SplitSubMag(CRef)
  . Kill @CRef@("TO") 
  . Merge ^MRPRESLog($P(TimeStamp,",",1),$P(TimeStamp,",",2),"SPLIT")=@CRef@("STO")
+ . Merge ^MRPRESLog($P(TimeStamp,",",1),$P(TimeStamp,",",2),"SPLIT TOELEV")=@CRef@("STT")
  . Do BLD^MRPTORD($NAME(@CRef@("STO")))
  . Merge ^MRPRESLog($P(TimeStamp,",",1),$P(TimeStamp,",",2),"ORDER")=@CRef@("STO")
  . Do ControleProductenNietInOrder^MRPTORD($NAME(@CRef@("STO")),$NAME(@CRef@("MISSING")))
@@ -290,8 +292,12 @@
  ... Set SubMag=$P(@CRef@("TO",PRNr,FabKey,HFCode),D,2)
  ... Set:SubMag="" SubMag=$$GetVerzendCode(PRNr,FabKey)
  ... Set:SubMag="" SubMag="~"
- ... Set @CRef@("STO",SubMag,PRNr)=$G(@CRef@("STO",SubMag,PRNr))+Qty
- ... Set @CRef@("STO",SubMag,PRNr,FabKey,HFCode)=Qty
+ ... If SubMag="Y" Do ; MyLegrabox
+ .... Set @CRef@("STO",SubMag_";"_$P(FabKey,";"),PRNr)=$G(@CRef@("STO",SubMag_";"_$P(FabKey,";"),PRNr))+Qty
+ .... Set @CRef@("STO",SubMag_";"_$P(FabKey,";"),PRNr,FabKey,HFCode)=Qty
+ ... Else  Do
+ .... Set @CRef@("STO",SubMag,PRNr)=$G(@CRef@("STO",SubMag,PRNr))+Qty
+ .... Set @CRef@("STO",SubMag,PRNr,FabKey,HFCode)=Qty
  . ; Afronden naar boven van de aantallen
  . Set SubMag=""
  . For  Set SubMag=$O(@CRef@("STO",SubMag)) Quit:SubMag=""  Do:$D(@CRef@("STO",SubMag,PRNr))