Index: vhUnitTest/AXimpl/Dynamics/ProductItemUpsertIn/Converter/EnvelopeConverter/Test.cls.xml
===================================================================
diff -u -r47144 -r47153
--- vhUnitTest/AXimpl/Dynamics/ProductItemUpsertIn/Converter/EnvelopeConverter/Test.cls.xml (.../Test.cls.xml) (revision 47144)
+++ vhUnitTest/AXimpl/Dynamics/ProductItemUpsertIn/Converter/EnvelopeConverter/Test.cls.xml (.../Test.cls.xml) (revision 47153)
@@ -24,21 +24,26 @@
#dim ProductAPIMock as vhTest.Mock.DOM.PM.ProductAPI = ##class(vhTest.Mock.DOM.PM.ProductAPI).MockInstance()
Set MailMock = ##class(vhTest.Mock.TECH.Mail.Mail).%New()
+
Do MailMock.VerwachtMethodCall("ZetVerzender",$$$SystemMail("Product Synchronizatie AX - Admin")).DanDoeNiks()
Do MailMock.VerwachtMethodCall("VoegToeOntvanger","PM_Administratie@vanhoecke.be").DanDoeNiks()
Do MailMock.VerwachtMethodCall("ZetOnderwerp","Ontbrekend SOPR product in Admin").DanDoeNiks()
- Do MailMock.VerwachtMethodCall("ZetInhoud","Beste,"_ $$$CRLF _ $$$CRLF _" Voor principaal product 'IdentNummer' in AX bestaat het product voor SOPR contract 'vhbe-08614' nog niet.")
+ Do MailMock.VerwachtMethodCall("ZetInhoud","Beste,"_ $$$CRLF _ $$$CRLF _"Voor principaal product 'IdentNummer' in AX bestaat het product voor SOPR contract 'vhbe-08614' nog niet.")
#dim MailAPIMock as vhTest.Mock.TECH.Mail.MailAPI = ##class(vhTest.Mock.TECH.Mail.MailAPI).MockInstance()
Do MailAPIMock.VerwachtMethodCall("MaakNieuwMail").DanReturn(MailMock)
Do MailAPIMock.VerwachtMethodCall("VerstuurMail",MailMock).DanDoeNiks()
+
+ set LoggerMock = ##class(vhTest.Mock.vhLib.Logger).%New()
+ Do LoggerMock.VerwachtMethodCall("Warning","Productsynchronizatie AX - Admin","Voor principaal product 'IdentNummer' in AX bestaat het product voor SOPR contract 'vhbe-08614' nog niet." _ $$$CRLF _ "PM is verwittigd, geen actie nodig").DanDoeNiks()
- Set Converter = ##class(AXimpl.Dynamics.ProductItemUpsertIn.Converter.EnvelopeConverter).%New(ProductItemConverterMock,ProductAPIMock,ProductLookupMock,MailAPIMock)
+ Set Converter = ##class(AXimpl.Dynamics.ProductItemUpsertIn.Converter.EnvelopeConverter).%New(ProductItemConverterMock,ProductAPIMock,ProductLookupMock,MailAPIMock,LoggerMock)
Do Converter.Convert(Envelope)
Do ProductItemConverterMock.Verifieer()
Do ProductLookupMock.Verifieer()
Do MailAPIMock.Verifieer()
Do MailMock.Verifieer()
+ Do LoggerMock.Verifieer()
]]>
Index: AXimpl/Dynamics/ProductItemUpsertIn/Converter/EnvelopeConverter.cls.xml
===================================================================
diff -u -r47146 -r47153
--- AXimpl/Dynamics/ProductItemUpsertIn/Converter/EnvelopeConverter.cls.xml (.../EnvelopeConverter.cls.xml) (revision 47146)
+++ AXimpl/Dynamics/ProductItemUpsertIn/Converter/EnvelopeConverter.cls.xml (.../EnvelopeConverter.cls.xml) (revision 47153)
@@ -23,8 +23,13 @@
1
+
+vhLib.Logger
+1
+
+
-ProductItemConverter:AXimpl.Dynamics.ProductItemUpsertIn.Converter.ProductItemConverter,ProductAPI:DOM.PM.ProductAPI,ProductLookup:AXimpl.Dynamics.SalesOrderIn.Converter.ProductBepaler,MailAPI:TECH.Mail.MailAPI
+ProductItemConverter:AXimpl.Dynamics.ProductItemUpsertIn.Converter.ProductItemConverter,ProductAPI:DOM.PM.ProductAPI,ProductLookup:AXimpl.Dynamics.SalesOrderIn.Converter.ProductBepaler,MailAPI:TECH.Mail.MailAPI,Logger:vhLib.Logger
1
1
%Status
@@ -34,7 +39,7 @@
set ..ProductAPI = $$$Inject(ProductAPI,##class(DOM.DomeinContext).Instance().GeefProductAPI())
Set ..ProductLookup = $$$Inject(ProductLookup, ##class(AXimpl.Dynamics.SalesOrderIn.Converter.ProductBepaler).%New())
Set ..MailAPI = $$$Inject(MailAPI,##class(TECH.Context).Instance().GeefMailAPI())
-
+ Set ..Logger = $$$Inject(Logger,##class(vhLib.Logger).%New())
Quit $$$OK
]]>
@@ -74,8 +79,11 @@
Do Mail.ZetVerzender($$$SystemMail("Product Synchronizatie AX - Admin"))
Do Mail.VoegToeOntvanger("PM_Administratie@vanhoecke.be")
Do Mail.ZetOnderwerp("Ontbrekend SOPR product in Admin")
- Do Mail.ZetInhoud("Beste,"_ $$$CRLF _ $$$CRLF _" Voor principaal product '" _ ItemId _ "' in AX bestaat het product voor SOPR contract '" _ ContractId _ "' nog niet.")
+ #Dim MeldingTekst as %String = "Voor principaal product '" _ ItemId _ "' in AX bestaat het product voor SOPR contract '" _ ContractId _ "' nog niet."
+ Do Mail.ZetInhoud("Beste,"_ $$$CRLF _ $$$CRLF _ MeldingTekst)
Do ..MailAPI.VerstuurMail(Mail)
+
+ Do ..Logger.Warning("Productsynchronizatie AX - Admin",MeldingTekst_$$$CRLF_"PM is verwittigd, geen actie nodig")
]]>