Index: APPS/common/dto/Adres.cls.xml =================================================================== diff -u -r55953 -r66902 --- APPS/common/dto/Adres.cls.xml (.../Adres.cls.xml) (revision 55953) +++ APPS/common/dto/Adres.cls.xml (.../Adres.cls.xml) (revision 66902) @@ -44,6 +44,14 @@ %String + + +%String + + + +%String + Index: APPS/VKP/impl/Offerte.cls.xml =================================================================== diff -u -r62004 -r66902 --- APPS/VKP/impl/Offerte.cls.xml (.../Offerte.cls.xml) (revision 62004) +++ APPS/VKP/impl/Offerte.cls.xml (.../Offerte.cls.xml) (revision 66902) @@ -385,6 +385,7 @@ Set ..LeverAdres.Opmerking1 = LeverAdres.GeefOpmerking1() Set ..LeverAdres.Opmerking2 = LeverAdres.GeefOpmerking2() Set ..LeverAdres.Volmacht = LeverAdres.GeefVolmacht() + Set ..LeverAdres.Telefoon = LeverAdres.GeefTelefoon() ]]> Index: vhUnitTest/APPS/TRANSP/AdresMock.cls.xml =================================================================== diff -u -r29059 -r66902 --- vhUnitTest/APPS/TRANSP/AdresMock.cls.xml (.../AdresMock.cls.xml) (revision 29059) +++ vhUnitTest/APPS/TRANSP/AdresMock.cls.xml (.../AdresMock.cls.xml) (revision 66902) @@ -74,6 +74,11 @@ + + + + Index: DOM/VKP/LeverAdres.cls.xml =================================================================== diff -u -r50267 -r66902 --- DOM/VKP/LeverAdres.cls.xml (.../LeverAdres.cls.xml) (revision 50267) +++ DOM/VKP/LeverAdres.cls.xml (.../LeverAdres.cls.xml) (revision 66902) @@ -135,6 +135,16 @@ 1 UniekId:%String + + +1 +Provincie:%String + + + +1 +%String + Index: vhTestFiles/IntegratieTests/Webservices.WSDLControle/Test/WS.EC.ExterneVerkoopService.txt =================================================================== diff -u -r66260 -r66902 --- vhTestFiles/IntegratieTests/Webservices.WSDLControle/Test/WS.EC.ExterneVerkoopService.txt (.../WS.EC.ExterneVerkoopService.txt) (revision 66260) +++ vhTestFiles/IntegratieTests/Webservices.WSDLControle/Test/WS.EC.ExterneVerkoopService.txt (.../WS.EC.ExterneVerkoopService.txt) (revision 66902) @@ -122,6 +122,8 @@ + + @@ -142,6 +144,8 @@ + + Index: APPS/common/impl/LeverAdresConvertor.cls.xml =================================================================== diff -u -r49629 -r66902 --- APPS/common/impl/LeverAdresConvertor.cls.xml (.../LeverAdresConvertor.cls.xml) (revision 49629) +++ APPS/common/impl/LeverAdresConvertor.cls.xml (.../LeverAdresConvertor.cls.xml) (revision 66902) @@ -18,6 +18,8 @@ Set LeverAdres.Taal = Object.GeefTaal() Set LeverAdres.Toenaam = Object.GeefToenaam() Set LeverAdres.Woonplaats = Object.GeefGemeente() + Set LeverAdres.Provincie = Object.GeefProvincie() + Set LeverAdres.Telefoon = Object.GeefTelefoon() Quit LeverAdres ]]> @@ -39,6 +41,8 @@ Set LeverAdres.Toenaam = DataTransferObject.Toenaam Set LeverAdres.Gemeente = DataTransferObject.Woonplaats Set LeverAdres.AxLeveradresId = DataTransferObject.AxLeveradresId + Set LeverAdres.Provincie = DataTransferObject.Provincie + Set LeverAdres.Telefoon = DataTransferObject.Telefoon If DataTransferObject.%IsA("APPS.TRANSP.dto.LeveringAdres") { Set LeverAdres.Volmacht = DataTransferObject.Volmacht Index: vhTest/Mock/DOM/VKP/LeverAdres.cls.xml =================================================================== diff -u -r50267 -r66902 --- vhTest/Mock/DOM/VKP/LeverAdres.cls.xml (.../LeverAdres.cls.xml) (revision 50267) +++ vhTest/Mock/DOM/VKP/LeverAdres.cls.xml (.../LeverAdres.cls.xml) (revision 66902) @@ -85,6 +85,12 @@ ]]> + +%String + + + %String + +Provincie:%String + + + Straat:%String + + @@ -143,6 +145,8 @@ + + Index: DOM/VKP/impl/LeverAdres.cls.xml =================================================================== diff -u -r50267 -r66902 --- DOM/VKP/impl/LeverAdres.cls.xml (.../LeverAdres.cls.xml) (revision 50267) +++ DOM/VKP/impl/LeverAdres.cls.xml (.../LeverAdres.cls.xml) (revision 66902) @@ -89,6 +89,10 @@ %String + +%String + + 1 1 @@ -268,6 +272,18 @@ + + +%String + + + + +Provincie:%String + + Index: vhUnitTest/DOM/VKP/impl/LeverAdresRepository/Bewaar.cls.xml =================================================================== diff -u -r54119 -r66902 --- vhUnitTest/DOM/VKP/impl/LeverAdresRepository/Bewaar.cls.xml (.../Bewaar.cls.xml) (revision 54119) +++ vhUnitTest/DOM/VKP/impl/LeverAdresRepository/Bewaar.cls.xml (.../Bewaar.cls.xml) (revision 66902) @@ -86,6 +86,7 @@ Do $$$AssertEquals(OpgehaaldLeverAdres.GeefType(),LeverAdres.GeefType()) Do $$$AssertEquals(OpgehaaldLeverAdres.GeefVerzendingWijze(),LeverAdres.GeefVerzendingWijze()) Do $$$AssertEquals(OpgehaaldLeverAdres.GeefAxLeveradresId(),LeverAdres.GeefAxLeveradresId()) + Do $$$AssertEquals(OpgehaaldLeverAdres.GeefProvincie(),LeverAdres.GeefProvincie()) ]]> @@ -138,6 +139,7 @@ Do LeverAdres.ZetVolmacht("VOLMACHTGLS") Do LeverAdres.ZetAxLeveradresId("AxLeveradresId") Do LeverAdres.ZetKlantAdresNr("1") + Do LeverAdres.ZetProvincie("Provincie") Quit LeverAdres ]]> Index: DOM/VKP/impl/LeverAdresRepository.cls.xml =================================================================== diff -u -r64011 -r66902 --- DOM/VKP/impl/LeverAdresRepository.cls.xml (.../LeverAdresRepository.cls.xml) (revision 64011) +++ DOM/VKP/impl/LeverAdresRepository.cls.xml (.../LeverAdresRepository.cls.xml) (revision 66902) @@ -71,6 +71,7 @@ Set $Piece(AdresNode,"\",26) = LeverAdres.GeefVerzendingWijze() Set $Piece(AdresNode,"\",19) = "." Set $Piece(AdresNode,"\",29) = LeverAdres.GeefAxLeveradresId() + Set $Piece(AdresNode,"\",30) = LeverAdres.GeefProvincie() #dim AdresId As %String If ($$$HasLength(LeverAdres.GeefUniekId())) { Set AdresId = LeverAdres.GeefUniekId() @@ -168,6 +169,7 @@ Do Leveradres.ZetUniekId($Piece(Key,"\",28)) Do Leveradres.ZetAdresType($Piece(Key,"\",12)) Do Leveradres.ZetKlantId(KlantId) + Do Leveradres.ZetProvincie($Piece(Key,"\",30)) Quit Leveradres ]]> Index: APPS/TRANSP/impl/TransportService.cls.xml =================================================================== diff -u -r66251 -r66902 --- APPS/TRANSP/impl/TransportService.cls.xml (.../TransportService.cls.xml) (revision 66251) +++ APPS/TRANSP/impl/TransportService.cls.xml (.../TransportService.cls.xml) (revision 66902) @@ -156,6 +156,9 @@ Set LeveringAdresDto.Volmacht = Adres.GeefVolmacht() Set LeveringAdresDto.Taal = Adres.GeefTaal() + Set LeveringAdresDto.Provincie = Adres.GeefProvincie() + Set LeveringAdresDto.Telefoon = Adres.GeefTelefoon() + /// Tijdelijk omdat volmacht enkel naar Belgiƫ mag gaan. Nederland kan nog niet overweg met volmachten /// TO DO If ($$$Not(LeveringAdresDto.Volmacht = "")) && ($$$Not(Adres.GeefLand().GeefID() = Belgie.GeefID())) { Do Opmerkingen.Insert(LeveringAdresDto.Volmacht) Index: vhTestFiles/IntegratieTests/Webservices.WSDLControle/Test/WS.EC.SessieLozeExterneVerkoopService.txt =================================================================== diff -u -r66260 -r66902 --- vhTestFiles/IntegratieTests/Webservices.WSDLControle/Test/WS.EC.SessieLozeExterneVerkoopService.txt (.../WS.EC.SessieLozeExterneVerkoopService.txt) (revision 66260) +++ vhTestFiles/IntegratieTests/Webservices.WSDLControle/Test/WS.EC.SessieLozeExterneVerkoopService.txt (.../WS.EC.SessieLozeExterneVerkoopService.txt) (revision 66902) @@ -108,6 +108,8 @@ + + @@ -129,6 +131,8 @@ + +