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