Index: EWTOE.mac.rou
===================================================================
diff -u -r47634 -r47636
--- EWTOE.mac.rou	(.../EWTOE.mac.rou)	(revision 47634)
+++ EWTOE.mac.rou	(.../EWTOE.mac.rou)	(revision 47636)
@@ -173,9 +173,9 @@
  Do REMOVE^vhLock("^KSPW(PRNr)"),COPY(TOENr,TLNr,Rec,AantWMS)
  Do ##class(Flow.Toelevering).RecuPak(PRNr,AantWMS,TOENr,TLUNr,HistRef,.BLKLNr,.BLFactuurNr,.BLFactuurDatum)
  If 'AantBo 
- .Set ToeleveringLijnCode=$$GeefToeleveringLijnCode^FLOWTOE(LeverancierNummer,ToeleveringID,ToeleveringLijnID)
+ .Set ToeleveringLijnCode=$$GeefToeleveringLijnCode^FLOWTOE(LEVNr,TOENr,TLNr)
  .Do KILL(TOENr,TLNr)
- .Do ProductToeleveringLijnVerwijderd(LEVNr,ToeleveringID,ToeleveringLijnCode,PRNr,$P(Rec,D,30),Besteld,$P(Rec,D,56),$P(Rec,D,55),$P(Rec,D,57))
+ .Do ProductToeleveringLijnVerwijderd(LEVNr,TOENr,TLNr,PRNr,$P(Rec,D,30),Besteld,$P(Rec,D,56),$P(Rec,D,55),$P(Rec,D,57))
  If AantBo Do
  .Set Rec=^KTO(LEVNr,TOENr,TLNr) Set:'$P(Rec,D,23) $P(Rec,D,23)=$P(Rec,D,3)
  .Set $P(Rec,D,9)=$J(($P(Rec,D,9)/$P(Rec,D,3)*AantBo),0,##class(APPS.VKP.OrderlijnPrijsBepaler).GeefAantalDecimalen())