Index: vhDeploy/Deploy20190313VerzendWijzeGLSDuitsland.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20190313VerzendWijzeGLSDuitsland.cls.xml	(revision 0)
+++ vhDeploy/Deploy20190313VerzendWijzeGLSDuitsland.cls.xml	(revision 55717)
@@ -0,0 +1,59 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Deploy20190313VerzendWijzeGLSDuitsland">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Update verzendwijze: GLS 4 dagen - Duitsland</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Do ..VoegToe("GL4","GLS 4 dagen","GLS 4 jours","GLS 4 Tagen","GLS 4 days","19:00","12:00","15:30","14:30",1,4,"LEVBON_DI" ,"005003",5036,12)
+	Do ..VoegToe("GL5","GLS 5 dagen","GLS 5 jours","GLS 5 Tagen","GLS 5 days","19:00","12:00","15:30","14:30",1,5,"LEVBON_DI" ,"005003",5036,12)
+]]></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,VerzendZone:%String,Transporteur:%String,AantalDagen:%Integer</FormalSpec>
+<Implementation><![CDATA[
+	if (##class(DOM.VKP.VerzendWijze).%ExistsId(ID)) {
+		#Dim VerzendWijze As DOM.VKP.VerzendWijze = ##class(DOM.VKP.VerzendWijze).%OpenId(ID)
+
+		#Dim PiItemService As BL.Legacy.Res.PiItemService = ##class(BL.Legacy.Res.PiItemService).%New( VerzendWijze.#GlobalNode, VerzendWijze.#GlobalSubNode )
+		Do PiItemService.Verwijder(ID)
+	
+		if ('##class(DOM.VKP.VerzendWijze).%ExistsId(ID))
+		{
+			Set VerzendWijze = ##class(DOM.VKP.VerzendWijze.Los).%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
+			Set VerzendWijze.Transporteur = Transporteur 
+			Set VerzendWijze.AantalDagen = AantalDagen
+		
+			Set PiItemService = ##class(BL.Legacy.Res.PiItemService).%New( VerzendWijze.#GlobalNode, VerzendWijze.#GlobalSubNode )
+			Do PiItemService.VoegToeViaVolgNr( VerzendWijze )
+		}
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>