Index: vhDeploy/Deploy20200604xVerzendwijzeHaefeleDEHamann.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20200604xVerzendwijzeHaefeleDEHamann.cls.xml	(revision 0)
+++ vhDeploy/Deploy20200604xVerzendwijzeHaefeleDEHamann.cls.xml	(revision 61239)
@@ -0,0 +1,130 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Deploy20200604xVerzendwijzeHaefeleDEHamann">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Nieuwe verzendwijze: HD1</Default>
+</Parameter>
+
+<Method name="CleanUp">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#Dim PiItemService As BL.Legacy.Res.PiItemService = ##class(BL.Legacy.Res.PiItemService).%New( "KLANT", "VERZENDWIJZE" )
+	Do PiItemService.Verwijder("HD")
+	Do PiItemService.Verwijder("HD1")
+	Do PiItemService.Verwijder("HD2")
+	Do PiItemService.Verwijder("HD3")
+]]></Implementation>
+</Method>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+
+	#dim ID as %String = "HD"
+	; Deze is enkel bedoeld om de 3 andere tegelijk te kunnen opvragen in de toerlijst. duur op 3 dagen gezet, maar in principe niet meer belangrijk als lades al geproduceerd zijn.
+	if ('##class(DOM.VKP.VerzendWijze).%ExistsId(ID))
+	{
+		#Dim HDE As DOM.VKP.VerzendWijze.Bulk = ##class(DOM.VKP.VerzendWijze.Intern).%New(ID)
+		Do HDE.ZetOmschrijving("HD")
+		Set HDE.DueOutMagazijn = $$INTTIME^vhLib.DataTypes("13:30")
+		Set HDE.DueOutProductie = $$INTTIME^vhLib.DataTypes("11:00")
+		Set HDE.KantelOrderIngave = $$INTTIME^vhLib.DataTypes("16:00")
+		Set HDE.KantelDoorsturenMagazijn = $$INTTIME^vhLib.DataTypes("13:00")
+		Set HDE.KantelDoorsturenProductie = $$INTTIME^vhLib.DataTypes("10:00")
+		Set HDE.VerzendZone = "005003" 
+		Set HDE.MagOpschuivenIndienAutoSendAf = 1
+		Set HDE.Transporteur = 9174
+		Set HDE.TransportDuur = 3
+		Set HDE.AanrekenenPort = $$$False
+		Set HDE.UitgesteldPakbonBoekenAx = $$$True		
+		Set HDE.OmschrijvingDuits = "HD"
+		Set HDE.OmschrijvingFrans = "HD"
+		Set HDE.OmschrijvingEngels = "HD"
+		Set HDE.OmschrijvingNederlands = "HD"
+	
+		#Dim PiItemService As BL.Legacy.Res.PiItemService = ##class(BL.Legacy.Res.PiItemService).%New( HDE.#GlobalNode, HDE.#GlobalSubNode )
+		Do PiItemService.VoegToeViaVolgNr( HDE, 10 )
+	}
+
+
+	Set ID = "HD1"
+	if ('##class(DOM.VKP.VerzendWijze).%ExistsId(ID))
+	{
+		Set HDE = ##class(DOM.VKP.VerzendWijze.Intern).%New(ID)
+		Do HDE.ZetOmschrijving("HD1 - 1 dag")
+		Set HDE.DueOutMagazijn = $$INTTIME^vhLib.DataTypes("13:30")
+		Set HDE.DueOutProductie = $$INTTIME^vhLib.DataTypes("11:00")
+		Set HDE.KantelOrderIngave = $$INTTIME^vhLib.DataTypes("16:00")
+		Set HDE.KantelDoorsturenMagazijn = $$INTTIME^vhLib.DataTypes("13:00")
+		Set HDE.KantelDoorsturenProductie = $$INTTIME^vhLib.DataTypes("10:00")
+		Set HDE.VerzendZone = "005003" 
+		Set HDE.MagOpschuivenIndienAutoSendAf = 1
+		Set HDE.Transporteur = 9174
+		Set HDE.TransportDuur = 1
+		Set HDE.AanrekenenPort = $$$False
+		Set HDE.UitgesteldPakbonBoekenAx = $$$True		
+		Set HDE.OmschrijvingDuits = "HD1 - 1 Tag"
+		Set HDE.OmschrijvingFrans = "HD1 - 1 jour"
+		Set HDE.OmschrijvingEngels = "HD1 - 1 day"
+		Set HDE.OmschrijvingNederlands = "HD1 - 1 dag"
+	
+		Set PiItemService = ##class(BL.Legacy.Res.PiItemService).%New( HDE.#GlobalNode, HDE.#GlobalSubNode )
+		Do PiItemService.VoegToeViaVolgNr( HDE, 11 )
+	}
+	Set ID = "HD2"
+	if ('##class(DOM.VKP.VerzendWijze).%ExistsId(ID))
+	{
+		Set HDE = ##class(DOM.VKP.VerzendWijze.Intern).%New(ID)
+		Do HDE.ZetOmschrijving("HD2 - 2 dagen")
+		Set HDE.DueOutMagazijn = $$INTTIME^vhLib.DataTypes("13:30")
+		Set HDE.DueOutProductie = $$INTTIME^vhLib.DataTypes("11:00")
+		Set HDE.KantelOrderIngave = $$INTTIME^vhLib.DataTypes("16:00")
+		Set HDE.KantelDoorsturenMagazijn = $$INTTIME^vhLib.DataTypes("13:00")
+		Set HDE.KantelDoorsturenProductie = $$INTTIME^vhLib.DataTypes("10:00")
+		Set HDE.VerzendZone = "005003" 
+		Set HDE.MagOpschuivenIndienAutoSendAf = 1
+		Set HDE.Transporteur = 9174
+		Set HDE.TransportDuur = 2
+		Set HDE.AanrekenenPort = $$$False
+		Set HDE.UitgesteldPakbonBoekenAx = $$$True		
+		Set HDE.OmschrijvingDuits = "HD2 - 2 Tagen"
+		Set HDE.OmschrijvingFrans = "HD2 - 2 jours"
+		Set HDE.OmschrijvingEngels = "HD2 - 2 days"
+		Set HDE.OmschrijvingNederlands = "HD2 - 2 dagen"
+	
+		Set PiItemService = ##class(BL.Legacy.Res.PiItemService).%New( HDE.#GlobalNode, HDE.#GlobalSubNode )
+		Do PiItemService.VoegToeViaVolgNr( HDE, 12 )
+	}
+	Set ID = "HD3"
+	if ('##class(DOM.VKP.VerzendWijze).%ExistsId(ID))
+	{
+		Set HDE = ##class(DOM.VKP.VerzendWijze.Intern).%New(ID)
+		Do HDE.ZetOmschrijving("HD3 - 3 dagen")
+		Set HDE.DueOutMagazijn = $$INTTIME^vhLib.DataTypes("13:30")
+		Set HDE.DueOutProductie = $$INTTIME^vhLib.DataTypes("11:00")
+		Set HDE.KantelOrderIngave = $$INTTIME^vhLib.DataTypes("16:00")
+		Set HDE.KantelDoorsturenMagazijn = $$INTTIME^vhLib.DataTypes("13:00")
+		Set HDE.KantelDoorsturenProductie = $$INTTIME^vhLib.DataTypes("10:00")
+		Set HDE.VerzendZone = "005003" 
+		Set HDE.MagOpschuivenIndienAutoSendAf = 1
+		Set HDE.Transporteur = 9174
+		Set HDE.TransportDuur = 3
+		Set HDE.AanrekenenPort = $$$False
+		Set HDE.UitgesteldPakbonBoekenAx = $$$True		
+		Set HDE.OmschrijvingDuits = "HD3 - 3 Tagen"
+		Set HDE.OmschrijvingFrans = "HD3 - 3 jours"
+		Set HDE.OmschrijvingEngels = "HD3 - 3 days"
+		Set HDE.OmschrijvingNederlands = "HD3 - 3 dagen"
+	
+		Set PiItemService = ##class(BL.Legacy.Res.PiItemService).%New( HDE.#GlobalNode, HDE.#GlobalSubNode )
+		Do PiItemService.VoegToeViaVolgNr( HDE, 13 )
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>