Index: PVTAORFakturatie.mac.rou
===================================================================
diff -u -r37152 -r38931
--- PVTAORFakturatie.mac.rou	(.../PVTAORFakturatie.mac.rou)	(revision 37152)
+++ PVTAORFakturatie.mac.rou	(.../PVTAORFakturatie.mac.rou)	(revision 38931)
@@ -4,9 +4,9 @@
 #include BL.Derde.LevSpecifiek
 
 Export
-	Set Device=$$OPEN^vhDEV(,"TAOR FakturatieAantallen2.txt","W","T")
+	Set Device=$$OPEN^vhDEV(,"TAOR FakturatieAantallen.txt","W","T")
 	Use Device
-	Write "KLNr	FAKNr	Datum	PRNr	KortTekst	Telbaar	Aantal	Omzet	AankoopKost	ZonderStock",!
+	Write "KLNr	Regio	FAKNr	Datum	PRNr	KortTekst	Telbaar	Aantal	Omzet	Kost	ZonderStock	OmzetZndrGlijder	KostZndrGlijder",!
 	Do WriteFacturatie
 	Do CLOSE^vhDEV(Device)
 	Quit
@@ -41,13 +41,24 @@
 	. . . . . Set Qty=$P(LRec,"\",3)
 	. . . . . Set Omzet=$P(LRec,"\",34)
 	. . . . . Set Kost=$P(LRec,"\",33)
+	. . . . . Set KostZndGlijder=Kost-(($$KostBS(PRNr,"PRGLIJD")+$S($E($$$PRGet($$$KortTekst),6)="Z":0,1:$$KostBS(PRNr,"PRKOP")))*Qty)
+	. . . . . Set OmzetZndGlijder=Omzet * KostZndGlijder / Kost
 	. . . . . ;Quit:Qty<1
- 	. . . . . Write KLNr,*9,FAKNr,*9,$$$ExcelDat(-Datum)
- 	. . . . . Write *9,PRNr,*9,$$$PRGet($$$KortTekst),*9,Telbaar,*9,$$$ExcelNum(Qty),*9,$$$ExcelNum(Omzet),*9,$$$ExcelNum(Kost),*9,ZonderStock
+ 	. . . . . Write KLNr,*9,Regio,*9,FAKNr,*9,$$$ExcelDat(-Datum)
+ 	. . . . . Write *9,PRNr,*9,$$$PRGet($$$KortTekst),*9,Telbaar,*9,$$$ExcelNum(Qty),*9,$$$ExcelNum(Omzet),*9,$$$ExcelNum(Kost),*9,ZonderStock,*9,$$$ExcelNum(OmzetZndGlijder),*9,$$$ExcelNum(KostZndGlijder)
  	. . . . . Write !
 
 	Quit
 	
+KostBS(PRNr,BSKeyBasis)
+	New Kost,BSKey,HFPRNr
+	Set Kost=0
+	Set BSKey=BSKeyBasis
+	For  Set BSKey=$O(^PRBS("BS",PRNr,BSKey)) Quit:BSKey'[BSKeyBasis  Do
+	. Quit:$P(^PRBS("BS",PRNr,BSKey),"\",3)'="H"
+	. Set HFPRNr=$P(^PRBS("BS",PRNr,BSKey),"\",1)
+	. Quit:HFPRNr'?4.9N
+	. Set Kost=Kost+$$CifPPL^KPRIJS(HFPRNr)*$P(^PRBS("BS",PRNr,BSKey),"\",2)
+	Quit Kost
 
 
-