Index: APPS/VKP/Offerte.cls.xml
===================================================================
diff -u -r32740 -r33428
--- APPS/VKP/Offerte.cls.xml	(.../Offerte.cls.xml)	(revision 32740)
+++ APPS/VKP/Offerte.cls.xml	(.../Offerte.cls.xml)	(revision 33428)
@@ -226,6 +226,16 @@
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[]]></Implementation>
 </Method>
+
+<Method name="ZetVerzendingMogelijkheid">
+<Abstract>1</Abstract>
+<FormalSpec>VerzendingMogelijkheid:WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid</FormalSpec>
+</Method>
+
+<Method name="ZetCarbonNeutral">
+<Abstract>1</Abstract>
+<FormalSpec>Selectie:WSdata.EC.ExterneVerkoop.Selectie</FormalSpec>
+</Method>
 </Class>
 
 
Index: vhUnitTest/WS/EC/Unishop/InternationaleZending/Service/Test.cls.xml
===================================================================
diff -u -r33415 -r33428
--- vhUnitTest/WS/EC/Unishop/InternationaleZending/Service/Test.cls.xml	(.../Test.cls.xml)	(revision 33415)
+++ vhUnitTest/WS/EC/Unishop/InternationaleZending/Service/Test.cls.xml	(.../Test.cls.xml)	(revision 33428)
@@ -42,6 +42,39 @@
 	Do $$$AssertEqualsList(ZendingDetails, Resultaat)
 ]]></Implementation>
 </Method>
+
+<Method name="Test: ZetGekozenVerzendingMogelijkheid bewaart Verzendingmogelijkheid bij de offerte">
+<Implementation><![CDATA[
+	#dim OfferteID As %String = 1
+	#dim VerzendingMogelijkheidID As %String = 1
+	
+	#dim VerkoopOfferteDummy As vhTest.Mock.APPS.VKP.Offerte = ##class(vhTest.Mock.APPS.VKP.Offerte).%New()
+	Do VerkoopOfferteDummy.VerwachtMethodCall("ZetVerzendingMogelijkheid",$$$ElkeWaarde).DanDoeNiks()
+	Do VerkoopOfferteDummy.VerwachtMethodCall("ZetCarbonNeutral",$$$ElkeWaarde).DanDoeNiks()
+
+	#dim OfferteBewaarderDummy As vhTest.Mock.APPS.VKP.OfferteBewaarder = ##class(vhTest.Mock.APPS.VKP.OfferteBewaarder).%New()
+	Do OfferteBewaarderDummy.VerwachtMethodCall("Bewaar",$$$ElkeWaarde).DanDoeNiks()
+	
+	Set VerkoopOfferteServiceMock = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
+	Do VerkoopOfferteServiceMock.VerwachtMethodCall("GeefOfferte",OfferteID).DanReturn(VerkoopOfferteDummy)
+	Do VerkoopOfferteServiceMock.VerwachtMethodCall("GeefOfferteBewaarder").DanReturn(OfferteBewaarderDummy)
+	
+	
+	#dim VerzendingMogelijkheidDummy As WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid = ##class(WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid).%New()
+	#dim VerzendingMogelijkheidRepositoryMock As vhTest.Mock.WSimpl.EC.ExterneVerkoop.VerzendingMogelijkheidRepository = ##class(vhTest.Mock.WSimpl.EC.ExterneVerkoop.VerzendingMogelijkheidRepository).%New()
+	Do VerzendingMogelijkheidRepositoryMock.VerwachtMethodCall("GeefViaID",VerzendingMogelijkheidID).DanReturn(VerzendingMogelijkheidDummy)
+	Do VerzendingMogelijkheidRepositoryMock.VerwachtMethodCall("VerwijderViaOfferteID",OfferteID).DanDoeNiks()
+
+	#dim OptieKeuze As WS.EC.ExterneVerkoop.dto.Selectie = ##class(WS.EC.ExterneVerkoop.dto.Selectie).%New()
+	#dim Service As WS.EC.Unishop.InternationaleZending.Service = ##class(WS.EC.Unishop.InternationaleZending.Service).%New(VerkoopOfferteServiceMock,"","",VerzendingMogelijkheidRepositoryMock)
+	Do Service.ZetGekozenVerzendingMogelijkheid(OfferteID,VerzendingMogelijkheidID,OptieKeuze)
+
+	Do VerkoopOfferteDummy.Verifieer()
+	Do OfferteBewaarderDummy.Verifieer()
+	Do VerkoopOfferteServiceMock.Verifieer()
+	Do VerzendingMogelijkheidRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Mock/APPS/VKP/Offerte.cls.xml
===================================================================
diff -u -r32078 -r33428
--- vhTest/Mock/APPS/VKP/Offerte.cls.xml	(.../Offerte.cls.xml)	(revision 32078)
+++ vhTest/Mock/APPS/VKP/Offerte.cls.xml	(.../Offerte.cls.xml)	(revision 33428)
@@ -158,13 +158,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="VoegToeMaatwerk">
-<FormalSpec>GroepNaam:%String,IngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Aantal:%String,ProjectReferentie:%String=""</FormalSpec>
-<ReturnType>DOM.EC.Winkelkar.MaatwerkLijn</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("VoegToeMaatwerk",GroepNaam,IngegevenKenmerken,Aantal,ProjectReferentie)
-]]></Implementation>
-</Method>
-
 <Method name="ZetBestelOpmerking">
 <FormalSpec>BestelOpmerking:%String</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("ZetBestelOpmerking",BestelOpmerking)
