Index: PVJB.mac.rou
===================================================================
diff -u -r2590 -r2915
--- PVJB.mac.rou	(.../PVJB.mac.rou)	(revision 2590)
+++ PVJB.mac.rou	(.../PVJB.mac.rou)	(revision 2915)
@@ -91,7 +91,7 @@
 	Write "GenTyp	SubGT	PRNr	KT	KLNr	KLNm	Regio	Activiteit	Kwantitatoef	Kwalitatief	Qty	VKP	AKP	BodemAKP	BodProd	BodCode"
 	;Write "	Omzet"
 	;Write "	Marge"
-	Write "	DC	DS	KLAS	LC	LT	LD	RH	IB	KL	DK	KB	IsSR	BS	VPK	KB	FS	BGRP	ASM	BM	KV	NMCP	RSTL",!
+	Write "	DC	DS	KLAS	LC	LT	LD	RH	IB	KL	DK	KB	IsSR	BS	VPK	KB	FS	BGRP	ASM	BM	KV	NMCP	RSTL	PBX doos	PBX deksel	PBX pallet",!
 	For  Set PRNr=$O(^KSTPR(PRNr)) Quit:PRNr=""  Do
 	. Set GenTyp=$$GENTYP^HAD(PRNr)
 	. Quit:$P(GenTyp,"\")'="TBX"
@@ -135,11 +135,14 @@
 	. . ;Set BodemPRNr=$P(^PRBS("BS",PRNr,"PRBDHZ.001"),"\")
 	. . Set KLNm=$P(^KKL(^KK1(KLNr),0),D,2)
 	. . Set Regio=$P(^KKL(^KK1(KLNr),0),D,20)
+	. . Set ProboxDeksel = $P($G(^PRBS("BS",PRNr,"PRVPPBXDEK.001")),"\",2)
+	. . Set ProboxDoos = $P($G(^PRBS("BS",PRNr,"PRVPPBXBOD.001")),"\",2)
+	. . Set ProboxPallet = $P($G(^PRBS("BS",PRNr,"PRVPPBXPAL.001")),"\",2)
 	. . Write $P(GenTyp,"\",1),*9,$P(GenTyp,"\",2),*9,PRNr,*9,KT,*9,KLNr,*9,KLNm,*9,Regio,*9,$LG($$DisplayActiviteit^KLANT5(KLNr),1),*9,$LG($$DisplayKwantitatief^KLANT5(KLNr),2),*9,$LG($$DisplayKwalitatief^KLANT5(KLNr),2),*9,$P(Qty,"\",1)
 	. . Write *9,$$$ExcelNum(Omzet),*9,$$$ExcelNum(AKP),*9,$$$ExcelNum(BodemPPL),*9,BodemTxt,*9,Type ; Omzet
 	. . ;Write *9,$$$ExcelNum($P(Stat,"\",3)) ; Omzet
 	. . ;Write *9,$$$ExcelNum($P(Stat,"\",4)) ; Marge
-	. . Write *9,DC,*9,DS,*9,KLAS,*9,LC,*9,LT,*9,LD,*9,RH,*9,$$$ExcelNum(IB),*9,KL,*9,DK,*9,KB,*9,IsSR,*9,BS,*9,VPK,*9,KB,*9,$S(FS=0:"",1:FS),*9,$S(BGRP=0:"",1:BGRP),*9,$S(ASM=0:"",1:ASM),*9,$S(BM=0:"",1:BM),*9,KV,*9,NMCP,*9,RSTL,!
+	. . Write *9,DC,*9,DS,*9,KLAS,*9,LC,*9,LT,*9,LD,*9,RH,*9,$$$ExcelNum(IB),*9,KL,*9,DK,*9,KB,*9,IsSR,*9,BS,*9,VPK,*9,KB,*9,$S(FS=0:"",1:FS),*9,$S(BGRP=0:"",1:BGRP),*9,$S(ASM=0:"",1:ASM),*9,$S(BM=0:"",1:BM),*9,KV,*9,NMCP,*9,RSTL,*9,ProboxDoos,*9,ProboxDeksel,*9,ProboxPallet,!
 	Do CLOSE^vhDEV(Dev)
 	Quit
 TBXMnd