Index: AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml =================================================================== diff -u -r48316 -r48319 --- AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml (.../SalesOrderConverter.cls.xml) (revision 48316) +++ AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml (.../SalesOrderConverter.cls.xml) (revision 48319) @@ -124,7 +124,7 @@ #dim OrderLine As AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderLine = OrderLineIterator.Next() If $$$Not(..MagOrderLijnUpdaten(OrderLine)) { - Do ..Logger.Debug("Aanmaken Order", "OrderLijn met InventTransId '" _OrderLine.InventTransId _"' is in verwerking. Er wordt geen update uitgevoerd.") + Do ..Logger.Debug("SalesOrderIn - Orderlijn is geblokkeerd", "OrderLijn met InventTransId '" _OrderLine.InventTransId _"' is in verwerking. Er wordt geen update uitgevoerd.") Continue } @@ -158,6 +158,7 @@ Set MagOrderVerwijderen = MagOrderVerwijderen && $$$Not(Order.GeefTypeOrderLijnIterator(##class(DOM.VKP.enu.OrderLijnType).Product()).HasNext()) Set MagOrderVerwijderen = MagOrderVerwijderen && $$$Not(Order.GeefTypeOrderLijnIterator(##class(DOM.VKP.enu.OrderLijnType).Manueel()).HasNext()) If MagOrderVerwijderen { + Do ..Logger.Debug("SalesOrderIn - Order verwijderen", "Order met OrderID '" _Order.GeefID() _"' is leeg en wordt verwijderd") Do ..OrderAPI.VerwijderOrder(Order.GeefID()) Set Order = "" } @@ -169,7 +170,7 @@ 1 @@ -182,7 +183,7 @@ Do Order.HerlaadLijnen() If (##class(TECH.Config.ConfigMgr).Instance().GeefBoolean("BevestigdAXOrderSluitenActief")) { Do ..OrderSluiter.Sluit(Order.GeefID()) - Do ..Logger.Debug("Aanmaken Order", "Toeleveringen aangemaakt en order met OrderID '" _Order.GeefID() _"' is gesloten.") + Do ..Logger.Debug("SalesOrderIn - Order sluiten", "Toeleveringen aangemaakt en order met OrderID '" _Order.GeefID() _"' is gesloten.") } ]]> @@ -207,7 +208,7 @@ Do:..IsReedsVerwerkteOrderlijn(OrderLine) OrderLijn.ZetToeleveringID("") Do OrderLijn.ZetTekstVoorAfdrukDocumentType(..VerwijderKOMLinkIdentificatie(OrderLine.PackingSlipBody), ##class(DOM.VKP.enu.TekstAfdrukDocumentType).LeverBon()) - Do ..Logger.Debug("Aanmaken Order", "OrderLijn properties zijn gezet voor PrijsOrderLijn " _OrderLijn.GeefID() ) + Do ..Logger.Debug("SalesOrderIn - Orderlijn updaten", "OrderLijn properties zijn gezet voor OrderLijnID '" _OrderLijn.GeefID() _"'") ]]> @@ -233,7 +234,7 @@ @@ -255,11 +256,11 @@ If ..OrderAPI.BestaatOrder(OrderID) { - Do ..Logger.Debug("Aanmaken Order", "Bestaand order met OrderID " _OrderID _" wordt geupdatet." ) + Do ..Logger.Debug("SalesOrderIn - Update bestaand order", "Bestaand order met OrderID '" _OrderID _"' wordt geupdatet." ) #dim Order As DOM.VKP.Order = ..OrderAPI.GeefOrder(OrderID) Do Order.HerlaadLijnen() - Do ..Logger.Debug("Aanmaken Order", "Toeleveringen voor order met OrderID " _OrderID _" worden verwijderd." ) + Do ..Logger.Debug("SalesOrderIn - Toeleveringen verwijderen", "Toeleveringen voor order met OrderID '" _OrderID _"' worden verwijderd." ) Do ..ToeleveringService.VerwijderToeleveringenViaOrder(Order) Do Order.HerlaadLijnen() @@ -270,7 +271,7 @@ Do ..OrderAPI.VerwijderOverbodigeIndexen(OrderID) - Do ..Logger.Debug("Aanmaken Order", "Nieuw order met OrderID " _OrderID _" wordt aangemaakt." ) + Do ..Logger.Debug("SalesOrderIn - Aanmaken Order", "Nieuw order met OrderID '" _OrderID _"' wordt aangemaakt." ) Quit ..OrderLevenCyclusService.MaakOrderMetKlantGegevens(KlantID, OrderID) } @@ -344,7 +345,7 @@ } } - Do ..Logger.Debug("Aanmaken Order", "Hoofding op order gezet voor Order " _Order.GeefID()) + Do ..Logger.Debug("SalesOrderIn - Zet order hoofding", "Hoofding op order gezet voor Order '" _Order.GeefID() _"'") ]]> @@ -357,7 +358,7 @@ Do ..ValideerOrderID(OrderID) - Do ..Logger.Debug("Aanmaken Order", "Geldig OrderID is " _OrderID) + Do ..Logger.Debug("SalesOrderIn - Aanmaken OrderID", "Geldig OrderID is '" _OrderID _"'") Quit OrderID ]]> @@ -369,7 +370,7 @@ @@ -408,7 +409,7 @@ #dim ProductLijn As DOM.VKP.ProductOrderlijn = ..OrderLevenCyclusService.VoegToeProductVoorKlant(Order, Order.GeefKlantID(), ProductId, OrderLine.RemainSalesPhysical) - Do ..Logger.Debug("Aanmaken Order", "Product toegevoegd met ProductID " _ProductId) + Do ..Logger.Debug("SalesOrderIn - Productlijn toevoegen", "Product toegevoegd met ProductID '" _ProductId _"'") Quit ProductLijn ]]> @@ -426,7 +427,7 @@ #dim MaatwerkLijn As DOM.VKP.ProductOrderlijn = ..OrderLevenCyclusService.VoegToeProductVoorKlant(Order, Order.GeefKlantID(), ProductNummer, OrderLine.RemainSalesPhysical) Do MaatwerkLijn.ZetAxMaatwerkGenerischItemId(OrderLine.ItemId) - Do ..Logger.Debug("Aanmaken Order", "Maatwerk toegevoegd met productnummer " _ProductNummer _ " met MaatwerkGenerischItemId " _OrderLine.ItemId) + Do ..Logger.Debug("SalesOrderIn - Toevoegen maatwerklijn", "Maatwerk toegevoegd met productnummer '" _ProductNummer _ "' met MaatwerkGenerischItemId '" _OrderLine.ItemId _"'") Quit MaatwerkLijn ]]> @@ -489,7 +490,7 @@ Do Order.ZetDocumentReferenties(DocumentReferenties) - Do ..Logger.Debug("Aanmaken Order", "Documentreferenties gezet voor OrderID " _Order.GeefID() _ " DocumentReferentieID " _DocumentReferenties.GeefID() ) + Do ..Logger.Debug("SalesOrderIn - Zet document referentie", "Documentreferenties gezet voor OrderID '" _Order.GeefID() _ "' DocumentReferentieID '" _DocumentReferenties.GeefID() _"'") ]]> @@ -498,6 +499,7 @@ 1 DOM.VKP.impl.LeverAdres Index: vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/Test.cls.xml =================================================================== diff -u -r48316 -r48319 --- vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/Test.cls.xml (.../Test.cls.xml) (revision 48316) +++ vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/Test.cls.xml (.../Test.cls.xml) (revision 48319) @@ -191,7 +191,7 @@ Index: AXimpl/Dynamics/SalesOrderIn/Converter/ToeleveringService.cls.xml =================================================================== diff -u -r48287 -r48319 --- AXimpl/Dynamics/SalesOrderIn/Converter/ToeleveringService.cls.xml (.../ToeleveringService.cls.xml) (revision 48287) +++ AXimpl/Dynamics/SalesOrderIn/Converter/ToeleveringService.cls.xml (.../ToeleveringService.cls.xml) (revision 48319) @@ -8,6 +8,11 @@ 1 + +vhLib.Logger +1 + + SalesOrderLineStatusRepository:AXdata.Dynamics.SalesLineStatus.SalesOrderLineStatusRepository 1 @@ -16,6 +21,8 @@ 1 @@ -76,6 +83,7 @@ ToeleveringID:%String 1