Index: BL/MB/UGLYPicking/OrderReservatie.cls.xml
===================================================================
diff -u -r58931 -r61998
--- BL/MB/UGLYPicking/OrderReservatie.cls.xml	(.../OrderReservatie.cls.xml)	(revision 58931)
+++ BL/MB/UGLYPicking/OrderReservatie.cls.xml	(.../OrderReservatie.cls.xml)	(revision 61998)
@@ -705,6 +705,13 @@
  . . .  $$$WriteToLog("ERROR: "_tmpStatus)
  . . .  Do ##class(Flow.OrderWMS.PalletReservatie).SetReservationIsDone(ConsNr,Magazijn,ProdLoop,0,tmpStatus)
  . . Else  Do
+ . . .  ; hier bericht naar IctMeldingen sturen : RDL NRA verwittigen. fallback is gelukt, maar kan dus potentieel verkeerde palletten opgeleverd hebben
+ . . .  ; indien maatwerk en ++toeleveringen voor dit product in PRHIST in de laatste maand
+ . . .  If ..VerwittigingNodig(ProdLoop) Do
+ . . .  . $$$WriteToLog("########## Verwittiging verstuurd potentieel verkeerde pallet gepicked bij fallback. oudste pallet is geselecteerd. ###############")
+ . . .  . Do ##class(vhLib.Logger).%New("UglyPicking").ErrorMail("OrderReservatie","Orderreservatie voor consolidatie "_ConsNr _ " is gelukt, maar potentieel met de verkeerde paletten. Vraag aan RDL of NRA om te verifieren.")
+ . . .  else
+ . . .  . $$$WriteToLog("Fallback ok, en geen recente andere palletten met zelfde product uit andere toeleveringen")
  . . .  Do ##class(Flow.OrderWMS.PalletReservatie).SetReservationIsDone(ConsNr,Magazijn,ProdLoop,1)   //Reservation=OK
  . Else  Do
  . . Do ##class(Flow.OrderWMS.PalletReservatie).SetReservationIsDone(ConsNr,Magazijn,ProdLoop,1)   //Reservation=OK
@@ -844,6 +851,29 @@
 	Quit PalletList
 ]]></Implementation>
 </Method>
+
+<Method name="VerwittigingNodig">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ProductNr:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	New Result,Count,HistNr
+	Set Result = $$$False
+	
+	If $$IsMaatWerk^PRODUKT2(ProductNr) do
+	. Set Count=0
+	. ;. For  Set HistNr=$O(^PRHIST(ProductNr,""),-1) Quit:((HistNr="") || ($Piece(^PRHIST(ProduktNr,HistNr),"\",1)>$h ) || Result )  Do
+	. Set HistNr = ""
+	. For  Set HistNr=$O(^PRHIST(ProductNr,HistNr),-1) Quit:((HistNr="") || (($Piece(^PRHIST(ProductNr,HistNr),"\",1) + 30 )>$h ) || Result )  Do
+	. . Set R=^PRHIST(ProductNr,HistNr)
+	. . w !,$Name(^PRHIST(ProductNr,HistNr))
+	. . ;If ($Piece(R,"\",6)=6332) && ($Piece(R,"\",4)="I") Do
+	. . ;. Set:(($Piece(R,"\",1) + 30 )> $h) Count = Count +1
+	. . ;. Set:(Count>1) Result = $$$True
+	
+	Quit Result
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/MAG/UGLYPicking/TestUglyPickingService.cls.xml
===================================================================
diff -u -r59379 -r61998
--- vhUnitTest/APPS/MAG/UGLYPicking/TestUglyPickingService.cls.xml	(.../TestUglyPickingService.cls.xml)	(revision 59379)
+++ vhUnitTest/APPS/MAG/UGLYPicking/TestUglyPickingService.cls.xml	(.../TestUglyPickingService.cls.xml)	(revision 61998)
@@ -449,7 +449,6 @@
 	Set PalletReservatie.Sectie = ..#SECTIE
 	Set PalletReservatie.AantalTePicken = AantalTePicken
 	Set PalletReservatie.AantalOpPallet = AantalOpPallet
-	Do ##class(Tools.Wlip).%New(207).String("zetten")
 	Set PalletReservatie.LocTrans="66x66x66"
 	Do PalletReservatie.%Save()
 ]]></Implementation>