Index: WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/ToeleveringService.cls.xml
===================================================================
diff -u -r58512 -r58513
--- WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 58512)
+++ WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 58513)
@@ -67,7 +67,9 @@
 				Do ..VerstuurMail(OrderId, ToeleveringId, OudProductId, NieuwProductId, $$$False)
 			} Else {
 				// KLAARGEZET en WEL IN BATCH (al dan niet gestart) => Toeleveringen NIET aanpassen => Halux hiervan verwittigen!
+				Do ..Logger.Warning("ProductUpdater", "")
 				// Halux MAILEN !!!
+				// VRAAG: Kan een toelevering al in batch zitten terwijl die nog niet is klaargezet???
 			}
 			
 			If IsToeleveringAangepast {
@@ -78,10 +80,10 @@
 		} Catch {
 			Do ..UnLockToelevering(ToeleveringId)	
 			#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
-			Do ..Logger.Error("ProductUpdater", "Tijdens het aanpassen van Toelevering '"_ToeleveringId_"' na een ProductUpdate van OudProductId '"_OudProductId_"' naar NieuwProductId '"_NieuwProductId_"' deed zich in de ToeleveringService een Exceptie voor: "_Exception.ToString())
+			Do ..Logger.Error("ProductUpdater", "Aanpassen Toelevering '"_ToeleveringId_"' gefaald! Tijdens het aanpassen van Toelevering '"_ToeleveringId_"' na een ProductUpdate van OudProductId '"_OudProductId_"' naar NieuwProductId '"_NieuwProductId_"' deed zich in de ToeleveringService een Exceptie voor: "_Exception.ToString())
 		}
 	} Else {
-		Do ..Logger.Warning("ProductUpdater", "In de ToeleveringService werd gezocht naar Toelevering '"_ToeleveringId_"' met het oog op het aanpassen van ProductId '"_OudProductId_"' naar '"_NieuwProductId_"' op de Lijnen ervan, maar er werd geen verwijzing naar de Toelevering gevonden in ^KTO1 volgens de ToeleveringApi")
+		Do ..Logger.Warning("ProductUpdater", "Toelevering '"_ToeleveringId_"' bestaat niet! In de ToeleveringService werd gezocht naar Toelevering '"_ToeleveringId_"' met het oog op het aanpassen van ProductId '"_OudProductId_"' naar '"_NieuwProductId_"' op de Lijnen ervan, maar er werd geen verwijzing naar de Toelevering gevonden in ^KTO1 volgens de ToeleveringApi")
 	}
 	
 	Quit IsToeleveringAangepast
