Index: vhDeploy/Deploy20160415VertalingInternationaleZendingService.cls.xml
===================================================================
diff -u -r33876 -r33882
--- vhDeploy/Deploy20160415VertalingInternationaleZendingService.cls.xml	(.../Deploy20160415VertalingInternationaleZendingService.cls.xml)	(revision 33876)
+++ vhDeploy/Deploy20160415VertalingInternationaleZendingService.cls.xml	(.../Deploy20160415VertalingInternationaleZendingService.cls.xml)	(revision 33882)
@@ -23,7 +23,7 @@
 	Do ##class(Res.Vertaling).CreateOrUpdate("Unishop", "UPS Standard",, ##class(DOM.enu.Taal).Nederlands(), "UPS levert uw bestelling in de loop van de dag.")
 	Do ##class(Res.Vertaling).CreateOrUpdate("Unishop", "DHL Freight",, ##class(DOM.enu.Taal).Nederlands(), "DHL staat in voor pallettransport.")
                                               
-	Do ##class(Res.Vertaling).CreateOrUpdate("Unishop", "CO2Compenseren",, ##class(DOM.enu.Taal).Frans(), "Souhaitez-vous compenser les émissions de CO2 de votre commande ? ")
+	Do ##class(Res.Vertaling).CreateOrUpdate("Unishop", "CO2Compenseren",, ##class(DOM.enu.Taal).Frans(), "Souhaitez-vous compenser les émissions de CO2 de votre commande ? ")
 	Do ##class(Res.Vertaling).CreateOrUpdate("Unishop", "IkBetaal",, ##class(DOM.enu.Taal).Frans(), "Oui, pour cela, je paye xxx ?. ")
 	Do ##class(Res.Vertaling).CreateOrUpdate("Unishop", "Nee",, ##class(DOM.enu.Taal).Frans(), "Non")
 	Do ##class(Res.Vertaling).CreateOrUpdate("Unishop", "CompenseerCO2DoorCarbonNeutralTeKiezen",, ##class(DOM.enu.Taal).Frans(), "Compensez vos émissions de CO2 en choisissant des produits neutres en carbone et soutenez ainsi les projets de reboisement, la destruction des déchets et des gaz de méthane nocifs et le traitement des eaux usées.")
Index: WS/EC/Unishop/InternationaleZending/impl/ZendingDetails.cls.xml
===================================================================
diff -u -r33539 -r33882
--- WS/EC/Unishop/InternationaleZending/impl/ZendingDetails.cls.xml	(.../ZendingDetails.cls.xml)	(revision 33539)
+++ WS/EC/Unishop/InternationaleZending/impl/ZendingDetails.cls.xml	(.../ZendingDetails.cls.xml)	(revision 33882)
@@ -8,14 +8,20 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Vertaler">
+<Type>DOM.common.Transl.Vertaler</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>TransportOfferteService:APPS.TRANSP.OfferteService</FormalSpec>
+<FormalSpec>TransportOfferteService:APPS.TRANSP.OfferteService,Taal:DOM.enu.Taal="N"</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..TransportOfferteService = $$$Implementation(TransportOfferteService, ##class(APPS.TRANSP.impl.OfferteService).%New())
+	Set ..Vertaler = ##class(DOM.DomeinContext).Instance().GeefVertaalAPI().GeefVertaler(Taal, ##class(DOM.common.Transl.enu.VertaalGroep).Unishop(), ##class(DOM.common.Transl.enu.VertaalGroep).Algemeen())
 	quit $$$OK
 ]]></Implementation>
 </Method>
@@ -67,17 +73,17 @@
 	Quit:((CarbonNeutralPrijs = 0) || (CarbonNeutralPrijs = "")) ""
 	
 	#dim CarbonNeutral As WS.EC.ExterneVerkoop.dto.Optie = ##class(WS.EC.ExterneVerkoop.dto.Optie).%New()
-	Set CarbonNeutral.Omschrijving = "Wenst u de CO2-uitstoot van uw levering te compenseren ?"
+	Set CarbonNeutral.Omschrijving = ..Vertaler.GeefVertaling("CO2Compenseren")
 	#dim SelectieOptie1 As WS.EC.ExterneVerkoop.dto.Selectie = ##class(WS.EC.ExterneVerkoop.dto.Selectie).%New()
 	Set SelectieOptie1.ID = "0"
 	Set SelectieOptie1.Prijs = CarbonNeutralPrijs
-	Set SelectieOptie1.Omschrijving = "ja, ik betaal hiervoor " _$FNUMBER(CarbonNeutralPrijs,"",2) _" EUR"
+	Set SelectieOptie1.Omschrijving = ##class(TECH.StringUtils).Replace(..Vertaler.GeefVertaling("IkBetaal"),"xxx",$FNUMBER(CarbonNeutralPrijs,"",2))
 	Do CarbonNeutral.MogelijkeWaarden.Insert(SelectieOptie1)
 	
 	#dim SelectieOptie2 As WS.EC.ExterneVerkoop.dto.Selectie = ##class(WS.EC.ExterneVerkoop.dto.Selectie).%New()
 	Set SelectieOptie2.ID = "1"
 	Set SelectieOptie2.Prijs = 0
-	Set SelectieOptie2.Omschrijving = "nee"
+	Set SelectieOptie2.Omschrijving = ..Vertaler.GeefVertaling("Nee")
 	Do CarbonNeutral.MogelijkeWaarden.Insert(SelectieOptie2)
 	Quit CarbonNeutral
 ]]></Implementation>
Index: vhUnitTest/WS/EC/Unishop/InternationaleZending/impl/ZendingDetails/Test.cls.xml
===================================================================
diff -u -r33625 -r33882
--- vhUnitTest/WS/EC/Unishop/InternationaleZending/impl/ZendingDetails/Test.cls.xml	(.../Test.cls.xml)	(revision 33625)
+++ vhUnitTest/WS/EC/Unishop/InternationaleZending/impl/ZendingDetails/Test.cls.xml	(.../Test.cls.xml)	(revision 33882)
@@ -16,9 +16,9 @@
 	#dim ZendingDetails As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden = HaalZendingDetails.GeefZendingDetails(BerekenInput)
 	
 	If $$$AssertEquals(ZendingDetails.Count(),1) {
-		Do $$$AssertEquals(ZendingDetails.GetAt(1).Optie.Omschrijving ,"Wenst u de CO2-uitstoot van uw levering te compenseren ?")
+		Do $$$AssertEquals(ZendingDetails.GetAt(1).Optie.Omschrijving ,"Wenst u de CO2-uitstoot van uw levering te compenseren ? ")
 		Do $$$AssertEquals(ZendingDetails.GetAt(1).Optie.MogelijkeWaarden.Count() ,2)
-		Do $$$AssertEquals(ZendingDetails.GetAt(1).Optie.MogelijkeWaarden.GetAt(1).Omschrijving ,"ja, ik betaal hiervoor 0.80 EUR")
+		Do $$$AssertEquals(ZendingDetails.GetAt(1).Optie.MogelijkeWaarden.GetAt(1).Omschrijving ,"Ja, ik betaal hiervoor 0.80 ?. ")
 		Do $$$AssertEquals(ZendingDetails.GetAt(1).Optie.MogelijkeWaarden.GetAt(1).ID ,0)
 		Do $$$AssertEquals(ZendingDetails.GetAt(1).Optie.MogelijkeWaarden.GetAt(2).ID ,1)
 		Do $$$AssertEquals(ZendingDetails.GetAt(1).Optie.MogelijkeWaarden.GetAt(1).Prijs ,0.80)