Index: AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml =================================================================== diff -u -r44119 -r44158 --- AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml (.../SalesOrderConverter.cls.xml) (revision 44119) +++ AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml (.../SalesOrderConverter.cls.xml) (revision 44158) @@ -51,19 +51,12 @@ #dim OrderHeader As AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderHeader = Message.Body.MessageParts.ADUMsgSalesOrderOutQuery.OrderHeader.GetAt(1) #dim KlantID As %String = ##class(AXimpl.AxToAdminUtils).ConvertCustomerID(OrderHeader.CustAccount) - #Dim Order As DOM.VKP.Order = ..OrderLevenCyclusService.MaakOrderMetKlantGegevens(KlantID, ..MaakOrderID(OrderHeader)) + #dim OrderID As %String = ..MaakOrderID(OrderHeader) + Do ..OrderAPI.VerwijderOverbodigeIndexen(OrderID) + #Dim Order As DOM.VKP.Order = ..OrderLevenCyclusService.MaakOrderMetKlantGegevens(KlantID, OrderID) - Do Order.ZetDocumentReferenties(..MaakOrderReferentie(OrderHeader)) + Do ..ZetOrderHoofding(Order, OrderHeader) - Do Order.ZetCreatieDatum(..MaakCreatieDatum(OrderHeader)) - Do Order.ZetMunt(OrderHeader.CurrencyCode) - Do Order.ZetEDINummer(OrderHeader.RefSalesOriginId) - Do Order.ZetLeveringVoorwaarde(..MaakLeveringVoorwaarde(OrderHeader)) - Do Order.ZetIngegevenDoor(OrderHeader.NameCustResponsible) - Do Order.ZetIngegevenOpTijdstip(..MaakIngegevenOpTijdstip(OrderHeader)) - Do Order.ZetOorsprong(##class(AXimpl.AxToAdminUtils).ConvertOorsprong()) - Do Order.ZetStatus(##class(AXimpl.AxToAdminUtils).ConvertStatus()) - #dim AfleverAdres As DOM.VKP.impl.LeverAdres = ..MaakLeverAdres(OrderHeader) Do Order.ZetAfleveradres(AfleverAdres) @@ -102,6 +95,22 @@ ]]> + +Order:DOM.VKP.Order,OrderHeader:AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderHeader +1 + + + OrderHeader:AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderHeader,AfleverAdres:DOM.VKP.impl.LeverAdres,VerzendingWijze:%String,KlantID:%String 1 Index: vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/Test.cls.xml =================================================================== diff -u -r44119 -r44158 --- vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/Test.cls.xml (.../Test.cls.xml) (revision 44119) +++ vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/Test.cls.xml (.../Test.cls.xml) (revision 44158) @@ -23,6 +23,7 @@ Set OrderAPIMock = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New() Do OrderAPIMock.VerwachtMethodCall("Bewaar", OrderMock).ExactAantalKeer(1) + Do OrderAPIMock.VerwachtMethodCall("VerwijderOverbodigeIndexen", "100000").ExactAantalKeer(1) Set OrderLevenCyclusServiceMock = ##class(vhTest.Mock.APPS.VKP.OrderLevenCyclusService).%New() Do OrderLevenCyclusServiceMock.VerwachtMethodCall("MaakOrderMetKlantGegevens","K||12526","100000").DanReturn(OrderMock) @@ -65,6 +66,7 @@ Set OrderAPIMock = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New() Do OrderAPIMock.IndienMethodCall("Bewaar", OrderMock).DanDoeNiks() + Do OrderAPIMock.IndienMethodCall("VerwijderOverbodigeIndexen", $$$ElkeWaarde).DanDoeNiks() #dim ProductOrderlijnMock As vhTest.Mock.DOM.VKP.impl.DataM.DataMProductOrderlijn = ##class(vhTest.Utils.DOM.VKP.ProductOrderlijn).StandaardProductLijn() Do ProductOrderlijnMock.VerwachtMethodCall("ZetAxInventTransId",StandaardOrder.Body.MessageParts.ADUMsgSalesOrderOutQuery.OrderHeader.GetAt(1).OrderLine.GetAt(1).InventTransId).DanDoeNiks() @@ -116,6 +118,7 @@ Set OrderAPIMock = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New() Do OrderAPIMock.IndienMethodCall("Bewaar", OrderMock).DanDoeNiks() + Do OrderAPIMock.IndienMethodCall("VerwijderOverbodigeIndexen", $$$ElkeWaarde).DanDoeNiks() #dim ProductOrderlijnMock As vhTest.Mock.DOM.VKP.impl.DataM.DataMProductOrderlijn = ##class(vhTest.Utils.DOM.VKP.ProductOrderlijn).StandaardProductLijn() Do ProductOrderlijnMock.VerwachtMethodCall("ZetAxInventTransId",StandaardOrder.Body.MessageParts.ADUMsgSalesOrderOutQuery.OrderHeader.GetAt(1).OrderLine.GetAt(1).InventTransId).DanDoeNiks() Index: DOM/VKP/OrderAPI.cls.xml =================================================================== diff -u -r42395 -r44158 --- DOM/VKP/OrderAPI.cls.xml (.../OrderAPI.cls.xml) (revision 42395) +++ DOM/VKP/OrderAPI.cls.xml (.../OrderAPI.cls.xml) (revision 44158) @@ -123,6 +123,11 @@ 1 Order:DOM.VKP.Order + + +1 +OrderID:%Integer + Index: DOM/VKP/impl/DataM/DataMOrderAPI.cls.xml =================================================================== diff -u -r42395 -r44158 --- DOM/VKP/impl/DataM/DataMOrderAPI.cls.xml (.../DataMOrderAPI.cls.xml) (revision 42395) +++ DOM/VKP/impl/DataM/DataMOrderAPI.cls.xml (.../DataMOrderAPI.cls.xml) (revision 44158) @@ -3,7 +3,7 @@ 1 -%RegisteredObject,DOM.VKP.OrderAPI +TECH.RegisteredObject,DOM.VKP.OrderAPI right @@ -159,6 +159,16 @@ ]]> + +OrderID:%Integer + + + ProformaID:%Integer DOM.VKP.Proforma Index: vhTest/Mock/DOM/VKP/OrderAPI.cls.xml =================================================================== diff -u -r42395 -r44158 --- vhTest/Mock/DOM/VKP/OrderAPI.cls.xml (.../OrderAPI.cls.xml) (revision 42395) +++ vhTest/Mock/DOM/VKP/OrderAPI.cls.xml (.../OrderAPI.cls.xml) (revision 44158) @@ -134,6 +134,12 @@ + + +OrderID:%Integer + +