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