Index: vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/Test.cls.xml
===================================================================
diff -u -r47335 -r47346
--- vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/Test.cls.xml (.../Test.cls.xml) (revision 47335)
+++ vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/Test.cls.xml (.../Test.cls.xml) (revision 47346)
@@ -23,6 +23,7 @@
Do OrderMock.VerwachtMethodCall("ZetStatus", ##class(DOM.VKP.enu.OrderStatus).Open()).ExactAantalKeer(1)
Do OrderMock.VerwachtMethodCall("ZetAxSalesId", "VO1600001000").ExactAantalKeer(1)
Do OrderMock.VerwachtMethodCall("ZetTextVoorAfdrukDocumentType", "ProductionBody", ##class(DOM.VKP.enu.TekstAfdrukDocumentType).Toelevering()).DanDoeNiks()
+ Do OrderMock.IndienMethodCall("GeefID").DanReturn("DummyOrderID")
Set OrderAPIMock = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
Do OrderAPIMock.VerwachtMethodCall("Bewaar", OrderMock).ExactAantalKeer(1)
Index: vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/TestUpdate.cls.xml
===================================================================
diff -u -r47174 -r47346
--- vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/TestUpdate.cls.xml (.../TestUpdate.cls.xml) (revision 47174)
+++ vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/TestUpdate.cls.xml (.../TestUpdate.cls.xml) (revision 47346)
@@ -23,6 +23,7 @@
Do OrderMock.VerwachtMethodCall("ZetStatus", ##class(DOM.VKP.enu.OrderStatus).Open()).ExactAantalKeer(1)
Do OrderMock.VerwachtMethodCall("ZetAxSalesId", "VO1600001000").ExactAantalKeer(1)
Do OrderMock.VerwachtMethodCall("ZetTextVoorAfdrukDocumentType", "ProductionBody", ##class(DOM.VKP.enu.TekstAfdrukDocumentType).Toelevering()).DanDoeNiks()
+ Do OrderMock.IndienMethodCall("GeefID").DanReturn("DummyOrderID")
Set OrderAPIMock = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
Do OrderAPIMock.VerwachtMethodCall("Bewaar", OrderMock).ExactAantalKeer(1)
Index: AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml
===================================================================
diff -u -r47335 -r47346
--- AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml (.../SalesOrderConverter.cls.xml) (revision 47335)
+++ AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml (.../SalesOrderConverter.cls.xml) (revision 47346)
@@ -33,6 +33,11 @@
1
+
+vhLib.Logger
+1
+
+
OrderAPI:DOM.VKP.OrderAPI,OrderLevenCyclusService:APPS.VKP.OrderLevenCyclusService,DateTimeAPI:TECH.DateTime="",ProductBepaler:AXimpl.Admin.Common.ProductBepaler,DocumentReferentiesRepository:DOM.VKP.DocumentReferentiesRepository,OrderlijnenSorteerder:AXimpl.Dynamics.SalesOrderIn.Converter.OrderlijnenSorteerder
1
@@ -46,7 +51,8 @@
Set ..ProductBepaler = $$$Inject(ProductBepaler, ##class(AXimpl.Admin.Common.ProductBepaler).%New())
Set ..DocumentReferentiesRepository = $$$Inject(DocumentReferentiesRepository,##class(DOM.VKP.DocumentReferentiesRepository).%New())
Set ..OrderlijnenSorteerder = $$$Inject(OrderlijnenSorteerder, ##class(AXimpl.Dynamics.SalesOrderIn.Converter.OrderlijnenSorteerder).%New())
-
+ Set ..Logger = ##class(vhLib.Logger).%New()
+
Quit $$$OK
]]>
@@ -83,11 +89,15 @@
Do PrijsOrderLijn.ZetLeverdag(..GeefLeverDatum(OrderLine))
Do PrijsOrderLijn.ZetAxConfigId(OrderLine.ConfigId)
Do PrijsOrderLijn.ZetTextVoorAfdrukDocumentType(OrderLine.PackingSlipBody, ##class(DOM.VKP.enu.TekstAfdrukDocumentType).LeverBon())
+ Do ..Logger.Debug("Aanmaken Order", "OrderLijn properties zijn gezet voor PrijsOrderLijn " _PrijsOrderLijn.GeefID() )
}
Do ..OrderAPI.Bewaar(Order)
+ Do ..Logger.Debug("Aanmaken Order", "Order is bewaard met OrderID " _Order.GeefID())
+
Do ..OrderlijnenSorteerder.SorteerGepersisteerdeOrderLijnen(Order)
+ Do ..Logger.Debug("Aanmaken Order", "Order is gesorteerd met OrderID " _Order.GeefID())
]]>
@@ -97,6 +107,7 @@
@@ -114,10 +125,14 @@
1
DOM.VKP.Order
@@ -160,6 +175,8 @@
Do Order.ZetVerzendingWijze(..MaakVerzendingWijze(OrderHeader))
Do Order.ZetAxSalesId(OrderHeader.SalesId)
Do Order.ZetTextVoorAfdrukDocumentType(OrderHeader.ProductionBody, ##class(DOM.VKP.enu.TekstAfdrukDocumentType).Toelevering())
+
+ Do ..Logger.Debug("Aanmaken Order", "Hoofding op order gezet voor Order " _Order.GeefID())
]]>
@@ -172,6 +189,8 @@
Do ..ValideerOrderID(OrderID)
+ Do ..Logger.Debug("Aanmaken Order", "Geldig OrderID is " _OrderID)
+
Quit OrderID
]]>
@@ -218,6 +237,8 @@
}
#dim ProductLijn As DOM.VKP.ProductOrderlijn = ..OrderLevenCyclusService.VoegToeProductVoorKlant(Order, Order.GeefKlantID(), ProductID, OrderLine.QtyOrdered)
+
+ Do ..Logger.Debug("Aanmaken Order", "Product toegevoegd met productnummer met ProductID " _ProductID)
Quit ProductLijn
]]>
@@ -234,6 +255,8 @@
#dim MaatwerkLijn As DOM.VKP.ProductOrderlijn = ..OrderLevenCyclusService.VoegToeProductVoorKlant(Order, Order.GeefKlantID(), ProductNummer, OrderLine.QtyOrdered)
Do MaatwerkLijn.ZetAxMaatwerkGenerischItemId(OrderLine.ItemId)
+
+ Do ..Logger.Debug("Aanmaken Order", "Maatwerk toegevoegd met productnummer " _ProductNummer _ " met MaatwerkGenerischItemId " _OrderLine.ItemId)
Quit MaatwerkLijn
]]>
@@ -295,6 +318,8 @@
Do ..DocumentReferentiesRepository.Bewaar(DocumentReferenties)
Do Order.ZetDocumentReferenties(DocumentReferenties)
+
+ Do ..Logger.Debug("Aanmaken Order", "Documentreferenties gezet voor OrderID " _Order.GeefID() _ " DocumentReferentieID " _DocumentReferenties.GeefID() )
]]>
@@ -329,6 +354,9 @@
Quit
}
}
+
+ Do ..Logger.Debug("Aanmaken Order", "Attribute opgezocht met sleutel " _Key _ " heeft waarde " _Value )
+
Quit Value
]]>