Index: APPS/EC/Verkoop/impl/OfferteNaarDtoConverter.cls.xml =================================================================== diff -u -r42441 -r42455 --- APPS/EC/Verkoop/impl/OfferteNaarDtoConverter.cls.xml (.../OfferteNaarDtoConverter.cls.xml) (revision 42441) +++ APPS/EC/Verkoop/impl/OfferteNaarDtoConverter.cls.xml (.../OfferteNaarDtoConverter.cls.xml) (revision 42455) @@ -55,7 +55,7 @@ If ..OfferteService.HeeftOfferteVanVH(Offerte) { #dim GekoppeldeOfferte As APPS.VKP.Offerte = ..OfferteService.GeefOfferteVanVH(Offerte) - Set Resultaat.GekoppeldeOfferte = ..Converteer(GekoppeldeOfferte.GeefID()) + Set Resultaat.GekoppeldeOfferte = ..Converteer(GekoppeldeOfferte) } Quit Resultaat Index: vhUnitTest/APPS/EC/Verkoop/impl/OfferteNaarDtoConverter/Converteer.cls.xml =================================================================== diff -u -r42424 -r42455 --- vhUnitTest/APPS/EC/Verkoop/impl/OfferteNaarDtoConverter/Converteer.cls.xml (.../Converteer.cls.xml) (revision 42424) +++ vhUnitTest/APPS/EC/Verkoop/impl/OfferteNaarDtoConverter/Converteer.cls.xml (.../Converteer.cls.xml) (revision 42455) @@ -20,7 +20,7 @@ Do GeldigheidVermeldingBepalerStub.IndienMethodCall("BepaalVermelding",TeConverterenOfferte).DanReturn("Vermelding") Set Converter = ##class(APPS.EC.Verkoop.impl.OfferteNaarDtoConverter).%New(OfferteServiceStub, WinkelkarServiceStub, GeldigheidVermeldingBepalerStub) - #dim Resultaat As APPS.EC.dto.Offerte = Converter.Converteer(OfferteId) + #dim Resultaat As APPS.EC.dto.Offerte = Converter.Converteer(TeConverterenOfferte) Do $$$AssertEquals(Resultaat.OfferteID,"1000") Do $$$AssertEquals(Resultaat.Hoofding.BestelDatum,"") @@ -58,7 +58,7 @@ Do GeldigheidVermeldingBepalerStub.IndienMethodCall("BepaalVermelding",GekoppeldeOfferte).DanReturn("VermeldingGekoppelde") Set Converter = ##class(APPS.EC.Verkoop.impl.OfferteNaarDtoConverter).%New(OfferteServiceStub, WinkelkarServiceStub, GeldigheidVermeldingBepalerStub) - #dim Resultaat As APPS.EC.dto.Offerte = Converter.Converteer(OfferteId) + #dim Resultaat As APPS.EC.dto.Offerte = Converter.Converteer(TeConverterenOfferte) Do $$$AssertEquals(Resultaat.OfferteID,"1000") Do $$$AssertEquals(Resultaat.Hoofding.BestelDatum,"") Index: APPS/VKP/Offerte/impl/HandelOfferteNaarVanHoeckeOfferteConverteerderVhisie4.cls.xml =================================================================== diff -u -r42450 -r42455 --- APPS/VKP/Offerte/impl/HandelOfferteNaarVanHoeckeOfferteConverteerderVhisie4.cls.xml (.../HandelOfferteNaarVanHoeckeOfferteConverteerderVhisie4.cls.xml) (revision 42450) +++ APPS/VKP/Offerte/impl/HandelOfferteNaarVanHoeckeOfferteConverteerderVhisie4.cls.xml (.../HandelOfferteNaarVanHoeckeOfferteConverteerderVhisie4.cls.xml) (revision 42455) @@ -77,13 +77,13 @@ #dim Offerte = ..OfferteService.GeefOfferte(SendResponse.Winkelkar.VanHoeckeId) #dim Bestelling As APPS.VKP.Offerte = ..OfferteService.GeefOfferte(SendResponse.Winkelkar.IntractoId) - Do ..OfferteService.KoppelAanOfferteVanHandel(Offerte, Bestelling) + //Do ..OfferteService.KoppelAanOfferteVanHandel(Offerte, Bestelling) - Do ..BehoudOorspronkelijkLeveradresIndienHein(Offerte, Bestelling) + //Do ..BehoudOorspronkelijkLeveradresIndienHein(Offerte, Bestelling) - Do ..PasAanDocumentReferenties(Offerte, Bestelling) + //Do ..PasAanDocumentReferenties(Offerte, Bestelling) - Do ..PasAanVHWinkelKar(Offerte, Bestelling) + //Do ..PasAanVHWinkelKar(Offerte, Bestelling) Do ..OfferteService.GeefOfferteBewaarder().Bewaar(Offerte)