Index: BLPROD.mac.rou
===================================================================
diff -u -r42277 -r49113
--- BLPROD.mac.rou	(.../BLPROD.mac.rou)	(revision 42277)
+++ BLPROD.mac.rou	(.../BLPROD.mac.rou)	(revision 49113)
@@ -258,7 +258,7 @@
 CopyBlumProd(PRNr,Opties,Value)
  New IdentNr, BLID, BLRec,Verpak
  Set Opties=$G(Opties,"BG;PQ;EAN;LT")
- ; Set Opties=$G(Opties,"BG;PQ;EAN;VQ;LT") ; VQ is verwijded door PV op 030609
+ Set Opties="" ; 09/01/18 PV - geen updates meer in Admin
  Quit:'$$$PRExist
  Set IdentNr=$$$PRGet($$$IdentNummer)
  Set BLID="0"_$TR($E(IdentNr,2,99),".","")
@@ -346,31 +346,6 @@
 	. Write !
 	Do CLOSE^vhDEV(Dev)
 	Quit
- 
-	;--------------------------------------------------------------------------------------------------------	
-ControlePalletQtyBlumProducten
-	New PRNr set PRNr=""
-	New IdxKortTekst Set IdxKortTekst = ""
-	New Body , Subject
-	Set Idx2=""
-	For  Set Idx2=$O(^KPL("5005 ",Idx2)) Quit:Idx2=""  Do
-	. Set Idx3=""
-	. For  Set Idx3=$O(^KPL("5005 ",Idx2,Idx3)) Quit:Idx3=""  Do
-	. . Set IdxKortTekst=""
-	. . For  Set IdxKortTekst=$O(^KPL("5005 ",Idx2,Idx3,IdxKortTekst)) Quit:IdxKortTekst=""  Do
-	. . . Set PRNr = ^KPL("5005 ",Idx2,Idx3,IdxKortTekst)
-	. . . Set lbResult = $$DiffBlumProd(PRNr,"PQ")
-	. . . If $LL(lbResult) Do
-	. . . . Set BlumVal = $LG($LG(lbResult,2),1)
-	. . . . Set VHVal = $LG($LG(lbResult,2),2)
-	. . . . Set Body = "Pallet aantal verschillend voor artikel "_IdxKortTekst_"("_PRNr_")"_$C(13,10)
-	. . . . Set Body = Body _ "Blum : "_BlumVal_$C(13,10)
-	. . . . Set Body = Body _ "VanHoecke : "_VHVal_$C(13,10)
-	. . . . do SendMiniMail^vhLib.Mail("admin@vanhoecke.be",$LB("ICT_SysOp@vanhoecke.be"),"Pallet aantal verschil",Body,0)
-	. . . . do CopyBlumProd(PRNr,"PQ")
-	. . . . quit
-	. quit
-	quit
 	
 	; Zoekt de verschillen tussen het Blum bestand en het VH bestand
 	; resultaat is een list met $LB(Optie,$LB(BlumVal,VHVal, ...), ...)