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) } ]]>