Index: vhDeploy/Deploy20210426xVerzendwijzeHaefeleITAT.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20210426xVerzendwijzeHaefeleITAT.cls.xml	(revision 0)
+++ vhDeploy/Deploy20210426xVerzendwijzeHaefeleITAT.cls.xml	(revision 64304)
@@ -0,0 +1,185 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Deploy20210426xVerzendwijzeHaefeleITAT">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Nieuwe verzendwijze: HD4 tem 7</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("HD4")
+	Do PiItemService.Verwijder("HD5")
+	Do PiItemService.Verwijder("HD6")
+	Do PiItemService.Verwijder("HD7")
+]]></Implementation>
+</Method>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#dim ID as %String = ""
+
+	Set ID = "HD4"
+	if ('##class(DOM.VKP.VerzendWijze).%ExistsId(ID))
+	{
+		Set HDE = ##class(DOM.VKP.VerzendWijze.Intern).%New(ID)
+
+		Do HDE.ZetOmschrijving("HD4 - 4 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("23:59")
+		Set HDE.KantelDoorsturenProductie = $$INTTIME^vhLib.DataTypes("10:00")
+		Set HDE.VerzendZone = "005003" 
+		Set HDE.MagOpschuivenIndienAutoSendAf = 1
+		Set HDE.Transporteur = 9174
+		Set HDE.TransportDuur = 4
+		Set HDE.AanrekenenPort = $$$False
+		Set HDE.UitgesteldPakbonBoekenAx = $$$True		
+		Set HDE.OmschrijvingDuits = "HD4 - 4 Tag"
+		Set HDE.OmschrijvingFrans = "HD4 - 4 jour"
+		Set HDE.OmschrijvingEngels = "HD4 - 4 day"
+		Set HDE.OmschrijvingNederlands = "HD4 - 4 dag"
+	
+		Set PiItemService = ##class(BL.Legacy.Res.PiItemService).%New( HDE.#GlobalNode, HDE.#GlobalSubNode )
+		Do PiItemService.VoegToeViaVolgNr( HDE, 14 )
+	}
+
+	Set ID = "HD5"
+	if ('##class(DOM.VKP.VerzendWijze).%ExistsId(ID))
+	{
+		Set HDE = ##class(DOM.VKP.VerzendWijze.Intern).%New(ID)
+
+		Do HDE.ZetOmschrijving("HD5 - 5 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("23:59")
+		Set HDE.KantelDoorsturenProductie = $$INTTIME^vhLib.DataTypes("10:00")
+		Set HDE.VerzendZone = "005003" 
+		Set HDE.MagOpschuivenIndienAutoSendAf = 1
+		Set HDE.Transporteur = 9174
+		Set HDE.TransportDuur = 5
+		Set HDE.AanrekenenPort = $$$False
+		Set HDE.UitgesteldPakbonBoekenAx = $$$True		
+		Set HDE.OmschrijvingDuits = "HD5 - 5 Tag"
+		Set HDE.OmschrijvingFrans = "HD5 - 5 jour"
+		Set HDE.OmschrijvingEngels = "HD5 - 5 day"
+		Set HDE.OmschrijvingNederlands = "HD5 - 5 dag"
+	
+		Set PiItemService = ##class(BL.Legacy.Res.PiItemService).%New( HDE.#GlobalNode, HDE.#GlobalSubNode )
+		Do PiItemService.VoegToeViaVolgNr( HDE, 15 )
+	}
+
+	Set ID = "HD6"
+	if ('##class(DOM.VKP.VerzendWijze).%ExistsId(ID))
+	{
+		Set HDE = ##class(DOM.VKP.VerzendWijze.Intern).%New(ID)
+
+		Do HDE.ZetOmschrijving("HD6 - 6 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("23:59")
+		Set HDE.KantelDoorsturenProductie = $$INTTIME^vhLib.DataTypes("10:00")
+		Set HDE.VerzendZone = "005003" 
+		Set HDE.MagOpschuivenIndienAutoSendAf = 1
+		Set HDE.Transporteur = 9174
+		Set HDE.TransportDuur = 6
+		Set HDE.AanrekenenPort = $$$False
+		Set HDE.UitgesteldPakbonBoekenAx = $$$True		
+		Set HDE.OmschrijvingDuits = "HD6 - 6 Tag"
+		Set HDE.OmschrijvingFrans = "HD6 - 6 jour"
+		Set HDE.OmschrijvingEngels = "HD6 - 6 day"
+		Set HDE.OmschrijvingNederlands = "HD6 - 6 dag"
+	
+		Set PiItemService = ##class(BL.Legacy.Res.PiItemService).%New( HDE.#GlobalNode, HDE.#GlobalSubNode )
+		Do PiItemService.VoegToeViaVolgNr( HDE, 16 )
+	}
+	Set ID = "HD7"
+	if ('##class(DOM.VKP.VerzendWijze).%ExistsId(ID))
+	{
+		Set HDE = ##class(DOM.VKP.VerzendWijze.Intern).%New(ID)
+
+		Do HDE.ZetOmschrijving("HD7 - 7 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("23:59")
+		Set HDE.KantelDoorsturenProductie = $$INTTIME^vhLib.DataTypes("10:00")
+		Set HDE.VerzendZone = "005003" 
+		Set HDE.MagOpschuivenIndienAutoSendAf = 1
+		Set HDE.Transporteur = 9174
+		Set HDE.TransportDuur = 7
+		Set HDE.AanrekenenPort = $$$False
+		Set HDE.UitgesteldPakbonBoekenAx = $$$True		
+		Set HDE.OmschrijvingDuits = "HD7 - 7 Tag"
+		Set HDE.OmschrijvingFrans = "HD7 - 7 jour"
+		Set HDE.OmschrijvingEngels = "HD7 - 7 day"
+		Set HDE.OmschrijvingNederlands = "HD7 - 7 dag"
+	
+		Set PiItemService = ##class(BL.Legacy.Res.PiItemService).%New( HDE.#GlobalNode, HDE.#GlobalSubNode )
+		Do PiItemService.VoegToeViaVolgNr( HDE, 17 )
+	}
+
+
+	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>