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
-