@@ -177,6 +170,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetCarbonNeutral">
+<FormalSpec>Selectie:WSdata.EC.ExterneVerkoop.Selectie</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("ZetCarbonNeutral",Selectie)
+]]></Implementation>
+</Method>
+
 <Method name="ZetDocumentReferenties">
 <FormalSpec>DocumentReferencies:DOM.VKP.DocumentReferenties</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("ZetDocumentReferenties",DocumentReferencies)
@@ -219,6 +218,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetVerzendingMogelijkheid">
+<FormalSpec>VerzendingMogelijkheid:WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("ZetVerzendingMogelijkheid",VerzendingMogelijkheid)
+]]></Implementation>
+</Method>
+
 <Method name="ZetWensLeverDatum">
 <FormalSpec>WensLeverDatum:%String</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("ZetWensLeverDatum",WensLeverDatum)
Index: WS/EC/Unishop/InternationaleZending/DummyService.cls.xml
===================================================================
diff -u -r33413 -r33428
--- WS/EC/Unishop/InternationaleZending/DummyService.cls.xml	(.../DummyService.cls.xml)	(revision 33413)
+++ WS/EC/Unishop/InternationaleZending/DummyService.cls.xml	(.../DummyService.cls.xml)	(revision 33428)
@@ -4,9 +4,9 @@
 <Super>TECH.RegisteredObject</Super>
 
 <Method name="ZetGekozenVerzendingMogelijkheid">
