Index: vhTest/Mock/APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteKopieerder.cls.xml
===================================================================
diff -u -r45731 -r46849
--- vhTest/Mock/APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteKopieerder.cls.xml	(.../KlantBestellingNaarLeverancierOfferteKopieerder.cls.xml)	(revision 45731)
+++ vhTest/Mock/APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteKopieerder.cls.xml	(.../KlantBestellingNaarLeverancierOfferteKopieerder.cls.xml)	(revision 46849)
@@ -9,9 +9,9 @@
 <Inheritance>right</Inheritance>
 
 <Method name="Kopieer">
-<FormalSpec>Bestelling:APPS.VKP.Offerte</FormalSpec>
+<FormalSpec>KlantBestelling:APPS.VKP.Offerte</FormalSpec>
 <ReturnType>APPS.VKP.Offerte</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("Kopieer",Bestelling)
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("Kopieer",KlantBestelling)
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteKopieerder.cls.xml
===================================================================
diff -u -r46643 -r46849
--- APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteKopieerder.cls.xml	(.../KlantBestellingNaarLeverancierOfferteKopieerder.cls.xml)	(revision 46643)
+++ APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteKopieerder.cls.xml	(.../KlantBestellingNaarLeverancierOfferteKopieerder.cls.xml)	(revision 46849)
@@ -23,6 +23,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="VerzendingMogelijkheidRepo">
+<Type>APPS.EC.Transport.impl.VerzendingMogelijkheidRepository</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>OfferteKopieerder:APPS.VKP.Offerte.OfferteKopieerder,ExterneVerkoopService:APPS.EC.Verkoop.ExterneVerkoopService,KlantDataBepaler:DOM.VKP.KlantDataBepaler,WinkelkarService:DOM.EC.Winkelkar.impl.WinkelkarService</FormalSpec>
 <Private>1</Private>
@@ -34,83 +39,100 @@
 	Set ..ExterneVerkoopService = $$$Inject(ExterneVerkoopService, ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefExterneVerkoopService())
 	Set ..WinkelkarService = $$$Inject(WinkelkarService, ##class(DOM.EC.Winkelkar.impl.WinkelkarService).%New())
 	Set ..KlantDataBepaler = $$$Inject(KlantDataBepaler,##class(DOM.VKP.impl.KlantDataBepaler).%New())
+	Set ..VerzendingMogelijkheidRepo = ##class(APPS.EC.Transport.impl.VerzendingMogelijkheidRepository).%New()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="Kopieer">
-<FormalSpec>Bestelling:APPS.VKP.Offerte</FormalSpec>
+<FormalSpec>KlantBestelling:APPS.VKP.Offerte</FormalSpec>
 <ReturnType>APPS.VKP.Offerte</ReturnType>
 <Implementation><![CDATA[
-	Do ..Valideer(Bestelling)
+	Do ..Valideer(KlantBestelling)
 	
-	#dim GeconverteerdeOfferte As APPS.VKP.Offerte = ..MaakOfferte(Bestelling)
+	#dim LeverancierOfferte As APPS.VKP.Offerte = ..MaakOfferte(KlantBestelling)
 
-	Do ..BehoudOorspronkelijkLeveradresIndienHein(GeconverteerdeOfferte, Bestelling)
+	Do ..BehoudOorspronkelijkLeveradresIndienHein(LeverancierOfferte, KlantBestelling)
 	
-	Do ..PasAanDocumentReferenties(GeconverteerdeOfferte, Bestelling)
+	Do ..PasAanDocumentReferenties(LeverancierOfferte, KlantBestelling)
 	
-	Do ..PasAanWinkelKar(GeconverteerdeOfferte, Bestelling)
+	Do ..PasAanWinkelKar(LeverancierOfferte, KlantBestelling)
 	
-	Quit GeconverteerdeOfferte
+	;Do ..KopieerVerzendMogelijkheden(LeverancierOfferte , KlantBestelling)
+	
+	Quit LeverancierOfferte
 ]]></Implementation>
 </Method>
 
 <Method name="MaakOfferte">
-<FormalSpec>Bestelling:APPS.VKP.Offerte</FormalSpec>
+<FormalSpec>KlantBestelling:APPS.VKP.Offerte</FormalSpec>
 <Private>1</Private>
 <ReturnType>APPS.VKP.Offerte</ReturnType>
 <Implementation><![CDATA[
-	#dim BestellingPersonality As DOM.common.Personality = Bestelling.GeefPersonality()
+	#dim KlantBestellingPersonality As DOM.common.Personality = KlantBestelling.GeefPersonality()
 	
-	#dim OfferteKlantId As %String = BestellingPersonality.GeefLeverancierData().EigenKlantId
-	#dim OffertePersonalityId As %String = BestellingPersonality.GeefLeverancierData().PersonalityId
+	#dim OfferteKlantId As %String = KlantBestellingPersonality.GeefLeverancierData().EigenKlantId
+	#dim OffertePersonalityId As %String = KlantBestellingPersonality.GeefLeverancierData().PersonalityId
 
-	Quit ..OfferteKopieerder.KopieerOfferte(Bestelling, OfferteKlantId, OffertePersonalityId)
+	Quit ..OfferteKopieerder.KopieerOfferte(KlantBestelling, OfferteKlantId, OffertePersonalityId)
 ]]></Implementation>
 </Method>
 
 <Method name="BehoudOorspronkelijkLeveradresIndienHein">
-<FormalSpec>GeconverteerdeOfferte:APPS.VKP.Offerte,Bestelling:APPS.VKP.Offerte</FormalSpec>
+<FormalSpec>LeverancierOfferte:APPS.VKP.Offerte,KlantBestelling:APPS.VKP.Offerte</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	If $$$Not((Bestelling.GeefPersonalityID() = ##class(DOM.common.enu.Personality).Hein()) || (Bestelling.GeefPersonalityID() = ##class(DOM.common.enu.Personality).Seefelder())) {
-		Do ..ExterneVerkoopService.StelInStandaardLeveradres(GeconverteerdeOfferte)
+	If $$$Not((KlantBestelling.GeefPersonalityID() = ##class(DOM.common.enu.Personality).Hein()) || (KlantBestelling.GeefPersonalityID() = ##class(DOM.common.enu.Personality).Seefelder())) {
+		Do ..ExterneVerkoopService.StelInStandaardLeveradres(LeverancierOfferte)
 	}
 ]]></Implementation>
 </Method>
 
 <Method name="PasAanDocumentReferenties">
-<FormalSpec>GeconverteerdeOfferte:APPS.VKP.Offerte,Bestelling:APPS.VKP.Offerte</FormalSpec>
+<FormalSpec>LeverancierOfferte:APPS.VKP.Offerte,KlantBestelling:APPS.VKP.Offerte</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim DocumentReferenties As DOM.VKP.DocumentReferenties = GeconverteerdeOfferte.GeefDocumentReferenties()
-	#dim KlantData As DOM.common.dto.KlantData = ..KlantDataBepaler.GeefKlantData(Bestelling.GeefPersonality(),Bestelling.GeefKlantID())
+	#dim DocumentReferenties As DOM.VKP.DocumentReferenties = LeverancierOfferte.GeefDocumentReferenties()
+	#dim KlantData As DOM.common.dto.KlantData = ..KlantDataBepaler.GeefKlantData(KlantBestelling.GeefPersonality(),KlantBestelling.GeefKlantID())
 	Set DocumentReferenties.CommissieReferentie = ##class(TECH.StringUtils).Append(DocumentReferenties.CommissieReferentie, KlantData.Naam, ", ")
 ]]></Implementation>
 </Method>
 
 <Method name="PasAanWinkelKar">
-<FormalSpec>GeconverteerdeOfferte:APPS.VKP.Offerte,Bestelling:APPS.VKP.Offerte</FormalSpec>
+<FormalSpec>LeverancierOfferte:APPS.VKP.Offerte,KlantBestelling:APPS.VKP.Offerte</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim Winkelkar As DOM.EC.Winkelkar.Winkelkar = ..WinkelkarService.GeefWinkelkar(GeconverteerdeOfferte.GeefWinkelkarID())
-	Do Winkelkar.ZetPersonalityID(##class(DOM.common.enu.Personality).VanHoecke())
-	Do Winkelkar.ZetKlantID(Bestelling.GeefPersonality().GeefKlantID())
-	Do ..WinkelkarService.HerberekenPrijs(Winkelkar)
-	Do ..WinkelkarService.BewaarWinkelkar(Winkelkar)
-	Do GeconverteerdeOfferte.PrijzenWerdenHerberekend()
+	#dim LeverancierWinkelkar As DOM.EC.Winkelkar.Winkelkar = ..WinkelkarService.GeefWinkelkar(LeverancierOfferte.GeefWinkelkarID())
+	Do LeverancierWinkelkar.ZetPersonalityID(KlantBestelling.GeefPersonality().GeefLeverancierData().PersonalityId)
+	Do LeverancierWinkelkar.ZetKlantID(KlantBestelling.GeefPersonality().GeefLeverancierData().EigenKlantId)
+	Do ..WinkelkarService.HerberekenPrijs(LeverancierWinkelkar)
+	Do ..WinkelkarService.BewaarWinkelkar(LeverancierWinkelkar)
+	Do LeverancierOfferte.PrijzenWerdenHerberekend()
 ]]></Implementation>
 </Method>
 
