Index: UTILI.mac.rou
===================================================================
diff -u -r29059 -r43005
--- UTILI.mac.rou	(.../UTILI.mac.rou)	(revision 29059)
+++ UTILI.mac.rou	(.../UTILI.mac.rou)	(revision 43005)
@@ -48,7 +48,7 @@
  Quit Max+Count
  
 FETCHKL(KLNr,Local) 
- New Inc
+ New Inc,I,I1
  If '$D(Local) Kill B Set Local="B",Inc=1
  Else  Set Inc=$G(@Local) Kill @Local Set @Local=Inc,Inc=0
  Quit:'$D(^KK1(KLNr))  Set I1=^KK1(KLNr) Quit:'$D(^KKL(I1,0))
Index: FLOWOFF3.mac.rou
===================================================================
diff -u -r29059 -r43005
--- FLOWOFF3.mac.rou	(.../FLOWOFF3.mac.rou)	(revision 29059)
+++ FLOWOFF3.mac.rou	(.../FLOWOFF3.mac.rou)	(revision 43005)
@@ -171,7 +171,7 @@
  Quit
  ;
 BUILDOBJ(KLNr,OffTyp,Refer,PRNr) 
- New OFFNr,Next,IsStock,Verpak,LevTerm,R,Detail
+ New OFFNr,Next,IsStock,Verpak,LevTerm,R,Detail,IsHandel,KlMunt,Aantal
  Set OFFNr=$$AUTO^FLOWOFF(KLNr,OffTyp,$G(Refer))
  Do INITKL^FLOWOFF
  For Next=1:1 Quit:'$D(PRNr(Next))  Do
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()