Index: vhUnitTest/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/ToeleveringService/Test.cls.xml
===================================================================
diff -u -r58512 -r58513
--- vhUnitTest/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/ToeleveringService/Test.cls.xml	(.../Test.cls.xml)	(revision 58512)
+++ vhUnitTest/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/ToeleveringService/Test.cls.xml	(.../Test.cls.xml)	(revision 58513)
@@ -61,13 +61,40 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: IsToeleveringAangepast crasht">
+<Implementation><![CDATA[
+	#dim Exception As TECH.Exceptions = ##class(TECH.Exceptions.GeneralErrorException).%New("General error exception")
+	
+	#dim ToeleveringStub As DOM.AKP.Toelevering = ..GeefToeleveringStub($$$True)
+	
+	#dim ToeleveringVoorbereidingServiceStub As APPS.Halux.Voorbereiding.VoorbereidingService = ##class(vhTest.Mock.APPS.Halux.Voorbereiding.VoorbereidingService).%New()
+	Do ToeleveringVoorbereidingServiceStub.IndienMethodCall("IsVolledigKlaarGezet", ..#RandomToeleveringId, $$$ElkeWaarde).DanException(Exception)
+	
+	#dim ToeleveringApiStub = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).%New()
+	Do ToeleveringApiStub.IndienMethodCall("BestaatToelevering", ..#RandomToeleveringId).DanReturn($$$True)
+	Do ToeleveringApiStub.IndienMethodCall("GeefToelevering", ..#RandomToeleveringId).DanReturn(ToeleveringStub)
+	
+	#dim LoggerMock = ##class(vhTest.Mock.vhLib.Logger).%New()
+	Do LoggerMock.VerwachtMethodCall("Error", "ProductUpdater", "Aanpassen Toelevering '"_..#RandomToeleveringId_"' gefaald! Tijdens het aanpassen van Toelevering '"_..#RandomToeleveringId_"' na een ProductUpdate van OudProductId '"_..#RandomOudProductId_"' naar NieuwProductId '"_..#RandomNieuwProductId_"' deed zich in de ToeleveringService een Exceptie voor: "_Exception.ToString())
+	
+	Set ..ToeleveringVoorbereidingService = ToeleveringVoorbereidingServiceStub
+	Set ..ToeleveringApi = ToeleveringApiStub
+	Set ..Logger = LoggerMock
+	
+	#dim ToeleveringService As WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService.ToeleveringService = ..GeefToeleveringService()
+	
+	Do $$$AssertFalse(ToeleveringService.IsToeleveringAangepast(..#RandomToeleveringId, ..#RandomOudProductId, ..#RandomNieuwProductId))
+	Do ..Logger.Verifieer()
+]]></Implementation>
+</Method>
+
 <Method name="Test: Toelevering bestaat niet">
 <Implementation><![CDATA[
 	#dim ToeleveringApiMock = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).%New()
 	Do ToeleveringApiMock.VerwachtMethodCall("BestaatToelevering", ..#RandomToeleveringId).DanReturn($$$False)
 	
 	#dim LoggerMock = ##class(vhTest.Mock.vhLib.Logger).%New()
-	Do LoggerMock.VerwachtMethodCall("Warning", "ProductUpdater", "In de ToeleveringService werd gezocht naar Toelevering '"_..#RandomToeleveringId_"' met het oog op het aanpassen van ProductId '"_..#RandomOudProductId_"' naar '"_..#RandomNieuwProductId_"' op de Lijnen ervan, maar er werd geen verwijzing naar de Toelevering gevonden in ^KTO1 volgens de ToeleveringApi")
+	Do LoggerMock.VerwachtMethodCall("Warning", "ProductUpdater", "Toelevering '"_..#RandomToeleveringId_"' bestaat niet! In de ToeleveringService werd gezocht naar Toelevering '"_..#RandomToeleveringId_"' met het oog op het aanpassen van ProductId '"_..#RandomOudProductId_"' naar '"_..#RandomNieuwProductId_"' op de Lijnen ervan, maar er werd geen verwijzing naar de Toelevering gevonden in ^KTO1 volgens de ToeleveringApi")
 	
 	Set ..ToeleveringApi = ToeleveringApiMock
 	Set ..Logger = LoggerMock
@@ -80,6 +107,9 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Geen ToeleveringLijnen met te vervangen ProductId">
+</Method>
+
 <Method name="Test: Toelevering is nog niet klaargezet">
 <Implementation><![CDATA[
 	#dim ToeleveringStub As DOM.AKP.Toelevering = ..GeefToeleveringStub($$$True)
@@ -92,7 +122,7 @@
 	Do ToeleveringApiMock.VerwachtMethodCall("Bewaar", ToeleveringStub).DanDoeNiks()
 	
 	#dim LoggerMock = ##class(vhTest.Mock.vhLib.Logger).%New()
-	Do LoggerMock.VerwachtMethodCall("Info", "ProductUpdater", "ProductId gewijzigd op ToeleveringLijn. Op Toelevering '"_ToeleveringStub.GeefID()_"', op lijn '"_100_"', werd de ProductId '"_..#RandomOudProductId_"' vervangen door '"_..#RandomNieuwProductId_"'.")
+	Do LoggerMock.VerwachtMethodCall("Info", "ProductUpdater", "ProductId gewijzigd op ToeleveringLijn. Op Toelevering '"_..#RandomToeleveringId_"', op lijn '"_100_"', werd de ProductId '"_..#RandomOudProductId_"' vervangen door '"_..#RandomNieuwProductId_"'.")
 	
 	Set ..ToeleveringVoorbereidingService = ToeleveringVoorbereidingServiceStub
 	Set ..ToeleveringApi = ToeleveringApiMock
@@ -142,7 +172,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="zTest: Toelevering zit al in batch">
+<Method name="Test: Toelevering zit al in batch">
 <Implementation><![CDATA[
 	#dim ToeleveringStub As DOM.AKP.Toelevering = ..GeefToeleveringStub($$$True)
 	
@@ -154,9 +184,14 @@
 	Do ToeleveringApiMock.IndienMethodCall("GeefToelevering", ..#RandomToeleveringId).DanReturn(ToeleveringStub)
 	Do ToeleveringApiMock.VerwachtMethodCall("Bewaar", ToeleveringStub).DanDoeNiks().ExactAantalKeer(0)
 	
-	;#dim LoggerMock = ##class(vhTest.Mock.vhLib.Logger).%New()
-	;Do LoggerMock.VerwachtMethodCall("Info", "ProductUpdater", "ProductId gewijzigd op ToeleveringLijn. Op Toelevering '"_ToeleveringStub.GeefID()_"', op lijn '"_100_"', werd de ProductId '"_..#RandomOudProductId_"' vervangen door '"_..#RandomNieuwProductId_"'.")
+	#dim LoggerMock = ##class(vhTest.Mock.vhLib.Logger).%New()
+	Do LoggerMock.VerwachtMethodCall("Warning", "ProductUpdater", "")
 	
+	#dim Mail As TECH.Mail.Mail = ##class(TECH.Mail.impl.Mail).%New()
+	#dim MailApiMock As TECH.Mail.MailAPI = ##class(vhTest.Mock.TECH.Mail.MailAPI).%New()
+	Do MailApiMock.VerwachtMethodCall("MaakNieuwMail").DanReturn(Mail)
+	Do MailApiMock.VerwachtMethodCall("VerstuurMail", Mail).DanDoeNiks()
+	
 	Set ..ToeleveringVoorbereidingService = ToeleveringVoorbereidingServiceStub
 	Set ..BatchService = BatchServiceStub
 	Set ..ToeleveringApi = ToeleveringApiMock
@@ -165,8 +200,10 @@
 	#dim ToeleveringService As WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService.ToeleveringService = ..GeefToeleveringService()
 	
 	Do $$$AssertFalse(ToeleveringService.IsToeleveringAangepast(..#RandomToeleveringId, ..#RandomOudProductId, ..#RandomNieuwProductId))
+	Do $$$AssertEquals(Mail.GeefOnderwerp(), "")
 	Do ..ToeleveringApi.Verifieer()
-	;Do ..Logger.Verifieer()
+	Do ..Logger.Verifieer()
+	Do ..MailApi.Verifieer()
 ]]></Implementation>
 </Method>