+<Method name="KopieerVerzendMogelijkheden">
+<FormalSpec>LeverancierOfferte:APPS.VKP.Offerte,KlantBestelling:APPS.VKP.Offerte</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	do ..VerzendingMogelijkheidRepo.VerwijderViaOfferteID(LeverancierOfferte.GeefID())
+	#dim Iterator As TECH.Iterator = ..VerzendingMogelijkheidRepo.ZoekViaOfferteId(KlantBestelling.GeefID())
+	while Iterator.HasNext() {
+		#dim LeverancierOfferteMogelijkheid As APPS.EC.Transport.data.VerzendingMogelijkheid = ..VerzendingMogelijkheidRepo.Dupliceer(Iterator.Next(),$$$True)
+		set LeverancierOfferteMogelijkheid.OfferteID = LeverancierOfferte.GeefID()
+		do ..VerzendingMogelijkheidRepo.Bewaar(LeverancierOfferteMogelijkheid)
+	}
+]]></Implementation>
+</Method>
+
 <Method name="Valideer">
-<FormalSpec>Bestelling:APPS.VKP.Offerte</FormalSpec>
+<FormalSpec>KlantBestelling:APPS.VKP.Offerte</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	If $$$Not(Bestelling.GeefPersonality().IsHandel()) {
+	If $$$Not(KlantBestelling.GeefPersonality().IsHandel()) {
 		Set Exceptie = ##class(TECH.Exceptions.GeneralErrorException).%New("De personality van de offerte die geconverteerd moet worden, is geen handelofferte")
-		do Exceptie.VoegToeExtraInfo("OfferteID : "_Bestelling.GeefID())
-		do Exceptie.VoegToeExtraInfo("Personality : "_Bestelling.GeefPersonality().GeefCode())
+		do Exceptie.VoegToeExtraInfo("OfferteID : "_KlantBestelling.GeefID())
+		do Exceptie.VoegToeExtraInfo("Personality : "_KlantBestelling.GeefPersonality().GeefCode())
 		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
 	}
 ]]></Implementation>