Index: FLOWOFF.mac.rou
===================================================================
diff -u -r29059 -r43005
--- FLOWOFF.mac.rou	(.../FLOWOFF.mac.rou)	(revision 29059)
+++ FLOWOFF.mac.rou	(.../FLOWOFF.mac.rou)	(revision 43005)
@@ -575,11 +575,12 @@
  ; Herrekenen lijn
 LRECALC(KLNr,OFFNr,OFLNr,Display,KortTyp)
  New K,R,Rec,OffDat,OffMunt,PRNr,Aantal,Prijs,PrRec,NoSa
- New Offerte , Orderlijn , Product , PrijsInfo , LijnType, OrderlijnPrijsBepalen, KlantID, PrijsAanduiding
+ New Offerte , Orderlijn , Product , PrijsInfo , LijnType, OrderlijnPrijsBepaler, KlantID, PrijsAanduiding
  #dim KlantID As DOM.VKP.VanHoeckeKlantID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID(KLNr)
  #dim Offerte As DOM.VKP.Offerte = ##class(DOM.DomeinContext).Instance().GeefOrderAPI().GeefOfferte(OFFNr)
  #dim Orderlijn As DOM.VKP.ProductOrderlijn = Offerte.GeefOfferteLijnViaVolgnummer(OFLNr)
  #dim PrijsInfo As APPS.VKP.dto.PrijsInfo
+ 
  Set OrderlijnPrijsBepaler = ##class(APPS.VKP.OrderlijnPrijsBepaler).%New(KlantID,Offerte.GeefPrijsAffichering())
   
  Set Display=$G(Display)
@@ -595,9 +596,10 @@
  #dim LijnType As DOM.VKP.enu.OfferteLijnType = Orderlijn.GeefType()
  
  If LijnType = ##class(DOM.VKP.enu.OfferteLijnType).Product() Do
+ . New LijnMunt
  . Set PRNr = Orderlijn.GeefProductID()
  . Do Orderlijn.BerekenEnZetHoutCertificaat()
- . Set LijnMunt=Orderlijn.GeefMunt() 
+ . Set LijnMunt = Orderlijn.GeefMunt() 
  . Do:Display STORE^vhTERMINA()
  . Set PrijsInfo=$$KlantPrijsObject^KPRIJS(KLNr,PRNr,NoSa,OffDat,Orderlijn.GeefAantal(),Orderlijn.GeefLeverdag(),$S(Display:"D",1:""))
  . Do:Display REFRESH^vhTERMINA()