Index: vhDeploy/Deploy20160906TransportServiceCodesUpdate.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20160906TransportServiceCodesUpdate.cls.xml	(revision 0)
+++ vhDeploy/Deploy20160906TransportServiceCodesUpdate.cls.xml	(revision 36464)
@@ -0,0 +1,38 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Deploy20160906TransportServiceCodesUpdate">
+<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(),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")
+]]></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>