Index: vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/Test.cls.xml =================================================================== diff -u -r56001 -r56130 --- vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/Test.cls.xml (.../Test.cls.xml) (revision 56001) +++ vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/Test.cls.xml (.../Test.cls.xml) (revision 56130) @@ -42,6 +42,7 @@ Do OrderMock.VerwachtMethodCall("ZetTekstVoorAfdrukDocumentType", "ProdCmdBody", ##class(DOM.VKP.enu.TekstAfdrukDocumentType).Toelevering()).DanDoeNiks() Do OrderMock.VerwachtMethodCall("HerlaadLijnen").ExactAantalKeer(2).DanDoeNiks() Do OrderMock.VerwachtMethodCall("BestaatOrderLijnViaAxInventTransId","000019541").DanReturn($$$False) + Do OrderMock.VerwachtMethodCall("GeefAantalLijnenMetAxInventTransId","000019541").DanReturn(0) Do OrderMock.IndienMethodCall("GeefKlantID").DanReturn("DummyKlantID") Do OrderMock.IndienMethodCall("GeefTypeOrderLijnIterator", $$$ElkeWaarde).DanReturn(..GeefDummyIterator($$$True)) @@ -98,6 +99,7 @@ #dim OrderMock As vhTest.Mock.DOM.VKP.Order = ..GeefOrder() Do OrderMock.VerwachtMethodCall("BestaatOrderLijnViaAxInventTransId","000019541").DanReturn($$$False) + Do OrderMock.VerwachtMethodCall("GeefAantalLijnenMetAxInventTransId","000019541").DanReturn(0) Do OrderMock.VerwachtMethodCall("GeefKlantID").DanReturn("DummyKlantID") Do OrderMock.VerwachtMethodCall("GeefAxSalesId").DanReturn("VO1600010000") @@ -139,6 +141,7 @@ #dim OrderMock As vhTest.Mock.DOM.VKP.Order = ..GeefOrder() Do OrderMock.VerwachtMethodCall("BestaatOrderLijnViaAxInventTransId","000019541").DanReturn($$$False) + Do OrderMock.VerwachtMethodCall("GeefAantalLijnenMetAxInventTransId","000019541").DanReturn(0) Do OrderMock.VerwachtMethodCall("GeefKlantID").DanReturn("DummyKlantID") Do OrderMock.VerwachtMethodCall("GeefAxSalesId").DanReturn("VO1600010000") @@ -180,6 +183,7 @@ #dim OrderMock As vhTest.Mock.DOM.VKP.Order = ..GeefOrder() Do OrderMock.VerwachtMethodCall("BestaatOrderLijnViaAxInventTransId","000019541").DanReturn($$$False) + Do OrderMock.VerwachtMethodCall("GeefAantalLijnenMetAxInventTransId","000019541").DanReturn(0) Do OrderMock.VerwachtMethodCall("GeefKlantID").DanReturn("DummyKlantID") Do OrderMock.VerwachtMethodCall("GeefAxSalesId").DanReturn("VO1600010000") @@ -225,6 +229,7 @@ #dim OrderMock As vhTest.Mock.DOM.VKP.Order = ..GeefOrder() Do OrderMock.VerwachtMethodCall("BestaatOrderLijnViaAxInventTransId","000019541").DanReturn($$$False) + Do OrderMock.VerwachtMethodCall("GeefAantalLijnenMetAxInventTransId","000019541").DanReturn(0) Do OrderMock.VerwachtMethodCall("GeefKlantID").DanReturn("DummyKlantID") Do OrderMock.VerwachtMethodCall("GeefAxSalesId").DanReturn("VO1600010000") @@ -337,6 +342,7 @@ #dim OrderAPIMock As vhTest.Mock.DOM.VKP.OrderAPI = ..GeefOrderApi(OrderMock) Do OrderMock.IndienMethodCall("BestaatOrderLijnViaAxInventTransId",$$$ElkeWaarde).DanReturn($$$False) + Do OrderMock.IndienMethodCall("GeefAantalLijnenMetAxInventTransId",$$$ElkeWaarde).DanReturn(0) #dim StandaardOrderMetProductLijn As AXif.Dynamics.SalesOrderIn.Envelope = ##class(vhTest.Utils.AXif.Dynamics.SalesOrderIn.Envelope).StandaardOrderMetProductLijn() Set StandaardOrderMetProductLijn.Body.MessageParts.ADUMsgSalesOrderOutQuery.OrderHeader.GetAt(1).OrderLine.GetAt(1).PackingSlipBody = "$#KOM#$" _ "PackingSlipBodyTekst" @@ -379,6 +385,7 @@ Do OrderMock.IndienMethodCall("GeefID").DanReturn("DummyOrderID") Do OrderMock.IndienMethodCall("GeefTypeOrderLijnIterator", $$$ElkeWaarde).DanReturn(..GeefDummyIterator($$$True)) Do OrderMock.IndienMethodCall("BestaatOrderLijnViaAxInventTransId",$$$ElkeWaarde).DanReturn($$$False) + Do OrderMock.IndienMethodCall("GeefAantalLijnenMetAxInventTransId",$$$ElkeWaarde).DanReturn(0) Do OrderMock.VerwachtMethodCall("ZetOorsprongKetting",$$$LCVT(Detail)).ExactAantalKeer(1).DanDoeNiks() @@ -412,6 +419,7 @@ #dim OrderMock As vhTest.Mock.DOM.VKP.Order = ..GeefOrder() Do OrderMock.VerwachtMethodCall("BestaatOrderLijnViaAxInventTransId","000019541").DanReturn($$$False) + Do OrderMock.VerwachtMethodCall("GeefAantalLijnenMetAxInventTransId","000019541").DanReturn(0) Do OrderMock.VerwachtMethodCall("GeefKlantID").DanReturn("DummyKlantID") #dim ProductOrderlijnMock As vhTest.Mock.DOM.VKP.impl.DataM.DataMProductOrderlijn = ##class(vhTest.Utils.DOM.VKP.ProductOrderlijn).StandaardProductLijn() Index: vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/TestSobelWood.cls.xml =================================================================== diff -u -r56001 -r56130 --- vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/TestSobelWood.cls.xml (.../TestSobelWood.cls.xml) (revision 56001) +++ vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/TestSobelWood.cls.xml (.../TestSobelWood.cls.xml) (revision 56130) @@ -16,6 +16,7 @@ #dim OrderMock As vhTest.Mock.DOM.VKP.Order = ..GeefOrder() Do OrderMock.VerwachtMethodCall("BestaatOrderLijnViaAxInventTransId","000019541").DanReturn($$$False) + Do OrderMock.VerwachtMethodCall("GeefAantalLijnenMetAxInventTransId","000019541").DanReturn(0) Do OrderMock.VerwachtMethodCall("GeefKlantID").DanReturn(##class(DOM.VKP.enu.Klant).NewSobelwood()) Do OrderMock.VerwachtMethodCall("GeefAxSalesId").DanReturn("VO1600010000") Index: AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml =================================================================== diff -u -r56060 -r56130 --- AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml (.../SalesOrderConverter.cls.xml) (revision 56060) +++ AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml (.../SalesOrderConverter.cls.xml) (revision 56130) @@ -228,6 +228,13 @@ Continue } + // hier sowieso een orderlijn die geupdated mag worden, zonder toelev en juiste status. + // -> verwijder orderlijnen met zelfde inventtransid. + If (Order.GeefAantalLijnenMetAxInventTransId(OrderLine.InventTransId) > 1) { + Do Order.VerwijderOrderLijnenViaAxInventTransId(OrderLine.InventTransId) + Do ..BewaarOrder(Order) + } + Do ..UpdateOrderLijn(..GeefOfMaakOrderLijn(Order, OrderLine), OrderLine, Order) } @@ -422,7 +429,7 @@ 1 Index: vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/TestSFS.cls.xml =================================================================== diff -u --- vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/TestSFS.cls.xml (revision 0) +++ vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/TestSFS.cls.xml (revision 56130) @@ -0,0 +1,143 @@ + + + +vhUnitTest.AXimpl.Dynamics.SalesOrderIn.Converter.SalesOrderConverter.Convert.Base + + + + + + + + + + + + + + + + Index: vhTest/Mock/DOM/VKP/Order.cls.xml =================================================================== diff -u -r54932 -r56130 --- vhTest/Mock/DOM/VKP/Order.cls.xml (.../Order.cls.xml) (revision 54932) +++ vhTest/Mock/DOM/VKP/Order.cls.xml (.../Order.cls.xml) (revision 56130) @@ -401,9 +401,9 @@ ]]> - + AxInventTransId:%String - Index: vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/TestVerwijderOrderLijn.cls.xml =================================================================== diff -u -r52732 -r56130 --- vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/TestVerwijderOrderLijn.cls.xml (.../TestVerwijderOrderLijn.cls.xml) (revision 52732) +++ vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/TestVerwijderOrderLijn.cls.xml (.../TestVerwijderOrderLijn.cls.xml) (revision 56130) @@ -28,7 +28,7 @@ #dim OrderMock As vhTest.Mock.DOM.VKP.Order = ..GeefOrder() Do OrderMock.VerwachtMethodCall("BestaatOrderLijnViaAxInventTransId", "000019541").ExactAantalKeer(1).DanReturn($$$True) - Do OrderMock.VerwachtMethodCall("VerwijderOrderLijnViaAxInventTransId", "000019541").ExactAantalKeer(1).DanDoeNiks() + Do OrderMock.VerwachtMethodCall("VerwijderOrderLijnenViaAxInventTransId", "000019541").ExactAantalKeer(1).DanDoeNiks() Do OrderMock.VerwachtMethodCall("GeefAxSalesId").DanReturn("VO1600010000") Set SalesOrderConverter = ##class(AXimpl.Dynamics.SalesOrderIn.Converter.SalesOrderConverter).%New(..GeefOrderApi(OrderMock) ,,,,..GeefDocumentReferentie(), ..GeefOrderLijnenSorteerder(),, ..GeefToeleveringService(), ,,..GeefSalesOrderLineStatusRepository()) Index: DOM/VKP/Order.cls.xml =================================================================== diff -u -r54932 -r56130 --- DOM/VKP/Order.cls.xml (.../Order.cls.xml) (revision 54932) +++ DOM/VKP/Order.cls.xml (.../Order.cls.xml) (revision 56130) @@ -444,7 +444,7 @@ %Boolean - + 1 AxInventTransId:%String Index: vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/TestUpdate.cls.xml =================================================================== diff -u -r56001 -r56130 --- vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/TestUpdate.cls.xml (.../TestUpdate.cls.xml) (revision 56001) +++ vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/TestUpdate.cls.xml (.../TestUpdate.cls.xml) (revision 56130) @@ -54,8 +54,8 @@ Do ProductOrderlijnMock.VerwachtMethodCall("ZetPakketReferentie", "ExternalItemId").DanDoeNiks() #dim OrderMock As vhTest.Mock.DOM.VKP.Order = ..GeefOrder() - Do OrderMock.VerwachtMethodCall("BestaatOrderLijnViaAxInventTransId","000019541").DanReturn($$$True) + Do OrderMock.VerwachtMethodCall("GeefAantalLijnenMetAxInventTransId","000019541").DanReturn(1) Do OrderMock.VerwachtMethodCall("GeefOrderLijnViaAxInventTransId","000019541").DanReturn(ProductOrderlijnMock) Do OrderMock.VerwachtMethodCall("GeefAxSalesId").DanReturn("VO1600010000") @@ -71,146 +71,6 @@ ]]> - - - - - - - - - - - - + + + + Index: DOM/VKP/impl/DataM/DataMOrder.cls.xml =================================================================== diff -u -r54932 -r56130 --- DOM/VKP/impl/DataM/DataMOrder.cls.xml (.../DataMOrder.cls.xml) (revision 54932) +++ DOM/VKP/impl/DataM/DataMOrder.cls.xml (.../DataMOrder.cls.xml) (revision 56130) @@ -431,16 +431,22 @@ ]]> - + AxInventTransId:%String