Index: AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml =================================================================== diff -u -r43327 -r43364 --- AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml (.../SalesOrderConverter.cls.xml) (revision 43327) +++ AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml (.../SalesOrderConverter.cls.xml) (revision 43364) @@ -28,8 +28,13 @@ 1 + +DOM.VKP.DocumentReferentiesRepository +1 + + -OrderAPI:DOM.VKP.OrderAPI,OrderLevenCyclusService:APPS.VKP.OrderLevenCyclusService,DateTimeAPI:TECH.DateTime="",AxToAdminUtils:AXimpl.AxToAdminUtils,ProductBepaler:APPS.Blum.impl.OnlineProductConfigurator.ProductBepaler +OrderAPI:DOM.VKP.OrderAPI,OrderLevenCyclusService:APPS.VKP.OrderLevenCyclusService,DateTimeAPI:TECH.DateTime="",AxToAdminUtils:AXimpl.AxToAdminUtils,ProductBepaler:APPS.Blum.impl.OnlineProductConfigurator.ProductBepaler,DocumentReferentiesRepository:DOM.VKP.DocumentReferentiesRepository 1 1 %Status @@ -40,6 +45,7 @@ Set ..OrderLevenCyclusService = $$$Inject(OrderLevenCyclusService,##class(APPS.VKP.OrderLevenCyclusService).%New(..DateTimeAPI)) Set ..AxToAdminUtils = $$$Inject(AxToAdminUtils, ##class(AXimpl.AxToAdminUtils).%New()) Set ..ProductBepaler = $$$Inject(ProductBepaler, ##class(AXimpl.Dynamics.SalesOrderIn.Converter.ProductBepaler).%New()) + Set ..DocumentReferentiesRepository = $$$Inject(DocumentReferentiesRepository,##class(DOM.VKP.DocumentReferentiesRepository).%New()) Quit $$$OK ]]> @@ -53,6 +59,11 @@ #Dim Order As DOM.VKP.Order = ..OrderLevenCyclusService.MaakOrderMetKlantGegevens(KlantID) + #dim OrderDocRef As DOM.VKP.DocumentReferenties = ..DocumentReferentiesRepository.Maak() + Set OrderDocRef.OrderReferentie = OrderHeader.CustomerRef + Do ..DocumentReferentiesRepository.Bewaar(OrderDocRef) + Do Order.ZetDocumentReferenties(OrderDocRef) + Set LeverAdres = ##class(DOM.VKP.impl.LeverAdres).%New() Do LeverAdres.ZetGemeente(OrderHeader.DlvAddrCity) Do LeverAdres.ZetPostcode(OrderHeader.DlvAddrZipCode) Index: vhTest/Utils/AXif/Dynamics/SalesOrderIn/Envelope.cls.xml =================================================================== diff -u -r42950 -r43364 --- vhTest/Utils/AXif/Dynamics/SalesOrderIn/Envelope.cls.xml (.../Envelope.cls.xml) (revision 42950) +++ vhTest/Utils/AXif/Dynamics/SalesOrderIn/Envelope.cls.xml (.../Envelope.cls.xml) (revision 43364) @@ -16,6 +16,7 @@ Set OrderHeader.DlvAddrStreet1 = "Ankerstraat 91" Set OrderHeader.DlvAddrCountry = "1019" Set OrderHeader.DeliveryName = "Een Belg" + Set OrderHeader.CustomerRef = "Mijn orderreferentie" Do StandaardOrder.Body.MessageParts.ADUMsgSalesOrderOutQuery.OrderHeader.Insert(OrderHeader) Index: vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/Test.cls.xml =================================================================== diff -u -r43327 -r43364 --- vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/Test.cls.xml (.../Test.cls.xml) (revision 43327) +++ vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/Test.cls.xml (.../Test.cls.xml) (revision 43364) @@ -6,23 +6,33 @@ @@ -32,6 +42,7 @@ Set OrderMock = ##class(vhTest.Mock.DOM.VKP.Order).%New() Do OrderMock.IndienMethodCall("ZetAfleveradres", $$$ElkeWaarde).DanDoeNiks() + Do OrderMock.IndienMethodCall("ZetDocumentReferenties", $$$ElkeWaarde).DanDoeNiks() Do OrderMock.VerwachtMethodCall("GeefKlantID").DanReturn("DummyKlantID") Set OrderAPIMock = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New() @@ -47,7 +58,12 @@ Set ProductBepalerMock = ##class(vhTest.Mock.AXimpl.Dynamics.SalesOrderIn.Converter.ProductBepaler).%New() Do ProductBepalerMock.VerwachtMethodCall("GeefProductNummer","0.741.108.3","DummyKlantID").DanReturn("DummyProductID") - Set SalesOrderConverter = ##class(AXimpl.Dynamics.SalesOrderIn.Converter.SalesOrderConverter).%New(OrderAPIMock, OrderLevenCyclusServiceMock,,,ProductBepalerMock) + Set OrderDocRef = ##class(DOM.VKP.DocumentReferenties).%New() + Set DocumentReferentiesRepositoryMock = ##class(vhTest.Mock.DOM.VKP.DocumentReferentiesRepository).%New() + Do DocumentReferentiesRepositoryMock.IndienMethodCall("Maak").DanReturn(OrderDocRef) + Do DocumentReferentiesRepositoryMock.IndienMethodCall("Bewaar", $$$ElkeWaarde).DanDoeNiks() + + Set SalesOrderConverter = ##class(AXimpl.Dynamics.SalesOrderIn.Converter.SalesOrderConverter).%New(OrderAPIMock, OrderLevenCyclusServiceMock,,,ProductBepalerMock,DocumentReferentiesRepositoryMock) Do SalesOrderConverter.Convert(StandaardOrder) Do OrderMock.Verifieer()