Index: vhTest/Mock/AXimpl/Dynamics/SalesOrderIn/Converter/Mailer.cls.xml
===================================================================
diff -u
--- vhTest/Mock/AXimpl/Dynamics/SalesOrderIn/Converter/Mailer.cls.xml	(revision 0)
+++ vhTest/Mock/AXimpl/Dynamics/SalesOrderIn/Converter/Mailer.cls.xml	(revision 48494)
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.AXimpl.Dynamics.SalesOrderIn.Converter.Mailer">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>AXimpl.Dynamics.SalesOrderIn.Converter.Mailer,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="VerzendMeldingGeblokkeerdeOrderLijn">
+<FormalSpec>Order:DOM.VKP.Order,InventTransId:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerzendMeldingGeblokkeerdeOrderLijn",Order,InventTransId)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Fake/AXimpl/Dynamics/SalesOrderIn/Converter/Mailer.cls.xml
===================================================================
diff -u
--- vhTest/Fake/AXimpl/Dynamics/SalesOrderIn/Converter/Mailer.cls.xml	(revision 0)
+++ vhTest/Fake/AXimpl/Dynamics/SalesOrderIn/Converter/Mailer.cls.xml	(revision 48494)
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.AXimpl.Dynamics.SalesOrderIn.Converter.Mailer">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>AXimpl.Dynamics.SalesOrderIn.Converter.Mailer</Super>
+
+<Method name="VerzendMeldingGeblokkeerdeOrderLijn">
+<FormalSpec>Order:DOM.VKP.Order,InventTransId:%String</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AXimpl/Dynamics/SalesOrderIn/Converter/Mailer.cls.xml
===================================================================
diff -u
--- AXimpl/Dynamics/SalesOrderIn/Converter/Mailer.cls.xml	(revision 0)
+++ AXimpl/Dynamics/SalesOrderIn/Converter/Mailer.cls.xml	(revision 48494)
@@ -0,0 +1,72 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AXimpl.Dynamics.SalesOrderIn.Converter.Mailer">
+<Super>TECH.Mockable</Super>
+
+<Property name="MailApi">
+<Type>TECH.Mail.MailAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="VerkoopAPI">
+<Type>DOM.VKP.VerkoopAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="DateTimeAPI">
+<Type>TECH.DateTime.DateTimeAPI</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>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..MailApi = $$$Inject(MailApi, ##class(TECH.Context).Instance().GeefMailAPI())
+	Set ..VerkoopAPI = $$$Inject(VerkoopAPI, ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI())
+	Set ..DateTimeAPI = $$$Inject(DateTimeAPI, ##class(TECH.Context).Instance().GeefDateTimeAPI())
+
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VerzendMeldingGeblokkeerdeOrderLijn">
+<FormalSpec>Order:DOM.VKP.Order,InventTransId:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim Klant As DOM.VKP.VanHoeckeKlant = ..VerkoopAPI.GeefKlant(Order.GeefKlantID())
+
+	#dim Titel As %String = "Voor order '" _Order.GeefID() _"' van klant '" _Klant.GeefNaam() _"' met KlantId '" _Klant.GeefID() _ "' is er een orderlijn geblokkeerd."
+
+	#dim Inhoud As %String = "Voor klant " _Klant.GeefNaam() _" met KlantId " _Klant.GeefID()
+	Set Inhoud = Inhoud _ " is er op datum en tijd " _..DateTimeAPI.CurrentTimeStamp() _$$$CRLF
+	Set Inhoud = Inhoud _"een order '"_Order.GeefID() _"' geïmporteerd van Ax naar admin "
+	Set Inhoud = Inhoud _ "waarop een orderlijn met inventransid '" _InventTransId _"' reeds geblokkeerd is." _$$$CRLF
+	Set Inhoud = Inhoud _ "Dit wil zeggen dat het orderlijn reeds klaar staat voor picking of in verwerking is bij productie " 
+	Set Inhoud = Inhoud _ "en er geen update uitgevoerd wordt op deze lijn." _$$$CRLF _$$$CRLF
+
+	Set Inhoud = Inhoud _ "De andere orderlijnen van dit order worden mogelijks wel bijgewerkt." _$$$CRLF _$$$CRLF
+
+	#dim Gebruiker As DOM.VKP.VanHoeckeKlant = Klant.GeefInterneVerantwoordelijke()
+
+	if $IsObject(Gebruiker) {
+
+		#dim MailTo As %String = Gebruiker.GeefEmailAdres()
+		
+		#dim Mail As TECH.Mail.Mail = ..MailApi.MaakNieuwMail()
+		Do Mail.ZetVerzender($$$SystemMail("Ax order naar admin"))
+		Do Mail.ZetOnderwerp(Titel)
+		Do Mail.ZetInhoud(Inhoud)
+		Do Mail.ZetIsHTML($$$True)
+		Do Mail.VoegToeOntvanger(MailTo)
+
+		Do ..MailApi.VerstuurMail(Mail)
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>