Index: PVExcel.mac.rou
===================================================================
diff -u -r47552 -r51636
--- PVExcel.mac.rou	(.../PVExcel.mac.rou)	(revision 47552)
+++ PVExcel.mac.rou	(.../PVExcel.mac.rou)	(revision 51636)
@@ -6,7 +6,25 @@
  ;           KLANT	
  ; *****************************
  ;'=ceRoutine("$$SetRegio^PVExcel";A2&"/"&B2)	
- 
+
+PrijzenUitAX(Refs)
+	Set KLNr=$P(Refs,"\")
+	Set PRNr=$P(Refs,"\",2)
+	Set Aantal=$P(Refs,"\",3)
+	Set SimPPL=+$P(Refs,"\",4)
+	Set:SimPPL=0 SimPPL=""
+	
+	If '##class(Derde.Klant.Klant).%ExistsId(KLNr) Quit "Klant "_KLNr_" bestaat niet"
+	If '##class(Prod.Product).%ExistsId(PRNr) Quit "Product "_PRNr_" bestaat niet"
+	Set SalesPriceService=##class(AXimpl.Admin.VKP.SalesPriceService).%New()
+	#dim Result As AXif.Dynamics.SalesPriceIn.MessageParts.ADUSalesPriceHeaderOutputDC =SalesPriceService.GeefPrijs(KLNr,PRNr,SimPPL,Aantal)
+	#dim ResultLine As AXif.Dynamics.SalesPriceIn.MessageParts.ADUSalesPriceLineOutputDC = Result.Lines.GetAt(1)
+	Set Return=$$$ExcelNum(ResultLine.Price)
+	Set Return=Return_"\"_$$$ExcelNum(ResultLine.GrossPrice)
+	Set Return=Return_"\"_ResultLine.PriceUnit
+	Set Return=Return_"\"_Result.InclVAT
+	Quit Return
+	
  ; Ref = KLNr_"\"_FieldKey_"\"_DataType	
 GetKlant(Ref)
 	Set KLNr=$P(Ref,"\")
@@ -90,6 +108,32 @@
  ; *****************************
  ;           PRODUCT	
  ; *****************************
+GetBasisIdentNr(IdentNr)
+	Set PRNr=$$GetPRNr(IdentNr)
+	Quit:PRNr="" "N/A"
+	w PRNr, " "
+	Set GenPRNr=$P(^KPR(PRNr,0),"\",3)
+	w GenPRNr," "
+	Quit:GenPRNr'?1.9N IdentNr
+	Set BasisIdentNr=$P(^KPR(GenPRNr,2),"\",25)
+	Quit BasisIdentNr
+
+GetProdType(IdentNr)
+	Set PRNr=$$GetPRNr(IdentNr)
+	Quit:PRNr="" "N/A"
+	IF $$IsOrgaluxOpMaat^PRODUKT2(PRNr) Quit "IO"
+	Set ProdGrp=$$PRODGRP^PRODUKT(PRNr)
+	If ProdGrp="OL" Quit "OL"
+	If ProdGrp="TA.C" Quit "TAC"
+	If ProdGrp="LBX" Quit "LBX"
+	If ProdGrp="TBX" Quit "TBX"
+	If ProdGrp="TA.B" Quit "TAX"
+	
+	Set GenTyp=$P($$GENTYP^HAD(PRNr,0,1),"\")
+	If GenTyp'="" Quit GenTyp
+	Quit "BSL"
+
+
 GetPRNr(Prod)
 	Quit:Prod?4.7N Prod
 	If Prod?4A Do  Quit:PRNr PRNr