Index: vhTest/Fake/APPS/VKP/Offerte.cls.xml
===================================================================
diff -u -r29059 -r33966
--- vhTest/Fake/APPS/VKP/Offerte.cls.xml	(.../Offerte.cls.xml)	(revision 29059)
+++ vhTest/Fake/APPS/VKP/Offerte.cls.xml	(.../Offerte.cls.xml)	(revision 33966)
@@ -31,6 +31,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefDocumentReferenties">
+<ReturnType>DOM.VKP.DocumentReferenties</ReturnType>
+<Implementation><![CDATA[	Quit ..DocumentReferenties
+]]></Implementation>
+</Method>
+
 <Method name="GeefWinkelkarID">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit "DummyWinkelkarID"
Index: vhUnitTest/WS/EC/Unishop/InternationaleZending/DummyService/Test.cls.xml
===================================================================
diff -u -r33921 -r33966
--- vhUnitTest/WS/EC/Unishop/InternationaleZending/DummyService/Test.cls.xml	(.../Test.cls.xml)	(revision 33921)
+++ vhUnitTest/WS/EC/Unishop/InternationaleZending/DummyService/Test.cls.xml	(.../Test.cls.xml)	(revision 33966)
@@ -48,6 +48,42 @@
 	Do $$$AssertEquals(EuropeseLanden.GetAt(25).Naam,"Zweden")
 ]]></Implementation>
 </Method>
