Index: vhDeploy/Deploy290316NieuweVerzendwijzeInternationaal.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy290316NieuweVerzendwijzeInternationaal.cls.xml	(revision 0)
+++ vhDeploy/Deploy290316NieuweVerzendwijzeInternationaal.cls.xml	(revision 33402)
@@ -0,0 +1,65 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Deploy290316NieuweVerzendwijzeInternationaal">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Nieuwe verzendwijze: Internationaal</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Do ..VoegToe("U01","UPS 1 dag","UPS 1 jour","UPS 1 Tag","UPS 1 day","12:00","12:00","14:00","11:00",0,1,"LEVBON_DI" ,11,"005004")
+	Do ..VoegToe("U02","UPS 2 dagen","UPS 2 jours","UPS 2 Tagen","UPS 2 days","12:00","12:00","14:00","11:00",0,2,"LEVBON_DI" ,12,"005004")
+	Do ..VoegToe("U03","UPS 3 dagen","UPS 3 jours","UPS 3 Tagen","UPS 3 days","12:00","12:00","14:00","11:00",0,3,"LEVBON_DI" ,13,"005004")
+	Do ..VoegToe("U04","UPS 4 dagen","UPS 4 jours","UPS 4 Tagen","UPS 4 days","12:00","12:00","14:00","11:00",0,4,"LEVBON_DI" ,14,"005004")
+	Do ..VoegToe("U05","UPS 5 dagen","UPS 5 jours","UPS 5 Tagen","UPS 5 days","12:00","12:00","14:00","11:00",0,5,"LEVBON_DI" ,15,"005004")
+	Do ..VoegToe("U06","UPS 6 dagen","UPS 6 jours","UPS 6 Tagen","UPS 6 days","12:00","12:00","14:00","11:00",0,6,"LEVBON_DI" ,16,"005004")
+	///Do ..VoegToe("E01","DHL 1 dag","DHL 1 jour","DHL 1 Tag","DHL 1 day","12:00","12:00","14:00","11:00",0,1,"LEVBON_DI" ,17,"005004")
+	Do ..VoegToe("E02","DHL 2 dagen","DHL 2 jours","DHL 2 Tagen","DHL 2 days","12:00","12:00","14:00","11:00",0,2,"LEVBON_DI" ,18,"005004")
+	Do ..VoegToe("E03","DHL 3 dagen","DHL 3 jours","DHL 3 Tagen","DHL 3 days","12:00","12:00","14:00","11:00",0,3,"LEVBON_DI" ,19,"005004")
+	Do ..VoegToe("E04","DHL 4 dagen","DHL 4 jours","DHL 4 Tagen","DHL 4 days","12:00","12:00","14:00","11:00",0,4,"LEVBON_DI" ,20,"005004")
+	Do ..VoegToe("E05","DHL 5 dagen","DHL 5 jours","DHL 5 Tagen","DHL 5 days","12:00","12:00","14:00","11:00",0,5,"LEVBON_DI" ,21,"005004")
+	Do ..VoegToe("E06","DHL 6 dagen","DHL 6 jours","DHL 6 Tagen","DHL 6 days","12:00","12:00","14:00","11:00",0,6,"LEVBON_DI" ,22,"005004")
+	Do ..VoegToe("E07","DHL 7 dagen","DHL 7 jours","DHL 7 Tagen","DHL 7 days","12:00","12:00","14:00","11:00",0,7,"LEVBON_DI" ,23,"005004")
+	Do ..VoegToe("E08","DHL 8 dagen","DHL 8 jours","DHL 8 Tagen","DHL 8 days","12:00","12:00","14:00","11:00",0,8,"LEVBON_DI" ,24,"005004")
+	Do ..VoegToe("E09","DHL 9 dagen","DHL 9 jours","DHL 9 Tagen","DHL 9 days","12:00","12:00","14:00","11:00",0,9,"LEVBON_DI" ,25,"005004")
+	Do ..VoegToe("E10","DHL 10 dagen","DHL 10 jours","DHL 10 Tagen","DHL 10 days","12:00","12:00","14:00","11:00",0,10,"LEVBON_DI",26,"005004")
+	Do ..VoegToe("E11","DHL 11 dagen","DHL 11 jours","DHL 11 Tagen","DHL 11 days","12:00","12:00","14:00","11:00",0,11,"LEVBON_DI",27,"005004")
+	Do ..VoegToe("E12","DHL 12 dagen","DHL 12 jours","DHL 12 Tagen","DHL 12 days","12:00","12:00","14:00","11:00",0,12,"LEVBON_DI",28,"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
+	
+		#Dim PiItemService As BL.Legacy.Res.PiItemService = ##class(BL.Legacy.Res.PiItemService).%New( VerzendWijze.#GlobalNode, VerzendWijze.#GlobalSubNode )
+		Do PiItemService.VoegToeViaVolgNr( VerzendWijze, VolgNr )
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>