Index: vhDeploy/Deploy20181106UpdateVerzendWijzeSFSTransportDuur.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20181106UpdateVerzendWijzeSFSTransportDuur.cls.xml	(revision 0)
+++ vhDeploy/Deploy20181106UpdateVerzendWijzeSFSTransportDuur.cls.xml	(revision 53677)
@@ -0,0 +1,52 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Deploy20181106UpdateVerzendWijzeSFSTransportDuur">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Update verzendwijze: SFS en TNT</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	Do ..VoegToe("SFS","SFS","SFS","SFS","SFS","12:00","12:00","14:00","11:00",1,2,"" ,116,"005003")
+]]></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
+	
+		#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>