-<FormalSpec>OfferteId:%String,VerzendingMogelijkheidCode:%Integer,OptieKeuze:WS.EC.ExterneVerkoop.dto.Selectie</FormalSpec>
+<FormalSpec>OfferteId:%String,VerzendingMogelijkheidID:%Integer,OptieKeuze:WS.EC.ExterneVerkoop.dto.Selectie</FormalSpec>
 <Implementation><![CDATA[
-	if (VerzendingMogelijkheidCode > 4) {
+	if (VerzendingMogelijkheidID > 4) {
 		Do ..OngeldigeVerzendKeuze()
 	} elseif (OptieKeuze.ID > 1) {
 		Do ..OngeldigeOptieKeuze()
Index: APPS/VKP/impl/Offerte.cls.xml
===================================================================
diff -u -r33279 -r33428
--- APPS/VKP/impl/Offerte.cls.xml	(.../Offerte.cls.xml)	(revision 33279)
+++ APPS/VKP/impl/Offerte.cls.xml	(.../Offerte.cls.xml)	(revision 33428)
@@ -4,6 +4,14 @@
 <ClassType>persistent</ClassType>
 <Super>TECH.VhChangeInfo,APPS.VKP.Offerte</Super>
 
+<Property name="VerzendingMogelijkheid">
+<Type>WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid</Type>
+</Property>
+
+<Property name="CarbonNeutral">
+<Type>WSdata.EC.ExterneVerkoop.Selectie</Type>
+</Property>
+
 <Property name="BestelOpmerking">
 <Type>%String</Type>
 <Parameter name="MAXLEN" value="1000"/>
@@ -331,6 +339,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetVerzendingMogelijkheid">
+<FormalSpec>VerzendingMogelijkheid:WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid</FormalSpec>
+<Implementation><![CDATA[	Set ..VerzendingMogelijkheid = VerzendingMogelijkheid
+]]></Implementation>
+</Method>
+
+<Method name="ZetCarbonNeutral">
+<FormalSpec>Selectie:WSdata.EC.ExterneVerkoop.Selectie</FormalSpec>
+<Implementation><![CDATA[	Set ..CarbonNeutral = Selectie
+]]></Implementation>
+</Method>
+
 <Method name="GeefBestelOpmerking">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit ..BestelOpmerking
@@ -469,6 +489,12 @@
 <Value name="21">
 <Value>PersonalityID</Value>
 </Value>
+<Value name="22">
+<Value>VerzendingMogelijkheid</Value>
+</Value>
+<Value name="23">
+<Value>CarbonNeutral</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: WS/EC/ExterneVerkoopService.cls.xml
===================================================================
diff -u -r33414 -r33428
--- WS/EC/ExterneVerkoopService.cls.xml	(.../ExterneVerkoopService.cls.xml)	(revision 33414)
+++ WS/EC/ExterneVerkoopService.cls.xml	(.../ExterneVerkoopService.cls.xml)	(revision 33428)
@@ -133,9 +133,9 @@
 </Method>
 
 <Method name="ZetGekozenVerzendingMogelijkheid">
-<FormalSpec>OfferteID:%String,VerzendingMogelijkheidCode:%Integer,OptieKeuze:WS.EC.ExterneVerkoop.dto.Selectie</FormalSpec>
+<FormalSpec>OfferteID:%String,VerzendingMogelijkheidID:%Integer,OptieKeuze:WS.EC.ExterneVerkoop.dto.Selectie</FormalSpec>
 <WebMethod>1</WebMethod>
-<Implementation><![CDATA[	Do ##class(WS.EC.Unishop.InternationaleZending.DummyService).%New().ZetGekozenVerzendingMogelijkheid(OfferteID, VerzendingMogelijkheidCode, OptieKeuze)
+<Implementation><![CDATA[	Do ##class(WS.EC.Unishop.InternationaleZending.DummyService).%New().ZetGekozenVerzendingMogelijkheid(OfferteID, VerzendingMogelijkheidID, OptieKeuze)
 ]]></Implementation>
 </Method>
 </Class>
Index: WS/EC/Unishop/InternationaleZending/Service.cls.xml
===================================================================
diff -u -r33416 -r33428
--- WS/EC/Unishop/InternationaleZending/Service.cls.xml	(.../Service.cls.xml)	(revision 33416)
+++ WS/EC/Unishop/InternationaleZending/Service.cls.xml	(.../Service.cls.xml)	(revision 33428)
@@ -55,11 +55,37 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetGekozenVerzendingMogelijkheid">
+<FormalSpec>OfferteID:%String,VerzendingMogelijkheidID:%Integer,OptieKeuze:WS.EC.ExterneVerkoop.dto.Selectie</FormalSpec>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	#dim Offerte As APPS.VKP.Offerte = ..OfferteService.GeefOfferte(OfferteID)
+	#dim VerzendingMogelijkheid As WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid = ..VerzendingMogelijkheidRepository.GeefViaID(VerzendingMogelijkheidID) 
+	Do Offerte.ZetVerzendingMogelijkheid(VerzendingMogelijkheid)
+	Do Offerte.ZetCarbonNeutral(..OptieKeuzeConverteer(OptieKeuze))
+	#dim OfferteBewaarder As APPS.VKP.OfferteBewaarder = ..OfferteService.GeefOfferteBewaarder()
+	Do OfferteBewaarder.Bewaar(Offerte)
+	Do ..VerzendingMogelijkheidRepository.VerwijderViaOfferteID(OfferteID)
+]]></Implementation>
+</Method>
+
+<Method name="OptieKeuzeConverteer">
+<FormalSpec>OptieKeuze:WS.EC.ExterneVerkoop.dto.Selectie</FormalSpec>
+<Private>1</Private>
+<ReturnType>WSdata.EC.ExterneVerkoop.Selectie</ReturnType>
+<Implementation><![CDATA[
+	#dim Selectie As WSdata.EC.ExterneVerkoop.Selectie = ##class(WSdata.EC.ExterneVerkoop.Selectie).%New()
+	Set Selectie.ID = OptieKeuze.ID
+	Set Selectie.Omschrijving = OptieKeuze.Omschrijving
+	Set Selectie.Prijs = OptieKeuze.Prijs
+	Quit Selectie
+]]></Implementation>
+</Method>
+
 <Method name="BewaarVerzendingMogelijkheden">
 <FormalSpec>OfferteID:%String,VerzendingMogelijkheden:WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-
 	#dim VerzendingMogelijkhedenIterator AS TECH.ListIterator = ##class(TECH.ListIterator).%New(VerzendingMogelijkheden)
 	 
 	while VerzendingMogelijkhedenIterator.HasNext() {
@@ -127,6 +153,7 @@
 		#dim Selectie As WSdata.EC.ExterneVerkoop.Selectie = ##class(WSdata.EC.ExterneVerkoop.Selectie).%New()
 		set Selectie.ID = MogelijkeWaarde.ID
 		set Selectie.Omschrijving = MogelijkeWaarde.Omschrijving
+		set Selectie.Prijs = MogelijkeWaarde.Prijs
 		Do Selecties.Insert(Selectie)
 	}
 	
Index: vhTest/Mock/WSimpl/EC/ExterneVerkoop/VerzendingMogelijkheidRepository.cls.xml
===================================================================
diff -u -r33394 -r33428
--- vhTest/Mock/WSimpl/EC/ExterneVerkoop/VerzendingMogelijkheidRepository.cls.xml	(.../VerzendingMogelijkheidRepository.cls.xml)	(revision 33394)
+++ vhTest/Mock/WSimpl/EC/ExterneVerkoop/VerzendingMogelijkheidRepository.cls.xml	(.../VerzendingMogelijkheidRepository.cls.xml)	(revision 33428)
@@ -20,6 +20,13 @@
 <Implementation><![CDATA[	do ..VerwerkMethodCall("Bewaar",Data)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefViaID">
+<FormalSpec>ID:%String</FormalSpec>
+<ReturnType>TECH.Persistent</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefViaID",ID)
+]]></Implementation>
+</Method>
 </Class>