Index: APPS/Halux/PPS/Document/impl/LBX/LadeZijkanten.cls.xml
===================================================================
diff -u -r60819 -r60833
--- APPS/Halux/PPS/Document/impl/LBX/LadeZijkanten.cls.xml	(.../LadeZijkanten.cls.xml)	(revision 60819)
+++ APPS/Halux/PPS/Document/impl/LBX/LadeZijkanten.cls.xml	(.../LadeZijkanten.cls.xml)	(revision 60833)
@@ -274,6 +274,7 @@
 	} Catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 		#dim Logger = ##class(vhLib.Logger).%New("PICKING ZIJKANT LBX").WarningMail("Product met ProductId "_ProductId_" werd niet gevonden in de LBXPickingZijkantenLoopvolgorde tabel")
+		Do ..VerstuurWarningMail(ProductId)
 	}
 		
 	Quit LoopvolgordeNrHuidigProduct
@@ -295,6 +296,25 @@
 	Quit SequentieNr
 ]]></Implementation>
 </Method>
+
+<Method name="VerstuurWarningMail">
+<FormalSpec>ProductId:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim MailTo As %ListOfDataTypes = $listbuild("nathalie.boone@halux.be")
+	#dim Subject As %String = "LBX Picking Zijkant: Product met ProductId "_ProductId_" werd niet gevonden."
+
+    #dim Body As %String = ##class(%GlobalCharacterStream).%New()
+	#dim Message As %String = "Product met ProductId "_ProductId_" werd niet gevonden in de databank en werd hierdoor vooraan in de pickinglijst geplaatst. "
+	Set Message = Message_"Om dit een volgende keer te voorkomen dient het product upgedate te worden in de tabel, momenteel doet ICT dit nog. "
+	Set Message = Message_"Bezorg hen het productId en de plaats waar het product ligt in de gang."
+   	Do Body.WriteLine(Message)
+	
+	Do SendMiniMail^vhLib($$$SystemMail("LBX Pickinglijst Zijkanten"),MailTo,Subject,Body,1,1)
+	
+	Quit
+]]></Implementation>
+</Method>
 </Class>