Index: EWTOE.mac.rou
===================================================================
diff -u -r51994 -r51995
--- EWTOE.mac.rou	(.../EWTOE.mac.rou)	(revision 51994)
+++ EWTOE.mac.rou	(.../EWTOE.mac.rou)	(revision 51995)
@@ -280,6 +280,7 @@
  .Set R=RTemp,$P(R,D,13)=1
  .d WLIP^vhDBG(191,"Tralalala "_TOENr_" - "_TLUNr)
  .Do WV^KPR10,PUT^PRHIST(PRNr,AantWMS,"I","W",LEVNr,TOENr,TLUNr,RCPODate,,,,,,$G(OrdDat))
+ .Set ^TVE(+$H,$I(^TVE(+$H)))=PRNr_"\"_AantWMS_"\"_"I"_"\"_"W"_"\"_LEVNr_"\"_TOENr_"\"_TLUNr_"\"_RCPODate_"\"_$G(OrdDat)_"\Cache05"
  .Do:$$HasHalfFabr^PRBS(PRNr) HADPR^PRHF(TOENr,TLUNr,PRNr,AantWMS,RCPODate) ; Verwerking halffabrikaten
  Else  If $E(IDNr)'=7 Do  ; Geen DO-product
  .Do:Histor["O"
@@ -292,6 +293,7 @@
  ..If TLNr Set OrdDat=$P($$ORDGEG^FLOWTOE(LEVNr,TOENr,TLNr),D,2) Set:$L(OrdDat) OrdDat=$$INTDATE^vhDTyp(OrdDat)
  ..Set Magazijn=$S(OverKind:"K",1:"M")
  ..Do PUT^PRHIST(PRNr,AantWMS,"I",Magazijn,LEVNr,TOENr,TLUNr,+RCPODate,$G(RCPNr),$G(HistRef),.WMS,,MPRNr,$G(OrdDat))
+ .Set ^TVE(+$H,$I(^TVE(+$H)))=PRNr_"\"_$G(AantWMS)_"\"_"I"_"\"_$G(Magazijn)_"\"_$G(LEVNr)_"\"_$G(TOENr)_"\"_$G(TLUNr)_"\"_+$G(RCPDate)_"\"_$G(RCPNr)_"\"_$G(HistRef)_"\"_$G(WMS)_"\"_$G(MRPNr)_"\"_$G(OrdDat)_"\Cache05"
  .Do:$$HasHalfFabr^PRBS(PRNr) HADPR^PRHF(TOENr,TLUNr,PRNr,AantWMS,RCPODate) ; Verwerking halffabrikaten
  Else  Do  ; DO-product
  .Do ONE^BLHIST(PRNr,RCPODate,AantWMS,(CifPPL*AantWMS),("T;"_TOENr))