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)