Index: vhTest/Mock/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/LeverAdresMaker.cls.xml
===================================================================
diff -u -r48555 -r55673
--- vhTest/Mock/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/LeverAdresMaker.cls.xml (.../LeverAdresMaker.cls.xml) (revision 48555)
+++ vhTest/Mock/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/LeverAdresMaker.cls.xml (.../LeverAdresMaker.cls.xml) (revision 55673)
@@ -8,6 +8,13 @@
AXimpl.Dynamics.SalesOrderIn.Converter.SalesOrderConverter.LeverAdresMaker,Tools.Mock.MockClassBase
right
+
+ProjectSettingsApi:DOM.common.ProjectSettingsAPI,LeverAdresRepository:DOM.VKP.impl.LeverAdresRepository,MailApi:TECH.Mail.MailAPI="",VerkoopApi:DOM.VKP.VerkoopAPI,LandRepository:DOM.common.Locatie.impl.LandRepository
+%Status
+
+
+
OrderHeader:AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderHeader
DOM.VKP.LeverAdres
Index: vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/LeverAdresMaker/MaakLeverAdres/Test.cls.xml
===================================================================
diff -u -r49909 -r55673
--- vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/LeverAdresMaker/MaakLeverAdres/Test.cls.xml (.../Test.cls.xml) (revision 49909)
+++ vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/LeverAdresMaker/MaakLeverAdres/Test.cls.xml (.../Test.cls.xml) (revision 55673)
@@ -16,16 +16,25 @@
Set ProjectSettingsApiStub = ##class(vhTest.Mock.DOM.common.ProjectSettingsAPI).%New()
Do ProjectSettingsApiStub.IndienMethodCall("IsActiefAxLeverancierId").DanReturn($$$True)
- Set LeverAdresMaker = ##class(AXimpl.Dynamics.SalesOrderIn.Converter.SalesOrderConverter.LeverAdresMaker).%New()
+ Set LandMock = ##class(vhTest.Mock.DOM.common.Land).%New()
+ Do LandMock.VerwachtMethodCall("GeefID").DanReturn(##class(DOM.common.enu.Land).Belgie())
+
+ Set LandRepositoryMock = ##class(vhTest.Mock.DOM.common.Locatie.impl.LandRepository).%New()
+ Do LandRepositoryMock.VerwachtMethodCall("GeefViaLandCodeIso2", "BE").DanReturn(LandMock)
+
+ Set LeverAdresMaker = ##class(AXimpl.Dynamics.SalesOrderIn.Converter.SalesOrderConverter.LeverAdresMaker).%New(,,,,LandRepositoryMock)
#dim LeverAdres As DOM.VKP.impl.LeverAdres = LeverAdresMaker.MaakLeverAdres(StandaardOrderHeader)
Do $$$AssertEquals(LeverAdres.Gemeente,StandaardOrderHeader.DlvAddrCity)
Do $$$AssertEquals(LeverAdres.Postcode,StandaardOrderHeader.DlvAddrZipCode)
Do $$$AssertEquals(LeverAdres.Straat,StandaardOrderHeader.DlvAddrStreet1)
- Do $$$AssertEquals(LeverAdres.LandNr,StandaardOrderHeader.DlvAddrCountry)
+ Do $$$AssertEquals(LeverAdres.LandNr,##class(DOM.common.enu.Land).Belgie())
Do $$$AssertEquals(LeverAdres.Naam,StandaardOrderHeader.DeliveryName)
Do $$$AssertEquals(LeverAdres.Telefoon,"+3237601900")
Do $$$AssertEquals(LeverAdres.AxLeveradresId,"")
+
+ Do LandRepositoryMock.Verifieer()
+ Do LandMock.Verifieer()
]]>
@@ -38,16 +47,25 @@
Set ProjectSettingsApiStub = ##class(vhTest.Mock.DOM.common.ProjectSettingsAPI).%New()
Do ProjectSettingsApiStub.IndienMethodCall("IsActiefAxLeverancierId").DanReturn($$$False)
- Set LeverAdresMaker = ##class(AXimpl.Dynamics.SalesOrderIn.Converter.SalesOrderConverter.LeverAdresMaker).%New(ProjectSettingsApiStub)
+ Set LandMock = ##class(vhTest.Mock.DOM.common.Land).%New()
+ Do LandMock.VerwachtMethodCall("GeefID").DanReturn(##class(DOM.common.enu.Land).Belgie())
+
+ Set LandRepositoryMock = ##class(vhTest.Mock.DOM.common.Locatie.impl.LandRepository).%New()
+ Do LandRepositoryMock.VerwachtMethodCall("GeefViaLandCodeIso2", "BE").DanReturn(LandMock)
+
+ Set LeverAdresMaker = ##class(AXimpl.Dynamics.SalesOrderIn.Converter.SalesOrderConverter.LeverAdresMaker).%New(ProjectSettingsApiStub,,,,LandRepositoryMock)
#dim LeverAdres As DOM.VKP.impl.LeverAdres = LeverAdresMaker.MaakLeverAdres(StandaardOrderHeader)
Do $$$AssertEquals(LeverAdres.Gemeente,StandaardOrderHeader.DlvAddrCity)
Do $$$AssertEquals(LeverAdres.Postcode,StandaardOrderHeader.DlvAddrZipCode)
Do $$$AssertEquals(LeverAdres.Straat,StandaardOrderHeader.DlvAddrStreet1)
- Do $$$AssertEquals(LeverAdres.LandNr,StandaardOrderHeader.DlvAddrCountry)
+ Do $$$AssertEquals(LeverAdres.LandNr,##class(DOM.common.enu.Land).Belgie())
Do $$$AssertEquals(LeverAdres.Naam,StandaardOrderHeader.DeliveryName)
Do $$$AssertEquals(LeverAdres.Telefoon,"+3237601900")
Do $$$AssertEquals(LeverAdres.AxLeveradresId,"")
+
+ Do LandRepositoryMock.Verifieer()
+ Do LandMock.Verifieer()
]]>
Index: AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/LeverAdresMaker.cls.xml
===================================================================
diff -u -r50462 -r55673
--- AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/LeverAdresMaker.cls.xml (.../LeverAdresMaker.cls.xml) (revision 50462)
+++ AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/LeverAdresMaker.cls.xml (.../LeverAdresMaker.cls.xml) (revision 55673)
@@ -18,6 +18,11 @@
1
+
+DOM.common.Locatie.impl.LandRepository
+1
+
+
TECH.Mail.MailAPI
1
@@ -29,7 +34,7 @@
-ProjectSettingsApi:DOM.common.ProjectSettingsAPI,LeverAdresRepository:DOM.VKP.impl.LeverAdresRepository,MailApi:TECH.Mail.MailAPI="",VerkoopApi:DOM.VKP.VerkoopAPI
+ProjectSettingsApi:DOM.common.ProjectSettingsAPI,LeverAdresRepository:DOM.VKP.impl.LeverAdresRepository,MailApi:TECH.Mail.MailAPI="",VerkoopApi:DOM.VKP.VerkoopAPI,LandRepository:DOM.common.Locatie.impl.LandRepository
1
1
%Status
@@ -40,7 +45,8 @@
Set ..LeverAdresRepository = $$$Inject(LeverAdresRepository,##class(DOM.VKP.impl.LeverAdresRepository).%New())
Set ..MailApi = $$$Inject(MailApi, ##class(TECH.Context).Instance().GeefMailAPI())
Set ..VerkoopApi = $$$Inject(VerkoopApi, ##class(DOM.VKP.impl.VerkoopAPI).%New())
-
+ Set ..LandRepository = $$$Inject(LandRepository,##class(DOM.common.Locatie.impl.LandRepository).%New())
+
Quit $$$OK
]]>
@@ -54,7 +60,7 @@
Do LeverAdres.ZetGemeente(OrderHeader.DlvAddrCity)
Do LeverAdres.ZetPostcode(OrderHeader.DlvAddrZipCode)
Do LeverAdres.ZetStraat(OrderHeader.DlvAddrStreet1)
- Do LeverAdres.ZetLandNr(OrderHeader.DlvAddrCountry)
+ Do LeverAdres.ZetLandNr(..LandRepository.GeefViaLandCodeIso2(OrderHeader.DlvAddrCountry).GeefID())
Do LeverAdres.ZetNaam(OrderHeader.DeliveryName)
If ($$$HasLength(OrderHeader.LocationId) && (..ProjectSettingsApi.IsActiefAxLeverancierId())){
Index: vhTest/Utils/AXif/Dynamics/SalesOrderIn/Envelope.cls.xml
===================================================================
diff -u -r54932 -r55673
--- vhTest/Utils/AXif/Dynamics/SalesOrderIn/Envelope.cls.xml (.../Envelope.cls.xml) (revision 54932)
+++ vhTest/Utils/AXif/Dynamics/SalesOrderIn/Envelope.cls.xml (.../Envelope.cls.xml) (revision 55673)
@@ -14,7 +14,7 @@
Set OrderHeader.DlvAddrCity = "Sint-Niklaas"
Set OrderHeader.DlvAddrZipCode = "9100"
Set OrderHeader.DlvAddrStreet1 = "Ankerstraat 91"
- Set OrderHeader.DlvAddrCountry = "1019"
+ Set OrderHeader.DlvAddrCountry = "BE"
Set OrderHeader.DeliveryName = "Een Belg"
Set OrderHeader.CustomerRef = "CustomerRef"
Set OrderHeader.CreatedDateTimeHeader = ##class(AXif.Dynamics.SalesOrderIn.MessageParts.AxdExtTypeCreatedDateTime).%New()
Index: AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml
===================================================================
diff -u -r55646 -r55673
--- AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml (.../SalesOrderConverter.cls.xml) (revision 55646)
+++ AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml (.../SalesOrderConverter.cls.xml) (revision 55673)
@@ -88,6 +88,11 @@
1
+
+DOM.common.Locatie.impl.LandRepository
+1
+
+
%String
1
@@ -109,7 +114,7 @@
-OrderAPI:DOM.VKP.OrderAPI,OrderLevenCyclusService:APPS.VKP.OrderLevenCyclusService,DateTimeAPI:TECH.DateTime.DateTimeAPI="",ProductBepaler:AXimpl.Admin.Common.ProductBepaler,DocumentReferentiesRepository:DOM.VKP.DocumentReferentiesRepository,OrderlijnenSorteerder:AXimpl.Dynamics.SalesOrderIn.Converter.OrderlijnenSorteerder,OrderSluiter:CHUI.VKP.OrderIngave.BevestigdAXOrderSluiterv01,ToeleveringService:AXimpl.Dynamics.SalesOrderIn.Converter.ToeleveringService,OrderIngaveService:APPS.VKP.OrderIngaveService,OfferteRepository:APPS.VKP.Offerte.OfferteRepository,SalesOrderLineStatusRepository:AXdata.Dynamics.SalesLineStatus.SalesOrderLineStatusRepository,VerkoopApi:DOM.VKP.VerkoopAPI,Mailer:AXimpl.Dynamics.SalesOrderIn.Converter.Mailer,LeverAdresMaker:AXimpl.Dynamics.SalesOrderIn.Converter.SalesOrderConverter.LeverAdresMaker
+OrderAPI:DOM.VKP.OrderAPI,OrderLevenCyclusService:APPS.VKP.OrderLevenCyclusService,DateTimeAPI:TECH.DateTime.DateTimeAPI="",ProductBepaler:AXimpl.Admin.Common.ProductBepaler,DocumentReferentiesRepository:DOM.VKP.DocumentReferentiesRepository,OrderlijnenSorteerder:AXimpl.Dynamics.SalesOrderIn.Converter.OrderlijnenSorteerder,OrderSluiter:CHUI.VKP.OrderIngave.BevestigdAXOrderSluiterv01,ToeleveringService:AXimpl.Dynamics.SalesOrderIn.Converter.ToeleveringService,OrderIngaveService:APPS.VKP.OrderIngaveService,OfferteRepository:APPS.VKP.Offerte.OfferteRepository,SalesOrderLineStatusRepository:AXdata.Dynamics.SalesLineStatus.SalesOrderLineStatusRepository,VerkoopApi:DOM.VKP.VerkoopAPI,Mailer:AXimpl.Dynamics.SalesOrderIn.Converter.Mailer,LeverAdresMaker:AXimpl.Dynamics.SalesOrderIn.Converter.SalesOrderConverter.LeverAdresMaker,LandRepository:DOM.common.Locatie.impl.LandRepository
1
1
%Status
@@ -128,6 +133,7 @@
Set ..SalesOrderLineStatusRepository = $$$Inject(SalesOrderLineStatusRepository, ##class(AXdata.Dynamics.SalesLineStatus.SalesOrderLineStatusRepository).%New())
Set ..Mailer = $$$Inject(Mailer,##class(AXimpl.Dynamics.SalesOrderIn.Converter.Mailer).%New())
Set ..LeverAdresMaker = $$$Inject(LeverAdresMaker,##class(AXimpl.Dynamics.SalesOrderIn.Converter.SalesOrderConverter.LeverAdresMaker).%New())
+ Set ..LandRepository = $$$Inject(LandRepository,##class(DOM.common.Locatie.impl.LandRepository).%New())
Set ..VerkoopApi = $$$Inject(VerkoopApi, ##class(DOM.VKP.impl.VerkoopAPI).%New())
@@ -666,7 +672,8 @@
right
-OrderAPI:DOM.VKP.OrderAPI,OrderLevenCyclusService:APPS.VKP.OrderLevenCyclusService,DateTimeAPI:TECH.DateTime.DateTimeAPI="",ProductBepaler:AXimpl.Admin.Common.ProductBepaler,DocumentReferentiesRepository:DOM.VKP.DocumentReferentiesRepository,OrderlijnenSorteerder:AXimpl.Dynamics.SalesOrderIn.Converter.OrderlijnenSorteerder,OrderSluiter:CHUI.VKP.OrderIngave.BevestigdAXOrderSluiterv01,ToeleveringService:AXimpl.Dynamics.SalesOrderIn.Converter.ToeleveringService,OrderIngaveService:APPS.VKP.OrderIngaveService,OfferteRepository:APPS.VKP.Offerte.OfferteRepository,SalesOrderLineStatusRepository:AXdata.Dynamics.SalesLineStatus.SalesOrderLineStatusRepository,VerkoopApi:DOM.VKP.VerkoopAPI,Mailer:AXimpl.Dynamics.SalesOrderIn.Converter.Mailer,LeverAdresMaker:AXimpl.Dynamics.SalesOrderIn.Converter.SalesOrderConverter.LeverAdresMaker
+OrderAPI:DOM.VKP.OrderAPI,OrderLevenCyclusService:APPS.VKP.OrderLevenCyclusService,DateTimeAPI:TECH.DateTime.DateTimeAPI="",ProductBepaler:AXimpl.Admin.Common.ProductBepaler,DocumentReferentiesRepository:DOM.VKP.DocumentReferentiesRepository,OrderlijnenSorteerder:AXimpl.Dynamics.SalesOrderIn.Converter.OrderlijnenSorteerder,OrderSluiter:CHUI.VKP.OrderIngave.BevestigdAXOrderSluiterv01,ToeleveringService:AXimpl.Dynamics.SalesOrderIn.Converter.ToeleveringService,OrderIngaveService:APPS.VKP.OrderIngaveService,OfferteRepository:APPS.VKP.Offerte.OfferteRepository,SalesOrderLineStatusRepository:AXdata.Dynamics.SalesLineStatus.SalesOrderLineStatusRepository,VerkoopApi:DOM.VKP.VerkoopAPI,Mailer:AXimpl.Dynamics.SalesOrderIn.Converter.Mailer,LeverAdresMaker:AXimpl.Dynamics.SalesOrderIn.Converter.SalesOrderConverter.LeverAdresMaker,LandRepository:DOM.common.Locatie.impl.LandRepository
%Status