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
Index: EWORDST.mac.rou
===================================================================
diff -u -r50347 -r54530
--- EWORDST.mac.rou	(.../EWORDST.mac.rou)	(revision 50347)
+++ EWORDST.mac.rou	(.../EWORDST.mac.rou)	(revision 54530)
@@ -901,6 +901,7 @@
  ..If WMSStat="W" Quit:'$$WMSACTIV^EWRECS()
  ..Quit:sFL(1)=OldRec ; Niets veranderd
  ..Set ^ORDW("D",CONSNr)=sFL(1)
+ ..Do ##class(vhLib.Logger).%New("EWORDST").Debug("CONSNr : " _CONSNr,"Set ^ORDW(""D""," _CONSNr _") = " _^ORDW("D",CONSNr))
  ..;Quit:WMSStat'="W" ; Reeds doorgestuurd - gewijzigd  PV 4/06/2006, 
  ..For SoftV="E",1:1:3 Do:$P($G(^ORDW("D",CONSNr,"S",SoftV)),D,1)="W" ; allen waaraan nog niet begonnen is
  ...Do VERZZEND(CONSNr,SoftV,sFL(1))
Index: vhCARETAKER.mac.rou
===================================================================
diff -u -r54308 -r54530
--- vhCARETAKER.mac.rou	(.../vhCARETAKER.mac.rou)	(revision 54308)
+++ vhCARETAKER.mac.rou	(.../vhCARETAKER.mac.rou)	(revision 54530)
@@ -1121,8 +1121,16 @@
 	}
 	quit	
 	
-	
+OphalenKenmerkenVoorAX ; TIJDELIJK Ophalen van de kenmerken en opslaan in een flattabel (zoals in AX)
+	try { 
+ 		Do InitRuntimeContext
+		Do ##class(AXimpl.PM.Kenmerk.ConvertAll).%New().Verwerk()		}
+	catch(Exceptie) {
+		do OnError		
+	}
+	quit
 
+
 OnError 
 	set $ztrap="EndErrorTrapping"
 	new Exceptie set Exceptie = ##class(TECH.ExceptionHandler).Catch()