Index: AXBizTalk/Crm/Customer/Customer.cls.xml
===================================================================
diff -u -r37937 -r37942
--- AXBizTalk/Crm/Customer/Customer.cls.xml (.../Customer.cls.xml) (revision 37937)
+++ AXBizTalk/Crm/Customer/Customer.cls.xml (.../Customer.cls.xml) (revision 37942)
@@ -100,7 +100,47 @@
%String
-
+
+%String
+
+
+
+%String
+
+
+
+%String
+
+
+
+%String
+
+
+
+%String
+
+
+
+%String
+
+
+
+%String
+
+
+
+%String
+
+
+
+%String
+
+
+
+%String
+
+
+
AXBizTalk.Crm.Customer.Address
list
@@ -188,6 +228,42 @@
Adressen
+
+HoofdadresLand
+
+
+HoofdadresPostcode
+
+
+HoofdadresPlaats
+
+
+HoofdadresStraat
+
+
+HoofdadresVerzendwijze
+
+
+BezoekadresLand
+
+
+BezoekadresPostcode
+
+
+BezoekadresPlaats
+
+
+BezoekadresStraat
+
+
+BezoekadresVerzendwijze
+
+
+LeverAdressen
+
+
+Leveradressen
+
Index: AXBizTalk/Crm/Customer/Body.cls.xml
===================================================================
diff -u -r37937 -r37942
--- AXBizTalk/Crm/Customer/Body.cls.xml (.../Body.cls.xml) (revision 37937)
+++ AXBizTalk/Crm/Customer/Body.cls.xml (.../Body.cls.xml) (revision 37942)
@@ -16,7 +16,6 @@
AXBizTalk.Crm.Customer.MessageParts
-
Index: vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml
===================================================================
diff -u -r37932 -r37942
--- vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml (.../Test.cls.xml) (revision 37932)
+++ vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml (.../Test.cls.xml) (revision 37942)
@@ -105,17 +105,17 @@
Do $$$AssertEquals(GeconverteerdeKlant.Kredietlimiet,"1000")
Do $$$AssertEquals(GeconverteerdeKlant.FacturatieFrequentie,"D2")
- Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(1).Klantnummer,"01234")
- Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(1).Straat1,"Fakestraat")
- Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(1).Postcode,"1234")
- Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(1).Plaats,"Fakegem")
- Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(1).LandCodeISO3,"BEL")
- Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(1).Telefoon,"")
- Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(1).Verzendwijze,"")
- Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(1).LeveringAdres,$$$False)
- Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(1).BezoekAdres,$$$False)
- Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(1).ToonzaalAdres,$$$False)
- Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(1).FacturatieAdres,$$$False)
+ Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(1).Klantnummer,"01234")
+ Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(1).Straat1,"Fakestraat")
+ Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(1).Postcode,"1234")
+ Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(1).Plaats,"Fakegem")
+ Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(1).LandCodeISO3,"BEL")
+ Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(1).Telefoon,"")
+ Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(1).Verzendwijze,"")
+ Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(1).LeveringAdres,$$$False)
+ Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(1).BezoekAdres,$$$False)
+ Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(1).ToonzaalAdres,$$$False)
+ Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(1).FacturatieAdres,$$$False)
]]>
@@ -296,30 +296,30 @@
#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = Converter.Convert(..Klant.GeefID())
- If $$$AssertEquals(GeconverteerdeKlant.Adressen.Count(),3) {
- Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).Klantnummer,"01234")
- Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).Straat1,"Straat 1")
- Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).Postcode,"9101")
- Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).Plaats,"Gemeente 1")
- Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).LandCodeISO3,"BEL")
- Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).Telefoon,"03/1234561")
- Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).Verzendwijze,"VerzendingWijze1")
- Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).LeveringAdres,$$$True)
- Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).BezoekAdres,$$$False)
- Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).ToonzaalAdres,$$$False)
- Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).FacturatieAdres,$$$False)
+ If $$$AssertEquals(GeconverteerdeKlant.Leveradressen.Count(),3) {
+ Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(2).Klantnummer,"01234")
+ Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(2).Straat1,"Straat 1")
+ Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(2).Postcode,"9101")
+ Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(2).Plaats,"Gemeente 1")
+ Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(2).LandCodeISO3,"BEL")
+ Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(2).Telefoon,"03/1234561")
+ Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(2).Verzendwijze,"VerzendingWijze1")
+ Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(2).LeveringAdres,$$$True)
+ Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(2).BezoekAdres,$$$False)
+ Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(2).ToonzaalAdres,$$$False)
+ Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(2).FacturatieAdres,$$$False)
- Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(3).Klantnummer,"01234")
- Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(3).Straat1,"Straat 2")
- Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(3).Postcode,"9102")
- Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(3).Plaats,"Gemeente 2")
- Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(3).LandCodeISO3,"BEL")
- Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(3).Telefoon,"03/1234562")
- Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(3).Verzendwijze,"VerzendingWijze2")
- Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(3).LeveringAdres,$$$True)
- Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(3).BezoekAdres,$$$False)
- Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(3).ToonzaalAdres,$$$False)
- Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(3).FacturatieAdres,$$$False)
+ Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(3).Klantnummer,"01234")
+ Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(3).Straat1,"Straat 2")
+ Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(3).Postcode,"9102")
+ Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(3).Plaats,"Gemeente 2")
+ Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(3).LandCodeISO3,"BEL")
+ Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(3).Telefoon,"03/1234562")
+ Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(3).Verzendwijze,"VerzendingWijze2")
+ Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(3).LeveringAdres,$$$True)
+ Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(3).BezoekAdres,$$$False)
+ Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(3).ToonzaalAdres,$$$False)
+ Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(3).FacturatieAdres,$$$False)
}
]]>
@@ -330,7 +330,7 @@
#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = Converter.Convert(..Klant.GeefID())
- Do $$$AssertEquals(GeconverteerdeKlant.Adressen.Count(),1)
+ Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.Count(),1)
]]>
@@ -342,18 +342,18 @@
#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = Converter.Convert(..Klant.GeefID())
- If $$$AssertEquals(GeconverteerdeKlant.Adressen.Count(),2) {
- Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).Klantnummer,"01234")
- Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).Straat1,"Fakestraat")
- Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).Postcode,"1234")
- Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).Plaats,"Fakegem")
- Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).LandCodeISO3,"BEL")
- Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).Telefoon,"")
- Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).Verzendwijze,"")
- Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).LeveringAdres,$$$False)
- Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).BezoekAdres,$$$True)
- Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).ToonzaalAdres,$$$False)
- Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).FacturatieAdres,$$$False)
+ If $$$AssertEquals(GeconverteerdeKlant.Leveradressen.Count(),2) {
+ Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(2).Klantnummer,"01234")
+ Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(2).Straat1,"Fakestraat")
+ Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(2).Postcode,"1234")
+ Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(2).Plaats,"Fakegem")
+ Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(2).LandCodeISO3,"BEL")
+ Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(2).Telefoon,"")
+ Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(2).Verzendwijze,"")
+ Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(2).LeveringAdres,$$$False)
+ Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(2).BezoekAdres,$$$True)
+ Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(2).ToonzaalAdres,$$$False)
+ Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(2).FacturatieAdres,$$$False)
}
]]>
@@ -368,26 +368,26 @@
#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = Converter.Convert(..Klant.GeefID())
- If $$$AssertEquals(GeconverteerdeKlant.Adressen.Count(),4) {
- Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(1).LeveringAdres,$$$False)
- Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(1).BezoekAdres,$$$False)
- Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(1).ToonzaalAdres,$$$False)
- Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(1).FacturatieAdres,$$$False)
+ If $$$AssertEquals(GeconverteerdeKlant.Leveradressen.Count(),4) {
+ Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(1).LeveringAdres,$$$False)
+ Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(1).BezoekAdres,$$$False)
+ Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(1).ToonzaalAdres,$$$False)
+ Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(1).FacturatieAdres,$$$False)
- Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).LeveringAdres,$$$True)
- Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).BezoekAdres,$$$False)
- Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).ToonzaalAdres,$$$False)
- Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).FacturatieAdres,$$$False)
+ Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(2).LeveringAdres,$$$True)
+ Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(2).BezoekAdres,$$$False)
+ Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(2).ToonzaalAdres,$$$False)
+ Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(2).FacturatieAdres,$$$False)
- Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(3).LeveringAdres,$$$True)
- Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(3).BezoekAdres,$$$False)
- Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(3).ToonzaalAdres,$$$False)
- Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(3).FacturatieAdres,$$$False)
+ Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(3).LeveringAdres,$$$True)
+ Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(3).BezoekAdres,$$$False)
+ Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(3).ToonzaalAdres,$$$False)
+ Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(3).FacturatieAdres,$$$False)
- Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(4).LeveringAdres,$$$False)
- Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(4).BezoekAdres,$$$True)
- Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(4).ToonzaalAdres,$$$False)
- Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(4).FacturatieAdres,$$$False)
+ Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(4).LeveringAdres,$$$False)
+ Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(4).BezoekAdres,$$$True)
+ Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(4).ToonzaalAdres,$$$False)
+ Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(4).FacturatieAdres,$$$False)
}
]]>
@@ -402,8 +402,8 @@
#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = Converter.Convert(..Klant.GeefID())
- If $$$AssertEquals(GeconverteerdeKlant.Adressen.Count(),2) {
- Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).LandCodeISO3,"BEL")
+ If $$$AssertEquals(GeconverteerdeKlant.Leveradressen.Count(),2) {
+ Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(2).LandCodeISO3,"BEL")
}
]]>
Index: AXimpl/BizTalkMessage/Converter/CustomerConverter.cls.xml
===================================================================
diff -u -r37932 -r37942
--- AXimpl/BizTalkMessage/Converter/CustomerConverter.cls.xml (.../CustomerConverter.cls.xml) (revision 37932)
+++ AXimpl/BizTalkMessage/Converter/CustomerConverter.cls.xml (.../CustomerConverter.cls.xml) (revision 37942)
@@ -186,7 +186,7 @@
Set CRMAdres.BezoekAdres = $$$False
Set CRMAdres.ToonzaalAdres = $$$False
Set CRMAdres.FacturatieAdres = $$$False
- Do ..Customer.Adressen.Insert(CRMAdres)
+ Do ..Customer.Leveradressen.Insert(CRMAdres)
#dim LeverAdresIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(..Klant.GeefLeverAdressen())
While LeverAdresIterator.HasNext() {
@@ -203,7 +203,7 @@
Set CRMAdres.BezoekAdres = $$$False
Set CRMAdres.ToonzaalAdres = $$$False
Set CRMAdres.FacturatieAdres = $$$False
- Do ..Customer.Adressen.Insert(CRMAdres)
+ Do ..Customer.Leveradressen.Insert(CRMAdres)
}
If $IsObject(..Klant.GeefBezoekAdres()){
@@ -223,7 +223,7 @@
Set CRMAdres.BezoekAdres = $$$True
Set CRMAdres.ToonzaalAdres = $$$False
Set CRMAdres.FacturatieAdres = $$$False
- Do ..Customer.Adressen.Insert(CRMAdres)
+ Do ..Customer.Leveradressen.Insert(CRMAdres)
}
]]>