Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar.cls.xml =================================================================== diff -u -r49023 -r49050 --- WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar.cls.xml (.../BestelWinkelkar.cls.xml) (revision 49023) +++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar.cls.xml (.../BestelWinkelkar.cls.xml) (revision 49050) @@ -103,9 +103,9 @@ } else { Set Hoofding.LeveringDetail.WensDatum = BestelWinkelkarRequest.WensLeverDatum } - Set Hoofding.LeveringDetail.Adres = ##class(APPS.common.dto.Adres).%New() - If (BestelWinkelkarRequest.LeverAdres.Id < 1000) { + If (+BestelWinkelkarRequest.LeverAdres.Id < 1000) { + Set Hoofding.LeveringDetail.Adres = ##class(APPS.common.dto.Adres).%New() Set Hoofding.LeveringDetail.Adres.ID = BestelWinkelkarRequest.LeverAdres.Id Set Hoofding.LeveringDetail.Adres.Aanspreking = BestelWinkelkarRequest.LeverAdres.Aanspreking Set Hoofding.LeveringDetail.Adres.Naam = BestelWinkelkarRequest.LeverAdres.Naam @@ -117,6 +117,7 @@ Set Hoofding.LeveringDetail.Adres.Taal = BestelWinkelkarRequest.LeverAdres.Taal } Else { If ..LeverAdresRepository.BestaatViaAXLeverAdresId(BestelWinkelkarRequest.LeverAdres.Id) { + Set Hoofding.LeveringDetail.Adres = ##class(APPS.TRANSP.dto.LeveringAdres).%New() #dim LeverAdresViaAXid As DOM.VKP.impl.LeverAdres = ..LeverAdresRepository.GeefViaAXLeverAdresId(BestelWinkelkarRequest.LeverAdres.Id) Set Hoofding.LeveringDetail.Adres.Aanspreking = LeverAdresViaAXid.Aanspreking Set Hoofding.LeveringDetail.Adres.Naam = LeverAdresViaAXid.Naam @@ -126,6 +127,9 @@ Set Hoofding.LeveringDetail.Adres.Postcode = LeverAdresViaAXid.Postcode Set Hoofding.LeveringDetail.Adres.Straat = LeverAdresViaAXid.Straat Set Hoofding.LeveringDetail.Adres.Taal = LeverAdresViaAXid.Taal + Set Hoofding.LeveringDetail.Adres.Volmacht = LeverAdresViaAXid.Volmacht + Do Hoofding.LeveringDetail.Adres.Opmerkingen.Insert(LeverAdresViaAXid.Opmerking1) + Do Hoofding.LeveringDetail.Adres.Opmerkingen.Insert(LeverAdresViaAXid.Opmerking2) } } Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/Test.cls.xml =================================================================== diff -u -r49023 -r49050 --- vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/Test.cls.xml (.../Test.cls.xml) (revision 49023) +++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/Test.cls.xml (.../Test.cls.xml) (revision 49050) @@ -187,12 +187,14 @@ #dim AxLeverAdresId As %String = "1001" - #dim VerwachteHoofding As APPS.EC.dto.Hoofding = ##class(vhTest.Utils.APPS.EC.dto.Hoofding).StandaardHoofding() - + #dim VerwachteHoofding As APPS.EC.dto.Hoofding = ##class(vhTest.Utils.APPS.EC.dto.Hoofding).StandaardHoofdingMetVolmachtEnOpmerkingen() #dim TeConverterenLeverAdres As DOM.VKP.LeverAdres = ##class(vhTest.Utils.DOM.VKP.LeverAdres).Belgisch() Do TeConverterenLeverAdres.ZetID(AxLeverAdresId) Do TeConverterenLeverAdres.ZetTaal("N") Do TeConverterenLeverAdres.ZetAanspreking("Dhr") + Do TeConverterenLeverAdres.ZetVolmacht("Volmacht") + Do TeConverterenLeverAdres.ZetOpmerking1("Opmerking1") + Do TeConverterenLeverAdres.ZetOpmerking2("Opmerking2") Do ..VerkoopServiceMock.IndienMethodCall("ZetOfferteHoofding", "InterneId", ..Matches.DataTransferObject(VerwachteHoofding)).DanDoeNiks()