Index: BL/MB/UGLYPicking/OrderReservatie.cls.xml
===================================================================
diff -u -r58917 -r59198
--- BL/MB/UGLYPicking/OrderReservatie.cls.xml	(.../OrderReservatie.cls.xml)	(revision 58917)
+++ BL/MB/UGLYPicking/OrderReservatie.cls.xml	(.../OrderReservatie.cls.xml)	(revision 59198)
@@ -761,6 +761,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 ###############")
+ . . .  . 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
@@ -868,5 +875,28 @@
 	Quit ErrStr
 ]]></Implementation>
 </Method>
+
+<Method name="VerwittigingNodig">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ProductNr:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	// Alleen voor Maatwerk, Leverancier Halux (6332), indien meer dan 1 unieke toelevering in de laatste 30 dagen
+	// PRHIST is per product cronologisch gesorteerd, eens we de laatste 30 dagen gecontroleerd hebben moeten we niet meer verder kijken
+	New Result,Count,HistNr,R
+	Set UniekeToeleveringen = ##class(%ArrayOfDataTypes).%New()
+	Set Result = $$$False
+	
+	If $$IsMaatWerk^PRODUKT2(ProductNr) do
+	. Set Count=0 
+	. Set HistNr=""
+	. For  Set HistNr=$O(^PRHIST(ProductNr,HistNr),-1) Quit:((HistNr="") || (($Piece(^PRHIST(ProductNr,HistNr),"\",1) + 30) < $h ) || Result)  Do
+	. . Set R=$Get(^PRHIST(ProductNr,HistNr))
+	. . Do:(($Piece(R,"\",6)=6332) && ($Piece(R,"\",4)="I")) UniekeToeleveringen.SetAt(0,$Piece(R,"\",7))
+	. . Set:(UniekeToeleveringen.Count()>1) Result = $$$True
+	
+	Quit Result
+]]></Implementation>
+</Method>
 </Class>
 </Export>