Index: KPRIJS.mac.rou =================================================================== diff -u -r50904 -r50958 --- KPRIJS.mac.rou (.../KPRIJS.mac.rou) (revision 50904) +++ KPRIJS.mac.rou (.../KPRIJS.mac.rou) (revision 50958) @@ -104,7 +104,7 @@ Set InclBTW=$LI(lb,5) } Else { Try { - New SalesPriceService, Result + New SalesPriceService, Result, ResultLine #dim SalesPriceService As AXimpl.Admin.VKP.SalesPriceService = ##class(AXimpl.Admin.VKP.SalesPriceService).%New() #dim Result As AXif.Dynamics.SalesPriceIn.MessageParts.ADUSalesPriceHeaderOutputDC = SalesPriceService.GeefPrijs(KLNr, PRNr, $select($Get(SimPPL):SimPPL, 1:""), .Aantal) @@ -117,6 +117,8 @@ Set ^AXPrijsCache(KLNr,PRNr,+CachePPL,$S($G(Aantal):Aantal,1:"*"))=$LB($$GeefMinuten($H),VkpEURAX,LijstEURAX,PriceUnit,InclBTW) } Catch { + New Exception + Set (VkpEURAX,LijstEURAX)=99999 Set PriceUnit=1 Set InclBTW = $$$False