Index: AX/Inkomend/PM/Schaduwprijzen/impl/Verwerken.cls.xml
===================================================================
diff -u -r52240 -r52426
--- AX/Inkomend/PM/Schaduwprijzen/impl/Verwerken.cls.xml	(.../Verwerken.cls.xml)	(revision 52240)
+++ AX/Inkomend/PM/Schaduwprijzen/impl/Verwerken.cls.xml	(.../Verwerken.cls.xml)	(revision 52426)
@@ -35,8 +35,9 @@
 
 <Method name="Verwerk">
 <Description>
-D ##class(AX.Inkomend.PM.Schaduwprijzen.impl.Verwerken).%New(0).Verwerk()</Description>
+/ D ##class(AX.Inkomend.PM.Schaduwprijzen.impl.Verwerken).%New(0).Verwerk()</Description>
 <Implementation><![CDATA[
+	Set Body=""
 	Do ..itPrijzen.Init()
 	While ..itPrijzen.HasNext()
 	{
@@ -46,16 +47,32 @@
 		Set GrootteOrde=rsPrijs.Data("PRICEUNIT")
 		Set GeldigVanaf=rsPrijs.Data("FROMDATE")
 		Set ProductCount=rsPrijs.Data("VOLGORDE")
-		Set PRNr=..VertaalProduct(ItemID,rsPrijs.Data("BLUMKUNDE"))
-		If ..IsGeldig(PRNr,GeldigVanaf,ProductCount)
+		Set BlumKunde=$TR(rsPrijs.Data("BLUMKUNDE"),$C(0))
+		Set PRNr=..VertaalProduct(ItemID,BlumKunde)
+
+		If ..IsGeldig(PRNr,GeldigVanaf)
 		{
-			Do ..OpslaanPrijs(PRNr,KostPrijs,GrootteOrde)
+			If ProductCount'=1
+			{
+				Set Body=Body_ItemID_", "_$$$PRGet($$$KortTekst)_", "_BlumKunde_", "_(+KostPrijs)_$$$CRLF
+			}
+			Else
+			{
+				Do ..OpslaanPrijs(PRNr,KostPrijs,GrootteOrde)
+			}
 		}
 	}
+	Do:$L(Body) ..MailFouten(Body)
 	Read:'..Muet " Druk op [enter] om verder te gaan",k
 ]]></Implementation>
 </Method>
 
+<Method name="MailFouten">
+<FormalSpec>Body</FormalSpec>
+<Implementation><![CDATA[	Do SendMiniMail^vhLib.Mail("systeem@vanhoecke.be",$LB("mcl@vanhoecke.be","jb@vanhoecke.be"),"Schaduw prijzen overdracht - meerdere prijzen in behandeling",Body)
+]]></Implementation>
+</Method>
+
 <Method name="VertaalProduct">
 <FormalSpec>AXItemID:%String,AXBlumKunde:%String</FormalSpec>
 <Private>1</Private>
@@ -78,11 +95,10 @@
 </Method>
 
 <Method name="IsGeldig">
-<FormalSpec>PRNr:%String,GeldigVanaf:%Date,ProductCount:%Integer</FormalSpec>
+<FormalSpec>PRNr:%String,GeldigVanaf:%Date</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	Quit:'PRNr 0
-	Quit:ProductCount'=1 0
 	Quit:(..PrijzenTot && (GeldigVanaf>..PrijzenTot)) 0
 	Quit 1
 ]]></Implementation>