Index: AXimpl/Dynamics/InventoryOut/Converter/InventoryOutConverter.cls.xml =================================================================== diff -u -r49063 -r49146 --- AXimpl/Dynamics/InventoryOut/Converter/InventoryOutConverter.cls.xml (.../InventoryOutConverter.cls.xml) (revision 49063) +++ AXimpl/Dynamics/InventoryOut/Converter/InventoryOutConverter.cls.xml (.../InventoryOutConverter.cls.xml) (revision 49146) @@ -23,8 +23,13 @@ 1 + +vhLib.Logger +1 + + -AxInventSyncCreator:AXimpl.Dynamics.InventoryOut.Converter.AxInventSyncCreator,SoprProductConverter:AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor +AxInventSyncCreator:AXimpl.Dynamics.InventoryOut.Converter.AxInventSyncCreator,SoprProductConverter:AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor,Logger:vhLib.Logger 1 1 %Status @@ -33,6 +38,7 @@ Set ..AxInventSyncCreator = $$$Inject(AxInventSyncCreator,##class(AXimpl.Dynamics.InventoryOut.Converter.AxInventSyncCreator).%New()) Set ..SoprProductConverter = $$$Inject(SoprProductConverter,##class(AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New()) Set ..SoprContractIdConverter = ##class(AX.Uitgaand.PM.impl.Convertor.Sopr.SoprContractIdConverter).%New() + Set ..Logger = $$$Inject(Logger,##class(vhLib.Logger).%New()) Quit $$$OK ]]> @@ -61,7 +67,7 @@ Do ..InsertInventSyncObjecten(ProductIterator) If ..AxdEntityHeader.InventSync.Count() = 0 { - Do ##class(TECH.Exceptions.InvalidInputException).Throw("Er werden geen InventSyncs gemaakt voor '"_Request.SubjectId_"'") + Do ..Logger.Error("Er werden geen InventSyncs gemaakt","SubjectId: '"_Request.SubjectId_"'") } Set ADUMsgOutboundInQuery = ##class(AXif.Dynamics.Inventory.MessageParts.AxdADUMsgOutboundInQuery).%New() @@ -101,7 +107,7 @@ } } catch { #dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch() - Do ##class(vhLib.Logger).%New().Warning("InventoryOutConverter",Exception.GeefOmschrijving()) + Do ..Logger.Warning("InventoryOutConverter",Exception.GeefOmschrijving()) } } ]]> Index: vhUnitTest/AXimpl/Dynamics/InventoryOut/Converter/InventoryOutConverter/Convert/Test.cls.xml =================================================================== diff -u -r49063 -r49146 --- vhUnitTest/AXimpl/Dynamics/InventoryOut/Converter/InventoryOutConverter/Convert/Test.cls.xml (.../Test.cls.xml) (revision 49063) +++ vhUnitTest/AXimpl/Dynamics/InventoryOut/Converter/InventoryOutConverter/Convert/Test.cls.xml (.../Test.cls.xml) (revision 49146) @@ -18,6 +18,19 @@ 1 + +vhLib.Logger +1 + + + +aTestName:%String + + + - + @@ -372,9 +386,12 @@ Set ..AxInventSyncCreator = AxInventSyncCreatorStub Set ..SoprProductConverter = SoprProductConverterStub + Do ..Logger.VerwachtMethodCall("Warning","InventoryOutConverter","DummyException",0).DanDoeNiks().ExactAantalKeer(1) + #dim Response As AXif.Dynamics.Inventory.MessageParts = ..GeefConverter().Convert(Request) Do $$$AssertEquals(Response.MessagePart.Header.GetAt(1).InventSync.Count(),2) + Do ..Logger.Verifieer() ]]> @@ -557,7 +574,7 @@ 1 AXimpl.Dynamics.InventoryOut.Converter.InventoryOutConverter -