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()