Index: EWTOE.mac.rou
===================================================================
diff -u -r50808 -r51897
--- EWTOE.mac.rou	(.../EWTOE.mac.rou)	(revision 50808)
+++ EWTOE.mac.rou	(.../EWTOE.mac.rou)	(revision 51897)
@@ -299,8 +299,9 @@
  .Set:$P(RTemp,D,2) R=$$CV2EENH^MRP(PRNr,$P(RTemp,D,2)),$P(RTemp,D,5)=$P(RTemp,D,5)/$P(RTemp,D,2)*R,$P(RTemp,D,2)=R
  .Set R=RTemp,$P(R,D,13)=1
  .Do WV^KPR10,PUT^PRHIST(PRNr,AantWMS,"I","W",LEVNr,TOENr,TLUNr,RCPODate,,,,,,$G(OrdDat))
+ .Set ^TVE($H,PRNr,AantWMS,"I","W",LEVNr,TOENr,TLUNr,RCPODate,$G(OrdDat))=AantWMS
  .Do:$$HasHalfFabr^PRBS(PRNr) HADPR^PRHF(TOENr,TLUNr,PRNr,AantWMS,RCPODate) ; Verwerking halffabrikaten
- Else  If $E(IDNr)'=7 Do  ; Geen DO-product
+ Else
  .Do:Histor["O"
  ..Set R=$TR($$EXTDATE^vhLib.DataTypes($S('RCPODate:$H,1:RCPODate),"DS"),D,"")
  ..Set R=R_1_D_AantWMS_D_$J(CifPPL,0,$S(IsEuro:4,1:2))_D_1_D_$J(LijstPr,0,$S(IsEuro:4,1:2))_D_D_0_D_TOENr_D
@@ -311,9 +312,8 @@
  ..If TLNr Set OrdDat=$P($$ORDGEG^FLOWTOE(LEVNr,TOENr,TLNr),D,2) Set:$L(OrdDat) OrdDat=$$INTDATE^vhLib.DataTypes(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,PRNr,AantWMS,"I",Magazijn,LEVNr,TOENr,TLUNr,+RCPODate,$G(RCPNr),$G(HistRef),WMS,MPRNr,$G(OrdDat))=AantWMS
  .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))
  Quit
  ;
  ; Copieren naar ^KTO5
@@ -717,4 +717,3 @@
 
 
 
-