Index: vhUnitTest/APPS/TRANSP/TransportService/GeefLeveringInfo/BasisGegevens/Test.cls.xml =================================================================== diff -u -r66251 -r69971 --- vhUnitTest/APPS/TRANSP/TransportService/GeefLeveringInfo/BasisGegevens/Test.cls.xml (.../Test.cls.xml) (revision 66251) +++ vhUnitTest/APPS/TRANSP/TransportService/GeefLeveringInfo/BasisGegevens/Test.cls.xml (.../Test.cls.xml) (revision 69971) @@ -191,7 +191,7 @@ Do $$$AssertEquals(LeveringInfo.GeleverdAanKlantNummer,"1736") Do $$$AssertEquals(LeveringInfo.Telefoon,"UnitTest_Telefoon") - Do ..AssertAdres("DU PONT BVBA" ,LeveringInfo.AfzenderAdres,"","BE","2242","KLEINHEIDE 24G","HOECKE","PULDERBOS") + Do ..AssertAdres("DU PONT BVBA" ,LeveringInfo.AfzenderAdres,"","BE","2280","BOUWELVEN 16","HOECKE","GROBBENDONK") Do ..AssertAdres("UnitTest_Naam",LeveringInfo.LeverAdres,"UnitTest_Aanspreking","BE","1000","UnitTest_Straat","UnitTest_Toenaam","UnitTest_Gemeente") ]]> Index: TRANSPEA.mac.rou =================================================================== diff -u -r56303 -r69971 --- TRANSPEA.mac.rou (.../TRANSPEA.mac.rou) (revision 56303) +++ TRANSPEA.mac.rou (.../TRANSPEA.mac.rou) (revision 69971) @@ -148,7 +148,7 @@ Do:(KLNr=##class(DOM.PARTIJ.impl.LegacyPartijAPI).%New().GeefKlantNummerVoorPartijID(##class(DOM.VKP.enu.Klant).HaefeleNederland())) .Set Naam="HAEFELE NEDERLAND",Straat="POSTBUS",Nummer="1085",PostCode=##class(DOM.common.impl.AdresUtils).MaakPostcodeGlsVriendelijk("NL-7333-NZ"),Gemeente="APELDOORN",Land=$$LAND^vhRtn1(1147),Telefoon="0031-55-541 90 00" Do:($$GebruikDuPontAdres(KLNr)) - .Set Naam="DU PONT BVBA",Straat="KLEINHEIDE",Nummer="24G",PostCode=##class(DOM.common.impl.AdresUtils).MaakPostcodeGlsVriendelijk("BE 2242"),Gemeente="PULDERBOS",Land=$$LAND^vhRtn1(1019),Telefoon="+32 3 464 00 91" + .Set Naam="DU PONT BVBA",Straat="BOUWELVEN",Nummer="16",PostCode=##class(DOM.common.impl.AdresUtils).MaakPostcodeGlsVriendelijk("BE 2280"),Gemeente="GROBBENDONK",Land=$$LAND^vhRtn1(1019),Telefoon="+32 3 464 00 91" Set:Afzender="" Afzender=$P(^TRANSP("T",TranspNr),"\",2) Set Bedrijf = ##class(Res.Bedrijf).%New() Set Naam=$G(Naam,Bedrijf.Naam) Index: BL/Flow/Proxy/impl/LeverbonHoofdingBepaler.cls.xml =================================================================== diff -u -r69131 -r69971 --- BL/Flow/Proxy/impl/LeverbonHoofdingBepaler.cls.xml (.../LeverbonHoofdingBepaler.cls.xml) (revision 69131) +++ BL/Flow/Proxy/impl/LeverbonHoofdingBepaler.cls.xml (.../LeverbonHoofdingBepaler.cls.xml) (revision 69971) @@ -311,9 +311,9 @@ Set ..LeverbonHoofding.LOGO = ##class(BL.FOP.Basis.pxAttribType).Create(URL,##class(TECH.StringUtils).ToUpper(Extensie),,) } Set ..LeverbonHoofding.NAAM = "DU PONT BVBA" - Set ..LeverbonHoofding.STRAATNRBUS = "Kleinheide 24G" - Set ..LeverbonHoofding.WOONPLAATS = "Pulderbos" - Set ..LeverbonHoofding.POSTCODE = "BE 2242" + Set ..LeverbonHoofding.STRAATNRBUS = "Bouwelven 16" + Set ..LeverbonHoofding.WOONPLAATS = "Grobbendonk" + Set ..LeverbonHoofding.POSTCODE = "BE 2280" Set ..LeverbonHoofding.TELEFOON = "Tel.: +32 3 464 00 91" Set ..LeverbonHoofding.FAX = "Fax.: +32 3 464 00 92" Set ..LeverbonHoofding.EMAIL = "info@du-pont.be" Index: vhUnitTest/BL/Flow/Proxy/pxLevering/TestAfzenderHoofding.cls.xml =================================================================== diff -u -r62614 -r69971 --- vhUnitTest/BL/Flow/Proxy/pxLevering/TestAfzenderHoofding.cls.xml (.../TestAfzenderHoofding.cls.xml) (revision 62614) +++ vhUnitTest/BL/Flow/Proxy/pxLevering/TestAfzenderHoofding.cls.xml (.../TestAfzenderHoofding.cls.xml) (revision 69971) @@ -235,9 +235,9 @@ #dim afzender As BL.FOP.Derde.pxAfzenderHoofding =pxLevering.AfzenderHoofding If $$$AssertTrue($IsObject(afzender)){ Do $$$AssertEquals(afzender.NAAM,"DU PONT BVBA","Klantnaam") - Do $$$AssertEquals(afzender.STRAATNRBUS,"Kleinheide 24G","Straat") - Do $$$AssertEquals(afzender.POSTCODE,"BE 2242","Postcode") - Do $$$AssertEquals(afzender.WOONPLAATS,"Pulderbos","Woonplaats") + Do $$$AssertEquals(afzender.STRAATNRBUS,"Bouwelven 16","Straat") + Do $$$AssertEquals(afzender.POSTCODE,"BE 2280","Postcode") + Do $$$AssertEquals(afzender.WOONPLAATS,"Grobbendonk","Woonplaats") Do $$$AssertEquals(afzender.EMAIL,"info@du-pont.be") Do $$$AssertEquals(afzender.TELEFOON,"Tel.: +32 3 464 00 91") Do $$$AssertEquals(afzender.FAX,"Fax.: +32 3 464 00 92") @@ -255,7 +255,7 @@ } Do $$$AssertEquals(pxLevering.HeaderType,##class(BL.FOP.Proxy.enu.HoofdingType).Custom()) - Do $$$AssertEquals(pxLevering.KlantTelefoon,"") + Do $$$AssertEquals(pxLevering.KlantTelefoon,"0031-184-67 55 55") Do $$$AssertEquals(pxLevering.BTWNR,"") Do $$$AssertEquals(pxLevering.FactuurAan,"","""Factuur aan: "" niet ingevuld") Do $$$AssertEquals(pxLevering.CheckSumBon,"","Checksum niet ingevuld")