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 @@
+
+