Index: PV.mac.rou
===================================================================
diff -u -r54049 -r54530
--- PV.mac.rou	(.../PV.mac.rou)	(revision 54049)
+++ PV.mac.rou	(.../PV.mac.rou)	(revision 54530)
@@ -13,7 +13,7 @@
 
 AXStat
 
-		For MndCnt=-10:1:-1 Do 
+		For MndCnt=-11:1:-1 Do 
 		. w MndCnt," "
 		. Do ##class(AXimpl.Admin.STAT.Invoice.Processor).%New($$CALCDATE^vhLib.DataTypes($H,"M",MndCnt)).Process()
 		Do ##class(AXimpl.Admin.STAT.Invoice.Processor).%New(+$H).Process()
@@ -107,9 +107,52 @@
 	. W *9,$$$ExcelNum(KostTot*Qty),*9,$$$ExcelNum(KostTot2*Qty),*9,$$$ExcelNum(CompVH*Qty),*9,$$$ExcelNum(CompHLX*Qty),*9,$$$ExcelNum(MW*Qty)
 	. w !
 	Do CLOSE^vhDEV(Dev)
+TRANS(X)
+	Set Translator=##class(AX.Uitgaand.EC.DataAX.impl.Translator).%New()
+	Set PRNr=Translator.GeefPRNrForAdminInclSOPR(X,11708)
+	w PRNr," ", $$$PRGet($$$KortTekst),!
+	q
 
+
+REGIODTL
+ 	Set Regio=4
+ 	Set Maand="2018.12 "
+ 	Set Translator=##class(AX.Uitgaand.EC.DataAX.impl.Translator).%New()
+ 	Set Dev=$$OPEN^vhDEV(,"Statctrl R"_Regio_" "_Maand_".txt","W","T")
+ 	Use Dev
+ 	w "KLNr	Naam	PRNr	KortTekst	PRNr	QtyStat	OmzetStat	MargeStat	VkpPrijs	LijstPrijs	KostPrijs	OmzetCalc	LijstCalc	KostCalc	MargeCalc	"
+ 	W "SPRNr	SKortTekst	SVkpPrijs	SLijstPrijs	SKostPrijs	SOmzetCalc	SLijstCalc	SKostCalc	SMargeCalc",!
+	Set KLNr=0
+	Set %J=$$%J^vhRtn1()
+	For  Set KLNr=$O(^KSTKL(KLNr)) Quit:KLNr=""  Do 
+	. Quit:+$P(^KKL(^KK1(KLNr),0),"\",20)'=Regio
+	. Set PRNr=0
+	. For  Set PRNr=$O(^KSTKL(KLNr,PRNr)) Quit:PRNr=""  Do 
+	. . Set Stat=$G(^KSTKL(KLNr,PRNr,Maand))
+	. . Set Qty=$P(Stat,"\",1)
+	. . Quit:Qty=""
+	. . Set Omz=$P(Stat,"\",3)
+	. . Set Marge=$P(Stat,"\",4)
+	. . Set VKPRec=$$KLANTPR^KPRIJS(KLNr,PRNr)
+	. . Set VKPPrijs=$P(VKPRec,"\",14)
+	. . Set LijstPrijs=$P(VKPRec,"\",15)
+	. . Set KostPrijs=$P(VKPRec,"\",13)
+	. . W KLNr,*9,$P(^KKL(^KK1(KLNr),0),"\",2),*9,PRNr,*9,$$$ProductGet(PRNr,$$$KortTekst)
+	. . W *9,Qty,*9,$$$ExcelNum(Omz),*9,$$$ExcelNum(Marge)
+	. . W *9,$$$ExcelNum(VKPPrijs),*9,$$$ExcelNum(LijstPrijs),*9,$$$ExcelNum(KostPrijs)
+	. . W *9,$$$ExcelNum(VKPPrijs*Qty),*9,$$$ExcelNum(LijstPrijs*Qty),*9,$$$ExcelNum(KostPrijs*Qty),*9,$$$ExcelNum((VKPPrijs-KostPrijs)*Qty)
+	. . Set SOPRPRNr=Translator.GeefPRNrForAdminInclSOPR($$$ProductGet(PRNr,$$$IdentNummer),KLNr)
+	. . Set VKPRec=$$KLANTPR^KPRIJS(KLNr,SOPRPRNr)
+	. . Set VKPPrijs=$P(VKPRec,"\",14)
+	. . Set LijstPrijs=$P(VKPRec,"\",15)
+	. . Set KostPrijs=$P(VKPRec,"\",13)
+	. . W *9,SOPRPRNr,*9,$$$ProductGet(SOPRPRNr,$$$KortTekst)
+	. . W *9,$$$ExcelNum(VKPPrijs),*9,$$$ExcelNum(LijstPrijs),*9,$$$ExcelNum(KostPrijs)
+	. . W *9,$$$ExcelNum(VKPPrijs*Qty),*9,$$$ExcelNum(LijstPrijs*Qty),*9,$$$ExcelNum(KostPrijs*Qty),*9,$$$ExcelNum((VKPPrijs-KostPrijs)*Qty)
+	. . w !
+	Do CLOSE^vhDEV(Dev)
+
 	Q
-	
 HadPR
 	Set Device= $$OPEN^vhDEV(,"SW HadPR.txt","W","T")
 	Use Device