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?