Index: vhTest/Mock/APPS/AKP/AankoopControle/BLUM/impl/ToeleveringInfoVerzamelaar.cls.xml
===================================================================
diff -u -r38064 -r38087
--- vhTest/Mock/APPS/AKP/AankoopControle/BLUM/impl/ToeleveringInfoVerzamelaar.cls.xml	(.../ToeleveringInfoVerzamelaar.cls.xml)	(revision 38064)
+++ vhTest/Mock/APPS/AKP/AankoopControle/BLUM/impl/ToeleveringInfoVerzamelaar.cls.xml	(.../ToeleveringInfoVerzamelaar.cls.xml)	(revision 38087)
@@ -15,6 +15,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="StuurMailNietGesplitsteToeleveringLijn">
+<FormalSpec>ToeleveringNummer:%String,IdentNummer:%String,ProductNummer:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("StuurMailNietGesplitsteToeleveringLijn",ToeleveringNummer,IdentNummer,ProductNummer)
+]]></Implementation>
+</Method>
+
 <Method name="ZetVHProduktInfo">
 <FormalSpec>CSBSO31:APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBS031,CSBSO41:APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBS041,ToeleveringNr:%String,ToeleveringLijnNr:%String,ProductNr:%String</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("ZetVHProduktInfo",CSBSO31,CSBSO41,ToeleveringNr,ToeleveringLijnNr,ProductNr)
Index: vhTest/Fake/APPS/AKP/AankoopControle/BLUM/impl/ToeleveringInfoVerzamelaar.cls.xml
===================================================================
diff -u -r38003 -r38087
--- vhTest/Fake/APPS/AKP/AankoopControle/BLUM/impl/ToeleveringInfoVerzamelaar.cls.xml	(.../ToeleveringInfoVerzamelaar.cls.xml)	(revision 38003)
+++ vhTest/Fake/APPS/AKP/AankoopControle/BLUM/impl/ToeleveringInfoVerzamelaar.cls.xml	(.../ToeleveringInfoVerzamelaar.cls.xml)	(revision 38087)
@@ -29,6 +29,12 @@
 <Implementation><![CDATA[
 ]]></Implementation>
 </Method>
+
+<Method name="StuurMailNietGesplitsteToeleveringLijn">
+<FormalSpec>ToeleveringNummer:%String,IdentNummer:%String,ProductNummer:%String</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/AKP/AankoopControle/BLUM/impl/ToeleveringInfoVerzamelaar.cls.xml
===================================================================
diff -u -r38064 -r38087
--- APPS/AKP/AankoopControle/BLUM/impl/ToeleveringInfoVerzamelaar.cls.xml	(.../ToeleveringInfoVerzamelaar.cls.xml)	(revision 38064)
+++ APPS/AKP/AankoopControle/BLUM/impl/ToeleveringInfoVerzamelaar.cls.xml	(.../ToeleveringInfoVerzamelaar.cls.xml)	(revision 38087)
@@ -1,6 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.AKP.AankoopControle.BLUM.impl.ToeleveringInfoVerzamelaar">
+<IncludeCode>vhLib.Macro</IncludeCode>
 <Super>TECH.Mockable</Super>
 
 <Property name="ToeleveringAPI">
@@ -58,6 +59,7 @@
 				// we gaan er vanuit da Blum hetzelfde product levert als we gevraagd hebben : productnr zit mee in xml bericht.
 				set CSBSO41.ProductNrCustomer = ProductNr
 				//TODO : mail nog te sturen
+				do ..StuurMailNietGesplitsteToeleveringLijn(ToeleveringNr,CSBSO41.IdentNr,CSBSO41.ProductNrCustomer)
 				set Error = "Lijn " _ ToeleveringLijnNr _ " van toelevering " _ ToeleveringNr _ " gespecifieerd in xml bestand niet gevonden in Admin"				
 			}
 		}		
@@ -101,6 +103,19 @@
 ]]></Implementation>
 </Method>
 
+<Method name="StuurMailNietGesplitsteToeleveringLijn">
+<FormalSpec>ToeleveringNummer:%String,IdentNummer:%String,ProductNummer:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim Mail As TECH.Mail.Mail = ""
+	Set Mail = ##class(TECH.Context).Instance().GeefMailAPI().MaakNieuwMail()
+	Do Mail.ZetVerzender( $$$SystemMail("Transportbestand Verwerker") )
+	Do Mail.VoegToeOntvanger( "VDR@vanhoecke.be" )
+	Do Mail.ZetOnderwerp( "Niet gesplitste toeleveringlijn op toelevering " _ ToeleveringNummer )
+	Do Mail.ZetInhoud( "Toeleveringlijn van toelevering "_ ToeleveringNummer _" voor identnummer " _IdentNummer_ "("_ ProductNummer _") niet gevonden. Splitsing?")
+	Do ##class(TECH.Context).Instance().GeefMailAPI().VerstuurMail(Mail)
+]]></Implementation>
+</Method>
+
 <Method name="GeefProductNummer">
 <FormalSpec>IdentNummer:%String,KundeNummer:%String</FormalSpec>
 <Private>1</Private>