Index: vhTestFiles/IntegratieTests/Webshop.Offerte.IngaveTotBestelling/Test/Hein/Hein_Klant/HeinGebruiker/BestellingAleenLezenVersie.xml =================================================================== diff -u -r37351 -r37385 --- vhTestFiles/IntegratieTests/Webshop.Offerte.IngaveTotBestelling/Test/Hein/Hein_Klant/HeinGebruiker/BestellingAleenLezenVersie.xml (.../BestellingAleenLezenVersie.xml) (revision 37351) +++ vhTestFiles/IntegratieTests/Webshop.Offerte.IngaveTotBestelling/Test/Hein/Hein_Klant/HeinGebruiker/BestellingAleenLezenVersie.xml (.../BestellingAleenLezenVersie.xml) (revision 37385) @@ -11,14 +11,14 @@ Zo spoedig mogelijk - - - - - - - - + Weemaes + Patrick + Herr + Hüttenstraße 45 + 57223 + DE + Kreuztal + D DummyBestelOpmerking @@ -370,13 +370,13 @@ 2015-04-08 - HEIN F. - - GMBH - RECHBERGSTRASSE 5 - 71116 + Weemaes + Patrick + Herr + Hüttenstraße 45 + 57223 DE - GAERTRINGEN + Kreuztal D Index: vhTestFiles/IntegratieTests/Webshop.Offerte.IngaveTotBestelling/Test/Hein/Hein_Klant/HeinGebruiker/BesteldeOfferte.xml =================================================================== diff -u -r37351 -r37385 --- vhTestFiles/IntegratieTests/Webshop.Offerte.IngaveTotBestelling/Test/Hein/Hein_Klant/HeinGebruiker/BesteldeOfferte.xml (.../BesteldeOfferte.xml) (revision 37351) +++ vhTestFiles/IntegratieTests/Webshop.Offerte.IngaveTotBestelling/Test/Hein/Hein_Klant/HeinGebruiker/BesteldeOfferte.xml (.../BesteldeOfferte.xml) (revision 37385) @@ -10,14 +10,14 @@ Zo spoedig mogelijk - - - - - - - - + Weemaes + Patrick + Herr + Hüttenstraße 45 + 57223 + DE + Kreuztal + D DummyBestelOpmerking @@ -369,13 +369,13 @@ 2015-04-08 - HEIN F. - - GMBH - RECHBERGSTRASSE 5 - 71116 + Weemaes + Patrick + Herr + Hüttenstraße 45 + 57223 DE - GAERTRINGEN + Kreuztal D Index: vhTestFiles/IntegratieTests/Webshop.Offerte.IngaveTotBestelling/Test/Hein/Hein_Klant/HeinGebruiker/GedupliceerdeOfferte.xml =================================================================== diff -u -r37351 -r37385 --- vhTestFiles/IntegratieTests/Webshop.Offerte.IngaveTotBestelling/Test/Hein/Hein_Klant/HeinGebruiker/GedupliceerdeOfferte.xml (.../GedupliceerdeOfferte.xml) (revision 37351) +++ vhTestFiles/IntegratieTests/Webshop.Offerte.IngaveTotBestelling/Test/Hein/Hein_Klant/HeinGebruiker/GedupliceerdeOfferte.xml (.../GedupliceerdeOfferte.xml) (revision 37385) @@ -8,14 +8,14 @@ - - - - - - - - + Weemaes + Patrick + Herr + Hüttenstraße 45 + 57223 + DE + Kreuztal + D DummyBestelOpmerking Index: APPS/VKP/impl/Offerte.cls.xml =================================================================== diff -u -r36317 -r37385 --- APPS/VKP/impl/Offerte.cls.xml (.../Offerte.cls.xml) (revision 36317) +++ APPS/VKP/impl/Offerte.cls.xml (.../Offerte.cls.xml) (revision 37385) @@ -296,8 +296,11 @@ If ($$$Not($isObject(..LeverAdres))) { Set ..LeverAdres = ##class(DOM.common.impl.VH.Adres).%New() } - - Set ..LeverAdres.LeverAdresID = LeverAdres.GeefID() + If LeverAdres.%Extends("DOM.common.impl.VH.Adres") { + Set ..LeverAdres.LeverAdresID = LeverAdres.GeefLeverAdresID() + } ElseIf LeverAdres.%Extends("DOM.VKP.LeverAdres") { + Set ..LeverAdres.LeverAdresID = LeverAdres.GeefID() + } Set ..LeverAdres.Aanspreking = LeverAdres.GeefAanspreking() Set ..LeverAdres.Gemeente = LeverAdres.GeefGemeente() Set ..LeverAdres.LandNr = LeverAdres.GeefLand().GeefID() Index: vhTest/Utils/APPS/common/dto/Adres.cls.xml =================================================================== diff -u --- vhTest/Utils/APPS/common/dto/Adres.cls.xml (revision 0) +++ vhTest/Utils/APPS/common/dto/Adres.cls.xml (revision 37385) @@ -0,0 +1,26 @@ + + + +TECH.RegisteredObject + + +1 +APPS.common.dto.Adres + + + + + + Index: vhTestFiles/IntegratieTests/Webshop.Offerte.IngaveTotBestelling/Test/Hein/Hein_Klant/HeinGebruiker/Order.txt =================================================================== diff -u -r37351 -r37385 --- vhTestFiles/IntegratieTests/Webshop.Offerte.IngaveTotBestelling/Test/Hein/Hein_Klant/HeinGebruiker/Order.txt (.../Order.txt) (revision 37351) +++ vhTestFiles/IntegratieTests/Webshop.Offerte.IngaveTotBestelling/Test/Hein/Hein_Klant/HeinGebruiker/Order.txt (.../Order.txt) (revision 37385) @@ -2,7 +2,7 @@ MultDim(7833,0)=110 MultDim(7833,1)=\08.04.15\08.04.15 DummyOrderReferentie\\\7833\EX;1`EX;4`EX;5\1000##63650,33300\\\\\\1\\\\EUR\Hein_Klant\\30\\\\\\\\\\\\\\\\\\\1\\\\\\\\\\\\\UNI\\\\4 MultDim(7833,2)="" -MultDim(7833,3)=\HEIN F.\\GMBH\RECHBERGSTRASSE 5\71116\GAERTRINGEN\1052\D +MultDim(7833,3)=\Weemaes\Patrick\Herr\H�ttenstra�e 45\57223 \Kreuztal\1052\D MultDim(7833,4)=10 MultDim(7833,101)=\\\\Levertijd: 08-04-2015\\\\\\\\\\100\\KF11\63650,33300;T;;- MultDim(7833,102)=\\\\UNI-EDI-nr: 1\\\\\\\\\\110\\KF11\63650,33300;T;;- Index: vhTest/Integratie/Webshop/Offerte/IngaveTotBestelling/Test.cls.xml =================================================================== diff -u -r36382 -r37385 --- vhTest/Integratie/Webshop/Offerte/IngaveTotBestelling/Test.cls.xml (.../Test.cls.xml) (revision 36382) +++ vhTest/Integratie/Webshop/Offerte/IngaveTotBestelling/Test.cls.xml (.../Test.cls.xml) (revision 37385) @@ -214,6 +214,10 @@ Set Hoofding.BestelOpmerking = "DummyBestelOpmerking" Set Hoofding.Referentie.OrderReferentie = "DummyOrderReferentie" + If (..PersonalityID = ##class(DOM.common.enu.Personality).Hein()) { + Set Hoofding.LeveringDetail.Adres = ##class(vhTest.Utils.APPS.common.dto.Adres).GeefHandelHeinAdres() + } + Do ExterneVerkoopService.ZetOfferteHoofding(..OfferteID,Hoofding) Do ExterneVerkoopService.BestelOfferte(..OfferteID)