+
+<Method name="Test: GeefMogelijkeZendingen geeft dummy mogelijkezendingen weer (Engelstalig).">
+<Implementation><![CDATA[
+	#dim OfferteServiceMock As vhTest.Mock.APPS.VKP.OfferteService = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
+	#dim OfferteDummy As vhTest.Fake.APPS.VKP.Offerte = ##class(vhTest.Fake.APPS.VKP.Offerte).%New()
+	Set OfferteDummy.DocumentReferenties.OrderReferentie = "Mijn Dummy Referentie"
+	Do OfferteServiceMock.IndienMethodCall("GeefOfferte", "DummyOfferteID").DanReturn(OfferteDummy)
+	
+	#dim TestUnit As WS.EC.Unishop.InternationaleZending.DummyService = ##class(WS.EC.Unishop.InternationaleZending.DummyService).%New(OfferteServiceMock)
+	#dim ZendingMogelijkheden As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden = TestUnit.GeefMogelijkeZendingen("DummyOfferteID", "E")
+	
+	Do $$$AssertEquals(ZendingMogelijkheden.Count(),5)
+	Do $$$AssertEquals(ZendingMogelijkheden.GetAt(1).Omschrijving,"UPS (Worldwide) Express Plus")
+	Do $$$AssertEquals(ZendingMogelijkheden.GetAt(1).ExtraInfo,"UPS will deliver your order in the early morning.")
+	Do $$$AssertEquals(ZendingMogelijkheden.GetAt(1).Optie.Omschrijving,"Would you like to compensate for the delivery-related CO2 emissions? ")
+	Do $$$AssertEquals(ZendingMogelijkheden.GetAt(1).Optie.ExtraInfo,"Compensate your CO2 emission by choosing carbon neutral. That way, you support reforestation projects, destruction of harmful waste and methane gases and waste water treatment.")
+]]></Implementation>
+</Method>
+
+<Method name="Test: GeefMogelijkeZendingen geeft dummy mogelijkezendingen weer (Nederlandstalig).">
+<Implementation><![CDATA[
+	#dim OfferteServiceMock As vhTest.Mock.APPS.VKP.OfferteService = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
+	#dim OfferteDummy As vhTest.Fake.APPS.VKP.Offerte = ##class(vhTest.Fake.APPS.VKP.Offerte).%New()
+	Set OfferteDummy.DocumentReferenties.OrderReferentie = "Mijn Dummy Referentie"
+	Do OfferteServiceMock.IndienMethodCall("GeefOfferte", "DummyOfferteID").DanReturn(OfferteDummy)
+	
+	#dim TestUnit As WS.EC.Unishop.InternationaleZending.DummyService = ##class(WS.EC.Unishop.InternationaleZending.DummyService).%New(OfferteServiceMock)
+	#dim ZendingMogelijkheden As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden = TestUnit.GeefMogelijkeZendingen("DummyOfferteID", "N")
+	
+	Do $$$AssertEquals(ZendingMogelijkheden.Count(),5)
+	Do $$$AssertEquals(ZendingMogelijkheden.GetAt(1).Omschrijving,"UPS (Worldwide) Express Plus")
+	Do $$$AssertEquals(ZendingMogelijkheden.GetAt(1).ExtraInfo,"UPS levert uw bestelling in de vroege ochtend.")
+	Do $$$AssertEquals(ZendingMogelijkheden.GetAt(1).Optie.Omschrijving,"Wenst u de CO2-uitstoot van uw levering te compenseren ? ")
+	Do $$$AssertEquals(ZendingMogelijkheden.GetAt(1).Optie.ExtraInfo,"Compenseer uw CO2-uitstoot door te kiezen voor carbon neutral. Zo ondersteunt u projecten rond herbebossing, vernietiging van schadelijke afval- en methaangassen en afvalwaterverwerking.")
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: WS/EC/Unishop/InternationaleZending/DummyService.cls.xml
===================================================================
diff -u -r33921 -r33966
--- WS/EC/Unishop/InternationaleZending/DummyService.cls.xml	(.../DummyService.cls.xml)	(revision 33921)
+++ WS/EC/Unishop/InternationaleZending/DummyService.cls.xml	(.../DummyService.cls.xml)	(revision 33966)
@@ -3,6 +3,36 @@
 <Class name="WS.EC.Unishop.InternationaleZending.DummyService">
 <Super>TECH.RegisteredObject</Super>
 
+<Property name="Vertaler">
+<Type>DOM.common.Transl.Vertaler</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="OfferteService">
+<Type>APPS.VKP.OfferteService</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>OfferteService:APPS.VKP.OfferteService</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..OfferteService = $$$Inject(OfferteService, ##class(APPS.ApplicatieContext).Instance().GeefVerkoopAPI().GeefOfferteService())
+
+	quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="ZetVertaler">
+<FormalSpec>Taal:DOM.enu.Taal</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Set ..Vertaler = ##class(DOM.DomeinContext).Instance().GeefVertaalAPI().GeefVertaler(Taal, ##class(DOM.common.Transl.enu.VertaalGroep).Unishop(), ##class(DOM.common.Transl.enu.VertaalGroep).Algemeen())
+]]></Implementation>
+</Method>
+
 <Method name="GeefBeschikbareLanden">
 <FormalSpec>Taal:DOM.enu.Taal</FormalSpec>
 <ReturnType>WS.EC.ExterneVerkoop.dto.Landen</ReturnType>
@@ -70,8 +100,9 @@
 <FormalSpec>OfferteID:%String,Taal:DOM.enu.Taal</FormalSpec>
 <ReturnType>WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden</ReturnType>
 <Implementation><![CDATA[
-	#dim OfferteService As APPS.VKP.OfferteService = ##class(APPS.ApplicatieContext).Instance().GeefVerkoopAPI().GeefOfferteService()
-	#dim Offerte As APPS.VKP.Offerte = OfferteService.GeefOfferte(OfferteID)
+	Do ..ZetVertaler(Taal)
+	
+	#dim Offerte As APPS.VKP.Offerte = ..OfferteService.GeefOfferte(OfferteID)
 	#dim OrderReferentie = Offerte.GeefDocumentReferenties().OrderReferentie
 
 	If (OrderReferentie [ "GeenUPSResponse") {
@@ -97,6 +128,7 @@
 </Method>
 
 <Method name="SoftwareCrash">
+<Private>1</Private>
 <Implementation><![CDATA[	Do ##class(TECH.Exceptions.EnumerationException).Throw("Software crash Enumeration Exception!")
 ]]></Implementation>
 </Method>
@@ -128,10 +160,10 @@
 	Set ZendingDetail0.Optie = ..ConverteerNaarCarbonNeutralOptie(0.9)
 	Set ZendingDetail0.LeverDatum = ##class(TECH.DateTime).DatumBereken(..GeefHuidigeDatum(),1, ##class(TECH.enu.DatePart).Dag())
 	Set ZendingDetail0.LeverTijd = ##class(TECH.DateTime).CurrentTime()
-	Set ZendingDetail0.LeverDag = "Ma"
+	Set ZendingDetail0.LeverDag = ..Vertaler.GeefVertaling("Maandag_Kort")
 	Set ZendingDetail0.KostPrijs = 48.00
-	Set ZendingDetail0.Omschrijving = "UPS (Worldwide) Express Plus "
-	Set ZendingDetail0.ExtraInfo = "UPS levert uw bestelling in de vroege ochtend."
+	Set ZendingDetail0.Omschrijving = "UPS (Worldwide) Express Plus"
+	Set ZendingDetail0.ExtraInfo = ..Vertaler.GeefVertaling(ZendingDetail0.Omschrijving)
 	Do ZendingDetails.Insert(ZendingDetail0)
 
 	
@@ -140,43 +172,43 @@
 	Set ZendingDetail1.Optie = ..ConverteerNaarCarbonNeutralOptie(0.9)
 	Set ZendingDetail1.LeverDatum = ##class(TECH.DateTime).DatumBereken(..GeefHuidigeDatum(),1, ##class(TECH.enu.DatePart).Dag())
 	Set ZendingDetail1.LeverTijd = ##class(TECH.DateTime).CurrentTime()
-	Set ZendingDetail1.LeverDag = "Ma"
+	Set ZendingDetail1.LeverDag = ..Vertaler.GeefVertaling("Maandag_Kort")
 	Set ZendingDetail1.KostPrijs = 44.00
 	Set ZendingDetail1.Omschrijving = "UPS (Worldwide) Express"
-	Set ZendingDetail1.ExtraInfo = "UPS levert uw bestelling in de voormiddag."
+	Set ZendingDetail1.ExtraInfo = ..Vertaler.GeefVertaling(ZendingDetail0.Omschrijving)
 	Do ZendingDetails.Insert(ZendingDetail1)
 
 	#dim ZendingDetail2 As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheid = ##class(WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheid).%New()
 	Set ZendingDetail2.Code = 3
 	Set ZendingDetail2.Optie = ..ConverteerNaarCarbonNeutralOptie(0.5)
 	Set ZendingDetail2.LeverDatum = ##class(TECH.DateTime).DatumBereken(..GeefHuidigeDatum(),1, ##class(TECH.enu.DatePart).Dag())
 	Set ZendingDetail1.LeverTijd = ##class(TECH.DateTime).CurrentTime()
-	Set ZendingDetail1.LeverDag = "Ma"
+	Set ZendingDetail1.LeverDag = ..Vertaler.GeefVertaling("Maandag_Kort")
 	Set ZendingDetail2.KostPrijs = 40.00
 	Set ZendingDetail2.Omschrijving = "UPS Express Saver"
-	Set ZendingDetail2.ExtraInfo = "UPS levert uw bestelling op de door u gekozen datum."
+	Set ZendingDetail2.ExtraInfo = ..Vertaler.GeefVertaling(ZendingDetail0.Omschrijving)
 	Do ZendingDetails.Insert(ZendingDetail2)
 
 	#dim ZendingDetail3 As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheid = ##class(WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheid).%New()
 	Set ZendingDetail3.Code = 4
 	Set ZendingDetail3.Optie = ..ConverteerNaarCarbonNeutralOptie(0.2)
 	Set ZendingDetail3.LeverDatum = ##class(TECH.DateTime).DatumBereken(..GeefHuidigeDatum(),2, ##class(TECH.enu.DatePart).Dag())
 	Set ZendingDetail1.LeverTijd = ##class(TECH.DateTime).CurrentTime()
-	Set ZendingDetail1.LeverDag = "Di"
+	Set ZendingDetail1.LeverDag = ..Vertaler.GeefVertaling("Dinsdag_Kort")
 	Set ZendingDetail3.KostPrijs = 36.50
 	Set ZendingDetail3.Omschrijving = "UPS Standard" 
-	Set ZendingDetail3.ExtraInfo = "UPS levert uw bestelling in de loop van de dag."
+	Set ZendingDetail3.ExtraInfo = ..Vertaler.GeefVertaling(ZendingDetail0.Omschrijving)
 	Do ZendingDetails.Insert(ZendingDetail3)
 
 	#dim ZendingDetail4 As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheid = ##class(WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheid).%New()
 	Set ZendingDetail4.Code = 5
 	Set ZendingDetail4.Optie = ..ConverteerNaarCarbonNeutralOptie(0)
 	Set ZendingDetail4.LeverDatum = ##class(TECH.DateTime).DatumBereken(..GeefHuidigeDatum(),6, ##class(TECH.enu.DatePart).Dag())
 	Set ZendingDetail1.LeverTijd = ##class(TECH.DateTime).CurrentTime()
-	Set ZendingDetail1.LeverDag = "Vr"
+	Set ZendingDetail1.LeverDag = ..Vertaler.GeefVertaling("Vrijdag_Kort")
 	Set ZendingDetail4.KostPrijs = 50.00
 	Set ZendingDetail4.Omschrijving = "DHL Freight"
-	Set ZendingDetail4.ExtraInfo = "DHL staat in voor pallettransport."
+	Set ZendingDetail4.ExtraInfo = ..Vertaler.GeefVertaling(ZendingDetail0.Omschrijving)
 	Do ZendingDetails.Insert(ZendingDetail4)
 	
 	Quit ZendingDetails
@@ -198,17 +230,18 @@
 	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.ExtraInfo = "Compenseer uw CO2-uitstoot door te kiezen voor carbon neutral. Zo ondersteunt u projecten rond herbebossing, vernietiging van schadelijke afval- en methaangassen en afvalwaterverwerking."
+	Set CarbonNeutral.Omschrijving = ..Vertaler.GeefVertaling("CO2Compenseren")
+	Set CarbonNeutral.ExtraInfo = ..Vertaler.GeefVertaling("CompenseerCO2DoorCarbonNeutralTeKiezen")
+
 	#dim SelectieOptie1 As WS.EC.ExterneVerkoop.dto.Selectie = ##class(WS.EC.ExterneVerkoop.dto.Selectie).%New()
 	Set SelectieOptie1.ID = "0"
-	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))
 	Set SelectieOptie1.Prijs = CarbonNeutralPrijs
 	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.Omschrijving = "nee"
+	Set SelectieOptie2.Omschrijving = ..Vertaler.GeefVertaling("Nee")
 	Set SelectieOptie1.Prijs = 0
 	Do CarbonNeutral.MogelijkeWaarden.Insert(SelectieOptie2)
 	Quit CarbonNeutral