Index: vhDeploy/Deploy20190122TNTUpdateVerzendWijzeTNT.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20190122TNTUpdateVerzendWijzeTNT.cls.xml	(revision 0)
+++ vhDeploy/Deploy20190122TNTUpdateVerzendWijzeTNT.cls.xml	(revision 54797)
@@ -0,0 +1,61 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Deploy20190122TNTUpdateVerzendWijzeTNT">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Update verzendwijze: TNT</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Do ..VoegToe("T01","TNT 1 dag","TNT 1 jour","TNT 1 Tag","TNT 1 day","12:00","12:00","14:00","11:00",0,1,"LEVBON_DI" ,117,"005004")
+	Do ..VoegToe("T02","TNT 2 dagen","TNT 2 jours","TNT 2 Tagen","TNT 2 days","12:00","12:00","14:00","11:00",0,2,"LEVBON_DI" ,118,"005004")
+	Do ..VoegToe("T03","TNT 3 dagen","TNT 3 jours","TNT 3 Tagen","TNT 3 days","12:00","12:00","14:00","11:00",0,3,"LEVBON_DI" ,119,"005004")
+	Do ..VoegToe("T04","TNT 4 dagen","TNT 4 jours","TNT 4 Tagen","TNT 4 days","12:00","12:00","14:00","11:00",0,4,"LEVBON_DI" ,120,"005004")
+	Do ..VoegToe("T05","TNT 5 dagen","TNT 5 jours","TNT 5 Tagen","TNT 5 days","12:00","12:00","14:00","11:00",0,5,"LEVBON_DI" ,121,"005004")
+	Do ..VoegToe("T06","TNT 6 dagen","TNT 6 jours","TNT 6 Tagen","TNT 6 days","12:00","12:00","14:00","11:00",0,6,"LEVBON_DI" ,122,"005004")
+	Do ..VoegToe("T07","TNT 7 dagen","TNT 7 jours","TNT 7 Tagen","TNT 7 days","12:00","12:00","14:00","11:00",0,7,"LEVBON_DI" ,123,"005004")
+	Do ..VoegToe("T08","TNT 8 dagen","TNT 8 jours","TNT 8 Tagen","TNT 8 days","12:00","12:00","14:00","11:00",0,8,"LEVBON_DI" ,124,"005004")
+]]></Implementation>
+</Method>
+
+<Method name="VoegToe">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ID:%String,OmschrijvingNederlands:%String,OmschrijvingFrans:%String,OmschrijvingDuits:%String,OmschrijvingEngels:%String,DueOutMagazijn:%String,DueOutProductie:%String,KantelDoorsturenMagazijn:%String,KantelOrderIngave:%String,MagOpschuivenIndienAutoSendAf:%Integer,TransportDuur:%Integer,BonPrinter:%String,VolgNr:%Integer,VerzendZone:%String</FormalSpec>
+<Implementation><![CDATA[
+	if ('##class(DOM.VKP.VerzendWijze).%ExistsId(ID))
+	{
+		#Dim VerzendWijze As DOM.VKP.VerzendWijze.Bulk = ##class(DOM.VKP.VerzendWijze.Intern).%New(ID)
+		Do VerzendWijze.ZetOmschrijving( OmschrijvingNederlands )
+		Set VerzendWijze.DueOutMagazijn = $$INTTIME^vhLib.DataTypes(DueOutMagazijn)
+		Set VerzendWijze.DueOutProductie = $$INTTIME^vhLib.DataTypes(DueOutProductie)
+		Set VerzendWijze.KantelOrderIngave = $$INTTIME^vhLib.DataTypes(KantelOrderIngave)
+		Set VerzendWijze.KantelDoorsturenMagazijn = $$INTTIME^vhLib.DataTypes(KantelDoorsturenMagazijn)
+		Set VerzendWijze.VerzendZone = VerzendZone
+		Set VerzendWijze.MagOpschuivenIndienAutoSendAf = MagOpschuivenIndienAutoSendAf
+		Set VerzendWijze.BonPrinter = BonPrinter
+		Set VerzendWijze.OmschrijvingDuits = OmschrijvingDuits
+		Set VerzendWijze.OmschrijvingFrans = OmschrijvingFrans
+		Set VerzendWijze.OmschrijvingEngels = OmschrijvingEngels
+		Set VerzendWijze.OmschrijvingNederlands = OmschrijvingNederlands
+		Set VerzendWijze.TransportDuur = TransportDuur
+		
+		#Dim PiItemService As BL.Legacy.Res.PiItemService = ##class(BL.Legacy.Res.PiItemService).%New( VerzendWijze.#GlobalNode, VerzendWijze.#GlobalSubNode )
+		Do PiItemService.VoegToeViaVolgNr( VerzendWijze, VolgNr )
+	} else {
+		#dim VerzendWijzeUpdate As DOM.VKP.VerzendWijze = ##class(DOM.VKP.VerzendWijze).%OpenId(ID)
+		Set VerzendWijzeUpdate.TransportDuur = TransportDuur
+		Do VerzendWijzeUpdate.ZetVolgNr(VolgNr)
+		Do VerzendWijzeUpdate.Save()
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>