Index: PRSTOCK.mac.rou =================================================================== diff -u -r52990 -r66316 --- PRSTOCK.mac.rou (.../PRSTOCK.mac.rou) (revision 52990) +++ PRSTOCK.mac.rou (.../PRSTOCK.mac.rou) (revision 66316) @@ -195,7 +195,7 @@ .Set RTemp=R .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 - .Do WV^KPR10,PUT^PRHIST(PR,Aantal,$S(Aktie="O":"A",Aktie="D":"B",Aktie="L":"L",Aktie="R":"C",1:"M"),"W",,,,,,Ref,,CUserId) + .Do WV^KPR10,PUT^PRHIST(PR,Aantal,$S(Aktie="O":"A",Aktie="D":"B",Aktie="L":"L",Aktie="R":"C",Aktie="N":"N",1:"M"),"W",,,,,,Ref,,CUserId) Quit ; INIT