Index: KPRIJSAX.mac.rou
===================================================================
diff -u -r50904 -r66287
--- KPRIJSAX.mac.rou	(.../KPRIJSAX.mac.rou)	(revision 50904)
+++ KPRIJSAX.mac.rou	(.../KPRIJSAX.mac.rou)	(revision 66287)
@@ -8,7 +8,22 @@
 #define CodexList "LRSBG"
 #define CodexDeelVork "0;25;50;75;100"
 #define CodexDeelVorkOL "0;27.27272727;45.45454545;72.72727272;100"
+test
+			#dim SalesPriceService As AXimpl.Admin.VKP.SalesPriceService = ##class(AXimpl.Admin.VKP.SalesPriceService).%New()
+			#dim Result As AXif.Dynamics.SalesPriceIn.MessageParts.ADUSalesPriceHeaderOutputDC = SalesPriceService.GeefPrijsViaConfig(4810, 89322, "000633233",1)
+			;#dim Result As AXif.Dynamics.SalesPriceIn.MessageParts.ADUSalesPriceHeaderOutputDC = SalesPriceService.GeefPrijsViaConfig(4810, 865733, "000630654",1)
+			#dim ResultLine As AXif.Dynamics.SalesPriceIn.MessageParts.ADUSalesPriceLineOutputDC = Result.Lines.GetAt(1)
+		;D DumpObject^%apiOBJ(Result)
+		D DumpObject^%apiOBJ(ResultLine)
+				;#dim Result As AXif.Dynamics.SalesPriceIn.MessageParts.ADUSalesPriceHeaderOutputDC = SalesPriceService.GeefPrijsViaConfig(4810, 865733, "000630654",1)
+	
+	q
 
+
+
+
+
+
 KlantPrijsObject(KLNr,PRNr,NoSa,RefDat,Aantal,LevTerm,Optie)
 	Quit $$KlantPrijsNaarKlantPrijsObject($$KlantPrijs(.KLNr,.PRNr,.NoSa,.RefDat,.Aantal,.LevTerm,.Optie))
 	
@@ -76,7 +91,7 @@
  New BTWfactor,LijstPr1,VkpEURIncl,VkpPr1,VkpPrIncl,VkpEURAX,LijstEURAX
  ; Opgezet via GETCUST : KlMunt,KlTyp,NetBrutP,PrijsKl,IsKsCust,IsLidVan,%LidVan
  ; Opgezet via GETPROD : LEVNr,KatPrHan,KatPrInd,KatPrKs,GrOrde,GrOrdNum,PrMunt,CifPPL,LijstPr,Vork,%Vork
- New LEVNr,KatPrHan,KatPrInd,KatPrKs,GrOrde,GrOrdNum,PrMunt,CifPPL,LijstPr,Vork,%Vork,BusinessType,Klant,KlantID, CorFakt,KortRec
+ New LEVNr,KatPrHan,KatPrInd,KatPrKs,GrOrde,GrOrdNum,PrMunt,CifPPL,LijstPr,Vork,%Vork,BusinessType,Klant,KlantID, CorFakt,KortRec,CacheMinuten
  Set:$G(NoSa)'="S" NoSa=""
  Set FaMunt=$$FADEF^vhRtn1()
  Do GETCUST(KLNr,NoSa,PRNr),GETPROD(PRNr,NoSa,$G(SimPPL))