Index: PVExcel.mac.rou
===================================================================
diff -u -r29059 -r47543
--- PVExcel.mac.rou	(.../PVExcel.mac.rou)	(revision 29059)
+++ PVExcel.mac.rou	(.../PVExcel.mac.rou)	(revision 47543)
@@ -115,12 +115,24 @@
 	Quit $P(^KPR(Ref,0),"\")
  
 VerwerkProdXLS
-	q
-	Set PRNr=""
-	For  Set PRNr=$O(^PVExcelTmp(PRNr)) Quit:PRNr=""  Do
-	. Do $$$PRSet(123,"HH")
-	. w PRNr," ",$P(^KPR(PRNr,0),"\") r K
-	Kill ^PVExcelTmp
+	Set PRNr=0         Set Ref=""
+	For  Set Ref=$O(^PVExcelTmp(Ref)) Quit:Ref=""  Do
+	. Set IdentNr=$TR($P(Ref,"/"),".")_" "
+	. Set ArtGrpVHBE=$ZCVT($P(Ref,"/",2),"U")
+	. Set ArtGrpHLX=$ZCVT($P(Ref,"/",3),"U")
+	. Set:ArtGrpVHBE="SERVICE" ArtGrpVHBE="SERV"
+	. Set:ArtGrpVHBE="GRONDSTOF" ArtGrpVHBE="GS"
+	. Set:ArtGrpVHBE="VERPAKKING" ArtGrpVHBE="VERP"
+	. Set:ArtGrpVHBE="WERKKLEDIJ" ArtGrpVHBE="KLEDIJ"
+	. Set:ArtGrpHLX="SERVICE" ArtGrpHLX="SERV"
+	. Set:ArtGrpHLX="GRONDSTOF" ArtGrpHLX="GS"
+	. Set:ArtGrpHLX="VERPAKKING" ArtGrpHLX="VERP"
+	. Set:ArtGrpHLX="WERKKLEDIJ" ArtGrpHLX="KLEDIJ"
+	. Set PRNr=$P($G(^KPR2(IdentNr)),"\")
+	. Write:'PRNr !,IdentNr," ",ArtGrpVHBE," ",ArtGrpHLX
+	. Q:'PRNr
+	. Do $$$PRSet(312,ArtGrpVHBE)
+	. Do $$$PRSet(311,ArtGrpHLX)   
 	Quit
  
 SetNonAct(Prod)