Index: vhDeploy/Deploy20160509TransportServiceCodesUpdate.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20160509TransportServiceCodesUpdate.cls.xml	(revision 0)
+++ vhDeploy/Deploy20160509TransportServiceCodesUpdate.cls.xml	(revision 34421)
@@ -0,0 +1,42 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Deploy20160509TransportServiceCodesUpdate">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhDeploy.Deploy</Super>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Do ##class(APPS.TRANSP.OfferteService.data.ServiceCodeMapping).%KillExtent()
+	
+	Do ..VoegServiceCodeToe(##class(APPS.TRANSP.enu.TransportFirma).UPS(),54,21,1,"UPS (Worldwide) Express Plus")
+	Do ..VoegServiceCodeToe(##class(APPS.TRANSP.enu.TransportFirma).UPS(),07,10,2,"UPS (Worldwide) Express")
+	Do ..VoegServiceCodeToe(##class(APPS.TRANSP.enu.TransportFirma).UPS(),07,01,2,"UPS (Worldwide) Express")
+	Do ..VoegServiceCodeToe(##class(APPS.TRANSP.enu.TransportFirma).UPS(),65,28,3,"UPS Express Saver")
+	Do ..VoegServiceCodeToe(##class(APPS.TRANSP.enu.TransportFirma).UPS(),65,18,3,"UPS Express Saver")
+	Do ..VoegServiceCodeToe(##class(APPS.TRANSP.enu.TransportFirma).UPS(),11,08,4,"UPS Standard")
+	Do ..VoegServiceCodeToe(##class(APPS.TRANSP.enu.TransportFirma).UPS(),11,68,4,"UPS Standard")
+	Do ..VoegServiceCodeToe(##class(APPS.TRANSP.enu.TransportFirma).DHL(),1,1,5,"DHL Freight")
+]]></Implementation>
+</Method>
+
+<Method name="VoegServiceCodeToe">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>TransportFirma:%String,RateCode:%Integer,TimeInTransitCode:%Integer,InterneCode:%Integer,Omschrijving:%String</FormalSpec>
+<Implementation><![CDATA[
+	
+	Set ServiceCodeMapping = ##class(APPS.TRANSP.OfferteService.data.ServiceCodeMapping).%New()
+	Set ServiceCodeMapping.InterneCode = InterneCode
+	Set ServiceCodeMapping.Omschrijving = Omschrijving
+	Set ServiceCodeMapping.RateCode = RateCode
+	Set ServiceCodeMapping.TimeInTransitCode = TimeInTransitCode
+	Set ServiceCodeMapping.TransportFirma = TransportFirma
+	Do ServiceCodeMapping.Save()
+	
+	Write "De servicecode """_InterneCode_""" is bewaard."
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/TRANSP/Offerte/impl/DHL/OfferteBerekenaar.cls.xml
===================================================================
diff -u -r34300 -r34421
--- APPS/TRANSP/Offerte/impl/DHL/OfferteBerekenaar.cls.xml	(.../OfferteBerekenaar.cls.xml)	(revision 34300)
+++ APPS/TRANSP/Offerte/impl/DHL/OfferteBerekenaar.cls.xml	(.../OfferteBerekenaar.cls.xml)	(revision 34421)
@@ -78,9 +78,10 @@
 	#dim OfferteData As APPS.TRANSP.OfferteService.dto.OfferteData = ##class(APPS.TRANSP.OfferteService.dto.OfferteData).%New()
 	#dim OfferteItem As APPS.TRANSP.OfferteService.dto.OfferteItem = ##class(APPS.TRANSP.OfferteService.dto.OfferteItem).%New()
 	
-	///te converteren adhv opgegeven tabel id conversie naar vanhoecke interne ID.
-	///Set OfferteItem.Omschrijving = "DHL Freight"
-	///Set OfferteItem.Code = Transportduur.GeefID() 
+	#dim TransportService As APPS.TRANSP.OfferteService.dto.ServiceCode = ..GeefTransportServiceCode(1,1)
+
+	Set OfferteItem.Omschrijving = TransportService.Omschrijving
+	Set OfferteItem.Code = TransportService.Code 
 	Set OfferteItem.CarbonNeutralPrijs = 0
 	Set OfferteItem.Kostprijs = ..TransportTarief
 
@@ -106,6 +107,29 @@
 	Quit $List(WeekDay,WeekDayNumber)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefTransportServiceCode">
+<FormalSpec>RateServiceCode:TECH.Integer,TimeIntTransitServiceCode:TECH.Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.TRANSP.OfferteService.dto.ServiceCode</ReturnType>
+<Implementation><![CDATA[
+	#dim TransportFirma As TECH.String = ##class(APPS.TRANSP.enu.TransportFirma).DHL()
+	#dim ServiceCode As APPS.TRANSP.OfferteService.dto.ServiceCode = ""
+	#dim Parameters As %List = $ListBuild(TransportFirma, RateServiceCode, TimeIntTransitServiceCode)
+	#dim Query As %String = "SELECT InterneCode, Omschrijving FROM APPS_TRANSP_OfferteService_data.ServiceCodeMapping WHERE TransportFirma = ? AND RateCode = ? AND TimeInTransitCode = ? "
+	#dim ResultSet As %ResultSet = $$ExecDynQuery^vhLib.Query(Query,Parameters)
+	If ResultSet.Next() {
+		Set ServiceCode = ##class(APPS.TRANSP.OfferteService.dto.ServiceCode).%New()
+		Set ServiceCode.Code = ResultSet.Data("InterneCode")
+		Set ServiceCode.Omschrijving = ResultSet.Data("Omschrijving")
+	}
+	If ResultSet.Next() {
+		Do ##class(TECH.Exceptions.GeneralErrorException).Throw("Ze zijn meerdere servicecodes teruggevonden voor Ratecode "_RateServiceCode _" met TimeInTransitcode " _TimeIntTransitServiceCode)
+	}
+		
+	Quit ServiceCode
+]]></Implementation>
+</Method>
 </Class>