Index: vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils/MaakPrimairAdres/Test.cls.xml =================================================================== diff -u -r49737 -r50030 --- vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils/MaakPrimairAdres/Test.cls.xml (.../Test.cls.xml) (revision 49737) +++ vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils/MaakPrimairAdres/Test.cls.xml (.../Test.cls.xml) (revision 50030) @@ -15,6 +15,14 @@ 0000345678 + +01234 + + + +TestKlant + + + + + + AxLocationIdLijst:%List 1 Index: vhTest/Fake/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils.cls.xml =================================================================== diff -u -r49725 -r50030 --- vhTest/Fake/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils.cls.xml (.../LeverAdresUtils.cls.xml) (revision 49725) +++ vhTest/Fake/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils.cls.xml (.../LeverAdresUtils.cls.xml) (revision 50030) @@ -8,7 +8,7 @@ AXimpl.Dynamics.CustomerIn.Converter.LeverAdresUtils -Cust:AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust,InsertOfUpdate:%String +Cust:AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust,IsAxHoofdadresMeegegeven:%Boolean DOM.VKP.LeverAdres Index: vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter/Test.cls.xml =================================================================== diff -u -r49983 -r50030 --- vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter/Test.cls.xml (.../Test.cls.xml) (revision 49983) +++ vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter/Test.cls.xml (.../Test.cls.xml) (revision 50030) @@ -41,7 +41,7 @@ ]]> - + - + + + + + - + + +PartijMock:vhTest.Mock.DOM.PARTIJ.Partij,Adres:DOM.VKP.LeverAdres +1 + + + 1 DOM.VKP.VanHoeckeKlant @@ -179,7 +224,7 @@ Set Matcher1 = ##class(vhUnitTest.AXimpl.Dynamics.CustomerIn.Converter.CustomerInConverter.PartijMatcher).%New(VerwachteKlantDto) Do ..KlantLevenCyclusServiceMock.VerwachtMethodCall("MaakKlant",Matcher1,"ONDERNEMING").DanReturn("K||1111") - #dim LeverAdres As DOM.VKP.LeverAdres = ..GeefAddress() + #dim LeverAdres As DOM.VKP.LeverAdres = ..GeefAdres() DO ..VerkoopApiMock.VerwachtMethodCall("GeefKlant","K||1111").DanReturn(KlantMock) Do KlantMock.VerwachtMethodCall("Save").DanDoeNiks() @@ -207,13 +252,13 @@ Set KlantDto.Telefoon1 = "03-464 00 91" - Set KlantDto.Adres = ..GeefAddress() + Set KlantDto.Adres = ..GeefAdres() Quit KlantDto ]]> - + 1 DOM.VKP.LeverAdres + +1 +DOM.VKP.LeverAdres + + + CustAccount:%String,Name:%String 1 @@ -252,6 +306,26 @@ ]]> + +CustAccount:%String,Name:%String +1 +AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust + + + 1 AXif.Dynamics.CustomerIn.MessageParts.AxdEntityPostalAddress Index: vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter/LeverAdresUtilsMock.cls.xml =================================================================== diff -u --- vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter/LeverAdresUtilsMock.cls.xml (revision 0) +++ vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter/LeverAdresUtilsMock.cls.xml (revision 50030) @@ -0,0 +1,17 @@ + + + +vhTest.Mock.AXimpl.Dynamics.CustomerIn.Converter.LeverAdresUtils + + + +DOM.VKP.LeverAdres + + + + + + Index: AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter.cls.xml =================================================================== diff -u -r49983 -r50030 --- AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter.cls.xml (.../CustomerInConverter.cls.xml) (revision 49983) +++ AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter.cls.xml (.../CustomerInConverter.cls.xml) (revision 50030) @@ -77,17 +77,18 @@ #dim KlantPartij As DOM.PARTIJ.Partij = ..PartijApi.GeefPartij(KlantId) #Dim Klant as DOM.VKP.VanHoeckeKlant = ..VerkoopApi.GeefKlant(KlantId) - Do KlantPartij.ZetTaal(..AxToAdminUtils.ConvertLanguageId(Cust.LanguageId)) - Do KlantPartij.ZetBTWNr(..GeefBTWNummer(Cust)) - Do KlantPartij.ZetNaam($Piece(..AxToAdminUtils.ConvertCustNameToNaamToenaamEnAanspreking(Cust.Name),"||",1)) Do KlantPartij.ZetToenaam($Piece(..AxToAdminUtils.ConvertCustNameToNaamToenaamEnAanspreking(Cust.Name),"||",2)) Do KlantPartij.ZetAanspreking($Piece(..AxToAdminUtils.ConvertCustNameToNaamToenaamEnAanspreking(Cust.Name),"||",3)) - Do KlantPartij.ZetTaal(..GeefTaal(Cust)) + Do KlantPartij.ZetTaal(..AxToAdminUtils.ConvertLanguageId(Cust.LanguageId)) + Do KlantPartij.ZetBTWNr(..GeefBTWNummer(Cust)) Do KlantPartij.ZetTelefoon1(..GeefTelefoon1(Cust)) - #dim PrimairAdres As DOM.VKP.LeverAdres = ..LeverAdresUtils.MaakPrimairAdres(Cust) ;Do KlantPartij.Zet ??? (..GeefFax(Cust)) geen zetbare property op klant of partij - Do KlantPartij.ZetAdres(PrimairAdres) + #dim IsAxHoofdadresMeegegeven As %Boolean = $$$True + #dim PrimairAdres As DOM.VKP.LeverAdres = ..LeverAdresUtils.MaakPrimairAdres(Cust,.IsAxHoofdadresMeegegeven) + If IsAxHoofdadresMeegegeven { + Do KlantPartij.ZetAdres(PrimairAdres) + } Do KlantPartij.Save() Do Klant.Save() @@ -107,7 +108,7 @@ Set dtoKlant.KlantNaam = $Piece(..AxToAdminUtils.ConvertCustNameToNaamToenaamEnAanspreking(Cust.Name),"||",1) Set dtoKlant.Toenaam = $Piece(..AxToAdminUtils.ConvertCustNameToNaamToenaamEnAanspreking(Cust.Name),"||",2) Set dtoKlant.Aanspreking = $Piece(..AxToAdminUtils.ConvertCustNameToNaamToenaamEnAanspreking(Cust.Name),"||",3) - Set dtoKlant.Taal = ..GeefTaal(Cust) + Set dtoKlant.Taal = ..AxToAdminUtils.ConvertLanguageId(Cust.LanguageId) Set dtoKlant.Telefoon1 = ..GeefTelefoon1(Cust) Set dtoKlant.Fax = ..GeefFax(Cust) ; wordt blijkbaar niet in service gebruikt !!!!! Set dtoKlant.BTWNummer = ..GeefBTWNummer(Cust) @@ -117,8 +118,8 @@ ; Set dtoKlant.Prijsklase = ??? ; Set dtoKlant.Opmerking1 = ??? ; Set dtoKlant.FrequentieAanbrengerCommissie = ??? - - Set dtoKlant.Adres = ..LeverAdresUtils.MaakPrimairAdres(Cust) + #dim IsAxHoofdadresMeegegeven As %Boolean = $$$True + Set dtoKlant.Adres = ..LeverAdresUtils.MaakPrimairAdres(Cust,IsAxHoofdadresMeegegeven) #dim PartijID As DOM.common.PartijID = ..KlantLevenCyclusService.MaakKlant(dtoKlant,TypeTemplateKlant) #Dim Klant as DOM.VKP.VanHoeckeKlant = ..VerkoopApi.GeefKlant(PartijID) @@ -224,21 +225,12 @@ #dim Role As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityRole = RoleIterator.Next() If ((Role.Name = "Business") && (Address.IsPrimary="Yes") && $$$Not(Address.CountryRegionId = "")) { Set CountryRegionId = ..LandRepository.GeefViaLandCodeIso3(Address.CountryRegionId).GeefCode() - } Else { - // Error wegens geen Role = "Business" of geen CountryRegionId - } + } } - } + } Quit ##class(AXimpl.Formatter).%New().FormatVATNumToCache(VATNum,CountryRegionId) ]]> - - -Cust:AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust -1 - - Index: vhTest/Mock/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils.cls.xml =================================================================== diff -u -r49725 -r50030 --- vhTest/Mock/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils.cls.xml (.../LeverAdresUtils.cls.xml) (revision 49725) +++ vhTest/Mock/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils.cls.xml (.../LeverAdresUtils.cls.xml) (revision 50030) @@ -9,9 +9,9 @@ right -Cust:AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust + DOM.VKP.LeverAdres - Index: AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils.cls.xml =================================================================== diff -u -r50000 -r50030 --- AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils.cls.xml (.../LeverAdresUtils.cls.xml) (revision 50000) +++ AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils.cls.xml (.../LeverAdresUtils.cls.xml) (revision 50030) @@ -51,17 +51,23 @@ -Cust:AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust + DOM.VKP.LeverAdres FishEye: Tag 50030 refers to a dead (removed) revision in file `vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils/ZetLeverAdressenBestaandeKlant/Test.cls.xml'. FishEye: No comparison available. Pass `N' to diff?