Index: APPS/VKP/Offerte/impl/OfferteKopieerder.cls.xml =================================================================== diff -u -r46471 -r46853 --- APPS/VKP/Offerte/impl/OfferteKopieerder.cls.xml (.../OfferteKopieerder.cls.xml) (revision 46471) +++ APPS/VKP/Offerte/impl/OfferteKopieerder.cls.xml (.../OfferteKopieerder.cls.xml) (revision 46853) @@ -3,38 +3,51 @@ TECH.Mockable,APPS.VKP.Offerte.OfferteKopieerder + +APPS.VKP.Offerte.impl.OfferteRepository +1 + + + +APPS.VKP.WinkelkarKopieerder +1 + + + +OfferteRepo:APPS.VKP.Offerte.impl.OfferteRepository,WinkelkarKopieerder:APPS.VKP.WinkelkarKopieerder +1 +1 +%Status +1 + + + -Offerte:APPS.VKP.Offerte,KlantID:DOM.VKP.VanHoeckeKlantID="",PersonalityID:DOM.common.enu.Personality="" +Offerte:APPS.VKP.Offerte,KlantID:DOM.VKP.KlantID="",PersonalityID:DOM.common.enu.Personality="" APPS.VKP.Offerte Index: APPS/VKP/impl/Offerte.cls.xml =================================================================== diff -u -r46837 -r46853 --- APPS/VKP/impl/Offerte.cls.xml (.../Offerte.cls.xml) (revision 46837) +++ APPS/VKP/impl/Offerte.cls.xml (.../Offerte.cls.xml) (revision 46853) @@ -384,7 +384,7 @@ APPS.VKP.impl.Offerte.VerzendingItem - Index: APPS/VKP/Offerte/OfferteKopieerder.cls.xml =================================================================== diff -u -r29059 -r46853 --- APPS/VKP/Offerte/OfferteKopieerder.cls.xml (.../OfferteKopieerder.cls.xml) (revision 29059) +++ APPS/VKP/Offerte/OfferteKopieerder.cls.xml (.../OfferteKopieerder.cls.xml) (revision 46853) @@ -6,7 +6,7 @@ 1 -Offerte:APPS.VKP.Offerte,KlantID:DOM.VKP.VanHoeckeKlantID="",PersonalityID:DOM.common.enu.Personality="" +Offerte:APPS.VKP.Offerte,KlantID:DOM.VKP.KlantID="",PersonalityID:DOM.common.enu.Personality="" APPS.VKP.Offerte Index: APPS/EC/dto/Offerte.cls.xml =================================================================== diff -u -r46556 -r46853 --- APPS/EC/dto/Offerte.cls.xml (.../Offerte.cls.xml) (revision 46556) +++ APPS/EC/dto/Offerte.cls.xml (.../Offerte.cls.xml) (revision 46853) @@ -44,11 +44,6 @@ APPS.EC.dto.OfferteVerzendingMogelijkheid - - -APPS.common.dto.LeverAdres - - Index: vhUnitTest/APPS/VKP/Offerte/impl/OfferteKopieerder/KopieerOfferte/Test.cls.xml =================================================================== diff -u -r46471 -r46853 --- vhUnitTest/APPS/VKP/Offerte/impl/OfferteKopieerder/KopieerOfferte/Test.cls.xml (.../Test.cls.xml) (revision 46471) +++ vhUnitTest/APPS/VKP/Offerte/impl/OfferteKopieerder/KopieerOfferte/Test.cls.xml (.../Test.cls.xml) (revision 46853) @@ -35,8 +35,14 @@ - -aTestName:%String + +1 Index: vhUnitTest/APPS/VKP/impl/OfferteKopieerder/KopieerOfferte/OfferteKopieerderMock.cls.xml =================================================================== diff -u -r29059 -r46853 --- vhUnitTest/APPS/VKP/impl/OfferteKopieerder/KopieerOfferte/OfferteKopieerderMock.cls.xml (.../OfferteKopieerderMock.cls.xml) (revision 29059) +++ vhUnitTest/APPS/VKP/impl/OfferteKopieerder/KopieerOfferte/OfferteKopieerderMock.cls.xml (.../OfferteKopieerderMock.cls.xml) (revision 46853) @@ -4,9 +4,9 @@ APPS.VKP.Offerte.impl.OfferteKopieerder -Offerte:APPS.VKP.Offerte,KlantID:DOM.VKP.VanHoeckeKlantID="",PersonalityID:DOM.common.enu.Personality="" +Offerte:APPS.VKP.Offerte,KlantID:DOM.VKP.KlantID="",PersonalityID:DOM.common.enu.Personality="" 1 -APPS.VKP.Offerte +%String Index: WSimpl/Vhisie4/Winkelkar/WinkelkarExport/UnishopWinkelkarConverter/Converter.cls.xml =================================================================== diff -u -r46643 -r46853 --- WSimpl/Vhisie4/Winkelkar/WinkelkarExport/UnishopWinkelkarConverter/Converter.cls.xml (.../Converter.cls.xml) (revision 46643) +++ WSimpl/Vhisie4/Winkelkar/WinkelkarExport/UnishopWinkelkarConverter/Converter.cls.xml (.../Converter.cls.xml) (revision 46853) @@ -13,11 +13,16 @@ 1 - -DOM.PARTIJ.LegacyPartijAPI + +DOM.common.impl.PersonalityRepository 1 + +DOM.common.PersonalityService +1 + + 1 1 @@ -26,7 +31,8 @@ @@ -40,12 +46,12 @@ Set Winkelkar.Id = Offerte.OfferteID Set Winkelkar.Datum = Offerte.Hoofding.BestelDatum - Set Winkelkar.KlantId = ..LegacyApi.GeefKlantNummerVoorPartijID(Offerte.Winkelkar.KlantID) + Set Winkelkar.KlantId = ..PersonalityService.GeefKlantCodeViaKlantId(..PersonalityRepo.GeefViaID(Offerte.Winkelkar.Personality.ID),Offerte.Winkelkar.KlantID) set Winkelkar.Referentie = Offerte.Hoofding.Referentie.OrderReferentie Set Winkelkar.Status = Offerte.Status Set Winkelkar.PersonalityId = Offerte.Winkelkar.Personality.ID - Set Winkelkar.Leveradres = Offerte.Leveradres + set Winkelkar.Leveradres = $$ConstructClone^vhLib.Class(Offerte.Hoofding.LeveringDetail.Adres,"APPS.common.dto.LeverAdres") set Winkelkar.VerzendMogelijkheid = $$ConstructClone^vhLib.Class(Offerte.VerzendingMogelijkheid,"WS.Vhisie4.WinkelkarExport.dto.VerzendingMogelijkheid") #dim LijnIterator As TECH.Iterator = ..WinkelkarUtils.GeefMaatwerkLijnIterator(Offerte.Winkelkar) Index: vhTest/Mock/APPS/VKP/Offerte/impl/OfferteKopieerder.cls.xml =================================================================== diff -u -r44491 -r46853 --- vhTest/Mock/APPS/VKP/Offerte/impl/OfferteKopieerder.cls.xml (.../OfferteKopieerder.cls.xml) (revision 44491) +++ vhTest/Mock/APPS/VKP/Offerte/impl/OfferteKopieerder.cls.xml (.../OfferteKopieerder.cls.xml) (revision 46853) @@ -9,7 +9,7 @@ right -Offerte:APPS.VKP.Offerte,KlantID:DOM.VKP.VanHoeckeKlantID="",PersonalityID:DOM.common.enu.Personality="" +Offerte:APPS.VKP.Offerte,KlantID:DOM.VKP.KlantID="",PersonalityID:DOM.common.enu.Personality="" APPS.VKP.Offerte Index: vhTest/Mock/APPS/VKP/Offerte/OfferteKopieerder.cls.xml =================================================================== diff -u --- vhTest/Mock/APPS/VKP/Offerte/OfferteKopieerder.cls.xml (revision 0) +++ vhTest/Mock/APPS/VKP/Offerte/OfferteKopieerder.cls.xml (revision 46853) @@ -0,0 +1,20 @@ + + + + +Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig. +Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt +1 +APPS.VKP.Offerte.OfferteKopieerder,Tools.Mock.MockClassBase +right + + +Offerte:APPS.VKP.Offerte,KlantID:DOM.VKP.KlantID="",PersonalityID:DOM.common.enu.Personality="" +APPS.VKP.Offerte + + + + + + Index: APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteConverterVhisie4.cls.xml =================================================================== diff -u -r46217 -r46853 --- APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteConverterVhisie4.cls.xml (.../KlantBestellingNaarLeverancierOfferteConverterVhisie4.cls.xml) (revision 46217) +++ APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteConverterVhisie4.cls.xml (.../KlantBestellingNaarLeverancierOfferteConverterVhisie4.cls.xml) (revision 46853) @@ -70,6 +70,7 @@ #dim TijdelijkeLeverancierOfferte As APPS.VKP.Offerte = ..KlantBestellingNaarLeverancierOfferteKopieerder.Kopieer(KlantBestelling) #dim Winkelkar As WS.Vhisie4.WinkelkarExport.dto.Winkelkar = ..WinkelkarExportConverter.Convert(..OfferteConverter.ConverteerNaarECommerce(TijdelijkeLeverancierOfferte)) + Set Winkelkar.GekoppeldeWinkelkarId = KlantBestelling.GeefExterneId() Set Winkelkar.Id = "" Set LijnIterator = ##class(TECH.ListIterator).%New(Winkelkar.Lijnen)