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") ]]>