Index: EWSTAT.mac.rou
===================================================================
diff -u -r38654 -r41122
--- EWSTAT.mac.rou	(.../EWSTAT.mac.rou)	(revision 38654)
+++ EWSTAT.mac.rou	(.../EWSTAT.mac.rou)	(revision 41122)
@@ -324,8 +324,8 @@
 
  Set Dev=$$OPEN^vhDEV(,"WMS Picking "_$$EXTDATE^vhLib.DataTypes($H)_".TXT","W","T")
  Use Dev
- Write "BONNr	PRNr	KortTekst	Qty	Picker	Datum	Tijd	SoftMag	PickMag	Pallet",!
- Set DatVan=$G(DatVan,$H-30)
+ Write "BONNr	ORDNr	OLUNr	SOLUNr	ExtraVeld	MPRNr	MKortTekst	MQty	GenTyp	ProdGrp	PRNr	KortTekst	Qty	Picker	Datum	Tijd	SoftMag	PickMag	Pallet",!
+ Set DatVan=$G(DatVan,$H-60)
  Set DatTot=$G(DatTot,$H-1)
  Set CONSNr=""
  Set Max=-1,Min=99999999
@@ -340,6 +340,10 @@
  .For  Set ORDNr=$O(^ORDW("D",CONSNr,"D",ORDNr)) Quit:ORDNr=""  Do
  ..Set OLUNr=""
  ..For  Set OLUNr=$O(^ORDW("D",CONSNr,"D",ORDNr,OLUNr)) Quit:OLUNr=""  Do
+ ...Set MPRNr=$P($G(^ORDW("D",CONSNr,"D",ORDNr,OLUNr)),"\")
+ ...Set MQty=$P($G(^ORDW("D",CONSNr,"D",ORDNr,OLUNr)),"\",4)
+ ...Set GenTyp=$P($$GENTYP^HAD(MPRNr,1),"\")
+ ...Set ProdGrp=$$PRODGRP^PRODUKT(MPRNr,1) 
  ...Set SOLUNr=""
  ...For  Set SOLUNr=$O(^ORDW("D",CONSNr,"D",ORDNr,OLUNr,SOLUNr)) Quit:SOLUNr=""  Do
  ....Set R=^ORDW("D",CONSNr,"D",ORDNr,OLUNr,SOLUNr)
@@ -352,7 +356,7 @@
  ....Set PickMag=$P(R,D,14)
  ....Set PRNr=$P(R,D,1)
  ....Set Qty=$P(R,D,4)
- .... Write CONSNr,*9,PRNr,*9,$$$PRGet($$$KortTekst),*9,$$$ExcelNum(Qty),*9,Picker,*9,$$$ExcelDat(Dat),*9,$$$ExcelTime(Uur),*9,SoftMag,*9,PickMag,*9,Pallet,!
+ .... Write CONSNr,*9,ORDNr,*9,OLUNr,*9,SOLUNr,*9,CONSNr,";",ORDNr,";",OLUNr,*9,MPRNr,*9,$$$ProductGet(MPRNr,$$$KortTekst),*9,MQty,*9,GenTyp,*9,ProdGrp,*9,PRNr,*9,$$$PRGet($$$KortTekst),*9,$$$ExcelNum(Qty),*9,Picker,*9,$$$ExcelDat(Dat),*9,$$$ExcelTime(Uur),*9,SoftMag,*9,PickMag,*9,Pallet,!
  Do CLOSE^vhDEV(Dev)
  Quit
  
@@ -567,3 +571,4 @@
 
 
 
+