Index: AXimpl/Dynamics/SalesOrderIn/Converter/Mailer.cls.xml
===================================================================
diff -u -r48677 -r49040
--- AXimpl/Dynamics/SalesOrderIn/Converter/Mailer.cls.xml	(.../Mailer.cls.xml)	(revision 48677)
+++ AXimpl/Dynamics/SalesOrderIn/Converter/Mailer.cls.xml	(.../Mailer.cls.xml)	(revision 49040)
@@ -23,6 +23,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="GeblokkeerdeOrderLijnenTekst">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>MailApi:TECH.Mail.MailAPI="",VerkoopAPI:DOM.VKP.VerkoopAPI,DateTimeAPI:TECH.DateTime.DateTimeAPI</FormalSpec>
 <Private>1</Private>
@@ -34,11 +39,41 @@
 	Set ..VerkoopAPI = $$$Inject(VerkoopAPI, ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI())
 	Set ..DateTimeAPI = $$$Inject(DateTimeAPI, ##class(TECH.Context).Instance().GeefDateTimeAPI())
 	Set ..ConfigMgr = ##class(TECH.Config.ConfigMgr).Instance()
-
+	Set ..GeblokkeerdeOrderLijnenTekst = ""
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
+<Method name="ZetMeldingGeblokkeerdeOrderLijn">
+<FormalSpec><![CDATA[&Order:DOM.VKP.Order,InventTransId:%String=""]]></FormalSpec>
+<Implementation><![CDATA[
+	#dim Inhoud As %String = ##class(TECH.StringUtils).BuildText("Orderlijn met inventransid '{0}' is reeds geblokkeerd." _$$$CRLF, InventTransId)
+	If (Order.GeefAantalLijnenMetAxInventTransId(InventTransId) > 1){
+		Set Inhoud = Inhoud _"Opgelet! De geblokkeerde orderlijn is een gesplitste orderlijn." _$$$CRLF 
+	}
+	Set ..GeblokkeerdeOrderLijnenTekst = ..GeblokkeerdeOrderLijnenTekst _Inhoud _$$$CRLF
+]]></Implementation>
+</Method>
+
+<Method name="VerzendMeldingGeblokkeerdeOrderLijnen">
+<FormalSpec><![CDATA[&Order:DOM.VKP.Order]]></FormalSpec>
+<Implementation><![CDATA[
+	If $$$HasLength(..GeblokkeerdeOrderLijnenTekst) {
+		#dim Klant As DOM.VKP.VanHoeckeKlant = ..VerkoopAPI.GeefKlant(Order.GeefKlantID())
+		#dim Titel As %String = ##class(TECH.StringUtils).BuildText("Voor order '{0}' van klant '{1}' met KlantId '{2}' zijn er orderlijnen geblokkeerd.", Order.GeefID(), Klant.GeefNaam(), Klant.GeefID())
+		
+		#dim Inhoud As %String = ##class(TECH.StringUtils).BuildText("Voor klant '{0}' met KlantId '{1}' ", Klant.GeefNaam(), Klant.GeefID())
+		Set Inhoud = Inhoud _##class(TECH.StringUtils).BuildText("is er op datum en tijd {0} ", ..DateTimeAPI.CurrentTimeStamp()) 
+		Set Inhoud = Inhoud _##class(TECH.StringUtils).BuildText("een order '{0}' geïmporteerd van Ax naar admin " _$$$CRLF, Order.GeefID()) 
+		Set Inhoud = Inhoud _"Dit wil zeggen dat de orderlijnen reeds klaar staan voor picking of in verwerking zijn bij productie " 
+		Set Inhoud = Inhoud _"en er geen update uitgevoerd wordt op deze lijnen." _$$$CRLF 
+		Set Inhoud = Inhoud _"(Andere orderlijnen van dit order worden mogelijks wel bijgewerkt.)" _$$$CRLF _$$$CRLF
+
+		Do ..Verzend(Klant, Titel, Inhoud _..GeblokkeerdeOrderLijnenTekst)
+	}
+]]></Implementation>
+</Method>
+
 <Method name="VerzendMeldingGeblokkeerdeOrderLijn">
 <FormalSpec><![CDATA[&Order:DOM.VKP.Order,InventTransId:%String=""]]></FormalSpec>
 <Implementation><![CDATA[
@@ -56,8 +91,6 @@
 		Set Inhoud = Inhoud _"Opgelet! De geblokkeerde orderlijn is een gesplitste orderlijn." _$$$CRLF _$$$CRLF
 	}
 	Set Inhoud = Inhoud _"De andere orderlijnen van dit order worden mogelijks wel bijgewerkt." _$$$CRLF _$$$CRLF
-
-	Do ..Verzend(Klant, Titel, Inhoud)
 ]]></Implementation>
 </Method>